PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 09/01/2015 Time 23:48:17 Page 1 Invocation parameters: OPTFILE PROCESS(CBL) statements: CBL OPTIMIZE(FULL) CBL TEST(EJPD,SEPARATE,NOHOOK) CBL LIST Options from SYSOPTF: NOADV APOST AWO BLOCK0 CODEPAGE(1147) DATA(31) DBCS FASTSRT FLAGMIG4 LIB MAP NAME(ALIAS) OFFSET RENT OFFSET TRUNC(BIN) XREF SQL NOSQLCCSID SQL("APOSTSQL") SQL("ATTACH(TSO)") SQL("NEWFUN(YES)") SQL("PERIOD") SQL("VERSION(AUTO)") SIZE(4000K) NOCICS DYNAM IGYOS4022-W The "OFFSET" option was discarded due to option conflict resolution. The "LIST" option from "PROCESS/CBL" statement took precedence. IGYOS4073-W File "SYSDEBUG" could not be opened because the DD statement was missing. The "SEPARATE" option was reset to "NOSEPARATE". Options in effect: NOADATA NOADV APOST ARITH(COMPAT) AWO BLOCK0 BUFSIZE(4096) NOCICS CODEPAGE(1147) NOCOMPILE(S) NOCURRENCY DATA(31) PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 09/01/2015 Time 23:48:17 Page 2 NODATEPROC DBCS NODECK NODIAGTRUNC NODLL NODUMP DYNAM NOEXIT NOEXPORTALL FASTSRT FLAG(I,I) FLAGMIG4 NOFLAGSTD INTDATE(ANSI) LANGUAGE(EN) LIB LINECOUNT(60) LIST MAP NOMDECK NAME(ALIAS) NSYMBOL(NATIONAL) NONUMBER NUMPROC(NOPFD) OBJECT NOOFFSET OPTIMIZE(FULL) OUTDD(SYSOUT) PGMNAME(COMPAT) RENT RMODE(AUTO) SEQUENCE SIZE(4096000) SOURCE SPACE(1) SQL('APOSTSQL ATTACH(TSO) NEWFUN(YES) PERIOD VERSION(AUTO)') NOSQLCCSID NOSSRANGE NOTERM TEST(NOHOOK,NOSEPARATE,EJPD) NOTHREAD TRUNC(BIN) NOVBREF NOWORD XMLPARSE(XMLSS) XREF(FULL) YEARWINDOW(1900) ZWB IGYOS4077-I DSNH4760I DSNHPSRV THE DB2 SQL COPROCESSOR IS USING THE LEVEL 2 INTERFACE UNDER DB2 V10 SQL Options in effect: APOSTSQL ATTACH(TSO) CCSID(1147) CONNECT(2) PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 09/01/2015 Time 23:48:17 Page 3 DEC(15) DECP(DSNHDECP) NEWFUN(YES) ONEPASS PERIOD STDSQL(NO) SQL(DB2) VERSION(2015-09-01-21.48.18.417102) NOXREF NO SOURCE DSNHDECP LOADED FROM - (T$PRODUI.DB2.SDSNEXIT(DSNHDECP)) PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 4 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference /* INFOPROG 000001 Identification division. 000002 Program-id. InfoProg. 000003 Environment division. 000004 Data division. 000005 Working-storage section. 000006 01 CARTE. BLW=00000+000 0CL80 * * 000007 02 LOADMODULE pic X(8). BLW=00000+000,0000000 8C 000008 02 pic X(72). BLW=00000+008,0000008 72C 000009 * ---------------------------------------------------------------- 000010 * Gestion memoire dynamique 000011 01 W-DYNA-CEEGTST pic X(8) value 'CEEGTST '. BLW=00000+050 8C 000012 01 W-DYNA-CEECZST pic X(8) value 'CEECZST '. BLW=XXXXX+000 8C 000013 01 W-DYNA-CEEFRST pic X(8) value 'CEEFRST '. BLW=XXXXX+000 8C 000014 01 W-DYNA-HEAPID pic 9(8) comp-5 value 0. BLW=00000+058 4C 000015 01 W-DYNA-SIZE pic 9(8) comp-5. BLW=00000+060 4C 000016 01 W-DYNA-ADDR pointer. BLW=00000+068 4C 000017 * ---------------------------------------------------------------- 000018 * Zones de communications de l'interface Request Code 000019 01 IEWBFDAT pic x(8) value 'IEWBFDAT'. BLW=00000+070 8C 000020 01 RC-FUNCTION. BLW=00000+078 0CL4 000021 02 RC-CODE pic X(2). BLW=00000+078,0000000 2C 000022 02 pic X(2) value x'0001'. BLW=00000+07A,0000002 2C 000023 01 RC-LAST pic X(2). BLW=00000+080 2C 000024 01 RC-RETURN pic S9(8) comp-5. BLW=00000+088 4C 000025 01 RC-REASON pic S9(8) comp-5. BLW=00000+090 4C 000026 01 RC-MTOKEN pic 9(8) comp-5. BLW=00000+098 4C 000027 01 RC-DDNAME. BLW=00000+0A0 0CL10 000028 02 pic 9(4) comp-5 value 7. BLW=00000+0A0,0000000 2C 000029 02 pic X(8) value 'LIBRARY '. BLW=00000+0A2,0000002 8C 000030 01 RC-MEMBER. BLW=00000+0B0 0CL10 000031 02 RC-MEMBER-LTH pic 9(4) comp-5. BLW=00000+0B0,0000000 2C 000032 02 RC-MEMBER-NAME pic X(8). BLW=00000+0B2,0000002 8C 000033 * ---------------------------------------------------------------- 000034 * Name List 000035 01 RC-GN-MTYPE pic X(1). BLW=00000+0C0 1C 000036 01 RC-GN-CURSOR pic 9(8) comp-5. BLW=00000+0C8 4C 000037 01 RC-GN-COUNT pic 9(8) comp-5. BLW=00000+0D0 4C 000038 * ---------------------------------------------------------------- 000039 * Compile Unit Information 000040 01 RC-GC-CULIST. BLW=00000+0D8 0CL4 000041 05 RC-GC-NB pic 9(8) comp-5 value 0. BLW=00000+0D8,0000000 4C 000042 01 RC-GC-CURSOR pic 9(8) comp-5. BLW=00000+0E0 4C 000043 01 RC-GC-COUNT pic 9(8) comp-5. BLW=00000+0E8 4C 000044 Linkage Section. 000045 * ---------------------------------------------------------------- 000046 * Zone texte flottante 000047 01 VSTRING. BLL=00001+000 0CL128 000048 02 pic X(1) occurs 128. BLL=00001+000,0000000 1C 000049 * ---------------------------------------------------------------- 000050 * Binder name list (version 7) 000051 01 NAME-LIST-BUFFER. BLL=00002+000 0CL2432 000052 02 BNLH. BLL=00002+000,0000000 0CL32 000053 05 pic X(8). BLL=00002+000,0000000 8C 000054 88 BNLH_BUFFER_ID value 'IEWBBNL '. 000055 05 BNLH_BUFFER_LENG pic 9(8) comp-5. BLL=00002+008,0000008 4C PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 5 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 000056 05 pic X(1). BLL=00002+00C,000000C 1C 000057 88 BNLH_VERSION value x'07'. 000058 05 pic X(3). BLL=00002+00D,000000D 3C 000059 05 BNLH_ENTRY_LENG pic 9(8) comp-5. BLL=00002+010,0000010 4C 000060 05 BNLH_ENTRY_COUNT pic 9(8) comp-5. BLL=00002+014,0000014 4C 000061 05 pic X(8). BLL=00002+018,0000018 8C 000062 02 BNL_ENTRY occurs 100 BLL=00002+020,0000020 0CL24 000063 indexed by XBNL. IDX=00001+000 000064 05 BNL_CLS_LENGTH pic 9(8) comp-5. BLL=00002+020,0000020 4C 000065 05 BNL_SECT_CU redefines BNL_CLS_LENGTH BLL=00002+020,0000020 4C 64 000066 pic 9(8) comp-5. 000067 05 BNL_BIND_FLAGS pic X(1). BLL=00002+024,0000024 1C 000068 * 1... .... Generated by Binder 000069 * .1.. .... No data present 000070 * ..1. .... Varying length records 000071 * ...1 .... Descriptive data (non-text) 000072 * .... 1... Class has initial data 000073 * .... .1.. Fill character specified 000074 * .... ...1 Class validation error 000075 05 BNL_LOAD_FLAGS pic X(1). BLL=00002+025,0000025 1C 000076 * 1... .... Read Only 000077 * .xx. .... Time of load 000078 * .00. .... Class is initially loaded 000079 * .01. .... A DEFER load class 000080 * .10. .... A NOLOAD class 000081 * ...1 .... Sharable 000082 * .... 1... Moveable (AdCon free) 000083 * .... ..xx Binding Method 000084 * .... ..00 CAT(catenated text) 000085 * .... ..01 MERGE(merged parts) 000086 05 BNL_NAME_CHARS pic 9(4) comp-5. BLL=00002+026,0000026 2C 000087 05 BNL_NAME_PTR pointer. BLL=00002+028,0000028 4C 000088 05 BNL_ELEM_COUNT pic 9(8) comp-5. BLL=00002+02C,000002C 4C 000089 05 BNL_SEGM_ID pic 9(4) comp-5. BLL=00002+030,0000030 2C 000090 05 BNL_ATTR pic X(1). BLL=00002+032,0000032 1C 000091 05 BNL_ALIGN redefines BNL_ATTR BLL=00002+032,0000032 1C 90 000092 pic X(1). 000093 * 00011.. Doubleword 000094 * 00100.. Quadword 000095 * 01100.. Page (4K) 000096 05 BNL_RMODE redefines BNL_ALIGN BLL=00002+032,0000032 1C 91 000097 pic X(1). 000098 * .....001 Rmode 24 000099 * .....011 Rmode ANY 000100 * .....100 Rmode 64 000101 05 BNL_NAMESPACE pic X(1). BLL=00002+033,0000033 1C 000102 * x'01' = catenate class 000103 * x'02' = pseudoregisters (merge class) 000104 * x'03' = parts (merge class) 000105 05 BNL_SEGM_OFF pic S9(8) comp-5. BLL=00002+034,0000034 4C 000106 * ---------------------------------------------------------------- 000107 * CUI entry (version 6) 000108 01 COMPILE-UNIT-BUFFER. BLL=00003+000 0CL8032 000109 02 CUIH. BLL=00003+000,0000000 0CL32 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 6 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 000110 05 pic X(8). BLL=00003+000,0000000 8C 000111 88 CUIH_BUFFER_ID value 'IEWBCUI '. 000112 05 CUIH_BUFFER_LENG pic 9(8) comp-5. BLL=00003+008,0000008 4C 000113 05 pic X(1). BLL=00003+00C,000000C 1C 000114 88 CUIH_VERSION value x'06'. 000115 05 pic X(3). BLL=00003+00D,000000D 3C 000116 05 CUIH_ENTRY_LENG pic 9(8) comp-5. BLL=00003+010,0000010 4C 000117 05 CUIH_ENTRY_COUNT pic 9(8) comp-5. BLL=00003+014,0000014 4C 000118 05 pic X(8). BLL=00003+018,0000018 8C 000119 02 CUI_ENTRY occurs 100 BLL=00003+020,0000020 0CL80 000120 indexed by XCUI. IDX=00002+000 000121 05 CUI_CU pic 9(8) comp-5. BLL=00003+020,0000020 4C 000122 05 CUI_SOURCE_CU pic 9(8) comp-5. BLL=00003+024,0000024 4C 000123 05 pic X(2). BLL=00003+028,0000028 2C 000124 05 CUI_MEMBER_LEN pic 9(4) comp-5. BLL=00003+02A,000002A 2C 000125 05 CUI_MEMBER_PTR pointer. BLL=00003+02C,000002C 4C 000126 05 pic X(2). BLL=00003+030,0000030 2C 000127 05 CUI_PATH_LEN pic 9(4) comp-5. BLL=00003+032,0000032 2C 000128 05 CUI_PATH_PTR pointer. BLL=00003+034,0000034 4C 000129 05 pic X(2). BLL=00003+038,0000038 2C 000130 05 CUI_DSNAME_LEN pic 9(4) comp-5. BLL=00003+03A,000003A 2C 000131 05 CUI_DSNAME_PTR pointer. BLL=00003+03C,000003C 4C 000132 05 CUI_DDNAME pic X(8). BLL=00003+040,0000040 8C 000133 05 pic X(2). BLL=00003+048,0000048 2C 000134 05 CUI_CONCAT pic X(1). BLL=00003+04A,000004A 1C 000135 05 CUI_TYPE pic X(1). BLL=00003+04B,000004B 1C 000136 * X'00' Load module 000137 * X'01' Generated by PUTD API version 1 000138 * X'02' Generated by PUTD API version 2 or higher 000139 * X'10' PO1 (PM1) format program object 000140 * X'11' Object module (traditional format) 000141 * X'12' Object module (XOBJ format) 000142 * X'13' Object module (GOFF format) 000143 * X'14' Unknown 000144 * X'15' Workmod 000145 * X'1E' Generated by the binder 000146 * X'20' PO2 (PM2) format program object 000147 * X'30' PO3 (PM3) format program object 000148 * X'41' PO4 (PM4) format program object, z/OS 1.3 000149 * X'42' z/OS 1.5 compatible 000150 * X'43' z/OS 1.7 compatible 000151 * X'51' PO5 (PM5) format program object, z/OS 1.8 000152 * X'52' z/OS 1.10 compatible 000153 * X'53' z/OS 1.13 compatible 000154 * X'54' z/OS 2.1 compatible 000155 05 pic X(4). BLL=00003+04C,000004C 4C 000156 05 pic X(2). BLL=00003+050,0000050 2C 000157 05 CUI_C_MEMBER_LEN pic 9(4) comp-5. BLL=00003+052,0000052 2C 000158 05 CUI_C_MEMBER_PTR pointer. BLL=00003+054,0000054 4C 000159 05 pic X(2). BLL=00003+058,0000058 2C 000160 05 CUI_C_PATH_LEN pic 9(4) comp-5. BLL=00003+05A,000005A 2C 000161 05 CUI_C_PATH_PTR pointer. BLL=00003+05C,000005C 4C 000162 05 pic X(2). BLL=00003+060,0000060 2C 000163 05 CUI_C_DSNAME_LEN pic 9(4) comp-5. BLL=00003+062,0000062 2C 000164 05 CUI_C_DSNAME_PTR pointer. BLL=00003+064,0000064 4C 000165 05 pic X(3). BLL=00003+068,0000068 3C 000166 05 CUI_C_TYPE pic X(1). BLL=00003+06B,000006B 1C PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 7 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 000167 05 CUI_C_SEQ pic 9(8) comp-5. BLL=00003+06C,000006C 4C 000168 Procedure division. 000169 Main. 000170 accept CARTE 6 000171 display 'Programme "' LOADMODULE '"' 7 000172 move 8 to RC-MEMBER-LTH 31 000173 move LOADMODULE to RC-MEMBER-NAME 7 32 000174 * Ouverture de la session pour le module indiqué 000175 perform Ouverture-Session 253 000176 * Lecture des noms de classes du programme 000177 * perform Lecture-Nombre-Classes 000178 * move RC-GN-COUNT to tally 000179 move 100 to tally IMP 000180 compute W-DYNA-SIZE = length of BNLH 15 IMP 52 000181 + (length of BNL_ENTRY + 256) * tally IMP 62 IMP 000182 perform Allocation-Memoire 373 000183 set address of NAME-LIST-BUFFER to W-DYNA-ADDR IMP 51 16 000184 move all x'00' to BNLH 52 000185 * compute BNL-L = W-DYNA-SIZE - length of BNL-L 000186 set BNLH_BUFFER_ID to true 54 000187 * move BNL-L to BNLH_BUFFER_LENG 000188 move W-DYNA-SIZE to BNLH_BUFFER_LENG 15 55 000189 set BNLH_VERSION to true 57 000190 move length of BNL_ENTRY to BNLH_ENTRY_LENG IMP 62 59 000191 move tally to BNLH_ENTRY_COUNT IMP 60 000192 perform Lecture-Noms-Classes 285 000193 000194 perform varying XBNL from 1 by 1 63 000195 until XBNL > RC-GN-COUNT 63 37 000196 1 set address of VSTRING to BNL_NAME_PTR (XBNL) IMP 47 87 63 000197 1 move BNL_NAME_CHARS (XBNL) to TALLY 86 63 IMP 000198 1 display '- Classe "' VSTRING(1:TALLY) '"' 47 IMP 000199 end-perform 000200 000201 * Lecture des noms de Sections du programme 000202 * perform Lecture-Nombre-Sections 000203 * move RC-GN-COUNT to tally 000204 move 100 to tally IMP 000205 * compute W-DYNA-SIZE = length of BNLH 000206 * + (length of BNL_ENTRY + 256) * tally 000207 * perform Allocation-Memoire 000208 * set address of NAME-LIST-BUFFER to W-DYNA-ADDR 000209 move all x'00' to BNLH 52 000210 * compute BNL-L = W-DYNA-SIZE - length of BNL-L 000211 set BNLH_BUFFER_ID to true 54 000212 * move BNL-L to BNLH_BUFFER_LENG 000213 move W-DYNA-SIZE to BNLH_BUFFER_LENG 15 55 000214 set BNLH_VERSION to true 57 000215 move length of BNL_ENTRY to BNLH_ENTRY_LENG IMP 62 59 000216 move tally to BNLH_ENTRY_COUNT IMP 60 000217 perform Lecture-Noms-Sections 311 000218 000219 perform varying XBNL from 1 by 1 63 000220 until XBNL > RC-GN-COUNT 63 37 000221 1 set address of VSTRING to BNL_NAME_PTR (XBNL) IMP 47 87 63 000222 1 move BNL_NAME_CHARS (XBNL) to TALLY 86 63 IMP 000223 1 display '- Section "' VSTRING(1:TALLY) '"' 47 IMP PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 8 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 000224 end-perform 000225 000226 * Lecture des informations sur les unités de compilation 000227 move 100 to tally IMP 000228 compute W-DYNA-SIZE = length of CUIH 15 IMP 109 000229 + (length of CUI_ENTRY + 256) * tally IMP 119 IMP 000230 perform Allocation-Memoire 373 000231 set address of COMPILE-UNIT-BUFFER to W-DYNA-ADDR IMP 108 16 000232 move all x'00' to CUIH 109 000233 set CUIH_BUFFER_ID to true 111 000234 move W-DYNA-SIZE to CUIH_BUFFER_LENG 15 112 000235 set CUIH_VERSION to true 114 000236 move length of CUI_ENTRY to CUIH_ENTRY_LENG IMP 119 116 000237 move tally to CUIH_ENTRY_COUNT IMP 117 000238 perform Lecture-Unites-Compilation 326 000239 000240 perform varying XCUI from 1 by 1 120 000241 until XCUI > RC-GC-COUNT 120 43 000242 1 continue 000243 end-perform 000244 000245 * Fermeture de la session 000246 perform Fermeture-Session 264 000247 . 000248 Bye. 000249 Goback 000250 . 000251 * ---------------------------------------------------------------- 000252 * SJ - Starting a session with a DD name or path 000253 Ouverture-Session. 000254 move 'SJ' to RC-CODE 21 000255 move 0 to RC-MTOKEN 26 000256 call IEWBFDAT using RC-FUNCTION 19 20 000257 RC-MTOKEN 26 000258 RC-DDNAME 27 000259 RC-MEMBER 30 000260 perform test-code-retour 360 000261 . 000262 * ---------------------------------------------------------------- 000263 * EN - Ending a session 000264 Fermeture-Session. 000265 move 'EN' to RC-CODE 21 000266 call IEWBFDAT using RC-FUNCTION 19 20 000267 RC-MTOKEN 26 000268 perform test-code-retour 360 000269 . 000270 * ---------------------------------------------------------------- 000271 * GN - Getting Names of sections or classes 000272 Lecture-Nombre-Classes. 000273 move 'GN' to RC-CODE 21 000274 move 'C' to RC-GN-MTYPE 35 000275 move 0 to RC-GN-CURSOR 36 000276 move 0 to RC-GN-COUNT 37 000277 call IEWBFDAT using RC-FUNCTION 19 20 000278 RC-MTOKEN 26 000279 RC-GN-MTYPE 35 000280 omitted PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 9 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 000281 RC-GN-CURSOR 36 000282 RC-GN-COUNT 37 000283 perform test-code-retour 360 000284 . 000285 Lecture-Noms-Classes. 000286 move 'GN' to RC-CODE 21 000287 move 'C' to RC-GN-MTYPE 35 000288 move 0 to RC-GN-CURSOR 36 000289 move 0 to RC-GN-COUNT 37 000290 call IEWBFDAT using RC-FUNCTION 19 20 000291 RC-MTOKEN 26 000292 RC-GN-MTYPE 35 000293 NAME-LIST-BUFFER 51 000294 RC-GN-CURSOR 36 000295 RC-GN-COUNT 37 000296 perform test-code-retour 360 000297 . 000298 Lecture-Nombre-Sections. 000299 move 'GN' to RC-CODE 21 000300 move 'S' to RC-GN-MTYPE 35 000301 move 0 to RC-GN-CURSOR 36 000302 move 0 to RC-GN-COUNT 37 000303 call IEWBFDAT using RC-FUNCTION 19 20 000304 RC-MTOKEN 26 000305 RC-GN-MTYPE 35 000306 omitted 000307 RC-GN-CURSOR 36 000308 RC-GN-COUNT 37 000309 perform test-code-retour 360 000310 . 000311 Lecture-Noms-Sections. 000312 move 'GN' to RC-CODE 21 000313 move 'S' to RC-GN-MTYPE 35 000314 move 0 to RC-GN-CURSOR 36 000315 move 0 to RC-GN-COUNT 37 000316 call IEWBFDAT using RC-FUNCTION 19 20 000317 RC-MTOKEN 26 000318 RC-GN-MTYPE 35 000319 NAME-LIST-BUFFER 51 000320 RC-GN-CURSOR 36 000321 RC-GN-COUNT 37 000322 perform test-code-retour 360 000323 . 000324 * ---------------------------------------------------------------- 000325 * GC - Getting Compile unit information 000326 Lecture-Unites-Compilation. 000327 move 'GC' to RC-CODE 21 000328 move 0 to RC-GC-NB 41 000329 move 0 to RC-GC-CURSOR 42 000330 move 0 to RC-GC-COUNT 43 000331 call IEWBFDAT using RC-FUNCTION 19 20 000332 RC-MTOKEN 26 000333 RC-GC-CULIST 40 000334 COMPILE-UNIT-BUFFER 108 000335 RC-GC-CURSOR 42 000336 RC-GC-COUNT 43 000337 perform test-code-retour 360 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 10 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 000338 . 000339 * ---------------------------------------------------------------- 000340 * RC - Return Code information 000341 * 000342 Lecture-code-retour. 000343 move RC-CODE to RC-LAST 21 23 000344 move 'RC' to RC-CODE 21 000345 call IEWBFDAT using RC-FUNCTION 19 20 000346 RC-MTOKEN 26 000347 RC-RETURN 24 000348 RC-REASON 25 000349 move RC-LAST to RC-CODE 23 21 000350 . 000351 Lecture-anomalie. 000352 perform Lecture-code-retour 342 000353 display 'Traitement programme ' LOADMODULE 7 000354 display 'Fonction ' RC-CODE 21 000355 ', RC=' RC-RETURN 24 000356 ', REASON=' RC-REASON 25 000357 move RC-RETURN to RETURN-CODE 24 IMP 000358 goback 000359 . 000360 Test-code-retour. 000361 evaluate RETURN-CODE IMP 000362 when 0 000363 1 move 0 to RC-RETURN 24 000364 1 RC-REASON 25 000365 when 1 thru 4 000366 1 perform Lecture-code-retour 342 000367 when other 000368 1 perform Lecture-anomalie 351 ==000368==> IGYOP3093-W The "PERFORM" statement at "PERFORM (line 368.01)" cannot reach its exit. 000369 end-evaluate 000370 . 000371 * ---------------------------------------------------------------- 000372 * Allocation mémoire dynamique 000373 Allocation-memoire. 000374 call W-DYNA-CEEGTST using W-DYNA-HEAPID 11 14 ==000374==> IGYSC0209-W DSNH053I DSNHPSRV NO SQL STATEMENTS WERE FOUND 000375 W-DYNA-SIZE 15 000376 W-DYNA-ADDR 16 000377 omitted 000378 . 000379 End program InfoProg. 2 */ INFOPROG PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 11 An "M" preceding a data-name reference indicates that the data-name is modified by this reference. Defined Cross-reference of data names References 91 BNL_ALIGN. . . . . . . . . . . 96 90 BNL_ATTR . . . . . . . . . . . 91 67 BNL_BIND_FLAGS 64 BNL_CLS_LENGTH . . . . . . . . 65 88 BNL_ELEM_COUNT 62 BNL_ENTRY. . . . . . . . . . . 181 190 215 75 BNL_LOAD_FLAGS 86 BNL_NAME_CHARS . . . . . . . . 197 222 87 BNL_NAME_PTR . . . . . . . . . 196 221 101 BNL_NAMESPACE 96 BNL_RMODE 65 BNL_SECT_CU 89 BNL_SEGM_ID 105 BNL_SEGM_OFF 52 BNLH . . . . . . . . . . . . . 180 M184 M209 54 BNLH_BUFFER_ID . . . . . . . . M186 M211 55 BNLH_BUFFER_LENG . . . . . . . M188 M213 60 BNLH_ENTRY_COUNT . . . . . . . M191 M216 59 BNLH_ENTRY_LENG. . . . . . . . M190 M215 57 BNLH_VERSION . . . . . . . . . M189 M214 6 CARTE. . . . . . . . . . . . . M170 108 COMPILE-UNIT-BUFFER. . . . . . 231 334 163 CUI_C_DSNAME_LEN 164 CUI_C_DSNAME_PTR 157 CUI_C_MEMBER_LEN 158 CUI_C_MEMBER_PTR 160 CUI_C_PATH_LEN 161 CUI_C_PATH_PTR 167 CUI_C_SEQ 166 CUI_C_TYPE 134 CUI_CONCAT 121 CUI_CU 132 CUI_DDNAME 130 CUI_DSNAME_LEN 131 CUI_DSNAME_PTR 119 CUI_ENTRY. . . . . . . . . . . 229 236 124 CUI_MEMBER_LEN 125 CUI_MEMBER_PTR 127 CUI_PATH_LEN 128 CUI_PATH_PTR 122 CUI_SOURCE_CU 135 CUI_TYPE 109 CUIH . . . . . . . . . . . . . 228 M232 111 CUIH_BUFFER_ID . . . . . . . . M233 112 CUIH_BUFFER_LENG . . . . . . . M234 117 CUIH_ENTRY_COUNT . . . . . . . M237 116 CUIH_ENTRY_LENG. . . . . . . . M236 114 CUIH_VERSION . . . . . . . . . M235 19 IEWBFDAT . . . . . . . . . . . 256 266 277 290 303 316 331 345 7 LOADMODULE . . . . . . . . . . 171 173 353 51 NAME-LIST-BUFFER . . . . . . . 183 293 319 21 RC-CODE. . . . . . . . . . . . M254 M265 M273 M286 M299 M312 M327 343 M344 M349 354 27 RC-DDNAME. . . . . . . . . . . 258 20 RC-FUNCTION. . . . . . . . . . 256 266 277 290 303 316 331 345 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 12 Defined Cross-reference of data names References 43 RC-GC-COUNT. . . . . . . . . . 241 M330 336 40 RC-GC-CULIST . . . . . . . . . 333 42 RC-GC-CURSOR . . . . . . . . . M329 335 41 RC-GC-NB . . . . . . . . . . . M328 37 RC-GN-COUNT. . . . . . . . . . 195 220 M276 282 M289 295 M302 308 M315 321 36 RC-GN-CURSOR . . . . . . . . . M275 281 M288 294 M301 307 M314 320 35 RC-GN-MTYPE. . . . . . . . . . M274 279 M287 292 M300 305 M313 318 23 RC-LAST. . . . . . . . . . . . M343 349 30 RC-MEMBER. . . . . . . . . . . 259 31 RC-MEMBER-LTH. . . . . . . . . M172 32 RC-MEMBER-NAME . . . . . . . . M173 26 RC-MTOKEN. . . . . . . . . . . M255 257 267 278 291 304 317 332 346 25 RC-REASON. . . . . . . . . . . 348 356 M364 24 RC-RETURN. . . . . . . . . . . 347 355 357 M363 0 RETURN-CODE. . . . . . . . . . M357 361 0 TALLY. . . . . . . . . . . . . M179 181 191 M197 198 M204 216 M222 223 M227 229 237 47 VSTRING. . . . . . . . . . . . 196 198 221 223 16 W-DYNA-ADDR. . . . . . . . . . 183 231 376 12 W-DYNA-CEECZST 13 W-DYNA-CEEFRST 11 W-DYNA-CEEGTST . . . . . . . . 374 14 W-DYNA-HEAPID. . . . . . . . . 374 15 W-DYNA-SIZE. . . . . . . . . . M180 188 213 M228 234 375 63 XBNL . . . . . . . . . . . . . M194 195 196 197 M219 220 221 222 120 XCUI . . . . . . . . . . . . . M240 241 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 13 Context usage is indicated by the letter preceding a procedure-name reference. These letters and their meanings are: A = ALTER (procedure-name) D = GO TO (procedure-name) DEPENDING ON E = End of range of (PERFORM) through (procedure-name) G = GO TO (procedure-name) P = PERFORM (procedure-name) T = (ALTER) TO PROCEED TO (procedure-name) U = USE FOR DEBUGGING (procedure-name) Defined Cross-reference of procedures References 373 ALLOCATION-MEMOIRE . . . . . . P182 P230 248 BYE 264 FERMETURE-SESSION. . . . . . . P246 351 LECTURE-ANOMALIE . . . . . . . P368 342 LECTURE-CODE-RETOUR. . . . . . P352 P366 272 LECTURE-NOMBRE-CLASSES 298 LECTURE-NOMBRE-SECTIONS 285 LECTURE-NOMS-CLASSES . . . . . P192 311 LECTURE-NOMS-SECTIONS. . . . . P217 326 LECTURE-UNITES-COMPILATION . . P238 169 MAIN 253 OUVERTURE-SESSION. . . . . . . P175 360 TEST-CODE-RETOUR . . . . . . . P260 P268 P283 P296 P309 P322 P337 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 14 Defined Cross-reference of programs References 2 INFOPROG . . . . . . . . . . . 379 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 15 Data Division Map Data Definition Attribute codes (rightmost column) have the following meanings: D = Object of OCCURS DEPENDING G = GLOBAL S = Spanned file E = EXTERNAL O = Has OCCURS clause U = Undefined format file F = Fixed-length file OG= Group has own length definition V = Variable-length file FB= Fixed-length blocked file R = REDEFINES VB= Variable-length blocked file Source Hierarchy and Base Hex-Displacement Asmblr Data Data Def LineID Data Name Locator Blk Structure Definition Data Type Attributes 2 PROGRAM-ID INFOPROG----------------------------------------------------------------------------------------------------* 0 1 SQL---PLIST . . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 0CL64 Group G 0 2 SQL---PLIST-LEN . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 2 SQL---FLAGS . . . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 2 SQL---CALLTYPE. . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 2 SQL---PROG-NAME . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 8C Display G 0 2 SQL---TIMESTAMP-1 . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 2 SQL---TIMESTAMP-2 . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 2 SQL---SECTION . . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 2 SQL---CODEPTR . . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Pointer G 0 2 SQL---VPARMPTR. . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Pointer G 0 2 SQL---APARMPTR. . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Pointer G 0 2 SQL---CCSID . . . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 2 SQL---STMT-TYPE . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 2 SQL---STMT-NUM. . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 2 SQL---PLIST-FLG . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 2 FILLER. . . . . . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 18C Display G 0 1 SQL---AVAR-LIST . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 0CL60 Grp-VarLen G,OG 0 2 SQL---AVAR-PRE-SQLDAID. . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 8C Display G 0 2 SQL---AVAR-PRE-SQLDABC. . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 2 SQL---AVAR-PRE-SQLN . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G,D 0 2 SQL---AVAR-PRE-SQLLD. . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 2 SQL---AVAR-PRE-SQLVAR . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL44 Group G,O 0 3 SQL---AVAR-VELT . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL44 Group G 0 4 SQL---AVAR-TYPE . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 4 SQL---AVAR-LEN. . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 4 SQL---AVAR-ADDR . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Pointer G 0 4 SQL---AVAR-IND. . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Pointer G 0 4 SQL---AVAR-NAME . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL32 Group G 0 5 SQL---AVAR-NAME-LEN . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 5 SQL---AVAR-NAME-DATA. . . . . . . . . BLW=XXXXX 000 0 000 000 DS 30C Display G 0 5 SQL---AVAR-NAME-REDEF . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL30 Group G,R 0 6 FILLER. . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 6 SQL---AVAR-NAME-R1. . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 6 SQL---AVAR-NAME-R2. . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 6 FILLER. . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 22C Display G 0 3 SQL---AVAR-VXELT. . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL44 Group G,R 0 4 SQL---AVAR-LONGL. . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 4 SQL---AVAR-RESERVED . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 4 SQL---AVAR-DATAL. . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Pointer G 0 4 SQL---AVAR-XNAME. . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL32 Group G 0 5 SQL---AVAR-XNAME-LEN. . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 5 SQL---AVAR-XNAME-DATA . . . . . . . . BLW=XXXXX 000 0 000 000 DS 30C Display G 0 1 SQL---PVAR-LIST . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 0CL60 Grp-VarLen G,OG 0 2 SQL---PVAR-PRE-SQLDAID. . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 8C Display G 0 2 SQL---PVAR-PRE-SQLDABC. . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 2 SQL---PVAR-PRE-SQLN . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G,D 0 2 SQL---PVAR-PRE-SQLLD. . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 16 Source Hierarchy and Base Hex-Displacement Asmblr Data Data Def LineID Data Name Locator Blk Structure Definition Data Type Attributes 0 2 SQL---PVAR-PRE-SQLVAR . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL44 Group G,O 0 3 SQL---PVAR-VELT . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL44 Group G 0 4 SQL---PVAR-TYPE . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 4 SQL---PVAR-LEN. . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 4 SQL---PVAR-ADDR . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Pointer G 0 4 SQL---PVAR-IND. . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Pointer G 0 4 SQL---PVAR-NAME . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL32 Group G 0 5 SQL---PVAR-NAME-LEN . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 5 SQL---PVAR-NAME-DATA. . . . . . . . . BLW=XXXXX 000 0 000 000 DS 30C Display G 0 5 SQL---PVAR-NAME-REDEF . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL30 Group G,R 0 6 FILLER. . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 6 SQL---PVAR-NAME-R1. . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 6 SQL---PVAR-NAME-R2. . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 6 FILLER. . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 22C Display G 0 3 SQL---PVAR-VXELT. . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL44 Group G,R 0 4 SQL---PVAR-LONGL. . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 4 SQL---PVAR-RESERVED . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Binary G 0 4 SQL---PVAR-DATAL. . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Pointer G 0 4 SQL---PVAR-XNAME. . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 0CL32 Group G 0 5 SQL---PVAR-XNAME-LEN. . . . . . . . . BLW=XXXXX 000 0 000 000 DS 2C Binary G 0 5 SQL---PVAR-XNAME-DATA . . . . . . . . BLW=XXXXX 000 0 000 000 DS 30C Display G 0 1 SQL---PROCNAME. . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 386C Display G 0 1 SQL---CURSORNAME. . . . . . . . . . . . . . . BLW=XXXXX 000 DS 128C Display G 0 1 SQL---TEMP. . . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 128C Display G 0 1 DSN---NROWS . . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 4C Binary G 0 1 DSN---NTYPE . . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 2C Binary G 0 1 DSN---NLEN. . . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 2C Binary G 0 1 SQL---SCRVALD . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 10P Packed-Dec G 0 1 SQL---SCPPD . . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 4096C Display G 0 1 SQL---SCPPI . . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 4C Binary G 0 1 SQL-INIT-FLAG . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 2C Binary G 0 1 SQL-FILE-READ . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 4C Binary G 0 1 SQL-FILE-CREATE . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 4C Binary G 0 1 SQL-FILE-OVERWRITE. . . . . . . . . . . . . . BLW=XXXXX 000 DS 4C Binary G 0 1 SQL-FILE-APPEND . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 4C Binary G 0 1 SQL---VERS. . . . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 0CL68 Group G 0 2 SQL---VERS-PREF . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 4C Display G 0 2 SQL---VERS-DATA . . . . . . . . . . . . . . BLW=XXXXX 000 0 000 000 DS 64C Display G 6 1 CARTE . . . . . . . . . . . . . . . . . . . . BLW=00000 000 DS 0CL80 Group 7 2 LOADMODULE. . . . . . . . . . . . . . . . . BLW=00000 000 0 000 000 DS 8C Display 8 2 FILLER. . . . . . . . . . . . . . . . . . . BLW=00000 008 0 000 008 DS 72C Display 11 1 W-DYNA-CEEGTST. . . . . . . . . . . . . . . . BLW=00000 050 DS 8C Display 12 1 W-DYNA-CEECZST. . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 8C Display 13 1 W-DYNA-CEEFRST. . . . . . . . . . . . . . . . BLW=XXXXX 000 DS 8C Display 14 1 W-DYNA-HEAPID . . . . . . . . . . . . . . . . BLW=00000 058 DS 4C Binary 15 1 W-DYNA-SIZE . . . . . . . . . . . . . . . . . BLW=00000 060 DS 4C Binary 16 1 W-DYNA-ADDR . . . . . . . . . . . . . . . . . BLW=00000 068 DS 4C Pointer 19 1 IEWBFDAT. . . . . . . . . . . . . . . . . . . BLW=00000 070 DS 8C Display 20 1 RC-FUNCTION . . . . . . . . . . . . . . . . . BLW=00000 078 DS 0CL4 Group 21 2 RC-CODE . . . . . . . . . . . . . . . . . . BLW=00000 078 0 000 000 DS 2C Display 22 2 FILLER. . . . . . . . . . . . . . . . . . . BLW=00000 07A 0 000 002 DS 2C Display 23 1 RC-LAST . . . . . . . . . . . . . . . . . . . BLW=00000 080 DS 2C Display 24 1 RC-RETURN . . . . . . . . . . . . . . . . . . BLW=00000 088 DS 4C Binary 25 1 RC-REASON . . . . . . . . . . . . . . . . . . BLW=00000 090 DS 4C Binary 26 1 RC-MTOKEN . . . . . . . . . . . . . . . . . . BLW=00000 098 DS 4C Binary 27 1 RC-DDNAME . . . . . . . . . . . . . . . . . . BLW=00000 0A0 DS 0CL10 Group PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 17 Source Hierarchy and Base Hex-Displacement Asmblr Data Data Def LineID Data Name Locator Blk Structure Definition Data Type Attributes 28 2 FILLER. . . . . . . . . . . . . . . . . . . BLW=00000 0A0 0 000 000 DS 2C Binary 29 2 FILLER. . . . . . . . . . . . . . . . . . . BLW=00000 0A2 0 000 002 DS 8C Display 30 1 RC-MEMBER . . . . . . . . . . . . . . . . . . BLW=00000 0B0 DS 0CL10 Group 31 2 RC-MEMBER-LTH . . . . . . . . . . . . . . . BLW=00000 0B0 0 000 000 DS 2C Binary 32 2 RC-MEMBER-NAME. . . . . . . . . . . . . . . BLW=00000 0B2 0 000 002 DS 8C Display 35 1 RC-GN-MTYPE . . . . . . . . . . . . . . . . . BLW=00000 0C0 DS 1C Display 36 1 RC-GN-CURSOR. . . . . . . . . . . . . . . . . BLW=00000 0C8 DS 4C Binary 37 1 RC-GN-COUNT . . . . . . . . . . . . . . . . . BLW=00000 0D0 DS 4C Binary 40 1 RC-GC-CULIST. . . . . . . . . . . . . . . . . BLW=00000 0D8 DS 0CL4 Group 41 2 RC-GC-NB. . . . . . . . . . . . . . . . . . BLW=00000 0D8 0 000 000 DS 4C Binary 42 1 RC-GC-CURSOR. . . . . . . . . . . . . . . . . BLW=00000 0E0 DS 4C Binary 43 1 RC-GC-COUNT . . . . . . . . . . . . . . . . . BLW=00000 0E8 DS 4C Binary 47 1 VSTRING . . . . . . . . . . . . . . . . . . . BLL=00001 000 DS 0CL128 Group 48 2 FILLER. . . . . . . . . . . . . . . . . . . BLL=00001 000 0 000 000 DS 1C Display O 51 1 NAME-LIST-BUFFER. . . . . . . . . . . . . . . BLL=00002 000 DS 0CL2432 Group 52 2 BNLH. . . . . . . . . . . . . . . . . . . . BLL=00002 000 0 000 000 DS 0CL32 Group 53 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00002 000 0 000 000 DS 8C Display 54 88 BNLH_BUFFER_ID. . . . . . . . . . . . . . 55 3 BNLH_BUFFER_LENG. . . . . . . . . . . . . BLL=00002 008 0 000 008 DS 4C Binary 56 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00002 00C 0 000 00C DS 1C Display 57 88 BNLH_VERSION. . . . . . . . . . . . . . . 58 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00002 00D 0 000 00D DS 3C Display 59 3 BNLH_ENTRY_LENG . . . . . . . . . . . . . BLL=00002 010 0 000 010 DS 4C Binary 60 3 BNLH_ENTRY_COUNT. . . . . . . . . . . . . BLL=00002 014 0 000 014 DS 4C Binary 61 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00002 018 0 000 018 DS 8C Display 62 2 BNL_ENTRY . . . . . . . . . . . . . . . . . BLL=00002 020 0 000 020 DS 0CL24 Group O 63 XBNL. . . . . . . . . . . . . . . . . . . . IDX=00001 000 Index-Name 64 3 BNL_CLS_LENGTH. . . . . . . . . . . . . . BLL=00002 020 0 000 020 DS 4C Binary 65 3 BNL_SECT_CU . . . . . . . . . . . . . . . BLL=00002 020 0 000 020 DS 4C Binary R 67 3 BNL_BIND_FLAGS. . . . . . . . . . . . . . BLL=00002 024 0 000 024 DS 1C Display 75 3 BNL_LOAD_FLAGS. . . . . . . . . . . . . . BLL=00002 025 0 000 025 DS 1C Display 86 3 BNL_NAME_CHARS. . . . . . . . . . . . . . BLL=00002 026 0 000 026 DS 2C Binary 87 3 BNL_NAME_PTR. . . . . . . . . . . . . . . BLL=00002 028 0 000 028 DS 4C Pointer 88 3 BNL_ELEM_COUNT. . . . . . . . . . . . . . BLL=00002 02C 0 000 02C DS 4C Binary 89 3 BNL_SEGM_ID . . . . . . . . . . . . . . . BLL=00002 030 0 000 030 DS 2C Binary 90 3 BNL_ATTR. . . . . . . . . . . . . . . . . BLL=00002 032 0 000 032 DS 1C Display 91 3 BNL_ALIGN . . . . . . . . . . . . . . . . BLL=00002 032 0 000 032 DS 1C Display R 96 3 BNL_RMODE . . . . . . . . . . . . . . . . BLL=00002 032 0 000 032 DS 1C Display R 101 3 BNL_NAMESPACE . . . . . . . . . . . . . . BLL=00002 033 0 000 033 DS 1C Display 105 3 BNL_SEGM_OFF. . . . . . . . . . . . . . . BLL=00002 034 0 000 034 DS 4C Binary 108 1 COMPILE-UNIT-BUFFER . . . . . . . . . . . . . BLL=00003 000 DS 0CL8032 Group 109 2 CUIH. . . . . . . . . . . . . . . . . . . . BLL=00003 000 0 000 000 DS 0CL32 Group 110 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000 0 000 000 DS 8C Display 111 88 CUIH_BUFFER_ID. . . . . . . . . . . . . . 112 3 CUIH_BUFFER_LENG. . . . . . . . . . . . . BLL=00003 008 0 000 008 DS 4C Binary 113 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 00C 0 000 00C DS 1C Display 114 88 CUIH_VERSION. . . . . . . . . . . . . . . 115 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 00D 0 000 00D DS 3C Display 116 3 CUIH_ENTRY_LENG . . . . . . . . . . . . . BLL=00003 010 0 000 010 DS 4C Binary 117 3 CUIH_ENTRY_COUNT. . . . . . . . . . . . . BLL=00003 014 0 000 014 DS 4C Binary 118 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 018 0 000 018 DS 8C Display 119 2 CUI_ENTRY . . . . . . . . . . . . . . . . . BLL=00003 020 0 000 020 DS 0CL80 Group O 120 XCUI. . . . . . . . . . . . . . . . . . . . IDX=00002 000 Index-Name 121 3 CUI_CU. . . . . . . . . . . . . . . . . . BLL=00003 020 0 000 020 DS 4C Binary 122 3 CUI_SOURCE_CU . . . . . . . . . . . . . . BLL=00003 024 0 000 024 DS 4C Binary 123 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 028 0 000 028 DS 2C Display PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 18 Source Hierarchy and Base Hex-Displacement Asmblr Data Data Def LineID Data Name Locator Blk Structure Definition Data Type Attributes 124 3 CUI_MEMBER_LEN. . . . . . . . . . . . . . BLL=00003 02A 0 000 02A DS 2C Binary 125 3 CUI_MEMBER_PTR. . . . . . . . . . . . . . BLL=00003 02C 0 000 02C DS 4C Pointer 126 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 030 0 000 030 DS 2C Display 127 3 CUI_PATH_LEN. . . . . . . . . . . . . . . BLL=00003 032 0 000 032 DS 2C Binary 128 3 CUI_PATH_PTR. . . . . . . . . . . . . . . BLL=00003 034 0 000 034 DS 4C Pointer 129 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 038 0 000 038 DS 2C Display 130 3 CUI_DSNAME_LEN. . . . . . . . . . . . . . BLL=00003 03A 0 000 03A DS 2C Binary 131 3 CUI_DSNAME_PTR. . . . . . . . . . . . . . BLL=00003 03C 0 000 03C DS 4C Pointer 132 3 CUI_DDNAME. . . . . . . . . . . . . . . . BLL=00003 040 0 000 040 DS 8C Display 133 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 048 0 000 048 DS 2C Display 134 3 CUI_CONCAT. . . . . . . . . . . . . . . . BLL=00003 04A 0 000 04A DS 1C Display 135 3 CUI_TYPE. . . . . . . . . . . . . . . . . BLL=00003 04B 0 000 04B DS 1C Display 155 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 04C 0 000 04C DS 4C Display 156 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 050 0 000 050 DS 2C Display 157 3 CUI_C_MEMBER_LEN. . . . . . . . . . . . . BLL=00003 052 0 000 052 DS 2C Binary 158 3 CUI_C_MEMBER_PTR. . . . . . . . . . . . . BLL=00003 054 0 000 054 DS 4C Pointer 159 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 058 0 000 058 DS 2C Display 160 3 CUI_C_PATH_LEN. . . . . . . . . . . . . . BLL=00003 05A 0 000 05A DS 2C Binary 161 3 CUI_C_PATH_PTR. . . . . . . . . . . . . . BLL=00003 05C 0 000 05C DS 4C Pointer 162 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 060 0 000 060 DS 2C Display 163 3 CUI_C_DSNAME_LEN. . . . . . . . . . . . . BLL=00003 062 0 000 062 DS 2C Binary 164 3 CUI_C_DSNAME_PTR. . . . . . . . . . . . . BLL=00003 064 0 000 064 DS 4C Pointer 165 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 068 0 000 068 DS 3C Display 166 3 CUI_C_TYPE. . . . . . . . . . . . . . . . BLL=00003 06B 0 000 06B DS 1C Display 167 3 CUI_C_SEQ . . . . . . . . . . . . . . . . BLL=00003 06C 0 000 06C DS 4C Binary PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 19 000000 INFOPROG DS 0H PROGRAM:INFOPROG USING *,15 000000 47F0 F028 B 40(,15) BYPASS CONSTANTS. BRANCH TO àSTM 000004 00 DC AL1(0) ZERO NAME LENGTH FOR DUMPS 000005 C3C5C5 DC CL3'CEE' CEE EYE CATCHER 000008 00000270 DC X'00000270' STACK FRAME SIZE 00000C 00000014 DC A(àPPA1-INFOPROG) OFFSET TO PPA1 FROM PRIMARY ENTRY 000010 47F0 F001 B 1(,15) RESERVED 000014 àPPA1 DS 0H PPA1 STARTS HERE 000014 98 DC X'98' OFFSET TO LENGTH OF NAME FROM PPA1 000015 CE DC X'CE' CEL SIGNATURE 000016 AC DC X'AC' CEL FLAGS: '10101100'B 000017 00 DC X'00' MEMBER FLAGS FOR COBOL 000018 000000B6 DC A(àPPA2) ADDRESS OF PPA2 00001C 00000000 DC F'0' OFFSET TO THE BDI (NONE) 000020 00000000 DC F'0' ADDRESS OF ENTRY POINT DESCRIPTORS 000024 0000 DC X'0000' RESERVED 000026 00 DC X'00' DSA FPR 8-15 SAVE AREA OFFSET/16 000027 00 DC X'00' DSA FPR 8-15 SAVE AREA BIT MASK 000028 àSTM DS 0H STM STARTS HERE 000028 90EC D00C STM 14,12,12(13) àSTM: SAVE CALLER'S REGISTERS 00002C 4110 F038 LA 1,56(,15) GET ADDRESS OF PARMLIST INTO R1 000030 98EF F04C LM 14,15,76(15) LOAD ADDRESSES FROM àBRVAL 000034 07FF BR 15 DO ANY NECESSARY INITIALIZATION 000036 0000 DC AL2'0' AVAILABLE HALF-WORD 000038 àMAINENT DS 0H PRIMARY ENTRY POINT ADDRESS 000038 00000000 DC A(INFOPROG) àPARMS: 1) PRIMARY ENTRY POINT ADDRESS 00003C 00000000 DC AL4'0' 2) Available 000040 00009698 DC A(DAB) 3) DAB ADDRESS 000044 000000AE DC A(àEPNAM) 4) ENTRY POINT NAME ADDRESS 000048 00000000 DC A(INFOPROG) 5) CURRENT ENTRY POINT ADDRESS 00004C 00000460 DC A(START) àBRVAL: 6) PROCEDURE CODE ADDRESS 000050 00000000 DC V(IGZCBSO) 7) INITIALIZATION ROUTINE 000054 000000CA DC A(àCEEPARM) 8) ADDRESS OF PARM LIST FOR CEEINT 000058 00104001 DC X'00104001' DSA WORD 0 CONSTANT 00005C 00000000 DC AL4'0' AVAILABLE WORD 000060 00000000 DC AL4'0' AVAILABLE WORD 000064 00000000 DC AL4'0' AVAILABLE WORD 000068 F2F0F1F5 DC CL4'2015' àTIMEVRS: YEAR OF COMPILATION 00006C F0F9F0F1 DC CL4'0901' MONTH/DAY OF COMPILATION 000070 F2F3F4F8 DC CL4'2348' HOURS/MINUTES OF COMPILATION 000074 F1F7 DC CL2'17' SECONDS FOR COMPILATION DATE 000076 F0F4F0F2F0F0 DC CL6'040200' VERSION/RELEASE/MOD LEVEL OF PROD 00007C 047B DC X'047B' UNSIGNED BINARY CODE PAGE CCSID VALUE 00007E 0000 DC AL2'0' AVAILABLE HALF-WORD 000080 8E00 DC X'8E00' INFO. BYTES 28-29 000082 076C DC X'076C' SIGNED BINARY YEARWINDOW OPTION VALUE 000084 66EA748E3801 DC X'66EA748E3801' INFO. BYTES 1-6 00008A 200090884009 DC X'200090884009' INFO. BYTES 7-12 000090 010020800C00 DC X'010020800C00' INFO. BYTES 13-18 000096 0000804804 DC X'0000804804' INFO. BYTES 19-23 00009B 00 DC X'00' COBOL SIGNATURE LEVEL 00009C 0000009B DC X'0000009B' £ DATA DIVISION STATEMENTS 0000A0 00000062 DC X'00000062' £ PROCEDURE DIVISION STATEMENTS 0000A4 208088 DC X'208088' INFO. BYTES 24-26 0000A7 01 DC X'01' INFO. BYTE 27 0000A8 40404040 DC C' ' USER LEVEL INFO (LVLINFO) 0000AC 0008 DC X'0008' LENGTH OF PROGRAM NAME PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 20 0000AE àEPNAM DS 0H ENTRY POINT NAME 0000AE C9D5C6D6D7D9D6C7 DC C'INFOPROG' PROGRAM NAME 0000B6 àPPA2 DS 0H PPA2 STARTS HERE 0000B6 05 DC X'05' CEL MEMBER IDENTIFIER 0000B7 00 DC X'00' CEL MEMBER SUB-IDENTIFIER 0000B8 00 DC X'00' CEL MEMBER DEFINED BYTE 0000B9 01 DC X'01' CONTROL LEVEL OF PROLOG 0000BA 00000000 DC V(CEESTART) VCON FOR LOAD MODULE 0000BE 00000000 DC F'0' OFFSET TO THE CDI (NONE) 0000C2 FFFFFFB2 DC A(àTIMEVRS-àPPA2) OFFSET TO TIMESTAMP/VERSION INFO 0000C6 00000000 DC A(INFOPROG) ADDRESS OF CU PRIMARY ENTRY POINT 0000CA àCEEPARM DS 0H PARM LIST FOR CEEINT 0000CA 00000038 DC A(àMAINENT) POINTER TO PRIMARY ENTRY PT ADDR 0000CE 00000008 DC A(àPARMCEE-àCEEPARM) OFFSET TO PARAMETERS FOR CEEINT 0000D2 àPARMCEE DS 0H PARAMETERS FOR CEEINT 0000D2 00000006 DC F'6' 1) NUMBER OF ENTRIES IN PARM LIST 0000D6 00000038 DC A(àMAINENT) 2) POINTER TO PRIMARY ENTRY PT ADDR 0000DA 00000000 DC V(CEESTART) 3) ADDRESS OF CEESTART 0000DE 00000000 DC V(CEEBETBL) 4) ADDRESS OF CEEBETBL 0000E2 00000005 DC F'5' 5) CEL MEMBER IDENTIFIER 0000E6 00000000 DC F'0' 6) FOR CEL MEMBER USE 0000EA 00000000 DC AL4'0' AVAILABLE WORD 0000EE 00000000 DC AL4'0' AVAILABLE WORD 0000F2 00000000 DC AL4'0' AVAILABLE WORD 0000F6 00000000 DC AL4'0' AVAILABLE WORD 0000FA 0000 DC AL2'0' AVAILABLE HALF-WORD PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 21 PROGRAM GLOBAL TABLE BEGINS AT LOCATION 0000FC FOR 000014 BYTES THE PGT CONTAINS 000001 CELL(S) FOR ADDRESSABILITY TO THE CGT PBL1 AT LOCATION 0004D8 FOR LINE 2 LITERAL POOL MAP FOR SYSTEM LITERALS IN THE PGT: 0000FC (LIT+0) 3B9ACA00 00000001 0000 !.......... ! PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 22 CONSTANT GLOBAL TABLE BEGINS AT LOCATION 000110 FOR 000350 BYTES LITERAL POOL MAP FOR LITERALS IN THE CGT: 000144 (LIT+0) FFFFFFFC 00000050 00001000 00000018 00000001 0004E399 8189A385 948595A3 !.......&..............Traitement! 000164 (LIT+32) 40979996 87998194 94854060 40E28583 A3899695 407FD799 96879981 94948540 ! programme - Section "Programme ! 000184 (LIT+64) 7F6040C3 9381A2A2 85407F6B 40D9C5C1 E2D6D57E C6969583 A3899695 40C9D5C6 !"- Classe ", REASON=Fonction INF! 0001A4 (LIT+96) D6D7D9D6 C76B40D9 C37E0000 0000336C 00000000 280C0000 00032F00 01020304 !OPROG, RC=.....%................! 0001C4 (LIT+128) 05060708 090A0B0C 0D0E0F10 11121314 15161718 191A1B1C 1D1E1F20 21222324 !................................! 0001E4 (LIT+160) 25262728 292A2B2C 2D2E2F30 31323334 35363738 393A3B3C 3D3E3F40 41424344 !........................... ....! 000204 (LIT+192) 45464748 494A4B4C 4D4E4F50 51525354 55565758 595A5B5C 5D5E5F60 61626364 !.....°.<(+!&.........§$*).^-/...! 000224 (LIT+224) 65666768 696A6B6C 6D6E6F70 71727374 75767778 797A7B7C 7D7E7F80 C1C2C3C4 !......,%_>?..........:£à'=".ABCD! 000244 (LIT+256) C5C6C7C8 C98A8B8C 8D8E8F90 D1D2D3D4 D5D6D7D8 D99A9B9C 9D9E9FA0 A1E2E3E4 !EFGHI.......JKLMNOPQR........STU! 000264 (LIT+288) E5E6E7E8 E9AAABAC ADAEAFB0 B1B2B3B4 B5B6B7B8 B9BABBBC BDBEBFC0 C1C2C3C4 !VWXYZ.......................ABCD! 000284 (LIT+320) C5C6C7C8 C9CACBCC CDCECFD0 D1D2D3D4 D5D6D7D8 D9DADBDC DDDEDFE0 E1E2E3E4 !EFGHI.......JKLMNOPQR........STU! 0002A4 (LIT+352) E5E6E7E8 E9EAEBEC EDEEEFF0 F1F2F3F4 F5F6F7F8 F9FAFBFC FDFEFF00 00000000 !VWXYZ......0123456789...........! 0002C4 (LIT+384) 00012C00 00000100 00013000 00000500 00016C00 00000200 00000000 00000000 !..................%.............! 0002E4 (LIT+416) 00000000 00000000 00000000 00000000 00000000 00000080 00000040 00000000 !........................... ....! 000304 (LIT+448) 00000000 000000C9 C5E6C2C3 E4C940C9 C5E6C2C2 D5D340D3 C9C2D9C1 D9E840C9 !.......IEWBCUI IEWBBNL LIBRARY I! 000324 (LIT+480) C5E6C2C6 C4C1E3C3 C5C5C7E3 E2E34000 00005000 00001800 000064FF FFFFFFA6 !EWBFDATCEEGTST ...&............w! 000344 (LIT+512) 080000D9 C3C7C3C7 D5C5D5E2 D1000800 07400000 000025C0 0001C000 08080000 !...RCGCGNENSJ.... ..............! 000364 (LIT+544) 0C009101 40000009 0800000C 00884000 00020900 012C0078 40000005 0800000C !..j. ........h ......... .......! 000384 (LIT+576) 00990004 000A0900 012C0088 40000009 0800000C 007F0004 000A0900 012C0090 !.r.........h ........"..........! 0003A4 (LIT+608) FF014000 00150800 000C004A 40000008 0900012C 0000FF01 4000000B 0800000C !.. ........° ........... .......! 0003C4 (LIT+640) 005F503D 00580000 01C80900 01340000 40000001 0800000C 007EFF01 4000000A !.^&......H...... ........=.. ...! 0003E4 (LIT+672) 0800000C 0075503D 00580000 01C80900 01340000 40000001 0800000C 007EFF00 !......&......H...... ........=..! 000404 (LIT+704) 0000003D 00580000 01A83D00 58000001 98014000 000B0800 000C006A 40000008 !.........y......q. ......... ...! 000424 (LIT+736) 0900012C 00004000 00010800 000C007E FF040800 00000000 00500900 012C0000 !...... ........=.........&......! 000444 (LIT+768) 40000000 0040C000 01400008 0800000C 009102C0 00080800 000C0091 ! .... ... .......j.........j ! PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 23 000460 START EQU * INFOPROG 000460 183F LR 3,15 000462 4100 1270 LA 0,624(0,1) 000466 5500 C00C CL 0,12(0,12) 00046A 0DF0 BASR 15,0 00046C 47D0 F00C BC 13,12(0,15) 000470 58F0 C300 L 15,768(0,12) 000474 0DEF BASR 14,15 000476 181F LR 1,15 000478 50D0 1004 ST 13,4(0,1) 00047C 5000 104C ST 0,76(0,1) 000480 D203 1000 3058 MVC 0(4,1),88(3) 000486 D703 1084 1084 XC 132(4,1),132(1) 00048C 5090 105C ST 9,92(0,1) 000490 18D1 LR 13,1 000492 58C0 90E8 L 12,232(0,9) TGTFIXD+232 000496 1812 LR 1,2 000498 50D0 D058 ST 13,88(0,13) 00049C 58A0 C00C L 10,12(0,12) CBL=1 0004A0 90EC D00C STM 14,12,12(13) DSAFIXD+12 0004A4 5820 A22F L 2,559(0,10) PGMLIT AT +507 0004A8 5020 D100 ST 2,256(0,13) ODOSAVE=1 0004AC 5020 D104 ST 2,260(0,13) ODOSAVE=2 0004B0 D203 D088 A044 MVC 136(4,13),68(10) DSAFIXD+136 PGMLIT AT +16 0004B6 4120 D1D0 LA 2,464(0,13) CALLname+0 0004BA 5020 D08C ST 2,140(0,13) DSAFIXD+140 0004BE BF2F 9184 ICM 2,15,388(9) IPCB=1+16 0004C2 58B0 C010 L 11,16(0,12) PBL=1 0004C6 4780 B000 BC 8,0(0,11) GN=47(0004D8) 0004CA 5830 905C L 3,92(0,9) TGTFIXD+92 0004CE 58F0 30F4 L 15,244(0,3) V(IGZCMSG ) 0004D2 4110 A334 LA 1,820(0,10) PGMLIT AT +768 0004D6 0DEF BASR 14,15 0004D8 GN=47 EQU * 0004D8 5A20 C004 A 2,4(0,12) SYSLIT AT +4 0004DC 5020 9184 ST 2,388(0,9) IPCB=1+16 0004E0 9140 9174 TM 372(9),X'40' IPCB=1 0004E4 4710 B03E BC 1,62(0,11) GN=48(000516) 0004E8 5820 912C L 2,300(0,9) BLW=0 0004EC D207 2050 A21B MVC 80(8,2),539(10) (BLW=0)+80 PGMLIT AT +487 0004F2 4130 0000 LA 3,0(0,0) 0004F6 5030 2058 ST 3,88(0,2) (BLW=0)+88 0004FA D207 2070 A213 MVC 112(8,2),531(10) (BLW=0)+112 PGMLIT AT +479 000500 D201 207A A1B4 MVC 122(2,2),436(10) (BLW=0)+122 PGMLIT AT +384 000506 D201 20A0 A243 MVC 160(2,2),579(10) (BLW=0)+160 PGMLIT AT +527 00050C D207 20A2 A20B MVC 162(8,2),523(10) (BLW=0)+162 PGMLIT AT +471 000512 5030 20D8 ST 3,216(0,2) (BLW=0)+216 000516 GN=48 EQU * 000516 9140 9174 TM 372(9),X'40' IPCB=1 00051A 4710 B056 BC 1,86(0,11) GN=50(00052E) 00051E 4120 0000 LA 2,0(0,0) 000522 5830 9128 L 3,296(0,9) BL=1 000526 4020 3000 STH 2,0(0,3) (BL=1)+0 00052A 5020 3008 ST 2,8(0,3) (BL=1)+8 00052E GN=50 EQU * 00052E D223 D118 A010 MVC 280(36,13),16(10) PVN=5 PVNI=5 000534 9140 9057 TM 87(9),X'40' TGTFIXD+87 000538 4710 B078 BC 1,120(0,11) GN=52(000550) PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 24 00053C 9120 9054 TM 84(9),X'20' TGTFIXD+84 000540 47E0 B070 BC 14,112(0,11) GN=53(000548) 000544 9620 D084 OI 132(13),X'20' DSAFIXD+132 000548 GN=53 EQU * 000548 9640 9057 OI 87(9),X'40' TGTFIXD+87 00054C 47F0 B078 BC 15,120(0,11) GN=54(000550) 000550 GN=52 EQU * 000550 GN=54 EQU * 000550 9640 9174 OI 372(9),X'40' IPCB=1 000554 9601 D084 OI 132(13),X'01' DSAFIXD+132 000169 * 000169 *MAIN 000170 ACCEPT 000558 GN=55 EQU * 000558 5820 905C L 2,92(0,9) TGTFIXD+92 00055C 58F0 2000 L 15,0(0,2) V(IGZCACP ) 000560 4110 A325 LA 1,805(0,10) PGMLIT AT +753 000564 0DEF BASR 14,15 000171 DISPLAY 000566 GN=56 EQU * 000566 5820 905C L 2,92(0,9) TGTFIXD+92 00056A 58F0 202C L 15,44(0,2) V(IGZCDSP ) 00056E 4110 A305 LA 1,773(0,10) PGMLIT AT +721 000572 0DEF BASR 14,15 000172 MOVE 000574 GN=57 EQU * 000574 5820 912C L 2,300(0,9) BLW=0 000578 D201 20B0 A241 MVC 176(2,2),577(10) (BLW=0)+176 PGMLIT AT +525 000173 MOVE 00057E GN=58 EQU * 00057E 5820 912C L 2,300(0,9) BLW=0 000582 D207 20B2 2000 MVC 178(8,2),0(2) RC-MEMBER-NAME LOADMODULE 000175 PERFORM 000588 GN=59 EQU * 000588 58B0 C010 L 11,16(0,12) PBL=1 00058C 4120 B0C0 LA 2,192(0,11) GN=17(000598) 000590 5020 D118 ST 2,280(0,13) PVN=5 000594 47F0 B4F4 BC 15,1268(0,11) OUVERTURE-SESSION 000598 GN=17 EQU * 000598 50F0 D118 ST 15,280(0,13) PVN=5 000179 MOVE 00059C GN=60 EQU * 00059C 5820 9128 L 2,296(0,9) BL=1 0005A0 D203 2008 A22B MVC 8(4,2),555(10) (BL=1)+8 PGMLIT AT +503 000180 COMPUTE 0005A6 GN=61 EQU * 0005A6 5840 9128 L 4,296(0,9) BL=1 0005AA 5830 4008 L 3,8(0,4) TALLY 0005AE 1F22 SLR 2,2 0005B0 5D20 C000 D 2,0(0,12) SYSLIT AT +0 0005B4 4E30 D1A8 CVD 3,424(0,13) TS2=16 0005B8 F154 D19A D1AB MVO 410(6,13),427(5,13) TS2=2 TS2=19 0005BE 4E20 D1A8 CVD 2,424(0,13) TS2=16 0005C2 9110 D19F TM 415(13),X'10' TS2=7 0005C6 D204 D19F D1AB MVC 415(5,13),427(13) TS2=7 TS2=19 0005CC 58B0 C010 L 11,16(0,12) PBL=1 0005D0 4780 B100 BC 8,256(0,11) GN=62(0005D8) 0005D4 9601 D1A3 OI 419(13),X'01' TS2=11 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 25 0005D8 GN=62 EQU * 0005D8 D201 D198 C008 MVC 408(2,13),8(12) TS2=0 SYSLIT AT +8 0005DE F8F5 D188 D19E ZAP 392(16,13),414(6,13) TS1=0 TS2=6 0005E4 FCB5 D18C A0A4 MP 396(12,13),164(6,10) TS1=4 PGMLIT AT +112 0005EA FAA4 D18D A0AA AP 397(11,13),170(5,10) TS1=5 PGMLIT AT +118 0005F0 D20F D198 D188 MVC 408(16,13),392(13) TS2=0 TS1=0 0005F6 960F D1A7 OI 423(13),X'0F' TS2=15 0005FA 5820 905C L 2,92(0,9) TGTFIXD+92 0005FE 58F0 203C L 15,60(0,2) V(IGZCIDB ) 000602 4110 A2F3 LA 1,755(0,10) PGMLIT AT +703 000606 0DEF BASR 14,15 000608 5830 912C L 3,300(0,9) BLW=0 00060C D203 3060 D1AC MVC 96(4,3),428(13) W-DYNA-SIZE TS2=20 000182 PERFORM 000612 GN=63 EQU * 000374 CALL 000612 5830 912C L 3,300(0,9) BLW=0 000616 4120 3058 LA 2,88(0,3) W-DYNA-HEAPID 00061A 5020 D198 ST 2,408(0,13) TS2=0 00061E 4120 3060 LA 2,96(0,3) W-DYNA-SIZE 000622 5020 D19C ST 2,412(0,13) TS2=4 000626 4120 3068 LA 2,104(0,3) W-DYNA-ADDR 00062A 5020 D1A0 ST 2,416(0,13) TS2=8 00062E 4120 0000 LA 2,0(0,0) 000632 5020 D1A4 ST 2,420(0,13) TS2=12 000636 9680 D1A4 OI 420(13),X'80' TS2=12 00063A D207 D1A8 A21B MVC 424(8,13),539(10) TS2=16 PGMLIT AT +487 000640 DC07 D1A8 A0AF TR 424(8,13),175(10) TS2=16 PGMLIT AT +123 000646 D203 D1B0 A233 MVC 432(4,13),563(10) TS2=24 PGMLIT AT +511 00064C 4120 D1A8 LA 2,424(0,13) TS2=16 000650 4140 D198 LA 4,408(0,13) TS2=0 000654 5020 D1B4 ST 2,436(0,13) TS2=28 000658 5040 D1B8 ST 4,440(0,13) TS2=32 00065C 4110 D1B0 LA 1,432(0,13) TS2=24 000660 5820 905C L 2,92(0,9) TGTFIXD+92 000664 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000668 0DEF BASR 14,15 00066A 5840 9128 L 4,296(0,9) BL=1 00066E 40F0 4000 STH 15,0(0,4) RETURN-CODE 000183 SET 000672 GN=64 EQU * 000672 5830 912C L 3,300(0,9) BLW=0 000676 5820 3068 L 2,104(0,3) W-DYNA-ADDR 00067A 4120 2000 LA 2,0(0,2) 00067E 5020 9138 ST 2,312(0,9) BLL=2 000184 MOVE 000682 GN=65 EQU * 000682 5820 9138 L 2,312(0,9) BLL=2 000686 D71F 2000 2000 XC 0(32,2),0(2) BNLH BNLH 000186 SET 00068C GN=66 EQU * 00068C 5820 9138 L 2,312(0,9) BLL=2 000690 D207 2000 A203 MVC 0(8,2),515(10) (BLL=2)+0 PGMLIT AT +463 000188 MOVE 000696 GN=67 EQU * 000696 5820 9138 L 2,312(0,9) BLL=2 00069A 5830 912C L 3,300(0,9) BLW=0 00069E D203 2008 3060 MVC 8(4,2),96(3) BNLH_BUFFER_LENG W-DYNA-SIZE PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 26 000189 SET 0006A4 GN=68 EQU * 0006A4 5820 9138 L 2,312(0,9) BLL=2 0006A8 9207 200C MVI 12(2),X'07' (BLL=2)+12 000190 MOVE 0006AC GN=69 EQU * 0006AC 5820 9138 L 2,312(0,9) BLL=2 0006B0 D203 2010 A227 MVC 16(4,2),551(10) (BLL=2)+16 PGMLIT AT +499 000191 MOVE 0006B6 GN=70 EQU * 0006B6 5820 9138 L 2,312(0,9) BLL=2 0006BA 5830 9128 L 3,296(0,9) BL=1 0006BE D203 2014 3008 MVC 20(4,2),8(3) BNLH_ENTRY_COUNT TALLY 000192 PERFORM 0006C4 GN=71 EQU * 0006C4 58B0 C010 L 11,16(0,12) PBL=1 0006C8 4120 B1FC LA 2,508(0,11) GN=19(0006D4) 0006CC 5020 D120 ST 2,288(0,13) PVN=7 0006D0 47F0 B6B8 BC 15,1720(0,11) LECTURE-NOMS-CLASSES 0006D4 GN=19 EQU * 0006D4 50F0 D120 ST 15,288(0,13) PVN=7 000194 PERFORM 0006D8 GN=72 EQU * 0006D8 D203 916C A1F0 MVC 364(4,9),496(10) IDX=1 PGMLIT AT +444 0006DE 58B0 C010 L 11,16(0,12) PBL=1 0006E2 47F0 B260 BC 15,608(0,11) GN=22(000738) 0006E6 GN=21 EQU * 000196 SET 0006E6 GN=73 EQU * 0006E6 5820 916C L 2,364(0,9) XBNL 0006EA 5840 9138 L 4,312(0,9) BLL=2 0006EE 5832 4028 L 3,40(2,4) BNL_NAME_PTR() 0006F2 4130 3000 LA 3,0(0,3) 0006F6 5030 9134 ST 3,308(0,9) BLL=1 000197 MOVE 0006FA GN=74 EQU * 0006FA 5820 916C L 2,364(0,9) XBNL 0006FE 5A20 9138 A 2,312(0,9) BLL=2 000702 5830 9128 L 3,296(0,9) BL=1 000706 D201 300A 2026 MVC 10(2,3),38(2) TALLY+2 BNL_NAME_CHARS() 00070C D201 3008 C008 MVC 8(2,3),8(12) TALLY SYSLIT AT +8 000198 DISPLAY 000712 GN=75 EQU * 000712 5830 9128 L 3,296(0,9) BL=1 000716 5820 3008 L 2,8(0,3) TALLY 00071A 5020 D1C8 ST 2,456(0,13) TS3=0 00071E 5820 905C L 2,92(0,9) TGTFIXD+92 000722 58F0 202C L 15,44(0,2) V(IGZCDSP ) 000726 4110 A2CF LA 1,719(0,10) PGMLIT AT +667 00072A 0DEF BASR 14,15 000199 PERFORM-EPILOGUE 00072C GN=76 EQU * 00072C 5820 916C L 2,364(0,9) XBNL 000730 4A20 A042 AH 2,66(0,10) PGMLIT AT +14 000734 5020 916C ST 2,364(0,9) XBNL 000738 GN=22 EQU * 000738 5840 912C L 4,300(0,9) BLW=0 00073C 5830 40D0 L 3,208(0,4) RC-GN-COUNT PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 27 000740 1F22 SLR 2,2 000742 4B30 A046 SH 3,70(0,10) PGMLIT AT +18 000746 5C20 A040 M 2,64(0,10) PGMLIT AT +12 00074A 5930 916C C 3,364(0,9) XBNL 00074E 58B0 C010 L 11,16(0,12) PBL=1 000752 47B0 B20E BC 11,526(0,11) GN=21(0006E6) 000204 MOVE 000756 GN=77 EQU * 000756 5820 9128 L 2,296(0,9) BL=1 00075A D203 2008 A22B MVC 8(4,2),555(10) (BL=1)+8 PGMLIT AT +503 000209 MOVE 000760 GN=78 EQU * 000760 5820 9138 L 2,312(0,9) BLL=2 000764 D71F 2000 2000 XC 0(32,2),0(2) BNLH BNLH 000211 SET 00076A GN=79 EQU * 00076A 5820 9138 L 2,312(0,9) BLL=2 00076E D207 2000 A203 MVC 0(8,2),515(10) (BLL=2)+0 PGMLIT AT +463 000213 MOVE 000774 GN=80 EQU * 000774 5820 9138 L 2,312(0,9) BLL=2 000778 5830 912C L 3,300(0,9) BLW=0 00077C D203 2008 3060 MVC 8(4,2),96(3) BNLH_BUFFER_LENG W-DYNA-SIZE 000214 SET 000782 GN=81 EQU * 000782 5820 9138 L 2,312(0,9) BLL=2 000786 9207 200C MVI 12(2),X'07' (BLL=2)+12 000215 MOVE 00078A GN=82 EQU * 00078A 5820 9138 L 2,312(0,9) BLL=2 00078E D203 2010 A227 MVC 16(4,2),551(10) (BLL=2)+16 PGMLIT AT +499 000216 MOVE 000794 GN=83 EQU * 000794 5820 9138 L 2,312(0,9) BLL=2 000798 5830 9128 L 3,296(0,9) BL=1 00079C D203 2014 3008 MVC 20(4,2),8(3) BNLH_ENTRY_COUNT TALLY 000217 PERFORM 0007A2 GN=84 EQU * 0007A2 58B0 C010 L 11,16(0,12) PBL=1 0007A6 4120 B2DA LA 2,730(0,11) GN=23(0007B2) 0007AA 5020 D124 ST 2,292(0,13) PVN=8 0007AE 47F0 B826 BC 15,2086(0,11) LECTURE-NOMS-SECTIONS 0007B2 GN=23 EQU * 0007B2 50F0 D124 ST 15,292(0,13) PVN=8 000219 PERFORM 0007B6 GN=85 EQU * 0007B6 D203 916C A1F0 MVC 364(4,9),496(10) IDX=1 PGMLIT AT +444 0007BC 58B0 C010 L 11,16(0,12) PBL=1 0007C0 47F0 B33E BC 15,830(0,11) GN=26(000816) 0007C4 GN=25 EQU * 000221 SET 0007C4 GN=86 EQU * 0007C4 5820 916C L 2,364(0,9) XBNL 0007C8 5840 9138 L 4,312(0,9) BLL=2 0007CC 5832 4028 L 3,40(2,4) BNL_NAME_PTR() 0007D0 4130 3000 LA 3,0(0,3) 0007D4 5030 9134 ST 3,308(0,9) BLL=1 000222 MOVE PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 28 0007D8 GN=87 EQU * 0007D8 5820 916C L 2,364(0,9) XBNL 0007DC 5A20 9138 A 2,312(0,9) BLL=2 0007E0 5830 9128 L 3,296(0,9) BL=1 0007E4 D201 300A 2026 MVC 10(2,3),38(2) TALLY+2 BNL_NAME_CHARS() 0007EA D201 3008 C008 MVC 8(2,3),8(12) TALLY SYSLIT AT +8 000223 DISPLAY 0007F0 GN=88 EQU * 0007F0 5830 9128 L 3,296(0,9) BL=1 0007F4 5820 3008 L 2,8(0,3) TALLY 0007F8 5020 D1C8 ST 2,456(0,13) TS3=0 0007FC 5820 905C L 2,92(0,9) TGTFIXD+92 000800 58F0 202C L 15,44(0,2) V(IGZCDSP ) 000804 4110 A2AB LA 1,683(0,10) PGMLIT AT +631 000808 0DEF BASR 14,15 000224 PERFORM-EPILOGUE 00080A GN=89 EQU * 00080A 5820 916C L 2,364(0,9) XBNL 00080E 4A20 A042 AH 2,66(0,10) PGMLIT AT +14 000812 5020 916C ST 2,364(0,9) XBNL 000816 GN=26 EQU * 000816 5840 912C L 4,300(0,9) BLW=0 00081A 5830 40D0 L 3,208(0,4) RC-GN-COUNT 00081E 1F22 SLR 2,2 000820 4B30 A046 SH 3,70(0,10) PGMLIT AT +18 000824 5C20 A040 M 2,64(0,10) PGMLIT AT +12 000828 5930 916C C 3,364(0,9) XBNL 00082C 58B0 C010 L 11,16(0,12) PBL=1 000830 47B0 B2EC BC 11,748(0,11) GN=25(0007C4) 000227 MOVE 000834 GN=90 EQU * 000834 5820 9128 L 2,296(0,9) BL=1 000838 D203 2008 A22B MVC 8(4,2),555(10) (BL=1)+8 PGMLIT AT +503 000228 COMPUTE 00083E GN=91 EQU * 00083E 5840 9128 L 4,296(0,9) BL=1 000842 5830 4008 L 3,8(0,4) TALLY 000846 1F22 SLR 2,2 000848 5D20 C000 D 2,0(0,12) SYSLIT AT +0 00084C 4E30 D1A8 CVD 3,424(0,13) TS2=16 000850 F154 D19A D1AB MVO 410(6,13),427(5,13) TS2=2 TS2=19 000856 4E20 D1A8 CVD 2,424(0,13) TS2=16 00085A 9110 D19F TM 415(13),X'10' TS2=7 00085E D204 D19F D1AB MVC 415(5,13),427(13) TS2=7 TS2=19 000864 58B0 C010 L 11,16(0,12) PBL=1 000868 4780 B398 BC 8,920(0,11) GN=92(000870) 00086C 9601 D1A3 OI 419(13),X'01' TS2=11 000870 GN=92 EQU * 000870 D201 D198 C008 MVC 408(2,13),8(12) TS2=0 SYSLIT AT +8 000876 F8F5 D188 D19E ZAP 392(16,13),414(6,13) TS1=0 TS2=6 00087C FCB5 D18C A09E MP 396(12,13),158(6,10) TS1=4 PGMLIT AT +106 000882 FAA4 D18D A0AA AP 397(11,13),170(5,10) TS1=5 PGMLIT AT +118 000888 D20F D198 D188 MVC 408(16,13),392(13) TS2=0 TS1=0 00088E 960F D1A7 OI 423(13),X'0F' TS2=15 000892 5820 905C L 2,92(0,9) TGTFIXD+92 000896 58F0 203C L 15,60(0,2) V(IGZCIDB ) 00089A 4110 A2F3 LA 1,755(0,10) PGMLIT AT +703 00089E 0DEF BASR 14,15 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 29 0008A0 5830 912C L 3,300(0,9) BLW=0 0008A4 D203 3060 D1AC MVC 96(4,3),428(13) W-DYNA-SIZE TS2=20 000230 PERFORM 0008AA GN=93 EQU * 000374 CALL 0008AA 5830 912C L 3,300(0,9) BLW=0 0008AE 4120 3058 LA 2,88(0,3) W-DYNA-HEAPID 0008B2 5020 D198 ST 2,408(0,13) TS2=0 0008B6 4120 3060 LA 2,96(0,3) W-DYNA-SIZE 0008BA 5020 D19C ST 2,412(0,13) TS2=4 0008BE 4120 3068 LA 2,104(0,3) W-DYNA-ADDR 0008C2 5020 D1A0 ST 2,416(0,13) TS2=8 0008C6 4120 0000 LA 2,0(0,0) 0008CA 5020 D1A4 ST 2,420(0,13) TS2=12 0008CE 9680 D1A4 OI 420(13),X'80' TS2=12 0008D2 D207 D1A8 A21B MVC 424(8,13),539(10) TS2=16 PGMLIT AT +487 0008D8 DC07 D1A8 A0AF TR 424(8,13),175(10) TS2=16 PGMLIT AT +123 0008DE D203 D1B0 A233 MVC 432(4,13),563(10) TS2=24 PGMLIT AT +511 0008E4 4120 D1A8 LA 2,424(0,13) TS2=16 0008E8 4140 D198 LA 4,408(0,13) TS2=0 0008EC 5020 D1B4 ST 2,436(0,13) TS2=28 0008F0 5040 D1B8 ST 4,440(0,13) TS2=32 0008F4 4110 D1B0 LA 1,432(0,13) TS2=24 0008F8 5820 905C L 2,92(0,9) TGTFIXD+92 0008FC 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000900 0DEF BASR 14,15 000902 5840 9128 L 4,296(0,9) BL=1 000906 40F0 4000 STH 15,0(0,4) RETURN-CODE 000231 SET 00090A GN=94 EQU * 00090A 5820 912C L 2,300(0,9) BLW=0 00090E 5810 2068 L 1,104(0,2) W-DYNA-ADDR 000912 4110 1000 LA 1,0(0,1) 000916 5010 913C ST 1,316(0,9) BLL=3 00091A 5E10 A03C AL 1,60(0,10) PGMLIT AT +8 00091E 5010 9140 ST 1,320(0,9) BLL=4 000232 MOVE 000922 GN=95 EQU * 000922 5820 913C L 2,316(0,9) BLL=3 000926 D71F 2000 2000 XC 0(32,2),0(2) CUIH CUIH 000233 SET 00092C GN=96 EQU * 00092C 5820 913C L 2,316(0,9) BLL=3 000930 D207 2000 A1FB MVC 0(8,2),507(10) (BLL=3)+0 PGMLIT AT +455 000234 MOVE 000936 GN=97 EQU * 000936 5820 913C L 2,316(0,9) BLL=3 00093A 5830 912C L 3,300(0,9) BLW=0 00093E D203 2008 3060 MVC 8(4,2),96(3) CUIH_BUFFER_LENG W-DYNA-SIZE 000235 SET 000944 GN=98 EQU * 000944 5820 913C L 2,316(0,9) BLL=3 000948 9206 200C MVI 12(2),X'06' (BLL=3)+12 000236 MOVE 00094C GN=99 EQU * 00094C 5820 913C L 2,316(0,9) BLL=3 000950 D203 2010 A223 MVC 16(4,2),547(10) (BLL=3)+16 PGMLIT AT +495 000237 MOVE PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 30 000956 GN=100 EQU * 000956 5820 913C L 2,316(0,9) BLL=3 00095A 5830 9128 L 3,296(0,9) BL=1 00095E D203 2014 3008 MVC 20(4,2),8(3) CUIH_ENTRY_COUNT TALLY 000238 PERFORM 000964 GN=101 EQU * 000964 58B0 C010 L 11,16(0,12) PBL=1 000968 4120 B49C LA 2,1180(0,11) GN=28(000974) 00096C 5020 D128 ST 2,296(0,13) PVN=9 000970 47F0 B8E2 BC 15,2274(0,11) LECTURE-UNITES-COMPILATION 000974 GN=28 EQU * 000974 50F0 D128 ST 15,296(0,13) PVN=9 000240 PERFORM 000978 GN=102 EQU * 000978 D203 9170 A1F0 MVC 368(4,9),496(10) IDX=2 PGMLIT AT +444 00097E 58B0 C010 L 11,16(0,12) PBL=1 000982 47F0 B4BA BC 15,1210(0,11) GN=31(000992) 000986 GN=30 EQU * 000242 CONTINUE 000986 GN=103 EQU * 000243 PERFORM-EPILOGUE 000986 GN=104 EQU * 000986 5820 9170 L 2,368(0,9) XCUI 00098A 4A20 A03A AH 2,58(0,10) PGMLIT AT +6 00098E 5020 9170 ST 2,368(0,9) XCUI 000992 GN=31 EQU * 000992 5840 912C L 4,300(0,9) BLW=0 000996 5830 40E8 L 3,232(0,4) RC-GC-COUNT 00099A 1F22 SLR 2,2 00099C 4B30 A046 SH 3,70(0,10) PGMLIT AT +18 0009A0 5C20 A038 M 2,56(0,10) PGMLIT AT +4 0009A4 5930 9170 C 3,368(0,9) XCUI 0009A8 58B0 C010 L 11,16(0,12) PBL=1 0009AC 47B0 B4AE BC 11,1198(0,11) GN=30(000986) 000246 PERFORM 0009B0 GN=105 EQU * 0009B0 58B0 C010 L 11,16(0,12) PBL=1 0009B4 4120 B4E8 LA 2,1256(0,11) GN=32(0009C0) 0009B8 5020 D12C ST 2,300(0,13) PVN=10 0009BC 47F0 B58A BC 15,1418(0,11) FERMETURE-SESSION 0009C0 GN=32 EQU * 0009C0 50F0 D12C ST 15,300(0,13) PVN=10 000248 *BYE 000249 GOBACK 0009C4 GN=106 EQU * 0009C4 58B0 C010 L 11,16(0,12) PBL=1 0009C8 47F0 BB6C BC 15,2924(0,11) GN=2(001044) 000253 *OUVERTURE-SESSION 000254 MOVE 0009CC GN=107 EQU * 0009CC 5820 912C L 2,300(0,9) BLW=0 0009D0 D201 2078 A23F MVC 120(2,2),575(10) (BLW=0)+120 PGMLIT AT +523 000255 MOVE 0009D6 GN=108 EQU * 0009D6 5820 912C L 2,300(0,9) BLW=0 0009DA D203 2098 A1F0 MVC 152(4,2),496(10) (BLW=0)+152 PGMLIT AT +444 000256 CALL 0009E0 GN=109 EQU * PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 31 0009E0 5830 912C L 3,300(0,9) BLW=0 0009E4 4120 3078 LA 2,120(0,3) RC-FUNCTION 0009E8 5020 D198 ST 2,408(0,13) TS2=0 0009EC 4120 3098 LA 2,152(0,3) RC-MTOKEN 0009F0 5020 D19C ST 2,412(0,13) TS2=4 0009F4 4120 30A0 LA 2,160(0,3) RC-DDNAME 0009F8 5020 D1A0 ST 2,416(0,13) TS2=8 0009FC 4120 30B0 LA 2,176(0,3) RC-MEMBER 000A00 5020 D1A4 ST 2,420(0,13) TS2=12 000A04 9680 D1A4 OI 420(13),X'80' TS2=12 000A08 D207 D1A8 A213 MVC 424(8,13),531(10) TS2=16 PGMLIT AT +479 000A0E DC07 D1A8 A0AF TR 424(8,13),175(10) TS2=16 PGMLIT AT +123 000A14 D203 D1B0 A233 MVC 432(4,13),563(10) TS2=24 PGMLIT AT +511 000A1A 4120 D1A8 LA 2,424(0,13) TS2=16 000A1E 4140 D198 LA 4,408(0,13) TS2=0 000A22 5020 D1B4 ST 2,436(0,13) TS2=28 000A26 5040 D1B8 ST 4,440(0,13) TS2=32 000A2A 4110 D1B0 LA 1,432(0,13) TS2=24 000A2E 5820 905C L 2,92(0,9) TGTFIXD+92 000A32 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000A36 0DEF BASR 14,15 000A38 5840 9128 L 4,296(0,9) BL=1 000A3C 40F0 4000 STH 15,0(0,4) RETURN-CODE 000260 PERFORM 000A40 GN=110 EQU * 000A40 D203 D158 D130 MVC 344(4,13),304(13) PSV=8 PVN=11 000A46 58B0 C010 L 11,16(0,12) PBL=1 000A4A 4120 B57E LA 2,1406(0,11) GN=33(000A56) 000A4E 5020 D130 ST 2,304(0,13) PVN=11 000A52 47F0 BA72 BC 15,2674(0,11) TEST-CODE-RETOUR 000A56 GN=33 EQU * 000A56 D203 D130 D158 MVC 304(4,13),344(13) PVN=11 PSV=8 000A5C 5820 D118 L 2,280(0,13) PVN=5 000A60 0DF2 BASR 15,2 000264 *FERMETURE-SESSION 000265 MOVE 000A62 GN=111 EQU * 000A62 5820 912C L 2,300(0,9) BLW=0 000A66 D201 2078 A23D MVC 120(2,2),573(10) (BLW=0)+120 PGMLIT AT +521 000266 CALL 000A6C GN=112 EQU * 000A6C 5830 912C L 3,300(0,9) BLW=0 000A70 4120 3078 LA 2,120(0,3) RC-FUNCTION 000A74 5020 D198 ST 2,408(0,13) TS2=0 000A78 4120 3098 LA 2,152(0,3) RC-MTOKEN 000A7C 5020 D19C ST 2,412(0,13) TS2=4 000A80 9680 D19C OI 412(13),X'80' TS2=4 000A84 D207 D1A0 A213 MVC 416(8,13),531(10) TS2=8 PGMLIT AT +479 000A8A DC07 D1A0 A0AF TR 416(8,13),175(10) TS2=8 PGMLIT AT +123 000A90 D203 D1A8 A233 MVC 424(4,13),563(10) TS2=16 PGMLIT AT +511 000A96 4120 D1A0 LA 2,416(0,13) TS2=8 000A9A 4140 D198 LA 4,408(0,13) TS2=0 000A9E 5020 D1AC ST 2,428(0,13) TS2=20 000AA2 5040 D1B0 ST 4,432(0,13) TS2=24 000AA6 4110 D1A8 LA 1,424(0,13) TS2=16 000AAA 5820 905C L 2,92(0,9) TGTFIXD+92 000AAE 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000AB2 0DEF BASR 14,15 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 32 000AB4 5840 9128 L 4,296(0,9) BL=1 000AB8 40F0 4000 STH 15,0(0,4) RETURN-CODE 000268 PERFORM 000ABC GN=113 EQU * 000ABC D203 D15C D130 MVC 348(4,13),304(13) PSV=9 PVN=11 000AC2 58B0 C010 L 11,16(0,12) PBL=1 000AC6 4120 B5FA LA 2,1530(0,11) GN=34(000AD2) 000ACA 5020 D130 ST 2,304(0,13) PVN=11 000ACE 47F0 BA72 BC 15,2674(0,11) TEST-CODE-RETOUR 000AD2 GN=34 EQU * 000AD2 D203 D130 D15C MVC 304(4,13),348(13) PVN=11 PSV=9 000AD8 5820 D12C L 2,300(0,13) PVN=10 000ADC 0DF2 BASR 15,2 000272 *LECTURE-NOMBRE-CLASSES 000273 MOVE 000ADE GN=114 EQU * 000ADE 5820 912C L 2,300(0,9) BLW=0 000AE2 D201 2078 A23B MVC 120(2,2),571(10) (BLW=0)+120 PGMLIT AT +519 000274 MOVE 000AE8 GN=115 EQU * 000AE8 5820 912C L 2,300(0,9) BLW=0 000AEC 92C3 20C0 MVI 192(2),X'C3' (BLW=0)+192 000275 MOVE 000AF0 GN=116 EQU * 000AF0 5820 912C L 2,300(0,9) BLW=0 000AF4 D203 20C8 A1F0 MVC 200(4,2),496(10) (BLW=0)+200 PGMLIT AT +444 000276 MOVE 000AFA GN=117 EQU * 000AFA 5820 912C L 2,300(0,9) BLW=0 000AFE D203 20D0 A1F0 MVC 208(4,2),496(10) (BLW=0)+208 PGMLIT AT +444 000277 CALL 000B04 GN=118 EQU * 000B04 5830 912C L 3,300(0,9) BLW=0 000B08 4120 3078 LA 2,120(0,3) RC-FUNCTION 000B0C 5020 D198 ST 2,408(0,13) TS2=0 000B10 4120 3098 LA 2,152(0,3) RC-MTOKEN 000B14 5020 D19C ST 2,412(0,13) TS2=4 000B18 4120 30C0 LA 2,192(0,3) RC-GN-MTYPE 000B1C 5020 D1A0 ST 2,416(0,13) TS2=8 000B20 4120 0000 LA 2,0(0,0) 000B24 5020 D1A4 ST 2,420(0,13) TS2=12 000B28 4120 30C8 LA 2,200(0,3) RC-GN-CURSOR 000B2C 5020 D1A8 ST 2,424(0,13) TS2=16 000B30 4120 30D0 LA 2,208(0,3) RC-GN-COUNT 000B34 5020 D1AC ST 2,428(0,13) TS2=20 000B38 9680 D1AC OI 428(13),X'80' TS2=20 000B3C D207 D1B0 A213 MVC 432(8,13),531(10) TS2=24 PGMLIT AT +479 000B42 DC07 D1B0 A0AF TR 432(8,13),175(10) TS2=24 PGMLIT AT +123 000B48 D203 D1B8 A233 MVC 440(4,13),563(10) TS2=32 PGMLIT AT +511 000B4E 4120 D1B0 LA 2,432(0,13) TS2=24 000B52 4140 D198 LA 4,408(0,13) TS2=0 000B56 5020 D1BC ST 2,444(0,13) TS2=36 000B5A 5040 D1C0 ST 4,448(0,13) TS2=40 000B5E 4110 D1B8 LA 1,440(0,13) TS2=32 000B62 5820 905C L 2,92(0,9) TGTFIXD+92 000B66 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000B6A 0DEF BASR 14,15 000B6C 5840 9128 L 4,296(0,9) BL=1 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 33 000B70 40F0 4000 STH 15,0(0,4) RETURN-CODE 000283 PERFORM 000B74 GN=119 EQU * 000B74 D203 D160 D130 MVC 352(4,13),304(13) PSV=10 PVN=11 000B7A 58B0 C010 L 11,16(0,12) PBL=1 000B7E 4120 B6B2 LA 2,1714(0,11) GN=35(000B8A) 000B82 5020 D130 ST 2,304(0,13) PVN=11 000B86 47F0 BA72 BC 15,2674(0,11) TEST-CODE-RETOUR 000B8A GN=35 EQU * 000B8A D203 D130 D160 MVC 304(4,13),352(13) PVN=11 PSV=10 000285 *LECTURE-NOMS-CLASSES 000286 MOVE 000B90 GN=120 EQU * 000B90 5820 912C L 2,300(0,9) BLW=0 000B94 D201 2078 A23B MVC 120(2,2),571(10) (BLW=0)+120 PGMLIT AT +519 000287 MOVE 000B9A GN=121 EQU * 000B9A 5820 912C L 2,300(0,9) BLW=0 000B9E 92C3 20C0 MVI 192(2),X'C3' (BLW=0)+192 000288 MOVE 000BA2 GN=122 EQU * 000BA2 5820 912C L 2,300(0,9) BLW=0 000BA6 D203 20C8 A1F0 MVC 200(4,2),496(10) (BLW=0)+200 PGMLIT AT +444 000289 MOVE 000BAC GN=123 EQU * 000BAC 5820 912C L 2,300(0,9) BLW=0 000BB0 D203 20D0 A1F0 MVC 208(4,2),496(10) (BLW=0)+208 PGMLIT AT +444 000290 CALL 000BB6 GN=124 EQU * 000BB6 5830 912C L 3,300(0,9) BLW=0 000BBA 4120 3078 LA 2,120(0,3) RC-FUNCTION 000BBE 5020 D198 ST 2,408(0,13) TS2=0 000BC2 4120 3098 LA 2,152(0,3) RC-MTOKEN 000BC6 5020 D19C ST 2,412(0,13) TS2=4 000BCA 4120 30C0 LA 2,192(0,3) RC-GN-MTYPE 000BCE 5020 D1A0 ST 2,416(0,13) TS2=8 000BD2 5840 9138 L 4,312(0,9) BLL=2 000BD6 4120 4000 LA 2,0(0,4) NAME-LIST-BUFFER 000BDA 5020 D1A4 ST 2,420(0,13) TS2=12 000BDE 4120 30C8 LA 2,200(0,3) RC-GN-CURSOR 000BE2 5020 D1A8 ST 2,424(0,13) TS2=16 000BE6 4120 30D0 LA 2,208(0,3) RC-GN-COUNT 000BEA 5020 D1AC ST 2,428(0,13) TS2=20 000BEE 9680 D1AC OI 428(13),X'80' TS2=20 000BF2 D207 D1B0 A213 MVC 432(8,13),531(10) TS2=24 PGMLIT AT +479 000BF8 DC07 D1B0 A0AF TR 432(8,13),175(10) TS2=24 PGMLIT AT +123 000BFE D203 D1B8 A233 MVC 440(4,13),563(10) TS2=32 PGMLIT AT +511 000C04 4120 D1B0 LA 2,432(0,13) TS2=24 000C08 4150 D198 LA 5,408(0,13) TS2=0 000C0C 5020 D1BC ST 2,444(0,13) TS2=36 000C10 5050 D1C0 ST 5,448(0,13) TS2=40 000C14 4110 D1B8 LA 1,440(0,13) TS2=32 000C18 5820 905C L 2,92(0,9) TGTFIXD+92 000C1C 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000C20 0DEF BASR 14,15 000C22 5850 9128 L 5,296(0,9) BL=1 000C26 40F0 5000 STH 15,0(0,5) RETURN-CODE 000296 PERFORM PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 34 000C2A GN=125 EQU * 000C2A D203 D164 D130 MVC 356(4,13),304(13) PSV=11 PVN=11 000C30 58B0 C010 L 11,16(0,12) PBL=1 000C34 4120 B768 LA 2,1896(0,11) GN=36(000C40) 000C38 5020 D130 ST 2,304(0,13) PVN=11 000C3C 47F0 BA72 BC 15,2674(0,11) TEST-CODE-RETOUR 000C40 GN=36 EQU * 000C40 D203 D130 D164 MVC 304(4,13),356(13) PVN=11 PSV=11 000C46 5820 D120 L 2,288(0,13) PVN=7 000C4A 0DF2 BASR 15,2 000298 *LECTURE-NOMBRE-SECTIONS 000299 MOVE 000C4C GN=126 EQU * 000C4C 5820 912C L 2,300(0,9) BLW=0 000C50 D201 2078 A23B MVC 120(2,2),571(10) (BLW=0)+120 PGMLIT AT +519 000300 MOVE 000C56 GN=127 EQU * 000C56 5820 912C L 2,300(0,9) BLW=0 000C5A 92E2 20C0 MVI 192(2),X'E2' (BLW=0)+192 000301 MOVE 000C5E GN=128 EQU * 000C5E 5820 912C L 2,300(0,9) BLW=0 000C62 D203 20C8 A1F0 MVC 200(4,2),496(10) (BLW=0)+200 PGMLIT AT +444 000302 MOVE 000C68 GN=129 EQU * 000C68 5820 912C L 2,300(0,9) BLW=0 000C6C D203 20D0 A1F0 MVC 208(4,2),496(10) (BLW=0)+208 PGMLIT AT +444 000303 CALL 000C72 GN=130 EQU * 000C72 5830 912C L 3,300(0,9) BLW=0 000C76 4120 3078 LA 2,120(0,3) RC-FUNCTION 000C7A 5020 D198 ST 2,408(0,13) TS2=0 000C7E 4120 3098 LA 2,152(0,3) RC-MTOKEN 000C82 5020 D19C ST 2,412(0,13) TS2=4 000C86 4120 30C0 LA 2,192(0,3) RC-GN-MTYPE 000C8A 5020 D1A0 ST 2,416(0,13) TS2=8 000C8E 4120 0000 LA 2,0(0,0) 000C92 5020 D1A4 ST 2,420(0,13) TS2=12 000C96 4120 30C8 LA 2,200(0,3) RC-GN-CURSOR 000C9A 5020 D1A8 ST 2,424(0,13) TS2=16 000C9E 4120 30D0 LA 2,208(0,3) RC-GN-COUNT 000CA2 5020 D1AC ST 2,428(0,13) TS2=20 000CA6 9680 D1AC OI 428(13),X'80' TS2=20 000CAA D207 D1B0 A213 MVC 432(8,13),531(10) TS2=24 PGMLIT AT +479 000CB0 DC07 D1B0 A0AF TR 432(8,13),175(10) TS2=24 PGMLIT AT +123 000CB6 D203 D1B8 A233 MVC 440(4,13),563(10) TS2=32 PGMLIT AT +511 000CBC 4120 D1B0 LA 2,432(0,13) TS2=24 000CC0 4140 D198 LA 4,408(0,13) TS2=0 000CC4 5020 D1BC ST 2,444(0,13) TS2=36 000CC8 5040 D1C0 ST 4,448(0,13) TS2=40 000CCC 4110 D1B8 LA 1,440(0,13) TS2=32 000CD0 5820 905C L 2,92(0,9) TGTFIXD+92 000CD4 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000CD8 0DEF BASR 14,15 000CDA 5840 9128 L 4,296(0,9) BL=1 000CDE 40F0 4000 STH 15,0(0,4) RETURN-CODE 000309 PERFORM 000CE2 GN=131 EQU * PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 35 000CE2 D203 D168 D130 MVC 360(4,13),304(13) PSV=12 PVN=11 000CE8 58B0 C010 L 11,16(0,12) PBL=1 000CEC 4120 B820 LA 2,2080(0,11) GN=37(000CF8) 000CF0 5020 D130 ST 2,304(0,13) PVN=11 000CF4 47F0 BA72 BC 15,2674(0,11) TEST-CODE-RETOUR 000CF8 GN=37 EQU * 000CF8 D203 D130 D168 MVC 304(4,13),360(13) PVN=11 PSV=12 000311 *LECTURE-NOMS-SECTIONS 000312 MOVE 000CFE GN=132 EQU * 000CFE 5820 912C L 2,300(0,9) BLW=0 000D02 D201 2078 A23B MVC 120(2,2),571(10) (BLW=0)+120 PGMLIT AT +519 000313 MOVE 000D08 GN=133 EQU * 000D08 5820 912C L 2,300(0,9) BLW=0 000D0C 92E2 20C0 MVI 192(2),X'E2' (BLW=0)+192 000314 MOVE 000D10 GN=134 EQU * 000D10 5820 912C L 2,300(0,9) BLW=0 000D14 D203 20C8 A1F0 MVC 200(4,2),496(10) (BLW=0)+200 PGMLIT AT +444 000315 MOVE 000D1A GN=135 EQU * 000D1A 5820 912C L 2,300(0,9) BLW=0 000D1E D203 20D0 A1F0 MVC 208(4,2),496(10) (BLW=0)+208 PGMLIT AT +444 000316 CALL 000D24 GN=136 EQU * 000D24 5830 912C L 3,300(0,9) BLW=0 000D28 4120 3078 LA 2,120(0,3) RC-FUNCTION 000D2C 5020 D198 ST 2,408(0,13) TS2=0 000D30 4120 3098 LA 2,152(0,3) RC-MTOKEN 000D34 5020 D19C ST 2,412(0,13) TS2=4 000D38 4120 30C0 LA 2,192(0,3) RC-GN-MTYPE 000D3C 5020 D1A0 ST 2,416(0,13) TS2=8 000D40 5840 9138 L 4,312(0,9) BLL=2 000D44 4120 4000 LA 2,0(0,4) NAME-LIST-BUFFER 000D48 5020 D1A4 ST 2,420(0,13) TS2=12 000D4C 4120 30C8 LA 2,200(0,3) RC-GN-CURSOR 000D50 5020 D1A8 ST 2,424(0,13) TS2=16 000D54 4120 30D0 LA 2,208(0,3) RC-GN-COUNT 000D58 5020 D1AC ST 2,428(0,13) TS2=20 000D5C 9680 D1AC OI 428(13),X'80' TS2=20 000D60 D207 D1B0 A213 MVC 432(8,13),531(10) TS2=24 PGMLIT AT +479 000D66 DC07 D1B0 A0AF TR 432(8,13),175(10) TS2=24 PGMLIT AT +123 000D6C D203 D1B8 A233 MVC 440(4,13),563(10) TS2=32 PGMLIT AT +511 000D72 4120 D1B0 LA 2,432(0,13) TS2=24 000D76 4150 D198 LA 5,408(0,13) TS2=0 000D7A 5020 D1BC ST 2,444(0,13) TS2=36 000D7E 5050 D1C0 ST 5,448(0,13) TS2=40 000D82 4110 D1B8 LA 1,440(0,13) TS2=32 000D86 5820 905C L 2,92(0,9) TGTFIXD+92 000D8A 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000D8E 0DEF BASR 14,15 000D90 5850 9128 L 5,296(0,9) BL=1 000D94 40F0 5000 STH 15,0(0,5) RETURN-CODE 000322 PERFORM 000D98 GN=137 EQU * 000D98 D203 D16C D130 MVC 364(4,13),304(13) PSV=13 PVN=11 000D9E 58B0 C010 L 11,16(0,12) PBL=1 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 36 000DA2 4120 B8D6 LA 2,2262(0,11) GN=38(000DAE) 000DA6 5020 D130 ST 2,304(0,13) PVN=11 000DAA 47F0 BA72 BC 15,2674(0,11) TEST-CODE-RETOUR 000DAE GN=38 EQU * 000DAE D203 D130 D16C MVC 304(4,13),364(13) PVN=11 PSV=13 000DB4 5820 D124 L 2,292(0,13) PVN=8 000DB8 0DF2 BASR 15,2 000326 *LECTURE-UNITES-COMPILATION 000327 MOVE 000DBA GN=138 EQU * 000DBA 5820 912C L 2,300(0,9) BLW=0 000DBE D201 2078 A239 MVC 120(2,2),569(10) (BLW=0)+120 PGMLIT AT +517 000328 MOVE 000DC4 GN=139 EQU * 000DC4 5820 912C L 2,300(0,9) BLW=0 000DC8 D203 20D8 A1F0 MVC 216(4,2),496(10) (BLW=0)+216 PGMLIT AT +444 000329 MOVE 000DCE GN=140 EQU * 000DCE 5820 912C L 2,300(0,9) BLW=0 000DD2 D203 20E0 A1F0 MVC 224(4,2),496(10) (BLW=0)+224 PGMLIT AT +444 000330 MOVE 000DD8 GN=141 EQU * 000DD8 5820 912C L 2,300(0,9) BLW=0 000DDC D203 20E8 A1F0 MVC 232(4,2),496(10) (BLW=0)+232 PGMLIT AT +444 000331 CALL 000DE2 GN=142 EQU * 000DE2 5830 912C L 3,300(0,9) BLW=0 000DE6 4120 3078 LA 2,120(0,3) RC-FUNCTION 000DEA 5020 D198 ST 2,408(0,13) TS2=0 000DEE 4120 3098 LA 2,152(0,3) RC-MTOKEN 000DF2 5020 D19C ST 2,412(0,13) TS2=4 000DF6 4120 30D8 LA 2,216(0,3) RC-GC-CULIST 000DFA 5020 D1A0 ST 2,416(0,13) TS2=8 000DFE 5840 913C L 4,316(0,9) BLL=3 000E02 4120 4000 LA 2,0(0,4) COMPILE-UNIT-BUFFER 000E06 5020 D1A4 ST 2,420(0,13) TS2=12 000E0A 4120 30E0 LA 2,224(0,3) RC-GC-CURSOR 000E0E 5020 D1A8 ST 2,424(0,13) TS2=16 000E12 4120 30E8 LA 2,232(0,3) RC-GC-COUNT 000E16 5020 D1AC ST 2,428(0,13) TS2=20 000E1A 9680 D1AC OI 428(13),X'80' TS2=20 000E1E D207 D1B0 A213 MVC 432(8,13),531(10) TS2=24 PGMLIT AT +479 000E24 DC07 D1B0 A0AF TR 432(8,13),175(10) TS2=24 PGMLIT AT +123 000E2A D203 D1B8 A233 MVC 440(4,13),563(10) TS2=32 PGMLIT AT +511 000E30 4120 D1B0 LA 2,432(0,13) TS2=24 000E34 4150 D198 LA 5,408(0,13) TS2=0 000E38 5020 D1BC ST 2,444(0,13) TS2=36 000E3C 5050 D1C0 ST 5,448(0,13) TS2=40 000E40 4110 D1B8 LA 1,440(0,13) TS2=32 000E44 5820 905C L 2,92(0,9) TGTFIXD+92 000E48 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000E4C 0DEF BASR 14,15 000E4E 5850 9128 L 5,296(0,9) BL=1 000E52 40F0 5000 STH 15,0(0,5) RETURN-CODE 000337 PERFORM 000E56 GN=143 EQU * 000E56 D203 D170 D130 MVC 368(4,13),304(13) PSV=14 PVN=11 000E5C 58B0 C010 L 11,16(0,12) PBL=1 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 37 000E60 4120 B994 LA 2,2452(0,11) GN=39(000E6C) 000E64 5020 D130 ST 2,304(0,13) PVN=11 000E68 47F0 BA72 BC 15,2674(0,11) TEST-CODE-RETOUR 000E6C GN=39 EQU * 000E6C D203 D130 D170 MVC 304(4,13),368(13) PVN=11 PSV=14 000E72 5820 D128 L 2,296(0,13) PVN=9 000E76 0DF2 BASR 15,2 000342 *LECTURE-CODE-RETOUR 000343 MOVE 000E78 GN=144 EQU * 000E78 5820 912C L 2,300(0,9) BLW=0 000E7C D201 2080 2078 MVC 128(2,2),120(2) RC-LAST RC-CODE 000344 MOVE 000E82 GN=145 EQU * 000E82 5820 912C L 2,300(0,9) BLW=0 000E86 D201 2078 A237 MVC 120(2,2),567(10) (BLW=0)+120 PGMLIT AT +515 000345 CALL 000E8C GN=146 EQU * 000E8C 5830 912C L 3,300(0,9) BLW=0 000E90 4120 3078 LA 2,120(0,3) RC-FUNCTION 000E94 5020 D198 ST 2,408(0,13) TS2=0 000E98 4120 3098 LA 2,152(0,3) RC-MTOKEN 000E9C 5020 D19C ST 2,412(0,13) TS2=4 000EA0 4120 3088 LA 2,136(0,3) RC-RETURN 000EA4 5020 D1A0 ST 2,416(0,13) TS2=8 000EA8 4120 3090 LA 2,144(0,3) RC-REASON 000EAC 5020 D1A4 ST 2,420(0,13) TS2=12 000EB0 9680 D1A4 OI 420(13),X'80' TS2=12 000EB4 D207 D1A8 A213 MVC 424(8,13),531(10) TS2=16 PGMLIT AT +479 000EBA DC07 D1A8 A0AF TR 424(8,13),175(10) TS2=16 PGMLIT AT +123 000EC0 D203 D1B0 A233 MVC 432(4,13),563(10) TS2=24 PGMLIT AT +511 000EC6 4120 D1A8 LA 2,424(0,13) TS2=16 000ECA 4140 D198 LA 4,408(0,13) TS2=0 000ECE 5020 D1B4 ST 2,436(0,13) TS2=28 000ED2 5040 D1B8 ST 4,440(0,13) TS2=32 000ED6 4110 D1B0 LA 1,432(0,13) TS2=24 000EDA 5820 905C L 2,92(0,9) TGTFIXD+92 000EDE 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 000EE2 0DEF BASR 14,15 000EE4 5840 9128 L 4,296(0,9) BL=1 000EE8 40F0 4000 STH 15,0(0,4) RETURN-CODE 000349 MOVE 000EEC GN=147 EQU * 000EEC 5820 912C L 2,300(0,9) BLW=0 000EF0 D201 2078 2080 MVC 120(2,2),128(2) RC-CODE RC-LAST 000EF6 5830 D134 L 3,308(0,13) PVN=12 000EFA 07F3 BCR 15,3 000351 *LECTURE-ANOMALIE 000352 PERFORM 000EFC GN=148 EQU * 000EFC D203 D174 D134 MVC 372(4,13),308(13) PSV=15 PVN=12 000F02 58B0 C010 L 11,16(0,12) PBL=1 000F06 4120 BA3A LA 2,2618(0,11) GN=40(000F12) 000F0A 5020 D134 ST 2,308(0,13) PVN=12 000F0E 47F0 B9A0 BC 15,2464(0,11) LECTURE-CODE-RETOUR 000F12 GN=40 EQU * 000F12 D203 D134 D174 MVC 308(4,13),372(13) PVN=12 PSV=15 000353 DISPLAY PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 38 000F18 GN=149 EQU * 000F18 5820 905C L 2,92(0,9) TGTFIXD+92 000F1C 58F0 202C L 15,44(0,2) V(IGZCDSP ) 000F20 4110 A295 LA 1,661(0,10) PGMLIT AT +609 000F24 0DEF BASR 14,15 000354 DISPLAY 000F26 GN=150 EQU * 000F26 5820 905C L 2,92(0,9) TGTFIXD+92 000F2A 58F0 202C L 15,44(0,2) V(IGZCDSP ) 000F2E 4110 A257 LA 1,599(0,10) PGMLIT AT +547 000F32 0DEF BASR 14,15 000357 MOVE 000F34 GN=151 EQU * 000F34 5820 9128 L 2,296(0,9) BL=1 000F38 5830 912C L 3,300(0,9) BLW=0 000F3C D201 2000 308A MVC 0(2,2),138(3) RETURN-CODE RC-RETURN+2 000358 GOBACK 000F42 GN=152 EQU * 000F42 58B0 C010 L 11,16(0,12) PBL=1 000F46 47F0 BB6C BC 15,2924(0,11) GN=2(001044) 000360 *TEST-CODE-RETOUR 000361 EVALUATE 000F4A GN=153 EQU * 000362 WHEN 000F4A GN=154 EQU * 000F4A 5830 9128 L 3,296(0,9) BL=1 000F4E 4820 3000 LH 2,0(0,3) RETURN-CODE 000F52 4920 A038 CH 2,56(0,10) PGMLIT AT +4 000F56 58B0 C010 L 11,16(0,12) PBL=1 000F5A 4770 BA9E BC 7,2718(0,11) GN=42(000F76) 000363 MOVE 000F5E GN=155 EQU * 000F5E 4120 0000 LA 2,0(0,0) 000F62 5830 912C L 3,300(0,9) BLW=0 000F66 5020 3088 ST 2,136(0,3) (BLW=0)+136 000F6A 5020 3090 ST 2,144(0,3) (BLW=0)+144 000F6E 58B0 C010 L 11,16(0,12) PBL=1 000F72 47F0 BAEE BC 15,2798(0,11) GN=41(000FC6) 000F76 GN=42 EQU * 000365 WHEN 000F76 GN=156 EQU * 000F76 5830 9128 L 3,296(0,9) BL=1 000F7A 4820 3000 LH 2,0(0,3) RETURN-CODE 000F7E 4920 A046 CH 2,70(0,10) PGMLIT AT +18 000F82 58B0 C010 L 11,16(0,12) PBL=1 000F86 4740 BADE BC 4,2782(0,11) GN=43(000FB6) 000F8A 4920 A048 CH 2,72(0,10) PGMLIT AT +20 000F8E 4720 BADE BC 2,2782(0,11) GN=43(000FB6) 000366 PERFORM 000F92 GN=157 EQU * 000F92 D203 D178 D134 MVC 376(4,13),308(13) PSV=16 PVN=12 000F98 58B0 C010 L 11,16(0,12) PBL=1 000F9C 4120 BAD0 LA 2,2768(0,11) GN=44(000FA8) 000FA0 5020 D134 ST 2,308(0,13) PVN=12 000FA4 47F0 B9A0 BC 15,2464(0,11) LECTURE-CODE-RETOUR 000FA8 GN=44 EQU * 000FA8 D203 D134 D178 MVC 308(4,13),376(13) PVN=12 PSV=16 000FAE 58B0 C010 L 11,16(0,12) PBL=1 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 39 000FB2 47F0 BAEE BC 15,2798(0,11) GN=41(000FC6) 000FB6 GN=43 EQU * 000367 WHEN 000FB6 GN=158 EQU * 000368 PERFORM 000FB6 GN=159 EQU * 000FB6 58B0 C010 L 11,16(0,12) PBL=1 000FBA 4120 BAEE LA 2,2798(0,11) GN=46(000FC6) 000FBE 5020 D138 ST 2,312(0,13) PVN=13 000FC2 47F0 BA24 BC 15,2596(0,11) LECTURE-ANOMALIE 000FC6 GN=46 EQU * 000FC6 GN=41 EQU * 000FC6 5820 D130 L 2,304(0,13) PVN=11 000FCA 07F2 BCR 15,2 000373 *ALLOCATION-MEMOIRE 000374 CALL 000FCC GN=160 EQU * 000FCC 5830 912C L 3,300(0,9) BLW=0 000FD0 4120 3058 LA 2,88(0,3) W-DYNA-HEAPID 000FD4 5020 D198 ST 2,408(0,13) TS2=0 000FD8 4120 3060 LA 2,96(0,3) W-DYNA-SIZE 000FDC 5020 D19C ST 2,412(0,13) TS2=4 000FE0 4120 3068 LA 2,104(0,3) W-DYNA-ADDR 000FE4 5020 D1A0 ST 2,416(0,13) TS2=8 000FE8 4120 0000 LA 2,0(0,0) 000FEC 5020 D1A4 ST 2,420(0,13) TS2=12 000FF0 9680 D1A4 OI 420(13),X'80' TS2=12 000FF4 D207 D1A8 A21B MVC 424(8,13),539(10) TS2=16 PGMLIT AT +487 000FFA DC07 D1A8 A0AF TR 424(8,13),175(10) TS2=16 PGMLIT AT +123 001000 D203 D1B0 A233 MVC 432(4,13),563(10) TS2=24 PGMLIT AT +511 001006 4120 D1A8 LA 2,424(0,13) TS2=16 00100A 4140 D198 LA 4,408(0,13) TS2=0 00100E 5020 D1B4 ST 2,436(0,13) TS2=28 001012 5040 D1B8 ST 4,440(0,13) TS2=32 001016 4110 D1B0 LA 1,432(0,13) TS2=24 00101A 5820 905C L 2,92(0,9) TGTFIXD+92 00101E 58F0 2100 L 15,256(0,2) V(IGZCFCC ) 001022 0DEF BASR 14,15 001024 5840 9128 L 4,296(0,9) BL=1 001028 40F0 4000 STH 15,0(0,4) RETURN-CODE 00102C 0700 BCR 0,0 00102E 9120 D084 TM 132(13),X'20' DSAFIXD+132 001032 58B0 C010 L 11,16(0,12) PBL=1 001036 47E0 BB6C BC 14,2924(0,11) GN=2(001044) 00103A 58F0 20F4 L 15,244(0,2) V(IGZCMSG ) 00103E 4110 A245 LA 1,581(0,10) PGMLIT AT +529 001042 0DEF BASR 14,15 001044 GN=2 EQU * 001044 5820 9184 L 2,388(0,9) IPCB=1+16 001048 5B20 C004 S 2,4(0,12) SYSLIT AT +4 00104C 5020 9184 ST 2,388(0,9) IPCB=1+16 001050 9140 9055 TM 85(9),X'40' TGTFIXD+85 001054 47E0 BB8E BC 14,2958(0,11) GN=161(001066) 001058 4110 0008 LA 1,8(0,0) 00105C 5820 905C L 2,92(0,9) TGTFIXD+92 001060 58F0 2020 L 15,32(0,2) V(IGZCCTL ) 001064 0DEF BASR 14,15 001066 GN=161 EQU * PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 40 001066 9128 9054 TM 84(9),X'28' TGTFIXD+84 00106A 4770 BBAC BC 7,2988(0,11) GN=162(001084) 00106E 5820 9128 L 2,296(0,9) BL=1 001072 48F0 2000 LH 15,0(0,2) RETURN-CODE 001076 58D0 D004 L 13,4(0,13) 00107A 58E0 D00C L 14,12(0,13) 00107E 980C D014 LM 0,12,20(13) 001082 07FE BCR 15,14 001084 GN=162 EQU * 001084 D20B D1A8 A1EF MVC 424(12,13),495(10) TS2=16 PGMLIT AT +443 00108A 5830 9128 L 3,296(0,9) BL=1 00108E 4820 3000 LH 2,0(0,3) RETURN-CODE 001092 5020 D1B4 ST 2,436(0,13) TS2=28 001096 4110 D1A8 LA 1,424(0,13) TS2=16 00109A 5820 905C L 2,92(0,9) TGTFIXD+92 00109E 58F0 2224 L 15,548(0,2) V(IGZETRM ) 0010A2 0DEF BASR 14,15 PROGSUM TABLE LOCATED AT 0010AC FOR 000136 BYTES PROCTAB TABLE LOCATED AT 0011EC FOR 0002AC BYTES REGION TABLE LOCATED AT 001498 FOR 000008 BYTES PATH TABLE LOCATED AT 0014A0 FOR 000284 BYTES ATTRIBUTE TABLE LOCATED AT 001724 FOR 004F10 BYTES SYMBOL TABLE LOCATED AT 006634 FOR 001450 BYTES GEN. INFO. TABLE LOCATED AT 007A84 FOR 0001A4 BYTES HASH TABLE LOCATED AT 007C28 FOR 001000 BYTES AUTO TABLE LOCATED AT 008C28 FOR 0007D4 BYTES AUTO AREA TABLE LOCATED AT 0093FC FOR 00029C BYTES PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 41 *** TGT MEMORY MAP *** TGTLOC 000000 RESERVED - 72 BYTES 000048 TGT IDENTIFIER 00004C RESERVED - 4 BYTES 000050 TGT LEVEL INDICATOR 000051 RESERVED - 3 BYTES 000054 32 BIT SWITCH 000058 POINTER TO RUNCOM 00005C POINTER TO COBVEC 000060 POINTER TO PROGRAM DYNAMIC BLOCK TABLE 000064 NUMBER OF FCB'S 000068 WORKING-STORAGE LENGTH 00006C RESERVED - 4 BYTES 000070 ADDRESS OF IGZESMG WORK AREA 000074 ADDRESS OF 1ST GETMAIN BLOCK (SPACE MGR) 000078 RESERVED - 2 BYTES 00007A RESERVED - 2 BYTES 00007C RESERVED - 2 BYTES 00007E MERGE FILE NUMBER 000080 ADDRESS OF CEL COMMON ANCHOR AREA 000084 LENGTH OF TGT 000088 RESERVED - 1 SINGLE BYTE FIELD 000089 PROGRAM MASK USED BY THIS PROGRAM 00008A RESERVED - 2 SINGLE BYTE FIELDS 00008C NUMBER OF SECONDARY FCB CELLS 000090 LENGTH OF THE ALTER VN(VNI) VECTOR 000094 COUNT OF NESTED PROGRAMS IN COMPILE UNIT 000098 DDNAME FOR DISPLAY OUTPUT 0000A0 RESERVED - 8 BYTES 0000A8 POINTER TO COM-REG SPECIAL REGISTER 0000AC RESERVED - 52 BYTES 0000E0 ALTERNATE COLLATING SEQUENCE TABLE PTR. 0000E4 ADDRESS OF SORT G.N. ADDRESS BLOCK 0000E8 ADDRESS OF PGT 0000EC RESERVED - 4 BYTES 0000F0 POINTER TO 1ST IPCB 0000F4 ADDRESS OF THE CLLE FOR THIS PROGRAM 0000F8 POINTER TO ABEND INFORMATION TABLE 0000FC POINTER TO TEST INFO FIELDS IN THE TGT 000100 ADDRESS OF START OF COBOL PROGRAM 000104 POINTER TO ALTER VNI'S IN CGT 000108 POINTER TO ALTER VN'S IN TGT 00010C POINTER TO FIRST PBL IN THE PGT 000110 POINTER TO FIRST FCB CELL 000114 WORKING-STORAGE ADDRESS 000118 POINTER TO FIRST SECONDARY FCB CELL 00011C POINTER TO STATIC CLASS INFO BLOCK 1 000120 POINTER TO STATIC CLASS INFO BLOCK 2 *** VARIABLE PORTION OF TGT *** 000124 BASE LOCATORS FOR SPECIAL REGISTERS 00012C BASE LOCATORS FOR WORKING-STORAGE 000130 BASE LOCATORS FOR LINKAGE-SECTION 000144 TEST INFORMATION AREA 00016C INDEX CELLS PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 42 000174 INTERNAL PROGRAM CONTROL BLOCKS *** DSA MEMORY MAP *** DSALOC 00000000 REGISTER SAVE AREA 0000004C STACK NAB (NEXT AVAILABLE BYTE) 00000058 ADDRESS OF INLINE-CODE PRIMARY DSA 0000005C ADDRESS OF TGT 00000060 ADDRESS OF CAA 00000080 XML PARSE WORK AREA ANCHOR 00000084 SWITCHES 00000088 CURRENT INT. PROGRAM OR METHOD NUMBER 0000008C ADDRESS OF CALL STATEMENT PROGRAM NAME 00000090 CALC ROUTINE REGISTER SAVE AREA 000000C4 ADDRESS OF FILE MUTEX USE COUNT CELLS 000000C8 PROCEDURE DIVISION RETURNING VALUE *** VARIABLE PORTION OF DSA *** 000000D0 BACKSTORE CELLS FOR SYMBOLIC REGISTERS 000000E0 VARIABLE-LENGTH CELLS 00000100 ODO SAVE CELLS 00000108 VARIABLE NAME (VN) CELLS FOR PERFORM 0000013C PERFORM SAVE CELLS 00000188 TEMPORARY STORAGE-1 00000198 TEMPORARY STORAGE-2 000001C8 TEMPORARY STORAGE-3 000001D0 CALL STATEMENT PROGRAM NAME TGT WILL BE ALLOCATED FOR 00000188 BYTES CLG00001 WILL BE ALLOCATED FOR 00000012 BYTES SPEC-REG WILL BE ALLOCATED FOR 00000010 BYTES WRK-STOR WILL BE ALLOCATED FOR 000000EC BYTES DSA WILL BE ALLOCATED FOR 00000270 BYTES CONSTANT GLOBAL TABLE FOR DYNAMIC STORAGE INITIALIZATION AT LOCATION 0096D0 INITD CODE FOR DYNAMIC STORAGE INITIALIZATION BEGINS AT LOCATION 009850 FOR LENGTH 0000C4 PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 INFOPROG Date 09/01/2015 Time 23:48:17 Page 43 LineID Message code Message text IGYDS0139-W Diagnostic messages were issued during processing of compiler options. These messages are located at the beginning of the listing. IGYSC2254-W **MIGR** Support for "TEST" suboptions "HOOK", "NOHOOK", "SEPARATE" and "NOSEPARATE" will not be available in future versions of Enterprise COBOL. IGYSC2269-W **MIGR** The "OPTIMIZE(FULL)" option will not be available in future versions of Enterprise COBOL. It will be interpreted as "OPTIMIZE(1),STGOPT". 368 IGYOP3093-W The "PERFORM" statement at "PERFORM (line 368.01)" cannot reach its exit. 374 IGYSC0209-W DSNH053I DSNHPSRV NO SQL STATEMENTS WERE FOUND Messages Total Informational Warning Error Severe Terminating Printed: 8 1 7 * Statistics for COBOL program INFOPROG: * Source records = 482 * Data Division statements = 155 * Procedure Division statements = 98 End of compilation 1, program INFOPROG, highest severity 4. Return code 4