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

  • Value of Eibcalen=0

EIBCALEN

  • 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.
EVALUATE TRUE

     IF  EIBCALEN = 0

           EXEC  CICS

           RECEIVE  INTO(WS-RECORD)

           END-EXEC

    END-IF

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

Categorized in:

CICS

Tagged in:

, , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , , ,