Liste les objets d'une bibliothèque

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * API:  QUSLOBJ                                                *
      * Format:  OBJL0100                                            *
      *                                                              *
      ****************************************************************
       01 OBJL0100-INPUT.
           05 USER-SPACE.
               10 SPACE-NAME                 PIC X(10).
               10 LIBRARY                    PIC X(10).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
       01 OBJL0100-HEADER.
           05 OBJECT-NAME-RETURNED           PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 OBJECT-TYPE-RETURNED           PIC X(10).
       01 OBJL0100-LIST.
           05 OBJECT-NAME                    PIC X(10).
           05 OBJECT-LIBRARY                 PIC X(10).
           05 OBJECT-TYPE                    PIC X(10).


|    Changer de couleur
     I****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FMTNAM
     I                                       29  48 OBJLII
     I                                       29  38 OBJNMI
     I                                       39  48 LIBNMI
     I                                       49  58 OBJTYI
     IHEADER      DS
     I                                        1  20 OBJLIH
     I                                        1  10 OBJNMH
     I                                       11  20 LIBNMH
     I                                       21  30 OBJTYH
     ILIST        DS
     I                                        1  20 OBJLIL
     I                                        1  10 OBJNML
     I                                       11  20 LIBNML
     I                                       21  30 OBJTYL
      ****************************************************************
      *                                                              *


|    Changer de couleur
      * API:  QUSLOBJ                                                *
      * Format:  OBJL0200                                            *
      *                                                              *
      ****************************************************************
       01 OBJL0200-INPUT.
           05 USER-SPACE.
               10 SPACE-NAME                 PIC X(10).
               10 LIBRARY                    PIC X(10).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
       01 OBJL0200-HEADER.
           05 OBJECT-NAME-RETURNED           PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 OBJECT-TYPE-RETURNED           PIC X(10).
       01 OBJL0200-LIST.
           05 OBJECT-NAME                    PIC X(10).
           05 OBJECT-LIBRARY                 PIC X(10).
           05 OBJECT-TYPE                    PIC X(10).
           05 INFO-STATUS                    PIC X(1).
           05 EXTENDED-OBJECT-ATTRIBUTE      PIC X(10).


|    Changer de couleur
           05 TEXT-DESCRIPTION               PIC X(50).
           05 USER-DEFINED-ATTRIBUTE         PIC X(10).
           05 RESERVED                       PIC X(7).
     I****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FMTNAM
     I                                       29  48 OBJLII
     I                                       29  38 OBJNMI
     I                                       39  48 LIBNMI
     I                                       49  58 OBJTYI
     IHEADER      DS
     I                                        1  20 OBJLIH
     I                                        1  10 OBJNMH
     I                                       11  20 LIBNMH
     I                                       21  30 OBJTYH
     ILIST        DS
     I                                        1  20 OBJLIL
     I                                        1  10 OBJNML
     I                                       11  20 LIBNML


|    Changer de couleur
     I                                       21  30 OBJTYL
     I                                       31  31 INFSTS
     I                                       32  41 OBJATR
     I                                       42  91 TXTDSC
     I                                       92 101 USRDAT
     I                                      102 108 RSVD
      ****************************************************************
      *                                                              *
      * API:  QUSLOBJ                                                *
      * Format:  OBJL0300                                            *
      *                                                              *
      ****************************************************************
       01 OBJL0300-INPUT.
           05 USER-SPACE.
               10 SPACE-NAME                 PIC X(10).
               10 LIBRARY                    PIC X(10).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
       01 OBJL0300-HEADER.
           05 OBJECT-NAME-RETURNED           PIC X(10).


