Retrouve infos sur un sous-système

BoTTom |    Changer de couleur
      ****************************************************************
      *                                                              *
      * API:  QWDRSBSD                                               *
      * Format:  SBSI0100                                            *
      *                                                              *
      ****************************************************************
       01 SBSI0100-RCVVAR.
           05 BYTES-RETURNED                 PIC S9(9) COMP-4.
           05 BYTES-AVAILABLE                PIC S9(9) COMP-4.
           05 SBSD-NAME                      PIC X(10).
           05 SBSD-LIBRARY                   PIC X(10).
           05 SBS-STATUS                     PIC X(10).
           05 SIGN-ON-DEVICE-FILE-NAME       PIC X(10).
           05 SIGN-ON-DEVICE-FILE-LIBRARY    PIC X(10).
           05 SECONDARY-LANGUAGE-LIBRARY     PIC X(10).
           05 MAX-ACTIVE-JOBS                PIC S9(9) COMP-4.
           05 CURRENTLY-ACTIVE-JOBS          PIC S9(9) COMP-4.
           05 NUMBER-OF-STORAGE-POOLS        PIC S9(9) COMP-4.
           05 POOL-INFO   OCCURS 10 TIMES.
               10 POOL-ID                    PIC S9(9) COMP-4.
               10 POOL-NAME                  PIC X(10).
               10 RESERVED                   PIC X(6).


|    Changer de couleur
               10 POOL-SIZE                  PIC S9(9) COMP-4.
               10 POOL-ACTIVITY-LEVEL        PIC S9(9) COMP-4.
      ****************************************************************
     IRCVVAR      DS
     I                                    B   1   40BYTRTN
     I                                    B   5   80BYTAVL
     I                                        9  18 SBSDNM
     I                                       19  28 SBSDLB
     I                                       29  38 SBSDST
     I                                       39  48 SODFNM
     I                                       49  58 SODFLB
     I                                       59  68 SLNGLB
     I                                    B  69  720MAXJOB
     I                                    B  73  760CURJOB
     I                                    B  77  800STGPL£
     I                                    B  81  840PLID01
     I                                       85  94 PLNM01
     I                                       95 100 RESV01
     I                                    B 101 1040PLSZ01
     I                                    B 105 1080PLAC01
     I                                    B 109 1120PLID02
     I                                      113 122 PLNM02


|    Changer de couleur
     I                                      123 128 RESV02
     I                                    B 129 1320PLSZ02
     I                                    B 133 1360PLAC02
     I                                    B 137 1400PLID03
     I                                      141 150 PLNM03
     I                                      149 156 RESV03
     I                                    B 157 1600PLSZ03
     I                                    B 161 1640PLAC03
     I                                    B 165 1680PLID04
     I                                      169 178 PLNM04
     I                                      179 184 RESV04
     I                                    B 185 1880PLSZ04
     I                                    B 189 1920PLAC04
     I                                    B 193 1960PLID05
     I                                      197 206 PLNM05
     I                                      207 212 RESV05
     I                                    B 211 2160PLSZ05
     I                                    B 217 2200PLAC05
     I                                    B 221 2240PLID06
     I                                      225 234 PLNM06
     I                                      235 240 RESV06
     I                                    B 241 2440PLSZ06


|    Changer de couleur
     I                                    B 245 2480PLAC06
     I                                    B 249 2520PLID07
     I                                      253 262 PLNM07
     I                                      263 268 RESV07
     I                                    B 269 2720PLSZ07
     I                                    B 273 2760PLAC07
     I                                    B 277 2800PLID08
     I                                      281 290 PLNM08
     I                                      291 296 RESV08
     I                                    B 297 3000PLSZ08
     I                                    B 301 3040PLAC08
     I                                    B 305 3080PLID09
     I                                      309 318 PLNM09
     I                                      319 324 RESV09
     I                                    B 325 3280PLSZ09
     I                                    B 329 3320PLAC09
     I                                    B 333 3360PLID10
     I                                      337 346 PLNM10
     I                                      347 352 RESV10
     I                                    B 351 3560PLSZ10
     I                                    B 357 3600PLAC10




©AF400