Renvoie infos sur un programme

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * API:  QCLRPGMI                                               *
      * FORMAT:  PGMI0100                                            *
      *                                                              *
      ****************************************************************
       01 PGMI0100-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 PROGRAM-NAME                   PIC X(10).
           05 PROGRAM-LIBRARY                PIC X(10).
           05 PROGRAM-OWNER                  PIC X(10).
           05 PROGRAM-ATTRIBUTE              PIC X(10).
           05 CREATION-DATE-TIME             PIC X(13).
           05 SOURCE-FILE-NAME               PIC X(10).
           05 SOURCE-FILE-LIBRARY            PIC X(10).
           05 SOURCE-FILE-MEMBER             PIC X(10).
           05 SOURCE-FILE-UPDATE-DATE-TIME   PIC X(13).
           05 OBSERVABLE-INFORMATION         PIC X(01).
           05 USER-PROFILE-OPTION            PIC X(01).
           05 USE-ADOPTED-AUTHORITY          PIC X(01).
           05 LOG-COMMANDS                   PIC X(01).


|    Changer de couleur
           05 ALLOW-RTVCLSRC                 PIC X(01).
           05 FIX-DECIMAL-DATA               PIC X(01).
           05 TEXT-DESCRIPTION               PIC X(50).
           05 RESERVED1                      PIC X(60).
           05 MINIMUM-PARAMETERS             PIC S9(9) COMP-4.
           05 MAXIMUM-PARAMETERS             PIC S9(9) COMP-4.
           05 PROGRAM-SIZE                   PIC S9(9) COMP-4.
           05 ASSOCIATED-SPACE-SIZE          PIC S9(9) COMP-4.
           05 STATIC-STORAGE-SIZE            PIC S9(9) COMP-4.
           05 AUTOMATIC-STORAGE-SIZE         PIC S9(9) COMP-4.
           05 NUMBER-MI-INSTRUCTIONS         PIC S9(9) COMP-4.
           05 NUMBER-MI-ODT-ENTRIES          PIC S9(9) COMP-4.
           05 PROGRAM-STATE                  PIC X(01).
           05 COMPILER-IDENTIFICATION        PIC X(14).
           05 TARGET-RELEASE                 PIC X(06).
           05 RESERVED2                      PIC X(52).
           05 OPTIMIZATION                   PIC X(01).
           05 PAGING-POOL                    PIC X(01).
           05 UPDATE-PASA                    PIC X(01).
           05 CLEAR-PASA                     PIC X(01).
           05 PAGING-AMOUNT                  PIC X(01).
           05 RESERVED3                      PIC X(18).


|    Changer de couleur
  *V2R30
           05 PGM-ENTRY-PROCEDURE-MODULE     PIC X(10).
           05 PGM-ENTRY-PROCEDURE-LIBRARY    PIC X(10).
           05 ACTIVATION-GROUP-ATTRIBUTE     PIC X(30).
           05 OBSERVABLE-INFO-COMPRESSED     PIC X(01).
           05 RUNTIME-INFO-COMPRESSED        PIC X(01).
           05 RELEASE-CREATED-ON             PIC X(06).
           05 RESERVED4                      PIC X(02).
           05 CCSID                          PIC S9(9) COMP-4.
           05 NUMBER-OF-MODULES              PIC S9(9) COMP-4.
           05 NUMBER-OF-SERVICE-PROGRAMS     PIC S9(9) COMP-4.
           05 NUMBER-OF-COPYRIGHTS           PIC S9(9) COMP-4.
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTAVA
     I                                        9  18 PGMNAM
     I                                       19  28 PGMLIB
     I                                       29  38 PGMOWN
     I                                       39  48 PGMATT
     I                                       49  61 CRTDT
     I                                       62  71 SRCNAM


|    Changer de couleur
     I                                       72  81 SRCLIB
     I                                       82  91 SRCMEM
     I                                       92 104 SRCUDT
     I                                      105 105 OBSINF
     I                                      106 106 USRPRF
     I                                      107 107 ADPAUT
     I                                      108 108 LOGCMD
     I                                      109 109 ALWRTV
     I                                      110 110 FIXDD
     I                                      111 160 TXTDES
     I                                      161 220 RESER1
     I                                    B 221 2240MINPAR
     I                                    B 225 2280MAXPAR
     I                                    B 229 2320PGMSIZ
     I                                    B 233 2360SPCSIZ
     I                                    B 237 2400STASTO
     I                                    B 241 2440AUTSTO
     I                                    B 245 2480NMIINS
     I                                    B 249 2520NMIODT
     I                                      253 253 PGMSTA
     I                                      254 267 COMPID
     I                                      268 273 TGTRLS


