         PROC                                                           TCT00100
ZM#DTCT  NAME                                                           TCT00200
ZC#DTCT  DSECT           **** TERMINAL CONTROL TABLE RECORD ****        TCT00300
*                                                                       TCT00400
ZC#LINK  DS    H         ACT LINK TO NEXT TCT IN QUEUE                  TCT00500
ZC#TID   DS    XL4       TERMINAL ID                                    TCT00600
ZC#TAL   DS    H         REL ADDR ALTERNATE TCT (OS/4)                  TCT00700
*                                  REL ADDR SOURCE TCT (OS/3)           TCT00800
ZC#TALT  DS    H         REL ADDR ALTERNATE TCT (OS/3)                  TCT00900
ZC#TTTA  DS    F         CORRESPONDING TTT ADDRESS                      TCT01000
*     OS/4 USES ZC#TQS & ZC#TIC IN PLACE OF ZC#TTA                      TCT01100
         ORG   ZC#TTTA                                                  TCT01200
ZC#TQS   DS    H         DISPL TO ICAM TERMINAL TABLE                   TCT01300
ZC#TIC   DS    H         TOTAL TRANSACTION INPUTS                       TCT01400
*                                                                       TCT01500
ZC#TESR  DS    F         SUCC ACT REL ADDR - ROLLBACK                   TCT01600
ZC#TCDL  DS    H         CONTINUITY DATA LENGTH                         TCT01700
ZC#TTCM  DS    H         TERMINAL COMMAND COUNT                         TCT01800
ZC#TCM   EQU   ZC#TTCM   OS/4 TAG                                       TCT01900
ZC#TLN   DS    XL1       LINE NUMBER                                    TCT02000
ZC#TTST  DS    XL3       STATUS BYTES                                   TCT02100
ZC#TST   EQU   ZC#TTST   OS/4 TAG                                       TCT02200
*                                                                       TCT02300
*   EQUATES FOR ZC#TTST/ZC#TST                                          TCT02400
*                                                                       TCT02500
ZC#TTLST EQU   X'80'     LAST TCT                                       TCT02600
ZC#TTTMD EQU   X'40'     TEST MODE                                      TCT02700
ZC#TTUM  EQU   X'20'     URGENT MESSAGE, ACTION                         TCT02800
ZC#TTDWN EQU   X'10'     TERMINAL DOWN                                  TCT02900
ZC#TTHLD EQU   X'08'     HOLD TERMINAL                                  TCT03000
ZC#TTUT  EQU   X'04'     URGENT TERMINAL                                TCT03100
ZC#TQRDY EQU   X'02'     IMC SHOULD SEND MSG WAIT                       TCT03200
ZC#TMTC  EQU   X'01'     MWRITE ISSUED UNDER ZZTST                      TCT03300
*                                                                       TCT03400
ZC#TST1  EQU   ZC#TST+1,1                                               TCT03500
*                                                                       TCT03600
*   EQUATES FOR ZC#TST1                                                 TCT03700
*                                                                       TCT03800
ZC#TTIM  EQU   X'80'     INTERACTIVE MODE                               TCT03900
ZC#TTMT  EQU   X'40'     MASTER TERMINAL                                TCT04000
ZC#TTOVR EQU   X'20'     OVERRIDE BIT                                   TCT04100
ZC#TTRC  EQU   X'10'     ROLLBACK COMPLETE                              TCT04200
ZC#TTMWS EQU   X'08'     IMS SENT MSG WAIT                              TCT04300
ZC#TTBTH EQU   X'04'     BATCH TERMINAL                                 TCT04400
ZC#TTRP  EQU   X'02'     ROLLBACK IN PROCESS                            TCT04500
ZC#TTMS  EQU   X'01'     MSG TO ORIG TERM SENT                          TCT04600
*                                                                       TCT04700
ZC#TST2  EQU   ZC#TST1+1,1                                              TCT04800
ZC#TPRSF EQU   ZC#TST2                                                  TCT04900
*                                                                       TCT05000
*   EQUATES FOR ZC#TST2                                                 TCT05100
*                                                                       TCT05200
ZC#TTUNS EQU   X'80'     MWRITE ISSUED FROM ZO#UNSMT MODULE             TCT05300
ZC#TTREL EQU   X'40'     RELEASE BUFFER AT MWRITE COMPL                 TCT05400
ZC#TPRMQ EQU   X'20'     MSG IN QUEUE                                   TCT05500
ZC#TPRMP EQU   X'10'     MSG IN PROCESS                                 TCT05600
ZC#TTSTA EQU   X'08'     SEND AUTO STATUS MESSAGE                       TCT05700
*                                                                       TCT05800
ZC#TQE   DS    H         CANCEL LINK                                    TCT05900
ZC#PRFT  DS    H         DISPL TO PROCESS FILE TABLE                    TCT06000
ZC#PQCNT DS    H         PROCESS QUEUE COUNT                            TCT06100
ZC#MQCNT DS    XL1                 LAST ICAM SVC                        TCT06200
         DS    X                   FILLER                               TCT06300
