STRPDM.COM

     A          R QWHFDML                   TEXT('DSPFD format for TYPE *MBRLI')
     A            MLRCEN         1A         TEXT('Retrieval century:  0=19xx,')
     A            MLRDAT         6A         TEXT('Retrieval date: year/month/d')
     A            MLRTIM         6A         TEXT('Retrieval time: hour/minute/')
     A            MLFILE        10A         TEXT('File')
     A            MLLIB         10A         TEXT('Library')
     A            MLFTYP         1A         TEXT('P=PF, L=LF, R=DDM PF, S=DDM')
     A            MLFILA         4A         TEXT('File attribute: *PHY or *LGL')
     A            MLMXD          3A         TEXT('Reserved')
     A            MLFATR         6A         TEXT('File attribute:  PF, LF, PF3')
     A            MLSYSN         8A         TEXT('System Name (Source System,')
     A            MLASP          3P         TEXT('Auxiliary storage pool ID:')
     A            MLRES          4A         TEXT('Reserved')
     A            MLNOMB         5P         TEXT('Number of members')
     A            MLNAME        10A         TEXT('Member')
     A            MLNRCD        10P         TEXT('Current number of records')
     A            MLNDTR        10P         TEXT('Number of deleted records')
     A            MLSIZE        10P         TEXT('Data space and index size in')
     A            MLSEU          4A         TEXT('Source type for S/38 View as')
     A            MLCCEN         1A         TEXT('Member creation century: 0=1')
     A            MLCDAT         6A         TEXT('Member creation date: year/m')
     A            MLCHGC         1A         TEXT('Last change century: 0=19xx,')
     A            MLCHGD         6A         TEXT('Last change date: year/month')
     A            MLCHGT         6A         TEXT('Last change time: hour/minut')
     A            MLMTXT        50A         TEXT('Text ''description''')
     A            MLSEU2        10A         TEXT('Source type')
     A            MLUCEN         1A         TEXT('Last Used Century: 0=19xx, 1')
     A            MLUDAT         6A         TEXT('Last Used Date: year/month/d')
     A            MLUCNT         5P         TEXT('Days Used Count')
     A            MLTCEN         1A         TEXT('Usage Data Reset Century: 0=')
     A            MLTDAT         6A         TEXT('Usage Data Reset Date: year/')
     A            MLSIZ2        15P         TEXT('Data space and index size in')
     A            MLSTFR         1A         TEXT('Member storage freed Y=Yes')
                K MLNAME