S
PL_
PL_
PL_PRINT{%}
*
      S$ = {%1}
*
      PRINT CHANGE(S$,AM,CRLF)
*
      IF NOT(PL$OFFLINE) THEN
         S$ = PL$PRSTR : S$
         T$ = PORT.NO 'R#3' : ' '
         S$ = T$ : CHANGE(S$,AM,CRLF:T$) : CRLF
         L$ = OCONV(LEN(S$),'MCDX')'R%4'
*
         S$ = CALLFN(                \
                     '06':L$:                         \
                     {*FNR.75}:                       \ ;* Function code
                     L$:                              \ ;* Data length
                     S$                               \ ;* Data
                     )
      END
*
      PL$PRSTR = ''
