STRPDM.COM

     A*
     A          R SPLFO
     A            FILLER1        1          TEXT('FILLER')
     A            FILEN         11          TEXT('FILE NAME')
     A            USER          11          TEXT('USER')
     A            FILLER2       82          TEXT('FILLER')
     A            JOB           11          TEXT('JOB NAME')
     A            JOB#           7          TEXT('JOB NUMBER')