Retrouve infos sur un objet

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * API:  QUSROBJD                                               *
      * FORMAT:  OBJD0100                                            *
      *                                                              *
      ****************************************************************
       01 OBJD0100-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 AUX-STORAGE-POOL               PIC S9(9) COMP-4.
           05 OBJECT-OWNER                   PIC X(10).
           05 OBJECT-DOMAIN                  PIC X(02).
           05 CREATION-DATE                  PIC X(13).
           05 LAST-CHANGED-DATE              PIC X(13).
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL


|    Changer de couleur
     I                                        9  18 OBJNAM
     I                                       19  28 LIBNAM
     I                                       29  38 OBJTYP
     I                                       39  48 RTNLIB
     I                                    B  49  520AUTSP
     I                                       53  62 OBJOWN
     I                                       63  64 OBJDOM
     I                                       65  77 CRTDAT
     I                                       78  90 OBJCHD
      ****************************************************************
      *                                                              *
      * API:  QUSROBJD                                               *
      * FORMAT:  OBJD0200                                            *
      *                                                              *
      ****************************************************************
       01 OBJD0200-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).


|    Changer de couleur
           05 AUX-STORAGE-POOL               PIC S9(9) COMP-4.
           05 OBJECT-OWNER                   PIC X(10).
           05 OBJECT-DOMAIN                  PIC X(02).
           05 CREATION-DATE                  PIC X(13).
           05 LAST-CHANGED-DATE              PIC X(13).
           05 EXTENDED-ATTRIBUTE             PIC X(10).
           05 OBJECT-TEXT                    PIC X(50).
           05 SOURCE-FILE-NAME               PIC X(10).
           05 SOURCE-FILE-LIBRARY            PIC X(10).
           05 SOURCE-FILE-MEMBER             PIC X(10).
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  18 OBJNAM
     I                                       19  28 LIBNAM
     I                                       29  38 OBJTYP
     I                                       39  48 RTNLIB
     I                                    B  49  520AUTSP
     I                                       53  62 OBJOWN
     I                                       63  64 OBJDOM
     I                                       65  77 CRTDAT


|    Changer de couleur
     I                                       78  90 OBJCHD
     I                                       91 100 EXTATR
     I                                      101 150 TXTDES
     I                                      151 160 SRCFNM
     I                                      161 170 SRCFLB
     I                                      171 180 SRCFMB
      ****************************************************************
      *                                                              *
      * API:  QUSROBJD                                               *
      * FORMAT:  OBJD0300                                            *
      *                                                              *
      ****************************************************************
       01 OBJD0300-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 AUX-STORAGE-POOL               PIC S9(9) COMP-4.
           05 OBJECT-OWNER                   PIC X(10).
           05 OBJECT-DOMAIN                  PIC X(02).


|    Changer de couleur
           05 CREATION-DATE                  PIC X(13).
           05 LAST-CHANGED-DATE              PIC X(13).
           05 EXTENDED-ATTRIBUTE             PIC X(10).
           05 OBJECT-TEXT                    PIC X(50).
           05 SOURCE-FILE-NAME               PIC X(10).
           05 SOURCE-FILE-LIBRARY            PIC X(10).
           05 SOURCE-FILE-MEMBER             PIC X(10).
           05 LAST-SOURCE-CHANGE-DATE        PIC X(13).
           05 LAST-SAVED-DATE                PIC X(13).
           05 LAST-RESTORED-DATE             PIC X(13).
           05 CREATOR-NAME                   PIC X(10).
           05 CREATION-SYSTEM                PIC X(08).
           05 USAGE-RESET-DATE               PIC X(07).
           05 SAVE-SIZE                      PIC S9(9) COMP-4.
           05 SAVE-SEQUENCE                  PIC S9(9) COMP-4.
           05 STORAGE-SIZE                   PIC X(10).
           05 SAVE-COMMAND                   PIC X(10).
           05 SAVE-VOLUME-ID                 PIC X(71).
           05 SAVE-DEVICE-NAME               PIC X(10).
           05 SAVE-FILE-NAME                 PIC X(10).
           05 SAVE-FILE-LIBRARY              PIC X(10).
           05 SAVE-LABEL                     PIC X(17).


|    Changer de couleur
           05 SYSTEM-LEVEL                   PIC X(09).
           05 COMPILER                       PIC X(16).
           05 OBJECT-LEVEL                   PIC X(08).
           05 USER-CHANGED                   PIC X(01).
           05 LICENSED-PROGRAM               PIC X(16).
           05 PTF-ID                         PIC X(10).
           05 APAR-ID                        PIC X(10).
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  18 OBJNAM
     I                                       19  28 LIBNAM
     I                                       29  38 OBJTYP
     I                                       39  48 RTNLIB
     I                                    B  49  520AUTSP
     I                                       53  62 OBJOWN
     I                                       63  64 OBJDOM
     I                                       65  77 CRTDAT
     I                                       78  90 OBJCHD
     I                                       91 100 EXTATR
     I                                      101 150 TXTDES


|    Changer de couleur
     I                                      151 160 SRCFNM
     I                                      161 170 SRCFLB
     I                                      171 180 SRCFMB
     I                                      181 193 SRCFUP
     I                                      194 206 OBJSVD
     I                                      207 219 OBJRSD
     I                                      220 229 CRTOR
     I                                      230 237 SYSCRT
     I                                      238 244 RSETDT
     I                                    B 245 2480SAVSIZ
     I                                    B 249 2520SAVSEQ
     I                                      253 262 STGAMT
     I                                      263 272 SAVCMD
     I                                      273 343 SAVVID
     I                                      344 353 SAVDEV
     I                                      354 363 SAVFNM
     I                                      364 373 SAVFLB
     I                                      374 390 SAVLBL
     I                                      391 399 SYSLVL
     I                                      400 415 COMPL
     I                                      416 423 OBJLVL
     I                                      424 424 USRCHG


