| 
**************************************************************** * * * Data Structure For API: QDCRCFGD * * Format: CFGD0100 * * Language: COBOL * * * **************************************************************** 01 CFGD0100-INPUT. 05 USER-SPACE-NAME-SPECIFIED PIC X(10). 05 USER-SPACE-LIB-NAME-SPECIFIED PIC X(10). 05 FORMAT-NAME-SPECIFIED PIC X(8). 05 CONFIGURATION-DESC-TYPE-SPEC PIC X(10). 05 OBJ-QUALIFIER-SPECIFIED PIC X(40). 05 STATUS-QUALIFIER-SPECIFIED PIC X(20). 05 EMPTY-FIELD1 PIC X(2). 01 CFGD0100-HEADER. 05 CONFIG-DESC-TYPE-USED PIC X(10). 05 OBJ-QUALIFIER-USED PIC X(40). 05 STATUS-QUALIFIER-USED PIC X(20). 05 EMPTY-FIELD2 PIC X(2). 01 CFGD0100-LIST. 05 CONFIG-DESC-NAME PIC X(10). |
|
05 CONFIG-DESC-CATEGORY PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCLCFGD * I* Format: CFGD0100 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IINPUT DS I 1 10 SPNAMI I 11 20 SPLIBI I 21 28 FNAMI I 29 38 CDTYPI I 39 78 OBJQI I 79 98 STSQI I 99 100 RSVI IHEADER DS I 1 10 CDTYPH I 11 50 OBJQH I 51 70 STSQH I 71 72 RSVH |
|
ILIST DS I 1 10 CDNAML I 11 20 CDCATL **************************************************************** * * * Data Structure For API: QDCRCFGD * * Format: CFGD0200 * * Language: COBOL * * * **************************************************************** 01 CFGD0200-INPUT. 05 USER-SPACE-NAME-SPECIFIED PIC X(10). 05 USER-SPACE-LIB-NAME-SPECIFIED PIC X(10). 05 FORMAT-NAME-SPECIFIED PIC X(8). 05 CONFIGURATION-DESC-TYPE-SPEC PIC X(10). 05 OBJ-QUALIFIER-SPECIFIED PIC X(40). 05 STATUS-QUALIFIER-SPECIFIED PIC X(20). 05 EMPTY-FIELD1 PIC X(2). 01 CFGD0200-HEADER. 05 CONFIG-DESC-TYPE-USED PIC X(10). 05 OBJ-QUALIFIER-USED PIC X(40). 05 STATUS-QUALIFIER-USED PIC X(20). |
|
05 EMPTY-FIELD2 PIC X(2). 01 CFGD0200-LIST. 05 CUR-STATUS-NUMERIC-CODE PIC S9(9) COMP-4. 05 CONFIG-DESC-NAME PIC X(10). 05 CONFIG-DESC-CATEGORY PIC X(10). 05 CUR-STATUS-DISPLAYABLE-TEXT PIC X(20). 05 TEXT-DESC PIC X(50). 05 JOB. 10 JOB-NAME PIC X(10). 10 USER-NAME PIC X(10). 10 JOB-NUM PIC X(6). 05 PASS-THROUGH-DEV PIC X(10). I**************************************************************** I* * I* Data structure for API: QDCLCFGD * I* Format: CFGD0200 * I* Langauge: RPG * I* Note(s): * I* * I**************************************************************** IINPUT DS I 1 10 SPNAMI |
|
I 11 20 SPLIBI I 21 28 FNAMI I 29 38 CDTYPI I 39 78 OBJQI I 79 98 STSQI I 99 100 RSVI IHEADER DS I 1 10 CDTYPH I 11 50 OBJQH I 51 70 STSQH I 71 72 RSVH ILIST DS I B 1 40STSNL I 5 14 CDNAML I 15 24 CDCATL I 25 44 STSTL I 45 94 TXTDL I 95 104 JNAML I 105 114 UNAML I 115 120 JNBRL I 121 130 PTDEVL |
