1 07/13/2022 12:55 Page 1
Hover or Click for any of following in Browser:
o Source Code
o Start of Procedure Division
o Perform Analysis
o Routine Forward Tracing
o Control/DCD Messages
o IBM Compile Messages
MM MMM AAAAAAAAA RRRRRRRRRR BBBBBBBBB LL EEEEEEEEEE
MMM MMMM AA AA RR RR BB BB LL EE
MMMM MMMMM AA AA RR RR BB BB LL EE
MM MM MM MMM AA AA RR RR BB BB LL EE
MM MMMM MMM AA AA RR RR BB BB LL EE
MM MM MMM AAAAAAAAAAAA RRRRRRRRRRRR BBBBBBBBBBB LL EEEEEEEEEE
MM MMM AAAAAAAAAAAA RRRRRRRRRRRR BBBBBBBBBBB LLL EEEEEEEEEE
MM MMM AAA AA RRR RRR BB BBB LLL EEE
MM MMM AAA AA RRR RRR BB BBB LLL EEE
MM MM MMM AAA AA RRR RRR BB BBB LLL EEE
MM MM MMM AAA AA RRR RRR BB BBB LLL EEEEEEEEEE
MM MM MMM AAA AA RRR RRR BBBBBBBBBBB LLLLLLLLLLL EEEEEEEEEE
The COBOL Analytics Company
See our website at: www.marblecomputer.com
for downloading a Control/DCD manual or for other support
Marble Computer, Inc. Phone: 1-800-252-1400
6416 Via De Albur Ct. or 1-915-845-0963
El Paso, Texas 79912 Fax: 1-915-845-7918
MARBLE programs may not be copied -COPYRIGHT 2021
Use of Control/DCD output is not restricted
Control/DCD Release: 2.4-1258
0
0 ( Defaults used as //USERSEL DD not present )
1 USER PARM FIELD 07/13/2022 12:55 Page 2
0SOU,CAL,COP,FGC,LIT,SPR,DDC,PDC,COM,CLN=00,RES,UNR,NOIREFS,NOPMO,INV,SOR=0810000,LNC=60
PARM OPTIONS IN EFFECT FOR THIS PROGRAM
ASKIPS (FOR SKIP1, 2, 3)
BF05 (MATCHES TO BUFNO)
CALL -CALL REPORT
DYCALLS (DYNAMIC CALL INFO)
CICS (ALLOWED)
CLN=060 (MATCHES COMPILER)
NOCOAID (COBOL/AID)
COMPILE (MODE)
COPY -COPY REPORT
NOCA* FOR CA-OPT; CO/AID
DB2 (ALLOWED)
DDC -DATA DIV SXREF
DLI (ALLOWED)
ERRORS ERRORS ARE PRINTED
DNF GIVE WARNINGS FOR MISSING NAMES Control/DCD A product of Marble Computer, Inc
FGCONSTS -FIGURATIVE CONSTS Release 2.4-1258 Copyright 2021
FTB PRINT FROM-TO IN 73-80 IF BLANK for Z/OS and all previous operating systems
NOIDD NO DATA DIV LITERALS
INVALID INVALID DATA ERRORS Web Site: www.marblecomputer.com
NOIREFS NO INDIRECT REFERENCES Email: support@marblecomputer.com
LITERALS -LITERAL REPORT Phone: 1-800-252-1400
LNCNT=060 (LINES PER PAGE)
NONIS NO PROG SEQ FOR PD NARRATIVE Marble programs may not be copied. Use of the following
NONUC NARRATIVE-Lower Case output is not restricted.
NONRSPACE NO BLANK LINES
NEW Using NEW Source Listing Format
PDC -PROC DIV SXREF
NOQUOTE SINGLE APOSTROPHE
RESOLVE (COPY MEMBERS)
SRESOLVE *OVERRIDE SUPPRESS
SORTREG=00810000 (SORT REGION)
SOURCE -SOURCE LISTING
NOPMO NO PMAP OFFSETS FOR COMPILE MODE
SPREGS -SPECIAL REGISTERS
UNREF (PRINT UNREF NAME)
U01 -UNUSED 01 RECORDS
UDN -UNUSED DATA NAMES
UPARAS -UNUSED PARA / SECTIONS
UPIGNORE (PARAs in Perform ranges)
VERB -VERB REPORT
VS2 (ENTERPRISE COBOL)
NOWNV NO W-S fields report for NO VALUE
1 Error Messages Page 3
0SQ-NBR MSG-NBR DESCRIPTION
0 No Errors Found
1 PERFORM ERRORS and ANALYSIS Page 4
0
PERFORM Warnings & Major Errors
Count Type & Sequence Number(s)
NO PERFORM Warnings or Errors found
PERFORM & GO TO activity
Count Type & Sequence Number(s)
08 PERFORM Paragraphs
00024 00024 00026 00026 00026 00032 00041
00045
1 Forward Tracing &FORWARD-TRACING Page 5
1 &21. &PROGRAM-ENTRY
2 &30. A-DO-PARA-1
3 &37. AA-SUB-ROUTINE
4 &48. E-DO-PARA-5
5 &40. B-PARA-2 --> (2 Performs)
6 &44. C-PARA-3
7 &46. D-DO-PARA-4
(See #6) C-PARA-3
1SQ-NBR 1----6 PROGRAM-ID TBROWSER 07/13/2022 R=1258 Page 6
1 1 IDENTIFICATION DIVISION. TBROWSER
2 2 PROGRAM-ID. TBROWSER. TBROWSER
3 3 DATA DIVISION. TBROWSER
4 4 WORKING-STORAGE SECTION. TBROWSER
5 5 01 TEST-RECORD. TBROWSER
6 6 05 TEST-FLD-1 PIC X(08). TBROWSER
7 7 01 TEST-REC-2. TBROWSER
8 8 05 TEST-REC-FLD PIC X(10). TBROWSER
9 9 COPY TDDCOPY. TBROWSER
10 C D10 01 TDD-RECORD. 1-10
11 C D11 05 TDD-FIELD-POS-11 PIC X(01). 1-1
12 C D12 05 TDD-FIELD-POS-12 PIC X(02). 2-3
13 C D13 05 TDD-FIELD-POS-13 PIC X(03). 4-6
14 C D14 05 TDD-FIELD-POS-14 PIC X(04). 7-10
15 C D15 01 TDD-REC-2. 1-30
16 C D16 05 TDD-FIELD-POS-16 PIC X(06). 1-6
17 C D17 05 TDD-FIELD-POS-17 PIC X(07). 7-13
18 C D18 05 TDD-FIELD-POS-18 PIC X(08). 14-21
19 C D19 05 TDD-FIELD-POS-19 PIC X(09). 22-30
20 20 01 TEST-REC-3 PIC X(20). TBROWSER
1SQ-NBR 1----6 PROGRAM-ID TBROWSER 07/13/2022 R=1258 Page 7
21 21 PROCEDURE DIVISION. TBROWSER BEGIN OF PROGRAM
22 22 010-PARAGRAPH-1. TBROWSER
23 23 IF TEST-REC-2 = SPACES TBROWSER &7
24 24 PERFORM A-DO-PARA-1 PERFORM TBROWSER COND PERFORM 030 THRU 036
COND PERFORM 048 THRU 049
25 25 E-DO-PARA-5 ELSE TBROWSER
26 26 PERFORM B-PARA-2 PERFORM B-PARA-2 PERFORM C-PARA-3. TBROWSER COND PERFORM 040 THRU 043
COND PERFORM 040 THRU 043
COND PERFORM 044 THRU 045
27 27 MOVE '456ABCD9' TO TEST-FLD-1. TBROWSER &6
28 28 999-GOBACK. GOBACK. TBROWSER GOBACK
29 29 COPY TPDCOPY. TBROWSER
30 C P30 A-DO-PARA-1. PERFORMED BY 024
31 C P31 MOVE SPACES TO TDD-REC-2. &15
32 C P32 PERFORM AA-SUB-ROUTINE. PERFORM 037 THRU 039
33 C P33 IF TEST-FLD-1 = TDD-FIELD-POS-13 &6 &13
34 C P34 OR TEST-FLD-1 = TDD-FIELD-POS-12 &6 &12
35 C P35 NEXT SENTENCE
36 C P36 ELSE MOVE HIGH-VALUES TO TDD-FIELD-POS-12. &12 RETURN TO PERFORM AT 024
37 C P37 AA-SUB-ROUTINE. PERFORMED BY 032
38 C P38 MOVE ZEROS TO TDD-FIELD-POS-17. &17
39 C P39 IF TDD-FIELD-POS-19 = '44', MOVE SPACES TO TEST-REC-2. &19 &7
RETURN TO PERFORM AT 032
40 40 B-PARA-2. TBROWSER PERFORMED BY 026 026
41 41 PERFORM C-PARA-3. TBROWSER PERFORM 044 THRU 045
42 42 IF TEST-REC-FLD = TEST-REC-3 TBROWSER &8 &20
43 43 MOVE 'ABCDEFGHIJ1234567890' TO TEST-REC-3. TBROWSER &20 RETURN TO PERFORM AT 026 026
44 44 C-PARA-3. TBROWSER PERFORMED BY 026 041
45 45 PERFORM D-DO-PARA-4. TBROWSER PERFORM 046 THRU 047
RETURN TO PERFORM AT 026 041
46 46 D-DO-PARA-4. TBROWSER PERFORMED BY 045
47 47 MOVE TDD-FIELD-POS-11 TO TDD-FIELD-POS-12. TBROWSER &11 &12
RETURN TO PERFORM AT 045
48 48 E-DO-PARA-5. TBROWSER PERFORMED BY 024
49 49 MOVE '345' TO TDD-FIELD-POS-13. TBROWSER &13 RETURN TO PERFORM AT 024
1 SPECIAL NARRATIVE &NARRATIVE Page 8
&6. &TEST-FLD-1 DATA DIVISION
In 1-8 of 01 TEST-RECORD
in WORKING-STORAGE
05 TEST-FLD-1
Pic X(08)
PROGRAM-ENTRY PROCEDURE DIVISION
Move '456ABCD9' to TEST-FLD-1 (27)
A-DO-PARA-1
If TEST-FLD-1 = TDD-FIELD-POS-12 @12 (33), TDD-FIELD-POS-13
@13 (33)
1 PROGRAM-ENTRY ROUTINE TRACING
2 A-DO-PARA-1 F &21. FIRST
&7. &TEST-REC-2 DATA DIVISION
10 pos in 01 TEST-REC-2
in WORKING-STORAGE
01 TEST-REC-2
PROGRAM-ENTRY PROCEDURE DIVISION
If TEST-REC-2 = SPACES (23)
AA-SUB-ROUTINE
Move SPACES to TEST-REC-2 (39)
1 PROGRAM-ENTRY ROUTINE TRACING
2 A-DO-PARA-1 (No Activity) F &21. FIRST
3 AA-SUB-ROUTINE
&8. &TEST-REC-FLD DATA DIVISION
In 1-10 of 01 TEST-REC-2
in WORKING-STORAGE
05 TEST-REC-FLD
Pic X(10)
B-PARA-2 --> (2 Performs) PROCEDURE DIVISION
If TEST-REC-FLD = TEST-REC-3 @20 (42)
1 B-PARA-2 --> (2 Performs) ROUTINE TRACING
&11. &TDD-FIELD-POS-11 DATA DIVISION
In 1-1 of 01 TDD-RECORD
In COPY TDDCOPY in WORKING-STORAGE
C 05 TDD-FIELD-POS-11
Pic X(01)
D-DO-PARA-4 PROCEDURE DIVISION
Move TDD-FIELD-POS-11 to TDD-FIELD-POS-12 @12 (47)
1 D-DO-PARA-4 ROUTINE TRACING
1 SPECIAL NARRATIVE Page 9
&12. &TDD-FIELD-POS-12 DATA DIVISION
In 2-3 of 01 TDD-RECORD
In COPY TDDCOPY in WORKING-STORAGE
C 05 TDD-FIELD-POS-12
Pic X(02)
A-DO-PARA-1 PROCEDURE DIVISION
If TEST-FLD-1 @6 = TDD-FIELD-POS-12 (33)
Move HIGH-VALUES to TDD-FIELD-POS-12 (36)
D-DO-PARA-4
Move TDD-FIELD-POS-11 @11 to TDD-FIELD-POS-12 (47)
1 A-DO-PARA-1 ROUTINE TRACING
1 D-DO-PARA-4 F &30. FIRST
&13. &TDD-FIELD-POS-13 DATA DIVISION
In 4-6 of 01 TDD-RECORD
In COPY TDDCOPY in WORKING-STORAGE
C 05 TDD-FIELD-POS-13
Pic X(03)
A-DO-PARA-1 PROCEDURE DIVISION
If TEST-FLD-1 @6 = TDD-FIELD-POS-13 (33)
E-DO-PARA-5
Move '345' to TDD-FIELD-POS-13 (49)
1 A-DO-PARA-1 ROUTINE TRACING
1 E-DO-PARA-5 F &30. FIRST
&15. &TDD-REC-2 DATA DIVISION
30 pos in 01 TDD-REC-2
In COPY TDDCOPY in WORKING-STORAGE
C 01 TDD-REC-2
A-DO-PARA-1 PROCEDURE DIVISION
Move SPACES to TDD-REC-2 (31)
1 A-DO-PARA-1 ROUTINE TRACING
&17. &TDD-FIELD-POS-17 DATA DIVISION
In 7-13 of 01 TDD-REC-2
In COPY TDDCOPY in WORKING-STORAGE
C 05 TDD-FIELD-POS-17
Pic X(07)
AA-SUB-ROUTINE PROCEDURE DIVISION
Move ZEROS to TDD-FIELD-POS-17 (38)
1 AA-SUB-ROUTINE ROUTINE TRACING
1 SPECIAL NARRATIVE Page 10
&19. &TDD-FIELD-POS-19 DATA DIVISION
In 22-30 of 01 TDD-REC-2
In COPY TDDCOPY in WORKING-STORAGE
C 05 TDD-FIELD-POS-19
Pic X(09)
AA-SUB-ROUTINE PROCEDURE DIVISION
If TDD-FIELD-POS-19 = '44' (39)
1 AA-SUB-ROUTINE ROUTINE TRACING
&20. &TEST-REC-3 DATA DIVISION
20 pos in 01 TEST-REC-3
in WORKING-STORAGE
01 TEST-REC-3
Pic X(20)
B-PARA-2 --> (2 Performs) PROCEDURE DIVISION
If TEST-REC-FLD @8 = TEST-REC-3 (42)
Move 'ABCDEFGHIJ1234567890' to TEST-REC-3 (43)
1 B-PARA-2 --> (2 Performs) ROUTINE TRACING
1 07/13/2022 VERB REPORT FOR TBROWSER Page 11
GOBACK 028
IF 023 033 039 042
MOVE 027 031 036 038 039 043 047 049
PERFORM 024 024 026 026 026 032 041 045
PROGRAM ENTRY 021
1 07/13/2022 CROSS REFERENCE FOR TBROWSER Page 12
- CALL STATEMENTS
00021 PROG ENTRY TBROWSER
- COPY STATEMENTS
DATA DIVISION 00009 COPY TDDCOPY
PROCEDURE DIV 00029 COPY TPDCOPY
- FIGURATIVE CONSTANTS
HIGH-VALUE(S) 036
SPACE(S) 023 031 039
ZERO(S) 038
- PROCEDURE DIVISION LITERALS
'ABCDEFGHIJ1234567890' 043
'345' 049
'44' 039
'456ABCD9' 027
1 07/13/2022 DATA DIVISION CROSS REFERENCE FOR TBROWSER Page 13
G 01 0005 TEST-RECORD : 05 0011 TDD-FIELD-POS-11 : 05 0016 TDD-FIELD-POS-16
05 0006 TEST-FLD-1 : 05 0012 TDD-FIELD-POS-12 : 05 0017 TDD-FIELD-POS-17
G 01 0007 TEST-REC-2 : 05 0013 TDD-FIELD-POS-13 : 05 0018 TDD-FIELD-POS-18
05 0008 TEST-REC-FLD : 05 0014 TDD-FIELD-POS-14 : 05 0019 TDD-FIELD-POS-19
G 01 0010 TDD-RECORD : G 01 0015 TDD-REC-2 : 01 0020 TEST-REC-3
1 07/13/2022 PROCEDURE DIVISION ROUTINES FOR TBROWSER Page 14
0030 A-DO-PARA-1 : 0044 C-PARA-3 : 0022 010-PARAGRAPH-1
0037 AA-SUB-ROUTINE : 0046 D-DO-PARA-4 : 0028 999-GOBACK
0040 B-PARA-2 : 0048 E-DO-PARA-5
1 07/13/2022 Unreferenced PARAGRAPH/SECTIONs for TBROWSER Page 15
There are NO unreferenced PARAGRAPHs or SECTIONs
1 07/13/2022 Unused 01 Records and 77s for Prog: TBROWSER Page 16
Prog# Edit# Lvl Field Name
There were NO unused 77 Level Entries or unused 01 Records
1 Page 17
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 07/13/2022 Time 12:55:40 Page 18
0Invocation parameters:
NOADV,LIB,OFFSET,NOSEQ
0Options in effect:
NOADATA
NOADV
QUOTE
ARITH(COMPAT)
NOAWO
NOBLOCK0
BUFSIZE(4096)
NOCICS
CODEPAGE(1140)
NOCOMPILE(S)
NOCURRENCY
DATA(31)
NODATEPROC
DBCS
NODECK
NODIAGTRUNC
NODLL
NODUMP
NODYNAM
NOEXIT
NOEXPORTALL
NOFASTSRT
FLAG(I,I)
NOFLAGSTD
INTDATE(ANSI)
LANGUAGE(EN)
LIB
LINECOUNT(60)
NOLIST
NOMAP
NOMDECK
NONAME
NSYMBOL(NATIONAL)
NONUMBER
NUMPROC(NOPFD)
OBJECT
OFFSET
NOOPTIMIZE
OUTDD(SYSOUT)
PGMNAME(COMPAT)
RENT
RMODE(AUTO)
NOSEQUENCE
SIZE(MAX)
SOURCE
SPACE(1)
NOSQL
SQLCCSID
NOSSRANGE
NOTERM
NOTEST
NOTHREAD
TRUNC(STD)
NOVBREF
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 Date 07/13/2022 Time 12:55:40 Page 19
0 NOWORD
XMLPARSE(XMLSS)
XREF(FULL)
YEARWINDOW(1900)
ZWB
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TBROWSER Date 07/13/2022 Time 12:55:40 Page 20
0An "M" preceding a data-name reference indicates that the data-name is modified by this reference.
Defined Cross-reference of data names References
11 TDD-FIELD-POS-11 . . . . . . . 47
12 TDD-FIELD-POS-12 . . . . . . . 34 M36 M47
13 TDD-FIELD-POS-13 . . . . . . . 33 M49
14 TDD-FIELD-POS-14
16 TDD-FIELD-POS-16
17 TDD-FIELD-POS-17 . . . . . . . M38
18 TDD-FIELD-POS-18
19 TDD-FIELD-POS-19 . . . . . . . 39
15 TDD-REC-2. . . . . . . . . . . M31
10 TDD-RECORD
6 TEST-FLD-1 . . . . . . . . . . M27 33 34
8 TEST-REC-FLD . . . . . . . . . 42
7 TEST-REC-2 . . . . . . . . . . 23 M39
20 TEST-REC-3 . . . . . . . . . . 42 M43
5 TEST-RECORD
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TBROWSER Date 07/13/2022 Time 12:55:40 Page 21
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
30 A-DO-PARA-1. . . . . . . . . . P24
37 AA-SUB-ROUTINE . . . . . . . . P32
40 B-PARA-2 . . . . . . . . . . . P26 P26
44 C-PARA-3 . . . . . . . . . . . P26 P41
46 D-DO-PARA-4. . . . . . . . . . P45
48 E-DO-PARA-5. . . . . . . . . . P25
22 010-PARAGRAPH-1
28 999-GOBACK
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TBROWSER Date 07/13/2022 Time 12:55:40 Page 22
0 Defined Cross-reference of programs References
2 TBROWSER
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TBROWSER Date 07/13/2022 Time 12:55:40 Page 23
0
COPY/BASIS cross-reference of text-names, library names and dataset information
Text-name Library File name Concat ISPF statistics
(Member) (DDNAME) (Dataset name) Level Created Changed
TDDCOPY SYSLIB MARBL01.TESTCOPY.COBOL 0 2020/12/08 2020/12/08 12:34:52
TPDCOPY SYSLIB MARBL01.TESTCOPY.COBOL 0
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TBROWSER Date 07/13/2022 Time 12:55:40 Page 24
0PROGRAM GLOBAL TABLE BEGINS AT LOCATION 0000FC FOR 00002C BYTES
THE PGT CONTAINS 000001 CELL(S) FOR ADDRESSABILITY TO THE CGT
PBL1 AT LOCATION 000220 FOR LINE 2
0
LITERAL POOL MAP FOR SYSTEM LITERALS IN THE PGT:
0000FC (LIT+0) 00000001 40404040 40404040 40404040 40404040 40404040 40404040 40404040 |.... |
00011C (LIT+32) 4040 | |
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TBROWSER Date 07/13/2022 Time 12:55:40 Page 25
0CONSTANT GLOBAL TABLE BEGINS AT LOCATION 000128 FOR 0000F8 BYTES
LITERAL POOL MAP FOR LITERALS IN THE CGT:
000144 (LIT+0) FFFFFFFC 00001000 00000001 00000000 C1C2C3C4 C5C6C7C8 C9D1F1F2 F3F4F5F6 |................ABCDEFGHIJ123456|
000164 (LIT+32) F7F8F9F0 F4F44040 40404040 40F4F5F6 C1C2C3C4 F9E3C2D9 D6E6E2C5 D9E2E8E2 |789044 456ABCD9TBROWSERSYS|
000184 (LIT+64) D6E4E340 40C9C7E9 E2D9E3C3 C4F0F0F0 F0F0F0F0 FFFF0000 00000000 012C0000 |OUT IGZSRTCD0000000............|
0001A4 (LIT+96) 00010000 01300000 00010000 00000000 00000000 00000000 00000000 00000000 |................................|
0001C4 (LIT+128) 00000000 00000000 00000000 00008000 00004000 00000000 00000000 00004000 |.................. ........... .|
0001E4 (LIT+160) 00000000 00000000 00000000 00004000 00000025 C00001C0 00080800 00240051 |.............. .................|
000204 (LIT+192) 40000000 0040C000 01400008 08000024 005102C0 00080800 00240051 | .... ... .................. |
LINE # HEXLOC VERB LINE # HEXLOC VERB LINE # HEXLOC VERB
000023 000328 IF 000024 000332 PERFORM 000024 00034A PERFORM
000026 00036E PERFORM 000026 000386 PERFORM 000026 0003A2 PERFORM
000027 0003BE MOVE 000028 0003C4 GOBACK 000031 0003CC MOVE
000032 0003D2 PERFORM 000033 0003EA IF 000036 00041E MOVE
000038 00042A MOVE 000039 000430 IF 000039 00043A MOVE
000041 000446 PERFORM 000042 00045E IF 000043 000476 MOVE
000045 000482 PERFORM 000047 0004A0 MOVE 000049 0004B0 MOVE
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TBROWSER Date 07/13/2022 Time 12:55:40 Page 26
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
000130 BASE LOCATORS FOR LINKAGE-SECTION
000134 INTERNAL PROGRAM CONTROL BLOCKS
1PP 5655-S71 IBM Enterprise COBOL for z/OS 4.2.0 TBROWSER Date 07/13/2022 Time 12:55:40 Page 27
0 *** 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
00000080 XML PARSE WORK AREA ANCHOR
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
000000D8 VARIABLE-LENGTH CELLS
000000F0 VARIABLE NAME (VN) CELLS FOR PERFORM
0000010C PERFORM SAVE CELLS
00000130 TEMPORARY STORAGE-2
0
TGT WILL BE ALLOCATED FOR 00000148 BYTES
SPEC-REG WILL BE ALLOCATED FOR 0000007E BYTES
WRK-STOR WILL BE ALLOCATED FOR 0000005C BYTES
DSA WILL BE ALLOCATED FOR 00000140 BYTES
0CONSTANT GLOBAL TABLE FOR DYNAMIC STORAGE INITIALIZATION AT LOCATION 000550
0INITD CODE FOR DYNAMIC STORAGE INITIALIZATION BEGINS AT LOCATION 000688 FOR LENGTH 000088
-* Statistics for COBOL program TBROWSER:
* Source records = 49
* Data Division statements = 15
* Procedure Division statements = 21
0End of compilation 1, program TBROWSER, no statements flagged.
0Return code 0