|    Changer de couleur
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 OBJECT-TYPE-RETURNED           PIC X(10).
       01 OBJL0300-LIST.
           05 OBJECT-NAME                    PIC X(10).
           05 OBJECT-LIBRARY                 PIC X(10).
           05 OBJECT-TYPE                    PIC X(10).
           05 INFO-STATUS                    PIC X(1).
           05 EXTENDED-OBJECT-ATTRIBUTE      PIC X(10).
           05 TEXT-DESCRIPTION               PIC X(50).
           05 USER-DEFINED-ATTRIBUTE         PIC X(10).
           05 RESERVED                       PIC X(7).
           05 AUXILIARY-STORAGE-POOL         PIC S9(9) COMP-4.
           05 OBJECT-OWNER                   PIC X(10).
           05 OBJECT-DOMAIN                  PIC X(2).
           05 CREATION-DATE-TIME             PIC X(8).
           05 CHANGE-DATE-TIME               PIC X(8).
           05 STORAGE                        PIC X(10).
           05 OBJECT-COMPRESSION-STATUS      PIC X(1).
           05 ALLOW-CHANGE-PGM               PIC X(1).
           05 CHANGED-BY-PGM                 PIC X(1).
    * V2R20
           05 RESERVED1                      PIC X(19).


|    Changer de couleur
    * V2R30
           05 OBJECT-AUDITING                PIC X(10).
           05 RESERVED1                      PIC X(9).
     I****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FMTNAM
     I                                       29  48 OBJLII
     I                                       29  38 OBJNMI
     I                                       39  48 LIBNMI
     I                                       49  58 OBJTYI
     IHEADER      DS
     I                                        1  20 OBJLIH
     I                                        1  10 OBJNMH
     I                                       11  20 LIBNMH
     I                                       21  30 OBJTYH
     ILIST        DS
     I                                        1  20 OBJLIL
     I                                        1  10 OBJNML
     I                                       11  20 LIBNML


|    Changer de couleur
     I                                       21  30 OBJTYL
     I                                       31  31 INFSTS
     I                                       32  41 OBJATR
     I                                       42  91 TXTDSC
     I                                       92 101 USRDAT
     I                                      102 108 RSVD
     I                                    B 109 1120AUXSTR
     I                                      113 122 OBJOWN
     I                                      123 124 OBJDMN
     I                                      125 132 CRTDT
     I                                      133 140 CHGDT
     I                                      141 150 STORAG
     I                                      151 151 OBJCMP
     I                                      152 152 ALWCHG
     I                                      153 153 CHGPGM
      * V2R20
     I                                      154 172 RSVD1
      * V2R30
     I                                      154 163 OBJAUD
     I                                      164 172 RSVD1
      ****************************************************************
      *                                                              *


|    Changer de couleur
      * API:  QUSLOBJ                                                *
      * Format:  OBJL0400                                            *
      *                                                              *
      ****************************************************************
       01 OBJL0400-INPUT.
           05 USER-SPACE.
               10 SPACE-NAME                 PIC X(10).
               10 LIBRARY                    PIC X(10).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
       01 OBJL0400-HEADER.
           05 OBJECT-NAME-RETURNED           PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 OBJECT-TYPE-RETURNED           PIC X(10).
       01 OBJL0400-LIST.
           05 OBJECT-NAME                    PIC X(10).
           05 OBJECT-LIBRARY                 PIC X(10).
           05 OBJECT-TYPE                    PIC X(10).
           05 INFO-STATUS                    PIC X(1).
           05 EXTENDED-OBJECT-ATTRIBUTE      PIC X(10).


|    Changer de couleur
           05 TEXT-DESCRIPTION               PIC X(50).
           05 USER-DEFINED-ATTRIBUTE         PIC X(10).
           05 RESERVED                       PIC X(7).
           05 AUXILIARY-STORAGE-POOL         PIC S9(9) COMP-4.
           05 OBJECT-OWNER                   PIC X(10).
           05 OBJECT-DOMAIN                  PIC X(2).
           05 CREATION-DATE-TIME             PIC X(8).
           05 CHANGE-DATE-TIME               PIC X(8).
           05 STORAGE                        PIC X(10).
           05 OBJECT-COMPRESSION-STATUS      PIC X(1).
           05 ALLOW-CHANGE-PGM               PIC X(1).
           05 CHANGED-BY-PGM                 PIC X(1).
           05 RESERVED1                      PIC X(19).
           05 SOURCE-FILE-NAME               PIC X(10).
           05 SOURCE-LIBRARY-NAME            PIC X(10).
           05 SOURCE-MEMBER-NAME             PIC X(10).
           05 SOURCE-UPDATED-DATE-TIME       PIC X(13).
           05 CREATORS-USER-PROFILE          PIC X(10).
           05 SYSTEM-WHERE-CREATED           PIC X(8).
           05 SYSTEM-LEVEL                   PIC X(9).
           05 COMPILER                       PIC X(16).
           05 OBJECT-LEVEL                   PIC X(8).


