TGT and DSA

TGT存储的是你程序运行环境的一些信息

            000710  000000  72 BYTE SAVE AREA
            000758  000048  TGT IDENTIFIER
            00075C  00004C  NEXT AVAILABLE BYTE ADDRESS FOR CEL
            000760  000050  TGT LEVEL INDICATOR
            000761  000051  RESERVED - 3 SINGLE BYTE FIELDS
            000764  000054  32 BIT SWITCH
            000768  000058  POINTER TO RUNCOM
            00076C  00005C  POINTER TO COBVEC
            000770  000060  POINTER TO PROGRAM DYNAMIC BLOCK TABLE
            000774  000064  NUMBER OF FCB'S
            000778  000068  WORKING STORAGE LENGTH
            00077C  00006C  POINTER TO PREVIOUS TGT IN TGT CHAIN
            000780  000070  ADDRESS OF IGZESMG WORK AREA
            000784  000074  ADDRESS OF 1ST GETMAIN BLOCK (SPACE MGR)
            000788  000078  FULLWORD RETURN CODE
            00078A  00007A  RETURN CODE SPECIAL REGISTER
            00078C  00007C  SORT-RETURN SPECIAL REGISTER
            00078E  00007E  MERGE FILE NUMBER
            000790  000080  ADDRESS OF CEL COMMON ANCHOR AREA
            000794  000084  LENGTH OF TGT
            000798  000088  RESERVED - 1 SINGLE BYTE FIELD
            000799  000089  PROGRAM MASK USED BY THIS PROGRAM
            00079A  00008A  RESERVED - 2 SINGLE BYTE FIELDS
            00079C  00008C  NUMBER OF SECONDARY FCB CELLS
            0007A0  000090  LENGTH OF THE VN(VNI) VECTOR
            0007A4  000094  COUNT OF NESTED PROGRAMS IN COMPILE UNIT
            0007A8  000098  DDNAME FOR DISPLAY OUTPUT
            0007B0  0000A0  SORT-CONTROL SPECIAL REGISTER
            0007B8  0000A8  POINTER TO COM-REG SPECIAL REGISTER
            0007BC  0000AC  CALC ROUTINE REGISTER SAVE AREA
            0007F0  0000E0  ALTERNATE COLLATING SEQUENCE TABLE PTR.
            0007F4  0000E4  ADDRESS OF SORT G.N. ADDRESS BLOCK
            0007F8  0000E8  ADDRESS OF PGT
            0007FC  0000EC  CURRENT INTERNAL PROGRAM NUMBER
            000800  0000F0  POINTER TO 1ST IPCB
            000804  0000F4  POINTER TO NEXT TGT (NORES ONLY)
            000808  0000F8  POINTER TO ABEND INFORMATION TABLE
            00080C  0000FC  POINTER TO TEST INFO FIELDS IN THE TGT
            000810  000100  ADDRESS OF START OF COBOL PROGRAM
            000814  000104  POINTER TO VN'S IN CGT
            000818  000108  POINTER TO VN'S IN TGT
            00081C  00010C  POINTER TO FIRST PBL IN THE PGT
            000820  000110  POINTER TO FIRST FCB CELL
            000824  000114  WORKING STORAGE ADDRESS
            000828  000118  POINTER TO FIRST SECONDARY FCB CELL
 
                    *** VARIABLE PORTION OF TGT ***
 
            00082C  00011C  BACKSTORE CELL FOR SYMBOLIC REGISTERS
            00083C  00012C  BASE LOCATORS FOR SPECIAL REGISTERS
            000844  000134  BASE LOCATORS FOR WORKING-STORAGE
            000848  000138  BASE LOCATORS FOR LINKAGE-SECTION
            00084C  00013C  BASE LOCATORS FOR FILES
            000854  000144  VARIABLE NAME (VN) CELLS
            000860  000150  INDEX CELLS
            000864  000154  PERFORM SAVE CELLS
            000870  000160  FCB CELLS
            000878  000168  INTERNAL PROGRAM CONTROL BLOCKS
            000888  000178  TEMPORARY STORAGE-2

 第一列是从程序开始处的偏移量，第二列是TGT自身的偏移量，后面的是对所存数据的解释。

 

 

 下面是TGT的一个实例：

       TGT for COBOLTST: 11480AA0                                                    
      +000000 11480AA0  00000000 00000000 00000000 00000000  00000000 00000000 00000000 00000000  |................................|
      +000020 11480AC0 - +00003F 11480ADF             same as above                                                                
      +000040 11480AE0  00000000 00000000 F3E3C7E3 00000000  06000000 42430260 11480100 000167FC  |........3TGT...........-........|
      +000060 11480B00  11480C20 00000001 00000174 00000000  00000000 114A4148 00000000 00000000  |................................|
      +000080 11480B20  112129C0 00000180 00000000 00000000  00000000 00000001 E2E8E2D6 E4E34040  |........................SYSOUT  |
      +0000A0 11480B40  C9C7E9E2 D9E3C3C4 00000000 00000000  00000000 00000000 00000000 00000000  |IGZSRTCD........................|
      +0000C0 11480B60  00000000 00000000 00000000 00000000  00000000 00000000 00000000 00000000  |................................|
      +0000E0 11480B80  00000000 00000000 112028DC 00000000  11480C0C 11480A48 1120298B 11480BE0  |................................|
      +000100 11480BA0  112027E0 11202910 11480C08 11202904  11480C08 114A41D8 00000000 00000000  |.......................Q........|
      +000120 11480BC0  00000000 00000000 114A4158 114A41D8  00000000 114A4120 0001E038 00000000  |...............Q................|
      +000140 11480BE0  00000000 11202D2C 07FE07FE 00000000  00000000 00001FFF 07FE0000 00000000  |................................|
      +000160 11480C00  00000000 00000000 11480C50 40000000  00000000 00000000 11480D68 00000001  |...........& ...................|

 

 *********************************************************************************************************************************************************

               *** DSA(Dynamic Save Area) MEMORY MAP ***
           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  BACKSTORE CELLS FOR SYMBOLIC REGISTERS
           000158  BASE LOCATORS FOR ALPHANUMERIC TEMPS
           00015C  VARIABLE-LENGTH CELLS
           000170  ODO SAVE CELLS
           00017C  VARIABLE NAME (VN) CELLS FOR PERFORM
           0001EC  PERFORM SAVE CELLS
           000320  TEMPORARY STORAGE-1
           000330  TEMPORARY STORAGE-2
           000500  ALL PARAMETER BLOCK
           000564  ALPHANUMERIC TEMPORARY STORAGE
 
 下面位一个具体实例：
 
 DSA for COBOLTST: 114841D0                                                          
      +000000  FLAGS.... 0010      member... 4001      BKC...... 11484030  FWC...... 11484370  R14...... 91202C78                  
      +000010  R15...... 912EF898  R0....... 11480BDC  R1....... 114842C0  R2....... 114A4340  R3....... 11202BBC                  
      +000024  R4....... 11202818  R5....... 11480100  R6....... 00000000  R7....... 00FDD100  R8....... 114A41D8                  
      +000038  R9....... 11480AA0  R10...... 11202908  R11...... 11202AD4  R12...... 112129C0  reserved. 00000000                  
      +00004C  NAB...... 11484370  PNAB..... 00000000  reserved. 00000000  11480AA0                                                
      +000064  reserved. 11200398  reserved. 114803F0  MODE..... 00016108  reserved. 00000000                                      
      +000078  reserved. 11205F98  reserved. 00000000