1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 Date 01/24/2022 Time 20:01:29 Page 1 0Invocation parameters: OPTFILE 0PROCESS(CBL) statements: CBL LIST 0Options from SYSOPTF: ARCH(11) AWO BLOCK0 BUFSIZE(8K) DIAGTRUNC DISPSIGN(SEP) FASTSRT INITCHECK NOINLINE LIST MAP(HEX) NUMCHECK(MSG) NUMPROC(NOPFD) OPTIMIZE(1) PARMCHECK(ABD,16) RULES(ENDPERIOD) RULES(NOEVENPACK) RULES(NOLAXPERF) RULES(NOOMITODOMIN) RULES(NOSLACKBYTES) RULES(NOUNREFSOURCE) NOSEQUENCE NOSQLCCSID SSRANGE(ZLEN) TEST(NODWARF,EJPD,NOSEPARATE,NOSOURCE) TRUNC(BIN) VSAMOPENFS(SUCC) ZONEDATA(NOPFD) NOCICS DEFINE(ISBATCH=B'1') DEFINE(ISCICS=B'0') DEFINE(ISEXCI=B'0') DYNAM NONAME NOADV APOST CODEPAGE(1147) 0Options in effect: NOADATA NOADV AFP(NOVOLATILE) APOST ARCH(11) ARITH(COMPAT) AWO BLOCK0 BUFSIZE(8192) NOCICS CODEPAGE(1147) NOCOMPILE(S) 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 Date 01/24/2022 Time 20:01:29 Page 2 0 NOCOPYLOC NOCOPYRIGHT NOCURRENCY DATA(31) DBCS NODECK DEFINE(ISBATCH=B'1') DEFINE(ISCICS=B'0') DEFINE(ISEXCI=B'0') DIAGTRUNC DISPSIGN(SEP) NODLL NODUMP DYNAM NOEXIT NOEXPORTALL FASTSRT FLAG(I,I) NOFLAGSTD HGPR(PRESERVE) INITCHECK(LAX) NOINITIAL NOINLINE INTDATE(ANSI) LANGUAGE(EN) LINECOUNT(60) LIST MAP(HEX) MAXPCF(100000) NOMDECK NONAME NSYMBOL(NATIONAL) NONUMBER NUMCHECK(ZON(ALPHNUM,STRICTREDEF),PAC,BIN,MSG) NUMPROC(NOPFD) OBJECT NOOFFSET OPTIMIZE(1) OUTDD(SYSOUT) PARMCHECK(ABD,16) PGMNAME(COMPAT) QUALIFY(COMPAT) RENT RMODE(AUTO) RULES(ENDPERIOD,EVENPACK,LAXPERF,OMITODOMIN,SLACKBYTES,NOUNREFSOURCE) NOSERVICE NOSEQUENCE SOURCE SPACE(1) NOSQL NOSQLCCSID NOSQLIMS SSRANGE(ZLEN,ABD) NOSTGOPT SUPPRESS NOTERM TEST(EJPD,NODWARF,NOSOURCE,NOSEPARATE) NOTHREAD 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 Date 01/24/2022 Time 20:01:29 Page 3 0 TRUNC(BIN) NOVBREF VLR(STANDARD) VSAMOPENFS(SUCC) NOWORD XMLPARSE(XMLSS) XREF(FULL) ZONEDATA(NOPFD) ZWB 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 Date 01/24/2022 Time 20:01:29 Page 4 0LineID Message code Library phase message text 8 IGYLI0245-E "VAR-NOTDEF" was not defined as a compilation variable. A value of 1 was assumed for the variable. -Messages Total Informational Warning Error Severe Terminating 0Printed: 1 1 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 5 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 0/* TESTNDEF 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. TESTNDEF. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 >>define VAR-DEF as b'1' 000007 >>if VAR-NOTDEF is defined 000008 * >>define VAR-DEF as VAR-NOTDEF 000009 >>end-if 000010 PROCEDURE DIVISION. 000011 MAIN SECTION. 000012 >>if VAR-DEF 000013 display "VAR-DEF is defined" 000014 >>else 000015 * display "VAR-DEF is not defined" 000016 >>end-if 000017 goback. */ TESTNDEF 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 6 0An "M" preceding a data-name reference indicates that the data-name is modified by this reference. Defined Cross-reference of data names References 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 7 0Context 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 11 MAIN 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 8 0 Defined Cross-reference of programs References 2 TESTNDEF 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 9 0Data Division Map 0Data 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 0Source Hierarchy and Base Displacement Asmblr Data Data Def LineID Data Name Locator Structure Definition Data Type Attributes 2 PROGRAM-ID TESTNDEF----------------------------------------------------------------------------------------------------* End of Data Division Map 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 10 0 000002: PROGRAM-ID. TESTNDEF. 000000 000002 PROC TESTNDEF 000000 47F0 F014 000002 BC R15,20(,R15) £ Skip over constant area 000004 01C3 C5C5 000002 DC X'01C3C5C5' £ Eyecatcher: CEE 000008 0000 0178 000002 DC X'00000178' £ Stack Size 00000C 0000 0458 000002 DC X'00000458' £ Offset to PPA1 000010 47F0 F001 000002 BC R15,1(,R15) £ Wrong Entry Point: cause exception 000014 000002 L0098: 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 L0100: EQU * £ Boot Strap Info Block 000024 0000 0000 000002 DC X'00000000' £ address of entry label 000028 0000 0094 000002 DC X'00000094' £ WSA allocation size 00002C 0000 0524 000002 DC X'00000524' £ address of Saved Option String 000030 0000 0490 000002 DC X'00000490' £ address of entry point name 000034 0000 005C 000002 DC X'0000005C' £ A(Label L0099) 000038 0000 0000 000002 DC X'00000000' £ address of boot strap routine(IGZXBST3) 00003C 000002 L0101: EQU * £ CEE Parameter Block 00003C 0000 0024 000002 DC X'00000024' £ address of infoBlockLabel 000040 0000 053C 000002 DC X'0000053C' £ A(PARMCEE-CEEEPARMBlock) 000044 0000 0228 000002 DC X'00000228' £ A(sinit) 000048 0000 0000 000002 DC X'00000000' £ reserved 00004C 000002 L0096: 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 L0097 £ Branch back 00005C 000002 ąMAINENT DS 0H £ PRIMARY ENTRY POINT ADDRESS 00005C 000002 L0099: EQU * £ User Code Entry Point 00005C 18EF 000002 LR R14,R15 £ Load NAB 00005E 4100 E178 000002 LA R0,376(,R14) £ New NAB Address 000062 5500 C314 000002 CL R0,788(,R12) £ Exceed current storage segment? 000066 A724 FFF3 000002 JH L0096 £ Yes: branch to recovery code 00006A 000002 L0097: 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 D118 000002 LA R0,280(,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 EB1F D08C 0026 000002 STMH R1,R15,140(,R13) £ 00009A 000002 L0103: EQU * 00009A 50C0 D080 000002 ST R12,128(,R13) £ 00009E C030 0000 013D 000002 LARL R3,$CONSTANT_AREA 0000A4 5810 C1F4 000002 L R1,500(,R12) £ 0000A8 5010 D0DC 000002 ST R1,220(,R13) £ 0000AC 5820 3014 000002 L R2,20(,R3) £ 0000B0 4122 1000 000002 LA R2,0(R2,R1) £ 0000B4 1882 000002 LR R8,R2 0000B6 5020 D0D8 000002 ST R2,216(,R13) £ 0000BA D743 D118 D118 000002 XC 280(68,R13),280(R13) £ 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 11 0 0000C0 E54C D118 0006 000002 MVHI 280(,R13),X'0006' £ 0000C6 4100 200C 000002 LA R0,12(,R2) £ GPCB 0000CA 5000 D13C 000002 ST R0,316(,R13) £ 0000CE 9181 2050 000002 TM 80(,R2),X'81' £ IPCB_Status 0000D2 A714 0017 000002 JO L0003 0000D6 5000 D0F0 000002 ST R0,240(,R13) £ 0000DA 4100 D118 000002 LA R0,280(,R13) £ COBDSACB 0000DE 5000 D0F4 000002 ST R0,244(,R13) £ 0000E2 4110 D0F0 000002 LA R1,240(,R13) £ _ArgumentList 0000E6 58F0 3018 000002 L R15,24(,R3) £ 0000EA 0DEF 000002 BASR R14,R15 £ Call "IGZXPRS" 0000EC 50F0 206C 000002 ST R15,108(,R2) £ 0000F0 C004 0000 0000 000002 NOP 0000F6 C004 0000 0000 000002 NOP 0000FC 4700 0000 000002 NOP 000100 000002 L0003: EQU * 000100 5820 804C 000002 L R2,76(,R8) £ IPCB_NumEnts 000104 A72A 0001 000002 AHI R2,0x1 000108 5020 804C 000002 ST R2,76(,R8) £ IPCB_NumEnts 00010C EC28 000D 017E 000002 CIJ R2,L0004,1,(mask=0x8), 000112 D223 D0F0 3038 000002 MVC 240(36,R13),56(R3) £ 000118 4110 D0F0 000002 LA R1,240(,R13) £ _ArgumentList 00011C 58F0 301C 000002 L R15,28(,R3) £ 000120 58C0 D080 000002 L R12,128(,R13) £ 000124 0DEF 000002 BASR R14,R15 £ Call "IGZXCMSG" 000126 000002 L0004: EQU * 000126 C059 8000 0000 000002 IILF R5,X'80000000' 00012C 5820 8050 000002 L R2,80(,R8) £ IPCB_Status 000130 1842 000002 LR R4,R2 000132 C04B 8000 0000 000002 NILF R4,X'80000000' 000138 EC45 003B 8076 000002 CRJ R4,R5,USER-ENTRY,(mask=0x8), 00013E 5840 806C 000002 L R4,108(,R8) £ 000142 E544 4008 0000 000000 MVHHI 8(,R4),X'0000' £ 000148 E544 4010 0000 000000 MVHHI 16(,R4),X'0000' £ 00014E E54C 4088 0000 000000 MVHI 136(,R4),X'0000' £ 000154 E54C 4090 0000 000000 MVHI 144(,R4),X'0000' £ 00015A D20B 4018 30EA 000000 MVC 24(12,R4),234(R3) £ SORT-CONTROL +234 000160 E54C 4028 0000 000000 MVHI 40(,R4),X'0000' £ 000166 E54C 4030 0000 000000 MVHI 48(,R4),X'0000' £ 00016C D20B 4038 30F6 000000 MVC 56(12,R4),246(R3) £ SORT-MESSAGE +246 000172 920E 4048 000000 MVI 72(,R4),X'0E' £ SHIFT-OUT 000176 920F 4050 000000 MVI 80(,R4),X'0F' £ SHIFT-IN 00017A E54C 4058 0000 000000 MVHI 88(,R4),X'0000' £ 000180 E54C 4080 0000 000000 MVHI 128(,R4),X'0000' £ 000186 9240 4060 000000 MVI 96(,R4),X'40' £ XML-EVENT 00018A D21C 4061 4060 000000 MVC 97(29,R4),96(R4) £ XML-EVENT XML-EVENT 000190 1848 000002 LR R4,R8 000192 5040 4000 000000 ST R4,0(,R4) £ BLT_1 000196 4150 4004 000000 LA R5,4(,R4) £ BLT_2 00019A 5050 4004 000000 ST R5,4(,R4) £ BLT_2 00019E 4150 4008 000000 LA R5,8(,R4) £ BLT_3 0001A2 5050 4008 000000 ST R5,8(,R4) £ BLT_3 0001A6 A52A 8100 000002 OILH R2,0x8100 0001AA 5020 4050 000002 ST R2,80(,R4) £ IPCB_Status 0001AE 000002 USER-ENTRY: EQU * 0001AE 000002 SNAPSHOT ENTRY 0001AE 000011 MAIN: EQU * 0001AE 000011 SNAPSHOT PATHLABEL 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 12 0 000013: display "VAR-DEF is defined" 0001AE 000013 SNAPSHOT STMT 0001AE D217 D0F0 3070 000013 MVC 240(24,R13),112(R3) £ 0001B4 4120 D0F0 000013 LA R2,240(,R13) £ _ArgumentList 0001B8 1812 000013 LR R1,R2 0001BA 58F0 3020 000013 L R15,32(,R3) £ 0001BE 58C0 D080 000013 L R12,128(,R13) £ 0001C2 0DEF 000013 BASR R14,R15 £ Call "IGZXDSP" 000017: goback. 0001C4 000017 SNAPSHOT STMT 0001C4 000017 SNAPSHOT EXIT 0001C4 9181 D11C 000017 TM 284(,R13),X'81' £ DSAFlags 0001C8 A784 001D 000017 JE L0005 0001CC A718 0000 000017 LHI R1,0x0 0001D0 58F0 3024 000017 L R15,36(,R3) £ 0001D4 0DEF 000017 BASR R14,R15 £ Call "IGZXRTN" 0001D6 1812 000017 LR R1,R2 0001D8 9180 D11C 000017 TM 284(,R13),X'80' £ DSAFlags 0001DC A784 0013 000017 JE L0005 0001E0 E54C D0E4 0000 000017 MVHI 228(,R13),X'0000' £ 0001E6 E54C D0E0 0000 000017 MVHI 224(,R13),X'0000' £ 0001EC 000002 SNAPSHOT EXIT 0001EC 4120 D0E4 000002 LA R2,228(,R13) £ TS2=5 0001F0 5020 1000 000002 ST R2,0(,R1) £ 0001F4 4120 D0E0 000002 LA R2,224(,R13) £ TS2=6 0001F8 5020 1004 000002 ST R2,4(,R1) £ 0001FC 58F0 3028 000002 L R15,40(,R3) £ 000200 0DEF 000002 BASR R14,R15 £ Call "IGZXTREN" 000202 000017 L0005: EQU * 000202 EBFF 804C 006A 000017 ASI 76(,R8),X'FF' £ IPCB_NumEnts 000208 000002 SNAPSHOT EXIT 000208 E544 D0E8 0000 000002 MVHHI 232(,R13),X'0000' £ 00020E 000002 SNAPSHOT EXIT 00020E A7F8 0000 000002 LHI R15,0x0 000212 EB1F D08C 0096 000002 LMH R1,R15,140(,R13) £ 000218 58D0 D004 000002 L R13,4(,R13) £ Caller's DSA 00021C 58E0 D00C 000002 L R14,12(,R13) £ Return Address 000220 980C D014 000002 LM R0,R12,20(,R13) £ Restore Caller's registers 000224 07FE 000002 BR R14 £ Return 000226 0707 000002 BCR 0,R7 000228 000002 RET *** General purpose registers used: 1111111110101111 *** Floating point registers used: 0000000000000000 *** Size of dynamic storage: 376 *** Size of executable code: 552 000228 000000 PROC __COMPUNITsinit 000228 47F0 F024 000000 BC R15,36(,R15) £ Skip over constant area 00022C 01C3 C5C5 000000 DC X'01C3C5C5' £ Eyecatcher: CEE 000230 0000 00E8 000000 DC X'000000E8' £ Stack Size 000234 0000 0278 000000 DC X'00000278' £ Offset to PPA1 000238 47F0 F001 000000 BC R15,1(,R15) £ Wrong Entry Point: cause exception 00023C 000000 L0018: EQU * 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 13 0 00023C 000000 L0016: EQU * £ Handle growing stack 00023C 58F0 C31C 000000 L R15,796(,R12) £ Load CEECAAOGETS 000240 184E 000000 LR R4,R14 £ Required NAB 000242 05EF 000000 BALR R14,R15 £ Extend Stack 000244 0000 0000 000000 DC X'00000000' £ Argument list size = 0 000248 A7F4 000C 000000 J L0017 £ Branch back 00024C 90EC D00C 000000 STM R14,R12,12(,R13) £ Save GPRs Used 000250 58E0 D04C 000000 L R14,76(,R13) £ Load NAB 000254 4100 E0E8 000000 LA R0,232(,R14) £ New NAB Address 000258 5500 C314 000000 CL R0,788(,R12) £ Exceed current storage segment? 00025C A724 FFF0 000000 JH L0016 £ Yes: branch to recovery code 000260 000000 L0017: EQU * £ Stack now has sufficient room 000260 5000 E04C 000000 ST R0,76(,R14) £ Update NAB 000264 C001 0011 0301 000000 LGFI R0,X'00110301' £ load COBOL Language Word 00026A 5000 E000 000000 ST R0,0(,R14) £ Save Language Word 00026E 50D0 E004 000000 ST R13,4(,R14) £ Save Back Chain 000272 18DE 000000 LR R13,R14 £ Set new DSA 000274 E54C D074 0000 000000 MVHI 116(,R13),X'0000' £ Zero COBDSA 00027A E54C D070 0000 000000 MVHI 112(,R13),X'0000' £ zero member slot0 000280 5060 D060 000000 ST R6,96(,R13) £ set member slot3 000284 5070 D068 000000 ST R7,104(,R13) £ set member slot2 000288 EB1F D090 0026 000000 STMH R1,R15,144(,R13) £ 00028E 000000 L0019: EQU * 00028E C030 0000 0045 000000 LARL R3,$CONSTANT_AREA 000294 5800 C1F4 000000 L R0,500(,R12) £ 000298 5000 D0E0 000000 ST R0,224(,R13) £ 00029C 5820 1000 000000 L R2,0(,R1) £ 0002A0 5840 3014 000000 L R4,20(,R3) £ 0002A4 4124 2000 000000 LA R2,0(R4,R2) £ 0002A8 1882 000000 LR R8,R2 0002AA 5020 D0DC 000000 ST R2,220(,R13) £ 0002AE E54C 204C 0000 000000 MVHI 76(,R2),X'0000' £ IPCB_NumEnts 0002B4 4140 200C 000000 LA R4,12(,R2) £ GPCB_Version 0002B8 5040 2068 000000 ST R4,104(,R2) £ 0002BC D217 4000 3110 000000 MVC 0(24,R4),272(R3) £ GPCB_Version 0002C2 4100 204C 000000 LA R0,76(,R2) £ IPCB_NumEnts 0002C6 5000 2014 000000 ST R0,20(,R2) £ 0002CA E54C 2028 0000 000000 MVHI 40(,R2),X'0000' £ 0002D0 E54C 2034 0000 000000 MVHI 52(,R2),X'0000' £ 0002D6 E54C 202C 0000 000000 MVHI 44(,R2),X'0000' £ 0002DC D213 2038 3128 000000 MVC 56(20,R2),296(R3) £ GPCB_ASCII->EBCDICPtr(V2 +296 0002E2 5800 310C 000000 L R0,268(,R3) £ 0002E6 5000 2054 000000 ST R0,84(,R2) £ 0002EA E54C 2058 0000 000000 MVHI 88(,R2),X'0000' £ 0002F0 E54C 2060 0000 000000 MVHI 96(,R2),X'0000' £ 0002F6 E54C 2050 0000 000000 MVHI 80(,R2),X'0000' £ 0002FC E54C 205C 0000 000000 MVHI 92(,R2),X'0000' £ 000302 EB1F D090 0096 000000 LMH R1,R15,144(,R13) £ 000308 58D0 D004 000000 L R13,4(,R13) £ Caller's DSA 00030C 58E0 D00C 000000 L R14,12(,R13) £ Return Address 000310 980C D014 000000 LM R0,R12,20(,R13) £ Restore Caller's registers 000314 07FE 000000 BR R14 £ Return 000316 0707 000000 BCR 0,R7 000318 000000 RET *** General purpose registers used: 1111101110000111 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 14 0 *** Floating point registers used: 0000000000000000 *** Size of dynamic storage: 232 *** Size of executable code: 240 CONSTANT AREA 000318 (+0) 00CCDDFF 00000000 E3C5E2E3 D5C4C5C6 00000000 00000000 00000000 00000000 !........TESTNDEF................! 000338 (+32) 00000000 00000000 00000000 00000000 E3C5E2E3 D5C4C5C6 00000040 00000000 !................TESTNDEF... ....! 000358 (+64) 00000002 0000000B 00000008 00000348 0000000B 00000008 00000348 E5C1D960 !............................VAR-! 000378 (+96) C4C5C640 89A24084 85868995 85840000 00000001 0106047B 00000374 0000000B !DEF is defined.........£........! 000398 (+128) 00000012 00000000 00000000 00000000 00000000 00000000 00000000 00000000 !................................! 0003B8 (+160) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 !................................! 0003D8 (+192) 00000000 00000000 00000000 40404040 40404040 40404040 40404040 40404040 !............ ! 0003F8 (+224) 40404040 40404040 4040C9C7 E9E2D9E3 C3C40000 0000E2E8 E2D6E4E3 40400000 ! IGZSRTCD....SYSOUT ..! 000418 (+256) 00000000 00000006 0E0F0000 00000000 F2F0F1F5 F3F6F2F0 00000000 00000348 !................20153620........! 000438 (+288) 00000008 04000000 00000000 00000000 E2E8E2D6 E4E34040 00000000 !................SYSOUT .... ! PPA1: Entry Point Constants 000458 1CCEA506 =F'483304710' Flags 00045C 00000560 =A(PPA2-TESTNDEF) 000460 000004F0 =A(PPA3-TESTNDEF) 000464 00000000 =F'0' No EPD 000468 FFFF0000 =F'-65536' Register Save Mask 00046C 40000000 =F'1073741824' Member Flags 000470 90 =AL1(144) Flags 000471 000178 =AL3(376) Callee's DSA use/8 000474 0000 =AL1(0) Flags 000476 0012 =H'18' Offset/2 to CDL 000478 D0000118 =F'-805306088' State variable location 00047C 00000000 =F'0' CDL function length/2 000480 00000000 =F'0' CDL function EP offset 000484 00000000 =F'0' CDL prolog 000488 00000000 =F'0' CDL epilog 00048C 00000000 =F'0' CDL end 000490 0008 **** AL2(8),C'TESTNDEF' PPA1 End PPA1: Entry Point Constants 0004A0 1CCE2106 =F'483270918' Flags 0004A4 00000338 =A(PPA2-__COMPUNITsinit) 0004A8 000002D8 =A(PPA3-__COMPUNITsinit) 0004AC 00000000 =F'0' No EPD 0004B0 FFFF0000 =F'-65536' Register Save Mask 0004B4 00000000 =F'0' Member Flags 0004B8 90 =AL1(144) Flags 0004B9 0000E8 =AL3(232) Callee's DSA use/8 0004BC 0000 =AL1(0) Flags 0004BE 0012 =H'18' Offset/2 to CDL 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 15 0 0004C0 00000000 =F'0' State variable location 0004C4 00000000 =F'0' CDL function length/2 0004C8 00000000 =F'0' CDL function EP offset 0004CC 00000000 =F'0' CDL prolog 0004D0 00000000 =F'0' CDL epilog 0004D4 00000000 =F'0' CDL end 0004D8 000F **** AL2(15),C'__COMPUNITsinit' PPA1 End Timestamp and Version Information 000510 F2F0 F2F2 =C'2022' Compiled Year 000514 F0F1 F2F4 =C'0124' Compiled Date MMDD 000518 F2F0 F0F1 F2F9 =C'200129' Compiled Time HHMMSS 00051E F0F6 F0F2 F0F0 =C'060200' VERSION/RELEASE/MOD LEVEL OF PROD Timestamp and Version Information End Compiler Options and Program Information Section 000524 0034 =X'0034' Size of Compiler Options and Prog Info Section 000526 (+00) 047B =X'047B' UNSIGNED BINARY CODE PAGE CCSID VALUE 000528 (+02) 0B =X'0B' ARCHITECTURE LEVEL 000529 (+03) 01 =X'01' OPTIMIZATION LEVEL 00052A (+04) 0F02 =X'0F02' INFO. BYTES 28-29 00052C (+06) 04EC =X'04EC' INFO. BYTES 30-31 00052E (+08) 66EA668C3800 =X'66EA668C3800' INFO. BYTES 1-6 000534 (+14) 001800080000 =X'001800080000' INFO. BYTES 7-12 00053A (+20) 000000000800 =X'000000000800' INFO. BYTES 13-18 000540 (+26) 000000000E =X'000000000E' INFO. BYTES 19-23 000545 (+31) 00 =X'00' COBOL SIGNATURE LEVEL 000546 (+32) 00000000 =X'00000000' £ DATA DIVISION STATEMENTS 00054A (+36) 00000002 =X'00000002' £ PROCEDURE DIVISION STATEMENTS 00054E (+40) 00008001 =X'00008001' INFO. BYTES 24-27 000552 (+44) D7F2F0F0F6F0F140 =C'P200601 ' BUILD LEVEL INFO Compiler Options and Program Information Section End PPA2: Entry Point Constants 000560 04002203 =F'67117571' Flags 000564 FFFFFAA0 =A(CEESTART-PPA2) 000568 00000058 =F'88' A(PPA4-PPA2) 00056C FFFFFFB0 =A(TIMESTMP-PPA2) 000570 FFFFFAA0 =A(PrimaryEntryPoint-PPA2) 000574 02000000 =F'33554432' Flags PPA2 End PPA3: Entry Point Constants 0004F0 00000000 =F'0' Flags 0004F4 000000A0 =F'160' A(Base_Locator_Table-PPA3) 0004F8 000000B8 =F'184' A(Special_Register_Table-PPA3) 0004FC 000001AE =X'1AE' A(User_Entry-CUEntry) PPA3 End PPA3: Entry Point Constants 000500 00000000 =F'0' Flags 000504 00000000 =F'0' A(Base_Locator_Table-PPA3) 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 16 0 000508 00000000 =F'0' A(Special_Register_Table-PPA3) 00050C 00000000 =X'0' A(User_Entry-CUEntry) PPA3 End Base Locator Table 000590 01 =X'1' Table Version 000591 00 =X'0' Reserved 000592 0008 =H'8' Header length 000594 00000009 =F'9' Array byte length 000598 2A00 =X'2A00' Flags & info (element 1) 00059A 00000000 =X'0' Offset to cells 00059E 03 =X'03' Cell count 00059F 0000 =X'0' Flags & info (end of array) Base Locator Table End Special Register Table 0005A8 01 =X'1' Table Version 0005A9 00 =X'0' Reserved 0005AA 0008 =H'8' Header length 0005AC 00000006 =F'6' Array byte length 0005B0 13 =X'13' Flags & info (element 1) 0005B1 00000008 =X'8' Offset to cells 0005B5 00 =X'0' Flags & info (end of array) Special Register Table End PPA4: Entry Point Constants 0005B8 0A000000 =F'167772160' Flags 1 0005BC 00020100 =F'131328' Flags 2 0005C0 00000000 =F'0' A(NORENTstatic) 0005C4 00000000 =F'0' Q(RENTstatic) 0005C8 0000006C =F'108' A(DATA31_address_cell-RENTstatic) 0005CC FFFFFA48 =F'-1464' A(Code-PPA4) 0005D0 00000608 =F'1544' Code Length 0005D4 00000000 =F'0' Length NORENTstatic 0005D8 00000070 =F'112' Length RENTstatic 0005DC 00000094 =F'148' Length DATA31 0005E0 003F =X'3F' A(CUName-PPA4) 0005E2 0000 =X'0' PPA4 Minor Ver 0005EC 7FFFFFFF =X'7FFFFFFF' Offset UsrWrkStrg 0005F0 00000000 =X'0' Length UsrWrkStrg 0005F4 00 =X'0' Has Externals 0005F5 0000 =X'0' A(SYSDEBUGName-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 TESTNDEF ED 2 000000 000000 C_CEESG003 ED 3 000000 000608 C_CODE 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 17 0 LD 4 000000 000000 TESTNDEF£C ER 5 000000 000000 CEESTART ER 6 000000 000000 CEEBETBL ED 7 000000 000000 C_WSA PR 8 000000 000070 TESTNDEF£S ED 9 000000 000022 B_IDRL ER 10 000000 000000 IGZXBST3 ER 11 000000 000000 TESTNDEF ER 12 000000 000000 IGZXPRS ER 13 000000 000000 IGZXCMSG ER 14 000000 000000 IGZXDSP ER 15 000000 000000 IGZXRTN ER 16 000000 000000 IGZXTREN LD 17 000000 000000 TESTNDEF ER 18 000000 000000 CEESG004 ER 19 000000 000000 IGZXBS61 ED 20 000000 000000 C_ąąPPA2 PR 21 000000 000008 ED 22 000000 000000 C_ąąCSINIT PR 23 000000 000004 * * * * * S T A T I C M A P * * * * * OFFSET (HEX) LENGTH (HEX) NAME 0 C BLT_Ptrs C 60 GPCB 6C 4 WS-BASE-ADDRESS * * * * * E N D O F S T A T I C M A P * * * * * * * * * * W O R K I N G - S T O R A G E M A P * * * * * OFFSET (HEX) LENGTH (HEX) NAME 0 4 JNIENVPTR 8 2 RETURN-CODE 10 2 SORT-RETURN 18 8 SORT-CONTROL 20 4 SORT-CORE-SIZE 28 4 SORT-FILE-SIZE 30 4 SORT-MODE-SIZE 38 8 SORT-MESSAGE 40 4 TALLY 48 1 SHIFT-OUT 50 1 SHIFT-IN 58 4 XML-CODE 60 1E XML-EVENT 80 4 XML-INFORMATION 88 4 JSON-CODE 90 4 JSON-STATUS * * * * * E N D O F W - S T O R . M A P * * * * * * * * * * A U T O M A T I C M A P * * * * * 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 18 0 OFFSET (HEX) LENGTH (HEX) NAME Block name: TESTNDEF 80 4 _ąCAA D8 4 _CACHED_$STATIC DC 4 _CACHED_CRENT E0 4 TS2=6 E4 4 TS2=5 E8 2 _returnValue F0 24 _ArgumentList 118 44 COBDSACB 160 18 VLC_cells OFFSET (HEX) LENGTH (HEX) NAME Block name: __COMPUNITsinit C 4 __CAACRENT 80 4 _ąMYARGS 84 4 _ąCAA DC 4 _CACHED_$STATIC E0 4 _CACHED_CRENT * * * * * E N D O F A U T O M A T I C M A P * * * * * Compiler back end level: tr_r16_cobol_20200529_1919_0mSJ46ICEeqoZOBGQwW8kQ * * * * * E N D O F C O M P I L A T I O N * * * * * 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P200601 TESTNDEF Date 01/24/2022 Time 20:01:29 Page 19 0LineID Message code Message text IGYSC0206-E Error message(s) were issued during library phase processing. Refer to the beginning of the listing. -Messages Total Informational Warning Error Severe Terminating 0Printed: 1 1 -* Statistics for COBOL program TESTNDEF: * Source records = 17 * Data Division statements = 0 * Procedure Division statements = 2 * Generated COBOL statements = 0 * Program complexity factor = 2 0End of compilation 1, program TESTNDEF, highest severity 8. 0Return code 8