
170 Using IBM Application Development Tools for z/OS and OS/390
charset 'field'
type 'cesf'
transmit using enter
/*--------------------------------------------------- 11370847 00011 */
WTM_panel_ID = 'PNL00006'
log 'WTM_panel_ID' WTM_panel_ID
transmit using clear
/*--------------------------------------------------- 11423402 00040 */
WTM_panel_ID = 'PNL00007'
log 'WTM_panel_ID' WTM_panel_ID
onin0002: onin substr(rh,1,5) = '6B80003201'x,
then found = on
found = off
termself()
do while found = off /* wait for onin0002 data received */
wait until onin
end
deact onin0002
/* 11:42:34.05 ITP1508I SESSION ENDED WITH APPLICATION C001 */
say 'WTM:' msgtxtid() 'Finish ...