|    Changer de couleur
     I                                      274 325 RESER2
     I                                      326 326 OPTIM
     I                                      327 327 PAGPOL
     I                                      328 328 UPDPAS
     I                                      329 329 CLRPAS
     I                                      330 330 PAGAMT
     I                                      331 348 RESER3
      *V2R30
     I                                      349 358 PEPMOD
     I                                      359 368 PEPLIB
     I                                      369 398 ACTGRP
     I                                      399 399 OBSCMP
     I                                      400 400 RTMCMP
     I                                      401 406 CRTRLS
     I                                      407 408 RESER4
     I                                    B 409 4120CCSID
     I                                    B 413 4160NBRMOD
     I                                    B 417 4200NBRSRV
     I                                    B 421 4240NBRCPR
      ****************************************************************
      *                                                              *
      * API:  QCLRPGMI                                               *


|    Changer de couleur
      * FORMAT:  PGMI0200                                            *
      *                                                              *
      ****************************************************************
       01 PGMI0200-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 PROGRAM-NAME                   PIC X(10).
           05 PROGRAM-LIBRARY                PIC X(10).
           05 PROGRAM-OWNER                  PIC X(10).
           05 PROGRAM-ATTRIBUTE              PIC X(10).
           05 CREATION-DATE-TIME             PIC X(13).
           05 SOURCE-FILE-NAME               PIC X(10).
           05 SOURCE-FILE-LIBRARY            PIC X(10).
           05 SOURCE-FILE-MEMBER             PIC X(10).
           05 SOURCE-FILE-UPDATE-DATE-TIME   PIC X(13).
           05 OBSERVABLE-INFORMATION         PIC X(01).
           05 USER-PROFILE-OPTION            PIC X(01).
           05 USE-ADOPTED-AUTHORITY          PIC X(01).
           05 LOG-COMMANDS                   PIC X(01).
           05 ALLOW-RTVCLSRC                 PIC X(01).
           05 FIX-DECIMAL-DATA               PIC X(01).
           05 TEXT-DESCRIPTION               PIC X(50).


|    Changer de couleur
           05 RESERVED1                      PIC X(60).
           05 MINIMUM-PARAMETERS             PIC S9(9) COMP-4.
           05 MAXIMUM-PARAMETERS             PIC S9(9) COMP-4.
           05 PROGRAM-SIZE                   PIC S9(9) COMP-4.
           05 ASSOCIATED-SPACE-SIZE          PIC S9(9) COMP-4.
           05 STATIC-STORAGE-SIZE            PIC S9(9) COMP-4.
           05 AUTOMATIC-STORAGE-SIZE         PIC S9(9) COMP-4.
           05 NUMBER-MI-INSTRUCTIONS         PIC S9(9) COMP-4.
           05 NUMBER-MI-ODT-ENTRIES          PIC S9(9) COMP-4.
           05 PROGRAM-STATE                  PIC X(01).
           05 COMPILER-IDENTIFICATION        PIC X(14).
           05 TARGET-RELEASE                 PIC X(06).
           05 RESERVED2                      PIC X(52).
           05 OPTIMIZATION                   PIC X(01).
           05 PAGING-POOL                    PIC X(01).
           05 UPDATE-PASA                    PIC X(01).
           05 CLEAR-PASA                     PIC X(01).
           05 PAGING-AMOUNT                  PIC X(01).
           05 RESERVED3                      PIC X(18).
           05 NUMBER-SQL-STATEMENTS          PIC S9(9) COMP-4.
           05 RELATIONAL-DATABASE            PIC X(18).
           05 COMMITMENT-CONTROL             PIC X(10).


|    Changer de couleur
           05 ALLOW-COPY-DATA                PIC X(10).
           05 CLOSE-SQL-CURSORS              PIC X(10).
           05 NAMING-CONVENTION              PIC X(10).
           05 DATE-FORMAT                    PIC X(10).
           05 DATE-SEPARATOR                 PIC X(01).
           05 TIME-FORMAT                    PIC X(10).
           05 TIME-SEPARATOR                 PIC X(01).
           05 DELAY-PREPARE                  PIC X(10).
           05 ALLOW-BLOCKING                 PIC X(10).
    * V2R30
           05 PGM-ENTRY-PROCEDURE-MODULE     PIC X(10).
           05 PGM-ENTRY-PROCEDURE-LIBRARY    PIC X(10).
           05 ACTIVATION-GROUP-ATTRIBUTE     PIC X(30).
           05 OBSERVABLE-INFO-COMPRESSED     PIC X(01).
           05 RUNTIME-INFO-COMPRESSED        PIC X(01).
           05 RELEASE-CREATED-ON             PIC X(06).
           05 RESERVED4                      PIC X(02).
           05 CCSID                          PIC S9(9) COMP-4.
           05 NUMBER-OF-MODULES              PIC S9(9) COMP-4.
           05 NUMBER-OF-SERVICE-PROGRAMS     PIC S9(9) COMP-4.
           05 NUMBER-OF-COPYRIGHTS           PIC S9(9) COMP-4.
     I****************************************************************


