Browser Example

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