|    Changer de couleur
           05 USER-CHANGED                   PIC X(1).
           05 LICENSED-PROGRAM               PIC X(16).
           05 PTF                            PIC X(10).
           05 APAR                           PIC X(10).
           05 RESERVED2                      PIC X(21).
     I****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FMTNAM
     I                                       29  48 OBJLII
     I                                       29  38 OBJNMI
     I                                       39  48 LIBNMI
     I                                       49  58 OBJTYI
     IHEADER      DS
     I                                        1  20 OBJLIH
     I                                        1  10 OBJNMH
     I                                       11  20 LIBNMH
     I                                       21  30 OBJTYH
     ILIST        DS
     I                                        1  20 OBJLIL


|    Changer de couleur
     I                                        1  10 OBJNML
     I                                       11  20 LIBNML
     I                                       21  30 OBJTYL
     I                                       31  31 INFSTS
     I                                       32  41 OBJATR
     I                                       42  91 TXTDSC
     I                                       92 101 USRDAT
     I                                      102 108 RSVD
     I                                    B 109 1120AUXSTR
     I                                      113 122 OBJOWN
     I                                      123 124 OBJDMN
     I                                      125 132 CRTDT
     I                                      133 140 CHGDT
     I                                      141 150 STORAG
     I                                      151 151 OBJCMP
     I                                      152 152 ALWCHG
     I                                      153 153 CHGPGM
     I                                      154 172 RSVD1
     I                                      173 182 SRCFIL
     I                                      183 192 SRCLIB
     I                                      193 202 SRCMBR
     I                                      203 215 SRCUDT


|    Changer de couleur
     I                                      216 225 CRTUSR
     I                                      226 233 CRTSYS
     I                                      234 242 SYSLVL
     I                                      243 258 COMPIL
     I                                      259 266 OBJLVL
     I                                      267 267 USRCHG
     I                                      268 283 LICPGM
     I                                      284 293 PTF
     I                                      294 303 APAR
     I                                      304 324 RSVD2
      ****************************************************************
      *                                                              *
      * API:  QUSLOBJ                                                *
      * Format:  OBJL0500                                            *
      *                                                              *
      ****************************************************************
       01 OBJL0500-INPUT.
           05 USER-SPACE.
               10 SPACE-NAME                 PIC X(10).
               10 LIBRARY                    PIC X(10).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 OBJECT-NAME-SPECIFIED          PIC X(10).


|    Changer de couleur
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
       01 OBJL0500-HEADER.
           05 OBJECT-NAME-RETURNED           PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 OBJECT-TYPE-RETURNED           PIC X(10).
       01 OBJL0500-LIST.
           05 OBJECT-NAME                    PIC X(10).
           05 OBJECT-LIBRARY                 PIC X(10).
           05 OBJECT-TYPE                    PIC X(10).
           05 INFO-STATUS                    PIC X(1).
           05 EXTENDED-OBJECT-ATTRIBUTE      PIC X(10).
           05 TEXT-DESCRIPTION               PIC X(50).
           05 USER-DEFINED-ATTRIBUTE         PIC X(10).
           05 RESERVED                       PIC X(7).
           05 AUXILIARY-STORAGE-POOL         PIC S9(9) COMP-4.
           05 OBJECT-OWNER                   PIC X(10).
           05 OBJECT-DOMAIN                  PIC X(2).
           05 CREATION-DATE-TIME             PIC X(8).
           05 CHANGE-DATE-TIME               PIC X(8).
           05 STORAGE                        PIC X(10).
           05 OBJECT-COMPRESSION-STATUS      PIC X(1).


