F
PL_
PL_
PL_DES_ENCRYPT({%})
*
      L$$$ = LEN({%1})
      S$ = CALLFN(         \
                  '06':OCONV(L$$$*2,'MCDX')'R%4': \
                  {*FNR.87}:                 \ ;* Function code
                  OCONV(L$$$,'MCDX')'R%4':   \ ;* p_no
                  {%1}:                      \ ;* data
                  STR(NUL,L$$$)          \ ;* pad area
                  )
*
      IF S$[7,4] = IPX.SOCKET.NO THEN
         RES = OCONV(S$[11,4],'MCXD')
         IF RES > 32768 THEN
            RES = RES - 65536
         END
         ERR = 0
      END ELSE
         ERR = 1
         RES = 0
      END
*
      IF ERR OR RES <= 0 THEN
         {R} = ''
      END ELSE
         {R} = S$[19,RES]
      END
