1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 DATE 11/17/2005 TIME 20:00:47 PAGE 1 0INVOCATION PARAMETERS: NOADV,APOST,FSRT,OFF,MAP,RENT,X,F(W,E),NOC(E),NUMPROC(NOPFD),TRUNC(BIN),OPT(FULL),AR(E),FLAG(I,I) 0OPTIONS IN EFFECT: NOADATA NOADV APOST ARITH(EXTEND) AWO BUFSIZE(32760) NOCICS CODEPAGE(1140) NOCOMPILE(E) NOCURRENCY DATA(31) NODATEPROC DBCS NODECK NODIAGTRUNC NODLL NODUMP NODYNAM NOEXIT NOEXPORTALL FASTSRT FLAG(I,I) NOFLAGSTD INTDATE(LILIAN) LANGUAGE(UE) LIB LINECOUNT(57) NOLIST MAP NONAME NSYMBOL(NATIONAL) NONUMBER NUMPROC(NOPFD) OBJECT OFFSET OPTIMIZE(FULL) OUTDD(SYSOUT) PGMNAME(COMPAT) RENT RMODE(AUTO) SEQUENCE SIZE(MAX) SOURCE SPACE(1) NOSQL NOSSRANGE NOTERM NOTEST NOTHREAD TRUNC(BIN) NOVBREF 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 DATE 11/17/2005 TIME 20:00:47 PAGE 2 0 NOWORD XREF(FULL) YEARWINDOW(1900) ZWB 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG11 DATE 11/17/2005 TIME 20:00:47 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. PROG11. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 01 FUN-NAME PIC X(8) VALUE 'FOO'. BLW=00000+000 8C 000008 01 WK-ONE PIC X(1) VALUE '1'. BLW=00000+008 1C 000009 01 WK-TWO PIC X(1) VALUE '0'. BLW=00000+010 1C 000010 PROCEDURE DIVISION. 000011 CALL 'PROG12' USING WK-ONE FUN-NAME. EXT 8 7 000012 CALL 'PROG12' USING WK-TWO. EXT 9 000013 GOBACK. 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG11 DATE 11/17/2005 TIME 20:00:47 PAGE 4 0AN "M" PRECEDING A DATA-NAME REFERENCE INDICATES THAT THE DATA-NAME IS MODIFIED BY THIS REFERENCE. DEFINED CROSS-REFERENCE OF DATA NAMES REFERENCES 7 FUN-NAME . . . . . . . . . . . 11 8 WK-ONE . . . . . . . . . . . . 11 9 WK-TWO . . . . . . . . . . . . 12 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG11 DATE 11/17/2005 TIME 20:00:47 PAGE 5 0 DEFINED CROSS-REFERENCE OF PROGRAMS REFERENCES 2 PROG11 EXTERNAL PROG12 . . . . . . . . . . . . 11 12 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG11 DATE 11/17/2005 TIME 20:00:47 PAGE 6 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 PROG11----------------------------------------------------------------------------------------------------* 7 1 FUN-NAME. . . . . . . . . . . . . . . . . . . BLW=00000 000 DS 8C DISPLAY 8 1 WK-ONE. . . . . . . . . . . . . . . . . . . . BLW=00000 008 DS 1C DISPLAY 9 1 WK-TWO. . . . . . . . . . . . . . . . . . . . BLW=00000 010 DS 1C DISPLAY 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG11 DATE 11/17/2005 TIME 20:00:47 PAGE 7 0PROGRAM GLOBAL TABLE BEGINS AT LOCATION 0000FC FOR 00000C BYTES THE PGT CONTAINS 000001 CELL(S) FOR ADDRESSABILITY TO THE CGT PBL1 AT LOCATION 000214 FOR LINE 2 0 LITERAL POOL MAP FOR SYSTEM LITERALS IN THE PGT: 0000FC (LIT+0) 00000001 |.... | 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG11 DATE 11/17/2005 TIME 20:00:47 PAGE 8 0CONSTANT GLOBAL TABLE BEGINS AT LOCATION 000108 FOR 00008A BYTES LITERAL POOL MAP FOR LITERALS IN THE CGT: 000114 (LIT+0) FFFFFFFC 00001000 00000001 D7D9D6C7 F1F10000 00000000 012C0000 00010000 |............PROG11..............| 000134 (LIT+32) 01300000 00010000 00000000 00000000 00000000 00000000 00000000 00000000 |................................| 000154 (LIT+64) 00000000 00000000 00008000 00004000 00000000 00000000 0000C6D6 D6404040 |.............. ...........FOO | 000174 (LIT+96) 40404000 00000040 C0000140 00060800 00040018 02C00006 08000004 0018 | .... ... .................. | LINE # HEXLOC VERB LINE # HEXLOC VERB LINE # HEXLOC VERB 000011 00026C CALL 000012 0002A2 CALL 000013 0002C8 GOBACK 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG11 DATE 11/17/2005 TIME 20:00:47 PAGE 9 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 BASE LOCATORS FOR SPECIAL REGISTERS 00012C BASE LOCATORS FOR WORKING-STORAGE 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG11 DATE 11/17/2005 TIME 20:00:47 PAGE 10 0 000130 BASE LOCATORS FOR LINKAGE-SECTION 000134 CLLE ADDR. CELLS FOR CALL LIT. SUB-PGMS. 00013C INTERNAL PROGRAM CONTROL BLOCKS *** DSA MEMORY MAP *** DSALOC 000000 REGISTER SAVE AREA 00004C STACK NAB (NEXT AVAILABLE BYTE) 000058 ADDRESS OF INLINE-CODE PRIMARY DSA 00005C ADDRESS OF TGT 000060 ADDRESS OF CAA 000084 SWITCHES 000088 CURRENT INT. PROGRAM OR METHOD NUMBER 00008C ADDRESS OF CALL STATEMENT PROGRAM NAME 000090 CALC ROUTINE REGISTER SAVE AREA 0000C4 ADDRESS OF FILE MUTEX USE COUNT CELLS 0000C8 PROCEDURE DIVISION RETURNING VALUE *** VARIABLE PORTION OF DSA *** 0000D0 SAVE AREA FOR FLOAT REGISTERS 8-15 000110 BACKSTORE CELLS FOR SYMBOLIC REGISTERS 000120 VARIABLE-LENGTH CELLS 000128 VARIABLE NAME (VN) CELLS FOR PERFORM 000130 PERFORM SAVE CELLS 000138 TEMPORARY STORAGE-2 0 TGT WILL BE ALLOCATED FOR 00000150 BYTES SPEC-REG WILL BE ALLOCATED FOR 00000008 BYTES WRK-STOR WILL BE ALLOCATED FOR 00000011 BYTES DSA WILL BE ALLOCATED FOR 00000148 BYTES 0CONSTANT GLOBAL TABLE FOR DYNAMIC STORAGE INITIALIZATION AT LOCATION 000360 0INITD CODE FOR DYNAMIC STORAGE INITIALIZATION BEGINS AT LOCATION 0004A0 FOR LENGTH 000088 -* STATISTICS FOR COBOL PROGRAM PROG11: * SOURCE RECORDS = 13 * DATA DIVISION STATEMENTS = 3 * PROCEDURE DIVISION STATEMENTS = 3 0END OF COMPILATION 1, PROGRAM PROG11, NO STATEMENTS FLAGGED. 0RETURN CODE 0