1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P180914 Date 10/25/2018 Time 10:04:11 Page 1 0PROCESS(CBL) statements: CBL DATA(24),FSRT CBL cbl INITCHECK 0000010 0Options in effect: NOADATA ADV AFP(NOVOLATILE) APOST ARCH(11) ARITH(COMPAT) NOAWO NOBLOCK0 BUFSIZE(4096) NOCICS CODEPAGE(500) NOCOMPILE(S) NOCOPYLOC NOCOPYRIGHT NOCURRENCY DATA(24) DBCS NODECK NODEFINE NODIAGTRUNC DISPSIGN(COMPAT) NODLL NODUMP NODYNAM NOEXIT NOEXPORTALL FASTSRT FLAG(I,W) NOFLAGSTD HGPR(PRESERVE) INITCHECK NOINLINE INTDATE(ANSI) LANGUAGE(EN) LINECOUNT(60) NOLIST MAP(HEX) MAXPCF(100000) NOMDECK NONAME NSYMBOL(NATIONAL) NONUMBER NONUMCHECK NUMPROC(NOPFD) OBJECT OFFSET OPTIMIZE(1) OUTDD(SYSOUT) NOPARMCHECK PGMNAME(COMPAT) QUALIFY(COMPAT) RENT 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P180914 Date 10/25/2018 Time 10:04:11 Page 2 0 RMODE(AUTO) NORULES NOSERVICE NOSEQUENCE SOURCE SPACE(1) NOSQL NOSQLCCSID NOSQLIMS NOSSRANGE NOSTGOPT SUPPRESS NOTERM NOTEST(NODWARF,NOSOURCE,NOSEPARATE) NOTHREAD TRUNC(BIN) NOVBREF VLR(COMPAT) VSAMOPENFS(COMPAT) NOWORD XMLPARSE(COMPAT) NOXREF ZONEDATA(MIG) ZWB 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P180914 YWEND9 Date 10/25/2018 Time 10:04:11 Page 3 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-|--+----8 Map and Cross Reference 0 000001 IDENTIFICATION DIVISION. 00000300 000002 PROGRAM-ID. YWend9. 00000400 000003 ENVIRONMENT DIVISION. 00001500 000004 CONFIGURATION SECTION. 00001600 000005 SPECIAL-NAMES. 00001700 000006 DECIMAL-POINT IS COMMA. 00001800 000007 INPUT-OUTPUT SECTION. 00001900 000008 FILE-CONTROL. 00002000 000009 DATA DIVISION. 00002300 000010 FILE SECTION. 00002400 000011 WORKING-STORAGE SECTION. 00002600 000012 01 ALF pic x(3). 00002800 000000000 3C 000013 01 PCK pic 9(3) comp-3. 00002900 000000000 2P 000014 01 BIN pic 9(3) comp. 00003000 000000000 2C 000015 01 EZN pic zzz. 00003100 000000000 3C 000016 01 NZN pic 999. 00003200 000000000 3C 000017 PROCEDURE DIVISION. 00005700 000018 display 'ALF' ALF. 00006000 000019 display 'PCK' PCK. 00006100 000020 display 'BIN' BIN. 00006200 000021 display 'EZN' EZN. 00006300 000022 display 'NZN' NZN. 00006400 000023 goback. 00011000 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P180914 YWEND9 Date 10/25/2018 Time 10:04:11 Page 4 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 YWEND9------------------------------------------------------------------------------------------------------* 12 1 ALF . . . . . . . . . . . . . . . . . . . . . 000000000 DS 3C Display 13 1 PCK . . . . . . . . . . . . . . . . . . . . . 000000000 DS 2P Packed-Dec 14 1 BIN . . . . . . . . . . . . . . . . . . . . . 000000000 DS 2C Binary 15 1 EZN . . . . . . . . . . . . . . . . . . . . . 000000000 DS 3C Disp-Num-Edit 16 1 NZN . . . . . . . . . . . . . . . . . . . . . 000000000 DS 3C Disp-Num End of Data Division Map 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P180914 YWEND9 Date 10/25/2018 Time 10:04:11 Page 5 0LINEID HEXLOC VERBCODE LINEID HEXLOC VERBCODE LINEID HEXLOC VERBCODE 000018 0001A8 DISPLAY 000019 0001C8 DISPLAY 000020 0001DC DISPLAY 000021 0001F0 DISPLAY 000022 000206 DISPLAY 000023 000218 GOBACK CONSTANT AREA 000368 (+0) 00CCDDFF 00000000 E8E6C5D5 C4F90000 00000000 00000000 00000000 00000000 |........YWEND9..................| 000388 (+32) 00000000 00000000 E8E6C5D5 C4F90000 00000040 00000000 00000002 0000000B |........YWEND9..... ............| 0003A8 (+64) 00000006 00000390 0000000B 00000006 00000390 C1D3C600 00000002 010001F4 |....................ALF........4| 0003C8 (+96) 000003BC 0000000B 00000003 00000000 00000000 0000000B 00000003 00000000 |................................| 0003E8 (+128) D7C3D200 00000002 010001F4 000003E8 0000000B 00000003 00000000 00000000 |PCK........4...Y................| 000408 (+160) 00000012 00000002 00000003 C2C9D500 00000002 010001F4 00000414 0000000B |............BIN........4........| 000428 (+192) 00000003 00000000 00000000 00000010 00000002 00000005 C5E9D500 00000002 |........................EZN.....| 000448 (+224) 010001F4 00000440 0000000B 00000003 00000000 00000000 0000000B 00000003 |...4... ........................| 000468 (+256) 00000003 D5E9D500 00000002 010001F4 0000046C 0000000B 00000003 00000000 |....NZN........4...%............| 000488 (+288) 00000000 0000000B 00000003 00000003 00000000 00000000 00000000 00000000 |................................| 0004A8 (+320) 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................| 0004C8 (+352) 00000000 00000000 00000000 00000000 00000000 40404040 40404040 40404040 |.................... | 0004E8 (+384) 40404040 40404040 40404040 40404040 4040C9C7 E9E2D9E3 C3C40000 0000E2E8 | IGZSRTCD....SY| 000508 (+416) E2D6E4E3 40400000 00000000 00000006 0E0F0000 00000000 F1F8F2F5 F7F6F2F0 |SOUT ..................18257620| 000528 (+448) 00000000 00000390 00000006 04000000 00000000 00000000 E2E8E2D6 E4E34040 |........................SYSOUT | 000548 (+480) 00000000 |.... | PPA1: Entry Point Constants 000550 1CCEA506 =F'483304710' Flags 000554 00000650 =A(PPA2-YWEND9) 000558 000005E0 =A(PPA3-YWEND9) 00055C 00000000 =F'0' No EPD 000560 FFFF0000 =F'-65536' Register Save Mask 000564 40000000 =F'1073741824' Member Flags 000568 90 =AL1(144) Flags 000569 000168 =AL3(360) Callee's DSA use/8 00056C 0000 =AL1(0) Flags 00056E 0012 =H'18' Offset/2 to CDL 000570 D0000108 =F'-805306104' State variable location 000574 00000000 =F'0' CDL function length/2 000578 00000000 =F'0' CDL function EP offset 00057C 00000000 =F'0' CDL prolog 000580 00000000 =F'0' CDL epilog 000584 00000000 =F'0' CDL end 000588 0006 **** AL2(6),C'YWEND9' PPA1 End PPA1: Entry Point Constants 000590 1CCE2106 =F'483270918' Flags 000594 000003D8 =A(PPA2-__COMPUNITsinit) 000598 00000378 =A(PPA3-__COMPUNITsinit) 00059C 00000000 =F'0' No EPD 0005A0 FFFF0000 =F'-65536' Register Save Mask 0005A4 00000000 =F'0' Member Flags 0005A8 90 =AL1(144) Flags 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P180914 YWEND9 Date 10/25/2018 Time 10:04:11 Page 6 0 0005A9 0000D8 =AL3(216) Callee's DSA use/8 0005AC 0000 =AL1(0) Flags 0005AE 0012 =H'18' Offset/2 to CDL 0005B0 00000000 =F'0' State variable location 0005B4 00000000 =F'0' CDL function length/2 0005B8 00000000 =F'0' CDL function EP offset 0005BC 00000000 =F'0' CDL prolog 0005C0 00000000 =F'0' CDL epilog 0005C4 00000000 =F'0' CDL end 0005C8 000F **** AL2(15),C'__COMPUNITsinit' PPA1 End Timestamp and Version Information 000600 F2F0 F1F8 =C'2018' Compiled Year 000604 F1F0 F2F5 =C'1025' Compiled Date MMDD 000608 F1F0 F0F4 F1F1 =C'100411' Compiled Time HHMMSS 00060E F0F6 F0F2 F0F0 =C'060200' VERSION/RELEASE/MOD LEVEL OF PROD Timestamp and Version Information End Compiler Options and Program Information Section 000614 0034 =X'0034' Size of Compiler Options and Prog Info Section 000616 (+00) 01F4 =X'01F4' UNSIGNED BINARY CODE PAGE CCSID VALUE 000618 (+02) 0B =X'0B' ARCHITECTURE LEVEL 000619 (+03) 01 =X'01' OPTIMIZATION LEVEL 00061A (+04) 0002 =X'0002' INFO. BYTES 28-29 00061C (+06) 4800 =X'4800' INFO. BYTES 30-31 00061E (+08) C2AE64042800 =X'C2AE64042800' INFO. BYTES 1-6 000624 (+14) 001000080000 =X'001000080000' INFO. BYTES 7-12 00062A (+20) 000000000800 =X'000000000800' INFO. BYTES 13-18 000630 (+26) 0000000008 =X'0000000008' INFO. BYTES 19-23 000635 (+31) 00 =X'00' COBOL SIGNATURE LEVEL 000636 (+32) 00000005 =X'00000005' # DATA DIVISION STATEMENTS 00063A (+36) 00000006 =X'00000006' # PROCEDURE DIVISION STATEMENTS 00063E (+40) 00008000 =X'00008000' INFO. BYTES 24-27 000642 (+44) D7F1F8F0F9F1F440 =C'P180914 ' BUILD LEVEL INFO Compiler Options and Program Information Section End PPA2: Entry Point Constants 000650 04002203 =F'67117571' Flags 000654 FFFFF9B0 =A(CEESTART-PPA2) 000658 00000058 =F'88' A(PPA4-PPA2) 00065C FFFFFFB0 =A(TIMESTMP-PPA2) 000660 FFFFF9B0 =A(PrimaryEntryPoint-PPA2) 000664 02000000 =F'33554432' Flags PPA2 End PPA3: Entry Point Constants 0005E0 00000000 =F'0' Flags 0005E4 000000A0 =F'160' A(Base_Locator_Table-PPA3) 0005E8 000000B8 =F'184' A(Special_Register_Table-PPA3) 0005E8 000001A8 =X'1A8' A(User_Entry-CUEntry) PPA3 End 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P180914 YWEND9 Date 10/25/2018 Time 10:04:11 Page 7 0 PPA3: Entry Point Constants 0005F0 00000000 =F'0' Flags 0005F4 00000000 =F'0' A(Base_Locator_Table-PPA3) 0005F8 00000000 =F'0' A(Special_Register_Table-PPA3) 0005F8 00000000 =X'0' A(User_Entry-CUEntry) PPA3 End Base Locator Table 000680 01 =X'1' Table Version 000681 00 =X'0' Reserved 000682 0008 =H'8' Header length 000684 00000009 =F'9' Array byte length 000688 2A00 =X'2A00' Flags & info (element 1) 00068A 00000000 =X'0' Offset to cells 00068E 03 =X'3' Cell count 00068F 0000 =X'0' Flags & info (end of array) Base Locator Table End Special Register Table 000698 01 =X'1' Table Version 000699 00 =X'0' Reserved 00069A 0008 =H'8' Header length 00069C 00000006 =F'6' Array byte length 0006A0 13 =X'13' Flags & info (element 1) 0006A1 00000008 =X'8' Offset to cells 0006A5 00 =X'0' Flags & info (end of array) Special Register Table End PPA4: Entry Point Constants 0006A8 08000000 =F'134217728' Flags 1 0006AC 00020100 =F'131328' Flags 2 0006B0 00000000 =F'0' A(NORENTstatic) 0006B4 00000000 =F'0' Q(RENTstatic) 0006B8 0000006C =F'108' A(DATA24_address_cell-RENTstatic) 0006BC FFFFF958 =F'-1704' A(Code-PPA4) 0006C0 000006E8 =F'1768' Code Length 0006C4 00000000 =F'0' Length NORENTstatic 0006C8 00000070 =F'112' Length RENTstatic 0006CC 000000BB =F'187' Length DATA24 0006D0 002A =X'2A' A(CUName-PPA4) 0006DA 00000098 =X'98' Offset UsrWrkStrg 0006DE 00000023 =X'23' Length UsrWrkStrg 0006E2 00 =X'0' Has Externals 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 YWEND9 ED 2 000000 000000 C_CEESG003 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P180914 YWEND9 Date 10/25/2018 Time 10:04:11 Page 8 0 ED 3 000000 0006E8 C_CODE LD 4 000000 000000 YWEND9#C ER 5 000000 000000 CEESTART ER 6 000000 000000 CEEBETBL ED 7 000000 000000 C_WSA PR 8 000000 000070 YWEND9#S ED 9 000000 000022 B_IDRL ER 10 000000 000000 IGZXBST3 ER 11 000000 000000 YWEND9 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 YWEND9 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 S A 2 4 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 98 3 ALF A0 2 PCK A8 2 BIN B0 3 EZN 1PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.2.0 P180914 YWEND9 Date 10/25/2018 Time 10:04:11 Page 9 0 B8 3 NZN * * * * * E N D O F W S A 2 4 M A P * * * * * * * * * * A U T O M A T I C M A P * * * * * OFFSET (HEX) LENGTH (HEX) NAME Block name: YWEND9 80 4 _@CAA C8 4 _CACHED_$WORKING-STORAGE CC 4 _CACHED_$STATIC D0 4 _CACHED_CRENT D4 4 TS2=6 D8 4 TS2=5 E0 28 _ArgumentList 108 44 COBDSACB 150 18 VLC_cells OFFSET (HEX) LENGTH (HEX) NAME Block name: __COMPUNITsinit C 4 __CAACRENT 80 4 _@MYARGS 84 4 _@CAA CC 4 _CACHED_$STATIC D0 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_20180821_1350_rYwnQqVqEeitLMuu6VxByg * * * * * 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 P180914 YWEND9 Date 10/25/2018 Time 10:04:11 Page 10 0LineID Message code Message text 18 IGYCB7311-W The data item 'ALF' may be used at this statement before it is set. 19 IGYCB7311-W The data item 'PCK' may be used at this statement before it is set. 20 IGYCB7311-W The data item 'BIN' may be used at this statement before it is set. 21 IGYCB7311-W The data item 'EZN' may be used at this statement before it is set. 22 IGYCB7311-W The data item 'NZN' may be used at this statement before it is set. -Messages Total Informational Warning Error Severe Terminating 0Printed: 5 5 -* Statistics for COBOL program YWEND9: * Source records = 23 * Data Division statements = 5 * Procedure Division statements = 6 * Generated COBOL statements = 0 * Program complexity factor = 6 0End of compilation 1, program YWEND9, highest severity 4. 0Return code 4