* %GOTO TSBXL2; 00010000 */* 00020000 MACRO 00030000 IKTTSBX 00040000 TSBX DSECT 00050000 SPACE 3 @Z40DCKM 00060000 .* /* START OF SPECIFICATIONS **** 00070000 .* 00080000 .*01* MODULE-NAME = IKTTSBX 00090000 .* 00100000 .*01* DESCRIPTIVE-NAME = TSB EXTENTION 00110000 .* 00120000 .*01* COPYRIGHT = NONE 00130000 .* 00140000 .*01* STATUS = OS/VS2 SU 58 - TSO/VTAM LEVEL 2.0 @G58AK3A 00150000 .* 00160000 .*01* FUNCTION = THIS MARCO IS AN EXTENTION OF THE TSB MACRO. IT 00170000 .* CONTAINS INFORMATION PERTAINING TO A TERMINAL 00180000 .* USERS'S STATUS. 00190000 .* 00200000 .*01* NOTES = BAL - IF EXT=YES IS SPECIFIED, A DSECT IS PRODUCED 00210000 .* FOR TSB EXTENSION(TSBX). USING ON TSBX GIVES 00220000 .* ADDRESSIBILITY FOR ALL TSBX SYMBOLS. 00230000 .* PL/S- IF %TSBEXT=YES IS SPECIFIED BEFORE INCLUDING 00240000 .* THE TSB, A MAPPING OF THE TSBX IS PRODUCED. 00250000 .* THE TSBX IS BASED ON TSBEXTNT. 00260000 .* 00270000 .*02* CHARACTER-CODE-DEPENDENCIES = NONE 00280000 .* 00290000 .*02* DEPENDENCIES = MVS SYSTEM ONLY 00300000 .* 00310000 .*02* RESTRICTIONS = NONE 00320000 .* 00330000 .*02* REGISTER-CONVENTIONS = NONE 00340000 .* 00350000 .*02* PATCH-LABEL = NONE 00360000 .* 00370000 .*01* MODULE-TYPE = MACRO 00380000 .* 00390000 .*02* PROCESSOR = ASSEMBLER 00400000 .* 00410000 .*02* PARAMETER-RECEIVED = NONE 00420000 .* 00430000 .*01* EXTERNAL-REFERENCES = NONE 00440000 .* 00450000 .*02* DATA-SETS = NONE 00460000 .* 00470000 .*02* DATA-AREA = NONE 00480000 .* 00490000 .*01* TABLES = NONE 00500000 .* 00510000 .*01* INNER-MACROS = NONE 00520000 .* 00530000 .*01* SYSTEM-MACROS = NONE 00540000 .* 00550000 .*01* CHANGE-ACTIVITY = SEPT 1977 - TIOC/VTIOC SPLIT @ZA25677 00560000 .* BIND LENGTH @ZM20432 00570000 .* @ZA34711 - ADDING MACRO AND NAME CARDS. 00580000 .* @ZA36205 - ADDING TSBXDOWN BIT TO IKTTSBX. 00590000 .* @ZA39216 - DELETING COMMENT FROM MACRO CARD. 00600000 .* 00610000 .**** END OF SPECIFICATIONS ***/ 00620000 TSBX DSECT @Z40DCKM 00630000 DS 0D @Z40DCKM 00640000 TSBXFWD DS F TSO/VTAM TSB FORWARD POINTER @Z40DCKM 00650000 TSBXBCK DS F TSO/VTAM TSB BACKWARD POINTER @Z40DCKM 00660000 TSBXECB DS F X-MEMORY SYNC. ECB FOR RECONNECT 00670000 * @Z40DCKM 00680000 DS F RESERVED @Z40DCKM 00690000 DS D RESERVED @G32TKKM 00700000 TSBXUID DS D USER IDENTIFICATION @Z40DCKM 00710000 TSBXFLG1 DS X FIRST TSBX FLAG BYTE @Z40DCKM 00720000 TSBXASCI EQU X'80' ASCII CODE SPECIFIED ON BIND @Z40DCKM 00730000 TSBXACTV EQU X'40' TERMINAL CONTROL IN ADDRESS SPACE 00740000 TSBXLOGF EQU X'20' VTAM LOGOFF RECURSION @Z40DCKM 00750000 TSBXWREC EQU X'10' WAITING FOR RECONNECT @Z40DCKM 00760000 TSBXDOWN EQU X'08' SESSION SHUTDOWN IF PROGRESS @ZA36205 00770000 * BITS 5 - 7 RESERVED @ZA36205 00780000 DS CL3 RESERVED @Z40DCKM 00790000 TSBXTVWA DS F POINTER TO TSO/VTAM WORK AREA(TVWA) 00800000 * @Z40DCKM 00810000 TSBXTIM DS F CURRENT 'TIM' POINTER @Z40DCKM 00820000 TSBXTOM DS F CURRENT 'TOM' POINTER @Z40DCKM 00830000 DS F RESERVED @Z40DCKM 00840000 TSBXSRBI DS F POINTER TO THE TIM SRB @Z40DCKM 00850000 TSBXSRB DS F POINTER TO THE TOM SRB @Z40DCKM 00860000 TSBXCSAP DS F POINTER TO CSA AREA FOR ASID TPUTS 00870000 * @Z40DCKM 00880000 TSBXLBUF DS F POINTER TO THE LOGON BUFFER @Z40DCKM 00890000 TSBXRSZI DS AL1 INPUT RU SIZE @G58AK3A 00900000 TSBXRSZO DS AL1 OUTPUT RU SIZE @G58AK3A 00910000 TSBXAIND DS H TSO/VTAM USER APPL INDEX @Z40DCKM 00920000 TSBXTERM DS 0CL4 TERMINAL CHARACTERISTICS @Z40DCKM 00930000 TSBXTMTP DS X TERMINAL TYPE @Z40DCKM 00940000 * 1 = 3270 @G58AK3A 00950000 * 2 = 3767/3770 @G58AK3A 00960000 * 3 = USER DEFINED @G58AK3A 00970000 * 4 = NDS REL 2 @G58AK3A 00980000 DS X RESERVED @Z40DCKM 00990000 TSBXTMBF DS H TERMINAL BUFFER SIZE @Z40DCKM 01000000 * @Z40DCKM 01010000 * END OF TERMINAL CHARACTERISTICS @Z40DCKM 01020000 * @Z40DCKM 01030000 TSBXRPL DS F POINTER TO RPL IN TCAS A.S. @Z40DCKM 01040000 TSBXBIND DS CL36 TERMINAL BIND IMAGE @ZM20432 01050000 DS F RESERVED @G58SKSR 01060000 TSBXEND DS 0D END OF TSBX FORCED TO DOUBLE WORD 01070000 * BOUNDARY @Z40DCKM 01080000 * @Z40DCKM 01090000 * ****************************************************************** 01100000 * 0 * TSBXFWD * TSBXBCK * 01110000 * ****************************************************************** 01120000 * 8 * TSBXECB * RESERVED * 01130000 * ****************************************************************** 01140000 * 16 * RESERVED * 01150000 * ****************************************************************** 01160000 * 24 * TSBXUID * 01170000 * ****************************************************************** 01180000 * 32 *TSBXFLG1* RSVD * RESERVED * TSBXTVWA * 01190000 * ****************************************************************** 01200000 * 40 * TSBXTIM * TSBXTOM * 01210000 * ****************************************************************** 01220000 * 48 * * TSBXSRBI * 01230000 * * RESERVED * * 01240000 * ****************************************************************** 01250000 * 56 * TSBXSRB * TSBXCSAP * 01260000 * ****************************************************************** 01270000 * 64 * TSBXLBUF *TSBXRSZI*TSBXRSZO* TSBXAIND * 01280000 * ****************************************************************** 01290000 * 72 *TSBXTMTP* RSVD * TSBXTMBF * TSBXRPL * 01300000 * ****************************************************************** 01310000 * 80 * * 01320000 * * * 01330000 * 88 * TSBXBIND * 01340000 * * * 01350000 * 90 * * 01360000 * * * 01370000 * 98 * * 01380000 * * ********************************** 01390000 * A0 * * RESERVED * 01400000 * ****************************************************************** 01410000 * @Z40DCKM 01420000 SPACE 3 01430000 MEND , */ 01440000 %TSBXL2: ; 01450000 DECLARE /* @Z40DCKM*/ 01460000 1 TSBX BASED(TSBEXTNT) BDY(DWORD),/* @Z40DCKM*/ 01470000 2 TSBXFWD PTR(31), /* . TSO/VTAM TSB FORWARD POINTER 01480000 @Z40DCKM*/ 01490000 2 TSBXBCK PTR(31), /* . TSO/VTAM TSB BACKWARD POINTER 01500000 @Z40DCKM*/ 01510000 2 TSBXECB FIXED(31), /* . X-MEM SYNC ECB FOR RECONNECT 01520000 @Z40DCKM*/ 01530000 2 * FIXED(31), /* . RESERVED @Z40DCKM*/ 01540000 2 * CHAR(8), /* . RESERVED @G32TKKM*/ 01550000 2 TSBXUID CHAR(8), /* . USER IDENTIFICATION @Z40DCKM*/ 01560000 2 TSBXFLG1, /* . FIRST TSBX FLAG BYTE @Z40DCKM*/ 01570000 3 TSBXASCI BIT(1), /* . ASCII CODE SPECIFIED ON BIND 01580000 @Z40DCKM*/ 01590000 3 TSBXACTV BIT(1), /* . TERMINAL CONTROL IN ADDRESS 01600000 SPACE. @Z40DCKM*/ 01610000 3 TSBXLOGF BIT(1), /* . VTAM LOGOFF RECURSION @Z40DCKM*/ 01620000 3 TSBXWREC BIT(1), /* . WAITING FOR RECONNECT @Z40DCKM*/ 01630000 3 TSBXDOWN BIT(1), /* . SHUTDOWN IN PROGRESS @ZA36205*/ 01640000 3 * BIT(3), /* . RESERVED @ZA36205*/ 01650000 2 * CHAR(3), /* . RESERVED @Z40DCKM*/ 01660000 2 TSBXTVWA PTR(31), /* . POINTER TO TSO/TVWA WORK AREA 01670000 (TVWA) @Z40DCKM*/ 01680000 2 TSBXTIM PTR(31), /* . CURRENT 'TIM' POINTER @Z40DCKM*/ 01690000 2 TSBXTOM PTR(31), /* . CURRENT 'TOM' POINTER @Z40DCKM*/ 01700000 2 * FIXED(31), /* . RESERVED @Z40DCKM*/ 01710000 2 TSBXSRBI PTR(31), /* . POINTER TO THE TIM SRB @Z40DCKM*/ 01720000 2 TSBXSRB PTR(31), /* . POINTER TO THE TOM SRB @Z40DCKM*/ 01730000 2 TSBXCSAP PTR(31), /* . POINTER TO THE CSA AREA FOR ASID 01740000 TPUTS @Z40DCKM*/ 01750000 2 TSBXLBUF PTR(31), /* . POINTER TO THE LOGON BUFFER 01760000 @Z40DCKM*/ 01770000 2 TSBXRSZI FIXED(8), /* . INPUT RU SIZE @G58AK3A*/ 01780000 2 TSBXRSZO FIXED(8), /* . OUTPUT RU SIZE @G58AK3A*/ 01790000 2 TSBXAIND FIXED(15), /* . TSO/VT USER APPL INDEX @Z40DCKM*/ 01800000 2 TSBXTERM, /* . TERMINAL CHARACTERISTICS 01810000 @Z40DCKM*/ 01820000 3 TSBXTMTP FIXED(8), /* . TERMINAL TYPE @Z40DCKM*/ 01830000 /* . 1 = 3270 @G58AK3A*/ 01840000 /* . 2 = 3767/3770 @G58AK3A*/ 01850000 /* . 3 = USER DEFINED @G58AK3A*/ 01860000 /* . 4 = NDS REL 2 @G58AK3A*/ 01870000 3 * CHAR(1), /* . RESERVED @Z40DCKM*/ 01880000 3 TSBXTMBF FIXED(15), /* . TERMINAL BUFFER SIZE @Z40DCKM*/ 01890000 2 TSBXRPL PTR(31), /* . POINTER TO RPL IN TCAS @Z40DCKM*/ 01900000 2 TSBXBIND CHAR(36), /* . TERMINAL BIND IMAGE @ZM20432*/ 01910000 2 * CHAR(4), /* . RESERVED @G58AK3A*/ 01920000 2 TSBXEND CHAR(0) BDY(DWORD);/* END OF TSBX FORCED TO DOUBLE 01930000 WORD BOUNDARY @Z40DCKM*/ 01940000