INCLUDE

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    1

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMERREUR

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

    100      D*                                      Varying length

    200      D*** START HEADER FILE SPECIFICATIONS ****************************                                         98/12/17

    300      D*                                                                                                         98/12/17

    400      D*Header File Name: H/QUSEC                                                                                98/12/17

    500      D*                                                                                                         98/12/17

    600      D*Descriptive Name: Error Code Parameter.                                                                  98/12/17

    700      D*                                                                                                         98/12/17

    800      D*5763-SS1  (C) Copyright IBM Corp. 1994,1994                                                              98/12/17

    900      D*All rights reserved.                                                                                     98/12/17

   1000      D*US Government Users Restricted Rights -                                                                  98/12/17

   1100      D*Use, duplication or disclosure restricted                                                                98/12/17

   1200      D*by GSA ADP Schedule Contract with IBM Corp.                                                              98/12/17

   1300      D*                                                                                                         98/12/17

   1400      D*Licensed Materials-Property of IBM                                                                       98/12/17

   1500      D*                                                                                                         98/12/17

   1600      D*                                                                                                         98/12/17

   1700      D*Description: Include header file for the error code parameter.                                           98/12/17

   1800      D*                                                                                                         98/12/17

   1900      D*Header Files Included: None.                                                                             98/12/17

   2000      D*                                                                                                         98/12/17

   2100      D*Macros List: None.                                                                                       98/12/17

   2200      D*                                                                                                         98/12/17

   2300      D*Structure List: Qus_EC_t                                                                                 98/12/17

   2400      D*                                                                                                         98/12/17

   2500      D*Function Prototype List: None.                                                                           98/12/17

   2600      D*                                                                                                         98/12/17

   2700      D*Change Activity:                                                                                         98/12/17

   2800      D*                                                                                                         98/12/17

   2900      D*CFD List:                                                                                                98/12/17

   3000      D*                                                                                                         98/12/17

   3100      D*FLAG REASON       LEVEL DATE   PGMR      CHANGE DESCRIPTION                                              98/12/17

   3200      D*---- ------------ ----- ------ --------- ----------------------                                          98/12/17

   3300      D*$A0= D2862000     3D10  931201 DPOHLSON: New Include                                                     98/12/17

   3400      D*                                                                                                         98/12/17

   3500      D*End CFD List.                                                                                            98/12/17

   3600      D*                                                                                                         98/12/17

   3700      D*Additional notes about the Change Activity                                                               98/12/17

   3800      D*End Change Activity.                                                                                     98/12/17

   3900      D*** END HEADER FILE SPECIFICATIONS ******************************                                         98/12/17

   4000      D*****************************************************************                                         98/12/17

   4100      D*Record structure for Error Code Parameter                                                                98/12/17

   4200      D****                                                          ***                                         98/12/17

   4300      D*NOTE: The following type definition only defines the fixed                                               98/12/17

   4400      D*   portion of the format.  Verying length field Exception                                                98/12/17

   4500      D*   Data will not be defined here.                                                                        98/12/17

   4600      D*****************************************************************                                         98/12/17

   4700      DQUSEC            DS                                                                                       98/12/17

   4800      D*                                             Qus EC                                                      98/12/17

   4900      D QUSBPRV                 1      4B 0                                                                      08/02/12

   5000      D*                                             Bytes Provided                                              98/12/17

   5100      D QUSBAVL                 5      8B 0                                                                      08/02/12

   5200      D*                                             Bytes Available                                             98/12/17

   5300      D QUSEI                   9     15                                                                         98/12/17

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    2

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMERREUR

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

   5400      D*                                             Exception Id                                                98/12/17

   5500      D QUSERVED               16     16                                                                         98/12/17

   5600      D*                                             Reserved                                                    98/12/17

   5700      D QUSMSGDATA             17    256                                                                         08/02/12

   5800      D*                                                                                                         98/12/17

   5900      D*                                      Varying length                                                     98/12/17

                                  * * * *  F I N  D U  S O U R C E  * * * *

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    1

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMJOBI

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

    100      D******************************************************************

    200      D*Record structure for QUSRJOBI JOBI0200 format

    300      D******************************************************************

    400      DQUSI020000       DS                  BASED(PTR_FMX)                                                       08/03/12

    500      D*                                             Qwc JOBI0200

    600      D QUSBR01                 1      4B 0

    700      D*                                             Bytes Return

    800      D QUSBA01                 5      8B 0

    900      D*                                             Bytes Avail

   1000      D QUSJN03                 9     18

   1100      D*                                             Job Name

   1200      D QUSUN03                19     28

   1300      D*                                             User Name

   1400      D QUSJNBR03              29     34

   1500      D*                                             Job Number

   1600      D QUSIJID01              35     50

   1700      D*                                             Int Job ID

   1800      D QUSJS05                51     60

   1900      D*                                             Job Status

   2000      D QUSJT04                61     61

   2100      D*                                             Job Type

   2200      D QUSJS06                62     62

   2300      D*                                             Job Subtype

   2400      D QUSSN                  63     72

   2500      D*                                             Subsys Name

   2600      D QUSRP01                73     76B 0

   2700      D*                                             Run Priority

   2800      D QUSSPID00              77     80B 0

   2900      D*                                             System Pool ID

   3000      D QUSCPUU00              81     84B 0

   3100      D*                                             CPU Used

   3200      D QUSAIOR                85     88B 0

   3300      D*                                             Aux IO Request

   3400      D QUSIT                  89     92B 0

   3500      D*                                             Interact Trans

   3600      D QUSRT                  93     96B 0

   3700      D*                                             Response Time

   3800      D QUSFT                  97     97

   3900      D*                                             Function Type

   4000      D QUSFN15                98    107

   4100      D*                                             Function Name

   4200      D QUSAJS                108    111

   4300      D*                                             Active Job Stat

   4400      D QUSNDBLW              112    115B 0

   4500      D*                                             Num DBase Lock Wts

   4600      D QUSNIMLW              116    119B 0

   4700      D*                                             Num Internal Mch Lck Wts

   4800      D QUSNDBLW00            120    123B 0

   4900      D*                                             Num Non DBase Lock Wts

   5000      D QUSTDBLW              124    127B 0

   5100      D*                                             Wait Time DBase Lock Wts

   5200      D QUSTIMLW              128    131B 0

   5300      D*                                             Wait Time Internal Mch Lck W

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    2

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMJOBI

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

   5400      D QUSNDBLW01            132    135B 0

   5500      D*                                             Wait Time Non DBase Lock Wts

   5600      D QUSERVED45            136    136

   5700      D*                                             Reserved

   5800      D QUSCSPID              137    140B 0

   5900      D*                                             Current System Pool ID

   6000      D QUSTC01               141    144B 0

   6100      D*                                             Thread Count

   6200      D QUSCPUUL00            145    152U 0

   6300      D*                                             CPU Used Long

   6400      D QUSAIORL              153    160U 0

   6500      D*                                             Aux IO Request Long

   6600      D QUSUUDBL              161    168U 0

   6700      D*                                             CPU Used DB Long

   6800      D QUSPFL                169    176U 0

   6900      D*                                             Page Faults Long

   7000      D QUSAJSEJ              177    180

   7100      D*                                             Active Job Stat Ending Jobs

   7200      D QUSMPN                181    190

   7300      D*                                             Memory Pool Name

   7400      D QUSMR01               191    191

   7500      D*                                             Message Reply

                                  * * * *  F I N  D U  S O U R C E  * * * *

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    1

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMMBRLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

    100      D*** START HEADER FILE SPECIFICATIONS ******************************                                       01/07/13

    200      D*                                                                                                         01/07/13

    300      D*Header File Name: H/QUSLMBR                                                                              01/07/13

    400      D*                                                                                                         01/07/13

    500      D*Descriptive Name: List Database File Members                                                             01/07/13

    600      D*                                                                                                         01/07/13

    700      D*5716-SS1  (C) Copyright IBM Corp. 1994,1996                                                              01/07/13

    800      D*All rights reserved.                                                                                     01/07/13

    900      D*US Government Users Restricted Rights -                                                                  01/07/13

   1000      D*Use, duplication or disclosure restricted                                                                01/07/13

   1100      D*by GSA ADP Schedule Contract with IBM Corp.                                                              01/07/13

   1200      D*                                                                                                         01/07/13

   1300      D*Licenced Materials-Property of IBM                                                                       01/07/13

   1400      D*                                                                                                         01/07/13

   1500      D*Description: The List Database File Members API generates a list                                         01/07/13

   1600      D*         of database file members and places the list in a                                               01/07/13

   1700      D*         specified user space.                                                                           01/07/13

   1800      D*                                                                                                         01/07/13

   1900      D*Header Files Included: None.                                                                             01/07/13

   2000      D*                                                                                                         01/07/13

   2100      D*Macros List: None.                                                                                       01/07/13

   2200      D*                                                                                                         01/07/13

   2300      D*Structure List: Qdb_Ldbm_Input_t                                                                         01/07/13

   2400      D*            Qdb_Ldbm_Header_t                                                                            01/07/13

   2500      D*            Qdb_Ldbm_MBRL0100_t                                                                          01/07/13

   2600      D*            Qdb_Ldbm_MBRL0200_t                                                                          01/07/13

   2700      D*            Qdb_Ldbm_MBRL0300_t                                                                          01/07/13

   2800      D*                                                                                                         01/07/13

   2900      D*Function Prototype List: QUSLMBR                                                                         01/07/13

   3000      D*                                                                                                         01/07/13

   3100      D*Change Activity:                                                                                         01/07/13

   3200      D*                                                                                                         01/07/13

   3300      D*CFD List:                                                                                                01/07/13

   3400      D*                                                                                                         01/07/13

   3500      D*FLAG REASON       LEVEL DATE   PGMR     CHANGE DESCRIPTION                                               01/07/13

   3600      D*---- ------------ ----- ------ -------- -------------------------                                        01/07/13

   3700      D*$A0= D2862000     3D10  940316 TIRZAMAN:New Include                                                      01/07/13

   3800      D*$01= P3617143     3D70  960317 45HKRS:  Add MBRL0300                                                     01/07/13

   3900      D*                                                                                                         01/07/13

   4000      D*End CFD List.                                                                                            01/07/13

   4100      D*                                                                                                         01/07/13

   4200      D*Additional notes about the Change Activity                                                               01/07/13

   4300      D*End Change Activity                                                                                      01/07/13

   4400      D*** END HEADER FILE SPECIFICATIONS ********************************                                       01/07/13

   4500      D*******************************************************************                                       01/07/13

   4600      D*Prototype for calling Message Handler API QUSLMBR                                                        01/07/13

   4700      D*******************************************************************                                       01/07/13

   4800      D QUSLMBR         C                   'QUSLMBR'                                                            01/07/13

   4900      D*******************************************************************                                       01/07/13

   5000      D*Type Definition for the Input Parameter Section of the user                                              01/07/13

   5100      D*space in the QUSLMBR API.                                                                                01/07/13

   5200      D*******************************************************************                                       01/07/13

   5300      DQUSQLI00         DS                                                                                       01/07/25

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    2

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMMBRLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

   5400      D*                                             Qdb Ldbm Input                                              01/07/13

   5500      D QUSSPACE00              1     10                                                                         01/07/13

   5600      D*                                             Userspace                                                   01/07/13

   5700      D QUSULIB00              11     20                                                                         01/07/13

   5800      D*                                             Userspace Library                                           01/07/13

   5900      D QUSFN03                21     28                                                                         01/07/13

   6000      D*                                             Format Name                                                 01/07/13

   6100      D QUSFILN00              29     38                                                                         01/07/13

   6200      D*                                             File Name                                                   01/07/13

   6300      D QUSFILLN00             39     48                                                                         01/07/13

   6400      D*                                             File Library Name                                           01/07/13

   6500      D QUSMN                  49     58                                                                         01/07/13

   6600      D*                                             Member Name                                                 01/07/13

   6700      D QUSRRIDE00             59     59                                                                         01/07/13

   6800      D*                                             Override                                                    01/07/13

   6900      D*******************************************************************                                       01/07/13

   7000      D*Type Definition for the Header Section of the user space in the                                          01/07/13

   7100      D*QUSLMBR API.                                                                                             01/07/13

   7200      D*******************************************************************                                       01/07/13

   7300      DQUSQLH00         DS                                                                                       01/07/25

   7400      D*                                             Qdb Ldbm Header                                             01/07/13

   7500      D QUSFILNU00              1     10                                                                         01/07/13

   7600      D*                                             File Name Used                                              01/07/13

   7700      D QUSLIBN00              11     20                                                                         01/07/13

   7800      D*                                             Library Name                                                01/07/13

   7900      D QUSFILA                21     30                                                                         01/07/13

   8000      D*                                             File Attribute                                              01/07/13

   8100      D QUSFILTD               31     80                                                                         01/07/13

   8200      D*                                             File Text Description                                       01/07/13

   8300      D QUSTM                  81     84B 0                                                                      01/07/13

   8400      D*                                             Total Members                                               01/07/13

   8500      D QUSSFIL                85     85                                                                         01/07/13

   8600      D*                                             Source File                                                 01/07/13

   8700      D QUSERVED02             86     88                                                                         01/07/13

   8800      D*                                             Reserved                                                    01/07/13

   8900      D QUSCCSID04             89     92B 0                                                                      01/07/13

   9000      D*                                             File Description CCSID                                      01/07/13

   9100      D*******************************************************************                                       01/07/13

   9200      D*Type Definition for the MBRL0100 format of the userspace in the                                          01/07/13

   9300      D*QUSLMBR API.                                                                                             01/07/13

   9400      D*******************************************************************                                       01/07/13

   9500      DQUSL010000       DS                           BASED(PTR_LST)                                              01/07/25

   9600      D*                                             Qdb Ldbm MBRL0100                                           01/07/13

   9700      D QUSMN00                 1     10                                                                         01/07/13

   9800      D*                                             Member Name                                                 01/07/13

   9900      D*******************************************************************                                       01/07/13

  10000      D*Type Definition for the MBRL0200 format of the userspace in the                                          01/07/13

  10100      D*QUSLBMR API.                                                                                             01/07/13

  10200      D*******************************************************************                                       01/07/13

  10300      DQUSL0200         DS                           BASED(PTR_LST)                                              01/07/25

  10400      D*                                             Qdb Ldbm MBRL0200                                           01/07/13

  10500      D QUSMN01                 1     10                                                                         01/07/13

  10600      D*                                             Member Name                                                 01/07/13

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    3

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMMBRLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  10700      D QUSST                  11     20                                                                         01/07/13

  10800      D*                                             Source Type                                                 01/07/13

  10900      D QUSCDT                 21     33                                                                         01/07/13

  11000      D*                                             Creation Date Time                                          01/07/13

  11100      D QUSLSDT                34     46                                                                         01/07/13

  11200      D*                                             Last Source Date Time                                       01/07/13

  11300      D QUSMD                  47     96                                                                         01/07/13

  11400      D*                                             Member Description                                          01/07/13

  11500      D QUSCCSID05             97    100B 0                                                                      01/07/13

  11600      D*                                             Member Description CCSID                                    01/07/13

  11700      D*******************************************************************                                       01/07/13

  11800      D*Type Definition for the MBRL0300 format of the userspace in the                                          01/07/13

  11900      D*QUSLMBR API.  This format is returned by the API if either                                               01/07/13

  12000      D*MBRL0310, MBRL0320, or MBRL0330 is specified as the format                                               01/07/13

  12100      D*name parameter.                                                                                          01/07/13

  12200      D*******************************************************************                                       01/07/13

  12300      DQUSL030001       DS                           BASED(PTR_LST)                                              01/07/25

  12400      D*                                             Qdb Ldbm MBRL0300                                           01/07/13

  12500      D QUSMN08                 1     10                                                                         01/07/13

  12600      D*                                             Member Name                                                 01/07/13

  12700      D QUSRSV111              11     12                                                                         01/07/13

  12800      D*                                             Reserved 1                                                  01/07/13

  12900      D QUSOM                  13     16B 0                                                                      01/07/13

  13000      D*                                             Offset Mbrd                                                 01/07/13

  13100      D QUSRSV215              17     32                                                                         01/07/13

  13200      D*                                             Reserved 2                                                  01/07/13

                                  * * * *  F I N  D U  S O U R C E  * * * *

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    1

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJD

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

    100      D*** START HEADER FILE SPECIFICATIONS ****************************                                         01/07/13

    200      D*                                                                                                         01/07/13

    300      D*Header File Name: H/QUSROBJD                                                                             01/07/13

    400      D*                                                                                                         01/07/13

    500      D*Descriptive Name: Retrieve Object Description API                                                        01/07/13

    600      D*                                                                                                         01/07/13

    700      D*5763-SS1  (C) Copyright IBM Corp. 1994,1994                                                              01/07/13

    800      D*All rights reserved.                                                                                     01/07/13

    900      D*US Government Users Restricted Rights -                                                                  01/07/13

   1000      D*Use, duplication or disclosure restricted                                                                01/07/13

   1100      D*by GSA ADP Schedule Contract with IBM Corp.                                                              01/07/13

   1200      D*                                                                                                         01/07/13

   1300      D*Licensed Materials-Property of IBM                                                                       01/07/13

   1400      D*                                                                                                         01/07/13

   1500      D*Description: The Retrieve Object Description API lets you                                                01/07/13

   1600      D*          retrieve object information about a specific                                                   01/07/13

   1700      D*          object.                                                                                        01/07/13

   1800      D*                                                                                                         01/07/13

   1900      D*Header Files Included: None.                                                                             01/07/13

   2000      D*                                                                                                         01/07/13

   2100      D*Macros List: None.                                                                                       01/07/13

   2200      D*                                                                                                         01/07/13

   2300      D*Structure List:  Qwc_SSTS0100_t                                                                          01/07/13

   2400      D*              Qwc_SSTS0200_t                                                                             01/07/13

   2500      D*              Qwc_Rssts_Pool_Info_t                                                                      01/07/13

   2600      D*              Qwc_SSTS0300_t                                                                             01/07/13

   2700      D*                                                                                                         01/07/13

   2800      D*Function Prototype List: QUSROBJD                                                                        01/07/13

   2900      D*                                                                                                         01/07/13

   3000      D*Change Activity:                                                                                         01/07/13

   3100      D*                                                                                                         01/07/13

   3200      D*CFD List:                                                                                                01/07/13

   3300      D*                                                                                                         01/07/13

   3400      D*FLAG REASON       LEVEL DATE   PGMR      CHANGE DESCRIPTION                                              01/07/13

   3500      D*---- ------------ ----- ------ --------- ----------------------                                          01/07/13

   3600      D*$A0= D2862000     3D10  940424 ROCH:     New Include                                                     01/07/13

   3700      D*                                                                                                         01/07/13

   3800      D*End CFD List.                                                                                            01/07/13

   3900      D*                                                                                                         01/07/13

   4000      D*Additional notes about the Change Activity                                                               01/07/13

   4100      D*End Change Activity.                                                                                     01/07/13

   4200      D*** END HEADER FILE SPECIFICATIONS ******************************                                         01/07/13

   4300      D*****************************************************************                                         01/07/13

   4400      D*Prototype for QUSROBJD API                                                                               01/07/13

   4500      D*****************************************************************                                         01/07/13

   4600      D QUSROBJD        C                   'QUSROBJD'                                                           01/07/13

   4700      D*****************************************************************                                         01/07/13

   4800      D*Type Definition for the OBJD0100 format.                                                                 01/07/13

   4900      D*****************************************************************                                         01/07/13

   5000      DQUSD0100         DS                  BASED(PTR_FMX)                                                       08/03/15

   5100      D*                                             Qus OBJD0100                                                01/07/13

   5200      D QUSBRTN06               1      4B 0                                                                      01/07/13

   5300      D*                                             Bytes Returned                                              01/07/13

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    2

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJD

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

   5400      D QUSBAVL07               5      8B 0                                                                      01/07/13

   5500      D*                                             Bytes Available                                             01/07/13

   5600      D QUSOBJN00               9     18                                                                         01/07/13

   5700      D*                                             Object Name                                                 01/07/13

   5800      D QUSOBJLN               19     28                                                                         01/07/13

   5900      D*                                             Object Lib Name                                             01/07/13

   6000      D QUSOBJT00              29     38                                                                         01/07/13

   6100      D*                                             Object Type                                                 01/07/13

   6200      D QUSRL01                39     48                                                                         01/07/13

   6300      D*                                             Return Lib                                                  01/07/13

   6400      D QUSASP04               49     52B 0                                                                      01/07/13

   6500      D*                                             Aux Storage Pool                                            01/07/13

   6600      D QUSOBJO04              53     62                                                                         01/07/13

   6700      D*                                             Object Owner                                                01/07/13

   6800      D QUSOBJD04              63     64                                                                         01/07/13

   6900      D*                                             Object Domain                                               01/07/13

   7000      D QUSCDT10               65     77                                                                         01/07/13

   7100      D*                                             Create Date Time                                            01/07/13

   7200      D QUSCDT11               78     90                                                                         01/07/13

   7300      D*                                             Change Date Time                                            01/07/13

   7400      D*****************************************************************                                         01/07/13

   7500      D*Type Definition for the OBJD0200 format.                                                                 01/07/13

   7600      D*****************************************************************                                         01/07/13

   7700      DQUSD0200         DS                  BASED(PTR_FMX)                                                       08/03/15

   7800      D*                                             Qus OBJD0200                                                01/07/13

   7900      D QUSBRTN07               1      4B 0                                                                      01/07/13

   8000      D*                                             Bytes Returned                                              01/07/13

   8100      D QUSBAVL08               5      8B 0                                                                      01/07/13

   8200      D*                                             Bytes Available                                             01/07/13

   8300      D QUSOBJN01               9     18                                                                         01/07/13

   8400      D*                                             Object Name                                                 01/07/13

   8500      D QUSOBJLN00             19     28                                                                         01/07/13

   8600      D*                                             Object Lib Name                                             01/07/13

   8700      D QUSOBJT01              29     38                                                                         01/07/13

   8800      D*                                             Object Type                                                 01/07/13

   8900      D QUSRL02                39     48                                                                         01/07/13

   9000      D*                                             Return Lib                                                  01/07/13

   9100      D QUSASP05               49     52B 0                                                                      01/07/13

   9200      D*                                             Aux Storage Pool                                            01/07/13

   9300      D QUSOBJO05              53     62                                                                         01/07/13

   9400      D*                                             Object Owner                                                01/07/13

   9500      D QUSOBJD05              63     64                                                                         01/07/13

   9600      D*                                             Object Domain                                               01/07/13

   9700      D QUSCDT12               65     77                                                                         01/07/13

   9800      D*                                             Create Date Time                                            01/07/13

   9900      D QUSCDT13               78     90                                                                         01/07/13

  10000      D*                                             Change Date Time                                            01/07/13

  10100      D QUSEOA05               91    100                                                                         01/07/13

  10200      D*                                             Extended Obj Attr                                           01/07/13

  10300      D QUSTD12               101    150                                                                         01/07/13

  10400      D*                                             Text Description                                            01/07/13

  10500      D QUSSFILN06            151    160                                                                         01/07/13

  10600      D*                                             Source File Name                                            01/07/13

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    3

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJD

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  10700      D QUSSFLN06             161    170                                                                         01/07/13

  10800      D*                                             Source File Lib Name                                        01/07/13

  10900      D QUSSFMN03             171    180                                                                         01/07/13

  11000      D*                                             Source File Mbr Name                                        01/07/13

  11100      D*****************************************************************                                         01/07/13

  11200      D*Type Definition for the OBJD0300 format.                                                                 01/07/13

  11300      D*****************************************************************                                         01/07/13

  11400      DQUSD0300         DS                  BASED(PTR_FMX)                                                       08/03/15

  11500      D*                                             Qus OBJD0300                                                01/07/13

  11600      D QUSBRTN08               1      4B 0                                                                      01/07/13

  11700      D*                                             Bytes Returned                                              01/07/13

  11800      D QUSBAVL09               5      8B 0                                                                      01/07/13

  11900      D*                                             Bytes Available                                             01/07/13

  12000      D QUSOBJN02               9     18                                                                         01/07/13

  12100      D*                                             Object Name                                                 01/07/13

  12200      D QUSOBJLN01             19     28                                                                         01/07/13

  12300      D*                                             Object Lib Name                                             01/07/13

  12400      D QUSOBJT02              29     38                                                                         01/07/13

  12500      D*                                             Object Type                                                 01/07/13

  12600      D QUSRL03                39     48                                                                         01/07/13

  12700      D*                                             Return Lib                                                  01/07/13

  12800      D QUSASP06               49     52B 0                                                                      01/07/13

  12900      D*                                             Aux Storage Pool                                            01/07/13

  13000      D QUSOBJO06              53     62                                                                         01/07/13

  13100      D*                                             Object Owner                                                01/07/13

  13200      D QUSOBJD06              63     64                                                                         01/07/13

  13300      D*                                             Object Domain                                               01/07/13

  13400      D QUSCDT14               65     77                                                                         01/07/13

  13500      D*                                             Create Date Time                                            01/07/13

  13600      D QUSCDT15               78     90                                                                         01/07/13

  13700      D*                                             Change Date Time                                            01/07/13

  13800      D QUSEOA06               91    100                                                                         01/07/13

  13900      D*                                             Extended Obj Attr                                           01/07/13

  14000      D QUSTD13               101    150                                                                         01/07/13

  14100      D*                                             Text Description                                            01/07/13

  14200      D QUSSFILN07            151    160                                                                         01/07/13

  14300      D*                                             Source File Name                                            01/07/13

  14400      D QUSSFLN07             161    170                                                                         01/07/13

  14500      D*                                             Source File Lib Name                                        01/07/13

  14600      D QUSSFMN04             171    180                                                                         01/07/13

  14700      D*                                             Source File Mbr Name                                        01/07/13

  14800      D QUSSFUDT03            181    193                                                                         01/07/13

  14900      D*                                             Source File Update Date Time                                01/07/13

  15000      D QUSOSDT02             194    206                                                                         01/07/13

  15100      D*                                             Object Saved Date Time                                      01/07/13

  15200      D QUSORDT02             207    219                                                                         01/07/13

  15300      D*                                             Object Restored Date Time                                   01/07/13

  15400      D QUSCUP03              220    229                                                                         01/07/13

  15500      D*                                             Creator User Profile                                        01/07/13

  15600      D QUSSOBJC03            230    237                                                                         01/07/13

  15700      D*                                             System Object Creation                                      01/07/13

  15800      D QUSRD01               238    244                                                                         01/07/13

  15900      D*                                             Reset Date                                                  01/07/13

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    4

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJD

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  16000      D QUSSS04               245    248B 0                                                                      01/07/13

  16100      D*                                             Save Size                                                   01/07/13

  16200      D QUSSSNBR02            249    252B 0                                                                      01/07/13

  16300      D*                                             Save Sequence Number                                        01/07/13

  16400      D QUSORAGE04            253    262                                                                         01/07/13

  16500      D*                                             Storage                                                     01/07/13

  16600      D QUSSCMD02             263    272                                                                         01/07/13

  16700      D*                                             Save Command                                                01/07/13

  16800      D QUSSVID02             273    343                                                                         01/07/13

  16900      D*                                             Save Volume ID                                              01/07/13

  17000      D QUSSD04               344    353                                                                         01/07/13

  17100      D*                                             Save Device                                                 01/07/13

  17200      D QUSSFILN08            354    363                                                                         01/07/13

  17300      D*                                             Save File Name                                              01/07/13

  17400      D QUSSFLN08             364    373                                                                         01/07/13

  17500      D*                                             Save File Lib Name                                          01/07/13

  17600      D QUSSL07               374    390                                                                         01/07/13

  17700      D*                                             Save Label                                                  01/07/13

  17800      D QUSSL08               391    399                                                                         01/07/13

  17900      D*                                             System Level                                                01/07/13

  18000      D QUSPILER03            400    415                                                                         01/07/13

  18100      D*                                             Compiler                                                    01/07/13

  18200      D QUSOBJL04             416    423                                                                         01/07/13

  18300      D*                                             Object Level                                                01/07/13

  18400      D QUSUC03               424    424                                                                         01/07/13

  18500      D*                                             User Changed                                                01/07/13

  18600      D QUSLPGM03             425    440                                                                         01/07/13

  18700      D*                                             Licensed Program                                            01/07/13

  18800      D QUSPTF03              441    450                                                                         01/07/13

  18900      D*                                             PTF                                                         01/07/13

  19000      D QUSAPAR03             451    460                                                                         01/07/13

  19100      D*                                             APAR                                                        01/07/13

  19200      D*****************************************************************                                         01/07/13

  19300      D*Type Definition for the OBJD0400 format.                                                                 01/07/13

  19400      D*****************************************************************                                         01/07/13

  19500      DQUSD0400         DS                  BASED(PTR_FMX)                                                       08/03/15

  19600      D*                                             Qus OBJD0400                                                01/07/13

  19700      D QUSBRTN09               1      4B 0                                                                      01/07/13

  19800      D*                                             Bytes Returned                                              01/07/13

  19900      D QUSBAVL10               5      8B 0                                                                      01/07/13

  20000      D*                                             Bytes Available                                             01/07/13

  20100      D QUSOBJN03               9     18                                                                         01/07/13

  20200      D*                                             Object Name                                                 01/07/13

  20300      D QUSOBJLN02             19     28                                                                         01/07/13

  20400      D*                                             Object Lib Name                                             01/07/13

  20500      D QUSOBJT03              29     38                                                                         01/07/13

  20600      D*                                             Object Type                                                 01/07/13

  20700      D QUSRL04                39     48                                                                         01/07/13

  20800      D*                                             Return Lib                                                  01/07/13

  20900      D QUSASP07               49     52B 0                                                                      01/07/13

  21000      D*                                             Aux Storage Pool                                            01/07/13

  21100      D QUSOBJO07              53     62                                                                         01/07/13

  21200      D*                                             Object Owner                                                01/07/13

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    5

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJD

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  21300      D QUSOBJD07              63     64                                                                         01/07/13

  21400      D*                                             Object Domain                                               01/07/13

  21500      D QUSCDT16               65     77                                                                         01/07/13

  21600      D*                                             Create Date Time                                            01/07/13

  21700      D QUSCDT17               78     90                                                                         01/07/13

  21800      D*                                             Change Date Time                                            01/07/13

  21900      D QUSEOA07               91    100                                                                         01/07/13

  22000      D*                                             Extended Obj Attr                                           01/07/13

  22100      D QUSTD14               101    150                                                                         01/07/13

  22200      D*                                             Text Description                                            01/07/13

  22300      D QUSSFILN09            151    160                                                                         01/07/13

  22400      D*                                             Source File Name                                            01/07/13

  22500      D QUSSFLN09             161    170                                                                         01/07/13

  22600      D*                                             Source File Lib Name                                        01/07/13

  22700      D QUSSFMN05             171    180                                                                         01/07/13

  22800      D*                                             Source File Mbr Name                                        01/07/13

  22900      D QUSSFUDT04            181    193                                                                         01/07/13

  23000      D*                                             Source File Update Date Time                                01/07/13

  23100      D QUSOSDT03             194    206                                                                         01/07/13

  23200      D*                                             Object Saved Date Time                                      01/07/13

  23300      D QUSORDT03             207    219                                                                         01/07/13

  23400      D*                                             Object Restored Date Time                                   01/07/13

  23500      D QUSCUP04              220    229                                                                         01/07/13

  23600      D*                                             Creator User Profile                                        01/07/13

  23700      D QUSSOBJC04            230    237                                                                         01/07/13

  23800      D*                                             System Object Creation                                      01/07/13

  23900      D QUSRD02               238    244                                                                         01/07/13

  24000      D*                                             Reset Date                                                  01/07/13

  24100      D QUSSS05               245    248B 0                                                                      01/07/13

  24200      D*                                             Save Size                                                   01/07/13

  24300      D QUSSSNBR03            249    252B 0                                                                      01/07/13

  24400      D*                                             Save Sequence Number                                        01/07/13

  24500      D QUSORAGE05            253    262                                                                         01/07/13

  24600      D*                                             Storage                                                     01/07/13

  24700      D QUSSCMD03             263    272                                                                         01/07/13

  24800      D*                                             Save Command                                                01/07/13

  24900      D QUSSVID03             273    343                                                                         01/07/13

  25000      D*                                             Save Volume ID                                              01/07/13

  25100      D QUSSD05               344    353                                                                         01/07/13

  25200      D*                                             Save Device                                                 01/07/13

  25300      D QUSSFILN10            354    363                                                                         01/07/13

  25400      D*                                             Save File Name                                              01/07/13

  25500      D QUSSFLN10             364    373                                                                         01/07/13

  25600      D*                                             Save File Lib Name                                          01/07/13

  25700      D QUSSL09               374    390                                                                         01/07/13

  25800      D*                                             Save Label                                                  01/07/13

  25900      D QUSSL10               391    399                                                                         01/07/13

  26000      D*                                             System Level                                                01/07/13

  26100      D QUSPILER04            400    415                                                                         01/07/13

  26200      D*                                             Compiler                                                    01/07/13

  26300      D QUSOBJL05             416    423                                                                         01/07/13

  26400      D*                                             Object Level                                                01/07/13

  26500      D QUSUC04               424    424                                                                         01/07/13

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    6

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJD

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  26600      D*                                             User Changed                                                01/07/13

  26700      D QUSLPGM04             425    440                                                                         01/07/13

  26800      D*                                             Licensed Program                                            01/07/13

  26900      D QUSPTF04              441    450                                                                         01/07/13

  27000      D*                                             PTF                                                         01/07/13

  27100      D QUSAPAR04             451    460                                                                         01/07/13

  27200      D*                                             APAR                                                        01/07/13

  27300      D QUSLUD                461    467                                                                         01/07/13

  27400      D*                                             Last Used Date                                              01/07/13

  27500      D QUSUIU01              468    468                                                                         01/07/13

  27600      D*                                             Usage Information Update                                    01/07/13

  27700      D QUSDUC01              469    472B 0                                                                      01/07/13

  27800      D*                                             Days Used Count                                             01/07/13

  27900      D QUSOBJS00             473    476B 0                                                                      01/07/13

  28000      D*                                             Object Size                                                 01/07/13

  28100      D QUSOBJSM00            477    480B 0                                                                      01/07/13

  28200      D*                                             Object Size Multiplier                                      01/07/13

  28300      D QUSOBJCS04            481    481                                                                         01/07/13

  28400      D*                                             Object Compress Status                                      01/07/13

  28500      D QUSAC04               482    482                                                                         01/07/13

  28600      D*                                             Allow Change                                                01/07/13

  28700      D QUSCBPGM04            483    483                                                                         01/07/13

  28800      D*                                             Changed By Program                                          01/07/13

  28900      D QUSUDA05              484    493                                                                         01/07/13

  29000      D*                                             User Defined Attr                                           01/07/13

  29100      D QUSOASPI00            494    494                                                                         01/07/13

  29200      D*                                             Overflow ASP Indicator                                      01/07/13

  29300      D QUSSADT02             495    507                                                                         01/07/13

  29400      D*                                             Save Active Date Time                                       01/07/13

  29500      D QUSOBJAV04            508    517                                                                         01/07/13

  29600      D*                                             Object Audit Value                                          01/07/13

  29700      D QUSPG03               518    527                                                                         01/07/13

  29800      D*                                             Primary Group                                               01/07/13

                                  * * * *  F I N  D U  S O U R C E  * * * *

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    1

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLCK

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

    100      D*** START HEADER FILE SPECIFICATIONS ****************************                                         08/02/07

    200      D*                                                                                                         08/02/07

    300      D*Header File Name: H/QWCLOBJL                                                                             08/02/07

    400      D*                                                                                                         08/02/07

    500      D*Descriptive Name: List Object Lock API                                                                   08/02/07

    600      D*                                                                                                         08/02/07

    700      D*5763-SS1, 5769-SS1                                                                                       08/02/07

    800      D*(C) Copyright IBM Corp. 1994,2002                                                                        08/02/07

    900      D*All rights reserved.                                                                                     08/02/07

   1000      D*US Government Users Restricted Rights -                                                                  08/02/07

   1100      D*Use, duplication or disclosure restricted                                                                08/02/07

   1200      D*by GSA ADP Schedule Contract with IBM Corp.                                                              08/02/07

   1300      D*                                                                                                         08/02/07

   1400      D*Licensed Materials-Property of IBM                                                                       08/02/07

   1500      D*                                                                                                         08/02/07

   1600      D*                                                                                                         08/02/07

   1700      D*Description: The List Object Lock API will return a list of                                              08/02/07

   1800      D*          locks for an object or a database member.                                                      08/02/07

   1900      D*                                                                                                         08/02/07

   2000      D*Header Files Included: None.                                                                             08/02/07

   2100      D*                                                                                                         08/02/07

   2200      D*Macros List: None.                                                                                       08/02/07

   2300      D*                                                                                                         08/02/07

   2400      D*Structure List: Qwc_LOBJL_Input_T                                                                        08/02/07

   2500      D*             Qwc_OBJL0100_T                                                                              08/02/07

   2600      D*             Qwc_LOBJL_Header_T                                                                          08/02/07

   2700      D*                                                                                                         08/02/07

   2800      D*Function Prototype List: QWCLOBJL                                                                        08/02/07

   2900      D*                                                                                                         08/02/07

   3000      D*Change Activity:                                                                                         08/02/07

   3100      D*                                                                                                         08/02/07

   3200      D*CFD List:                                                                                                08/02/07

   3300      D*                                                                                                         08/02/07

   3400      D*FLAG REASON       LEVEL DATE   PGMR   CHANGE DESCRIPTION                                                 08/02/07

   3500      D*---- ------------ ----- ------ ------ -------------------------                                          08/02/07

   3600      D*$A0= D2862000     3D10  940508 ROCH:  New Include                                                        08/02/07

   3700      D*$A1= D9586703     4D40  980603 ROCH:  Add lock scope and                                                 08/02/07

   3800      D*                                   thread identifier.                                                    08/02/07

   3900      D*$A2= D9860301   v5r2m0  010223 ROCH:  Add IASP support                                                   08/02/07

   4000      D*                                                                                                         08/02/07

   4100      D*End CFD List.                                                                                            08/02/07

   4200      D*                                                                                                         08/02/07

   4300      D*Additional notes about the Change Activity                                                               08/02/07

   4400      D*End Change Activity.                                                                                     08/02/07

   4500      D*** END HEADER FILE SPECIFICATIONS ******************************                                         08/02/07

   4600      D*****************************************************************                                         08/02/07

   4700      D*Prototype for calling List Object Locks  (QWCLOBJL) API                                                  08/02/07

   4800      D*****************************************************************                                         08/02/07

   4900      D QWCLOBJL        C                   'QWCLOBJL'                                                           08/02/07

   5000      D*                             Optional Parameter Group 2:                                                 08/02/07

   5100      D*                               char*    ASP device name                                                  08/02/07

   5200      D*****************************************************************                                         08/02/07

   5300      D*Type Definition for the Format OBJL0100.                                                                 08/02/07

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    2

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLCK

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

   5400      D*                                                                                                         08/02/07

   5500      D*NOTE: The following type definition only defines the fixed                                               08/02/07

   5600      D*   portion of the format.  Any varying length field will                                                 08/02/07

   5700      D*   have to be defined by the user.                                                                       08/02/07

   5800      D*****************************************************************                                         08/02/07

   5900      DQWCOBJLI         DS                                                                                       08/02/12

   6000      D*                                             Qwc LOBJL Input                                             08/02/07

   6100      D QWCUSN01                1     10                                                                         08/02/07

   6200      D*                                             User Space Name                                             08/02/07

   6300      D QWCUSLIB               11     20                                                                         08/02/07

   6400      D*                                             User Space Library                                          08/02/07

   6500      D QWCFN01                21     30                                                                         08/02/07

   6600      D*                                             Format Name                                                 08/02/07

   6700      D QWCOBJN                31     40                                                                         08/02/07

   6800      D*                                             Object Name                                                 08/02/07

   6900      D QWCOBJL                41     50                                                                         08/02/07

   7000      D*                                             Object Library                                              08/02/07

   7100      D QWCOBJT                51     60                                                                         08/02/07

   7200      D*                                             Object Type                                                 08/02/07

   7300      D QWCMN00                61     70                                                                         08/02/07

   7400      D*                                             Member Name                                                 08/02/07

   7500      D QWCOPN                 71     74B 0                                                                      08/02/07

   7600      D*                                             Offset PathName                                             08/02/07

   7700      D QWCLPN                 75     78B 0                                                                      08/02/07

   7800      D*                                             Length PathName                                             08/02/07

   7900      D QWCLASPN               79     88                                                                         08/02/07

   8000      D*                                             Object Library ASP Name                                     08/02/07

   8100      D*QWCPN01                89     89                                                                         08/02/07

   8200      D*                                                                                                         08/02/07

   8300      D*                        Varing Length                                                                    08/02/07

   8400      D*****************************************************************                                         08/02/07

   8500      D*Header structure for QWCLOBJL                                                                            08/02/07

   8600      D*****************************************************************                                         08/02/07

   8700      DQWCOBJLH         DS                                                                                       08/02/12

   8800      D*                                             Qwc LOBJL Header                                            08/02/07

   8900      D QWCUSNU                 1     10                                                                         08/02/07

   9000      D*                                             User Space Name Used                                        08/02/07

   9100      D QWCUSLU                11     20                                                                         08/02/07

   9200      D*                                             User Space Library Used                                     08/02/07

   9300      D QWCOBJNU               21     30                                                                         08/02/07

   9400      D*                                             Object Name Used                                            08/02/07

   9500      D QWCOBJLU               31     40                                                                         08/02/07

   9600      D*                                             Object Library Used                                         08/02/07

   9700      D QWCOBJTR               41     50                                                                         08/02/07

   9800      D*                                             Object Type Returned                                        08/02/07

   9900      D QWCEOBJA               51     60                                                                         08/02/07

  10000      D*                                             Extended Object Attr                                        08/02/07

  10100      D QWCSFILN               61     70                                                                         08/02/07

  10200      D*                                             Shared File Name                                            08/02/07

  10300      D QWCSFILL               71     80                                                                         08/02/07

  10400      D*                                             Shared File Library                                         08/02/07

  10500      D QWCOPNU                81     84B 0                                                                      08/02/07

  10600      D*                                             Offset PathName Used                                        08/02/07

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    3

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLCK

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  10700      D QWCLPNU                85     88B 0                                                                      08/02/07

  10800      D*                                             Length PathName Used                                        08/02/07

  10900      D QWCASPNU               89     98                                                                         08/02/07

  11000      D*                                             Object ASP Name Used                                        08/02/07

  11100      D QWCASPNU00             99    108                                                                         08/02/07

  11200      D*                                             Object Library ASP Name Used                                08/02/07

  11300      D*QWCPNU                109    109                                                                         08/02/07

  11400      D*                                                                                                         08/02/07

  11500      D*                             Varing Length                                                               08/02/07

  11600      D*****************************************************************                                         08/02/07

  11700      D*Type Definition for the Format OBJL0100.                                                                 08/02/07

  11800      D*****************************************************************                                         08/02/07

  11900      DQWC0100L         DS                      BASED(PTR_LST)                                                   08/02/07

  12000      D*                                             Qwc OBJL0100 List                                           08/02/07

  12100      D QWCJN01                 1     10                                                                         08/02/07

  12200      D*                                             Job Name                                                    08/02/07

  12300      D QWCJUN                 11     20                                                                         08/02/07

  12400      D*                                             Job User Name                                               08/02/07

  12500      D QWCJNBR                21     26                                                                         08/02/07

  12600      D*                                             Job Number                                                  08/02/07

  12700      D QWCLS                  27     36                                                                         08/02/07

  12800      D*                                             Lock State                                                  08/02/07

  12900      D QWCLS00                37     40B 0                                                                      08/02/07

  13000      D*                                             Lock Status                                                 08/02/07

  13100      D QWCLT                  41     44B 0                                                                      08/02/07

  13200      D*                                             Lock Type                                                   08/02/07

  13300      D QWCMN                  45     54                                                                         08/02/07

  13400      D*                                             Member Name                                                 08/02/07

  13500      D QWCSHARE               55     55                                                                         08/02/07

  13600      D*                                             Share                                                       08/02/07

  13700      D QWCLS01                56     56                                                                         08/02/07

  13800      D*                                             Lock Scope                                                  08/02/07

  13900      D QWCTI                  57     64                                                                         08/02/07

  14000      D*                                             Thread Identifier                                           08/02/07

                                  * * * *  F I N  D U  S O U R C E  * * * *

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    1

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

    100      D*begin_generated_IBM_copyright_prolog                                                                     07/12/12

    200      D*This is an automatically generated copyright prolog.                                                     07/12/12

    300      D*After initializing,  DO NOT MODIFY OR MOVE                                                               07/12/12

    400      D*-----------------------------------------------------------------                                        07/12/12

    500      D*                                                                                                         07/12/12

    600      D*Product(s):                                                                                              07/12/12

    700      D*5763-SS1                                                                                                 07/12/12

    800      D*5722-SS1                                                                                                 07/12/12

    900      D*                                                                                                         07/12/12

   1000      D*(C)Copyright IBM Corp.  1994, 2005                                                                       07/12/12

   1100      D*                                                                                                         07/12/12

   1200      D*All rights reserved.                                                                                     07/12/12

   1300      D*US Government Users Restricted Rights -                                                                  07/12/12

   1400      D*Use, duplication or disclosure restricted                                                                07/12/12

   1500      D*by GSA ADP Schedule Contract with IBM Corp.                                                              07/12/12

   1600      D*                                                                                                         07/12/12

   1700      D*Licensed Materials-Property of IBM                                                                       07/12/12

   1800      D*                                                                                                         07/12/12

   1900      D*---------------------------------------------------------------                                          07/12/12

   2000      D*                                                                                                         07/12/12

   2100      D*end_generated_IBM_copyright_prolog                                                                       07/12/12

   2200      D*** START HEADER FILE SPECIFICATIONS ****************************                                         07/12/12

   2300      D*                                                                                                         07/12/12

   2400      D*Header File Name: H/QUSLOBJ                                                                              07/12/12

   2500      D*                                                                                                         07/12/12

   2600      D*Descriptive Name: List Objects                                                                           07/12/12

   2700      D*                                                                                                         07/12/12

   2800      D*Description: The List Objects API lets you generate a list of                                            07/12/12

   2900      D*          object names and descriptive information based on                                              07/12/12

   3000      D*          specified selection parameters.                                                                07/12/12

   3100      D*                                                                                                         07/12/12

   3200      D*Header Files Included: None.                                                                             07/12/12

   3300      D*                                                                                                         07/12/12

   3400      D*Macros List: None.                                                                                       07/12/12

   3500      D*                                                                                                         07/12/12

   3600      D*Structure List: Qus_Lobj_Aut_Control_t                                                                   07/12/12

   3700      D*             Qus_Lobj_Select_Control_t                                                                   07/12/12

   3800      D*             Qus_Lobj_ASP_Control_t                                                                      07/12/12

   3900      D*             Qus_Lobj_Input_t                                                                            07/12/12

   4000      D*             Qus_OBJL0100_t                                                                              07/12/12

   4100      D*             Qus_OBJL0200_t                                                                              07/12/12

   4200      D*             Qus_OBJL0300_t                                                                              07/12/12

   4300      D*             Qus_OBJL0400_t                                                                              07/12/12

   4400      D*             Qus_OBJL0500_t                                                                              07/12/12

   4500      D*             Qus_OBJL0600_t                                                                              07/12/12

   4600      D*             Qus_OBJL0700_t                                                                              07/12/12

   4700      D*                                                                                                         07/12/12

   4800      D*Function Prototype List: QUSLOBJ                                                                         07/12/12

   4900      D*                                                                                                         07/12/12

   5000      D*Change Activity:                                                                                         07/12/12

   5100      D*                                                                                                         07/12/12

   5200      D*CFD List:                                                                                                07/12/12

   5300      D*                                                                                                         07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    2

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

   5400      D*FLAG REASON      LEVEL  DATE   PGMR      CHANGE DESCRIPTION                                              07/12/12

   5500      D*---- ----------- -----  ------ --------- ----------------------                                          07/12/12

   5600      D*$A0= D2862000    3D10   940424 ROCH    : New Include                                                     07/12/12

   5700      D*$A1= D97534.3    v5r1m0 000116 RAH     : Add fields to support                                           07/12/12

   5800      D*                                      journaling information                                             07/12/12

   5900      D*                                      to structure                                                       07/12/12

   6000      D*                                      Qus_OBJL0500.                                                      07/12/12

   6100      D*$A2= D97545      v5r1m0 000116 RAH     : Add field to support                                            07/12/12

   6200      D*                                      object digital                                                     07/12/12

   6300      D*                                      signatures to struct                                               07/12/12

   6400      D*                                      Qus_OBJL0300.                                                      07/12/12

   6500      D*$A3= D98416.47   v5r2m0 010708 LAW     : Add fields for                                                  07/12/12

   6600      D*                                      auxiliary storage                                                  07/12/12

   6700      D*                                      pool device name                                                   07/12/12

   6800      D*                                      support and add                                                    07/12/12

   6900      D*                                      fields from A1&A2 to                                               07/12/12

   7000      D*                                      other structures                                                   07/12/12

   7100      D*$A4= D98649      v5r2m0 010930 LAW     : Add fields for                                                  07/12/12

   7200      D*                                      system-trusted and                                                 07/12/12

   7300      D*                                      multiple signatures                                                07/12/12

   7400      D*                                      to Qus_OBJL0300 and                                                07/12/12

   7500      D*                                      above                                                              07/12/12

   7600      D*$A5= D98416.65   v5r2m0 011202 LAW     : Shorten field name                                              07/12/12

   7700      D*                                      Digitally_Signed_More                                              07/12/12

   7800      D*                                      _Than_Once to                                                      07/12/12

   7900      D*                                      Digitally_Signed_                                                  07/12/12

   8000      D*                                      Multiple. Names can't                                              07/12/12

   8100      D*                                      exceed 30 characters.                                              07/12/12

   8200      D*$B0= D99511.31   v5r3m0 030202 CEM     : Add optimum space                                               07/12/12

   8300      D*                                      alignment and                                                      07/12/12

   8400      D*                                      associated space size                                              07/12/12

   8500      D*                                      fields to                                                          07/12/12

   8600      D*                                      Qus_OBJL0400 and above                                             07/12/12

   8700      D*$B1= P9A52943  v5r3m0fpga 040120 LAW   : Correctly align                                                 07/12/12

   8800      D*                                      associated space                                                   07/12/12

   8900      D*                                      size field in                                                      07/12/12

   9000      D*                                      Qus_OBJL0400 and above                                             07/12/12

   9100      D*$C1= D99834    v5r4m0     040606 LAW   : Add fields for                                                  07/12/12

   9200      D*                                      - Object ASP group                                                 07/12/12

   9300      D*                                      - Library ASP group                                                07/12/12

   9400      D*                                      - Starting journal                                                 07/12/12

   9500      D*                                        receiver for apply                                               07/12/12

   9600      D*                                      - Starting journal                                                 07/12/12

   9700      D*                                        receiver library                                                 07/12/12

   9800      D*                                      - Starting journal                                                 07/12/12

   9900      D*                                        receiver library                                                 07/12/12

  10000      D*                                        ASP device name                                                  07/12/12

  10100      D*                                      - Starting journal                                                 07/12/12

  10200      D*                                        receiver library                                                 07/12/12

  10300      D*                                        ASP group name                                                   07/12/12

  10400      D*                                                                                                         07/12/12

  10500      D*End CFD List.                                                                                            07/12/12

  10600      D*                                                                                                         07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    3

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  10700      D*Additional notes about the Change Activity                                                               07/12/12

  10800      D*End Change Activity.                                                                                     07/12/12

  10900      D*** END HEADER FILE SPECIFICATIONS ******************************                                         07/12/12

  11000      D*****************************************************************                                         07/12/12

  11100      D*Prototype for QUSLOBJ API                                                                                07/12/12

  11200      D*****************************************************************                                         07/12/12

  11300      D QUSLOBJ         C                   'QUSLOBJ'                                                            07/12/12

  11400      D*****************************************************************                                         07/12/12

  11500      D*Type Definition for the Authority Control Format.                                                        07/12/12

  11600      D****                                                          ***                                         07/12/12

  11700      D*NOTE: The following type definition only defines the fixed                                               07/12/12

  11800      D*   portion of the format.  Any varying length field will                                                 07/12/12

  11900      D*   have to be defined by the user.                                                                       07/12/12

  12000      D*****************************************************************                                         07/12/12

  12100      DQUSLAC           DS                                                                                       07/12/12

  12200      D*                                             Qus Lobj Aut Control                                        07/12/12

  12300      D QUSLACF                 1      4B 0                                                                      07/12/12

  12400      D*                                             Length Authority Control Fmt                                07/12/12

  12500      D QUSCL                   5      8B 0                                                                      07/12/12

  12600      D*                                             Call Level                                                  07/12/12

  12700      D QUSOOA                  9     12B 0                                                                      07/12/12

  12800      D*                                             Offset Obj Aut                                              07/12/12

  12900      D QUSNBROA               13     16B 0                                                                      07/12/12

  13000      D*                                             Number Obj Aut                                              07/12/12

  13100      D QUSOLA                 17     20B 0                                                                      07/12/12

  13200      D*                                             Offset Lib Aut                                              07/12/12

  13300      D QUSNBRLA               21     24B 0                                                                      07/12/12

  13400      D*                                             Number Lib Aut                                              07/12/12

  13500      D QUSERVED19             25     28B 0                                                                      07/12/12

  13600      D*                                             Reserved                                                    07/12/12

  13700      D*QUSOA                  29     38    DIM(00001)                                                           07/12/12

  13800      D*                                                                                                         07/12/12

  13900      D*                                       Varying length                                                    07/12/12

  14000      D*QUSLA                  39     48    DIM(00001)                                                           07/12/12

  14100      D*                                                                                                         07/12/12

  14200      D*                                       Varying length                                                    07/12/12

  14300      D*****************************************************************                                         07/12/12

  14400      D*Type Definition for the Selection Control Format.                                                        07/12/12

  14500      D****                                                          ***                                         07/12/12

  14600      D*NOTE: The following type definition only defines the fixed                                               07/12/12

  14700      D*   portion of the format.  Any varying length field will                                                 07/12/12

  14800      D*   have to be defined by the user.                                                                       07/12/12

  14900      D*****************************************************************                                         07/12/12

  15000      DQUSLSC           DS                                                                                       07/12/12

  15100      D*                                             Qus Lobj Select Control                                     07/12/12

  15200      D QUSLSCF                 1      4B 0                                                                      07/12/12

  15300      D*                                             Length Selection Control Fmt                                07/12/12

  15400      D QUSSOS                  5      8B 0                                                                      07/12/12

  15500      D*                                             Select Omit Status                                          07/12/12

  15600      D QUSOS01                 9     12B 0                                                                      07/12/12

  15700      D*                                             Offset Status                                               07/12/12

  15800      D QUSNBRS                13     16B 0                                                                      07/12/12

  15900      D*                                             Number Status                                               07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    4

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  16000      D QUSERVED20             17     20B 0                                                                      07/12/12

  16100      D*                                             Reserved                                                    07/12/12

  16200      D*QUSTATUS02             21     21    DIM(00001)                                                           07/12/12

  16300      D*                                                                                                         07/12/12

  16400      D*                                       Varying length                                                    07/12/12

  16500      D*****************************************************************                                         07/12/12

  16600      D*Type Definition for the Auxiliary Storage Pool (ASP)                                                     07/12/12

  16700      D*Control Format                                             @A3A                                          07/12/12

  16800      D*****************************************************************                                         07/12/12

  16900      DQUSLASPC         DS                                                                                       07/12/12

  17000      D*                                             Qus Lobj ASP Control                                        07/12/12

  17100      D QUSASPCF                1      4B 0                                                                      07/12/12

  17200      D*                                             Length ASP Control Fmt                                      07/12/12

  17300      D QUSASPDN                5     14                                                                         07/12/12

  17400      D*                                             ASP Device Name                                             07/12/12

  17500      D QUSASPST               15     24                                                                         07/12/12

  17600      D*                                             ASP Search Type                                             07/12/12

  17700      D*****************************************************************                                         07/12/12

  17800      D*Type Definition for the input parameter section                                                          07/12/12

  17900      D****                                                          ***                                         07/12/12

  18000      D*NOTE: The following type definition only defines the fixed                                               07/12/12

  18100      D*   portion of the format.  Any varying length field will                                                 07/12/12

  18200      D*   have to be defined by the user.                                                                       07/12/12

  18300      D*****************************************************************                                         07/12/12

  18400      DQUSLI00          DS                                                                                       07/12/12

  18500      D*                                             Qus Lobj Input                                              07/12/12

  18600      D QUSUS00                 1     10                                                                         07/12/12

  18700      D*                                             User Space                                                  07/12/12

  18800      D QUSUSL00               11     20                                                                         07/12/12

  18900      D*                                             User Space Lib                                              07/12/12

  19000      D QUSORMAT00             21     28                                                                         07/12/12

  19100      D*                                             Format                                                      07/12/12

  19200      D QUSOBJN                29     38                                                                         07/12/12

  19300      D*                                             Object Name                                                 07/12/12

  19400      D QUSOBJL                39     48                                                                         07/12/12

  19500      D*                                             Object Lib                                                  07/12/12

  19600      D QUSOBJT                49     58                                                                         07/12/12

  19700      D*                                             Object Type                                                 07/12/12

  19800      D QUSERVED21             59     60                                                                         07/12/12

  19900      D*                                             Reserved                                                    07/12/12

  20000      D QUSECBP                61     64B 0                                                                      07/12/12

  20100      D*                                             Error Code Bytes Provided                                   07/12/12

  20200      D QUSLACF00              65     68B 0                                                                      07/12/12

  20300      D*                                             Length Aut Control Fmt                                      07/12/12

  20400      D QUSCL00                69     72B 0                                                                      07/12/12

  20500      D*                                             Call Level                                                  07/12/12

  20600      D QUSOOA00               73     76B 0                                                                      07/12/12

  20700      D*                                             Offset Obj Aut                                              07/12/12

  20800      D QUSNBROA00             77     80B 0                                                                      07/12/12

  20900      D*                                             Number Obj Aut                                              07/12/12

  21000      D QUSOLA00               81     84B 0                                                                      07/12/12

  21100      D*                                             Offset Lib Aut                                              07/12/12

  21200      D QUSNBRLA00             85     88B 0                                                                      07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    5

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  21300      D*                                             Number Lib Aut                                              07/12/12

  21400      D QUSLSCF00              89     92B 0                                                                      07/12/12

  21500      D*                                             Length Select Control Fmt                                   07/12/12

  21600      D QUSSOS00               93     96B 0                                                                      07/12/12

  21700      D*                                             Select Omit Status                                          07/12/12

  21800      D QUSOS02                97    100B 0                                                                      07/12/12

  21900      D*                                             Offset Status                                               07/12/12

  22000      D QUSNBRS00             101    104B 0                                                                      07/12/12

  22100      D*                                             Number Status                                               07/12/12

  22200      D QUSASPCF00            105    108B 0                                                                      07/12/12

  22300      D*                                             Length ASP Control Fmt                                      07/12/12

  22400      D*                                                        @A3A                                             07/12/12

  22500      D QUSASPDN00            109    118                                                                         07/12/12

  22600      D*                                             ASP Device Name                                             07/12/12

  22700      D*                                                        @A3A                                             07/12/12

  22800      D QUSASPST00            119    128                                                                         07/12/12

  22900      D*                                             ASP Search Type                                             07/12/12

  23000      D*                                                        @A3A                                             07/12/12

  23100      D*QUSOBJA               129    138    DIM(00001)                                                           07/12/12

  23200      D*                                                                                                         07/12/12

  23300      D*                                       Varying length                                                    07/12/12

  23400      D*QUSLIBA               139    148    DIM(00001)                                                           07/12/12

  23500      D*                                                                                                         07/12/12

  23600      D*                                       Varying length                                                    07/12/12

  23700      D*QUSTATUS03            149    149    DIM(00001)                                                           07/12/12

  23800      D*                                                                                                         07/12/12

  23900      D*                                       Varying length                                                    07/12/12

  24000      D*****************************************************************                                         07/12/12

  24100      D*Type Definition for the OBJL0100 format.                                                                 07/12/12

  24200      D*****************************************************************                                         07/12/12

  24300      DQUSL010003       DS                  BASED(PTR_LST)                                                       07/12/12

  24400      D*                                             Qus OBJL0100                                                07/12/12

  24500      D QUSOBJNU                1     10                                                                         07/12/12

  24600      D*                                             Object Name Used                                            07/12/12

  24700      D QUSOLNU                11     20                                                                         07/12/12

  24800      D*                                             Object Lib Name Used                                        07/12/12

  24900      D QUSOBJTU               21     30                                                                         07/12/12

  25000      D*                                             Object Type Used                                            07/12/12

  25100      D*****************************************************************                                         07/12/12

  25200      D*Type Definition for the OBJL0200 format.                                                                 07/12/12

  25300      D*****************************************************************                                         07/12/12

  25400      DQUSL020002       DS                  BASED(PTR_LST)                                                       07/12/12

  25500      D*                                             Qus OBJL0200                                                07/12/12

  25600      D QUSOBJNU00              1     10                                                                         07/12/12

  25700      D*                                             Object Name Used                                            07/12/12

  25800      D QUSOLNU00              11     20                                                                         07/12/12

  25900      D*                                             Object Lib Name Used                                        07/12/12

  26000      D QUSOBJTU00             21     30                                                                         07/12/12

  26100      D*                                             Object Type Used                                            07/12/12

  26200      D QUSIS01                31     31                                                                         07/12/12

  26300      D*                                             Information Status                                          07/12/12

  26400      D QUSEOA                 32     41                                                                         07/12/12

  26500      D*                                             Extended Obj Attr                                           07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    6

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  26600      D QUSTD06                42     91                                                                         07/12/12

  26700      D*                                             Text Description                                            07/12/12

  26800      D QUSUDA                 92    101                                                                         07/12/12

  26900      D*                                             User Defined Attr                                           07/12/12

  27000      D QUSERVED22            102    108                                                                         07/12/12

  27100      D*                                             Reserved                                                    07/12/12

  27200      D*****************************************************************                                         07/12/12

  27300      D*Type Definition for the OBJL0300 format.                                                                 07/12/12

  27400      D*****************************************************************                                         07/12/12

  27500      DQUSL030000       DS                  BASED(PTR_LST)                                                       07/12/12

  27600      D*                                             Qus OBJL0300                                                07/12/12

  27700      D QUSOBJNU01              1     10                                                                         07/12/12

  27800      D*                                             Object Name Used                                            07/12/12

  27900      D QUSOLNU01              11     20                                                                         07/12/12

  28000      D*                                             Object Lib Name Used                                        07/12/12

  28100      D QUSOBJTU01             21     30                                                                         07/12/12

  28200      D*                                             Object Type Used                                            07/12/12

  28300      D QUSIS02                31     31                                                                         07/12/12

  28400      D*                                             Information Status                                          07/12/12

  28500      D QUSEOA00               32     41                                                                         07/12/12

  28600      D*                                             Extended Obj Attr                                           07/12/12

  28700      D QUSTD07                42     91                                                                         07/12/12

  28800      D*                                             Text Description                                            07/12/12

  28900      D QUSUDA00               92    101                                                                         07/12/12

  29000      D*                                             User Defined Attr                                           07/12/12

  29100      D QUSERVED23            102    108                                                                         07/12/12

  29200      D*                                             Reserved                                                    07/12/12

  29300      D QUSASP                109    112B 0                                                                      07/12/12

  29400      D*                                             Aux Storage Pool                                            07/12/12

  29500      D QUSOBJO               113    122                                                                         07/12/12

  29600      D*                                             Object Owner                                                07/12/12

  29700      D QUSOBJD               123    124                                                                         07/12/12

  29800      D*                                             Object Domain                                               07/12/12

  29900      D QUSCDT00              125    132                                                                         07/12/12

  30000      D*                                             Create Date Time                                            07/12/12

  30100      D QUSCDT01              133    140                                                                         07/12/12

  30200      D*                                             Change Date Time                                            07/12/12

  30300      D QUSORAGE              141    150                                                                         07/12/12

  30400      D*                                             Storage                                                     07/12/12

  30500      D QUSOBJCS              151    151                                                                         07/12/12

  30600      D*                                             Object Compress Status                                      07/12/12

  30700      D QUSAC                 152    152                                                                         07/12/12

  30800      D*                                             Allow Change                                                07/12/12

  30900      D QUSCBPGM              153    153                                                                         07/12/12

  31000      D*                                             Changed By Program                                          07/12/12

  31100      D QUSOBJAV              154    163                                                                         07/12/12

  31200      D*                                             Object Audit Value                                          07/12/12

  31300      D QUSDS00               164    164                                                                         07/12/12

  31400      D*                                             Digitally Signed                                            07/12/12

  31500      D*                                                        @A2A                                             07/12/12

  31600      D QUSDSST               165    165                                                                         07/12/12

  31700      D*                                             Digitally Signed Sys Trust                                  07/12/12

  31800      D*                                                        @A4A                                             07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    7

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  31900      D QUSDSM                166    166                                                                         07/12/12

  32000      D*                                             Digitally Signed Multiple                                   07/12/12

  32100      D*                                                        @A5C                                             07/12/12

  32200      D QUSRSV207             167    168                                                                         07/12/12

  32300      D*                                             Reserved2                                                   07/12/12

  32400      D*                                                        @A4C                                             07/12/12

  32500      D QUSLASPN09            169    172B 0                                                                      07/12/12

  32600      D*                                             Lib ASP Number                                              07/12/12

  32700      D*                                                        @A3A                                             07/12/12

  32800      D*****************************************************************                                         07/12/12

  32900      D*Type Definition for the OBJL0400 format.                                                                 07/12/12

  33000      D*****************************************************************                                         07/12/12

  33100      DQUSL0400         DS                  BASED(PTR_LST)                                                       07/12/12

  33200      D*                                             Qus OBJL0400                                                07/12/12

  33300      D QUSOBJNU02              1     10                                                                         07/12/12

  33400      D*                                             Object Name Used                                            07/12/12

  33500      D QUSOLNU02              11     20                                                                         07/12/12

  33600      D*                                             Object Lib Name Used                                        07/12/12

  33700      D QUSOBJTU02             21     30                                                                         07/12/12

  33800      D*                                             Object Type Used                                            07/12/12

  33900      D QUSIS03                31     31                                                                         07/12/12

  34000      D*                                             Information Status                                          07/12/12

  34100      D QUSEOA01               32     41                                                                         07/12/12

  34200      D*                                             Extended Obj Attr                                           07/12/12

  34300      D QUSTD08                42     91                                                                         07/12/12

  34400      D*                                             Text Description                                            07/12/12

  34500      D QUSUDA01               92    101                                                                         07/12/12

  34600      D*                                             User Defined Attr                                           07/12/12

  34700      D QUSERVED24            102    108                                                                         07/12/12

  34800      D*                                             Reserved                                                    07/12/12

  34900      D QUSASP00              109    112B 0                                                                      07/12/12

  35000      D*                                             Aux Storage Pool                                            07/12/12

  35100      D QUSOBJO00             113    122                                                                         07/12/12

  35200      D*                                             Object Owner                                                07/12/12

  35300      D QUSOBJD00             123    124                                                                         07/12/12

  35400      D*                                             Object Domain                                               07/12/12

  35500      D QUSCDT02              125    132                                                                         07/12/12

  35600      D*                                             Create Date Time                                            07/12/12

  35700      D QUSCDT03              133    140                                                                         07/12/12

  35800      D*                                             Change Date Time                                            07/12/12

  35900      D QUSORAGE00            141    150                                                                         07/12/12

  36000      D*                                             Storage                                                     07/12/12

  36100      D QUSOBJCS00            151    151                                                                         07/12/12

  36200      D*                                             Object Compress Status                                      07/12/12

  36300      D QUSAC00               152    152                                                                         07/12/12

  36400      D*                                             Allow Change                                                07/12/12

  36500      D QUSCBPGM00            153    153                                                                         07/12/12

  36600      D*                                             Changed By Program                                          07/12/12

  36700      D QUSOBJAV00            154    163                                                                         07/12/12

  36800      D*                                             Object Audit Value                                          07/12/12

  36900      D QUSDS01               164    164                                                                         07/12/12

  37000      D*                                             Digitally Signed                                            07/12/12

  37100      D*                                                        @A3A                                             07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    8

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  37200      D QUSDSST00             165    165                                                                         07/12/12

  37300      D*                                             Digitally Signed Sys Trust                                  07/12/12

  37400      D*                                                        @A4A                                             07/12/12

  37500      D QUSDSM00              166    166                                                                         07/12/12

  37600      D*                                             Digitally Signed Multiple                                   07/12/12

  37700      D*                                                        @A5C                                             07/12/12

  37800      D QUSRSV208             167    168                                                                         07/12/12

  37900      D*                                             Reserved2                                                   07/12/12

  38000      D*                                                        @A4C                                             07/12/12

  38100      D QUSLASPN10            169    172B 0                                                                      07/12/12

  38200      D*                                             Lib ASP Number                                              07/12/12

  38300      D*                                                        @A3A                                             07/12/12

  38400      D QUSSFILN              173    182                                                                         07/12/12

  38500      D*                                             Source File Name                                            07/12/12

  38600      D QUSSFLN               183    192                                                                         07/12/12

  38700      D*                                             Source File Lib Name                                        07/12/12

  38800      D QUSSFMN               193    202                                                                         07/12/12

  38900      D*                                             Source File Mbr Name                                        07/12/12

  39000      D QUSSFUDT              203    215                                                                         07/12/12

  39100      D*                                             Source File Update Date Time                                07/12/12

  39200      D QUSCUP                216    225                                                                         07/12/12

  39300      D*                                             Creator User Profile                                        07/12/12

  39400      D QUSSOBJC              226    233                                                                         07/12/12

  39500      D*                                             System Object Creation                                      07/12/12

  39600      D QUSSL                 234    242                                                                         07/12/12

  39700      D*                                             System Level                                                07/12/12

  39800      D QUSPILER              243    258                                                                         07/12/12

  39900      D*                                             Compiler                                                    07/12/12

  40000      D QUSOBJL00             259    266                                                                         07/12/12

  40100      D*                                             Object Level                                                07/12/12

  40200      D QUSUC                 267    267                                                                         07/12/12

  40300      D*                                             User Changed                                                07/12/12

  40400      D QUSLPGM               268    283                                                                         07/12/12

  40500      D*                                             Licensed Program                                            07/12/12

  40600      D QUSPTF                284    293                                                                         07/12/12

  40700      D*                                             PTF                                                         07/12/12

  40800      D QUSAPAR               294    303                                                                         07/12/12

  40900      D*                                             APAR                                                        07/12/12

  41000      D QUSPG                 304    313                                                                         07/12/12

  41100      D*                                             Primary Group                                               07/12/12

  41200      D QUSRSV7               314    315                                                                         07/12/12

  41300      D*                                             Reserved7                                                   07/12/12

  41400      D*                                                        @B1A                                             07/12/12

  41500      D QUSOSA                316    316                                                                         07/12/12

  41600      D*                                             Optimum Space Alignment                                     07/12/12

  41700      D*                                                        @B1M                                             07/12/12

  41800      D QUSASS                317    320B 0                                                                      07/12/12

  41900      D*                                             Associated Space Size                                       07/12/12

  42000      D*                                                        @B0A                                             07/12/12

  42100      D QUSRSV300             321    324                                                                         07/12/12

  42200      D*                                             Reserved3                                                   07/12/12

  42300      D*                                                        @B1C                                             07/12/12

  42400      D*****************************************************************                                         07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE    9

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  42500      D*Type Definition for the OBJL0500 format.                                                                 07/12/12

  42600      D*****************************************************************                                         07/12/12

  42700      DQUSL0500         DS                  BASED(PTR_LST)                                                       07/12/12

  42800      D*                                             Qus OBJL0500                                                07/12/12

  42900      D QUSOBJNU03              1     10                                                                         07/12/12

  43000      D*                                             Object Name Used                                            07/12/12

  43100      D QUSOLNU03              11     20                                                                         07/12/12

  43200      D*                                             Object Lib Name Used                                        07/12/12

  43300      D QUSOBJTU03             21     30                                                                         07/12/12

  43400      D*                                             Object Type Used                                            07/12/12

  43500      D QUSIS04                31     31                                                                         07/12/12

  43600      D*                                             Information Status                                          07/12/12

  43700      D QUSEOA02               32     41                                                                         07/12/12

  43800      D*                                             Extended Obj Attr                                           07/12/12

  43900      D QUSTD09                42     91                                                                         07/12/12

  44000      D*                                             Text Description                                            07/12/12

  44100      D QUSUDA02               92    101                                                                         07/12/12

  44200      D*                                             User Defined Attr                                           07/12/12

  44300      D QUSERVED25            102    108                                                                         07/12/12

  44400      D*                                             Reserved                                                    07/12/12

  44500      D QUSASP01              109    112B 0                                                                      07/12/12

  44600      D*                                             Aux Storage Pool                                            07/12/12

  44700      D QUSOBJO01             113    122                                                                         07/12/12

  44800      D*                                             Object Owner                                                07/12/12

  44900      D QUSOBJD01             123    124                                                                         07/12/12

  45000      D*                                             Object Domain                                               07/12/12

  45100      D QUSCDT04              125    132                                                                         07/12/12

  45200      D*                                             Create Date Time                                            07/12/12

  45300      D QUSCDT05              133    140                                                                         07/12/12

  45400      D*                                             Change Date Time                                            07/12/12

  45500      D QUSORAGE01            141    150                                                                         07/12/12

  45600      D*                                             Storage                                                     07/12/12

  45700      D QUSOBJCS01            151    151                                                                         07/12/12

  45800      D*                                             Object Compress Status                                      07/12/12

  45900      D QUSAC01               152    152                                                                         07/12/12

  46000      D*                                             Allow Change                                                07/12/12

  46100      D QUSCBPGM01            153    153                                                                         07/12/12

  46200      D*                                             Changed By Program                                          07/12/12

  46300      D QUSOBJAV01            154    163                                                                         07/12/12

  46400      D*                                             Object Audit Value                                          07/12/12

  46500      D QUSDS02               164    164                                                                         07/12/12

  46600      D*                                             Digitally Signed                                            07/12/12

  46700      D*                                                        @A3A                                             07/12/12

  46800      D QUSDSST01             165    165                                                                         07/12/12

  46900      D*                                             Digitally Signed Sys Trust                                  07/12/12

  47000      D*                                                        @A4A                                             07/12/12

  47100      D QUSDSM01              166    166                                                                         07/12/12

  47200      D*                                             Digitally Signed Multiple                                   07/12/12

  47300      D*                                                        @A5C                                             07/12/12

  47400      D QUSRSV209             167    168                                                                         07/12/12

  47500      D*                                             Reserved2                                                   07/12/12

  47600      D*                                                        @A4C                                             07/12/12

  47700      D QUSLASPN11            169    172B 0                                                                      07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE   10

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  47800      D*                                             Lib ASP Number                                              07/12/12

  47900      D*                                                        @A3A                                             07/12/12

  48000      D QUSSFILN00            173    182                                                                         07/12/12

  48100      D*                                             Source File Name                                            07/12/12

  48200      D QUSSFLN00             183    192                                                                         07/12/12

  48300      D*                                             Source File Lib Name                                        07/12/12

  48400      D QUSSFMN00             193    202                                                                         07/12/12

  48500      D*                                             Source File Mbr Name                                        07/12/12

  48600      D QUSSFUDT00            203    215                                                                         07/12/12

  48700      D*                                             Source File Update Date Time                                07/12/12

  48800      D QUSCUP00              216    225                                                                         07/12/12

  48900      D*                                             Creator User Profile                                        07/12/12

  49000      D QUSSOBJC00            226    233                                                                         07/12/12

  49100      D*                                             System Object Creation                                      07/12/12

  49200      D QUSSL00               234    242                                                                         07/12/12

  49300      D*                                             System Level                                                07/12/12

  49400      D QUSPILER00            243    258                                                                         07/12/12

  49500      D*                                             Compiler                                                    07/12/12

  49600      D QUSOBJL01             259    266                                                                         07/12/12

  49700      D*                                             Object Level                                                07/12/12

  49800      D QUSUC00               267    267                                                                         07/12/12

  49900      D*                                             User Changed                                                07/12/12

  50000      D QUSLPGM00             268    283                                                                         07/12/12

  50100      D*                                             Licensed Program                                            07/12/12

  50200      D QUSPTF00              284    293                                                                         07/12/12

  50300      D*                                             PTF                                                         07/12/12

  50400      D QUSAPAR00             294    303                                                                         07/12/12

  50500      D*                                             APAR                                                        07/12/12

  50600      D QUSPG00               304    313                                                                         07/12/12

  50700      D*                                             Primary Group                                               07/12/12

  50800      D QUSRSV700             314    315                                                                         07/12/12

  50900      D*                                             Reserved7                                                   07/12/12

  51000      D*                                                        @B1A                                             07/12/12

  51100      D QUSOSA00              316    316                                                                         07/12/12

  51200      D*                                             Optimum Space Alignment                                     07/12/12

  51300      D*                                                        @B1M                                             07/12/12

  51400      D QUSASS00              317    320B 0                                                                      07/12/12

  51500      D*                                             Associated Space Size                                       07/12/12

  51600      D*                                                        @B0A                                             07/12/12

  51700      D QUSRSV301             321    324                                                                         07/12/12

  51800      D*                                             Reserved3                                                   07/12/12

  51900      D*                                                        @B1C                                             07/12/12

  52000      D QUSOSDT               325    332                                                                         07/12/12

  52100      D*                                             Object Saved Date Time                                      07/12/12

  52200      D QUSORDT               333    340                                                                         07/12/12

  52300      D*                                             Object Restored Date Time                                   07/12/12

  52400      D QUSSS00               341    344B 0                                                                      07/12/12

  52500      D*                                             Save Size                                                   07/12/12

  52600      D QUSSSM                345    348B 0                                                                      07/12/12

  52700      D*                                             Save Size Multiplier                                        07/12/12

  52800      D QUSSSNBR              349    352B 0                                                                      07/12/12

  52900      D*                                             Save Sequence Number                                        07/12/12

  53000      D QUSSCMD               353    362                                                                         07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE   11

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  53100      D*                                             Save Command                                                07/12/12

  53200      D QUSSVID               363    433                                                                         07/12/12

  53300      D*                                             Save Volume ID                                              07/12/12

  53400      D QUSSD01               434    443                                                                         07/12/12

  53500      D*                                             Save Device                                                 07/12/12

  53600      D QUSSFILN01            444    453                                                                         07/12/12

  53700      D*                                             Save File Name                                              07/12/12

  53800      D QUSSFLN01             454    463                                                                         07/12/12

  53900      D*                                             Save File Lib Name                                          07/12/12

  54000      D QUSSL01               464    480                                                                         07/12/12

  54100      D*                                             Save Label                                                  07/12/12

  54200      D QUSSADT               481    488                                                                         07/12/12

  54300      D*                                             Save Active Date Time                                       07/12/12

  54400      D QUSJS27               489    489                                                                         07/12/12

  54500      D*                                             Journal Status                                              07/12/12

  54600      D*                                                        @A1A                                             07/12/12

  54700      D QUSJN17               490    499                                                                         07/12/12

  54800      D*                                             Journal Name                                                07/12/12

  54900      D*                                                        @A1A                                             07/12/12

  55000      D QUSJLIB               500    509                                                                         07/12/12

  55100      D*                                             Journal Library                                             07/12/12

  55200      D*                                                        @A1A                                             07/12/12

  55300      D QUSJI                 510    510                                                                         07/12/12

  55400      D*                                             Journal Images                                              07/12/12

  55500      D*                                                        @A1A                                             07/12/12

  55600      D QUSJEO                511    511                                                                         07/12/12

  55700      D*                                             Journal Entries Omitted                                     07/12/12

  55800      D*                                                        @A1A                                             07/12/12

  55900      D QUSJSDT               512    519                                                                         07/12/12

  56000      D*                                             Journal Start Date Time                                     07/12/12

  56100      D*                                                        @A1A                                             07/12/12

  56200      D QUSRSV400             520    532                                                                         07/12/12

  56300      D*                                             Reserved4                                                   07/12/12

  56400      D*                                                        @A1C                                             07/12/12

  56500      D*****************************************************************                                         07/12/12

  56600      D*Type Definition for the OBJL0600 format.                                                                 07/12/12

  56700      D*****************************************************************                                         07/12/12

  56800      DQUSL0600         DS                  BASED(PTR_LST)                                                       07/12/12

  56900      D*                                             Qus OBJL0600                                                07/12/12

  57000      D QUSOBJNU04              1     10                                                                         07/12/12

  57100      D*                                             Object Name Used                                            07/12/12

  57200      D QUSOLNU04              11     20                                                                         07/12/12

  57300      D*                                             Object Lib Name Used                                        07/12/12

  57400      D QUSOBJTU04             21     30                                                                         07/12/12

  57500      D*                                             Object Type Used                                            07/12/12

  57600      D QUSIS05                31     31                                                                         07/12/12

  57700      D*                                             Information Status                                          07/12/12

  57800      D QUSEOA03               32     41                                                                         07/12/12

  57900      D*                                             Extended Obj Attr                                           07/12/12

  58000      D QUSTD10                42     91                                                                         07/12/12

  58100      D*                                             Text Description                                            07/12/12

  58200      D QUSUDA03               92    101                                                                         07/12/12

  58300      D*                                             User Defined Attr                                           07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE   12

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  58400      D QUSERVED26            102    108                                                                         07/12/12

  58500      D*                                             Reserved                                                    07/12/12

  58600      D QUSASP02              109    112B 0                                                                      07/12/12

  58700      D*                                             Aux Storage Pool                                            07/12/12

  58800      D QUSOBJO02             113    122                                                                         07/12/12

  58900      D*                                             Object Owner                                                07/12/12

  59000      D QUSOBJD02             123    124                                                                         07/12/12

  59100      D*                                             Object Domain                                               07/12/12

  59200      D QUSCDT06              125    132                                                                         07/12/12

  59300      D*                                             Create Date Time                                            07/12/12

  59400      D QUSCDT07              133    140                                                                         07/12/12

  59500      D*                                             Change Date Time                                            07/12/12

  59600      D QUSORAGE02            141    150                                                                         07/12/12

  59700      D*                                             Storage                                                     07/12/12

  59800      D QUSOBJCS02            151    151                                                                         07/12/12

  59900      D*                                             Object Compress Status                                      07/12/12

  60000      D QUSAC02               152    152                                                                         07/12/12

  60100      D*                                             Allow Change                                                07/12/12

  60200      D QUSCBPGM02            153    153                                                                         07/12/12

  60300      D*                                             Changed By Program                                          07/12/12

  60400      D QUSOBJAV02            154    163                                                                         07/12/12

  60500      D*                                             Object Audit Value                                          07/12/12

  60600      D QUSDS03               164    164                                                                         07/12/12

  60700      D*                                             Digitally Signed                                            07/12/12

  60800      D*                                                        @A3A                                             07/12/12

  60900      D QUSDSST02             165    165                                                                         07/12/12

  61000      D*                                             Digitally Signed Sys Trust                                  07/12/12

  61100      D*                                                        @A4A                                             07/12/12

  61200      D QUSDSM02              166    166                                                                         07/12/12

  61300      D*                                             Digitally Signed Multiple                                   07/12/12

  61400      D*                                                        @A5C                                             07/12/12

  61500      D QUSRSV210             167    168                                                                         07/12/12

  61600      D*                                             Reserved2                                                   07/12/12

  61700      D*                                                        @A4C                                             07/12/12

  61800      D QUSLASPN12            169    172B 0                                                                      07/12/12

  61900      D*                                             Lib ASP Number                                              07/12/12

  62000      D*                                                        @A3A                                             07/12/12

  62100      D QUSSFILN02            173    182                                                                         07/12/12

  62200      D*                                             Source File Name                                            07/12/12

  62300      D QUSSFLN02             183    192                                                                         07/12/12

  62400      D*                                             Source File Lib Name                                        07/12/12

  62500      D QUSSFMN01             193    202                                                                         07/12/12

  62600      D*                                             Source File Mbr Name                                        07/12/12

  62700      D QUSSFUDT01            203    215                                                                         07/12/12

  62800      D*                                             Source File Update Date Time                                07/12/12

  62900      D QUSCUP01              216    225                                                                         07/12/12

  63000      D*                                             Creator User Profile                                        07/12/12

  63100      D QUSSOBJC01            226    233                                                                         07/12/12

  63200      D*                                             System Object Creation                                      07/12/12

  63300      D QUSSL02               234    242                                                                         07/12/12

  63400      D*                                             System Level                                                07/12/12

  63500      D QUSPILER01            243    258                                                                         07/12/12

  63600      D*                                             Compiler                                                    07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE   13

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  63700      D QUSOBJL02             259    266                                                                         07/12/12

  63800      D*                                             Object Level                                                07/12/12

  63900      D QUSUC01               267    267                                                                         07/12/12

  64000      D*                                             User Changed                                                07/12/12

  64100      D QUSLPGM01             268    283                                                                         07/12/12

  64200      D*                                             Licensed Program                                            07/12/12

  64300      D QUSPTF01              284    293                                                                         07/12/12

  64400      D*                                             PTF                                                         07/12/12

  64500      D QUSAPAR01             294    303                                                                         07/12/12

  64600      D*                                             APAR                                                        07/12/12

  64700      D QUSPG01               304    313                                                                         07/12/12

  64800      D*                                             Primary Group                                               07/12/12

  64900      D QUSRSV701             314    315                                                                         07/12/12

  65000      D*                                             Reserved7                                                   07/12/12

  65100      D*                                                        @B1A                                             07/12/12

  65200      D QUSOSA01              316    316                                                                         07/12/12

  65300      D*                                             Optimum Space Alignment                                     07/12/12

  65400      D*                                                        @B1M                                             07/12/12

  65500      D QUSASS01              317    320B 0                                                                      07/12/12

  65600      D*                                             Associated Space Size                                       07/12/12

  65700      D*                                                        @B0A                                             07/12/12

  65800      D QUSRSV302             321    324                                                                         07/12/12

  65900      D*                                             Reserved3                                                   07/12/12

  66000      D*                                                        @B1C                                             07/12/12

  66100      D QUSOSDT00             325    332                                                                         07/12/12

  66200      D*                                             Object Saved Date Time                                      07/12/12

  66300      D QUSORDT00             333    340                                                                         07/12/12

  66400      D*                                             Object Restored Date Time                                   07/12/12

  66500      D QUSSS01               341    344B 0                                                                      07/12/12

  66600      D*                                             Save Size                                                   07/12/12

  66700      D QUSSSM00              345    348B 0                                                                      07/12/12

  66800      D*                                             Save Size Multiplier                                        07/12/12

  66900      D QUSSSNBR00            349    352B 0                                                                      07/12/12

  67000      D*                                             Save Sequence Number                                        07/12/12

  67100      D QUSSCMD00             353    362                                                                         07/12/12

  67200      D*                                             Save Command                                                07/12/12

  67300      D QUSSVID00             363    433                                                                         07/12/12

  67400      D*                                             Save Volume ID                                              07/12/12

  67500      D QUSSD02               434    443                                                                         07/12/12

  67600      D*                                             Save Device                                                 07/12/12

  67700      D QUSSFILN03            444    453                                                                         07/12/12

  67800      D*                                             Save File Name                                              07/12/12

  67900      D QUSSFLN03             454    463                                                                         07/12/12

  68000      D*                                             Save File Lib Name                                          07/12/12

  68100      D QUSSL03               464    480                                                                         07/12/12

  68200      D*                                             Save Label                                                  07/12/12

  68300      D QUSSADT00             481    488                                                                         07/12/12

  68400      D*                                             Save Active Date Time                                       07/12/12

  68500      D QUSJS28               489    489                                                                         07/12/12

  68600      D*                                             Journal Status                                              07/12/12

  68700      D*                                                        @A3A                                             07/12/12

  68800      D QUSJN18               490    499                                                                         07/12/12

  68900      D*                                             Journal Name                                                07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE   14

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  69000      D*                                                        @A3A                                             07/12/12

  69100      D QUSJLIB00             500    509                                                                         07/12/12

  69200      D*                                             Journal Library                                             07/12/12

  69300      D*                                                        @A3A                                             07/12/12

  69400      D QUSJI00               510    510                                                                         07/12/12

  69500      D*                                             Journal Images                                              07/12/12

  69600      D*                                                        @A3A                                             07/12/12

  69700      D QUSJEO00              511    511                                                                         07/12/12

  69800      D*                                             Journal Entries Omitted                                     07/12/12

  69900      D*                                                        @A3A                                             07/12/12

  70000      D QUSJSDT00             512    519                                                                         07/12/12

  70100      D*                                             Journal Start Date Time                                     07/12/12

  70200      D*                                                        @A3A                                             07/12/12

  70300      D QUSRSV401             520    532                                                                         07/12/12

  70400      D*                                             Reserved4                                                   07/12/12

  70500      D*                                                        @A3C                                             07/12/12

  70600      D QUSLUDT               533    540                                                                         07/12/12

  70700      D*                                             Last Used Date Time                                         07/12/12

  70800      D QUSRDT                541    548                                                                         07/12/12

  70900      D*                                             Reset Date Time                                             07/12/12

  71000      D QUSDUC                549    552B 0                                                                      07/12/12

  71100      D*                                             Days Used Count                                             07/12/12

  71200      D QUSUIU                553    553                                                                         07/12/12

  71300      D*                                             Usage Information Update                                    07/12/12

  71400      D QUSASPDN01            554    563                                                                         07/12/12

  71500      D*                                             Object ASP Device Name                                      07/12/12

  71600      D*                                                        @A3A                                             07/12/12

  71700      D QUSASPDN02            564    573                                                                         07/12/12

  71800      D*                                             Lib ASP Device Name                                         07/12/12

  71900      D*                                                        @A3A                                             07/12/12

  72000      D QUSRSV500             574    576                                                                         07/12/12

  72100      D*                                             Reserved5                                                   07/12/12

  72200      D*                                                        @A3C                                             07/12/12

  72300      D*****************************************************************                                         07/12/12

  72400      D*Type Definition for the OBJL0700 format.                                                                 07/12/12

  72500      D*****************************************************************                                         07/12/12

  72600      DQUSL0700         DS                  BASED(PTR_LST)                                                       07/12/12

  72700      D*                                             Qus OBJL0700                                                07/12/12

  72800      D QUSOBJNU05              1     10                                                                         07/12/12

  72900      D*                                             Object Name Used                                            07/12/12

  73000      D QUSOLNU05              11     20                                                                         07/12/12

  73100      D*                                             Object Lib Name Used                                        07/12/12

  73200      D QUSOBJTU05             21     30                                                                         07/12/12

  73300      D*                                             Object Type Used                                            07/12/12

  73400      D QUSIS06                31     31                                                                         07/12/12

  73500      D*                                             Information Status                                          07/12/12

  73600      D QUSEOA04               32     41                                                                         07/12/12

  73700      D*                                             Extended Obj Attr                                           07/12/12

  73800      D QUSTD11                42     91                                                                         07/12/12

  73900      D*                                             Text Description                                            07/12/12

  74000      D QUSUDA04               92    101                                                                         07/12/12

  74100      D*                                             User Defined Attr                                           07/12/12

  74200      D QUSERVED27            102    108                                                                         07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE   15

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  74300      D*                                             Reserved                                                    07/12/12

  74400      D QUSASP03              109    112B 0                                                                      07/12/12

  74500      D*                                             Aux Storage Pool                                            07/12/12

  74600      D QUSOBJO03             113    122                                                                         07/12/12

  74700      D*                                             Object Owner                                                07/12/12

  74800      D QUSOBJD03             123    124                                                                         07/12/12

  74900      D*                                             Object Domain                                               07/12/12

  75000      D QUSCDT08              125    132                                                                         07/12/12

  75100      D*                                             Create Date Time                                            07/12/12

  75200      D QUSCDT09              133    140                                                                         07/12/12

  75300      D*                                             Change Date Time                                            07/12/12

  75400      D QUSORAGE03            141    150                                                                         07/12/12

  75500      D*                                             Storage                                                     07/12/12

  75600      D QUSOBJCS03            151    151                                                                         07/12/12

  75700      D*                                             Object Compress Status                                      07/12/12

  75800      D QUSAC03               152    152                                                                         07/12/12

  75900      D*                                             Allow Change                                                07/12/12

  76000      D QUSCBPGM03            153    153                                                                         07/12/12

  76100      D*                                             Changed By Program                                          07/12/12

  76200      D QUSOBJAV03            154    163                                                                         07/12/12

  76300      D*                                             Object Audit Value                                          07/12/12

  76400      D QUSDS04               164    164                                                                         07/12/12

  76500      D*                                             Digitally Signed                                            07/12/12

  76600      D*                                                        @A3A                                             07/12/12

  76700      D QUSDSST03             165    165                                                                         07/12/12

  76800      D*                                             Digitally Signed Sys Trust                                  07/12/12

  76900      D*                                                        @A4A                                             07/12/12

  77000      D QUSDSM03              166    166                                                                         07/12/12

  77100      D*                                             Digitally Signed Multiple                                   07/12/12

  77200      D*                                                        @A5C                                             07/12/12

  77300      D QUSRSV211             167    168                                                                         07/12/12

  77400      D*                                             Reserved2                                                   07/12/12

  77500      D*                                                        @A4C                                             07/12/12

  77600      D QUSLASPN13            169    172B 0                                                                      07/12/12

  77700      D*                                             Lib ASP Number                                              07/12/12

  77800      D*                                                        @A3A                                             07/12/12

  77900      D QUSSFILN04            173    182                                                                         07/12/12

  78000      D*                                             Source File Name                                            07/12/12

  78100      D QUSSFLN04             183    192                                                                         07/12/12

  78200      D*                                             Source File Lib Name                                        07/12/12

  78300      D QUSSFMN02             193    202                                                                         07/12/12

  78400      D*                                             Source File Mbr Name                                        07/12/12

  78500      D QUSSFUDT02            203    215                                                                         07/12/12

  78600      D*                                             Source File Update Date Time                                07/12/12

  78700      D QUSCUP02              216    225                                                                         07/12/12

  78800      D*                                             Creator User Profile                                        07/12/12

  78900      D QUSSOBJC02            226    233                                                                         07/12/12

  79000      D*                                             System Object Creation                                      07/12/12

  79100      D QUSSL04               234    242                                                                         07/12/12

  79200      D*                                             System Level                                                07/12/12

  79300      D QUSPILER02            243    258                                                                         07/12/12

  79400      D*                                             Compiler                                                    07/12/12

  79500      D QUSOBJL03             259    266                                                                         07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE   16

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  79600      D*                                             Object Level                                                07/12/12

  79700      D QUSUC02               267    267                                                                         07/12/12

  79800      D*                                             User Changed                                                07/12/12

  79900      D QUSLPGM02             268    283                                                                         07/12/12

  80000      D*                                             Licensed Program                                            07/12/12

  80100      D QUSPTF02              284    293                                                                         07/12/12

  80200      D*                                             PTF                                                         07/12/12

  80300      D QUSAPAR02             294    303                                                                         07/12/12

  80400      D*                                             APAR                                                        07/12/12

  80500      D QUSPG02               304    313                                                                         07/12/12

  80600      D*                                             Primary Group                                               07/12/12

  80700      D QUSRSV702             314    315                                                                         07/12/12

  80800      D*                                             Reserved7                                                   07/12/12

  80900      D*                                                        @B1A                                             07/12/12

  81000      D QUSOSA02              316    316                                                                         07/12/12

  81100      D*                                             Optimum Space Alignment                                     07/12/12

  81200      D*                                                        @B1M                                             07/12/12

  81300      D QUSASS02              317    320B 0                                                                      07/12/12

  81400      D*                                             Associated Space Size                                       07/12/12

  81500      D*                                                        @B0A                                             07/12/12

  81600      D QUSRSV303             321    324                                                                         07/12/12

  81700      D*                                             Reserved3                                                   07/12/12

  81800      D*                                                        @B1C                                             07/12/12

  81900      D QUSOSDT01             325    332                                                                         07/12/12

  82000      D*                                             Object Saved Date Time                                      07/12/12

  82100      D QUSORDT01             333    340                                                                         07/12/12

  82200      D*                                             Object Restored Date Time                                   07/12/12

  82300      D QUSSS02               341    344B 0                                                                      07/12/12

  82400      D*                                             Save Size                                                   07/12/12

  82500      D QUSSSM01              345    348B 0                                                                      07/12/12

  82600      D*                                             Save Size Multiplier                                        07/12/12

  82700      D QUSSSNBR01            349    352B 0                                                                      07/12/12

  82800      D*                                             Save Sequence Number                                        07/12/12

  82900      D QUSSCMD01             353    362                                                                         07/12/12

  83000      D*                                             Save Command                                                07/12/12

  83100      D QUSSVID01             363    433                                                                         07/12/12

  83200      D*                                             Save Volume ID                                              07/12/12

  83300      D QUSSD03               434    443                                                                         07/12/12

  83400      D*                                             Save Device                                                 07/12/12

  83500      D QUSSFILN05            444    453                                                                         07/12/12

  83600      D*                                             Save File Name                                              07/12/12

  83700      D QUSSFLN05             454    463                                                                         07/12/12

  83800      D*                                             Save File Lib Name                                          07/12/12

  83900      D QUSSL05               464    480                                                                         07/12/12

  84000      D*                                             Save Label                                                  07/12/12

  84100      D QUSSADT01             481    488                                                                         07/12/12

  84200      D*                                             Save Active Date Time                                       07/12/12

  84300      D QUSJS29               489    489                                                                         07/12/12

  84400      D*                                             Journal Status                                              07/12/12

  84500      D*                                                        @A3A                                             07/12/12

  84600      D QUSJN19               490    499                                                                         07/12/12

  84700      D*                                             Journal Name                                                07/12/12

  84800      D*                                                        @A3A                                             07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE   17

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  84900      D QUSJLIB01             500    509                                                                         07/12/12

  85000      D*                                             Journal Library                                             07/12/12

  85100      D*                                                        @A3A                                             07/12/12

  85200      D QUSJI01               510    510                                                                         07/12/12

  85300      D*                                             Journal Images                                              07/12/12

  85400      D*                                                        @A3A                                             07/12/12

  85500      D QUSJEO01              511    511                                                                         07/12/12

  85600      D*                                             Journal Entries Omitted                                     07/12/12

  85700      D*                                                        @A3A                                             07/12/12

  85800      D QUSJSDT01             512    519                                                                         07/12/12

  85900      D*                                             Journal Start Date Time                                     07/12/12

  86000      D*                                                        @A3A                                             07/12/12

  86100      D QUSRSV402             520    532                                                                         07/12/12

  86200      D*                                             Reserved4                                                   07/12/12

  86300      D*                                                        @A3C                                             07/12/12

  86400      D QUSLUDT00             533    540                                                                         07/12/12

  86500      D*                                             Last Used Date Time                                         07/12/12

  86600      D QUSRDT00              541    548                                                                         07/12/12

  86700      D*                                             Reset Date Time                                             07/12/12

  86800      D QUSDUC00              549    552B 0                                                                      07/12/12

  86900      D*                                             Days Used Count                                             07/12/12

  87000      D QUSUIU00              553    553                                                                         07/12/12

  87100      D*                                             Usage Information Update                                    07/12/12

  87200      D QUSASPDN03            554    563                                                                         07/12/12

  87300      D*                                             Object ASP Device Name                                      07/12/12

  87400      D*                                                        @A3A                                             07/12/12

  87500      D QUSASPDN04            564    573                                                                         07/12/12

  87600      D*                                             Lib ASP Device Name                                         07/12/12

  87700      D*                                                        @A3A                                             07/12/12

  87800      D QUSRSV501             574    576                                                                         07/12/12

  87900      D*                                             Reserved5                                                   07/12/12

  88000      D*                                                        @A3C                                             07/12/12

  88100      D QUSOBJS               577    580B 0                                                                      07/12/12

  88200      D*                                             Object Size                                                 07/12/12

  88300      D QUSOBJSM              581    584B 0                                                                      07/12/12

  88400      D*                                             Object Size Multiplier                                      07/12/12

  88500      D QUSOASPI              585    585                                                                         07/12/12

  88600      D*                                             Overflow ASP Indicator                                      07/12/12

  88700      D QUSOASPG              586    595                                                                         07/12/12

  88800      D*                                             Object ASP Group                                            07/12/12

  88900      D*                                                        @C1A                                             07/12/12

  89000      D QUSLASPG              596    605                                                                         07/12/12

  89100      D*                                             Library ASP Group                                           07/12/12

  89200      D*                                                        @C1A                                             07/12/12

  89300      D QUSSJRFA              606    615                                                                         07/12/12

  89400      D*                                             Starting Jrn Rcv For Apply                                  07/12/12

  89500      D*                                                        @C1A                                             07/12/12

  89600      D QUSSJRL               616    625                                                                         07/12/12

  89700      D*                                             Starting Jrn Rcv Lib                                        07/12/12

  89800      D*                                                        @C1A                                             07/12/12

  89900      D QUSLASPD00            626    635                                                                         07/12/12

  90000      D*                                             Starting Jrn Rcv Lib ASP Dev                                07/12/12

  90100      D*                                                        @C1A                                             07/12/12

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:06    S6566EFE     PAGE   18

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMOBJLST

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  90200      D QUSLASPG00            636    645                                                                         07/12/12

  90300      D*                                             Starting Jrn Rcv Lib ASP Gro                                07/12/12

  90400      D*                                                        @C1A                                             07/12/12

  90500      D QUSRSV6               646    648                                                                         07/12/12

  90600      D*                                             Reserved6                                                   07/12/12

  90700      D*                                                        @C1C                                             07/12/12

                                  * * * *  F I N  D U  S O U R C E  * * * *

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:07    S6566EFE     PAGE    1

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMQDBLDBR

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

    100      D*** START HEADER FILE SPECIFICATIONS ****************************

    200      D*

    300      D*Header File Name: H/QDBLDBR

    400      D*

    500      D*Descriptive Name: List Database Relations API.

    600      D*

    700      D*5763-SS1  (C) Copyright IBM Corp. 1994,1994

    800      D*All rights reserved.

    900      D*US Government Users Restricted Rights -

   1000      D*Use, duplication or disclosure restricted

   1100      D*by GSA ADP Schedule Contract with IBM Corp.

   1200      D*

   1300      D*Licensed Materials-Property of IBM

   1400      D*

   1500      D*

   1600      D*Description: The List Database Releations API gives relational

   1700      D*          information about database files.

   1800      D*

   1900      D*Header Files Included: None.

   2000      D*

   2100      D*Macros List: None.

   2200      D*

   2300      D*Structure List: Qdb_Ldbr_Input_Parms_t

   2400      D*             Qdb_Dbrl0100_t

   2500      D*             Qdb_Dbrl0200_t

   2600      D*             Qdb_Dbrl0300_t

   2700      D*

   2800      D*Function Prototype List: QDBLDBR

   2900      D*

   3000      D*Change Activity:

   3100      D*

   3200      D*CFD List:

   3300      D*

   3400      D*FLAG REASON       LEVEL DATE   PGMR      CHANGE DESCRIPTION

   3500      D*---- ------------ ----- ------ --------- ----------------------

   3600      D*$A0= D2862000     3D10  940102 ROCH:     New Include

   3700      D*

   3800      D*End CFD List.

   3900      D*

   4000      D*Additional notes about the Change Activity

   4100      D*End Change Activity.

   4200      D*** END HEADER FILE SPECIFICATIONS ******************************

   4300      D********************************************************************

   4400      D*Prototypes for calling Retrieve Member Description API QDBLDBR

   4500      D********************************************************************

   4600      D QDBLDBR         C                   'QDBLDBR'

   4700      D******************************************************************

   4800      D*Input structure for QDBLDBR API header section

   4900      D******************************************************************

   5000      DQDBLIP           DS

   5100      D*                                             Qdb Ldbr Input Parms

   5200      D QDBUSN                  1     10

   5300      D*                                             Usr Space Name

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:07    S6566EFE     PAGE    2

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMQDBLDBR

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

   5400      D QDBUSLN                11     20

   5500      D*                                             Usr Space Library Name

   5600      D QDBFN                  21     28

   5700      D*                                             Format Name

   5800      D QDBFILNS               29     48

   5900      D*                                             File Name Specified

   6000      D QDBFNLS                49     68

   6100      D*                                             File Name Library Specified

   6200      D QDBFMNS                69     78

   6300      D*                                             File Member Name Specified

   6400      D QDBFRFNS               79     88

   6500      D*                                             File Record Format Name Spec

   6600      D******************************************************************

   6700      D*Record structure for QDBLDBR DBRL0100 format

   6800      D******************************************************************

   6900      DQDBD0100         DS                  BASED(PTR_LST)                                                       08/03/14

   7000      D*                                             Qdb Dbrl0100

   7100      D QDBFILN                 1     10

   7200      D*                                             File Name

   7300      D QDBLIBN                11     20

   7400      D*                                             Library Name

   7500      D QDBDFILN               21     30

   7600      D*                                             Dependent File Name

   7700      D QDBDFLN                31     40

   7800      D*                                             Dependent File Library Name

   7900      D QDBDT                  41     41

   8000      D*                                             Dependency Type

   8100      D QDBERVED               42     44

   8200      D*                                             Reserved

   8300      D QDBJRNBR               45     48B 0

   8400      D*                                             Join Reference Number

   8500      D QDBCNL                 49     52B 0

   8600      D*                                             Constraint Name Length

   8700      D QDBCN                  53    310

   8800      D*                                             Constraint Name

   8900      D QDBCLIBN              311    320

   9000      D*                                             Constraint Library Name

   9100      D******************************************************************

   9200      D*Record structure for QDBLDBR DBRL0200 format

   9300      D******************************************************************

   9400      DQDBD0200         DS                  BASED(PTR_LST)                                                       08/03/14

   9500      D*                                             Qdb Dbrl0200

   9600      D QDBFILN00               1     10

   9700      D*                                             File Name

   9800      D QDBLIBN00              11     20

   9900      D*                                             Library Name

  10000      D QDBMN                  21     30

  10100      D*                                             Member Name

  10200      D QDBDFILN00             31     40

  10300      D*                                             Dependent File Name

  10400      D QDBDFLN00              41     50

  10500      D*                                             Dependent File Library Name

  10600      D QDBDFMN                51     60

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:07    S6566EFE     PAGE    3

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMQDBLDBR

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

  10700      D*                                             Dependent File Member Name

  10800      D QDBDT00                61     61

  10900      D*                                             Dependency Type

  11000      D QDBERVED00             62     64

  11100      D*                                             Reserved

  11200      D QDBJRNBR00             65     68B 0

  11300      D*                                             Join Reference Number

  11400      D QDBJF                  69     72B 0

  11500      D*                                             Join Filenumber

  11600      D QDBCNL00               73     76B 0

  11700      D*                                             Constraint Name Length

  11800      D QDBCN00                77    334

  11900      D*                                             Constraint Name

  12000      D QDBCLIBN00            335    344

  12100      D*                                             Constraint Library Name

  12200      D******************************************************************

  12300      D*Record structure for QDBLDBR DBRL0300 format

  12400      D******************************************************************

  12500      DQDBD0300         DS                  BASED(PTR_LST)                                                       08/03/14

  12600      D*                                             Qdb Dbrl0300

  12700      D QDBFILN01               1     10

  12800      D*                                             File Name

  12900      D QDBLIBN01              11     20

  13000      D*                                             Library Name

  13100      D QDBRFN                 21     30

  13200      D*                                             Record Format Name

  13300      D QDBDFILN01             31     40

  13400      D*                                             Dependent File Name

  13500      D QDBDFLN01              41     50

  13600      D*                                             Dependent File Library Name

                                  * * * *  F I N  D U  S O U R C E  * * * *

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:07    S6566EFE     PAGE    1

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMQUSLJOB

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

    100      D*** START HEADER FILE SPECIFICATIONS ****************************

    200      D*

    300      D*Header File Name: H/QUSLJOB

    400      D*

    500      D*Descriptive Name: List Job API

    600      D*

    700      D*5763-SS1  (C) Copyright IBM Corp. 1994,1994

    800      D*All rights reserved.

    900      D*US Government Users Restricted Rights -

   1000      D*Use, duplication or disclosure restricted

   1100      D*by GSA ADP Schedule Contract with IBM Corp.

   1200      D*

   1300      D*Licensed Materials-Property of IBM

   1400      D*

   1500      D*

   1600      D*Description: The List Job API generates a list of all or some

   1700      D*          jobs on the system.

   1800      D*

   1900      D*Header Files Included: None.

   2000      D*

   2100      D*Macros List: None.

   2200      D*

   2300      D*Structure List: Qus_Ljob_Input_t

   2400      D*             Qus_Ljob_Header_t

   2500      D*             Qus_JOBL0100_t

   2600      D*             Qus_Ljob_Key_Fields_t

   2700      D*             Qus_JOBL0200_t

   2800      D*

   2900      D*Function Prototype List: QUSLJOB

   3000      D*

   3100      D*Change Activity:

   3200      D*

   3300      D*CFD List:

   3400      D*

   3500      D*FLAG REASON       LEVEL DATE   PGMR      CHANGE DESCRIPTION

   3600      D*---- ------------ ----- ------ --------- ----------------------

   3700      D*$A0= D2862000     3D10  940424 DETTMAN:  New Include

   3800      D*

   3900      D*End CFD List.

   4000      D*

   4100      D*Additional notes about the Change Activity

   4200      D*End Change Activity.

   4300      D*** END HEADER FILE SPECIFICATIONS ******************************

   4400      D*****************************************************************

   4500      D*Prototype for QUSLJOB API

   4600      D*****************************************************************

   4700      D QUSLJOB         C                   'QUSLJOB'

   4800      D*****************************************************************

   4900      D*Type Definition for the JOBL0100 and JOBL0200 input parameter

   5000      D*section.

   5100      D****                                                          ***

   5200      D*NOTE: The following type definition only defines the fixed

   5300      D*   portion of the format.  Any varying length field will

  5761WDS V6R1M0  080215                  LISTE SOURCE SEU                              09/08/14 17:55:07    S6566EFE     PAGE    2

  FICHIER SOURCE  . . . . .  ADMOPS/QRPGLEINC

  MEMBRE  . . . . . . . . .  ADMQUSLJOB

  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0

   5400      D*   have to be defined by the user.

   5500      D*****************************************************************

   5600      DQUSLI            DS

   5700      D*                                             Qus Ljob Input

   5800      D QUSJN                   1     10

   5900      D*                                             Job Name

   6000      D QUSUN                  11     20

   6100      D*                                             User Name

   6200      D QUSJNBR                21     26

   6300      D*                                             Job Number

   6400      D QUSTATUS               27     36

   6500      D*                                             Status

   6600      D QUSUS                  37     46

   6700      D*                                             User Space

   6800      D QUSUSL                 47     56

   6900      D*                                             User Space Lib

   7000      D QUSORMAT               57     64

   7100      D*                                             Format

   7200      D QUSJT                  65     65

   7300      D*                                             Job Type

   7400      D QUSERVED15             66     68

   7500      D*                                             Reserved

   7600      D QUSNFTR                69     72B 0

   7700      D*                                             Number Fields To Return

   7800      D*QUSKOFTR               73     76B 0 DIM(00001)

   7900      D*

   8000      D*                                    Varying length

   8100      D*****************************************************************

   8200      D*Type Definition for the JOBL0100 and JOBL0200 header section.

   8300      D*****************************************************************

   8400      DQUSLH