S
PL_
PL_
PL_READU_STATE{WTHEN\ELSE}
*
      MATREADU ST$ARRAY FROM PL$CONN.FD , ST$PLCB 'R%8' THEN
         T$$$ = 1
         READ ST$IBUF FROM PL$CONN.FD , ST$PLCB 'R%8' : '*IBUF' ELSE
            ST$IBUF = ''
         END
      END ELSE
         T$$$ = 0
         ST$IBUF = ''
      END
*
      IF T$$$ {%1}