|    Changer de couleur
           05 ALLOW-CHANGE-PGM               PIC X(1).
           05 CHANGED-BY-PGM                 PIC X(1).
           05 RESERVED1                      PIC X(19).
           05 SOURCE-FILE-NAME               PIC X(10).
           05 SOURCE-LIBRARY-NAME            PIC X(10).
           05 SOURCE-MEMBER-NAME             PIC X(10).
           05 SOURCE-UPDATED-DATE-TIME       PIC X(13).
           05 CREATORS-USER-PROFILE          PIC X(10).
           05 SYSTEM-WHERE-CREATED           PIC X(8).
           05 SYSTEM-LEVEL                   PIC X(9).
           05 COMPILER                       PIC X(16).
           05 OBJECT-LEVEL                   PIC X(8).
           05 USER-CHANGED                   PIC X(1).
           05 LICENSED-PROGRAM               PIC X(16).
           05 PTF                            PIC X(10).
           05 APAR                           PIC X(10).
           05 RESERVED2                      PIC X(21).
           05 OBJECT-SAVED-DATE-TIME         PIC X(8).
           05 OBJECT-RESTORED-DATE-TIME      PIC X(8).
           05 SAVE-SIZE                      PIC S9(9) COMP-4.
           05 SAVE-SIZE-MULTIPLIER           PIC S9(9) COMP-4.
           05 SAVE-SEQUENCE-NUMBER           PIC S9(9) COMP-4.


|    Changer de couleur
           05 SAVE-COMMAND                   PIC X(10).
           05 SAVE-VOLUME-ID                 PIC X(71).
           05 SAVE-DEVICE                    PIC X(10).
           05 SAVE-FILE-NAME                 PIC X(10).
           05 SAVE-LIBRARY-NAME              PIC X(10).
           05 SAVE-LABEL                     PIC X(17).
           05 SAVE-ACTIVE-DATE-TIME          PIC X(8).
           05 RESERVED3                      PIC X(44).
     I****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FMTNAM
     I                                       29  48 OBJLII
     I                                       29  38 OBJNMI
     I                                       39  48 LIBNMI
     I                                       49  58 OBJTYI
     IHEADER      DS
     I                                        1  20 OBJLIH
     I                                        1  10 OBJNMH
     I                                       11  20 LIBNMH


|    Changer de couleur
     I                                       21  30 OBJTYH
     ILIST        DS
     I                                        1  20 OBJLIL
     I                                        1  10 OBJNML
     I                                       11  20 LIBNML
     I                                       21  30 OBJTYL
     I                                       31  31 INFSTS
     I                                       32  41 OBJATR
     I                                       42  91 TXTDSC
     I                                       92 101 USRDAT
     I                                      102 108 RSVD
     I                                    B 109 1120AUXSTR
     I                                      113 122 OBJOWN
     I                                      123 124 OBJDMN
     I                                      125 132 CRTDT
     I                                      133 140 CHGDT
     I                                      141 150 STORAG
     I                                      151 151 OBJCMP
     I                                      152 152 ALWCHG
     I                                      153 153 CHGPGM
     I                                      154 172 RSVD1
     I                                      173 182 SRCFIL


|    Changer de couleur
     I                                      183 192 SRCLIB
     I                                      193 202 SRCMBR
     I                                      203 215 SRCUDT
     I                                      216 225 CRTUSR
     I                                      226 233 CRTSYS
     I                                      234 242 SYSLVL
     I                                      243 258 COMPIL
     I                                      259 266 OBJLVL
     I                                      267 267 USRCHG
     I                                      268 283 LICPGM
     I                                      284 293 PTF
     I                                      294 303 APAR
     I                                      304 324 RSVD2
     I                                      325 332 OBJSDT
     I                                      333 340 OBJRDT
     I                                    B 341 3440SAVSIZ
     I                                    B 345 3480SVSZMT
     I                                    B 349 3520SVSQNR
     I                                      353 362 SAVCMD
     I                                      363 433 SVVLID
     I                                      434 443 SAVDEV
     I                                      444 453 SAVFN


|    Changer de couleur
     I                                      454 463 SAVLIB
     I                                      464 480 SAVLBL
     I                                      481 488 SAVACT
     I                                      489 532 RSVD3
      ****************************************************************
      *                                                              *
      * API:  QUSLOBJ                                                *
      * Format:  OBJL0600                                            *
      *                                                              *
      ****************************************************************
       01 OBJL0600-INPUT.
           05 USER-SPACE.
               10 SPACE-NAME                 PIC X(10).
               10 LIBRARY                    PIC X(10).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
       01 OBJL0600-HEADER.
           05 OBJECT-NAME-RETURNED           PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 OBJECT-TYPE-RETURNED           PIC X(10).


