S
PL_
PL_
PL_DES_SET{%},{%}
*
      S$ = CALLFN('00':         \
                  {*FNR.86}:                 \ ;* Function code
                  OCONV({%1},'MCDX')'R%4':   \ ;* p_no
                  {%2}                       \ ;* Des key
                  )