ZC#LQCNT DS    H         LOW QUEUE COUNT                                TCT06400
ZC#TIN   DS    H         TOTAL INPUT COUNT                              TCT06500
ZC#TOC   DS    H         TOTAL OUTPUT COUNT                             TCT06600
ZC#TON   DS    H         TIMER LINK                                     TCT06700
ZC#IBF   DS    H         DISPL TO 1ST SLOT OF INPUT MSG                 TCT06800
ZC#IML   DS    H         INPUT MESSAGE LENGTH                           TCT06900
ZC#OBF   DS    H         DISPL TO 1ST SLOT OF OUTPUT MSG                TCT07000
ZC#OML   DS    H         OUTPUT MESSAGE LENGTH                          TCT07100
ZC#TBF   DS    H                   TIMER BUFFER ADDR                    TCT07200
ZC#TML   DS    H                   TIMER MESSAGE LENGTH                 TCT07300
         DS    F                    TILLER - FOR LATER USE BY IMC       TCT07400
ZC#TTRID DS    CL8       TRANS ID (INITIAL DATE/TIME)                   TCT07500
ZC#TRID  EQU   ZC#TTRID  OS/4 TAG                                       TCT07600
ZC#TCB   DS    A         THREAD CONTROL BLOCK ADDR                      TCT07700
ZC#TLI   DS    4F        TRANS LOCK INDICATOR                           TCT07800
ZC#TAUM  DS    4F        AUDITED UPDATE MAP                             TCT07900
*** ZC#TLI AND ZC#TAUM MUST AGREE WITH ZT#TNUMF IN THE THCB             TCT08000
ZC#TTEXT DS    CL5       TRANSLATED TERM CMD/TRANS CODE                 TCT08100
ZC#TCODE EQU   ZC#TTEXT  OS/4 TAG                                       TCT08200
ZC#TDDRC DS    CL1       DDR NAME ID CHAR (HIGH BYTE = X'FD')           TCT08300
*** THE ABOVE FIELD IS DEFINED IN OS/4 BUT NOT TAGGED                   TCT08400
ZC#TDDRN DS    CL7       DATA DEF REC NAME                              TCT08500
ZC#TDFN  DS    CL7       DEFINED FILE NAME                              TCT08600
ZC#TES   DS    F         SUCC ACT RECORD RELATIVE ADDR                  TCT08700
*     MULTI-THREAD SYSTEMS USE ZC#ES & ZC#CDC IN PLACE OF ZC#TES        TCT08800
         ORG   ZC#TES                                                   TCT08900
ZC#ES    DS    H         SUCC ACT RECORD RELATIVE ADDR                  TCT09000
ZC#CDL   DS    H         CONTINUITY DATA LENGTH                         TCT09100
*                                                                       TCT09200
ZC#WAI   DS    H         WORK AREA INC                                  TCT09300
ZC#CDI   DS    H         CONTINUITY DATA AREA INC                       TCT09400
ZC#TTTN  DS    XL1       TCT RECORD NUMBER                              TCT09500
         DS    XL1       UNUSED                                         TCT09600
ZC#TINT  DS    H         TOTAL TRANSACTION INPUTS                       TCT09700
*     MULTI-THREAD USES ZC#CDR & ZC#CES INSTEAD OF ZC#TTTN & ZC#TINT    TCT09800
         ORG   ZC#TTTN                                                  TCT09900
ZC#CDR   DS    H         TCT RECORD NUMBER                              TCT10000
ZC#CES   DS    H         SUCC ACT REL ADDR - ROLLBACK                   TCT10100
ZC#SCFR  DS    XL4       COUNT FIELD FOR ROLLBACK                       TCT10200
*                                                                       TCT10300
ZC#TTIR  DS    XL1       TERM IND FOR ACTION PROG USING ROLLBACK        TCT10400
ZC#TIR   EQU   ZC#TTIR   OS/4 TAG                                       TCT10500
         ORG   ZC#TIR                                                   TCT10600
ZC#TRWA  DS    F         TRACE WORK AREA                                TCT10700
ZC#FBPA  DS    H * FIRST BLOCK OF PARTITION                             TCT10800
ZC#CBPA  DS    H * CURRENTLY ACCESSED BLOCK                             TCT10900
ZC#LBPA  DS    H * LAST BLOCK OF PARTITION                              TCT11000
ZC#NRBCB DS    H *# OF REM.BYTES IN CURR. BLOCK                         TCT11100
*                                                                       TCT11200
ZC#TLEN  EQU   *-ZC#DTCT                                                TCT11300
&SYSECT  CSECT                                                          TCT11350
         END                                                            TCT11400
