RPGLE - Retrieve deleted records from file

 RPGLE  - Retrieve deleted records from file

D TotalC          S              9S 0
     D Len             S              9B 0 Inz( 265 )
     D Fmt             S              8    Inz( 'MBRD0200' )
     D FilNam          S             20    Inz( 'LOCDTP    LOCATOR   ' )
     D MbrNam          S             10    Inz( '*FIRST' )
     D OvrPrs          S              1    Inz( '0' )
     D Error           S             30

     D Out             DS           265
     D  BytRet                 1      4B 0
     D  BytAvl                 5      8B 0
     D  MbrName               29     38
     D  PFLF                 137    137
     D  Total                141    144B 0
     D  DelRcd               145    148B 0
     D  NoMbrs               157    160B 0

     C     APIList       PList
     C                   Parm                    Out
     C                   Parm                    Len
     C                   Parm                    Fmt
     C                   Parm                    FilNam
     C                   Parm                    MbrNam
     C                   Parm                    OvrPrs
     C                   Parm                    Error
     C                   Call      'QUSRMBRD'    APIList
     C                   Z-Add     Total         TotalC
     C     BytRet        Dsply
     C     BytAvl        Dsply
     C     MbrName       Dsply
     C     PFLF          Dsply
     C     TotalC        Dsply
     C     DelRcd        Dsply
     C     NoMbrs        Dsply
     C                   Eval      *InLR = *On