F
PL_
PL_
PL_GETBUF({%})
*
      S$ = CALLFN('00':             \
                  {*FNR.109}:                \
                  OCONV({%1},'MCDX')'R%4':   \
                  '00000000':                \
                  '00000000'                 \
                  )[3,999999]
*
      IF S$[1,4] = IPX.SOCKET.NO THEN
         {R} = S$[13,8] : AM : S$[21,8]
      END ELSE
         {R} = ''
      END
