MVSFORUMS.com

[enge]

hello everyone,
i need to test ,in my cobol cics application program ,if clear key is being hitted during a loop execution.
In this case i have to get out of the loop.
i try this ,but doesn't work..

IF EIBCALEN > 0
AND EIBAID = DFHCLEAR
GO TO LOOP-END.
In fact ,although i hit clear key during execution the statements in the loop, the values are always:
eibcalen = 8
eibaid = '

How can i do?
thanks

[kolusu]

enge,

Make sure your clear key is indeed mapped to clear.

[enge]

excuse me kolosu,
i mean , i am not able to "refresh" the EIBAID value during the program execution.
i try :
EXEC CICS SEND CONTROL FREEKB
END-EXEC.
STATEMENT-BEGIN.
STATEMENT 1
STATEMENT 2
...
...
EXEC CICS RECEIVE MAP ('MYMAP') MAPSET ('MYMAPSET') INTO (MYAREA)
END-EXEC.
IF EIBAID = DFHCLEAR
EXEC CICS SEND CONTROL FREEKB
END-EXEC
EXEC CICS RETURN
END-EXEC
ELSE
GO TO STATEMENT-BEGIN
END-IF.

[dbzTHEdinosauer]

1. the EIBAID is set as/before your program is invoked. You don't have to CALL the RECEIVE API to populate EIBAID.

2. The RECEIVE will generate a MAPFAIL when the EIBAID is a DFHCLEAR.
_________________
Dick Brenholtz
American living in Varel, Germany

[enge]

thank you very much.bye