|    Changer de couleur
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTAVA
     I                                        9  18 PGMNAM
     I                                       19  28 PGMLIB
     I                                       29  38 PGMOWN
     I                                       39  48 PGMATT
     I                                       49  61 CRTDT
     I                                       62  71 SRCNAM
     I                                       72  81 SRCLIB
     I                                       82  91 SRCMEM
     I                                       92 104 SRCUDT
     I                                      105 105 OBSINF
     I                                      106 106 USRPRF
     I                                      107 107 ADPAUT
     I                                      108 108 LOGCMD
     I                                      109 109 ALWRTV
     I                                      110 110 FIXDD
     I                                      111 160 TXTDES
     I                                      161 220 RESER1
     I                                    B 221 2240MINPAR
     I                                    B 225 2280MAXPAR


|    Changer de couleur
     I                                    B 229 2320PGMSIZ
     I                                    B 233 2360SPCSIZ
     I                                    B 237 2400STASTO
     I                                    B 241 2440AUTSTO
     I                                    B 245 2480NMIINS
     I                                    B 249 2520NMIODT
     I                                      253 253 PGMSTA
     I                                      254 267 COMPID
     I                                      268 273 TGTRLS
     I                                      274 325 RESER2
     I                                      326 326 OPTIM
     I                                      327 327 PAGPOL
     I                                      328 328 UPDPAS
     I                                      329 329 CLRPAS
     I                                      330 330 PAGAMT
     I                                      331 348 RESER3
     I                                    B 349 3520NSQLST
     I                                      353 370 RELDAT
     I                                      371 380 COMCTL
     I                                      381 390 ALWCPY
     I                                      391 400 CLOSQL
     I                                      401 410 NAMCVT


|    Changer de couleur
     I                                      411 420 DATFMT
     I                                      421 421 DATSEP
     I                                      422 431 TIMFMT
     I                                      432 432 TIMSEP
     I                                      433 442 DELPRE
     I                                      443 452 ALWBLK
      *V2R30
     I                                      453 462 PEPMOD
     I                                      463 472 PEPLIB
     I                                      473 502 ACTGRP
     I                                      503 503 OBSCMP
     I                                      504 504 RTMCMP
     I                                      505 510 CRTRLS
     I                                      511 512 RESER4
     I                                    B 513 5160CCSID
     I                                    B 517 5200NBRMOD
     I                                    B 521 5240NBRSRV
     I                                    B 525 5280NBRCPR
      ****************************************************************
      *                                                              *
      * API:  QCLRPGMI                                               *
      * FORMAT:  PGMI0300 (V2R30)                                    *


|    Changer de couleur
      *                                                              *
      ****************************************************************
       01 PGMI0300-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 PGM-NAME                       PIC X(10).
           05 PGM-LIBRARY                    PIC X(10).
           05 CUR-PGM-SIZE                   PIC S9(9) COMP-4.
           05 MAX-PGM-SIZE                   PIC S9(9) COMP-4.
           05 CUR-NBR-MODULES                PIC S9(9) COMP-4.
           05 MAX-NBR-MODULES                PIC S9(9) COMP-4.
           05 CUR-NBR-SRVPGM                 PIC S9(9) COMP-4.
           05 MAX-NBR-SRVPGM                 PIC S9(9) COMP-4.
           05 CUR-STRING-DIR-SIZE            PIC S9(9) COMP-4.
           05 MAX-STRING-DIR-SIZE            PIC S9(9) COMP-4.
           05 CUR-COPYRIGHT-SIZE             PIC S9(9) COMP-4.
           05 MAX-COPYRIGHT-SIZE             PIC S9(9) COMP-4.
           05 CUR-AUXILIARY-STORAGE          PIC S9(9) COMP-4.
           05 MAX-AUXILIARY-STORAGE          PIC S9(9) COMP-4.
           05 MIN-STATIC-STORAGE             PIC S9(9) COMP-4.
           05 MAX-STATIC-STORAGE             PIC S9(9) COMP-4.
     I****************************************************************


|    Changer de couleur
     IPGMI03      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTAVA
     I                                        9  18 PGMNAM
     I                                       19  28 PGMLIB
     I                                    B  29  320PGCSIZ
     I                                    B  33  360PGMSIZ
     I                                    B  37  400NBRMOD
     I                                    B  41  440MAXMOD
     I                                    B  45  480NBRSRV
     I                                    B  49  520MAXSRV
     I                                    B  53  560CRSTDI
     I                                    B  57  600MXSTDI
     I                                    B  61  640CRCRST
     I                                    B  65  680MXCRST
     I                                    B  69  720CRAXST
     I                                    B  73  760MXAXST
     I                                    B  77  800MNSTST
     I                                    B  81  840MXSTST




©AF400