|    Changer de couleur
       01 OBJL0600-LIST.
           05 OBJECT-NAME                    PIC X(10).
           05 OBJECT-LIBRARY                 PIC X(10).
           05 OBJECT-TYPE                    PIC X(10).
           05 INFO-STATUS                    PIC X(1).
           05 EXTENDED-OBJECT-ATTRIBUTE      PIC X(10).
           05 TEXT-DESCRIPTION               PIC X(50).
           05 USER-DEFINED-ATTRIBUTE         PIC X(10).
           05 RESERVED                       PIC X(7).
           05 AUXILIARY-STORAGE-POOL         PIC S9(9) COMP-4.
           05 OBJECT-OWNER                   PIC X(10).
           05 OBJECT-DOMAIN                  PIC X(2).
           05 CREATION-DATE-TIME             PIC X(8).
           05 CHANGE-DATE-TIME               PIC X(8).
           05 STORAGE                        PIC X(10).
           05 OBJECT-COMPRESSION-STATUS      PIC X(1).
           05 ALLOW-CHANGE-PGM               PIC X(1).
           05 CHANGED-BY-PGM                 PIC X(1).
           05 RESERVED1                      PIC X(19).
           05 SOURCE-FILE-NAME               PIC X(10).
           05 SOURCE-LIBRARY-NAME            PIC X(10).
           05 SOURCE-MEMBER-NAME             PIC X(10).


|    Changer de couleur
           05 SOURCE-UPDATED-DATE-TIME       PIC X(13).
           05 CREATORS-USER-PROFILE          PIC X(10).
           05 SYSTEM-WHERE-CREATED           PIC X(8).
           05 SYSTEM-LEVEL                   PIC X(9).
           05 COMPILER                       PIC X(16).
           05 OBJECT-LEVEL                   PIC X(8).
           05 USER-CHANGED                   PIC X(1).
           05 LICENSED-PROGRAM               PIC X(16).
           05 PTF                            PIC X(10).
           05 APAR                           PIC X(10).
           05 RESERVED2                      PIC X(21).
           05 OBJECT-SAVED-DATE-TIME         PIC X(8).
           05 OBJECT-RESTORED-DATE-TIME      PIC X(8).
           05 SAVE-SIZE                      PIC S9(9) COMP-4.
           05 SAVE-SIZE-MULTIPLIER           PIC S9(9) COMP-4.
           05 SAVE-SEQUENCE-NUMBER           PIC S9(9) COMP-4.
           05 SAVE-COMMAND                   PIC X(10).
           05 SAVE-VOLUME-ID                 PIC X(71).
           05 SAVE-DEVICE                    PIC X(10).
           05 SAVE-FILE-NAME                 PIC X(10).
           05 SAVE-LIBRARY-NAME              PIC X(10).
           05 SAVE-LABEL                     PIC X(17).


|    Changer de couleur
           05 SAVE-ACTIVE-DATE-TIME          PIC X(8).
           05 RESERVED3                      PIC X(44).
           05 LAST-USED-DATE-TIME            PIC X(8).
           05 RESET-DATE-TIME                PIC X(8).
           05 DAYS-USED-COUNT                PIC S9(9) COMP-4.
           05 USAGE-INFORMATION-UPDATED      PIC X(1).
           05 RESERVED4                      PIC X(23).
     I****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FMTNAM
     I                                       29  48 OBJLII
     I                                       29  38 OBJNMI
     I                                       39  48 LIBNMI
     I                                       49  58 OBJTYI
     IHEADER      DS
     I                                        1  20 OBJLIH
     I                                        1  10 OBJNMH
     I                                       11  20 LIBNMH
     I                                       21  30 OBJTYH


|    Changer de couleur
     ILIST        DS
     I                                        1  20 OBJLIL
     I                                        1  10 OBJNML
     I                                       11  20 LIBNML
     I                                       21  30 OBJTYL
     I                                       31  31 INFSTS
     I                                       32  41 OBJATR
     I                                       42  91 TXTDSC
     I                                       92 101 USRDAT
     I                                      102 108 RSVD
     I                                    B 109 1120AUXSTR
     I                                      113 122 OBJOWN
     I                                      123 124 OBJDMN
     I                                      125 132 CRTDT
     I                                      133 140 CHGDT
     I                                      141 150 STORAG
     I                                      151 151 OBJCMP
     I                                      152 152 ALWCHG
     I                                      153 153 CHGPGM
     I                                      154 172 RSVD1
     I                                      173 182 SRCFIL
     I                                      183 192 SRCLIB


