S
PL_
PL_
PL_PRSTATE{%}
*
      IF PR$PLCB = '' THEN
         T$$$ = 'FFFF'
      END ELSE
         T$$$ = OCONV(PR$PLCB,'MCDX') 'R%4'
      END
*
      SS$ = CALLFN( '0A0050':                \
                   {*FNR.77}:                                 \
                   OCONV(PL$V.PORT.NO,'MCXD')'R%4':           \
                   '0000' :                                   \
                   T$$$ :                                     \
                   ( {%1} : NUL80 )[1,80]                     \
                   )
