When you do a START, what will the value of EIBCALEN ?

• Value of Eibcalen=0

• In this CICS reserved word we use usually in the subroutine, that say, we are calling a sub-program, and passing some data.
• We don’t know whether data is received or not. So, I am getting some data from the screen passing to first main program and next to sub-program. With this variable we can test it and control the program logic.

[pastacode lang=”markdown” manual=”EVALUATE%20TRUE%0A%0A%20%20%20%20%20IF%20%20EIBCALEN%20%3D%200%0A%0A%20%20%20%20%20%20%20%20%20%20%20EXEC%20%20CICS%0A%0A%20%20%20%20%20%20%20%20%20%20%20RECEIVE%20%20INTO(WS-RECORD)%0A%0A%20%20%20%20%20%20%20%20%20%20%20END-EXEC%0A%0A%20%20%20%20END-IF%0A%0AEND-EVALUATE” message=”” highlight=”” provider=”manual”/]

• And, we can continue writing the code, If EIBCALEN = 1 to throw abend.