****************************************************************
      *                                                              *
      * API:  QUSLRCD                                                *
      * Format:  RCDL0200                                            *
      *                                                              *
      ****************************************************************
       01 RCDL0200-INPUT.
           05 USER-SPACE.
               10 SPACE-NAME                 PIC X(10).
               10 LIBRARY                    PIC X(10).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 FILLIB-SPECIFIED.
               10 FILE-NAME-SPECIFIED        PIC X(10).
               10 LIBRARY-SPECIFIED          PIC X(10).
           05 OVERRIDE                       PIC X(01).
       01 RCDL0200-HEADER.
           05 FILE-NAME-RETURNED             PIC X(10).
           05 LIBRARY-RETURNED               PIC X(10).
           05 FILE-TYPE                      PIC X(10).
           05 FILE-TEXT                      PIC X(50).
       01 RCDL0200-LIST.
           05 RECORD-FORMAT-NAME             PIC X(10).

           05 RECORD-FORMAT-ID               PIC X(13).
           05 FILLER                         PIC X(01).
           05 RECORD-LENGTH                  PIC S9(9) COMP-4.
           05 NUMBER-FIELDS                  PIC S9(9) COMP-4.
           05 RECORD-TEXT                    PIC X(50).
      ****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FMTNAI
     I                                       29  48 FILLII
     I                                       29  38 FILNAI
     I                                       39  48 LIBNAI
     I                                       49  49 OVRRID
     IHEADER      DS
     I                                        1  20 FILLIH
     I                                        1  10 FILNAH
     I                                       11  20 LIBNAH
     I                                       21  30 FILTYP
     I                                       31  80 TEXT
     ILIST        DS

     I                                        1  10 FMTNAL
     I                                       11  23 FMTID
     I                                       24  24 RESRV
     I                                    B  25  280RCDLEN
     I                                    B  29  320NBRFLD
     I                                       33  82 RCDTXT