|    Changer de couleur
     I                                      193 202 SRCMBR
     I                                      203 215 SRCUDT
     I                                      216 225 CRTUSR
     I                                      226 233 CRTSYS
     I                                      234 242 SYSLVL
     I                                      243 258 COMPIL
     I                                      259 266 OBJLVL
     I                                      267 267 USRCHG
     I                                      268 283 LICPGM
     I                                      284 293 PTF
     I                                      294 303 APAR
     I                                      304 324 RSVD2
     I                                      325 332 OBJSDT
     I                                      333 340 OBJRDT
     I                                    B 341 3440SAVSIZ
     I                                    B 345 3480SVSZMT
     I                                    B 349 3520SVSQNR
     I                                      353 362 SAVCMD
     I                                      363 433 SVVLID
     I                                      434 443 SAVDEV
     I                                      444 453 SAVFN
     I                                      454 463 SAVLIB


|    Changer de couleur
     I                                      464 480 SAVLBL
     I                                      481 488 SAVACT
     I                                      489 532 RSVD3
     I                                      533 540 USEDT
     I                                      541 548 RSTDT
     I                                    B 549 5520USECNT
     I                                      553 553 USEIUP
     I                                      554 576 RSVD4
      ****************************************************************
      *                                                              *
      * API:  QUSLOBJ                                                *
      * Format:  OBJL0700                                            *
      *                                                              *
      ****************************************************************
       01 OBJL0700-INPUT.
           05 USER-SPACE.
               10 SPACE-NAME                 PIC X(10).
               10 LIBRARY                    PIC X(10).
           05 FORMAT-SPECIFIED               PIC X(08).
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).


|    Changer de couleur
       01 OBJL0700-HEADER.
           05 OBJECT-NAME-RETURNED           PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 OBJECT-TYPE-RETURNED           PIC X(10).
       01 OBJL0700-LIST.
           05 OBJECT-NAME                    PIC X(10).
           05 OBJECT-LIBRARY                 PIC X(10).
           05 OBJECT-TYPE                    PIC X(10).
           05 INFO-STATUS                    PIC X(1).
           05 EXTENDED-OBJECT-ATTRIBUTE      PIC X(10).
           05 TEXT-DESCRIPTION               PIC X(50).
           05 USER-DEFINED-ATTRIBUTE         PIC X(10).
           05 RESERVED                       PIC X(7).
           05 AUXILIARY-STORAGE-POOL         PIC S9(9) COMP-4.
           05 OBJECT-OWNER                   PIC X(10).
           05 OBJECT-DOMAIN                  PIC X(2).
           05 CREATION-DATE-TIME             PIC X(8).
           05 CHANGE-DATE-TIME               PIC X(8).
           05 STORAGE                        PIC X(10).
           05 OBJECT-COMPRESSION-STATUS      PIC X(1).
           05 ALLOW-CHANGE-PGM               PIC X(1).
           05 CHANGED-BY-PGM                 PIC X(1).


|    Changer de couleur
           05 RESERVED1                      PIC X(19).
           05 SOURCE-FILE-NAME               PIC X(10).
           05 SOURCE-LIBRARY-NAME            PIC X(10).
           05 SOURCE-MEMBER-NAME             PIC X(10).
           05 SOURCE-UPDATED-DATE-TIME       PIC X(13).
           05 CREATORS-USER-PROFILE          PIC X(10).
           05 SYSTEM-WHERE-CREATED           PIC X(8).
           05 SYSTEM-LEVEL                   PIC X(9).
           05 COMPILER                       PIC X(16).
           05 OBJECT-LEVEL                   PIC X(8).
           05 USER-CHANGED                   PIC X(1).
           05 LICENSED-PROGRAM               PIC X(16).
           05 PTF                            PIC X(10).
           05 APAR                           PIC X(10).
           05 RESERVED2                      PIC X(21).
           05 OBJECT-SAVED-DATE-TIME         PIC X(8).
           05 OBJECT-RESTORED-DATE-TIME      PIC X(8).
           05 SAVE-SIZE                      PIC S9(9) COMP-4.
           05 SAVE-SIZE-MULTIPLIER           PIC S9(9) COMP-4.
           05 SAVE-SEQUENCE-NUMBER           PIC S9(9) COMP-4.
           05 SAVE-COMMAND                   PIC X(10).
           05 SAVE-VOLUME-ID                 PIC X(71).


