S
PL_
PL_
PL_PRGETSTATE{%},{%},{%},{%},{%}FROM{%}
*
      S$ = CALLFN( '120050':       \
                  {*FNR.78}:                        \
                  OCONV({%6},'MCDX')'R%4':          \
                  '00000000                         \
                   00000000                         \
                   0000                             \
                   0000                             \
                   0000':                           \
                  NUL80                             \
                  )
*
      {%1} = OCONV(S$[19,8],'MCXD')
      {%2} = OCONV(S$[27,8],'MCXD')
      {%3} = OCONV(S$[35,4],'MCXD')
      {%4} = OCONV(S$[39,4],'MCXD')
      {%5} = FIELD(S$[43,80],NUL,1)
