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

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

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

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

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

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

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

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