S
PL_
PL_
PL_PRREMOVESTATE{%}
*
      SS$ = CALLFN('00':                 \
                   {*FNR.83}:                                 \
                   OCONV({%1},'MCDX')'R%4'            \
                   )
