1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 Date 07/09/2012 Time 17:14:01 Page 1 0Invocation parameters: APOST,DYN,TRUNC(OPT) -Options in effect: NOADATA NOADV APOST ARITH(COMPAT) NOAWO BUFSIZE(4096) NOCICS CODEPAGE(1141) NOCOMPILE(E) CURRENCY("€") DATA(31) NODATEPROC NODBCS NODECK NODIAGTRUNC NODLL NODUMP DYNAM NOEXIT NOEXPORTALL NOFASTSRT FLAG(I,W) NOFLAGSTD INTDATE(LILIAN) LANGUAGE(EN) LIB LINECOUNT(56) LIST MAP NOMDECK NONAME NSYMBOL(DBCS) NONUMBER NUMPROC(NOPFD) OBJECT NOOFFSET OPTIMIZE(FULL) OUTDD(SYSOUT) PGMNAME(COMPAT) RENT RMODE(AUTO) NOSEQUENCE SIZE(MAX) SOURCE SPACE(1) NOSQL SQLCCSID NOSSRANGE NOTERM 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 Date 07/09/2012 Time 17:14:01 Page 2 0 NOTEST NOTHREAD TRUNC(OPT) NOVBREF NOWORD XREF(FULL) YEARWINDOW(1900) ZWB 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 3 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 0 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P96N70B. 000003 *--------------------------------------------------------------* 000004 * function name.........: U44RALF / P96N70B 000005 * author................: Ralf Seidler, cps4it 000006 * date of implementation: 26.09.2007 000007 * if-name...............: none 000008 * op-name...............: none 000009 * 000010 * description...........: Dies ist ein Testprogramm fuer alles 000011 * Moegliche und Unmoegliche. 000012 * 000013 * changes...............: tt.mm.jjjj name 000014 * - text 000015 * 000016 *--------------------------------------------------------------* 000017 *- -* 000018 ENVIRONMENT DIVISION. 000019 DATA DIVISION. 000020 WORKING-STORAGE SECTION. 000021 * 000022 *--------------------------------------------------------------* 000023 *- 1. Anfang Felddefinitionen -* 000024 *- -* 000025 01 DATEN. BLW=00000+000 0CL119 000026 05 I-BIN PIC S9(08) BINARY SYNC. BLW=00000+000,0000000 1F 000027 05 I-DEC PIC S9(08) PACKED-DECIMAL. BLW=00000+004,0000004 5P 000028 05 I-DIS PIC S9(08). BLW=00000+009,0000009 8C 000029 *- -* 000030 05 I-BIN-MAX PIC S9(08) BINARY SYNC. BLW=00000+014,0000014 1F 000031 05 I-DEC-MAX PIC S9(08) PACKED-DECIMAL. BLW=00000+018,0000018 5P 000032 05 I-DIS-MAX PIC S9(08). BLW=00000+01D,000001D 8C 000033 *- -* 000034 05 INHALT PIC X(02). BLW=00000+025,0000025 2C 000035 *- -* 000036 05 ZEILE PIC X(80). BLW=00000+027,0000027 80C 000037 05 FILLER REDEFINES ZEILE. BLW=00000+027,0000027 0CL80 36 000038 000039 10 WERT-1 PIC X(08). BLW=00000+027,0000027 8C 000040 88 LOOP-BINARY VALUE 'BIN'. 000041 88 LOOP-DECIMAL VALUE 'DEC'. 000042 88 LOOP-DISPLAY VALUE 'DIS'. 000043 88 LOOP-BINARY-TIMES VALUE 'BINTIMES'. 000044 88 LOOP-INDEX VALUE 'IDX'. 000045 88 LOOP-INDEX-TIMES VALUE 'IDXTIMES'. 000046 10 FILLER PIC X(02). BLW=00000+02F,000002F 2C 000047 10 WERT-2 PIC 9(08). BLW=00000+031,0000031 8C 000048 10 FILLER PIC X(02). BLW=00000+039,0000039 2C 000049 10 FILLER PIC X(60). BLW=00000+03B,000003B 60C 000050 01 Tabelle. BLW=00000+078 0CL100000000 000051 05 Tab-Zeile occurs 100000000 BLW=00000+078,0000000 0CL1 000052 Indexed by I-Idx. IDX=00001+000 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 4 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 0 000053 10 Tab-Inhalt Pic X(01). BLW=00000+078,0000000 1C 000054 *- -* 000055 * 1. Ende Felddefinitionen * 000056 *--------------------------------------------------------------* 000057 *- -* 000058 LINKAGE SECTION. 000059 *- -* 000060 *--------------------------------------------------------------* 000061 *- -* 000062 PROCEDURE DIVISION. 000063 *- -* 000064 SCHEIN SECTION. 000065 *- -* 000066 PERFORM A00-INIT 76 000067 PERFORM V00-VERARBEITUNG 87 000068 PERFORM Z99-ENDE 198 000069 *- -* 000070 CONTINUE. 000071 GOBACK. 000072 000073 *--------------------------------------------------------------* 000074 * Initialisierung von wichtigen Feldern * 000075 *- -* 000076 A00-INIT SECTION. 000077 INITIALIZE DATEN. 25 000078 ACCEPT ZEILE 36 000079 DISPLAY 'P96N70B - Beginn' 000080 DISPLAY 'Verarbeitung mit ' WERT-1 '-Feldern' 39 000081 DISPLAY 'Anzahl Schleife :' WERT-2 47 000082 CONTINUE. 000083 *- -* 000084 *--------------------------------------------------------------* 000085 * Lesen per SELECT; Parameter sind alle fix * 000086 *- -* 000087 V00-VERARBEITUNG SECTION. 000088 EVALUATE TRUE 000089 WHEN LOOP-BINARY 40 000090 1 PERFORM V01-LOOP-BIN 109 000091 WHEN LOOP-DECIMAL 41 000092 1 PERFORM V02-LOOP-DEC 122 000093 WHEN LOOP-DISPLAY 42 000094 1 PERFORM V03-LOOP-DIS 135 000095 WHEN LOOP-BINARY-TIMES 43 000096 1 PERFORM V04-LOOP-BIN-TIMES 148 000097 WHEN LOOP-INDEX 44 000098 1 PERFORM V05-LOOP-Index 162 000099 WHEN LOOP-INDEX-TIMES 45 000100 1 PERFORM V06-LOOP-Index-times 176 000101 WHEN OTHER 000102 1 PERFORM V99-LOOP-ERROR 190 000103 END-EVALUATE 000104 CONTINUE. 000105 *- -* 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 5 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 0 000106 *--------------------------------------------------------------* 000107 * Loop mit bin Feldern * 000108 *- -* 000109 V01-LOOP-BIN SECTION. 000110 *- -* 000111 MOVE WERT-2 TO I-BIN-MAX 47 30 000112 PERFORM VARYING I-BIN FROM 1 BY 1 26 000113 UNTIL I-BIN > I-BIN-MAX 26 30 000114 1 MOVE 'XX' TO INHALT 34 000115 1 MOVE 'X' TO Tab-Inhalt (I-Bin) 53 26 000116 END-PERFORM 000117 CONTINUE. 000118 *- -* 000119 *--------------------------------------------------------------* 000120 * Loop mit dec Feldern * 000121 *- -* 000122 V02-LOOP-DEC SECTION. 000123 *- -* 000124 MOVE WERT-2 TO I-DEC-MAX 47 31 000125 PERFORM VARYING I-DEC FROM 1 BY 1 27 000126 UNTIL I-DEC > I-DEC-MAX 27 31 000127 1 MOVE 'XX' TO INHALT 34 000128 1 MOVE 'X' TO Tab-Inhalt (I-Dec) 53 27 000129 END-PERFORM 000130 CONTINUE. 000131 *- -* 000132 *--------------------------------------------------------------* 000133 * Loop mit dis Feldern * 000134 *- -* 000135 V03-LOOP-DIS SECTION. 000136 *- -* 000137 MOVE WERT-2 TO I-DIS-MAX 47 32 000138 PERFORM VARYING I-DIS FROM 1 BY 1 28 000139 UNTIL I-DIS > I-DIS-MAX 28 32 000140 1 MOVE 'XX' TO INHALT 34 000141 1 MOVE 'X' TO Tab-Inhalt (I-Dis) 53 28 000142 END-PERFORM 000143 CONTINUE. 000144 *- -* 000145 *--------------------------------------------------------------* 000146 * Loop mit bin Feldern * 000147 *- -* 000148 V04-LOOP-BIN-TIMES SECTION. 000149 *- -* 000150 MOVE WERT-2 TO I-BIN-MAX 47 30 000151 MOVE 1 TO I-BIN 26 000152 PERFORM I-BIN-MAX TIMES 30 000153 1 MOVE 'XX' TO INHALT 34 000154 1 MOVE 'X' TO Tab-Inhalt (I-Bin) 53 26 000155 1 ADD 1 TO I-BIN 26 000156 END-PERFORM 000157 CONTINUE. 000158 *- -* 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 6 LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-!--+----8 Map and Cross Reference 0 000159 *--------------------------------------------------------------* 000160 * Loop mit Index -* 000161 *- -* 000162 V05-LOOP-Index SECTION. 000163 *- -* 000164 MOVE WERT-2 TO I-BIN-MAX 47 30 000165 000166 PERFORM VARYING I-Idx FROM 1 BY 1 52 000167 UNTIL I-Idx > I-Bin-MAX 52 30 000168 1 MOVE 'XX' TO INHALT 34 000169 1 MOVE 'X' TO Tab-Inhalt (I-Idx) 53 52 000170 END-PERFORM 000171 CONTINUE. 000172 *- -* 000173 *--------------------------------------------------------------* 000174 * Loop mit Index - x times -* 000175 *- -* 000176 V06-LOOP-Index-times SECTION. 000177 *- -* 000178 MOVE WERT-2 TO I-BIN-MAX 47 30 000179 Set I-Idx TO 1 52 000180 PERFORM I-BIN-MAX TIMES 30 000181 1 MOVE 'XX' TO INHALT 34 000182 1 MOVE 'X' TO Tab-Inhalt (I-Idx) 53 52 000183 1 Set I-Idx up by 1 52 000184 END-PERFORM 000185 CONTINUE. 000186 *- -* 000187 *--------------------------------------------------------------* 000188 * Eingabe ist zu korrigieren * 000189 *- -* 000190 V99-LOOP-ERROR SECTION. 000191 *- -* 000192 DISPLAY 'Keine Verarbeitung moeglich, Eingabe korrigieren' 000193 CONTINUE. 000194 *- -* 000195 *--------------------------------------------------------------* 000196 * Schlussverarbeitung * 000197 *- -* 000198 Z99-ENDE SECTION. 000199 *- -* 000200 DISPLAY 'P96N70B - Ende ' 000201 CONTINUE. 000202 *- -* 000203 *--------------------------------------------------------------* 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 7 0An "M" preceding a data-name reference indicates that the data-name is modified by this reference. Defined Cross-reference of data names References 25 DATEN. . . . . . . . . . . . . M77 26 I-BIN. . . . . . . . . . . . . M112 113 115 M151 154 M155 30 I-BIN-MAX. . . . . . . . . . . M111 113 M150 152 M164 167 M178 180 27 I-DEC. . . . . . . . . . . . . M125 126 128 31 I-DEC-MAX. . . . . . . . . . . M124 126 28 I-DIS. . . . . . . . . . . . . M138 139 141 32 I-DIS-MAX. . . . . . . . . . . M137 139 52 I-IDX. . . . . . . . . . . . . M166 167 169 M179 182 M183 34 INHALT . . . . . . . . . . . . M114 M127 M140 M153 M168 M181 40 LOOP-BINARY. . . . . . . . . . 89 43 LOOP-BINARY-TIMES. . . . . . . 95 41 LOOP-DECIMAL . . . . . . . . . 91 42 LOOP-DISPLAY . . . . . . . . . 93 44 LOOP-INDEX . . . . . . . . . . 97 45 LOOP-INDEX-TIMES . . . . . . . 99 53 TAB-INHALT . . . . . . . . . . M115 M128 M141 M154 M169 M182 51 TAB-ZEILE 50 TABELLE 39 WERT-1 . . . . . . . . . . . . 80 47 WERT-2 . . . . . . . . . . . . 81 111 124 137 150 164 178 36 ZEILE. . . . . . . . . . . . . 37 M78 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 8 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 76 A00-INIT . . . . . . . . . . . P66 64 SCHEIN 87 V00-VERARBEITUNG . . . . . . . P67 109 V01-LOOP-BIN . . . . . . . . . P90 122 V02-LOOP-DEC . . . . . . . . . P92 135 V03-LOOP-DIS . . . . . . . . . P94 148 V04-LOOP-BIN-TIMES . . . . . . P96 162 V05-LOOP-INDEX . . . . . . . . P98 176 V06-LOOP-INDEX-TIMES . . . . . P100 190 V99-LOOP-ERROR . . . . . . . . P102 198 Z99-ENDE . . . . . . . . . . . P68 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 9 0 Defined Cross-reference of programs References 2 P96N70B 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 10 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 0Source Hierarchy and Base Hex-Displacement Asmblr Data Data Def LineID Data Name Locator Blk Structure Definition Data Type Attributes 2 PROGRAM-ID P96N70B-----------------------------------------------------------------------------------------------------* 25 1 DATEN . . . . . . . . . . . . . . . . . . . . BLW=00000 000 DS 0CL119 Group 26 2 I-BIN . . . . . . . . . . . . . . . . . . . BLW=00000 000 0 000 000 DS 1F Binary 27 2 I-DEC . . . . . . . . . . . . . . . . . . . BLW=00000 004 0 000 004 DS 5P Packed-Dec 28 2 I-DIS . . . . . . . . . . . . . . . . . . . BLW=00000 009 0 000 009 DS 8C Disp-Num 30 2 I-BIN-MAX . . . . . . . . . . . . . . . . . BLW=00000 014 0 000 014 DS 1F Binary 31 2 I-DEC-MAX . . . . . . . . . . . . . . . . . BLW=00000 018 0 000 018 DS 5P Packed-Dec 32 2 I-DIS-MAX . . . . . . . . . . . . . . . . . BLW=00000 01D 0 000 01D DS 8C Disp-Num 34 2 INHALT. . . . . . . . . . . . . . . . . . . BLW=00000 025 0 000 025 DS 2C Display 36 2 ZEILE . . . . . . . . . . . . . . . . . . . BLW=00000 027 0 000 027 DS 80C Display 37 2 FILLER. . . . . . . . . . . . . . . . . . . BLW=00000 027 0 000 027 DS 0CL80 Group R 39 3 WERT-1. . . . . . . . . . . . . . . . . . BLW=00000 027 0 000 027 DS 8C Display 40 88 LOOP-BINARY . . . . . . . . . . . . . . . 41 88 LOOP-DECIMAL. . . . . . . . . . . . . . . 42 88 LOOP-DISPLAY. . . . . . . . . . . . . . . 43 88 LOOP-BINARY-TIMES . . . . . . . . . . . . 44 88 LOOP-INDEX. . . . . . . . . . . . . . . . 45 88 LOOP-INDEX-TIMES. . . . . . . . . . . . . 46 3 FILLER. . . . . . . . . . . . . . . . . . BLW=00000 02F 0 000 02F DS 2C Display 47 3 WERT-2. . . . . . . . . . . . . . . . . . BLW=00000 031 0 000 031 DS 8C Disp-Num 48 3 FILLER. . . . . . . . . . . . . . . . . . BLW=00000 039 0 000 039 DS 2C Display 49 3 FILLER. . . . . . . . . . . . . . . . . . BLW=00000 03B 0 000 03B DS 60C Display 50 1 TABELLE . . . . . . . . . . . . . . . . . . . BLW=00000 078 DS 0CL100000000 Group 51 2 TAB-ZEILE . . . . . . . . . . . . . . . . . BLW=00000 078 0 000 000 DS 0CL1 Group O 52 I-IDX . . . . . . . . . . . . . . . . . . . IDX=00001 000 Index-Name 53 3 TAB-INHALT. . . . . . . . . . . . . . . . BLW=00000 078 0 000 000 DS 1C Display 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 11 0 000000 P96N70B DS 0H PROGRAM:P96N70B USING *,15 000000 47F0 F028 B 40(,15) BYPASS CONSTANTS. BRANCH TO §STM 000004 00 DC AL1(0) ZERO NAME LENGTH FOR DUMPS 000005 C3C5C5 DC CL3'CEE' CEE EYE CATCHER 000008 00000158 DC X'00000158' STACK FRAME SIZE 00000C 00000014 DC A(§PPA1-P96N70B) OFFSET TO PPA1 FROM PRIMARY ENTRY 000010 47F0 F001 B 1(,15) RESERVED 000014 §PPA1 DS 0H PPA1 STARTS HERE 000014 98 DC X'98' OFFSET TO LENGTH OF NAME FROM PPA1 000015 CE DC X'CE' CEL SIGNATURE 000016 AC DC X'AC' CEL FLAGS: '10101100'B 000017 00 DC X'00' MEMBER FLAGS FOR COBOL 000018 000000B6 DC A(§PPA2) ADDRESS OF PPA2 00001C 00000000 DC F'0' OFFSET TO THE BDI (NONE) 000020 00000000 DC F'0' ADDRESS OF ENTRY POINT DESCRIPTORS 000024 0000 DC X'0000' RESERVED 000026 00 DC X'00' DSA FPR 8-15 SAVE AREA OFFSET/16 000027 00 DC X'00' DSA FPR 8-15 SAVE AREA BIT MASK 000028 §STM DS 0H STM STARTS HERE 000028 90EC D00C STM 14,12,12(13) §STM: SAVE CALLER'S REGISTERS 00002C 4110 F038 LA 1,56(,15) GET ADDRESS OF PARMLIST INTO R1 000030 98EF F04C LM 14,15,76(15) LOAD ADDRESSES FROM §BRVAL 000034 07FF BR 15 DO ANY NECESSARY INITIALIZATION 000036 0000 DC AL2'0' AVAILABLE HALF-WORD 000038 §MAINENT DS 0H PRIMARY ENTRY POINT ADDRESS 000038 00000000 DC A(P96N70B) §PARMS: 1) PRIMARY ENTRY POINT ADDRESS 00003C 00000000 DC AL4'0' 2) Available 000040 000006B0 DC A(DAB) 3) DAB ADDRESS 000044 000000AE DC A(§EPNAM) 4) ENTRY POINT NAME ADDRESS 000048 00000000 DC A(P96N70B) 5) CURRENT ENTRY POINT ADDRESS 00004C 000002E0 DC A(START) §BRVAL: 6) PROCEDURE CODE ADDRESS 000050 00000000 DC V(IGZCBSO) 7) INITIALIZATION ROUTINE 000054 000000CA DC A(§CEEPARM) 8) ADDRESS OF PARM LIST FOR CEEINT 000058 00104001 DC X'00104001' DSA WORD 0 CONSTANT 00005C 00000000 DC AL4'0' AVAILABLE WORD 000060 00000000 DC AL4'0' AVAILABLE WORD 000064 00000000 DC AL4'0' AVAILABLE WORD 000068 F2F0F1F2 DC CL4'2012' §TIMEVRS: YEAR OF COMPILATION 00006C F0F7F0F9 DC CL4'0709' MONTH/DAY OF COMPILATION 000070 F1F7F1F4 DC CL4'1714' HOURS/MINUTES OF COMPILATION 000074 F0F1 DC CL2'01' SECONDS FOR COMPILATION DATE 000076 F0F3F0F4F0F1 DC CL6'030401' VERSION/RELEASE/MOD LEVEL OF PROD 00007C 0475 DC X'0475' UNSIGNED BINARY CODE PAGE CCSID VALUE 00007E 0000 DC AL2'0' AVAILABLE HALF-WORD 000080 1000 DC X'1000' INFO. BYTES 28-29 000082 076C DC X'076C' SIGNED BINARY YEARWINDOW OPTION VALUE 000084 64EA6C0C0200 DC X'64EA6C0C0200' INFO. BYTES 1-6 00008A 8000C0084089 DC X'8000C0084089' INFO. BYTES 7-12 000090 010020800C00 DC X'010020800C00' INFO. BYTES 13-18 000096 0000000000 DC X'0000000000' INFO. BYTES 19-23 00009B 00 DC X'00' COBOL SIGNATURE LEVEL 00009C 00000014 DC X'00000014' # DATA DIVISION STATEMENTS 0000A0 0000003A DC X'0000003A' # PROCEDURE DIVISION STATEMENTS 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 12 0 0000A4 00008C DC X'00008C' INFO. BYTES 24-26 0000A7 00 DC X'00' INFO. BYTE 27 0000A8 40404040 DC C' ' USER LEVEL INFO (LVLINFO) 0000AC 0007 DC X'0007' LENGTH OF PROGRAM NAME 0000AE §EPNAM DS 0H ENTRY POINT NAME 0000AE D7F9F6D5F7F0C240 DC C'P96N70B ' PROGRAM NAME 0000B6 §PPA2 DS 0H PPA2 STARTS HERE 0000B6 05 DC X'05' CEL MEMBER IDENTIFIER 0000B7 00 DC X'00' CEL MEMBER SUB-IDENTIFIER 0000B8 00 DC X'00' CEL MEMBER DEFINED BYTE 0000B9 01 DC X'01' CONTROL LEVEL OF PROLOG 0000BA 00000000 DC V(CEESTART) VCON FOR LOAD MODULE 0000BE 00000000 DC F'0' OFFSET TO THE CDI (NONE) 0000C2 FFFFFFB2 DC A(§TIMEVRS-§PPA2) OFFSET TO TIMESTAMP/VERSION INFO 0000C6 00000000 DC A(P96N70B) ADDRESS OF CU PRIMARY ENTRY POINT 0000CA §CEEPARM DS 0H PARM LIST FOR CEEINT 0000CA 00000038 DC A(§MAINENT) POINTER TO PRIMARY ENTRY PT ADDR 0000CE 00000008 DC A(§PARMCEE-§CEEPARM) OFFSET TO PARAMETERS FOR CEEINT 0000D2 §PARMCEE DS 0H PARAMETERS FOR CEEINT 0000D2 00000006 DC F'6' 1) NUMBER OF ENTRIES IN PARM LIST 0000D6 00000038 DC A(§MAINENT) 2) POINTER TO PRIMARY ENTRY PT ADDR 0000DA 00000000 DC V(CEESTART) 3) ADDRESS OF CEESTART 0000DE 00000000 DC V(CEEBETBL) 4) ADDRESS OF CEEBETBL 0000E2 00000005 DC F'5' 5) CEL MEMBER IDENTIFIER 0000E6 00000000 DC F'0' 6) FOR CEL MEMBER USE 0000EA 00000000 DC AL4'0' AVAILABLE WORD 0000EE 00000000 DC AL4'0' AVAILABLE WORD 0000F2 00000000 DC AL4'0' AVAILABLE WORD 0000F6 00000000 DC AL4'0' AVAILABLE WORD 0000FA 0000 DC AL2'0' AVAILABLE HALF-WORD 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 13 0PROGRAM GLOBAL TABLE BEGINS AT LOCATION 0000FC FOR 000010 BYTES THE PGT CONTAINS 000001 CELL(S) FOR ADDRESSABILITY TO THE CGT PBL1 AT LOCATION 000344 FOR LINE 2 0 LITERAL POOL MAP FOR SYSTEM LITERALS IN THE PGT: 0000FC (LIT+0) 00000001 0C !..... ! 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 14 0CONSTANT GLOBAL TABLE BEGINS AT LOCATION 00010C FOR 0001D2 BYTES LITERAL POOL MAP FOR LITERALS IN THE CGT: 000138 (LIT+0) FFFFFFFC 00001000 00000001 D2858995 8540E585 99819982 8589A3A4 95874094 !............Keine Verarbeitung m! 000158 (LIT+32) 96858793 8983886B 40C58995 87818285 40929699 99898789 85998595 C195A981 !oeglich, Eingabe korrigierenAnza! 000178 (LIT+64) 889340E2 83889385 89868540 7AE58599 81998285 89A3A495 87409489 A340D7F9 !hl Schleife :Verarbeitung mit P9! 000198 (LIT+96) F6D5F7F0 C2406040 C5958485 4040D7F9 F6D5F7F0 C2406040 C2858789 9595C9C4 !6N70B - Ende P96N70B - BeginnID! 0001B8 (LIT+128) E7E3C9D4 C5E2C9C4 E7404040 4040C2C9 D5E3C9D4 C5E2C4C9 E2404040 4040C4C5 !XTIMESIDX BINTIMESDIS DE! 0001D8 (LIT+160) C3404040 4040C2C9 D5404040 404060C6 85938485 99951F00 00000000 00018800 !C BIN -Feldern........h.! 0001F8 (LIT+192) 005F5F00 017F0400 00000100 017F0800 00000100 00000000 00000000 00000000 !.^^.."......."..................! 000218 (LIT+224) 00000000 00000000 00000000 00000000 00000080 00000040 00000000 00000000 !....................... ........! 000238 (LIT+256) 000000F0 F0F0F0F0 F0F0C1F0 F0F0F0F0 F0F0C000 0000001C 00000000 0CE7E740 !...0000000A0000000...........XX ! 000258 (LIT+288) 40014000 00100800 0008008A FF014000 00300800 00080038 FF014000 00110800 ! . ........... ........... .....! 000278 (LIT+320) 00080068 40000008 09000188 0031FF01 40000011 08000008 00794000 00080900 !.... ......h.... ......... .....! 000298 (LIT+352) 01880027 40000008 08000008 00DAFF01 40000010 08000008 009AFF04 08000000 !.h.. ........... ...............! 0002B8 (LIT+384) 00000050 09000188 00274000 00000040 C0000140 00070800 0008008A 02C00007 !...&...h.. .... ... ............! 0002D8 (LIT+416) 08000008 008A !...... ! 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 15 0 0002E0 START EQU * P96N70B 0002E0 183F LR 3,15 0002E2 4100 1158 LA 0,344(0,1) 0002E6 5500 C00C CL 0,12(0,12) 0002EA 05F0 BALR 15,0 0002EC 47D0 F00C BC 13,12(0,15) 0002F0 58F0 C300 L 15,768(0,12) 0002F4 05EF BALR 14,15 0002F6 181F LR 1,15 0002F8 50D0 1004 ST 13,4(0,1) 0002FC 5000 104C ST 0,76(0,1) 000300 D203 1000 3058 MVC 0(4,1),88(3) 000306 D703 1084 1084 XC 132(4,1),132(1) 00030C 5090 105C ST 9,92(0,1) 000310 18D1 LR 13,1 000312 58C0 90E8 L 12,232(0,9) TGTFIXD+232 000316 1812 LR 1,2 000318 50D0 D058 ST 13,88(0,13) 00031C 58A0 917C L 10,380(0,9) TOV=23 000320 5820 C008 L 2,8(0,12) CBL=1 000324 D203 D088 2034 MVC 136(4,13),52(2) DSAFIXD+136 PGMLIT AT +8 00032A BF3F AF1C ICM 3,15,3868(10) IPCB=1+16 00032E 58B0 C00C L 11,12(0,12) PBL=1 000332 4780 B000 BC 8,0(0,11) GN=60(000344) 000336 5840 905C L 4,92(0,9) TGTFIXD+92 00033A 58F0 40F4 L 15,244(0,4) V(IGZCMSG ) 00033E 4110 21B6 LA 1,438(0,2) PGMLIT AT +394 000342 05EF BALR 14,15 000344 GN=60 EQU * 000344 5A30 C000 A 3,0(0,12) SYSLIT AT +0 000348 5030 AF1C ST 3,3868(0,10) IPCB=1+16 00034C 9140 AF0C TM 3852(10),X'40' IPCB=1 000350 4710 B01A BC 1,26(0,11) GN=61(00035E) 000354 5830 9184 L 3,388(0,9) BL=1 000358 D201 3000 213F MVC 0(2,3),319(2) (BL=1)+0 PGMLIT AT +275 00035E GN=61 EQU * 00035E D227 D0EC 2004 MVC 236(40,13),4(2) PVN=2 PVNI=2 000364 9140 9057 TM 87(9),X'40' TGTFIXD+87 000368 4710 B03C BC 1,60(0,11) GN=63(000380) 00036C 9120 9054 TM 84(9),X'20' TGTFIXD+84 000370 47E0 B034 BC 14,52(0,11) GN=64(000378) 000374 9620 D084 OI 132(13),X'20' DSAFIXD+132 000378 GN=64 EQU * 000378 9640 9057 OI 87(9),X'40' TGTFIXD+87 00037C 47F0 B03C BC 15,60(0,11) GN=65(000380) 000380 GN=63 EQU * 000380 GN=65 EQU * 000380 9640 AF0C OI 3852(10),X'40' IPCB=1 000384 9601 D084 OI 132(13),X'01' DSAFIXD+132 000064 *SCHEIN 000066 PERFORM 000076 *A00-INIT 000077 INITIALIZE 000388 4130 0000 LA 3,0(0,0) 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 16 0 00038C 5840 9188 L 4,392(0,9) BLW=0 000390 5030 4000 ST 3,0(0,4) (BLW=0)+0 000394 D204 4004 2144 MVC 4(5,4),324(2) (BLW=0)+4 PGMLIT AT +280 00039A D207 4009 2137 MVC 9(8,4),311(2) (BLW=0)+9 PGMLIT AT +267 0003A0 5030 4014 ST 3,20(0,4) (BLW=0)+20 0003A4 D204 4018 2144 MVC 24(5,4),324(2) (BLW=0)+24 PGMLIT AT +280 0003AA D207 401D 2137 MVC 29(8,4),311(2) (BLW=0)+29 PGMLIT AT +267 0003B0 D201 4025 214B MVC 37(2,4),331(2) (BLW=0)+37 PGMLIT AT +287 0003B6 9240 4027 MVI 39(4),X'40' ZEILE 0003BA 9240 4028 MVI 40(4),X'40' ZEILE+1 0003BE D24D 4029 4028 MVC 41(78,4),40(4) ZEILE+2 ZEILE+1 000078 ACCEPT 0003C4 5830 905C L 3,92(0,9) TGTFIXD+92 0003C8 58F0 3000 L 15,0(0,3) V(IGZCACP ) 0003CC 4110 21A7 LA 1,423(0,2) PGMLIT AT +379 0003D0 05EF BALR 14,15 000079 DISPLAY 0003D2 58F0 302C L 15,44(0,3) V(IGZCDSP ) 0003D6 4110 219B LA 1,411(0,2) PGMLIT AT +367 0003DA 05EF BALR 14,15 000080 DISPLAY 0003DC 58F0 302C L 15,44(0,3) V(IGZCDSP ) 0003E0 4110 217B LA 1,379(0,2) PGMLIT AT +335 0003E4 05EF BALR 14,15 000081 DISPLAY 0003E6 58F0 302C L 15,44(0,3) V(IGZCDSP ) 0003EA 4110 2165 LA 1,357(0,2) PGMLIT AT +313 0003EE 05EF BALR 14,15 000082 CONTINUE 000067 PERFORM 000087 *V00-VERARBEITUNG 000088 EVALUATE 000089 WHEN 0003F0 D507 4027 20D2 CLC 39(8,4),210(2) WERT-1 PGMLIT AT +166 0003F6 4780 B0BA BC 8,186(0,11) GN=25(0003FE) 0003FA 47F0 B10E BC 15,270(0,11) GN=24(000452) 0003FE GN=25 EQU * 000090 PERFORM 000109 *V01-LOOP-BIN 000111 MOVE 0003FE F277 D148 4031 PACK 328(8,13),49(8,4) TS2=0 WERT-2 000404 960F D14F OI 335(13),X'0F' TS2=7 000408 4F50 D148 CVB 5,328(0,13) TS2=0 00040C 5050 4014 ST 5,20(0,4) I-BIN-MAX 000112 PERFORM 000410 D203 4000 20E6 MVC 0(4,4),230(2) (BLW=0)+0 PGMLIT AT +186 000416 47F0 B0FA BC 15,250(0,11) GN=46(00043E) 00041A GN=45 EQU * 000114 MOVE 00041A 5820 9188 L 2,392(0,9) BLW=0 00041E 5830 C008 L 3,8(0,12) CBL=1 000422 D201 2025 3149 MVC 37(2,2),329(3) (BLW=0)+37 PGMLIT AT +285 000115 MOVE 000428 5840 2000 L 4,0(0,2) I-BIN 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 17 0 00042C 1A42 AR 4,2 00042E 92E7 4077 MVI 119(4),X'E7' TAB-INHALT() 000116 PERFORM-EPILOGUE 000432 4140 0001 LA 4,1(0,0) 000436 5A40 2000 A 4,0(0,2) I-BIN 00043A 5040 2000 ST 4,0(0,2) I-BIN 00043E GN=46 EQU * 00043E 5830 9188 L 3,392(0,9) BLW=0 000442 5820 3000 L 2,0(0,3) I-BIN 000446 5920 3014 C 2,20(0,3) I-BIN-MAX 00044A 47D0 B0D6 BC 13,214(0,11) GN=45(00041A) 000117 CONTINUE 00044E 47F0 B310 BC 15,784(0,11) GN=23(000654) 000452 GN=24 EQU * 000091 WHEN 000452 D507 4027 20CA CLC 39(8,4),202(2) WERT-1 PGMLIT AT +158 000458 4770 B16E BC 7,366(0,11) GN=27(0004B2) 000092 PERFORM 000122 *V02-LOOP-DEC 000124 MOVE 00045C F247 4018 4031 PACK 24(5,4),49(8,4) I-DEC-MAX WERT-2 000462 D100 401C C004 MVN 28(1,4),4(12) I-DEC-MAX+4 SYSLIT AT +4 000125 PERFORM 000468 D204 4004 213F MVC 4(5,4),319(2) (BLW=0)+4 PGMLIT AT +275 00046E 47F0 B15C BC 15,348(0,11) GN=49(0004A0) 000472 GN=48 EQU * 000127 MOVE 000472 5820 9188 L 2,392(0,9) BLW=0 000476 5830 C008 L 3,8(0,12) CBL=1 00047A D201 2025 3149 MVC 37(2,2),329(3) (BLW=0)+37 PGMLIT AT +285 000128 MOVE 000480 F874 D148 2004 ZAP 328(8,13),4(5,2) TS2=0 I-DEC 000486 4F40 D148 CVB 4,328(0,13) TS2=0 00048A 1A42 AR 4,2 00048C 92E7 4077 MVI 119(4),X'E7' TAB-INHALT() 000129 PERFORM-EPILOGUE 000490 FA40 2004 30E2 AP 4(5,2),226(1,3) I-DEC PGMLIT AT +182 000496 940F 2004 NI 4(2),X'0F' I-DEC 00049A F844 2004 2004 ZAP 4(5,2),4(5,2) I-DEC I-DEC 0004A0 GN=49 EQU * 0004A0 5820 9188 L 2,392(0,9) BLW=0 0004A4 F944 2004 2018 CP 4(5,2),24(5,2) I-DEC I-DEC-MAX 0004AA 47D0 B12E BC 13,302(0,11) GN=48(000472) 000130 CONTINUE 0004AE 47F0 B310 BC 15,784(0,11) GN=23(000654) 0004B2 GN=27 EQU * 000093 WHEN 0004B2 D507 4027 20C2 CLC 39(8,4),194(2) WERT-1 PGMLIT AT +150 0004B8 4770 B1E8 BC 7,488(0,11) GN=30(00052C) 000094 PERFORM 000135 *V03-LOOP-DIS 000137 MOVE 0004BC D207 401D 4031 MVC 29(8,4),49(4) I-DIS-MAX WERT-2 0004C2 96F0 4024 OI 36(4),X'F0' I-DIS-MAX+7 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 18 0 0004C6 94CF 4024 NI 36(4),X'CF' I-DIS-MAX+7 000138 PERFORM 0004CA D207 4009 212F MVC 9(8,4),303(2) (BLW=0)+9 PGMLIT AT +259 0004D0 47F0 B1CA BC 15,458(0,11) GN=52(00050E) 0004D4 GN=51 EQU * 000140 MOVE 0004D4 5820 9188 L 2,392(0,9) BLW=0 0004D8 5830 C008 L 3,8(0,12) CBL=1 0004DC D201 2025 3149 MVC 37(2,2),329(3) (BLW=0)+37 PGMLIT AT +285 000141 MOVE 0004E2 F277 D148 2009 PACK 328(8,13),9(8,2) TS2=0 I-DIS 0004E8 4F40 D148 CVB 4,328(0,13) TS2=0 0004EC 1A42 AR 4,2 0004EE 92E7 4077 MVI 119(4),X'E7' TAB-INHALT() 000142 PERFORM-EPILOGUE 0004F2 F247 D148 2009 PACK 328(5,13),9(8,2) TS2=0 I-DIS 0004F8 FA40 D148 30E2 AP 328(5,13),226(1,3) TS2=0 PGMLIT AT +182 0004FE 940F D148 NI 328(13),X'0F' TS2=0 000502 F844 D148 D148 ZAP 328(5,13),328(5,13) TS2=0 TS2=0 000508 F374 2009 D148 UNPK 9(8,2),328(5,13) I-DIS TS2=0 00050E GN=52 EQU * 00050E 5820 9188 L 2,392(0,9) BLW=0 000512 F247 D148 2009 PACK 328(5,13),9(8,2) TS2=0 I-DIS 000518 F247 D150 201D PACK 336(5,13),29(8,2) TS2=8 I-DIS-MAX 00051E F944 D148 D150 CP 328(5,13),336(5,13) TS2=0 TS2=8 000524 47D0 B190 BC 13,400(0,11) GN=51(0004D4) 000143 CONTINUE 000528 47F0 B310 BC 15,784(0,11) GN=23(000654) 00052C GN=30 EQU * 000095 WHEN 00052C D507 4027 20BA CLC 39(8,4),186(2) WERT-1 PGMLIT AT +142 000532 4770 B244 BC 7,580(0,11) GN=33(000588) 000096 PERFORM 000148 *V04-LOOP-BIN-TIMES 000150 MOVE 000536 F277 D148 4031 PACK 328(8,13),49(8,4) TS2=0 WERT-2 00053C 960F D14F OI 335(13),X'0F' TS2=7 000540 4F50 D148 CVB 5,328(0,13) TS2=0 000544 5050 4014 ST 5,20(0,4) I-BIN-MAX 000151 MOVE 000548 D203 4000 20E6 MVC 0(4,4),230(2) (BLW=0)+0 PGMLIT AT +186 000152 PERFORM 00054E 1205 LTR 0,5 000550 47D0 B240 BC 13,576(0,11) GN=53(000584) 000554 GN=54 EQU * 000554 5000 D140 ST 0,320(0,13) PFM=1 000153 MOVE 000558 5820 9188 L 2,392(0,9) BLW=0 00055C 5830 C008 L 3,8(0,12) CBL=1 000560 D201 2025 3149 MVC 37(2,2),329(3) (BLW=0)+37 PGMLIT AT +285 000154 MOVE 000566 5840 2000 L 4,0(0,2) I-BIN 00056A 1A42 AR 4,2 00056C 92E7 4077 MVI 119(4),X'E7' TAB-INHALT() 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 19 0000155 ADD 000570 4140 0001 LA 4,1(0,0) 000574 5A40 2000 A 4,0(0,2) I-BIN 000578 5040 2000 ST 4,0(0,2) I-BIN 00057C 5800 D140 L 0,320(0,13) PFM=1 000580 4600 B210 BCT 0,528(0,11) GN=54(000554) 000584 GN=53 EQU * 000157 CONTINUE 000584 47F0 B310 BC 15,784(0,11) GN=23(000654) 000588 GN=33 EQU * 000097 WHEN 000588 D507 4027 20B2 CLC 39(8,4),178(2) WERT-1 PGMLIT AT +134 00058E 4770 B2AC BC 7,684(0,11) GN=36(0005F0) 000098 PERFORM 000162 *V05-LOOP-INDEX 000164 MOVE 000592 F277 D148 4031 PACK 328(8,13),49(8,4) TS2=0 WERT-2 000598 960F D14F OI 335(13),X'0F' TS2=7 00059C 4F50 D148 CVB 5,328(0,13) TS2=0 0005A0 5050 4014 ST 5,20(0,4) I-BIN-MAX 000166 PERFORM 0005A4 D203 AF08 213F MVC 3848(4,10),319(2) IDX=1 PGMLIT AT +275 0005AA 47F0 B28C BC 15,652(0,11) GN=57(0005D0) 0005AE GN=56 EQU * 000168 MOVE 0005AE 5820 9188 L 2,392(0,9) BLW=0 0005B2 5830 C008 L 3,8(0,12) CBL=1 0005B6 D201 2025 3149 MVC 37(2,2),329(3) (BLW=0)+37 PGMLIT AT +285 000169 MOVE 0005BC 5840 AF08 L 4,3848(0,10) I-IDX 0005C0 1854 LR 5,4 0005C2 1A42 AR 4,2 0005C4 92E7 4078 MVI 120(4),X'E7' TAB-INHALT() 000170 PERFORM-EPILOGUE 0005C8 4A50 3036 AH 5,54(0,3) PGMLIT AT +10 0005CC 5050 AF08 ST 5,3848(0,10) I-IDX 0005D0 GN=57 EQU * 0005D0 5830 9188 L 3,392(0,9) BLW=0 0005D4 5820 3014 L 2,20(0,3) I-BIN-MAX 0005D8 5840 C008 L 4,8(0,12) CBL=1 0005DC 4B20 4036 SH 2,54(0,4) PGMLIT AT +10 0005E0 4C20 4036 MH 2,54(0,4) PGMLIT AT +10 0005E4 5920 AF08 C 2,3848(0,10) I-IDX 0005E8 47B0 B26A BC 11,618(0,11) GN=56(0005AE) 000171 CONTINUE 0005EC 47F0 B310 BC 15,784(0,11) GN=23(000654) 0005F0 GN=36 EQU * 000099 WHEN 0005F0 D507 4027 20AA CLC 39(8,4),170(2) WERT-1 PGMLIT AT +126 0005F6 4770 B306 BC 7,774(0,11) GN=39(00064A) 000100 PERFORM 000176 *V06-LOOP-INDEX-TIMES 000178 MOVE 0005FA F277 D148 4031 PACK 328(8,13),49(8,4) TS2=0 WERT-2 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 20 0 000600 960F D14F OI 335(13),X'0F' TS2=7 000604 4F50 D148 CVB 5,328(0,13) TS2=0 000608 5050 4014 ST 5,20(0,4) I-BIN-MAX 000179 SET 00060C D203 AF08 213F MVC 3848(4,10),319(2) IDX=1 PGMLIT AT +275 000180 PERFORM 000612 1205 LTR 0,5 000614 47D0 B302 BC 13,770(0,11) GN=58(000646) 000618 GN=59 EQU * 000618 5000 D144 ST 0,324(0,13) PFM=2 000181 MOVE 00061C 5820 9188 L 2,392(0,9) BLW=0 000620 5830 C008 L 3,8(0,12) CBL=1 000624 D201 2025 3149 MVC 37(2,2),329(3) (BLW=0)+37 PGMLIT AT +285 000182 MOVE 00062A 5840 AF08 L 4,3848(0,10) I-IDX 00062E 1854 LR 5,4 000630 1A42 AR 4,2 000632 92E7 4078 MVI 120(4),X'E7' TAB-INHALT() 000183 SET 000636 4A50 3036 AH 5,54(0,3) PGMLIT AT +10 00063A 5050 AF08 ST 5,3848(0,10) I-IDX 00063E 5800 D144 L 0,324(0,13) PFM=2 000642 4600 B2D4 BCT 0,724(0,11) GN=59(000618) 000646 GN=58 EQU * 000185 CONTINUE 000646 47F0 B310 BC 15,784(0,11) GN=23(000654) 00064A GN=39 EQU * 000101 WHEN 000102 PERFORM 000190 *V99-LOOP-ERROR 000192 DISPLAY 00064A 58F0 302C L 15,44(0,3) V(IGZCDSP ) 00064E 4110 2159 LA 1,345(0,2) PGMLIT AT +301 000652 05EF BALR 14,15 000193 CONTINUE 000654 GN=23 EQU * 000104 CONTINUE 000068 PERFORM 000198 *Z99-ENDE 000200 DISPLAY 000654 5820 905C L 2,92(0,9) TGTFIXD+92 000658 58F0 202C L 15,44(0,2) V(IGZCDSP ) 00065C 5830 C008 L 3,8(0,12) CBL=1 000660 4110 314D LA 1,333(0,3) PGMLIT AT +289 000664 05EF BALR 14,15 000201 CONTINUE 000070 CONTINUE 000071 GOBACK 000666 5840 AF1C L 4,3868(0,10) IPCB=1+16 00066A 5B40 C000 S 4,0(0,12) SYSLIT AT +0 00066E 5040 AF1C ST 4,3868(0,10) IPCB=1+16 000672 9128 9054 TM 84(9),X'28' TGTFIXD+84 000676 4770 B34C BC 7,844(0,11) GN=66(000690) 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 21 0 00067A 5840 9184 L 4,388(0,9) BL=1 00067E 48F0 4000 LH 15,0(0,4) RETURN-CODE 000682 58D0 D004 L 13,4(0,13) 000686 58E0 D00C L 14,12(0,13) 00068A 980C D014 LM 0,12,20(13) 00068E 07FE BCR 15,14 000690 GN=66 EQU * 000690 D20B D148 3123 MVC 328(12,13),291(3) TS2=0 PGMLIT AT +247 000696 5850 9184 L 5,388(0,9) BL=1 00069A 4840 5000 LH 4,0(0,5) RETURN-CODE 00069E 5040 D154 ST 4,340(0,13) TS2=12 0006A2 4110 D148 LA 1,328(0,13) TS2=0 0006A6 58F0 2224 L 15,548(0,2) V(IGZETRM ) 0006AA 05EF BALR 14,15 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 22 0 *** TGT MEMORY MAP *** TGTLOC 000000 RESERVED - 72 BYTES 000048 TGT IDENTIFIER 00004C RESERVED - 4 BYTES 000050 TGT LEVEL INDICATOR 000051 RESERVED - 3 BYTES 000054 32 BIT SWITCH 000058 POINTER TO RUNCOM 00005C POINTER TO COBVEC 000060 POINTER TO PROGRAM DYNAMIC BLOCK TABLE 000064 NUMBER OF FCB'S 000068 WORKING-STORAGE LENGTH 00006C RESERVED - 4 BYTES 000070 ADDRESS OF IGZESMG WORK AREA 000074 ADDRESS OF 1ST GETMAIN BLOCK (SPACE MGR) 000078 RESERVED - 2 BYTES 00007A RESERVED - 2 BYTES 00007C RESERVED - 2 BYTES 00007E MERGE FILE NUMBER 000080 ADDRESS OF CEL COMMON ANCHOR AREA 000084 LENGTH OF TGT 000088 RESERVED - 1 SINGLE BYTE FIELD 000089 PROGRAM MASK USED BY THIS PROGRAM 00008A RESERVED - 2 SINGLE BYTE FIELDS 00008C NUMBER OF SECONDARY FCB CELLS 000090 LENGTH OF THE ALTER VN(VNI) VECTOR 000094 COUNT OF NESTED PROGRAMS IN COMPILE UNIT 000098 DDNAME FOR DISPLAY OUTPUT 0000A0 RESERVED - 8 BYTES 0000A8 POINTER TO COM-REG SPECIAL REGISTER 0000AC RESERVED - 52 BYTES 0000E0 ALTERNATE COLLATING SEQUENCE TABLE PTR. 0000E4 ADDRESS OF SORT G.N. ADDRESS BLOCK 0000E8 ADDRESS OF PGT 0000EC RESERVED - 4 BYTES 0000F0 POINTER TO 1ST IPCB 0000F4 ADDRESS OF THE CLLE FOR THIS PROGRAM 0000F8 POINTER TO ABEND INFORMATION TABLE 0000FC POINTER TO TEST INFO FIELDS IN THE TGT 000100 ADDRESS OF START OF COBOL PROGRAM 000104 POINTER TO ALTER VNI'S IN CGT 000108 POINTER TO ALTER VN'S IN TGT 00010C POINTER TO FIRST PBL IN THE PGT 000110 POINTER TO FIRST FCB CELL 000114 WORKING-STORAGE ADDRESS 000118 POINTER TO FIRST SECONDARY FCB CELL 00011C POINTER TO STATIC CLASS INFO BLOCK 1 000120 POINTER TO STATIC CLASS INFO BLOCK 2 *** VARIABLE PORTION OF TGT *** 000124 TGT OVERFLOW AREA ADCONS 1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 P96N70B Date 07/09/2012 Time 17:14:01 Page 23 0 000180 BASE LOCATORS FOR SPECIAL REGISTERS 000188 BASE LOCATORS FOR WORKING-STORAGE 017F04 BASE LOCATORS FOR LINKAGE-SECTION 017F08 INDEX CELLS 017F0C INTERNAL PROGRAM CONTROL BLOCKS *** DSA MEMORY MAP *** DSALOC 00000000 REGISTER SAVE AREA 0000004C STACK NAB (NEXT AVAILABLE BYTE) 00000058 ADDRESS OF INLINE-CODE PRIMARY DSA 0000005C ADDRESS OF TGT 00000060 ADDRESS OF CAA 00000084 SWITCHES 00000088 CURRENT INT. PROGRAM OR METHOD NUMBER 0000008C ADDRESS OF CALL STATEMENT PROGRAM NAME 00000090 CALC ROUTINE REGISTER SAVE AREA 000000C4 ADDRESS OF FILE MUTEX USE COUNT CELLS 000000C8 PROCEDURE DIVISION RETURNING VALUE *** VARIABLE PORTION OF DSA *** 000000D0 BACKSTORE CELLS FOR SYMBOLIC REGISTERS 000000E0 VARIABLE-LENGTH CELLS 000000E8 VARIABLE NAME (VN) CELLS FOR PERFORM 00000114 PERFORM SAVE CELLS 00000140 PERFORM COUNTER CELLS 00000148 TEMPORARY STORAGE-2 0 TGT WILL BE ALLOCATED FOR 00017F20 BYTES SPEC-REG WILL BE ALLOCATED FOR 00000008 BYTES WRK-STOR WILL BE ALLOCATED FOR 05F5E178 BYTES DSA WILL BE ALLOCATED FOR 00000158 BYTES 0CONSTANT GLOBAL TABLE FOR DYNAMIC STORAGE INITIALIZATION AT LOCATION 0006E0 0INITD CODE FOR DYNAMIC STORAGE INITIALIZATION BEGINS AT LOCATION 000828 FOR LENGTH 0000C4 -* Statistics for COBOL program P96N70B: * Source records = 203 * Data Division statements = 20 * Procedure Division statements = 58 0End of compilation 1, program P96N70B, no statements flagged. 0Return code 0