V2R30 Retrouve infos de tunning (= WRKSYSSTS)

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * DATA STRUCTURE FOR API:  QWCRSSTS                            *
      * FORMAT:  SSTS0100                                            *
      * LANGUAGE:  COBOL                                             *
      *                                                              *
      ****************************************************************
       01 SSTS0100-RCVVAR.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 CURRENT-DATE-AND-TIME          PIC X(08).
           05 SYSTEM-NAME                    PIC X(08).
           05 USERS-CURRENTLY-SIGNED-ON      PIC S9(9) COMP-4.
           05 USERS-TEMPORARILY-SIGNED-OFF   PIC S9(9) COMP-4.
           05 USERS-SUSPENDED-BY-SYSREQ      PIC S9(9) COMP-4.
           05 USERS-SUSPENDED-BY-GROUP-JOB   PIC S9(9) COMP-4.
           05 USERS-SIGNED-OFF-WITH-OUTPUT   PIC S9(9) COMP-4.
           05 BATCH-JOBS-WAITING-FOR-MSGS    PIC S9(9) COMP-4.
           05 BATCH-JOBS-RUNNING             PIC S9(9) COMP-4.
           05 BATCH-JOBS-HELD-WHILE-RUNNING  PIC S9(9) COMP-4.
           05 BATCH-JOBS-ENDING              PIC S9(9) COMP-4.
           05 BATCH-JOBS-WAITING-TO-RUN      PIC S9(9) COMP-4.


|    Changer de couleur
           05 BATCH-JOBS-HELD-ON-JOB-QUEUE   PIC S9(9) COMP-4.
           05 BATCH-JOBS-ON-HELD-JOB-QUEUE   PIC S9(9) COMP-4.
           05 BATCH-JOBS-ON-UNASSIGNED-JOBQ  PIC S9(9) COMP-4.
           05 BATCH-JOBS-ENDED-WITH-OUTPUT   PIC S9(9) COMP-4.
     I****************************************************************
     I*                                                              *
     I* DATA STRUCTURE FOR API:  QWCRSSTS                            *
     I* FORMAT:  SSTS0100                                            *
     I* LANGUAGE:  RPG                                               *
     I*                                                              *
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTAVL
     I                                    B   5   80BYTRTN
     I                                        9  16 DATTIM
     I                                       17  24 SYSNAM
     I                                    B  25  280SIGNON
     I                                    B  29  320SGNOFF
     I                                    B  33  360SYSREQ
     I                                    B  37  400GRPJOB
     I                                    B  41  440OFFOUT
     I                                    B  45  480BTJMSG


|    Changer de couleur
     I                                    B  49  520BTJRUN
     I                                    B  53  560BTJHLD
     I                                    B  57  600BTJEND
     I                                    B  61  640BJWAIT
     I                                    B  65  680BJHLDQ
     I                                    B  69  720BJJQHL
     I                                    B  73  760BJUNJQ
     I                                    B  77  800BJENDO
      ****************************************************************
      *                                                              *
      * DATA STRUCTURE FOR API:  QWCRSSTS                            *
      * FORMAT:  SSTS0200                                            *
      * LANGUAGE:  COBOL                                             *
      *                                                              *
      ****************************************************************
       01 SSTS0200-RCVVAR.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 CURRENT-DATE-AND-TIME          PIC X(08).
           05 SYSTEM-NAME                    PIC X(08).
           05 ELAPSED-TIME                   PIC X(06).
           05 RESERVED1                      PIC X(02).


|    Changer de couleur
           05 CPU-USED                       PIC S9(9) COMP-4.
           05 JOBS-IN-SYSTEM                 PIC S9(9) COMP-4.
           05 PERMANENT-ADDRESSES-PERCENT    PIC S9(9) COMP-4.
           05 TEMPORARY-ADDRESSES-PERCENT    PIC S9(9) COMP-4.
           05 SYSTEM-ASP                     PIC S9(9) COMP-4.
           05 PERCENT-SYSTEM-ASP-USED        PIC S9(9) COMP-4.
           05 TOTAL-AUXILIARY-STORAGE        PIC S9(9) COMP-4.
           05 CURRENT-UNPROTECTED-STORAGE    PIC S9(9) COMP-4.
           05 MAXIMUM-UNPROTECTED-STORAGE    PIC S9(9) COMP-4.
     I****************************************************************
     I*                                                              *
     I* DATA STRUCTURE FOR API:  QWCRSSTS                            *
     I* FORMAT:  SSTS0200                                            *
     I* LANGUAGE:  RPG                                               *
     I*                                                              *
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTAVL
     I                                    B   5   80BYTRTN
     I                                        9  16 DATTIM
     I                                       17  24 SYSNAM
     I                                       25  30 ELPTIM


