S
PL_
PL_
PL_TCP_SET_EVENTS {%},{%},{%},{%},{%},{%},{%}
*
      S$ = CALLFN('00':         \
                  {*FNR.82}:                 \ ;* Function code
                  OCONV({%1},'MCDX')'R%4':   \ ;* p_no
                  OCONV({%2},'MCDX')'R%2':   \ ;* flg
                  OCONV({%5},'MCDX')'R%2':   \ ;* flg
                  OCONV({%3},'MCDX')'R%2':   \ ;* msg
                  OCONV({%6},'MCDX')'R%2':   \ ;* msg
                  OCONV({%4},'MCDX')'R%4':   \ ;* delay
                  OCONV({%7},'MCDX')'R%4'    \ ;* delay
                  )
