PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0 Date 07/15/2015 Time 20:08:48 Page 1 Invocation parameters: OPTFILE PROCESS(CBL) statements: CBL OPTIMIZE(1) CBL STGOPT CBL TEST(EJPD,NOSOURCE) CBL LIST CBL COPYRIGHT('IT-CE GROUPE BPCE') CBL SERVICE('POC COBOL V5') Options from SYSOPTF: NOADV AFP(VOLATILE) ARCH(10) APOST AWO BLOCK0 CODEPAGE(1147) DATA(31) DBCS DISPSIGN(SEP) FASTSRT HGPR(PRESERVE) MAP(HEX) NAME(ALIAS) OFFSET RENT OFFSET NUMPROC(NOPFD) RULES(ENDPERIOD,NOEVENPACK,NOLAXPERF,NOSLACKBYTES) TRUNC(BIN) XREF SQL NOSQLCCSID SQL("APOSTSQL") SQL("ATTACH(TSO)") SQL("NEWFUN(YES)") SQL("PERIOD") SQL("VERSION(AUTO)") NOCICS DYNAM IGYOS4022-W The "OFFSET" option was discarded due to option conflict resolution. The "LIST" option from "PROCESS/CBL" statement took precedence. Options in effect: NOADATA NOADV AFP(VOLATILE) APOST ARCH(10) ARITH(COMPAT) AWO BLOCK0 BUFSIZE(4096) NOCICS PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0 Date 07/15/2015 Time 20:08:48 Page 2 CODEPAGE(1147) NOCOMPILE(S) COPYRIGHT('IT-CE GROUPE BPCE') NOCURRENCY DATA(31) DBCS NODECK NODIAGTRUNC DISPSIGN(SEP) NODLL NODUMP DYNAM NOEXIT NOEXPORTALL FASTSRT FLAG(I,I) NOFLAGSTD HGPR(PRESERVE) INTDATE(ANSI) LANGUAGE(EN) LINECOUNT(60) LIST MAP(HEX) MAXPCF(60000) NOMDECK NAME(ALIAS) NSYMBOL(NATIONAL) NONUMBER NUMPROC(NOPFD) OBJECT NOOFFSET OPTIMIZE(1) OUTDD(SYSOUT) PGMNAME(COMPAT) QUALIFY(COMPAT) RENT RMODE(AUTO) RULES(ENDPERIOD,NOEVENPACK,NOLAXPERF,NOSLACKBYTES) SERVICE('POC COBOL V5') SEQUENCE SOURCE SPACE(1) SQL('APOSTSQL ATTACH(TSO) NEWFUN(YES) PERIOD VERSION(AUTO)') NOSQLCCSID NOSQLIMS NOSSRANGE STGOPT NOTERM TEST(EJPD,NOSOURCE) NOTHREAD TRUNC(BIN) NOVBREF VLR(STANDARD) NOWORD XMLPARSE(XMLSS) XREF(FULL) ZONEDATA(PFD) ZWB PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0 Date 07/15/2015 Time 20:08:48 Page 3 IGYOS4077-I The "DSNH4760I DSNHPSRV THE DB2 SQL COPROCESSOR IS USING THE LEVEL 2 INTERFACE UNDER DB2 V10" option is no longer supported. SQL Options in effect: APOSTSQL ATTACH(TSO) CCSID(1147) CONNECT(2) DEC(15) DECP(DSNHDECP) NEWFUN(YES) ONEPASS PERIOD STDSQL(NO) SQL(DB2) VERSION(2015-07-15-18.08.49.258679) NOXREF NO SOURCE DSNHDECP LOADED FROM - (IPRODUIT.DB2.V10A.SDSNEXIT(DSNHDECP)) PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 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. 0CL80 * * ==000006==> IGYDS1348-W **RULES(NOEVENPACK)** Data item "SQL---SCRVALD" was defined with an even number of digits, but "PACKED-DECIMAL" data items should always be defined with an odd number of digit positions. 000007 02 LOADMODULE pic X(8). 000000000 8C 000008 02 pic X(72). 000000008 72C 000009 * ---------------------------------------------------------------- 000010 * Gestion memoire dynamique 000011 01 W-DYNA-CEEGTST pic X(8) value 'CEEGTST '. 8C 000012 01 W-DYNA-CEECZST pic X(8) value 'CEECZST '. 8C 000013 01 W-DYNA-CEEFRST pic X(8) value 'CEEFRST '. 8C 000014 01 W-DYNA-HEAPID pic 9(8) comp-5 value 0. 4C 000015 01 W-DYNA-SIZE pic 9(8) comp-5. 4C 000016 01 W-DYNA-ADDR pointer. 4C 000017 * ---------------------------------------------------------------- 000018 * Zones de communications de l'interface Request Code 000019 01 IEWBFDAT pic x(8) value 'IEWBFDAT'. 8C 000020 01 RC-FUNCTION. 0CL4 000021 02 RC-CODE pic X(2). 000000000 2C 000022 02 pic X(2) value x'0001'. 000000002 2C 000023 01 RC-LAST pic X(2). 2C 000024 01 RC-RETURN pic S9(8) comp-5. 4C 000025 01 RC-REASON pic S9(8) comp-5. 4C 000026 01 RC-MTOKEN pic 9(8) comp-5. 4C 000027 01 RC-DDNAME. 0CL10 000028 02 pic 9(4) comp-5 value 7. 000000000 2C 000029 02 pic X(8) value 'LIBRARY '. 000000002 8C 000030 01 RC-MEMBER. 0CL10 000031 02 RC-MEMBER-LTH pic 9(4) comp-5. 000000000 2C 000032 02 RC-MEMBER-NAME pic X(8). 000000002 8C 000033 * ---------------------------------------------------------------- 000034 * Name List 000035 01 RC-GN-MTYPE pic X(1). 1C 000036 01 RC-GN-CURSOR pic 9(8) comp-5. 4C 000037 01 RC-GN-COUNT pic 9(8) comp-5. 4C 000038 * ---------------------------------------------------------------- 000039 * Compile Unit Information 000040 01 RC-GC-CULIST. 0CL4 000041 05 RC-GC-NB pic 9(8) comp-5 value 0. 000000000 4C 000042 01 RC-GC-CURSOR pic 9(8) comp-5. 4C 000043 01 RC-GC-COUNT pic 9(8) comp-5. 4C 000044 Linkage Section. 000045 * ---------------------------------------------------------------- 000046 * Zone texte flottante 000047 01 VSTRING. BLL=00001 0CL128 000048 02 pic X(1) occurs 128. BLL=00001,000000000 1C 000049 * ---------------------------------------------------------------- 000050 * Binder name list (version 7) PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 5 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 000051 01 NAME-LIST-BUFFER. BLL=00002 0CL2432 000052 02 BNLH. BLL=00002,000000000 0CL32 000053 05 pic X(8). BLL=00002,000000000 8C 000054 88 BNLH_BUFFER_ID value 'IEWBBNL '. 000055 05 BNLH_BUFFER_LENG pic 9(8) comp-5. BLL=00002,000000008 4C 000056 05 pic X(1). BLL=00002,00000000C 1C 000057 88 BNLH_VERSION value x'07'. 000058 05 pic X(3). BLL=00002,00000000D 3C 000059 05 BNLH_ENTRY_LENG pic 9(8) comp-5. BLL=00002,000000010 4C 000060 05 BNLH_ENTRY_COUNT pic 9(8) comp-5. BLL=00002,000000014 4C 000061 05 pic X(8). BLL=00002,000000018 8C 000062 02 BNL_ENTRY occurs 100 BLL=00002,000000020 0CL24 000063 indexed by XBNL. 000064 05 BNL_CLS_LENGTH pic 9(8) comp-5. BLL=00002,000000020 4C 000065 05 BNL_SECT_CU redefines BNL_CLS_LENGTH BLL=00002,000000020 4C 64 000066 pic 9(8) comp-5. 000067 05 BNL_BIND_FLAGS pic X(1). BLL=00002,000000024 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,000000025 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,000000026 2C 000087 05 BNL_NAME_PTR pointer. BLL=00002,000000028 4C 000088 05 BNL_ELEM_COUNT pic 9(8) comp-5. BLL=00002,00000002C 4C 000089 05 BNL_SEGM_ID pic 9(4) comp-5. BLL=00002,000000030 2C 000090 05 BNL_ATTR pic X(1). BLL=00002,000000032 1C 000091 05 BNL_ALIGN redefines BNL_ATTR BLL=00002,000000032 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,000000032 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,000000033 1C 000102 * x'01' = catenate class 000103 * x'02' = pseudoregisters (merge class) 000104 * x'03' = parts (merge class) PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 6 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 000105 05 BNL_SEGM_OFF pic S9(8) comp-5. BLL=00002,000000034 4C 000106 * ---------------------------------------------------------------- 000107 * CUI entry (version 6) 000108 01 COMPILE-UNIT-BUFFER. BLL=00003 0CL8032 000109 02 CUIH. BLL=00003,000000000 0CL32 000110 05 pic X(8). BLL=00003,000000000 8C 000111 88 CUIH_BUFFER_ID value 'IEWBCUI '. 000112 05 CUIH_BUFFER_LENG pic 9(8) comp-5. BLL=00003,000000008 4C 000113 05 pic X(1). BLL=00003,00000000C 1C 000114 88 CUIH_VERSION value x'06'. 000115 05 pic X(3). BLL=00003,00000000D 3C 000116 05 CUIH_ENTRY_LENG pic 9(8) comp-5. BLL=00003,000000010 4C 000117 05 CUIH_ENTRY_COUNT pic 9(8) comp-5. BLL=00003,000000014 4C 000118 05 pic X(8). BLL=00003,000000018 8C 000119 02 CUI_ENTRY occurs 100 BLL=00003,000000020 0CL80 000120 indexed by XCUI. 000121 05 CUI_CU pic 9(8) comp-5. BLL=00003,000000020 4C 000122 05 CUI_SOURCE_CU pic 9(8) comp-5. BLL=00003,000000024 4C 000123 05 pic X(2). BLL=00003,000000028 2C 000124 05 CUI_MEMBER_LEN pic 9(4) comp-5. BLL=00003,00000002A 2C 000125 05 CUI_MEMBER_PTR pointer. BLL=00003,00000002C 4C 000126 05 pic X(2). BLL=00003,000000030 2C 000127 05 CUI_PATH_LEN pic 9(4) comp-5. BLL=00003,000000032 2C 000128 05 CUI_PATH_PTR pointer. BLL=00003,000000034 4C 000129 05 pic X(2). BLL=00003,000000038 2C 000130 05 CUI_DSNAME_LEN pic 9(4) comp-5. BLL=00003,00000003A 2C 000131 05 CUI_DSNAME_PTR pointer. BLL=00003,00000003C 4C 000132 05 CUI_DDNAME pic X(8). BLL=00003,000000040 8C 000133 05 pic X(2). BLL=00003,000000048 2C 000134 05 CUI_CONCAT pic X(1). BLL=00003,00000004A 1C 000135 05 CUI_TYPE pic X(1). BLL=00003,00000004B 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,00000004C 4C 000156 05 pic X(2). BLL=00003,000000050 2C 000157 05 CUI_C_MEMBER_LEN pic 9(4) comp-5. BLL=00003,000000052 2C 000158 05 CUI_C_MEMBER_PTR pointer. BLL=00003,000000054 4C 000159 05 pic X(2). BLL=00003,000000058 2C 000160 05 CUI_C_PATH_LEN pic 9(4) comp-5. BLL=00003,00000005A 2C 000161 05 CUI_C_PATH_PTR pointer. BLL=00003,00000005C 4C PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 7 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 000162 05 pic X(2). BLL=00003,000000060 2C 000163 05 CUI_C_DSNAME_LEN pic 9(4) comp-5. BLL=00003,000000062 2C 000164 05 CUI_C_DSNAME_PTR pointer. BLL=00003,000000064 4C 000165 05 pic X(3). BLL=00003,000000068 3C 000166 05 CUI_C_TYPE pic X(1). BLL=00003,00000006B 1C 000167 05 CUI_C_SEQ pic 9(8) comp-5. BLL=00003,00000006C 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 IMP 000180 compute W-DYNA-SIZE = length of BNLH 15 IMP 52 000181 + (length of BNL_ENTRY + 256) * tally IMP 62 IMP 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 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 IMP 000198 1 display '- Classe "' VSTRING(1:TALLY) '"' 47 IMP 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 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 IMP 60 000217 perform Lecture-Noms-Sections 311 000218 PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 8 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 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 IMP 000223 1 display '- Section "' VSTRING(1:TALLY) '"' 47 IMP IMP 000224 end-perform 000225 000226 * Lecture des informations sur les unités de compilation 000227 move 100 to tally IMP IMP 000228 compute W-DYNA-SIZE = length of CUIH 15 IMP 109 000229 + (length of CUI_ENTRY + 256) * tally IMP 119 IMP 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 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 PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 9 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 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 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 PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 10 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 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 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 IMP 000358 goback 000359 . 000360 Test-code-retour. 000361 evaluate RETURN-CODE IMP 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 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-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 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-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 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. . . . . . . . . . 357 M357 361 361 0 TALLY. . . . . . . . . . . . . 179 M179 181 181 191 191 197 M197 198 198 204 M204 216 216 222 M222 223 223 227 M227 229 229 237 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-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 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-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 14 Defined Cross-reference of programs References 2 INFOPROG . . . . . . . . . . . 379 PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 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 X = Unallocated Source Hierarchy and Base Displacement Asmblr Data Data Def LineID Data Name Locator Structure Definition Data Type Attributes 2 PROGRAM-ID INFOPROG----------------------------------------------------------------------------------------------------* 0 1 SQL---PLIST . . . . . . . . . . . . . . . . . DS 0CL64 Group G 0 2 SQL---PLIST-LEN . . . . . . . . . . . . . . 000000000 DS 2C Binary G 0 2 SQL---FLAGS . . . . . . . . . . . . . . . . 000000002 DS 2C Binary G 0 2 SQL---CALLTYPE. . . . . . . . . . . . . . . 000000004 DS 2C Binary G 0 2 SQL---PROG-NAME . . . . . . . . . . . . . . 000000006 DS 8C Display G 0 2 SQL---TIMESTAMP-1 . . . . . . . . . . . . . 00000000E DS 4C Binary G 0 2 SQL---TIMESTAMP-2 . . . . . . . . . . . . . 000000012 DS 4C Binary G 0 2 SQL---SECTION . . . . . . . . . . . . . . . 000000016 DS 2C Binary G 0 2 SQL---CODEPTR . . . . . . . . . . . . . . . 000000018 DS 4C Pointer G 0 2 SQL---VPARMPTR. . . . . . . . . . . . . . . 00000001C DS 4C Pointer G 0 2 SQL---APARMPTR. . . . . . . . . . . . . . . 000000020 DS 4C Pointer G 0 2 SQL---CCSID . . . . . . . . . . . . . . . . 000000024 DS 2C Binary G 0 2 SQL---STMT-TYPE . . . . . . . . . . . . . . 000000026 DS 2C Binary G 0 2 SQL---STMT-NUM. . . . . . . . . . . . . . . 000000028 DS 4C Binary G 0 2 SQL---PLIST-FLG . . . . . . . . . . . . . . 00000002C DS 2C Binary G 0 2 FILLER. . . . . . . . . . . . . . . . . . . 00000002E DS 18C Display G 0 1 SQL---AVAR-LIST . . . . . . . . . . . . . . . DS 0CL60 Grp-VarLen G,OG 0 2 SQL---AVAR-PRE-SQLDAID. . . . . . . . . . . 000000000 DS 8C Display G 0 2 SQL---AVAR-PRE-SQLDABC. . . . . . . . . . . 000000008 DS 4C Binary G 0 2 SQL---AVAR-PRE-SQLN . . . . . . . . . . . . 00000000C DS 2C Binary G,D 0 2 SQL---AVAR-PRE-SQLLD. . . . . . . . . . . . 00000000E DS 2C Binary G 0 2 SQL---AVAR-PRE-SQLVAR . . . . . . . . . . . 000000010 DS 0CL44 Group G,O 0 3 SQL---AVAR-VELT . . . . . . . . . . . . . 000000010 DS 0CL44 Group G 0 4 SQL---AVAR-TYPE . . . . . . . . . . . . 000000010 DS 2C Binary G 0 4 SQL---AVAR-LEN. . . . . . . . . . . . . 000000012 DS 2C Binary G 0 4 SQL---AVAR-ADDR . . . . . . . . . . . . 000000014 DS 4C Pointer G 0 4 SQL---AVAR-IND. . . . . . . . . . . . . 000000018 DS 4C Pointer G 0 4 SQL---AVAR-NAME . . . . . . . . . . . . 00000001C DS 0CL32 Group G 0 5 SQL---AVAR-NAME-LEN . . . . . . . . . 00000001C DS 2C Binary G 0 5 SQL---AVAR-NAME-DATA. . . . . . . . . 00000001E DS 30C Display G 0 5 SQL---AVAR-NAME-REDEF . . . . . . . . 00000001E DS 0CL30 Group G,R 0 6 FILLER. . . . . . . . . . . . . . . 00000001E DS 4C Binary G 0 6 SQL---AVAR-NAME-R1. . . . . . . . . 000000022 DS 2C Binary G 0 6 SQL---AVAR-NAME-R2. . . . . . . . . 000000024 DS 2C Binary G 0 6 FILLER. . . . . . . . . . . . . . . 000000026 DS 22C Display G 0 3 SQL---AVAR-VXELT. . . . . . . . . . . . . 000000010 DS 0CL44 Group G,R 0 4 SQL---AVAR-LONGL. . . . . . . . . . . . 000000010 DS 4C Binary G 0 4 SQL---AVAR-RESERVED . . . . . . . . . . 000000014 DS 4C Binary G 0 4 SQL---AVAR-DATAL. . . . . . . . . . . . 000000018 DS 4C Pointer G 0 4 SQL---AVAR-XNAME. . . . . . . . . . . . 00000001C DS 0CL32 Group G 0 5 SQL---AVAR-XNAME-LEN. . . . . . . . . 00000001C DS 2C Binary G 0 5 SQL---AVAR-XNAME-DATA . . . . . . . . 00000001E DS 30C Display G 0 1 SQL---PVAR-LIST . . . . . . . . . . . . . . . DS 0CL60 Grp-VarLen G,OG 0 2 SQL---PVAR-PRE-SQLDAID. . . . . . . . . . . 000000000 DS 8C Display G 0 2 SQL---PVAR-PRE-SQLDABC. . . . . . . . . . . 000000008 DS 4C Binary G 0 2 SQL---PVAR-PRE-SQLN . . . . . . . . . . . . 00000000C DS 2C Binary G,D PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 16 Source Hierarchy and Base Displacement Asmblr Data Data Def LineID Data Name Locator Structure Definition Data Type Attributes 0 2 SQL---PVAR-PRE-SQLLD. . . . . . . . . . . . 00000000E DS 2C Binary G 0 2 SQL---PVAR-PRE-SQLVAR . . . . . . . . . . . 000000010 DS 0CL44 Group G,O 0 3 SQL---PVAR-VELT . . . . . . . . . . . . . 000000010 DS 0CL44 Group G 0 4 SQL---PVAR-TYPE . . . . . . . . . . . . 000000010 DS 2C Binary G 0 4 SQL---PVAR-LEN. . . . . . . . . . . . . 000000012 DS 2C Binary G 0 4 SQL---PVAR-ADDR . . . . . . . . . . . . 000000014 DS 4C Pointer G 0 4 SQL---PVAR-IND. . . . . . . . . . . . . 000000018 DS 4C Pointer G 0 4 SQL---PVAR-NAME . . . . . . . . . . . . 00000001C DS 0CL32 Group G 0 5 SQL---PVAR-NAME-LEN . . . . . . . . . 00000001C DS 2C Binary G 0 5 SQL---PVAR-NAME-DATA. . . . . . . . . 00000001E DS 30C Display G 0 5 SQL---PVAR-NAME-REDEF . . . . . . . . 00000001E DS 0CL30 Group G,R 0 6 FILLER. . . . . . . . . . . . . . . 00000001E DS 4C Binary G 0 6 SQL---PVAR-NAME-R1. . . . . . . . . 000000022 DS 2C Binary G 0 6 SQL---PVAR-NAME-R2. . . . . . . . . 000000024 DS 2C Binary G 0 6 FILLER. . . . . . . . . . . . . . . 000000026 DS 22C Display G 0 3 SQL---PVAR-VXELT. . . . . . . . . . . . . 000000010 DS 0CL44 Group G,R 0 4 SQL---PVAR-LONGL. . . . . . . . . . . . 000000010 DS 4C Binary G 0 4 SQL---PVAR-RESERVED . . . . . . . . . . 000000014 DS 4C Binary G 0 4 SQL---PVAR-DATAL. . . . . . . . . . . . 000000018 DS 4C Pointer G 0 4 SQL---PVAR-XNAME. . . . . . . . . . . . 00000001C DS 0CL32 Group G 0 5 SQL---PVAR-XNAME-LEN. . . . . . . . . 00000001C DS 2C Binary G 0 5 SQL---PVAR-XNAME-DATA . . . . . . . . 00000001E DS 30C Display G 0 1 SQL---PROCNAME. . . . . . . . . . . . . . . . DS 386C Display G 0 1 SQL---CURSORNAME. . . . . . . . . . . . . . . DS 128C Display G 0 1 SQL---TEMP. . . . . . . . . . . . . . . . . . DS 128C Display G 0 1 DSN---NROWS . . . . . . . . . . . . . . . . . DS 4C Binary G 0 1 DSN---NTYPE . . . . . . . . . . . . . . . . . DS 2C Binary G 0 1 DSN---NLEN. . . . . . . . . . . . . . . . . . DS 2C Binary G 0 1 SQL---SCRVALD . . . . . . . . . . . . . . . . DS 10P Packed-Dec G 0 1 SQL---SCPPD . . . . . . . . . . . . . . . . . DS 4096C Display G 0 1 SQL---SCPPI . . . . . . . . . . . . . . . . . DS 4C Binary G 0 1 SQL-INIT-FLAG . . . . . . . . . . . . . . . . DS 2C Binary X,G 0 1 SQL-FILE-READ . . . . . . . . . . . . . . . . DS 4C Binary X,G 0 1 SQL-FILE-CREATE . . . . . . . . . . . . . . . DS 4C Binary X,G 0 1 SQL-FILE-OVERWRITE. . . . . . . . . . . . . . DS 4C Binary G 0 1 SQL-FILE-APPEND . . . . . . . . . . . . . . . DS 4C Binary G 0 1 SQL---VERS. . . . . . . . . . . . . . . . . . DS 0CL68 Group G 0 2 SQL---VERS-PREF . . . . . . . . . . . . . . 000000000 DS 4C Display G 0 2 SQL---VERS-DATA . . . . . . . . . . . . . . 000000004 DS 64C Display G 6 1 CARTE . . . . . . . . . . . . . . . . . . . . DS 0CL80 Group 7 2 LOADMODULE. . . . . . . . . . . . . . . . . 000000000 DS 8C Display 8 2 FILLER. . . . . . . . . . . . . . . . . . . 000000008 DS 72C Display 11 1 W-DYNA-CEEGTST. . . . . . . . . . . . . . . . DS 8C Display 12 1 W-DYNA-CEECZST. . . . . . . . . . . . . . . . DS 8C Display X 13 1 W-DYNA-CEEFRST. . . . . . . . . . . . . . . . DS 8C Display X 14 1 W-DYNA-HEAPID . . . . . . . . . . . . . . . . DS 4C Binary 15 1 W-DYNA-SIZE . . . . . . . . . . . . . . . . . DS 4C Binary 16 1 W-DYNA-ADDR . . . . . . . . . . . . . . . . . DS 4C Pointer 19 1 IEWBFDAT. . . . . . . . . . . . . . . . . . . DS 8C Display 20 1 RC-FUNCTION . . . . . . . . . . . . . . . . . DS 0CL4 Group 21 2 RC-CODE . . . . . . . . . . . . . . . . . . 000000000 DS 2C Display 22 2 FILLER. . . . . . . . . . . . . . . . . . . 000000002 DS 2C Display 23 1 RC-LAST . . . . . . . . . . . . . . . . . . . DS 2C Display 24 1 RC-RETURN . . . . . . . . . . . . . . . . . . DS 4C Binary 25 1 RC-REASON . . . . . . . . . . . . . . . . . . DS 4C Binary 26 1 RC-MTOKEN . . . . . . . . . . . . . . . . . . DS 4C Binary PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 17 Source Hierarchy and Base Displacement Asmblr Data Data Def LineID Data Name Locator Structure Definition Data Type Attributes 27 1 RC-DDNAME . . . . . . . . . . . . . . . . . . DS 0CL10 Group 28 2 FILLER. . . . . . . . . . . . . . . . . . . 000000000 DS 2C Binary 29 2 FILLER. . . . . . . . . . . . . . . . . . . 000000002 DS 8C Display 30 1 RC-MEMBER . . . . . . . . . . . . . . . . . . DS 0CL10 Group 31 2 RC-MEMBER-LTH . . . . . . . . . . . . . . . 000000000 DS 2C Binary 32 2 RC-MEMBER-NAME. . . . . . . . . . . . . . . 000000002 DS 8C Display 35 1 RC-GN-MTYPE . . . . . . . . . . . . . . . . . DS 1C Display 36 1 RC-GN-CURSOR. . . . . . . . . . . . . . . . . DS 4C Binary 37 1 RC-GN-COUNT . . . . . . . . . . . . . . . . . DS 4C Binary 40 1 RC-GC-CULIST. . . . . . . . . . . . . . . . . DS 0CL4 Group 41 2 RC-GC-NB. . . . . . . . . . . . . . . . . . 000000000 DS 4C Binary 42 1 RC-GC-CURSOR. . . . . . . . . . . . . . . . . DS 4C Binary 43 1 RC-GC-COUNT . . . . . . . . . . . . . . . . . DS 4C Binary 47 1 VSTRING . . . . . . . . . . . . . . . . . . . BLL=00001 DS 0CL128 Group 48 2 FILLER. . . . . . . . . . . . . . . . . . . BLL=00001 000000000 DS 1C Display O 51 1 NAME-LIST-BUFFER. . . . . . . . . . . . . . . BLL=00002 DS 0CL2432 Group 52 2 BNLH. . . . . . . . . . . . . . . . . . . . BLL=00002 000000000 DS 0CL32 Group 53 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00002 000000000 DS 8C Display 54 88 BNLH_BUFFER_ID. . . . . . . . . . . . . . BLL=00002 55 3 BNLH_BUFFER_LENG. . . . . . . . . . . . . BLL=00002 000000008 DS 4C Binary 56 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00002 00000000C DS 1C Display 57 88 BNLH_VERSION. . . . . . . . . . . . . . . BLL=00002 58 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00002 00000000D DS 3C Display 59 3 BNLH_ENTRY_LENG . . . . . . . . . . . . . BLL=00002 000000010 DS 4C Binary 60 3 BNLH_ENTRY_COUNT. . . . . . . . . . . . . BLL=00002 000000014 DS 4C Binary 61 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00002 000000018 DS 8C Display 62 2 BNL_ENTRY . . . . . . . . . . . . . . . . . BLL=00002 000000020 DS 0CL24 Group O 63 XBNL. . . . . . . . . . . . . . . . . . . . Index-Name 64 3 BNL_CLS_LENGTH. . . . . . . . . . . . . . BLL=00002 000000020 DS 4C Binary 65 3 BNL_SECT_CU . . . . . . . . . . . . . . . BLL=00002 000000020 DS 4C Binary R 67 3 BNL_BIND_FLAGS. . . . . . . . . . . . . . BLL=00002 000000024 DS 1C Display 75 3 BNL_LOAD_FLAGS. . . . . . . . . . . . . . BLL=00002 000000025 DS 1C Display 86 3 BNL_NAME_CHARS. . . . . . . . . . . . . . BLL=00002 000000026 DS 2C Binary 87 3 BNL_NAME_PTR. . . . . . . . . . . . . . . BLL=00002 000000028 DS 4C Pointer 88 3 BNL_ELEM_COUNT. . . . . . . . . . . . . . BLL=00002 00000002C DS 4C Binary 89 3 BNL_SEGM_ID . . . . . . . . . . . . . . . BLL=00002 000000030 DS 2C Binary 90 3 BNL_ATTR. . . . . . . . . . . . . . . . . BLL=00002 000000032 DS 1C Display 91 3 BNL_ALIGN . . . . . . . . . . . . . . . . BLL=00002 000000032 DS 1C Display R 96 3 BNL_RMODE . . . . . . . . . . . . . . . . BLL=00002 000000032 DS 1C Display R 101 3 BNL_NAMESPACE . . . . . . . . . . . . . . BLL=00002 000000033 DS 1C Display 105 3 BNL_SEGM_OFF. . . . . . . . . . . . . . . BLL=00002 000000034 DS 4C Binary 108 1 COMPILE-UNIT-BUFFER . . . . . . . . . . . . . BLL=00003 DS 0CL8032 Group 109 2 CUIH. . . . . . . . . . . . . . . . . . . . BLL=00003 000000000 DS 0CL32 Group 110 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000000 DS 8C Display 111 88 CUIH_BUFFER_ID. . . . . . . . . . . . . . BLL=00003 112 3 CUIH_BUFFER_LENG. . . . . . . . . . . . . BLL=00003 000000008 DS 4C Binary 113 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 00000000C DS 1C Display 114 88 CUIH_VERSION. . . . . . . . . . . . . . . BLL=00003 115 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 00000000D DS 3C Display 116 3 CUIH_ENTRY_LENG . . . . . . . . . . . . . BLL=00003 000000010 DS 4C Binary 117 3 CUIH_ENTRY_COUNT. . . . . . . . . . . . . BLL=00003 000000014 DS 4C Binary 118 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000018 DS 8C Display 119 2 CUI_ENTRY . . . . . . . . . . . . . . . . . BLL=00003 000000020 DS 0CL80 Group O 120 XCUI. . . . . . . . . . . . . . . . . . . . Index-Name 121 3 CUI_CU. . . . . . . . . . . . . . . . . . BLL=00003 000000020 DS 4C Binary 122 3 CUI_SOURCE_CU . . . . . . . . . . . . . . BLL=00003 000000024 DS 4C Binary PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 18 Source Hierarchy and Base Displacement Asmblr Data Data Def LineID Data Name Locator Structure Definition Data Type Attributes 123 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000028 DS 2C Display 124 3 CUI_MEMBER_LEN. . . . . . . . . . . . . . BLL=00003 00000002A DS 2C Binary 125 3 CUI_MEMBER_PTR. . . . . . . . . . . . . . BLL=00003 00000002C DS 4C Pointer 126 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000030 DS 2C Display 127 3 CUI_PATH_LEN. . . . . . . . . . . . . . . BLL=00003 000000032 DS 2C Binary 128 3 CUI_PATH_PTR. . . . . . . . . . . . . . . BLL=00003 000000034 DS 4C Pointer 129 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000038 DS 2C Display 130 3 CUI_DSNAME_LEN. . . . . . . . . . . . . . BLL=00003 00000003A DS 2C Binary 131 3 CUI_DSNAME_PTR. . . . . . . . . . . . . . BLL=00003 00000003C DS 4C Pointer 132 3 CUI_DDNAME. . . . . . . . . . . . . . . . BLL=00003 000000040 DS 8C Display 133 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000048 DS 2C Display 134 3 CUI_CONCAT. . . . . . . . . . . . . . . . BLL=00003 00000004A DS 1C Display 135 3 CUI_TYPE. . . . . . . . . . . . . . . . . BLL=00003 00000004B DS 1C Display 155 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 00000004C DS 4C Display 156 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000050 DS 2C Display 157 3 CUI_C_MEMBER_LEN. . . . . . . . . . . . . BLL=00003 000000052 DS 2C Binary 158 3 CUI_C_MEMBER_PTR. . . . . . . . . . . . . BLL=00003 000000054 DS 4C Pointer 159 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000058 DS 2C Display 160 3 CUI_C_PATH_LEN. . . . . . . . . . . . . . BLL=00003 00000005A DS 2C Binary 161 3 CUI_C_PATH_PTR. . . . . . . . . . . . . . BLL=00003 00000005C DS 4C Pointer 162 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000060 DS 2C Display 163 3 CUI_C_DSNAME_LEN. . . . . . . . . . . . . BLL=00003 000000062 DS 2C Binary 164 3 CUI_C_DSNAME_PTR. . . . . . . . . . . . . BLL=00003 000000064 DS 4C Pointer 165 3 FILLER. . . . . . . . . . . . . . . . . . BLL=00003 000000068 DS 3C Display 166 3 CUI_C_TYPE. . . . . . . . . . . . . . . . BLL=00003 00000006B DS 1C Display 167 3 CUI_C_SEQ . . . . . . . . . . . . . . . . BLL=00003 00000006C DS 4C Binary PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 19 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. IGYSC2251-W **RULES(NOLAXPERF)** Compiler option "NUMPROC(NOPFD)" was in effect and could produce a less efficient program compared to option "NUMPROC(PFD)". Compiler option "NUMPROC(PFD)" could result in better run-time performance. Please note: Investigate side effects before making changes to compiler options. IGYSC2256-W **RULES(NOLAXPERF)** Compiler option "TRUNC(BIN)" was in effect and could produce a less efficient program compared to option "TRUNC(OPT)". Compiler option "TRUNC(OPT)" could result in better run-time performance. Please note: Investigate side effects before making changes to compiler options. 6 IGYDS1348-W **RULES(NOEVENPACK)** Data item "SQL---SCRVALD" was defined with an even number of digits, but "PACKED-DECIMAL" data items should always be defined with an odd number of digit positions. 374 IGYSC0209-W DSNH053I DSNHPSRV NO SQL STATEMENTS WERE FOUND Messages Total Informational Warning Error Severe Terminating Printed: 7 1 6 * Statistics for COBOL program INFOPROG: * Source records = 484 * Data Division statements = 155 * Procedure Division statements = 98 * Generated COBOL statements = 0 * Program complexity factor = 101 End of compilation 1, program INFOPROG, highest severity 4. PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 20 000002: Program-id. InfoProg. 000000 000002 PROC INFOPROG 000000 47F0 F014 000002 BC R15,20(,R15) £ Skip over constant area 000004 01C3 C5C5 000002 DC X'01C3C5C5' £ Eyecatcher: CEE 000008 0000 0298 000002 DC X'00000298' £ Stack Size 00000C 0000 1170 000002 DC X'00001170' £ Offset to PPA1 000010 47F0 F001 000002 BC R15,1(,R15) £ Wrong Entry Point: cause exception 000014 000002 L0354: EQU * 000014 90EC D00C 000002 STM R14,R12,12(,R13) £ Save GPRs Used 000018 41A0 F024 000002 LA R10,36(,R15) £ Args for boot strap routine 00001C 98EF F034 000002 LM R14,R15,52(,R15) £ 000020 47F0 F020 000002 BC R15,32(,R15) £ Branch to boot strap routine 000024 000002 L0356: EQU * £ Boot Strap Info Block 000024 0000 0000 000002 DC X'00000000' £ address of entry label 000028 0000 0000 000002 DC X'00000000' £ WSA24 allocation size 00002C 0000 125E 000002 DC X'0000125E' £ address of Saved Option String 000030 0000 11A8 000002 DC X'000011A8' £ address of entry point name 000034 0000 005C 000002 DC X'0000005C' £ A(Label L0355) 000038 0000 0000 000002 DC X'00000000' £ address of boot strap routine(IGZXBST1) 00003C 000002 L0357: EQU * £ CEE Parameter Block 00003C 0000 0024 000002 DC X'00000024' £ address of infoBlockLabel 000040 0000 1274 000002 DC X'00001274' £ A(PARMCEE-CEEEPARMBlock) 000044 0000 0C18 000002 DC X'00000C18' £ A(sinit) 000048 0000 0000 000002 DC X'00000000' £ reserved 00004C 000002 L0352: EQU * £ Handle growing stack 00004C 58F0 C31C 000002 L R15,796(,R12) £ Load CEECAAOGETS 000050 184E 000002 LR R4,R14 £ Required NAB 000052 05EF 000002 BALR R14,R15 £ Extend Stack 000054 0000 0000 000002 DC X'00000000' £ Argument list size = 0 000058 A7F4 0009 000002 J L0353 £ Branch back 00005C 000002 àMAINENT DS 0H £ PRIMARY ENTRY POINT ADDRESS 00005C 000002 L0355: EQU * £ User Code Entry Point 00005C 18EF 000002 LR R14,R15 £ Load NAB 00005E 4100 E298 000002 LA R0,664(,R14) £ New NAB Address 000062 5500 C314 000002 CL R0,788(,R12) £ Exceed current storage segment? 000066 A724 FFF3 000002 JH L0352 £ Yes: branch to recovery code 00006A 000002 L0353: EQU * £ Stack now has sufficient room 00006A 5000 E04C 000002 ST R0,76(,R14) £ Update NAB 00006E C001 0011 0301 000002 LGFI R0,X'00110301' £ load COBOL Language Word 000074 5000 E000 000002 ST R0,0(,R14) £ Save Language Word 000078 50D0 E004 000002 ST R13,4(,R14) £ Save Back Chain 00007C 18DE 000002 LR R13,R14 £ Set new DSA 00007E 4100 D110 000002 LA R0,272(,R13) £ Address of COBDSACB 000082 5000 D074 000002 ST R0,116(,R13) £ Saved in member slot1 000086 E54C D070 0000 000002 MVHI 112(,R13),X'0000' £ zero member slot0 00008C 5060 D060 000002 ST R6,96(,R13) £ set member slot3 000090 5070 D068 000002 ST R7,104(,R13) £ set member slot2 000094 6080 D090 000002 STD FP8,144(,R13) £ 000098 6090 D098 000002 STD FP9,152(,R13) £ 00009C 60A0 D0A0 000002 STD FP10,160(,R13) £ 0000A0 60B0 D0A8 000002 STD FP11,168(,R13) £ 0000A4 60C0 D0B0 000002 STD FP12,176(,R13) £ 0000A8 60D0 D0B8 000002 STD FP13,184(,R13) £ 0000AC 60E0 D0C0 000002 STD FP14,192(,R13) £ 0000B0 60F0 D0C8 000002 STD FP15,200(,R13) £ 0000B4 EB1F D0D0 0026 000002 STMH R1,R15,208(,R13) £ 0000BA 000002 L0359: EQU * 0000BA 50C0 D080 000002 ST R12,128(,R13) £ PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 21 0000BE C030 0000 06A5 000002 LARL R3,$CONSTANT_AREA 0000C4 5810 C1F4 000002 L R1,500(,R12) £ _CRENT 0000C8 5820 3014 000002 L R2,20(,R3) £ _QCON 0000CC 4122 1000 000002 LA R2,0(R2,R1) £ 0000D0 1882 000002 LR R8,R2 0000D2 5020 D1F0 000002 ST R2,496(,R13) £ _CACHED_$STATIC 0000D6 D743 D110 D110 000002 XC 272(68,R13),272(R13) £ COBDSACB COBDSACB 0000DC E54C D110 0002 000002 MVHI 272(,R13),X'0002' £ DSALVL 0000E2 E300 2520 0171 000002 LAY R0,5408(,R2) £ 0000E8 5000 D134 000002 ST R0,308(,R13) £ DSAàGPCB 0000EC E310 24FC 0171 000002 LAY R1,5372(,R2) £ 0000F2 D223 D158 1000 000002 MVC 344(36,R13),0(R1) £ VN_cell VNI_cell 0000F8 E548 D180 FFFF 000002 MVGHI 384(,R13),X'FFFF' £ ODOsv_cells 0000FE EB81 2564 0151 000002 TMY 5476(,R2),X'81' £ IPCB_Status 000104 A714 0011 000002 JO L0020 000108 5000 D188 000002 ST R0,392(,R13) £ 00010C 4100 D110 000002 LA R0,272(,R13) £ COBDSACB 000110 5000 D18C 000002 ST R0,396(,R13) £ 000114 4110 D188 000002 LA R1,392(,R13) £ _ArgumentList 000118 58F0 3148 000002 L R15,328(,R3) £ _ACON 00011C 0DEF 000002 BASR R14,R15 £ Call "IGZXPRS" 00011E 1812 000002 LR R1,R2 000120 E3F0 1580 0150 000002 STY R15,5504(,R1) £ WSA24-BASE-ADDRESS 000126 000002 L0020: EQU * 000126 E300 8560 0158 000002 LY R0,5472(,R8) £ IPCB_NumEnts 00012C A70A 0001 000002 AHI R0,0x1 000130 E300 8560 0150 000002 STY R0,5472(,R8) £ IPCB_NumEnts 000136 EC08 000D 017E 000002 CIJ R0,L0021,1,EQ(mask=0x8), 00013C D223 D188 3160 000002 MVC 392(36,R13),352(R3) £ 000142 4110 D188 000002 LA R1,392(,R13) £ _ArgumentList 000146 58F0 314C 000002 L R15,332(,R3) £ _ACON 00014A 58C0 D080 000002 L R12,128(,R13) £ _àCAA 00014E 0DEF 000002 BASR R14,R15 £ Call "IGZXCMSG" 000150 000002 L0021: EQU * 000150 E300 8564 0158 000002 LY R0,5476(,R8) £ IPCB_Status 000156 EB80 8564 0151 000002 TMY 5476(,R8),X'80' £ IPCB_Status 00015C A714 0069 000002 JO L0022 000160 E544 8020 0000 000000 MVHHI 32(,R8),X'0000' £ RETURN-CODE 000166 E544 8028 0000 000000 MVHHI 40(,R8),X'0000' £ SORT-RETURN 00016C E54C 8030 0000 000000 MVHI 48(,R8),X'0000' £ TALLY 000172 4110 800C 000000 LA R1,12(,R8) £ 000176 5010 800C 000000 ST R1,12(,R8) £ BLT_1 00017A 4110 8010 000000 LA R1,16(,R8) £ 00017E 5010 8010 000000 ST R1,16(,R8) £ BLT_2 000182 4110 8014 000000 LA R1,20(,R8) £ 000186 5010 8014 000000 ST R1,20(,R8) £ BLT_3 00018A D207 803E 3090 000000 MVC 62(8,R8),144(R3) £ SQL---PROG-NAME _$CONSTANT_AREA+144 000190 E544 8064 0000 000000 MVHHI 100(,R8),X'0000' £ SQL---PLIST-FLG 000196 D711 8066 8066 000000 XC 102(18,R8),102(R8) £ FILLER FILLER 00019C C0FE E2D8 D3C4 000000 LLIHF R15,X'E2D8D3C4' 0001A2 C0F9 C140 4040 000000 IILF R15,X'C1404040' 0001A8 E3F0 8078 0024 000000 STG R15,120(,R8) £ SQL---AVAR-PRE-SQLDAID 0001AE D71D 8096 8096 000000 XC 150(30,R8),150(R8) £ SQL---AVAR-NAME-DATA SQL---AVAR-NAME-DATA 0001B4 E310 83A8 0171 000002 LAY R1,5032(,R8) £ 0001BA E3F0 80B8 0024 000000 STG R15,184(,R8) £ SQL---PVAR-PRE-SQLDAID 0001C0 D71D 80D6 80D6 000000 XC 214(30,R8),214(R8) £ SQL---PVAR-NAME-DATA SQL---PVAR-NAME-DATA 0001C6 E54C 1000 0001 000000 MVHI 0(,R1),X'0001' £ SQL---SCPPI 0001CC E3F0 83B0 0171 000000 LAY R15,5040(,R8) £ PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 22 0001D2 E54C F000 0010 000000 MVHI 0(,R15),X'0010' £ SQL-FILE-OVERWRITE 0001D8 E3F0 83B8 0171 000000 LAY R15,5048(,R8) £ 0001DE E54C F000 0020 000000 MVHI 0(,R15),X'0020' £ SQL-FILE-APPEND 0001E4 E544 1018 E5C5 000000 MVHHI 24(,R1),X'E5C5' £ SQL---VERS-PREF 0001EA E544 101A D94B 000000 MVHHI 26(,R1),X'D94B' £ SQL---VERS-PREF 0001F0 D219 101C 30BC 000000 MVC 28(26,R1),188(R3) £ SQL---VERS-DATA _$CONSTANT_AREA+188 0001F6 9240 1036 000000 MVI 54(,R1),X'40' £ SQL---VERS-DATA 0001FA D224 1037 1036 000000 MVC 55(37,R1),54(R1) £ SQL---VERS-DATA SQL---VERS-DATA 000200 D20B 10B0 3306 000000 MVC 176(12,R1),774(R3) £ _$CONSTANT_AREA+774 000206 D207 10D0 30E0 000000 MVC 208(8,R1),224(R3) £ IEWBFDAT _$CONSTANT_AREA+224 00020C E544 10DA 0001 000000 MVHHI 218(,R1),X'0001' £ FILLER 000212 D209 1100 331E 000000 MVC 256(10,R1),798(R3) £ _$CONSTANT_AREA+798 000218 E310 84E0 0171 000000 LAY R1,5344(,R8) £ 00021E E54C 1000 0000 000000 MVHI 0(,R1),X'0000' £ RC-GC-NB 000224 A50A 8100 000002 OILH R0,0x8100 000228 E300 8564 0150 000002 STY R0,5476(,R8) £ IPCB_Status 00022E 000002 L0022: EQU * 00022E 000002 USER-ENTRY: EQU * 00022E 000002 SNAPSHOT ENTRY 00022E 000169 MAIN: EQU * 00022E 000169 SNAPSHOT PATHLABEL 000170: accept CARTE 00022E 000170 SNAPSHOT STMT 00022E D20B D188 3312 000170 MVC 392(12,R13),786(R3) £ _$CONSTANT_AREA+786 000234 E300 8408 0171 000170 LAY R0,5128(,R8) £ 00023A 5000 D18C 000170 ST R0,396(,R13) £ 00023E 4110 D188 000170 LA R1,392(,R13) £ _ArgumentList 000242 58F0 3150 000170 L R15,336(,R3) £ _ACON 000246 58C0 D080 000170 L R12,128(,R13) £ _àCAA 00024A 0DEF 000170 BASR R14,R15 £ Call "IGZXACP" 000171: display 'Programme "' LOADMODULE '"' 00024C 000171 SNAPSHOT STMT 00024C D237 D188 3184 000171 MVC 392(56,R13),388(R3) £ 000252 E300 8408 0171 000171 LAY R0,5128(,R8) £ 000258 5000 D1A0 000171 ST R0,416(,R13) £ 00025C 4110 D188 000171 LA R1,392(,R13) £ _ArgumentList 000260 58F0 3154 000171 L R15,340(,R3) £ _ACON 000264 58C0 D080 000171 L R12,128(,R13) £ _àCAA 000268 0DEF 000171 BASR R14,R15 £ Call "IGZXDSP" 000172: move 8 to RC-MEMBER-LTH 00026A 000172 SNAPSHOT STMT 00026A E310 84B8 0171 000172 LAY R1,5304(,R8) £ 000270 E544 1000 0008 000172 MVHHI 0(,R1),X'0008' £ RC-MEMBER-LTH 000173: move LOADMODULE to RC-MEMBER-NAME 000276 000173 SNAPSHOT STMT 000276 E310 8408 0171 000173 LAY R1,5128(,R8) £ 00027C D207 10B2 1000 000173 MVC 178(8,R1),0(R1) £ RC-MEMBER-NAME LOADMODULE 000175: perform Ouverture-Session 000282 000175 SNAPSHOT STMT 000282 5800 D158 000175 L R0,344(,R13) £ VN_cell 000286 5000 D1F4 000175 ST R0,500(,R13) £ PfmSv_Cell 00028A C000 0000 05BF 000175 LARL R0,$CONSTANT_AREA 000290 5000 D158 000175 ST R0,344(,R13) £ VN_cell 000294 A7F4 0200 000175 J OUVERTURE-SESSION 000260: perform test-code-retour 000298 5800 D218 000260 L R0,536(,R13) £ PfmSv_Cell 00029C 5000 D170 000260 ST R0,368(,R13) £ VN_cell 0002A0 000260 SNAPSHOT PERFORM_CALL_END PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 23 0002A0 5800 D1F4 000175 L R0,500(,R13) £ PfmSv_Cell 0002A4 5000 D158 000175 ST R0,344(,R13) £ VN_cell 0002A8 1800 000175 SNAPSHOT PERFORM_CALL_END 000179: move 100 to tally 0002AA 000179 SNAPSHOT STMT 0002AA E54C 8030 0064 000179 MVHI 48(,R8),X'0064' £ TALLY 000180: compute W-DYNA-SIZE = length of BNLH 0002B0 000180 SNAPSHOT STMT 0002B0 C0FE 0000 5AF3 000180 LLIHF R15,X'00005AF3' 0002B6 C0F9 107A 4000 000180 IILF R15,X'107A4000' 0002BC E300 8030 0016 000180 LLGF R0,48(,R8) £ TALLY 0002C2 A70D 0118 000180 MGHI R0,0x118 0002C6 A70B 0020 000180 AGHI R0,0x20 0002CA B900 0010 000180 LPGR R1,R0 0002CE B921 001F 000180 CLGR R1,R15 0002D2 A744 0006 000180 JL L0097 0002D6 B904 0010 000180 LGR R1,R0 0002DA B90D 000F 000180 DSGR R0,R15 0002DE 000180 L0097: EQU * 0002DE E300 8468 0150 000180 STY R0,5224(,R8) £ W-DYNA-SIZE 000182: perform Allocation-Memoire 0002E4 000182 SNAPSHOT STMT 0002E4 5800 D15C 000182 L R0,348(,R13) £ VN_cell 0002E8 5000 D1F8 000182 ST R0,504(,R13) £ PfmSv_Cell 0002EC C000 0000 0007 000182 LARL R0,$CONSTANT_AREA 0002F2 5000 D15C 000182 ST R0,348(,R13) £ VN_cell 0002F6 A7F4 043C 000182 J ALLOCATION-MEMOIRE 0002FA 5800 D1F8 000182 L R0,504(,R13) £ PfmSv_Cell 0002FE 5000 D15C 000182 ST R0,348(,R13) £ VN_cell 000302 1800 000182 SNAPSHOT PERFORM_CALL_END 000183: set address of NAME-LIST-BUFFER to W-DYNA-ADDR 000304 000183 SNAPSHOT STMT 000304 E300 8470 0158 000183 LY R0,5232(,R8) £ W-DYNA-ADDR 00030A A506 7FFF 000183 NILH R0,0x7fff 00030E 5000 8004 000183 ST R0,4(,R8) £ BLL_2 000184: move all x'00' to BNLH 000312 000184 SNAPSHOT STMT 000312 5810 8004 000184 L R1,4(,R8) £ BLL_2 000316 D71F 1000 1000 000184 XC 0(32,R1),0(R1) £ BLL_2 BNLH 000186: set BNLH_BUFFER_ID to true 00031C 000186 SNAPSHOT STMT 00031C 5810 8004 000186 L R1,4(,R8) £ BLL_2 000320 D207 1000 3028 000186 MVC 0(8,R1),40(R3) £ FILLER _$CONSTANT_AREA+40 000188: move W-DYNA-SIZE to BNLH_BUFFER_LENG 000326 000188 SNAPSHOT STMT 000326 E300 8468 0158 000188 LY R0,5224(,R8) £ W-DYNA-SIZE 00032C 5810 8004 000188 L R1,4(,R8) £ BLL_2 000330 5000 1008 000188 ST R0,8(,R1) £ BNLH_BUFFER_LENG 000189: set BNLH_VERSION to true 000334 000189 SNAPSHOT STMT 000334 5810 8004 000189 L R1,4(,R8) £ BLL_2 000338 9207 100C 000189 MVI 12(,R1),X'07' £ FILLER 000190: move length of BNL_ENTRY to BNLH_ENTRY_LENG 00033C 000190 SNAPSHOT STMT 00033C 5810 8004 000190 L R1,4(,R8) £ BLL_2 000340 E54C 1010 0018 000190 MVHI 16(,R1),X'0018' £ BNLH_ENTRY_LENG 000191: move tally to BNLH_ENTRY_COUNT 000346 000191 SNAPSHOT STMT PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 24 000346 5810 8004 000191 L R1,4(,R8) £ BLL_2 00034A D203 1014 8030 000191 MVC 20(4,R1),48(R8) £ BNLH_ENTRY_COUNT TALLY 000192: perform Lecture-Noms-Classes 000350 000192 SNAPSHOT STMT 000350 5800 D160 000192 L R0,352(,R13) £ VN_cell 000354 5000 D1FC 000192 ST R0,508(,R13) £ PfmSv_Cell 000358 C000 0000 0558 000192 LARL R0,$CONSTANT_AREA 00035E 5000 D160 000192 ST R0,352(,R13) £ VN_cell 000362 A7F4 0215 000192 J LECTURE-NOMS-CLASSES 000296: perform test-code-retour 000366 5800 D220 000296 L R0,544(,R13) £ PfmSv_Cell 00036A 5000 D170 000296 ST R0,368(,R13) £ VN_cell 00036E 000296 SNAPSHOT PERFORM_CALL_END 00036E 5800 D1FC 000192 L R0,508(,R13) £ PfmSv_Cell 000372 5000 D160 000192 ST R0,352(,R13) £ VN_cell 000376 1800 000192 SNAPSHOT PERFORM_CALL_END 000194: perform varying XBNL from 1 by 1 000378 000194 SNAPSHOT STMT 000378 E310 84F4 0171 000194 LAY R1,5364(,R8) £ 00037E E54C 1000 0000 000194 MVHI 0(,R1),X'0000' £ XBNL 000384 A7F4 0033 000194 J L0023 000388 000194 L0024: EQU * 000196: set address of VSTRING to BNL_NAME_PTR (XBNL) 000388 000196 SNAPSHOT STMT 000388 000196 SNAPSHOT DO 000388 5810 8004 000196 L R1,4(,R8) £ BLL_2 00038C E3F0 84F4 0158 000196 LY R15,5364(,R8) £ XBNL 000392 580F 1028 000196 L R0,40(R15,R1) £ BNL_NAME_PTR 000396 A506 7FFF 000196 NILH R0,0x7fff 00039A 5000 8000 000196 ST R0,0(,R8) £ BLL_1 000197: move BNL_NAME_CHARS (XBNL) to TALLY 00039E 000197 SNAPSHOT STMT 00039E 5810 8004 000197 L R1,4(,R8) £ BLL_2 0003A2 E3F0 84F4 0158 000197 LY R15,5364(,R8) £ XBNL 0003A8 E30F 1026 0095 000197 LLH R0,38(R15,R1) £ BNL_NAME_CHARS 0003AE 5000 8030 000197 ST R0,48(,R8) £ TALLY 000198: display '- Classe "' VSTRING(1:TALLY) '"' 0003B2 000198 SNAPSHOT STMT 0003B2 D237 D188 31BC 000198 MVC 392(56,R13),444(R3) £ 0003B8 5800 8000 000198 L R0,0(,R8) £ BLL_1 0003BC 5000 D1A0 000198 ST R0,416(,R13) £ 0003C0 5800 8030 000198 L R0,48(,R8) £ TALLY 0003C4 5000 D1A8 000198 ST R0,424(,R13) £ 0003C8 5000 D1AC 000198 ST R0,428(,R13) £ 0003CC 4110 D188 000198 LA R1,392(,R13) £ _ArgumentList 0003D0 58F0 3154 000198 L R15,340(,R3) £ _ACON 0003D4 58C0 D080 000198 L R12,128(,R13) £ _àCAA 0003D8 0DEF 000198 BASR R14,R15 £ Call "IGZXDSP" 000199: end-perform 0003DA 000199 SNAPSHOT STMT 0003DA E300 84F4 0158 000199 LY R0,5364(,R8) £ XBNL 0003E0 A70A 0018 000199 AHI R0,0x18 0003E4 E300 84F4 0150 000199 STY R0,5364(,R8) £ XBNL 0003EA 000199 L0023: EQU * 0003EA E300 84D8 0158 000199 LY R0,5336(,R8) £ RC-GN-COUNT 0003F0 EB10 0004 00DF 000199 SLLK R1,R0,4 0003F6 8900 0003 000199 SLL R0,3 0003FA 1A10 000199 AR R1,R0 PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 25 0003FC A71A FFE8 000199 AHI R1,0xffe8 000400 E300 84F4 0158 000199 LY R0,5364(,R8) £ XBNL 000406 EC01 FFC1 C076 000199 CRJ R0,R1,L0024,LE(mask=0xc), 000204: move 100 to tally 00040C 000204 SNAPSHOT STMT 00040C 000204 SNAPSHOT POSTCOMPOUND 00040C E54C 8030 0064 000204 MVHI 48(,R8),X'0064' £ TALLY 000209: move all x'00' to BNLH 000412 000209 SNAPSHOT STMT 000412 5810 8004 000209 L R1,4(,R8) £ BLL_2 000416 D71F 1000 1000 000209 XC 0(32,R1),0(R1) £ BLL_2 BNLH 000211: set BNLH_BUFFER_ID to true 00041C 000211 SNAPSHOT STMT 00041C 5810 8004 000211 L R1,4(,R8) £ BLL_2 000420 D207 1000 3028 000211 MVC 0(8,R1),40(R3) £ FILLER _$CONSTANT_AREA+40 000213: move W-DYNA-SIZE to BNLH_BUFFER_LENG 000426 000213 SNAPSHOT STMT 000426 E300 8468 0158 000213 LY R0,5224(,R8) £ W-DYNA-SIZE 00042C 5810 8004 000213 L R1,4(,R8) £ BLL_2 000430 5000 1008 000213 ST R0,8(,R1) £ BNLH_BUFFER_LENG 000214: set BNLH_VERSION to true 000434 000214 SNAPSHOT STMT 000434 5810 8004 000214 L R1,4(,R8) £ BLL_2 000438 9207 100C 000214 MVI 12(,R1),X'07' £ FILLER 000215: move length of BNL_ENTRY to BNLH_ENTRY_LENG 00043C 000215 SNAPSHOT STMT 00043C 5810 8004 000215 L R1,4(,R8) £ BLL_2 000440 E54C 1010 0018 000215 MVHI 16(,R1),X'0018' £ BNLH_ENTRY_LENG 000216: move tally to BNLH_ENTRY_COUNT 000446 000216 SNAPSHOT STMT 000446 5810 8004 000216 L R1,4(,R8) £ BLL_2 00044A D203 1014 8030 000216 MVC 20(4,R1),48(R8) £ BNLH_ENTRY_COUNT TALLY 000217: perform Lecture-Noms-Sections 000450 000217 SNAPSHOT STMT 000450 5800 D164 000217 L R0,356(,R13) £ VN_cell 000454 5000 D204 000217 ST R0,516(,R13) £ PfmSv_Cell 000458 C000 0000 04D8 000217 LARL R0,$CONSTANT_AREA 00045E 5000 D164 000217 ST R0,356(,R13) £ VN_cell 000462 A7F4 01F1 000217 J LECTURE-NOMS-SECTIONS 000322: perform test-code-retour 000466 5800 D224 000322 L R0,548(,R13) £ PfmSv_Cell 00046A 5000 D170 000322 ST R0,368(,R13) £ VN_cell 00046E 000322 SNAPSHOT PERFORM_CALL_END 00046E 5800 D204 000217 L R0,516(,R13) £ PfmSv_Cell 000472 5000 D164 000217 ST R0,356(,R13) £ VN_cell 000476 1800 000217 SNAPSHOT PERFORM_CALL_END 000219: perform varying XBNL from 1 by 1 000478 000219 SNAPSHOT STMT 000478 E310 84F4 0171 000219 LAY R1,5364(,R8) £ 00047E E54C 1000 0000 000219 MVHI 0(,R1),X'0000' £ XBNL 000484 A7F4 0033 000219 J L0025 000488 000219 L0026: EQU * 000221: set address of VSTRING to BNL_NAME_PTR (XBNL) 000488 000221 SNAPSHOT STMT 000488 000221 SNAPSHOT DO 000488 5810 8004 000221 L R1,4(,R8) £ BLL_2 00048C E3F0 84F4 0158 000221 LY R15,5364(,R8) £ XBNL 000492 580F 1028 000221 L R0,40(R15,R1) £ BNL_NAME_PTR PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 26 000496 A506 7FFF 000221 NILH R0,0x7fff 00049A 5000 8000 000221 ST R0,0(,R8) £ BLL_1 000222: move BNL_NAME_CHARS (XBNL) to TALLY 00049E 000222 SNAPSHOT STMT 00049E 5810 8004 000222 L R1,4(,R8) £ BLL_2 0004A2 E3F0 84F4 0158 000222 LY R15,5364(,R8) £ XBNL 0004A8 E30F 1026 0095 000222 LLH R0,38(R15,R1) £ BNL_NAME_CHARS 0004AE 5000 8030 000222 ST R0,48(,R8) £ TALLY 000223: display '- Section "' VSTRING(1:TALLY) '"' 0004B2 000223 SNAPSHOT STMT 0004B2 D237 D188 31F4 000223 MVC 392(56,R13),500(R3) £ 0004B8 5800 8000 000223 L R0,0(,R8) £ BLL_1 0004BC 5000 D1A0 000223 ST R0,416(,R13) £ 0004C0 5800 8030 000223 L R0,48(,R8) £ TALLY 0004C4 5000 D1A8 000223 ST R0,424(,R13) £ 0004C8 5000 D1AC 000223 ST R0,428(,R13) £ 0004CC 4110 D188 000223 LA R1,392(,R13) £ _ArgumentList 0004D0 58F0 3154 000223 L R15,340(,R3) £ _ACON 0004D4 58C0 D080 000223 L R12,128(,R13) £ _àCAA 0004D8 0DEF 000223 BASR R14,R15 £ Call "IGZXDSP" 000224: end-perform 0004DA 000224 SNAPSHOT STMT 0004DA E300 84F4 0158 000224 LY R0,5364(,R8) £ XBNL 0004E0 A70A 0018 000224 AHI R0,0x18 0004E4 E300 84F4 0150 000224 STY R0,5364(,R8) £ XBNL 0004EA 000224 L0025: EQU * 0004EA E300 84D8 0158 000224 LY R0,5336(,R8) £ RC-GN-COUNT 0004F0 EB10 0004 00DF 000224 SLLK R1,R0,4 0004F6 8900 0003 000224 SLL R0,3 0004FA 1A10 000224 AR R1,R0 0004FC A71A FFE8 000224 AHI R1,0xffe8 000500 E300 84F4 0158 000224 LY R0,5364(,R8) £ XBNL 000506 EC01 FFC1 C076 000224 CRJ R0,R1,L0026,LE(mask=0xc), 000227: move 100 to tally 00050C 000227 SNAPSHOT STMT 00050C 000227 SNAPSHOT POSTCOMPOUND 00050C E54C 8030 0064 000227 MVHI 48(,R8),X'0064' £ TALLY 000228: compute W-DYNA-SIZE = length of CUIH 000512 000228 SNAPSHOT STMT 000512 C0FE 0000 5AF3 000228 LLIHF R15,X'00005AF3' 000518 C0F9 107A 4000 000228 IILF R15,X'107A4000' 00051E E300 8030 0016 000228 LLGF R0,48(,R8) £ TALLY 000524 A70D 0150 000228 MGHI R0,0x150 000528 A70B 0020 000228 AGHI R0,0x20 00052C B900 0010 000228 LPGR R1,R0 000530 B921 001F 000228 CLGR R1,R15 000534 A744 0006 000228 JL L0145 000538 B904 0010 000228 LGR R1,R0 00053C B90D 000F 000228 DSGR R0,R15 000540 000228 L0145: EQU * 000540 E300 8468 0150 000228 STY R0,5224(,R8) £ W-DYNA-SIZE 000230: perform Allocation-Memoire 000546 000230 SNAPSHOT STMT 000546 5800 D15C 000230 L R0,348(,R13) £ VN_cell 00054A 5000 D208 000230 ST R0,520(,R13) £ PfmSv_Cell 00054E C000 0000 0007 000230 LARL R0,$CONSTANT_AREA 000554 5000 D15C 000230 ST R0,348(,R13) £ VN_cell 000558 A7F4 030B 000230 J ALLOCATION-MEMOIRE PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 27 00055C 5800 D208 000230 L R0,520(,R13) £ PfmSv_Cell 000560 5000 D15C 000230 ST R0,348(,R13) £ VN_cell 000564 1800 000230 SNAPSHOT PERFORM_CALL_END 000231: set address of COMPILE-UNIT-BUFFER to W-DYNA-ADDR 000566 000231 SNAPSHOT STMT 000566 E300 8470 0158 000231 LY R0,5232(,R8) £ W-DYNA-ADDR 00056C A506 7FFF 000231 NILH R0,0x7fff 000570 5000 8008 000231 ST R0,8(,R8) £ BLL_3 000232: move all x'00' to CUIH 000574 000232 SNAPSHOT STMT 000574 5810 8008 000232 L R1,8(,R8) £ BLL_3 000578 D71F 1000 1000 000232 XC 0(32,R1),0(R1) £ BLL_3 CUIH 000233: set CUIH_BUFFER_ID to true 00057E 000233 SNAPSHOT STMT 00057E 5810 8008 000233 L R1,8(,R8) £ BLL_3 000582 D207 1000 3048 000233 MVC 0(8,R1),72(R3) £ FILLER _$CONSTANT_AREA+72 000234: move W-DYNA-SIZE to CUIH_BUFFER_LENG 000588 000234 SNAPSHOT STMT 000588 E300 8468 0158 000234 LY R0,5224(,R8) £ W-DYNA-SIZE 00058E 5810 8008 000234 L R1,8(,R8) £ BLL_3 000592 5000 1008 000234 ST R0,8(,R1) £ CUIH_BUFFER_LENG 000235: set CUIH_VERSION to true 000596 000235 SNAPSHOT STMT 000596 5810 8008 000235 L R1,8(,R8) £ BLL_3 00059A 9206 100C 000235 MVI 12(,R1),X'06' £ FILLER 000236: move length of CUI_ENTRY to CUIH_ENTRY_LENG 00059E 000236 SNAPSHOT STMT 00059E 5810 8008 000236 L R1,8(,R8) £ BLL_3 0005A2 E54C 1010 0050 000236 MVHI 16(,R1),X'0050' £ CUIH_ENTRY_LENG 000237: move tally to CUIH_ENTRY_COUNT 0005A8 000237 SNAPSHOT STMT 0005A8 5810 8008 000237 L R1,8(,R8) £ BLL_3 0005AC D203 1014 8030 000237 MVC 20(4,R1),48(R8) £ CUIH_ENTRY_COUNT TALLY 000238: perform Lecture-Unites-Compilation 0005B2 000238 SNAPSHOT STMT 0005B2 5800 D168 000238 L R0,360(,R13) £ VN_cell 0005B6 5000 D20C 000238 ST R0,524(,R13) £ PfmSv_Cell 0005BA C000 0000 0427 000238 LARL R0,$CONSTANT_AREA 0005C0 5000 D168 000238 ST R0,360(,R13) £ VN_cell 0005C4 A7F4 019C 000238 J LECTURE-UNITES-COMPILATION 000337: perform test-code-retour 0005C8 5800 D228 000337 L R0,552(,R13) £ PfmSv_Cell 0005CC 5000 D170 000337 ST R0,368(,R13) £ VN_cell 0005D0 000337 SNAPSHOT PERFORM_CALL_END 0005D0 5800 D20C 000238 L R0,524(,R13) £ PfmSv_Cell 0005D4 5000 D168 000238 ST R0,360(,R13) £ VN_cell 0005D8 1800 000238 SNAPSHOT PERFORM_CALL_END 000240: perform varying XCUI from 1 by 1 0005DA 000240 SNAPSHOT STMT 0005DA E310 84F8 0171 000240 LAY R1,5368(,R8) £ 0005E0 E54C 1000 0000 000240 MVHI 0(,R1),X'0000' £ XCUI 0005E6 A7F4 000B 000240 J L0027 0005EA 000240 L0028: EQU * 000242: continue 0005EA 1800 000242 SNAPSHOT STMT 0005EC 000242 SNAPSHOT DO 000243: end-perform 0005EC 000243 SNAPSHOT STMT PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 28 0005EC E300 84F8 0158 000243 LY R0,5368(,R8) £ XCUI 0005F2 A70A 0050 000243 AHI R0,0x50 0005F6 E300 84F8 0150 000243 STY R0,5368(,R8) £ XCUI 0005FC 000243 L0027: EQU * 0005FC E300 84F0 0158 000243 LY R0,5360(,R8) £ RC-GC-COUNT 000602 EB10 0006 00DF 000243 SLLK R1,R0,6 000608 8900 0004 000243 SLL R0,4 00060C 1A10 000243 AR R1,R0 00060E A71A FFB0 000243 AHI R1,0xffb0 000612 E300 84F8 0158 000243 LY R0,5368(,R8) £ XCUI 000618 EC01 FFE9 C076 000243 CRJ R0,R1,L0028,LE(mask=0xc), 000246: perform Fermeture-Session 00061E 000246 SNAPSHOT STMT 00061E 000246 SNAPSHOT POSTCOMPOUND 00061E 5800 D16C 000246 L R0,364(,R13) £ VN_cell 000622 5000 D210 000246 ST R0,528(,R13) £ PfmSv_Cell 000626 C000 0000 03F1 000246 LARL R0,$CONSTANT_AREA 00062C 5000 D16C 000246 ST R0,364(,R13) £ VN_cell 000630 A7F4 0078 000246 J FERMETURE-SESSION 000268: perform test-code-retour 000634 5800 D21C 000268 L R0,540(,R13) £ PfmSv_Cell 000638 5000 D170 000268 ST R0,368(,R13) £ VN_cell 00063C 000268 SNAPSHOT PERFORM_CALL_END 00063C 5800 D210 000246 L R0,528(,R13) £ PfmSv_Cell 000640 5000 D16C 000246 ST R0,364(,R13) £ VN_cell 000644 1800 000246 SNAPSHOT PERFORM_CALL_END 000646 000248 BYE: EQU * 000646 000248 SNAPSHOT PATHLABEL 000249: Goback 000646 000249 SNAPSHOT STMT 000646 9181 D114 000249 TM 276(,R13),X'81' £ DSAFlags 00064A A784 02C0 000249 JE L0029 00064E A718 0000 000249 LHI R1,0x0 000652 58F0 3158 000249 L R15,344(,R3) £ _ACON 000656 58C0 D080 000249 L R12,128(,R13) £ _àCAA 00065A 0DEF 000249 BASR R14,R15 £ Call "IGZXRTN" 00065C 9180 D114 000249 TM 276(,R13),X'80' £ DSAFlags 000660 A784 02B5 000249 JE L0029 000664 E54C D200 0000 000249 MVHI 512(,R13),X'0000' £ RefMod-Len 00066A 4800 8020 000249 LH R0,32(,R8) £ RETURN-CODE 00066E 5000 D214 000249 ST R0,532(,R13) £ TS2=73 000672 000002 SNAPSHOT EXIT 000672 4100 D200 000002 LA R0,512(,R13) £ RefMod-Len 000676 5000 D188 000002 ST R0,392(,R13) £ 00067A 4100 D214 000002 LA R0,532(,R13) £ TS2=73 00067E 5000 D18C 000002 ST R0,396(,R13) £ 000682 4110 D188 000002 LA R1,392(,R13) £ _ArgumentList 000686 58F0 315C 000002 L R15,348(,R3) £ _ACON 00068A 58C0 D080 000002 L R12,128(,R13) £ _àCAA 00068E 0DEF 000002 BASR R14,R15 £ Call "IGZXTREN" 000690 A7F4 029D 000002 J L0029 000694 000253 OUVERTURE-SESSION: EQU * 000694 000253 SNAPSHOT PATHLABEL 000254: move 'SJ' to RC-CODE 000694 000254 SNAPSHOT STMT 000694 E310 8480 0171 000254 LAY R1,5248(,R8) £ 00069A E544 1000 E2D1 000254 MVHHI 0(,R1),X'E2D1' £ RC-CODE 000255: move 0 to RC-MTOKEN PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 29 0006A0 000255 SNAPSHOT STMT 0006A0 E310 84A0 0171 000255 LAY R1,5280(,R8) £ 0006A6 E54C 1000 0000 000255 MVHI 0(,R1),X'0000' £ RC-MTOKEN 000256: call IEWBFDAT using RC-FUNCTION 0006AC 000256 SNAPSHOT STMT 0006AC 000256 SNAPSHOT CALLBGN 0006AC E300 8584 0171 000256 LAY R0,5508(,R8) £ 0006B2 5000 D13C 000256 ST R0,316(,R13) £ DSACACHEà 0006B6 E300 8478 0171 000256 LAY R0,5240(,R8) £ 0006BC 5000 D11C 000256 ST R0,284(,R13) £ DSATPgNmà 0006C0 E54C D120 0008 000256 MVHI 288(,R13),X'0008' £ 0006C6 E54C D124 0009 000256 MVHI 292(,R13),X'0009' £ 0006CC E300 8480 0171 000256 LAY R0,5248(,R8) £ 0006D2 5000 D188 000256 ST R0,392(,R13) £ 0006D6 E300 84A0 0171 000256 LAY R0,5280(,R8) £ 0006DC 5000 D18C 000256 ST R0,396(,R13) £ 0006E0 E300 84A8 0171 000256 LAY R0,5288(,R8) £ 0006E6 5000 D190 000256 ST R0,400(,R13) £ 0006EA E300 84B8 0171 000256 LAY R0,5304(,R8) £ 0006F0 A50A 8000 000256 OILH R0,0x8000 0006F4 5000 D194 000256 ST R0,404(,R13) £ 0006F8 58F0 3054 000256 L R15,84(,R3) £ _ACON 0006FC 4110 D188 000256 LA R1,392(,R13) £ _ArgumentList 000700 58C0 D080 000256 L R12,128(,R13) £ _àCAA 000704 0DEF 000256 BASR R14,R15 £ Call "" 000706 40F0 8020 000256 STH R15,32(,R8) £ RETURN-CODE 00070A 000256 SNAPSHOT CALLRET 00070A 000260 SNAPSHOT STMT 00070A 5800 D170 000260 L R0,368(,R13) £ VN_cell 00070E 5000 D218 000260 ST R0,536(,R13) £ PfmSv_Cell 000712 C000 FFFF FDC3 000260 LARL R0,$CONSTANT_AREA 000718 5000 D170 000260 ST R0,368(,R13) £ VN_cell 00071C A7F4 01FB 000260 J TEST-CODE-RETOUR 000720 000264 FERMETURE-SESSION: EQU * 000720 000264 SNAPSHOT PATHLABEL 000265: move 'EN' to RC-CODE 000720 000265 SNAPSHOT STMT 000720 E310 8480 0171 000265 LAY R1,5248(,R8) £ 000726 E544 1000 C5D5 000265 MVHHI 0(,R1),X'C5D5' £ RC-CODE 000266: call IEWBFDAT using RC-FUNCTION 00072C 000266 SNAPSHOT STMT 00072C 000266 SNAPSHOT CALLBGN 00072C E300 858C 0171 000266 LAY R0,5516(,R8) £ 000732 5000 D13C 000266 ST R0,316(,R13) £ DSACACHEà 000736 E300 8478 0171 000266 LAY R0,5240(,R8) £ 00073C 5000 D11C 000266 ST R0,284(,R13) £ DSATPgNmà 000740 E54C D120 0008 000266 MVHI 288(,R13),X'0008' £ 000746 E54C D124 0009 000266 MVHI 292(,R13),X'0009' £ 00074C E300 8480 0171 000266 LAY R0,5248(,R8) £ 000752 5000 D188 000266 ST R0,392(,R13) £ 000756 E300 84A0 0171 000266 LAY R0,5280(,R8) £ 00075C A50A 8000 000266 OILH R0,0x8000 000760 5000 D18C 000266 ST R0,396(,R13) £ 000764 58F0 3054 000266 L R15,84(,R3) £ _ACON 000768 4110 D188 000266 LA R1,392(,R13) £ _ArgumentList 00076C 58C0 D080 000266 L R12,128(,R13) £ _àCAA 000770 0DEF 000266 BASR R14,R15 £ Call "" 000772 40F0 8020 000266 STH R15,32(,R8) £ RETURN-CODE PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 30 000776 000266 SNAPSHOT CALLRET 000776 000268 SNAPSHOT STMT 000776 5800 D170 000268 L R0,368(,R13) £ VN_cell 00077A 5000 D21C 000268 ST R0,540(,R13) £ PfmSv_Cell 00077E C000 FFFF FF5B 000268 LARL R0,$CONSTANT_AREA 000784 5000 D170 000268 ST R0,368(,R13) £ VN_cell 000788 A7F4 01C5 000268 J TEST-CODE-RETOUR 00078C 000285 LECTURE-NOMS-CLASSES: EQU * 00078C 000285 SNAPSHOT PATHLABEL 000286: move 'GN' to RC-CODE 00078C 000286 SNAPSHOT STMT 00078C E310 8480 0171 000286 LAY R1,5248(,R8) £ 000792 E544 1000 C7D5 000286 MVHHI 0(,R1),X'C7D5' £ RC-CODE 000287: move 'C' to RC-GN-MTYPE 000798 000287 SNAPSHOT STMT 000798 E310 84C8 0171 000287 LAY R1,5320(,R8) £ 00079E 92C3 1000 000287 MVI 0(,R1),X'C3' £ RC-GN-MTYPE 000288: move 0 to RC-GN-CURSOR 0007A2 000288 SNAPSHOT STMT 0007A2 E310 84D0 0171 000288 LAY R1,5328(,R8) £ 0007A8 E54C 1000 0000 000288 MVHI 0(,R1),X'0000' £ RC-GN-CURSOR 000289: move 0 to RC-GN-COUNT 0007AE 000289 SNAPSHOT STMT 0007AE E310 84D8 0171 000289 LAY R1,5336(,R8) £ 0007B4 E54C 1000 0000 000289 MVHI 0(,R1),X'0000' £ RC-GN-COUNT 000290: call IEWBFDAT using RC-FUNCTION 0007BA 000290 SNAPSHOT STMT 0007BA 000290 SNAPSHOT CALLBGN 0007BA E300 859C 0171 000290 LAY R0,5532(,R8) £ 0007C0 5000 D13C 000290 ST R0,316(,R13) £ DSACACHEà 0007C4 E300 8478 0171 000290 LAY R0,5240(,R8) £ 0007CA 5000 D11C 000290 ST R0,284(,R13) £ DSATPgNmà 0007CE E54C D120 0008 000290 MVHI 288(,R13),X'0008' £ 0007D4 E54C D124 0009 000290 MVHI 292(,R13),X'0009' £ 0007DA E300 8480 0171 000290 LAY R0,5248(,R8) £ 0007E0 5000 D188 000290 ST R0,392(,R13) £ 0007E4 E300 84A0 0171 000290 LAY R0,5280(,R8) £ 0007EA 5000 D18C 000290 ST R0,396(,R13) £ 0007EE E300 84C8 0171 000290 LAY R0,5320(,R8) £ 0007F4 5000 D190 000290 ST R0,400(,R13) £ 0007F8 5800 8004 000290 L R0,4(,R8) £ BLL_2 0007FC A506 7FFF 000290 NILH R0,0x7fff 000800 5000 D194 000290 ST R0,404(,R13) £ 000804 E300 84D0 0171 000290 LAY R0,5328(,R8) £ 00080A 5000 D198 000290 ST R0,408(,R13) £ 00080E E300 84D8 0171 000290 LAY R0,5336(,R8) £ 000814 A50A 8000 000290 OILH R0,0x8000 000818 5000 D19C 000290 ST R0,412(,R13) £ 00081C 58F0 3054 000290 L R15,84(,R3) £ _ACON 000820 4110 D188 000290 LA R1,392(,R13) £ _ArgumentList 000824 58C0 D080 000290 L R12,128(,R13) £ _àCAA 000828 0DEF 000290 BASR R14,R15 £ Call "" 00082A 40F0 8020 000290 STH R15,32(,R8) £ RETURN-CODE 00082E 000290 SNAPSHOT CALLRET 00082E 000296 SNAPSHOT STMT 00082E 5800 D170 000296 L R0,368(,R13) £ VN_cell 000832 5000 D220 000296 ST R0,544(,R13) £ PfmSv_Cell 000836 C000 FFFF FD98 000296 LARL R0,$CONSTANT_AREA PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 31 00083C 5000 D170 000296 ST R0,368(,R13) £ VN_cell 000840 A7F4 0169 000296 J TEST-CODE-RETOUR 000844 000311 LECTURE-NOMS-SECTIONS: EQU * 000844 000311 SNAPSHOT PATHLABEL 000312: move 'GN' to RC-CODE 000844 000312 SNAPSHOT STMT 000844 E310 8480 0171 000312 LAY R1,5248(,R8) £ 00084A E544 1000 C7D5 000312 MVHHI 0(,R1),X'C7D5' £ RC-CODE 000313: move 'S' to RC-GN-MTYPE 000850 000313 SNAPSHOT STMT 000850 E310 84C8 0171 000313 LAY R1,5320(,R8) £ 000856 92E2 1000 000313 MVI 0(,R1),X'E2' £ RC-GN-MTYPE 000314: move 0 to RC-GN-CURSOR 00085A 000314 SNAPSHOT STMT 00085A E310 84D0 0171 000314 LAY R1,5328(,R8) £ 000860 E54C 1000 0000 000314 MVHI 0(,R1),X'0000' £ RC-GN-CURSOR 000315: move 0 to RC-GN-COUNT 000866 000315 SNAPSHOT STMT 000866 E310 84D8 0171 000315 LAY R1,5336(,R8) £ 00086C E54C 1000 0000 000315 MVHI 0(,R1),X'0000' £ RC-GN-COUNT 000316: call IEWBFDAT using RC-FUNCTION 000872 000316 SNAPSHOT STMT 000872 000316 SNAPSHOT CALLBGN 000872 E300 85AC 0171 000316 LAY R0,5548(,R8) £ 000878 5000 D13C 000316 ST R0,316(,R13) £ DSACACHEà 00087C E300 8478 0171 000316 LAY R0,5240(,R8) £ 000882 5000 D11C 000316 ST R0,284(,R13) £ DSATPgNmà 000886 E54C D120 0008 000316 MVHI 288(,R13),X'0008' £ 00088C E54C D124 0009 000316 MVHI 292(,R13),X'0009' £ 000892 E300 8480 0171 000316 LAY R0,5248(,R8) £ 000898 5000 D188 000316 ST R0,392(,R13) £ 00089C E300 84A0 0171 000316 LAY R0,5280(,R8) £ 0008A2 5000 D18C 000316 ST R0,396(,R13) £ 0008A6 E300 84C8 0171 000316 LAY R0,5320(,R8) £ 0008AC 5000 D190 000316 ST R0,400(,R13) £ 0008B0 5800 8004 000316 L R0,4(,R8) £ BLL_2 0008B4 A506 7FFF 000316 NILH R0,0x7fff 0008B8 5000 D194 000316 ST R0,404(,R13) £ 0008BC E300 84D0 0171 000316 LAY R0,5328(,R8) £ 0008C2 5000 D198 000316 ST R0,408(,R13) £ 0008C6 E300 84D8 0171 000316 LAY R0,5336(,R8) £ 0008CC A50A 8000 000316 OILH R0,0x8000 0008D0 5000 D19C 000316 ST R0,412(,R13) £ 0008D4 58F0 3054 000316 L R15,84(,R3) £ _ACON 0008D8 4110 D188 000316 LA R1,392(,R13) £ _ArgumentList 0008DC 58C0 D080 000316 L R12,128(,R13) £ _àCAA 0008E0 0DEF 000316 BASR R14,R15 £ Call "" 0008E2 40F0 8020 000316 STH R15,32(,R8) £ RETURN-CODE 0008E6 000316 SNAPSHOT CALLRET 0008E6 000322 SNAPSHOT STMT 0008E6 5800 D170 000322 L R0,368(,R13) £ VN_cell 0008EA 5000 D224 000322 ST R0,548(,R13) £ PfmSv_Cell 0008EE C000 FFFF FDBC 000322 LARL R0,$CONSTANT_AREA 0008F4 5000 D170 000322 ST R0,368(,R13) £ VN_cell 0008F8 A7F4 010D 000322 J TEST-CODE-RETOUR 0008FC 000326 LECTURE-UNITES-COMPILATION: EQU * 0008FC 000326 SNAPSHOT PATHLABEL 000327: move 'GC' to RC-CODE PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 32 0008FC 000327 SNAPSHOT STMT 0008FC E310 8480 0171 000327 LAY R1,5248(,R8) £ 000902 E544 1000 C7C3 000327 MVHHI 0(,R1),X'C7C3' £ RC-CODE 000328: move 0 to RC-GC-NB 000908 000328 SNAPSHOT STMT 000908 E310 84E0 0171 000328 LAY R1,5344(,R8) £ 00090E E54C 1000 0000 000328 MVHI 0(,R1),X'0000' £ RC-GC-NB 000329: move 0 to RC-GC-CURSOR 000914 000329 SNAPSHOT STMT 000914 E310 84E8 0171 000329 LAY R1,5352(,R8) £ 00091A E54C 1000 0000 000329 MVHI 0(,R1),X'0000' £ RC-GC-CURSOR 000330: move 0 to RC-GC-COUNT 000920 000330 SNAPSHOT STMT 000920 E310 84F0 0171 000330 LAY R1,5360(,R8) £ 000926 E54C 1000 0000 000330 MVHI 0(,R1),X'0000' £ RC-GC-COUNT 000331: call IEWBFDAT using RC-FUNCTION 00092C 000331 SNAPSHOT STMT 00092C 000331 SNAPSHOT CALLBGN 00092C E300 85B4 0171 000331 LAY R0,5556(,R8) £ 000932 5000 D13C 000331 ST R0,316(,R13) £ DSACACHEà 000936 E300 8478 0171 000331 LAY R0,5240(,R8) £ 00093C 5000 D11C 000331 ST R0,284(,R13) £ DSATPgNmà 000940 E54C D120 0008 000331 MVHI 288(,R13),X'0008' £ 000946 E54C D124 0009 000331 MVHI 292(,R13),X'0009' £ 00094C E300 8480 0171 000331 LAY R0,5248(,R8) £ 000952 5000 D188 000331 ST R0,392(,R13) £ 000956 E300 84A0 0171 000331 LAY R0,5280(,R8) £ 00095C 5000 D18C 000331 ST R0,396(,R13) £ 000960 E300 84E0 0171 000331 LAY R0,5344(,R8) £ 000966 5000 D190 000331 ST R0,400(,R13) £ 00096A 5800 8008 000331 L R0,8(,R8) £ BLL_3 00096E A506 7FFF 000331 NILH R0,0x7fff 000972 5000 D194 000331 ST R0,404(,R13) £ 000976 E300 84E8 0171 000331 LAY R0,5352(,R8) £ 00097C 5000 D198 000331 ST R0,408(,R13) £ 000980 E300 84F0 0171 000331 LAY R0,5360(,R8) £ 000986 A50A 8000 000331 OILH R0,0x8000 00098A 5000 D19C 000331 ST R0,412(,R13) £ 00098E 58F0 3054 000331 L R15,84(,R3) £ _ACON 000992 4110 D188 000331 LA R1,392(,R13) £ _ArgumentList 000996 58C0 D080 000331 L R12,128(,R13) £ _àCAA 00099A 0DEF 000331 BASR R14,R15 £ Call "" 00099C 40F0 8020 000331 STH R15,32(,R8) £ RETURN-CODE 0009A0 000331 SNAPSHOT CALLRET 0009A0 000337 SNAPSHOT STMT 0009A0 5800 D170 000337 L R0,368(,R13) £ VN_cell 0009A4 5000 D228 000337 ST R0,552(,R13) £ PfmSv_Cell 0009A8 C000 FFFF FE10 000337 LARL R0,$CONSTANT_AREA 0009AE 5000 D170 000337 ST R0,368(,R13) £ VN_cell 0009B2 A7F4 00B0 000337 J TEST-CODE-RETOUR 0009B6 000342 LECTURE-CODE-RETOUR: EQU * 0009B6 000342 SNAPSHOT PATHLABEL 000343: move RC-CODE to RC-LAST 0009B6 000343 SNAPSHOT STMT 0009B6 E310 8480 0171 000343 LAY R1,5248(,R8) £ 0009BC D201 1008 1000 000343 MVC 8(2,R1),0(R1) £ RC-LAST RC-CODE 000344: move 'RC' to RC-CODE 0009C2 000344 SNAPSHOT STMT PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 33 0009C2 E310 8480 0171 000344 LAY R1,5248(,R8) £ 0009C8 E544 1000 D9C3 000344 MVHHI 0(,R1),X'D9C3' £ RC-CODE 000345: call IEWBFDAT using RC-FUNCTION 0009CE 000345 SNAPSHOT STMT 0009CE 000345 SNAPSHOT CALLBGN 0009CE E300 85BC 0171 000345 LAY R0,5564(,R8) £ 0009D4 5000 D13C 000345 ST R0,316(,R13) £ DSACACHEà 0009D8 E300 8478 0171 000345 LAY R0,5240(,R8) £ 0009DE 5000 D11C 000345 ST R0,284(,R13) £ DSATPgNmà 0009E2 E54C D120 0008 000345 MVHI 288(,R13),X'0008' £ 0009E8 E54C D124 0009 000345 MVHI 292(,R13),X'0009' £ 0009EE E300 8480 0171 000345 LAY R0,5248(,R8) £ 0009F4 5000 D188 000345 ST R0,392(,R13) £ 0009F8 E300 84A0 0171 000345 LAY R0,5280(,R8) £ 0009FE 5000 D18C 000345 ST R0,396(,R13) £ 000A02 E300 8490 0171 000345 LAY R0,5264(,R8) £ 000A08 5000 D190 000345 ST R0,400(,R13) £ 000A0C E300 8498 0171 000345 LAY R0,5272(,R8) £ 000A12 A50A 8000 000345 OILH R0,0x8000 000A16 5000 D194 000345 ST R0,404(,R13) £ 000A1A 58F0 3054 000345 L R15,84(,R3) £ _ACON 000A1E 4110 D188 000345 LA R1,392(,R13) £ _ArgumentList 000A22 58C0 D080 000345 L R12,128(,R13) £ _àCAA 000A26 0DEF 000345 BASR R14,R15 £ Call "" 000A28 40F0 8020 000345 STH R15,32(,R8) £ RETURN-CODE 000A2C 000345 SNAPSHOT CALLRET 000349: move RC-LAST to RC-CODE 000A2C 000349 SNAPSHOT STMT 000A2C E310 8480 0171 000349 LAY R1,5248(,R8) £ 000A32 D201 1000 1008 000349 MVC 0(2,R1),8(R1) £ RC-CODE RC-LAST 000A38 5810 D174 000349 L R1,372(,R13) £ VN_cell 000A3C 07F1 000349 BR R1 000A3E 000366 L0031: EQU * 000367: when other 000A3E 1800 000367 SNAPSHOT STMT 000368: perform Lecture-anomalie 000A40 000368 SNAPSHOT STMT 000A40 000368 SNAPSHOT PATHOTHERW 000A40 C000 0000 01E4 000368 LARL R0,$CONSTANT_AREA 000A46 5000 D178 000368 ST R0,376(,R13) £ VN_cell 000A4A 000351 LECTURE-ANOMALIE: EQU * 000A4A 000351 SNAPSHOT PATHLABEL 000352: perform Lecture-code-retour 000A4A 000352 SNAPSHOT STMT 000A4A 5800 D174 000352 L R0,372(,R13) £ VN_cell 000A4E 5000 D22C 000352 ST R0,556(,R13) £ PfmSv_Cell 000A52 C000 0000 0007 000352 LARL R0,$CONSTANT_AREA 000A58 5000 D174 000352 ST R0,372(,R13) £ VN_cell 000A5C A7F4 FFAD 000352 J LECTURE-CODE-RETOUR 000A60 5800 D22C 000352 L R0,556(,R13) £ PfmSv_Cell 000A64 5000 D174 000352 ST R0,372(,R13) £ VN_cell 000A68 1800 000352 SNAPSHOT PERFORM_CALL_END 000353: display 'Traitement programme ' LOADMODULE 000A6A 000353 SNAPSHOT STMT 000A6A D227 D188 322C 000353 MVC 392(40,R13),556(R3) £ 000A70 E300 8408 0171 000353 LAY R0,5128(,R8) £ 000A76 5000 D1A0 000353 ST R0,416(,R13) £ 000A7A 4110 D188 000353 LA R1,392(,R13) £ _ArgumentList PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 34 000A7E 58F0 3154 000353 L R15,340(,R3) £ _ACON 000A82 58C0 D080 000353 L R12,128(,R13) £ _àCAA 000A86 0DEF 000353 BASR R14,R15 £ Call "IGZXDSP" 000354: display 'Fonction ' RC-CODE 000A88 000354 SNAPSHOT STMT 000A88 D267 D188 3254 000354 MVC 392(104,R13),596(R3) £ 000A8E E300 8480 0171 000354 LAY R0,5248(,R8) £ 000A94 5000 D1A0 000354 ST R0,416(,R13) £ 000A98 E300 8490 0171 000354 LAY R0,5264(,R8) £ 000A9E 5000 D1C0 000354 ST R0,448(,R13) £ 000AA2 E300 8498 0171 000354 LAY R0,5272(,R8) £ 000AA8 5000 D1E0 000354 ST R0,480(,R13) £ 000AAC 4110 D188 000354 LA R1,392(,R13) £ _ArgumentList 000AB0 58F0 3154 000354 L R15,340(,R3) £ _ACON 000AB4 58C0 D080 000354 L R12,128(,R13) £ _àCAA 000AB8 0DEF 000354 BASR R14,R15 £ Call "IGZXDSP" 000357: move RC-RETURN to RETURN-CODE 000ABA 000357 SNAPSHOT STMT 000ABA E300 8490 0158 000357 LY R0,5264(,R8) £ RC-RETURN 000AC0 4000 8020 000357 STH R0,32(,R8) £ RETURN-CODE 000358: goback 000AC4 000358 SNAPSHOT STMT 000AC4 9181 D114 000358 TM 276(,R13),X'81' £ DSAFlags 000AC8 A784 0081 000358 JE L0029 000ACC A718 0000 000358 LHI R1,0x0 000AD0 58F0 3158 000358 L R15,344(,R3) £ _ACON 000AD4 58C0 D080 000358 L R12,128(,R13) £ _àCAA 000AD8 0DEF 000358 BASR R14,R15 £ Call "IGZXRTN" 000ADA 9180 D114 000358 TM 276(,R13),X'80' £ DSAFlags 000ADE A784 0076 000358 JE L0029 000AE2 E54C D214 0000 000358 MVHI 532(,R13),X'0000' £ TS2=73 000AE8 4800 8020 000358 LH R0,32(,R8) £ RETURN-CODE 000AEC 5000 D200 000358 ST R0,512(,R13) £ RefMod-Len 000AF0 000002 SNAPSHOT EXIT 000AF0 4100 D214 000002 LA R0,532(,R13) £ TS2=73 000AF4 5000 D188 000002 ST R0,392(,R13) £ 000AF8 4100 D200 000002 LA R0,512(,R13) £ RefMod-Len 000AFC 5000 D18C 000002 ST R0,396(,R13) £ 000B00 4110 D188 000002 LA R1,392(,R13) £ _ArgumentList 000B04 58F0 315C 000002 L R15,348(,R3) £ _ACON 000B08 58C0 D080 000002 L R12,128(,R13) £ _àCAA 000B0C 0DEF 000002 BASR R14,R15 £ Call "IGZXTREN" 000B0E A7F4 005E 000002 J L0029 000B12 000360 TEST-CODE-RETOUR: EQU * 000B12 000360 SNAPSHOT PATHLABEL 000361: evaluate RETURN-CODE 000B12 1800 000361 SNAPSHOT STMT 000362: when 0 000B14 000362 SNAPSHOT STMT 000B14 E554 8020 0000 000362 CHHSI 32(,R8),X'0000' £ RETURN-CODE 000B1A A784 0015 000362 JE L0030 000365: when 1 thru 4 000B1E 000365 SNAPSHOT STMT 000B1E 4800 8020 000365 LH R0,32(,R8) £ RETURN-CODE 000B22 EC04 FF8E 017E 000365 CIJ R0,L0031,1,LT(mask=0x4), 000B28 EC02 FF8B 047E 000365 CIJ R0,L0031,4,HT(mask=0x2), 000366: perform Lecture-code-retour 000B2E 000366 SNAPSHOT STMT PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 35 000B2E 000366 SNAPSHOT WHEN 000B2E 5800 D174 000366 L R0,372(,R13) £ VN_cell 000B32 5000 D230 000366 ST R0,560(,R13) £ PfmSv_Cell 000B36 C000 0000 0015 000366 LARL R0,$CONSTANT_AREA 000B3C 5000 D174 000366 ST R0,372(,R13) £ VN_cell 000B40 A7F4 FF3B 000366 J LECTURE-CODE-RETOUR 000B44 000362 L0030: EQU * 000363: move 0 to RC-RETURN 000B44 000363 SNAPSHOT STMT 000B44 000363 SNAPSHOT WHEN 000B44 E310 8490 0171 000363 LAY R1,5264(,R8) £ 000B4A E54C 1000 0000 000363 MVHI 0(,R1),X'0000' £ RC-RETURN 000B50 E310 8498 0171 000363 LAY R1,5272(,R8) £ 000B56 E54C 1000 0000 000363 MVHI 0(,R1),X'0000' £ RC-REASON 000B5C A7F4 0006 000363 J L0032 000B60 5800 D230 000366 L R0,560(,R13) £ PfmSv_Cell 000B64 5000 D174 000366 ST R0,372(,R13) £ VN_cell 000B68 000366 SNAPSHOT PERFORM_CALL_END 000B68 000368 L0032: EQU * 000B68 5810 D170 000368 L R1,368(,R13) £ VN_cell 000B6C 07F1 000368 BR R1 000B6E 000373 ALLOCATION-MEMOIRE: EQU * 000B6E 000373 SNAPSHOT PATHLABEL 000374: call W-DYNA-CEEGTST using W-DYNA-HEAPID 000B6E 000374 SNAPSHOT STMT 000B6E 000374 SNAPSHOT POSTCOMPOUND 000B6E 000374 SNAPSHOT CALLBGN 000B6E E300 85C4 0171 000374 LAY R0,5572(,R8) £ 000B74 5000 D13C 000374 ST R0,316(,R13) £ DSACACHEà 000B78 E300 8458 0171 000374 LAY R0,5208(,R8) £ 000B7E 5000 D11C 000374 ST R0,284(,R13) £ DSATPgNmà 000B82 E54C D120 0008 000374 MVHI 288(,R13),X'0008' £ 000B88 E54C D124 0009 000374 MVHI 292(,R13),X'0009' £ 000B8E E300 8460 0171 000374 LAY R0,5216(,R8) £ 000B94 5000 D188 000374 ST R0,392(,R13) £ 000B98 E300 8468 0171 000374 LAY R0,5224(,R8) £ 000B9E 5000 D18C 000374 ST R0,396(,R13) £ 000BA2 E300 8470 0171 000374 LAY R0,5232(,R8) £ 000BA8 5000 D190 000374 ST R0,400(,R13) £ 000BAC E54C D194 0000 000374 MVHI 404(,R13),X'0000' £ 000BB2 58F0 3054 000374 L R15,84(,R3) £ _ACON 000BB6 4110 D188 000374 LA R1,392(,R13) £ _ArgumentList 000BBA 58C0 D080 000374 L R12,128(,R13) £ _àCAA 000BBE 0DEF 000374 BASR R14,R15 £ Call "" 000BC0 40F0 8020 000374 STH R15,32(,R8) £ RETURN-CODE 000BC4 000374 SNAPSHOT CALLRET 000BC4 5810 D15C 000374 L R1,348(,R13) £ VN_cell 000BC8 07F1 000374 BR R1 000BCA 000374 L0029: EQU * 000BCA E300 8560 0158 000374 LY R0,5472(,R8) £ IPCB_NumEnts 000BD0 A70A FFFF 000374 AHI R0,0xffff 000BD4 E300 8560 0150 000374 STY R0,5472(,R8) £ IPCB_NumEnts 000BDA 000002 SNAPSHOT EXIT 000BDA 48F0 8020 000002 LH R15,32(,R8) £ RETURN-CODE 000BDE 6880 D090 000002 LD FP8,144(,R13) £ 000BE2 6890 D098 000002 LD FP9,152(,R13) £ 000BE6 68A0 D0A0 000002 LD FP10,160(,R13) £ 000BEA 68B0 D0A8 000002 LD FP11,168(,R13) £ PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 36 000BEE 68C0 D0B0 000002 LD FP12,176(,R13) £ 000BF2 68D0 D0B8 000002 LD FP13,184(,R13) £ 000BF6 68E0 D0C0 000002 LD FP14,192(,R13) £ 000BFA 68F0 D0C8 000002 LD FP15,200(,R13) £ 000BFE EB1F D0D0 0096 000002 LMH R1,R15,208(,R13) £ 000C04 58D0 D004 000002 L R13,4(,R13) £ Caller's DSA 000C08 58E0 D00C 000002 L R14,12(,R13) £ Return Address 000C0C 982C D01C 000002 LM R2,R12,28(,R13) £ Restore Caller's registers 000C10 051E 000002 BALR R1,R14 £ Return 000C12 0707 000002 NOPR R7 000C14 000002 RET *** General purpose registers used: 1111101110101111 *** Floating point registers used: 0000000011111111 *** Size of dynamic storage: 664 *** Size of executable code: 3092 000C18 000000 PROC __COMPUNITsinit 000C18 47F0 F024 000000 BC R15,36(,R15) £ Skip over constant area 000C1C 01C3 C5C5 000000 DC X'01C3C5C5' £ Eyecatcher: CEE 000C20 0000 0158 000000 DC X'00000158' £ Stack Size 000C24 0000 05A0 000000 DC X'000005A0' £ Offset to PPA1 000C28 47F0 F001 000000 BC R15,1(,R15) £ Wrong Entry Point: cause exception 000C2C 000000 L0018: EQU * 000C2C 000000 L0016: EQU * £ Handle growing stack 000C2C 58F0 C31C 000000 L R15,796(,R12) £ Load CEECAAOGETS 000C30 184E 000000 LR R4,R14 £ Required NAB 000C32 05EF 000000 BALR R14,R15 £ Extend Stack 000C34 0000 0000 000000 DC X'00000000' £ Argument list size = 0 000C38 A7F4 000C 000000 J L0017 £ Branch back 000C3C 90E8 D00C 000000 STM R14,R8,12(,R13) £ Save GPRs Used 000C40 58E0 D04C 000000 L R14,76(,R13) £ Load NAB 000C44 4100 E158 000000 LA R0,344(,R14) £ New NAB Address 000C48 5500 C314 000000 CL R0,788(,R12) £ Exceed current storage segment? 000C4C A724 FFF0 000000 JH L0016 £ Yes: branch to recovery code 000C50 000000 L0017: EQU * £ Stack now has sufficient room 000C50 5000 E04C 000000 ST R0,76(,R14) £ Update NAB 000C54 C001 0011 0301 000000 LGFI R0,X'00110301' £ load COBOL Language Word 000C5A 5000 E000 000000 ST R0,0(,R14) £ Save Language Word 000C5E 50D0 E004 000000 ST R13,4(,R14) £ Save Back Chain 000C62 18DE 000000 LR R13,R14 £ Set new DSA 000C64 E54C D074 0000 000000 MVHI 116(,R13),X'0000' £ Zero COBDSA 000C6A E54C D070 0000 000000 MVHI 112(,R13),X'0000' £ zero member slot0 000C70 5060 D060 000000 ST R6,96(,R13) £ set member slot3 000C74 5070 D068 000000 ST R7,104(,R13) £ set member slot2 000C78 EB1F D090 0026 000000 STMH R1,R15,144(,R13) £ 000C7E 000000 L0019: EQU * 000C7E 5010 D080 000000 ST R1,128(,R13) £ 000C82 50C0 D084 000000 ST R12,132(,R13) £ 000C86 C030 0000 00C1 000000 LARL R3,$CONSTANT_AREA 000C8C 58E0 1000 000000 L R14,0(,R1) £ ___indirect_parm 000C90 58F0 3014 000000 L R15,20(,R3) £ _QCON 000C94 41EF E000 000000 LA R14,0(R15,R14) £ 000C98 188E 000000 LR R8,R14 PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 37 000C9A 50E0 D0CC 000000 ST R14,204(,R13) £ _CACHED_$STATIC 000C9E E3F0 E560 0171 000000 LAY R15,5472(,R14) £ 000CA4 E54C F000 0000 000000 MVHI 0(,R15),X'0000' £ IPCB_NumEnts 000CAA E3F0 E520 0171 000000 LAY R15,5408(,R14) £ 000CB0 E3F0 E57C 0150 000000 STY R15,5500(,R14) £ IPCB_PGMPCB 000CB6 D217 F000 333C 000000 MVC 0(24,R15),828(R3) £ 000CBC E300 E560 0171 000000 LAY R0,5472(,R14) £ 000CC2 E300 E528 0150 000000 STY R0,5416(,R14) £ GPCB_IPCBPtr 000CC8 E3F0 E53C 0171 000000 LAY R15,5436(,R14) £ 000CCE E54C F000 0000 000000 MVHI 0(,R15),X'0000' £ GPCB_ACSPtr 000CD4 E3F0 E548 0171 000000 LAY R15,5448(,R14) £ 000CDA E54C F000 0000 000000 MVHI 0(,R15),X'0000' £ GPCB_ACSOrdPtr 000CE0 E3F0 E540 0171 000000 LAY R15,5440(,R14) £ 000CE6 E54C F000 0000 000000 MVHI 0(,R15),X'0000' £ GPCB_FIBAAPtr 000CEC E3F0 E54C 0171 000000 LAY R15,5452(,R14) £ 000CF2 D213 F000 3354 000000 MVC 0(20,R15),852(R3) £ _$CONSTANT_AREA+852 000CF8 5800 3338 000000 L R0,824(,R3) £ _ACON 000CFC E300 E568 0150 000000 STY R0,5480(,R14) £ IPCB_Entry 000D02 E3F0 E56C 0171 000000 LAY R15,5484(,R14) £ 000D08 E54C F000 0000 000000 MVHI 0(,R15),X'0000' £ IPCB_NumProgs 000D0E E3F0 E574 0171 000000 LAY R15,5492(,R14) £ 000D14 E54C F000 0000 000000 MVHI 0(,R15),X'0000' £ IPCB_FildDefs 000D1A E3F0 E564 0171 000000 LAY R15,5476(,R14) £ 000D20 E54C F000 0000 000000 MVHI 0(,R15),X'0000' £ IPCB_Status 000D26 E3F0 E570 0171 000000 LAY R15,5488(,R14) £ 000D2C E54C F000 0000 000000 MVHI 0(,R15),X'0000' £ IPCB_FCBAAptr 000D32 E3F0 E584 0171 000000 LAY R15,5508(,R14) £ 000D38 E548 F000 0000 000000 MVGHI 0(,R15),X'0000' £ TS2=74 000D3E C000 FFFF F961 000000 LARL R0,TS2=76 000D44 E300 E4FC 0150 000000 STY R0,5372(,R14) £ VNI_cell 000D4A E3F0 E58C 0171 000000 LAY R15,5516(,R14) £ 000D50 E548 F000 0000 000000 MVGHI 0(,R15),X'0000' £ TS2=77 000D56 C000 FFFF F955 000000 LARL R0,TS2=79 000D5C E300 E510 0150 000000 STY R0,5392(,R14) £ VNI_cell 000D62 E3F0 E594 0171 000000 LAY R15,5524(,R14) £ 000D68 D70F F000 F000 000000 XC 0(16,R15),0(R15) £ 000D6E C000 FFFF F949 000000 LARL R0,TS2=84 000D74 E300 E504 0150 000000 STY R0,5380(,R14) £ VNI_cell 000D7A E3F0 E5A4 0171 000000 LAY R15,5540(,R14) £ 000D80 D70F F000 F000 000000 XC 0(16,R15),0(R15) £ 000D86 C000 FFFF F93D 000000 LARL R0,TS2=89 000D8C E300 E508 0150 000000 STY R0,5384(,R14) £ VNI_cell 000D92 E3F0 E5B4 0171 000000 LAY R15,5556(,R14) £ 000D98 E548 F000 0000 000000 MVGHI 0(,R15),X'0000' £ TS2=90 000D9E C000 FFFF F931 000000 LARL R0,TS2=92 000DA4 E300 E50C 0150 000000 STY R0,5388(,R14) £ VNI_cell 000DAA E3F0 E5BC 0171 000000 LAY R15,5564(,R14) £ 000DB0 E548 F000 0000 000000 MVGHI 0(,R15),X'0000' £ TS2=93 000DB6 C000 FFFF F925 000000 LARL R0,TS2=94 000DBC E300 E518 0150 000000 STY R0,5400(,R14) £ VNI_cell 000DC2 C000 FFFF F91F 000000 LARL R0,TS2=100 000DC8 E300 E51C 0150 000000 STY R0,5404(,R14) £ VNI_cell 000DCE C000 FFFF F919 000000 LARL R0,TS2=106 000DD4 E300 E514 0150 000000 STY R0,5396(,R14) £ VNI_cell 000DDA E3F0 E5C4 0171 000000 LAY R15,5572(,R14) £ 000DE0 E548 F000 0000 000000 MVGHI 0(,R15),X'0000' £ TS2=107 000DE6 C000 FFFF F90D 000000 LARL R0,TS2=108 000DEC E300 E500 0150 000000 STY R0,5376(,R14) £ VNI_cell PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 38 000DF2 EB1F D090 0096 000000 LMH R1,R15,144(,R13) £ 000DF8 58D0 D004 000000 L R13,4(,R13) £ Caller's DSA 000DFC 58E0 D00C 000000 L R14,12(,R13) £ Return Address 000E00 9838 D020 000000 LM R3,R8,32(,R13) £ Restore Caller's registers 000E04 051E 000000 BALR R1,R14 £ Return 000E06 0707 000000 NOPR R7 000E08 000000 RET *** General purpose registers used: 1101101110001111 *** Floating point registers used: 0000000000000000 *** Size of dynamic storage: 344 *** Size of executable code: 496 CONSTANT AREA 000E08 (+0) 00CCDDFF 00000000 C9D5C6D6 D7D9D6C7 00000000 00000000 D7999687 99819494 !........INFOPROG........Programm! 000E28 (+32) 85407F00 00000000 C9C5E6C2 C2D5D340 076040C3 9381A2A2 85407F60 40E28583 !e ".....IEWBBNL .- Classe "- Sec! 000E48 (+64) A3899695 407F0000 C9C5E6C2 C3E4C940 0600E2D1 00000008 C5D5C7D5 C300C7C3 !tion "..IEWBCUI ..SJ....ENGNC.GC! 000E68 (+96) D9C3E399 8189A385 948595A3 40979996 87998194 948540C6 969583A3 89969540 !RCTraitement programme Fonction ! 000E88 (+128) 6B40D9C3 7E6B40D9 C5C1E2D6 D57E0000 C9D5E3E3 E2E34040 00000000 00000000 !, RC=, REASON=..INTTST ........! 000EA8 (+160) 00000000 00000000 00000000 00000000 E2D8D3C4 C1404040 E5C5D94B F2F0F1F5 !................SQLDA VER.2015! 000EC8 (+192) 60F0F760 F1F560F1 F84BF0F8 4BF4F94B F2F5F8F6 F7F90000 C3C5C5C7 E3E2E340 !-07-15-18.08.49.258679..CEEGTST ! 000EE8 (+224) C9C5E6C2 C6C4C1E3 00010000 00000000 D3C9C2D9 C1D9E840 00000000 00000000 !IEWBFDAT........LIBRARY ........! 000F08 (+256) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 !................................! 000F28 (+288) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 !................................! 000F48 (+320) FFFFFFFF FFFFFFFF 00000008 00000008 00000008 00000008 00000008 00000008 !................................! 000F68 (+352) 00000040 00000000 00000002 0000000B 00000008 00000E10 0000000B 00000008 !... ............................! 000F88 (+384) 00000E10 00000003 0106047B 00000E20 0000000B 0000000B 00000000 00000000 !...........£....................! 000FA8 (+416) 0000000B 00000008 00000000 00000E2A 0000000B 00000001 00000000 00000003 !................................! 000FC8 (+448) 0106047B 00000E39 0000000B 0000000A 00000000 00000000 0000000B 00000000 !...£............................! 000FE8 (+480) 00000000 00000E2A 0000000B 00000001 00000000 00000003 0106047B 00000E43 !...........................£....! 001008 (+512) 0000000B 0000000B 00000000 00000000 0000000B 00000000 00000000 00000E2A !................................! 001028 (+544) 0000000B 00000001 00000000 00000002 0106047B 00000E6A 0000000B 00000015 !...................£............! 001048 (+576) 00000000 00000000 0000000B 00000008 00000000 00000006 0106047B 00000E7F !...........................£..."! 001068 (+608) 0000000B 00000009 00000000 00000000 0000000B 00000002 00000000 00000E88 !...............................h! 001088 (+640) 0000000B 00000005 00000000 00000000 0000000F 00000004 0000000B 00000E8D !................................! 0010A8 (+672) 0000000B 00000009 00000000 00000000 0000000F 00000004 0000000B 00000002 !................................! 0010C8 (+704) 00000001 00080000 00000064 00000018 00000050 00000000 00000008 00000009 !...................&............! 0010E8 (+736) 40404040 40404040 40404040 40404040 40404040 40404040 40404040 40404040 ! ! 001108 (+768) 40404040 4040C3C5 C5C7E3E2 E3400000 00000000 00040000 00000000 00500007 ! CEEGTST ...............&..! 001128 (+800) D3C9C2D9 C1D9E840 F1F5F0F5 F1F5F2F0 E2E8E2D6 E4E34040 00000008 F1F5F0F5 !LIBRARY 15051520SYSOUT ....1505! 001148 (+832) F1F5F2F0 00000000 00000E10 00000008 04000000 00000000 00000000 E2E8E2D6 !1520........................SYSO! 001168 (+864) E4E34040 00000000 !UT .... ! PPA1: Entry Point Constants 001170 1CCEA506 =F'483304710' Flags 001174 00001298 =A(PPA2-INFOPROG) 001178 00001208 =A(PPA3-INFOPROG) 00117C 00000000 =F'0' No EPD PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 39 001180 FFFF09FF =F'-62977' Register Save Mask 001184 40000000 =F'1073741824' Member Flags 001188 90 =AL1(144) Flags 001189 000298 =AL3(664) Callee's DSA use/8 00118C 0000 =AL1(0) Flags 00118E 0012 =H'18' Offset/2 to CDL 001190 D0000110 =F'-805306096' State variable location 001194 00000000 =F'0' CDL function length/2 001198 00000000 =F'0' CDL function EP offset 00119C 00000000 =F'0' CDL prolog 0011A0 00000000 =F'0' CDL epilog 0011A4 00000000 =F'0' CDL end 0011A8 0008 **** AL2(8),C'INFOPROG' PPA1 End PPA1: Entry Point Constants 0011B8 1CCE2106 =F'483270918' Flags 0011BC 00000680 =A(PPA2-__COMPUNITsinit) 0011C0 00000600 =A(PPA3-__COMPUNITsinit) 0011C4 00000000 =F'0' No EPD 0011C8 FFE10000 =F'-2031616' Register Save Mask 0011CC 00000000 =F'0' Member Flags 0011D0 90 =AL1(144) Flags 0011D1 000158 =AL3(344) Callee's DSA use/8 0011D4 0000 =AL1(0) Flags 0011D6 0012 =H'18' Offset/2 to CDL 0011D8 00000000 =F'0' State variable location 0011DC 00000000 =F'0' CDL function length/2 0011E0 00000000 =F'0' CDL function EP offset 0011E4 00000000 =F'0' CDL prolog 0011E8 00000000 =F'0' CDL epilog 0011EC 00000000 =F'0' CDL end 0011F0 000F **** AL2(15),C'__COMPUNITsinit' PPA1 End Timestamp and Version Information 001228 0011 =H'17' Copyright length 00122A C9E3 60C3 C540 C7D9 D6E4 D7C5 =C'IT-CE GROUPE' Copyright string 001236 40C2 D7C3 C5 =C' BPCE' 00123C F2F0 F1F5 =C'2015' Compiled Year 001240 F0F7 F1F5 =C'0715' Compiled Date MMDD 001244 F2F0 F0F8 F4F8 =C'200848' Compiled Time HHMMSS 00124A F0F5 F0F2 F0F0 =C'050200' VERSION/RELEASE/MOD LEVEL OF PROD 001250 000C =H'12' Service string length 001252 D7D6 C340 C3D6 C2D6 D340 E5F5 =C'POC COBOL V5' Service string Timestamp and Version Information End Compiler Options and Program Information Section 00125E 0034 =X'0034' Size of Compiler Options and Prog Info Section 001260 (+00) 047B =X'047B' UNSIGNED BINARY CODE PAGE CCSID VALUE 001262 (+02) 0A =X'0A' ARCHITECTURE LEVEL 001263 (+03) 01 =X'01' OPTIMIZATION LEVEL 001264 (+04) 8F0E =X'8F0E' INFO. BYTES 28-29 001266 (+06) 3000 =X'3000' INFO. BYTES 30-31 PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 40 001268 (+08) 66EA748E3801 =X'66EA748E3801' INFO. BYTES 1-6 00126E (+14) 200090884009 =X'200090884009' INFO. BYTES 7-12 001274 (+20) 010020800C00 =X'010020800C00' INFO. BYTES 13-18 00127A (+26) 0000804800 =X'0000804800' INFO. BYTES 19-23 00127F (+31) 00 =X'00' COBOL SIGNATURE LEVEL 001280 (+32) 0000009B =X'0000009B' £ DATA DIVISION STATEMENTS 001284 (+36) 00000062 =X'00000062' £ PROCEDURE DIVISION STATEMENTS 001288 (+40) 20A08001 =X'20A08001' INFO. BYTES 24-27 00128C (+44) 4040404040404040 =C' ' USER LEVEL INFO (LVLINFO) Compiler Options and Program Information Section End PPA2: Entry Point Constants 001298 04002203 =F'67117571' Flags 00129C FFFFED68 =A(CEESTART-PPA2) 0012A0 00000058 =F'88' A(PPA4-PPA2) 0012A4 FFFFFFA4 =A(TIMESTMP-PPA2) 0012A8 FFFFED68 =A(PrimaryEntryPoint-PPA2) 0012AC 22200000 =F'572522496' Flags PPA2 End PPA3: Entry Point Constants 001208 00000000 =F'0' Flags 00120C 000000C0 =F'192' A(Base_Locator_Table-PPA3) 001210 000000D8 =F'216' A(Special_Register_Table-PPA3) 001210 0000022E =X'22E' A(User_Entry-CUEntry) PPA3 End PPA3: Entry Point Constants 001218 00000000 =F'0' Flags 00121C 00000000 =F'0' A(Base_Locator_Table-PPA3) 001220 00000000 =F'0' A(Special_Register_Table-PPA3) 001220 00000000 =X'0' A(User_Entry-CUEntry) PPA3 End Base Locator Table 0012C8 01 =X'1' Table Version 0012C9 00 =X'0' Reserved 0012CA 0008 =H'8' Header length 0012CC 00000010 =F'16' Array byte length 0012D0 1200 =X'1200' Flags & info (element 1) 0012D2 00000000 =X'0' Offset to cells 0012D6 03 =X'3' Cell count 0012D7 2A00 =X'2A00' Flags & info (element 2) 0012D9 0000000C =X'C' Offset to cells 0012DD 03 =X'3' Cell count 0012DE 0000 =X'0' Flags & info (end of array) Base Locator Table End Special Register Table 0012E0 01 =X'1' Table Version 0012E1 00 =X'0' Reserved 0012E2 0008 =H'8' Header length PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 41 0012E4 00000006 =F'6' Array byte length 0012E8 12 =X'12' Flags & info (element 1) 0012E9 00000020 =X'20' Offset to cells 0012ED 00 =X'0' Flags & info (end of array) Special Register Table End PPA4: Entry Point Constants 0012F0 20000000 =F'536870912' Flags 1 0012F4 08020100 =F'134349056' Flags 2 0012F8 00000000 =F'0' A(NORENTstatic) 0012FC 00000000 =F'0' Q(RENTstatic) 001300 00000000 =F'0' A(DATA24_address_cell-RENTstatic) 001304 FFFFED10 =F'-4848' A(Code-PPA4) 001308 00001328 =F'4904' Code Length 00130C 00000000 =F'0' Length NORENTstatic 001310 000015CC =F'5580' Length RENTstatic 001314 00000000 =F'0' Length DATA24 001318 002A =X'2A' A(CUName-PPA4) PPA4 End E X T E R N A L S Y M B O L D I C T I O N A R Y TYPE ID ADDR LENGTH NAME SD 1 000000 000000 INFOPROG ED 2 000000 000000 C_CEESG003 ED 3 000000 001328 C_CODE LD 4 000000 000000 INFOPROG£C ER 5 000000 000000 CEESTART ER 6 000000 000000 CEEBETBL ED 7 000000 000000 C_WSA PR 8 000000 0015CC INFOPROG£S ED 9 000000 001894 D_INFO LD 10 000000 000000 ED 11 000000 0004B4 D_LINE LD 12 000000 000000 ED 13 000000 00025D D_ABREV LD 14 000000 000000 ED 15 000000 000020 D_ARNGE LD 16 000000 000000 ED 17 000000 00001F D_PBNMS LD 18 000000 000000 ED 19 000000 00001F D_PPA LD 20 000000 000000 ED 21 000000 000011 D_SRCF LD 22 000000 000000 ED 23 000000 00011C D_SRCATR LD 24 000000 000000 ED 25 000000 000784 D_XREF LD 26 000000 000000 ED 27 000000 000022 B_IDRL LD 28 000000 000000 INFOPROG£D_SRCF ER 29 000000 000000 IGZXBST1 PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 42 ER 30 000000 000000 INFOPROG ER 31 000000 000000 IGZXFCAL ER 32 000000 000000 IGZXPRS ER 33 000000 000000 IGZXCMSG ER 34 000000 000000 IGZXACP ER 35 000000 000000 IGZXDSP ER 36 000000 000000 IGZXRTN ER 37 000000 000000 IGZXTREN LD 38 000000 000000 INFOPROG ER 39 000000 000000 CEESG004 ED 40 000000 000000 C_ààPPA2 PR 41 000000 000008 ED 42 000000 000000 C_ààCSINIT PR 43 000000 000004 * * * * * S T A T I C M A P * * * * * OFFSET (HEX) LENGTH (HEX) NAME 0 C BLL_Ptrs C C BLT_Ptrs 18 4 JNIENVPTR 20 2 RETURN-CODE 28 2 SORT-RETURN 30 4 TALLY 38 40 SQL---PLIST 78 3C SQL---AVAR-LIST B8 3C SQL---PVAR-LIST F8 182 SQL---PROCNAME 280 80 SQL---CURSORNAME 300 80 SQL---TEMP 380 4 DSN---NROWS 388 2 DSN---NTYPE 390 2 DSN---NLEN 398 A SQL---SCRVALD 3A8 1000 SQL---SCPPD 13A8 4 SQL---SCPPI 13B0 4 SQL-FILE-OVERWRITE 13B8 4 SQL-FILE-APPEND 13C0 44 SQL---VERS 1408 50 CARTE 1458 8 W-DYNA-CEEGTST 1460 4 W-DYNA-HEAPID 1468 4 W-DYNA-SIZE 1470 4 W-DYNA-ADDR 1478 8 IEWBFDAT 1480 4 RC-FUNCTION 1488 2 RC-LAST 1490 4 RC-RETURN 1498 4 RC-REASON 14A0 4 RC-MTOKEN 14A8 A RC-DDNAME 14B8 A RC-MEMBER 14C8 1 RC-GN-MTYPE 14D0 4 RC-GN-CURSOR 14D8 4 RC-GN-COUNT 14E0 4 RC-GC-CULIST PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 43 14E8 4 RC-GC-CURSOR 14F0 4 RC-GC-COUNT 14F4 4 XBNL 14F8 4 XCUI 14FC 24 VNI_cells 1520 60 GPCB 1580 4 WSA24-BASE-ADDRESS 1584 8 TS2=74 158C 8 TS2=77 1594 8 TS2=80 159C 8 TS2=82 15A4 8 TS2=85 15AC 8 TS2=87 15B4 8 TS2=90 15BC 8 TS2=93 15C4 8 TS2=107 * * * * * E N D O F S T A T I C M A P * * * * * * * * * * A U T O M A T I C M A P * * * * * OFFSET (HEX) LENGTH (HEX) NAME Block name: INFOPROG 80 4 _àCAA 110 44 COBDSACB 158 24 VN_cells 180 8 ODOsv_cells 188 68 _ArgumentList 1F0 4 _CACHED_$STATIC 1F4 4 PfmSv_Cell 1F8 4 PfmSv_Cell 1FC 4 PfmSv_Cell 200 4 RefMod-Len 204 4 PfmSv_Cell 208 4 PfmSv_Cell 20C 4 PfmSv_Cell 210 4 PfmSv_Cell 214 4 TS2=73 218 4 PfmSv_Cell 21C 4 PfmSv_Cell 220 4 PfmSv_Cell 224 4 PfmSv_Cell 228 4 PfmSv_Cell 22C 4 PfmSv_Cell 230 4 PfmSv_Cell 238 20 VLC_cells OFFSET (HEX) LENGTH (HEX) NAME Block name: __COMPUNITsinit C 4 __CAACRENT 80 4 _àMYARGS 84 4 _àCAA PP 5655-TRY IBM Enterprise COBOL Developer Trial for z/OS 5.2.0INFOPROG Date 07/15/2015 Time 20:08:48 Page 44 CC 4 _CACHED_$STATIC * * * * * E N D O F A U T O M A T I C M A P * * * * * Compiler back end level: tr.r14.cobol_20150203_84785 * * * * * E N D O F C O M P I L A T I O N * * * * * Return code 4