|    Changer de couleur
     I                                       31  32 RESER1
     I                                    B  33  360CPUUSD
     I                                    B  37  400£JOBS
     I                                    B  41  440PRMADR
     I                                    B  45  480TMPADR
     I                                    B  49  520SYSASP
     I                                    B  53  560SASPUS
     I                                    B  57  600AUXSTG
     I                                    B  61  640CUNSTG
     I                                    B  65  680MUNSTG
      ****************************************************************
      *                                                              *
      * DATA STRUCTURE FOR API:  QWCRSSTS                            *
      * FORMAT:  SSTS0300                                            *
      * LANGUAGE:  COBOL                                             *
      *                                                              *
      ****************************************************************
       01 SSTS0300-RCVVAR.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 CURRENT-DATE-AND-TIME          PIC X(08).
           05 SYSTEM-NAME                    PIC X(08).


|    Changer de couleur
           05 ELAPSED-TIME                   PIC X(06).
           05 RESERVED1                      PIC X(02).
           05 NUMBER-OF-POOLS                PIC S9(9) COMP-4.
           05 POOL-INFORMATION-OFFSET        PIC S9(9) COMP-4.
           05 POOL-INFORMATION-LENGTH        PIC S9(9) COMP-4.
           05 POOL-INFORMATION OCCURS 16 TIMES.
              10 NUMBER-OF-POOLS             PIC S9(9) COMP-4.
              10 POOL-SIZE                   PIC S9(9) COMP-4.
              10 RESERVE-SIZE                PIC S9(9) COMP-4.
              10 MAXIMUM-ACTIVE              PIC S9(9) COMP-4.
              10 DATABASE-FAULTS             PIC S9(9) COMP-4.
              10 DATABASE-PAGES              PIC S9(9) COMP-4.
              10 NON-DATABASE-FAULTS         PIC S9(9) COMP-4.
              10 NON-DATABASE-PAGES          PIC S9(9) COMP-4.
              10 ACTIVE-TO-WAIT              PIC S9(9) COMP-4.
              10 WAIT-TO-INELIGIBLE          PIC S9(9) COMP-4.
              10 ACTIVE-TO-INELIGIBLE        PIC S9(9) COMP-4.
              10 POOL-NAME                   PIC X(10).
              10 SUBSYSTEM-NAME              PIC X(10).
              10 SUBSYSTEM-LIBRARY-NAME      PIC X(10).
              10 PAGING-OPTION               PIC X(10).
     I****************************************************************


|    Changer de couleur
     I*                                                              *
     I* DATA STRUCTURE FOR API:  QWCRSSTS                            *
     I* FORMAT:  SSTS0300                                            *
     I* LANGUAGE:  RPG                                               *
     I*                                                              *
     I****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTAVL
     I                                    B   5   80BYTRTN
     I                                        9  16 DATTIM
     I                                       17  24 SYSNAM
     I                                       25  30 ELPTIM
     I                                       31  32 RESER1
     I                                    B  33  360£POOLS
     I                                    B  37  400POOLOF
     I                                    B  41  440POOLLN
     I                                       45 128 POOL1
     I                                      129 212 POOL2
     I                                      213 296 POOL3
     I                                      297 380 POOL4
     I                                      381 464 POOL5
     I                                      465 548 POOL6


|    Changer de couleur
     I                                      549 632 POOL7
     I                                      633 716 POOL8
     I                                      717 800 POOL9
     I                                      801 884 POOL10
     I                                      885 968 POOL11
     I                                      9691052 POOL12
     I                                     10531136 POOL13
     I                                     11371220 POOL14
     I                                     12211304 POOL15
     I                                     13051388 POOL16
     IPOOL        DS
     I                                    B   1   40POOLID
     I                                    B   5   80POOLSZ
     I                                    B   9  120RESSZ
     I                                    B  13  160MAXACT
     I                                    B  17  200DBF
     I                                    B  21  240DFP
     I                                    B  25  280NDBF
     I                                    B  29  320NDBP
     I                                    B  33  360ACTWT
     I                                    B  37  400WTINEL
     I                                    B  41  440ACTINE


|    Changer de couleur
     I                                       45  54 POOLNM
     I                                       55  64 SBSNM
     I                                       65  74 SBSLIB
     I                                       75  84 PAGOPT




©AF400