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