1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 DATE 11/17/2005 TIME 20:01:53 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:01:53 PAGE 2 0 NOWORD XREF(FULL) YEARWINDOW(1900) ZWB 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG12 DATE 11/17/2005 TIME 20:01:53 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. PROG12. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 DATA DIVISION. 000006 WORKING-STORAGE SECTION. 000007 LINKAGE SECTION. 000008 01 LN-MODE PIC X(1). BLL=00001+000 1C 000009 01 LN-VAL PIC X(8). BLL=00002+000 8C 000010 01 LN-NAME PIC X(8). BLL=00003+000 8C 000011 PROCEDURE DIVISION USING LN-MODE LN-VAL. 8 9 000012 IF LN-MODE = '1' 8 000013 1 SET ADDRESS OF LN-NAME TO ADDRESS OF LN-VAL IMP 10 IMP 9 000014 ELSE 000015 1 DISPLAY 'NAME=' LN-NAME 10 000016 END-IF. 000017 GOBACK. 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG12 DATE 11/17/2005 TIME 20:01:53 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 8 LN-MODE. . . . . . . . . . . . 11 12 10 LN-NAME. . . . . . . . . . . . 13 15 9 LN-VAL . . . . . . . . . . . . 11 13 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG12 DATE 11/17/2005 TIME 20:01:53 PAGE 5 0 DEFINED CROSS-REFERENCE OF PROGRAMS REFERENCES 2 PROG12 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG12 DATE 11/17/2005 TIME 20:01:53 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 PROG12----------------------------------------------------------------------------------------------------* 8 1 LN-MODE . . . . . . . . . . . . . . . . . . . BLL=00001 000 DS 1C DISPLAY 9 1 LN-VAL. . . . . . . . . . . . . . . . . . . . BLL=00002 000 DS 8C DISPLAY 10 1 LN-NAME . . . . . . . . . . . . . . . . . . . BLL=00003 000 DS 8C DISPLAY 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG12 DATE 11/17/2005 TIME 20:01:53 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 000234 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 PROG12 DATE 11/17/2005 TIME 20:01:53 PAGE 8 0CONSTANT GLOBAL TABLE BEGINS AT LOCATION 000108 FOR 000091 BYTES LITERAL POOL MAP FOR LITERALS IN THE CGT: 00010C (LIT+0) FFFFFFFC 00001000 00000001 D7D9D6C7 F1F2D5C1 D4C57E00 00000000 00000000 |............PROG12NAME=.........| 00012C (LIT+32) 00012C00 00000400 00000000 00000000 00000000 00000000 00000000 00000000 |................................| 00014C (LIT+64) 00000000 00000000 00000080 00000040 00000000 00000000 00000001 40000005 |............... ............ ...| 00016C (LIT+96) 08000004 00164000 00080900 01380000 FF400000 000040C0 00014000 06080000 |...... .......... .... ... .....| 00018C (LIT+128) 04001002 C0000608 00000400 10 |............. | LINE # HEXLOC VERB LINE # HEXLOC VERB LINE # HEXLOC VERB 000012 000272 IF 000013 00027E SET 000015 00028E DISPLAY 000017 00029C GOBACK 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG12 DATE 11/17/2005 TIME 20:01:53 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 LINKAGE-SECTION 1PP 5655-G53 IBM ENTERPRISE COBOL FOR Z/OS 3.3.1 PROG12 DATE 11/17/2005 TIME 20:01:53 PAGE 10 0 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 00012C PERFORM SAVE CELLS 000130 TEMPORARY STORAGE-2 0 TGT WILL BE ALLOCATED FOR 00000150 BYTES SPEC-REG WILL BE ALLOCATED FOR 00000008 BYTES DSA WILL BE ALLOCATED FOR 00000140 BYTES 0CONSTANT GLOBAL TABLE FOR DYNAMIC STORAGE INITIALIZATION AT LOCATION 000334 0INITD CODE FOR DYNAMIC STORAGE INITIALIZATION BEGINS AT LOCATION 00047C FOR LENGTH 000072 -* STATISTICS FOR COBOL PROGRAM PROG12: * SOURCE RECORDS = 17 * DATA DIVISION STATEMENTS = 3 * PROCEDURE DIVISION STATEMENTS = 4 0END OF COMPILATION 1, PROGRAM PROG12, NO STATEMENTS FLAGGED. 0RETURN CODE 0