Liste les membres d'un fichier

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * API:  QUSLMBR                                                *
      * Format:  MBRL0100                                            *
      *                                                              *
      ****************************************************************
       01 MBRL0100-INPUT.
           05 USER-SPACE                     PIC X(20).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 FILLIB-SPECIFIED.
              10 FILE-NAME-SPECIFIED         PIC X(10).
              10 LIBRARY-SPECIFIED           PIC X(10).
           05 MEMBER-NAME-SPECIFIED          PIC X(10).
           05 OVERRIDE                       PIC X(01).
       01 MBRL0100-HEADER.
           05 FILE-NAME-RETURNED             PIC X(10).
           05 LIBRARY-RETURNED               PIC X(10).
           05 FILE-ATTRIBUTE                 PIC X(10).
           05 FILE-TEXT                      PIC X(50).
           05 NUMBER-MEMBERS                 PIC S9(9) COMP-4.
           05 SOURCE-FILE                    PIC X(01).
    * V2R30


|    Changer de couleur
           05 FILLER                         PIC X(03).
           05 FILE-TEXT-CCSID                PIC S9(9) COMP-4.
       01 MBRL0100-LIST.
           05 MEMBER-NAME                    PIC X(10).
      ****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FORMAT
     I                                       29  48 FILLII
     I                                       29  38 FILNAI
     I                                       39  48 LIBNAI
     I                                       49  58 MBRNAI
     I                                       59  59 OVRRID
     IHEADER      DS
     I                                        1  20 FILLIH
     I                                        1  10 FILNAH
     I                                       11  20 LIBNAH
     I                                       21  30 FILATR
     I                                       31  80 TEXT
     I                                    B  81  840MBRNAH


|    Changer de couleur
     I                                       85  85 SRCF
      * V2R30
     I                                       86  88 RESER1
     I                                    B  89  920FCCSID
     ILIST        DS
     I                                        1  10 MBRNAL
      ****************************************************************
      *                                                              *
      * API:  QUSLMBR                                                *
      * Format:  MBRL0200                                            *
      *                                                              *
      ****************************************************************
       01 MBRL0200-INPUT.
           05 USER-SPACE                     PIC X(20).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 FILLIB-SPECIFIED.
               10 FILE-NAME-SPECIFIED        PIC X(10).
               10 LIBRARY-SPECIFIED          PIC X(10).
           05 MEMBER-NAME-SPECIFIED          PIC X(10).
           05 OVERRIDE                       PIC X(01).
       01 MBRL0200-HEADER.
           05 FILE-NAME-RETURNED             PIC X(10).


|    Changer de couleur
           05 LIBRARY-RETURNED               PIC X(10).
           05 FILE-ATTRIBUTE                 PIC X(10).
           05 FILE-TEXT                      PIC X(50).
           05 NUMBER-MEMBERS                 PIC S9(9) COMP-4.
           05 SOURCE-FILE                    PIC X(01).
    * V2R30
           05 FILLER                         PIC X(03).
           05 FILE-TEXT-CCSID                PIC S9(9) COMP-4.
       01 MBRL0200-LIST.
           05 MEMBER-NAME                    PIC X(10).
           05 SOURCE-TYPE                    PIC X(10).
           05 CREATION-DATE                  PIC X(13).
           05 LAST-SOURCE-CHANGE-DATE        PIC X(13).
           05 MEMBER-TEXT                    PIC X(50).
    * V2R30
           05 MEMBER-TEXT-CCSID              PIC S9(9) COMP-4.
      ****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FORMAT


|    Changer de couleur
     I                                       29  48 FILLIB
     I                                       29  38 FILNAI
     I                                       39  48 LIBNAI
     I                                       49  58 MBRNAI
     I                                       59  59 OVRRID
     IHEADER      DS
     I                                        1  10 FILNAH
     I                                       11  20 FILLIH
     I                                       21  30 FILATR
     I                                       31  80 TEXT
     I                                    B  81  840MBRNAH
     I                                       85  85 SRCF
      * V2R30
     I                                       86  88 RESER1
     I                                    B  89  920FCCSID
     ILIST        DS
     I                                        1  10 MBRNAL
     I                                       11  20 SRCTYP
     I                                       21  33 CRTDAT
     I                                       34  46 LSTCHG
     I                                       47  96 MBRTXT
      * V2R30


|    Changer de couleur
     I                                    B  97 1000MCCSID




©AF400