|    Changer de couleur
           05 SAVE-DEVICE                    PIC X(10).
           05 SAVE-FILE-NAME                 PIC X(10).
           05 SAVE-LIBRARY-NAME              PIC X(10).
           05 SAVE-LABEL                     PIC X(17).
           05 SAVE-ACTIVE-DATE-TIME          PIC X(8).
           05 RESERVED3                      PIC X(44).
           05 LAST-USED-DATE-TIME            PIC X(8).
           05 RESET-DATE-TIME                PIC X(8).
           05 DAYS-USED-COUNT                PIC S9(9) COMP-4.
           05 USAGE-INFORMATION-UPDATED      PIC X(1).
           05 RESERVED4                      PIC X(23).
           05 OBJECT-SIZE                    PIC S9(9) COMP-4.
           05 OBJECT-SIZE-MULTIPLIER         PIC S9(9) COMP-4.
           05 OBJECT-OVERFLOW-ASP            PIC X(1).
     I****************************************************************
     IINPUT       DS
     I                                        1  20 USRSPC
     I                                        1  10 SPCNAM
     I                                       11  20 SPCLIB
     I                                       21  28 FMTNAM
     I                                       29  48 OBJLII
     I                                       29  38 OBJNMI


|    Changer de couleur
     I                                       39  48 LIBNMI
     I                                       49  58 OBJTYI
     IHEADER      DS
     I                                        1  20 OBJLIH
     I                                        1  10 OBJNMH
     I                                       11  20 LIBNMH
     I                                       21  30 OBJTYH
     ILIST        DS
     I                                        1  20 OBJLIL
     I                                        1  10 OBJNML
     I                                       11  20 LIBNML
     I                                       21  30 OBJTYL
     I                                       31  31 INFSTS
     I                                       32  41 OBJATR
     I                                       42  91 TXTDSC
     I                                       92 101 USRDAT
     I                                      102 108 RSVD
     I                                    B 109 1120AUXSTR
     I                                      113 122 OBJOWN
     I                                      123 124 OBJDMN
     I                                      125 132 CRTDT
     I                                      133 140 CHGDT


|    Changer de couleur
     I                                      141 150 STORAG
     I                                      151 151 OBJCMP
     I                                      152 152 ALWCHG
     I                                      153 153 CHGPGM
     I                                      154 172 RSVD1
     I                                      173 182 SRCFIL
     I                                      183 192 SRCLIB
     I                                      193 202 SRCMBR
     I                                      203 215 SRCUDT
     I                                      216 225 CRTUSR
     I                                      226 233 CRTSYS
     I                                      234 242 SYSLVL
     I                                      243 258 COMPIL
     I                                      259 266 OBJLVL
     I                                      267 267 USRCHG
     I                                      268 283 LICPGM
     I                                      284 293 PTF
     I                                      294 303 APAR
     I                                      304 324 RSVD2
     I                                      325 332 OBJSDT
     I                                      333 340 OBJRDT
     I                                    B 341 3440SAVSIZ


|    Changer de couleur
     I                                    B 345 3480SVSZMT
     I                                    B 349 3520SVSQNR
     I                                      353 362 SAVCMD
     I                                      363 433 SVVLID
     I                                      434 443 SAVDEV
     I                                      444 453 SAVFN
     I                                      454 463 SAVLIB
     I                                      464 480 SAVLBL
     I                                      481 488 SAVACT
     I                                      489 532 RSVD3
     I                                      533 540 USEDT
     I                                      541 548 RSTDT
     I                                    B 549 5520USECNT
     I                                      553 553 USEIUP
     I                                      554 576 RSVD4
     I                                    B 577 5800OBJSIZ
     I                                    B 581 5840OJSZMT
     I                                      585 585 OVFASP




©AF400