|    Changer de couleur
     I                                      425 440 LICPGM
     I                                      441 450 PTF
     I                                      451 460 APAR
      ****************************************************************
      *                                                              *
      * API:  QUSROBJD                                               *
      * FORMAT:  OBJD0400                                            *
      *                                                              *
      ****************************************************************
       01 OBJD0400-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 OBJECT-NAME-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-SPECIFIED           PIC X(10).
           05 OBJECT-TYPE-SPECIFIED          PIC X(10).
           05 OBJECT-LIB-RETURNED            PIC X(10).
           05 AUX-STORAGE-POOL               PIC S9(9) COMP-4.
           05 OBJECT-OWNER                   PIC X(10).
           05 OBJECT-DOMAIN                  PIC X(02).
           05 CREATION-DATE                  PIC X(13).
           05 LAST-CHANGED-DATE              PIC X(13).
           05 EXTENDED-ATTRIBUTE             PIC X(10).


|    Changer de couleur
           05 OBJECT-TEXT                    PIC X(50).
           05 SOURCE-FILE-NAME               PIC X(10).
           05 SOURCE-FILE-LIBRARY            PIC X(10).
           05 SOURCE-FILE-MEMBER             PIC X(10).
           05 LAST-SOURCE-CHANGE-DATE        PIC X(13).
           05 LAST-SAVED-DATE                PIC X(13).
           05 LAST-RESTORED-DATE             PIC X(13).
           05 CREATOR-NAME                   PIC X(10).
           05 CREATION-SYSTEM                PIC X(08).
           05 USAGE-RESET-DATE               PIC X(07).
           05 SAVE-SIZE                      PIC S9(9) COMP-4.
           05 SAVE-SEQUENCE                  PIC S9(9) COMP-4.
           05 STORAGE                        PIC X(10).
           05 SAVE-COMMAND                   PIC X(10).
           05 SAVE-VOLUME-ID                 PIC X(71).
           05 SAVE-DEVICE-NAME               PIC X(10).
           05 SAVE-FILE-NAME                 PIC X(10).
           05 SAVE-FILE-LIBRARY              PIC X(10).
           05 SAVE-LABEL                     PIC X(17).
           05 SYSTEM-LEVEL                   PIC X(09).
           05 COMPILER                       PIC X(16).
           05 OBJECT-LEVEL                   PIC X(08).


|    Changer de couleur
           05 USER-CHANGED                   PIC X(01).
           05 LICENSED-PROGRAM               PIC X(16).
           05 PTF-ID                         PIC X(10).
           05 APAR-ID                        PIC X(10).
           05 LAST-USAGE-DATE                PIC X(07).
           05 USAGE-UPDATED                  PIC X(01).
           05 USAGE-COUNT                    PIC S9(9) COMP-4.
           05 OBJECT-SIZE                    PIC S9(9) COMP-4.
           05 SIZE-MULTIPLIER                PIC S9(9) COMP-4.
           05 COMPRESS                       PIC X(01).
           05 ALLOW-CHANGE-PGM               PIC X(01).
           05 CHANGED-BY-PGM                 PIC X(01).
           05 USER-DEFINED-ATTRIBUTE         PIC X(10).
           05 OBJECT-OVERFLOW-ASP            PIC X(01).
           05 SAVE-ACTIVE-DATE-TIME          PIC X(13).
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTVAL
     I                                        9  18 OBJNAM
     I                                       19  28 LIBNAM
     I                                       29  38 OBJTYP


|    Changer de couleur
     I                                       39  48 RTNLIB
     I                                    B  49  520AUTSP
     I                                       53  62 OBJOWN
     I                                       63  64 OBJDOM
     I                                       65  77 CRTDAT
     I                                       78  90 OBJCHD
     I                                       91 100 EXTATR
     I                                      101 150 TXTDES
     I                                      151 160 SRCFNM
     I                                      161 170 SRCFLB
     I                                      171 180 SRCFMB
     I                                      181 193 SRCFUP
     I                                      194 206 OBJSVD
     I                                      207 219 OBJRSD
     I                                      220 229 CRTOR
     I                                      230 237 SYSCRT
     I                                      238 244 RSETDT
     I                                    B 245 2480SAVSIZ
     I                                    B 249 2520SAVSEQ
     I                                      253 262 STGAMT
     I                                      263 272 SAVCMD
     I                                      273 343 SAVVID


|    Changer de couleur
     I                                      344 353 SAVDEV
     I                                      354 363 SAVFNM
     I                                      364 373 SAVFLB
     I                                      374 390 SAVLBL
     I                                      391 399 SYSLVL
     I                                      400 415 COMPL
     I                                      416 423 OBJLVL
     I                                      424 424 USRCHG
     I                                      425 440 LICPGM
     I                                      441 450 PTF
     I                                      451 460 APAR
     I                                      461 467 USGDAT
     I                                      468 468 USGUPD
     I                                    B 469 4720USECNT
     I                                    B 473 4760BJSIZ
     I                                    B 477 4800SIZMLT
     I                                      481 481 COMPRE
     I                                      482 482 ALWCHG
     I                                      483 483 CHGPGM
     I                                      484 493 USRDAT
     I                                      494 494 OVFASP
     I                                      495 508 SAVACT





©AF400