* 00004000 * 00008000 * 00012000 * 00016000 * 00020000 * %GOTO TVWAL1; /* 00024000 MACRO 00028000 IKTTVWA 00032000 TVWA DSECT 00036000 DS 0F */ 00040000 *%TVWAL1: ; 00044000 * 00048000 */********************************************************************/ 00052000 */* */ 00056000 */* TSO/VTAM WORK AREA (TVWA) (OS/VS2) */ 00060000 */* */ 00064000 */* OS/VS2 SU58 TSO/VTAM LEVEL 1.0 */ 00068000 */* FULL SCREEN SUPPORT JULY 1976 @YM03254,OZ11997*/ 00072000 */* PERFORMANCE JULY 1976 OZ12002*/ 00076000 */* SBA TRACKING APR 77 @ZA19883*/ 00080000 */* IWAIT SYSEVENT REQUEST JUN 77 @ZA24418*/ 00084000 */* OS/VS2 SU58 TSO/VTAM NDS/DSE LEVEL 2.0 @G58AK3A*/ 00088000 */* */ 00092000 */* THE TSO/VTAM WORK AREA (TVWA) WILL CONTAIN POINTERS */ 00096000 */* TO WORK AREAS, TO CONTROL BLOCKS, AND TSO/VTAM */ 00100000 */* CONTROL INFORMATION. THEY ARE OBTAINED DYNAMICALLY */ 00104000 */* ONE FOR EACH TSO/VTAM ADDRESS SPACE. */ 00108000 */* */ 00112000 */* METHOD OF ACCESS */ 00116000 */* BAL - A DSECT IS PRODUCED FOR TVWA. USING */ 00120000 */* ON TVWA GIVES ADDRESSABILITY FOR ALL */ 00124000 */* TVWA SYMBOLS. */ 00128000 */* PL/S- DCL TVWAPTR PTR */ 00132000 */* */ 00136000 */* F. E.'S- */ 00140000 */* MICROFICHE LISTING - IKTTVWA */ 00144000 */* CHANGE ACTIVITY: */ 00145000 */* @ZA31384 - ADDING THE NAME TVWASTOM. */ 00146000 */* @ZA34957 - CHANGING TVWASTOM TO TVWAFRRR */ 00147000 */* @ZA42544 - ADDING VARIABLE TVWANCNT. */ 00147400 */* @ZA52789 - ADDING BIT TVWASIGS AND FLAG BYTE TVWAFLG8. */ 00147700 */* @ZA59547 - ADDING BIT TVWATGNO. */ 00147800 */* */ 00148000 */********************************************************************/ 00152000 * 00156000 *%GOTO TVWAL2; /* 00350000 TVWAPPL DS CL8 TSO USER APPLID 00358000 TVWATIMW DS F POINTER TO TIM WORK AREA AND PARM LIST 00366000 TVWATOMW DS F POINTER TO TOM WORK AREA AND PARM LIST 00374000 TVWATOPQ DS F POINTER TO FLASH BACK BUFFER 00382000 TVWABFPT DS F ADDR TIMS BUFFER FOR READ-BUF @G58AK3A 00400000 TVWALLWA DS F POINTER TO WORK AREA FOR LOCALLY 00408000 * LOCKED ROUTINES. (SVC 93 & SVC 94) 00410000 * CONTAINS 72 BYTE S.A. & QMGR PARMLST 00412000 TVWAQMWA DS F POINTER TO WORK AREA FOR QUEUE MANAGER 00416000 TVWABIQ DS F POINTER TO BEGINNING OF INPUT QUEUE 00424000 TVWANIM DS F POINTER TO NEXT INPUT MESSAGE 00432000 TVWAEIQ DS F POINTER TO END OF INPUT QUEUE 00450000 TVWABOQ DS F POINTER TO BEGINNING OF OUTPUT QUEUE 00458000 TVWANOM DS F POINTER TO NEXT OUTPUT MESSAGE 00466000 TVWAEOQ DS F POINTER TO END OF OUTPUT QUEUE 00474000 TVWACPID DS CL4 CELL POOL IDENTIFIER 00482000 TVWAUSMN DS F AMOUNT OF USED MAIN STORAGE FOR TPUTS 00500000 TVWATCB DS F POINTER TO TCB 00508000 TVWAGMPT DS F ADDR STORAGE AREA FOR READ-BUF@G58AK3A 00516000 TVWARTR DS H RETRY COUNTER FOR VTAM MACROS 00524000 *********************************************************************** 00532000 * PARMLIB VALUES FIXED PER SESSION * 00550000 *********************************************************************** 00558000 TVWACLSZ DS H CELL POOL CELL SIZE 00566000 TVWAHBUF DS F HIGH BUFFER THRESHOLD 00574000 TVWALBUF DS F LOW BUFFER THRESHOLD 00582000 TVWACHNL DS X MAXIMUM CHAIN LENGTH IN RU'S 00600000 *********************************************************************** 00608000 * END OF PARMLIB VALUES * 00616000 *********************************************************************** 00624000 TVWAATTN DS X ATTENTION WITH STAX COUNT 00632000 TVWATQL1 DS X LENGTH OF FIRST FLASH BACK BUFFER 00650000 TVWATQL2 DS X LENGTH OF SECOND FLASH BACK BUFFER 00658000 TVWAACB DS F POINTER TO ACB 00666000 TVWANIB DS F POINTER TO NIB 00674000 TVWARPL DS F POINTER TO RPL 00682000 TVWAEXL DS F POINTER TO EXLST 00700000 TVWAVST DS F POINTER TO VARIABLE STORAGE AREA 00708000 TVWAVSZ DS H NUMBER OF BYTES IN VARIABLE STORAGE 00716000 * AREA 00724000 TVWAFLG7 DS CL1 SEVENTH TVWA FLAG BYTE @G58AK3A 00725000 TVWABKPG EQU X'80' BREAK-IN PAGING @G58AK3B 00726000 TVWASND1 EQU X'40' 0=FIRST SEND OF SESSION @G58AK3A 00727000 TVWARDBF EQU X'20' TOM HAS ISSUED READ-BUFFER @G58AK3A 00727500 TVWARET EQU X'10' LOSTERM EXIT TO VTAM @ZM20856 00727600 TVWARISW EQU X'08' I/O MGRS REINITIALIZED(PIC) @ZM20856 00728600 TVWATOBB EQU X'04' 0=NO BEG BRACKET ON LAST SEND @ZM20858 00729600 TVWACHSE EQU X'02' LOSTERN CHASE INDICATOR @ZM20856 00730600 * 1=BEGIN BRACKET ON LAST SEND @ZM20858 00731600 * BITS 7 RESERVED @ZM20858 00732600 TVWALNSV DS X LINE COUNT SAVE AREA @G58AK3A 00738000 TVWAECB DS F TERMINAL CONTROL ECB 00766000 TVWATECB DS F TIMER ECB 00774000 TVWAECBL DS 0CL12 RECONNECT ECB LIST 00782000 TVWAECB1 DS F POINTER TO CANCEL ECB(CHCECB) 00784000 TVWAECB2 DS F POINTER TO RECONNECT ECB(TSBXECB) 00786000 TVWAECB3 DS F POINTER TO TIMER ECB(TVWAECB) 00788000 TVWADLST DS 0CL12 INIT ROUNTINE LIST 00790000 TVWADIN1 DS F ADDR 3270 INIT PROC 00792000 TVWADIN2 DS F ADDR 3767/3770 INIT PROC 00794000 TVWADIN3 DS F ADDR OF USER EXIT FOR INIT 00796000 TVWAFLG1 DS C FIRST TVWA FLAG BYTE 00800000 TVWATOD EQU X'80' TOM HAS FREED WORK AREA AND EXITED 00808000 TVWATIS EQU X'40' TOM IS SCHEDULED 00816000 TVWATAS EQU X'20' TOM NOT AVAILABLE FOR SCHEDULING 00824000 TVWATID EQU X'10' TIM HAS FREED WORD AREA AND EXITED 00832000 TVWAXSCD EQU X'08' EXAMINE WORKING SCR DIMENSIONS@G58AK3A 00850000 TVWAULK EQU X'04' UNLOCK KEYBOARD REQUEST OUTSTANDING 00858000 TVWALTE EQU X'02' LOSTERM ENTERED 00866000 TVWAOOPS EQU X'01' OUT OF PAPER INDICATOR 00874000 TVWAFLG2 DS C SECOND TVWA FLAG BYTE 00882000 TVWABFC EQU X'80' BUFFER CONTENTION ENCOUNTERED 00900000 TVWAPGN EQU X'40' 3270 SCREEN PAGING 00908000 TVWASCD EQU X'20' CHANGE DIRECTION RECEIVED BY TIM 00916000 TVWAGERR EQU X'10' GLOBAL ERROR FLAG 00924000 TVWAERMG EQU X'08' EXCEPTION REQUEST OR INPUT QUEUE FULL 00932000 TVWABKMG EQU X'04' PARTIAL LINE LEFT IN BUFFER AFTER 00950000 * TPUT-BREAKIN FOR 3767/3770. FLASH 00958000 * BACK MESSAGE PENDING FOR 3270. 00966000 TVWARTRY EQU X'02' RETRY SEND AFTER NEGATIVE RESPONSE 00974000 TVWABIR EQU X'01' BREAKIN REQUEST ON OUTPUT QUEUE 00982000 TVWAFLG3 DS C THIRD TVWA FLAG BYTE 01000000 TVWABRIN EQU X'80' TOM SENT SIGNAL FOR TPUT BREAKIN 01008000 TVWASDSG EQU X'40' ATTN REQS SIGNAL FOR ALT TMP @ZM20268 01016000 TVWAAIGN EQU X'20' ATTENTION IGNORED 01024000 TVWAQMRT EQU X'10' QUEUE MANAGER RETRYING ABENDED REQUEST 01032000 TVWAQMIO EQU X'08' WHICH QUEUE SERVICE 0-INPUT, 1-OUTPUT 01050000 TVWAQLBU EQU X'04' LOOKASIDE BUFFERS BEING USED BY QMGR 01058000 TVWATRAN EQU X'02' TRANSLATE TABLES IN USE 01066000 TVWATRDF EQU X'01' DEFAULT TRANSLATE TABLES IN USE 01074000 TVWAFLG4 DS C FOURTH TVWA FLAG BYTE 01082000 TVWAFMSC EQU X'80' FORMAT 3270 SCREEN 01100000 TVWADOOQ EQU X'40' DATA ON OUTPUT QUEUE 01108000 TVWAKBDL EQU X'20' KEYBOARD IS LOCKED 01116000 TVWANOFB EQU X'10' NO FLASH BACK. LAST 3270 OUTPUT HAD 01124000 * BYPASS SET. 01132000 TVWAFLSC EQU X'08' FULLSCREEN TPUT ISSUED, LINE COUNTING 01150000 * BY TIM NOT NEEDED. 01158000 TVWAQMEV EQU X'04' FOOTPRINT FOR Q-ELEMENT VERIFICATION 01166000 * ROUTINE. 01174000 TVWARCRS EQU X'02' RECEIVE RESPONSE 01178000 TVWADARC EQU X'01' DATA RECVD AT LAST ATTRIB BYTE@YM03227 01182000 DS CL2 RESERVED @ZA19883 01186000 TVWAFLG5 DS C FLAG BYTE @YM03227 01190000 TVWASCAN EQU X'80' SCAN INPUT DATA FOR SBA @YM03227 01194000 TVWAFSM EQU X'40' DISPLAY IS IN FULL SCREEN MODE@YM03254 01194800 TVWAWO EQU X'20' FULL SCREEN IS WRITTEN OVER @YM03254 01195600 TVWAFSW EQU X'10' FULL SCREEN TPUT IS WAITING @YM03254 01196400 TVWATIR EQU X'08' TOM IS RUNNING @YM03259 01197200 TVWANFSP EQU X'04' NO FULL SCREEN 'PAGING' AFTER @YM03254 01197400 * NON-FULLSCREEN TPUT @YM03254 01197600 TVWAPRMT EQU X'02' PROMPTING IS IN EFFECT @YM03601 01198000 TVWAP1ST EQU X'01' FIRST PROMPT @YM03601 01201000 TVWALNCT DS X 3270 SCREEN LINE COUNTER 01208000 TVWATABI DS F POINTER TO TRANSLATE TABLE(INBOUND) 01216000 TVWATABO DS F POINTER TO TRANSLATE TABLE(OUTBOUND) 01224000 TVWATRNM DS CL8 NAME OF USER TRAN TABLE LIB MEMBER 01228000 TVWAATBI DS F POINTER TO ASCII TRAN TAB(INBOUND) 01232000 TVWAATBO DS F POINTER TO ASCII TRAN TAB(OUTBOUND) 01250000 TVWAQMLB DS F POINTER TO QMGR LOOK-ASIDE BUFFER 01258000 DS CL2 RESERVED OZ11997 01266000 TVWAFLG6 DS C FLAG BYTE OZ11997 01266300 TVWAISYS EQU X'80' IWAIT SYSEVENT ISSUED OZ12002 01266600 TVWAIOTR EQU X'40' I/O TRANSACTION 1-IN, 0-OUT OZ11997 01266900 TVWAIOP EQU X'20' I/O PENDING-VTAM HANDLING SEND@ZA24418 01267000 TVWARCDT EQU X'10' TIM HAS RECD BUFFER CONTENTS @G58AK3A 01267600 TVWAFMEW EQU X'08' SEND FORMATTING ERASE-WRITE @G58AK3A 01267700 TVWAINB EQU X'04' IN BRACKET MODE @G58AK3A 01267800 TVWAFRRR EQU X'02' FRR RECURSION BIT @ZA34957 01267900 * BIT 7 RESERVED @ZA31384 01268400 TVWARSHW DS CL1 RESHOW CODE FOR FULL SCR APPL @YM03254 01268900 TVWAFRWI DS F INPUT MGR FRR WORK AREA ADDR @ZM20856 01270000 TVWAFRWO DS F OUTPUT MGR FRR WORK AREA ADDR @ZM20856 01272000 TVWANCNT DS H LINE NUMBER PROMPT LENGTH @ZA42544 01274000 TVWAFLG8 DS C EIGHTH FLAG BYTE @ZA52789 01274800 TVWASIGS EQU X'80' SIGNAL HAS BEEN SENT TO LU1 @ZA52789 01275600 TVWATGNO EQU X'40' TGET NOWAIT WAS ISSUED @ZA59547 01276100 * BIT 2-7 RESERVED @ZA59547 01276600 DS CL5 RESERVED @ZA52789 01277200 TVWAUSRA DS CL8 USER AREA FOR INSTALLATION DATA 01278000 DS CL8 RESERVED 01282000 TVWAEND EQU * END OF TVWA 01300000 * 01308000 * ****************************************************************** 01316000 * 0 * * 01324000 * * TVWAPPL * 01332000 * ****************************************************************** 01350000 * * * * 01358000 * * TVWATIMW * TVWATOMW * 01366000 * ****************************************************************** 01374000 * 10 * * * 01382000 * * TVWATOPQ * TVWABFPT * 01400000 * ****************************************************************** 01408000 * * * * 01416000 * * TVWA93WA * TVWAQMWA * 01424000 * ****************************************************************** 01432000 * 20 * * * 01450000 * * TVWABIQ * TVWANIM * 01458000 * ****************************************************************** 01466000 * * * * 01474000 * * TVWAEIQ * TVWABOQ * 01482000 * ****************************************************************** 01500000 * 30 * * * 01508000 * * TVWANOM * TVWAEOQ * 01516000 * ****************************************************************** 01524000 * * * * 01526000 * * TVWACPID * TVWAUSMN * 01528000 * ****************************************************************** 01530000 * 40 * * * 01532000 * * TVWATCB * TVWAGMPT * 01550000 * ****************************************************************** 01558000 * * * * * 01566000 * * TVWARTRY * TVWACLSZ * TVWAHBUF * 01574000 * ****************************************************************** 01582000 * 50 * * TVWA * TVWA * TVWA * TVWA * 01600000 * * TVWALBUF * CHNL * ATTN * TQL1 * TQL2 * 01608000 * ****************************************************************** 01616000 * * * * 01624000 * * TVWAACB * TVWANIB * 01632000 * ****************************************************************** 01650000 * 60 * * * 01658000 * * TVWARPL * TVWAEXL * 01666000 * ****************************************************************** 01674000 * * * * TVWA * TVWA * 01682000 * * TVWAVST * TVWAVSZ * FLG7 * LNSV * 01690000 * ****************************************************************** 01708000 * 70 * * * 01716000 * * TVWAECB * TVWATECB * 01724000 * ****************************************************************** 01732000 * * * * 01750000 * * TVWAECB1 * TVWAECB2 * 01758000 * ****************************************************************** 01766000 * 80 * * * 01774000 * * TVWAECB3 * TVWADIN1 * 01782000 * ****************************************************************** 01800000 * * * * 01802000 * * TVWADIN2 * TVWADIN3 * 01804000 * ****************************************************************** 01806000 * 90 * TVWA * TVWA * TVWA * TVWA * * TVWA * TVWA * 01808000 * * FLG1 * FLG2 * FLG3 * FLG4 * RESERVED * FLG5 * LNCT * 01812000 * ****************************************************************** 01824000 * * * * 01832000 * * TVWATABI * TVWATABO * 01850000 * ****************************************************************** 01858000 * A0 * * 01860000 * * TVWATRNM * 01862000 * ****************************************************************** 01864000 * * * * 01866000 * * TVWAATBI * TVWAATBO * 01874000 * ****************************************************************** 01882000 * B0 * * * TVWA * TVWA * 01900000 * * TVWAQMLB * RESERVED * FLG6 * RSHW * 01905000 * ****************************************************************** 01916000 * B8 * * * 01924000 * * TVWAFRWI * TVWAFRWO * 01932000 * ****************************************************************** 01940000 * C0 * * TVWA * * 01948000 * * TVWANCNT * FLG8 * RESERVED * 01961000 * ****************************************************************** 01974000 * C8 * * 01976000 * * TVWAUSRA * 01978000 * ****************************************************************** 01980000 * D0 * * 01982000 * * RESERVED * 02000000 * ****************************************************************** 02008000 * 02016000 MEND , */ 02024000 *%TVWAL2: ; 02032000 *DECLARE 02050000 * 1 TVWA BASED(TVWAPTR) BDY(WORD), 02058000 * 2 TVWAPPL CHAR(8), /*TSO USER APPLID */ 02066000 * 2 TVWATIMW PTR(31), /*PTR TO TIM WORK AREA AND PARM LIST*/ 02074000 * 2 TVWATOMW PTR(31), /*PTR TO TOM WORK AREA AND PARM LIST*/ 02082000 * 2 TVWATOPQ PTR(31), /*PTR TO FLASH BACK BUFFER */ 02100000 * 2 TVWABFPT PTR(31), /*ADDR TIMS BUF FOR READ-BUF@G58AK3A*/ 02108000 * 2 TVWALLWA PTR(31), /*PTR TO WORK AREA FOR LOCALLY LOCKED 02116000 * ROUTINES. (SVC 93 & 94) CONTAINS 02118000 * 72 BYTE S.A. & QMGR PARMLST */ 02120000 * 2 TVWAQMWA PTR(31), /*PTR TO WORK AREA FOR QUEUE MANAGER*/ 02124000 * 2 TVWABIQ PTR(31), /*PTR TO BEGINNING OF INPUT QUEUE */ 02132000 * 2 TVWANIM PTR(31), /*PTR TO NEXT INPUT MESSAGE */ 02150000 * 2 TVWAEIQ PTR(31), /*PTR TO END OF INPUT QUEUE */ 02158000 * 2 TVWABOQ PTR(31), /*PTR TO BEGINNING OF OUTPUT QUEUE */ 02166000 * 2 TVWANOM PTR(31), /*PTR TO NEXT OUTPUT MESSAGE */ 02174000 * 2 TVWAEOQ PTR(31), /*PTR TO END OF OUTPUT QUEUE */ 02182000 * 2 TVWACPID CHAR(4), /*CELL POOL IDENTIFIER */ 02200000 * 2 TVWAUSMN FIXED(31), /*AMOUNT OF USED MAIN STORAGE */ 02208000 * 2 TVWATCB PTR(31), /*PTR TO TCB */ 02216000 * 2 TVWAGMPT PTR(31), /*ADDR READ-BUF STORAGE AREA@G58AK3A*/ 02220000 * 2 TVWARTR FIXED(15), /*RETRY COUNTER FOR VTAM MACROS */ 02224000 */********************************************************************/ 02250000 */* PARMLIB VALUES FIXED PER SESSION */ 02258000 */********************************************************************/ 02266000 * 2 TVWACLSZ FIXED(15), /*CELL POOL CELL SIZE */ 02274000 * 2 TVWAHBUF FIXED(31), /*HIGH BUFFER THRESHOLD */ 02282000 * 2 TVWALBUF FIXED(31), /*LOW BUFFER THRESHOLD */ 02300000 * 2 TVWACHNL FIXED(8), /*MAXIMUM CHAIN LENGTH IN RU'S */ 02308000 */********************************************************************/ 02316000 */* END OF PARMLIB VALUES */ 02324000 */********************************************************************/ 02332000 * 2 TVWAATTN FIXED(8), /*ATTENTION WITH STAX COUNT */ 02350000 * 2 TVWATQL1 FIXED(8), /*LENGTH OF FIRST FLASH BACK BUFFER */ 02358000 * 2 TVWATQL2 FIXED(8), /*LENGTH OF SECOND FLASH BACK BUFFER*/ 02366000 * 2 TVWAACB PTR(31), /*POINTER TO ACB */ 02374000 * 2 TVWANIB PTR(31), /*POINTER TO NIB */ 02382000 * 2 TVWARPL PTR(31), /*POINTER TO RPL */ 02400000 * 2 TVWAEXL PTR(31), /*POINTER TO EXLST */ 02408000 * 2 TVWAVST PTR(31), /*POINTER TO VARIABLE STORAGE AREA */ 02416000 * 2 TVWAVSZ FIXED(15), /*NUMBER OF BYTES IN THE VARIABLE 02424000 * STORAGE AREA */ 02432000 * 2 TVWAFLG7 CHAR(1), /*SEVENTH TVWA FLAG BYTE @G58AK3A*/ 02435000 * 3 TVWABKPG BIT(1), /*BREAK-IN PAGING @G58AK3B*/ 02438000 * 3 TVWASND1 BIT(1), /*0=FIRST SEND OF SESSION 02441000 * 1=NOT FIRST SEND @G58AK3A*/ 02444000 * 3 TVWARDBF BIT(1), /*TOM ISSUED READ BUFFER @G58AK3A*/ 02445000 * 3 TVWARET BIT(1), /*LOSTERM EXIT TO VTAM @ZM20856*/ 02445300 * 3 TVWARISW BIT(1), /*I/O MGRS REINITIALIZED @ZM20856*/ 02445500 * 3 TVWATOBB BIT(1), /*0=NO BEGIN BRACKET ON LAST SEND 02445900 * 1=BEGIN BRACKET ON LAST SEND 02446200 * @ZM20858*/ 02446500 * 3 TVWACHSE BIT(1), /*LOSTERM CHASE INDICATOR @ZM20856*/ 02447000 * 3 * BIT(1), /*RESERVED @ZM21089*/ 02447500 * 2 TVWALNSV FIXED(8), /*LINE COUNT SAVE AREA @G58AK3B*/ 02450000 * 2 TVWAECB FIXED(31), /*TERMINAL CONTROL ECB */ 02474000 * 2 TVWATECB FIXED(31), /*TIMER ECB */ 02482000 * 2 TVWAECBL, /*RECONNECT ECB LIST */ 02500000 * 3 TVWAECB1 PTR(31), /*PTR TO CANCEL ECB(CHCECB) */ 02508000 * 3 TVWAECB2 PTR(31), /*PTR TO RECONNECT ECB(TSBXECB) */ 02516000 * 3 TVWAECB3 PTR(31), /*PTR TO TIMER ECB(TVWAECB) */ 02524000 * 2 TVWADLST, /*INIT ROUTINE LIST */ 02532000 * 3 TVWADIN1 PTR(31), /*ADDR 3270 INIT PROC */ 02535000 * 3 TVWADIN2 PTR(31), /*ADDR 3767/3770 INIT PROC */ 02538000 * 3 TVWADIN3 PTR(31), /*ADDR USER EXIT FOR INIT */ 02542000 * 2 TVWAFLG1, /*FIRST TVWA FLAG BYTE */ 02550000 * 3 TVWATOD BIT(1), /*TOM HAS FREED WORK AREA AND 02558000 * EXITED NORMALLY */ 02566000 * 3 TVWATIS BIT(1), /*TOM IS SCHEDULED */ 02574000 * 3 TVWATAS BIT(1), /*TOM NOT AVAILABLE FOR SCHEDULING */ 02582000 * 3 TVWATID BIT(1), /*TIM HAS FREED WORK AREA AND 02600000 * EXITED NORMALLY */ 02608000 * 3 TVWAXSCD BIT(1), /*EXAMINE WORKING SCR DIMENS@G58AK3A*/ 02616000 * 3 TVWAULK BIT(1), /*UNLOCK KEYBOARD REQUEST 02624000 * OUTSTANDING */ 02632000 * 3 TVWALTE BIT(1), /*LOSTERM ENTERED */ 02650000 * 3 TVWAOOPS BIT(1), /*OUT OF PAPER INDICATOR */ 02658000 * 2 TVWAFLG2, /*SECOND TVWA FLAG BYTE */ 02666000 * 3 TVWABFC BIT(1), /*BUFFER CONTENTION ENCOUNTERED */ 02674000 * 3 TVWAPGN BIT(1), /*3270 SCREEN PAGING */ 02682000 * 3 TVWASCD BIT(1), /*CHANGE DIRECTION RECEIVED BY TIM */ 02700000 * 3 TVWAGERR BIT(1), /*GLOBAL ERROR */ 02708000 * 3 TVWAERMG BIT(1), /*EXCEPTION REQUEST OR INPUT QUEUE 02716000 * FULL */ 02724000 * 3 TVWABKMG BIT(1), /*PARTIAL LINE LEFT IN BUFFER AFTER 02732000 * TPUT-BREAKIN FOR 3767/3770. FLASH 02750000 * BACK MESSAGE PENDING FOR 3270. */ 02758000 * 3 TVWARTRY BIT(1), /*RETRY SEND AFTER NEGATIVE RESPONSE*/ 02766000 * 3 TVWABIR BIT(1), /*BREAKIN REQUEST ON OUTPUT QUEUE */ 02774000 * 2 TVWAFLG3, /*THIRD TVWA FLAG BYTE */ 02782000 * 3 TVWABRIN BIT(1), /*TOM SENT SIGNAL FOR TPUT-BREAKIN */ 02800000 * 3 TVWASDSG BIT(1), /*ATTN REQS SIG FOR ALT TMP @ZM20268*/ 02808000 * 3 TVWAAIGN BIT(1), /*ATTENTION IGNORED */ 02816000 * 3 TVWAQMRT BIT(1), /*QUEUE MANAGER RETRYING ABENDED 02824000 * REQUEST */ 02832000 * 3 TVWAQMIO BIT(1), /*WHICH QUEUE SERVICE 0-IN,1-OUT */ 02850000 * 3 TVWAQLBU BIT(1), /*LOOK-ASIDE BUFFER IN USE BY QMGR */ 02858000 * 3 TVWATRAN BIT(1), /*TRANSLATE TABLE IN USE */ 02866000 * 3 TVWATRDF BIT(1), /*DEFAULT TRANSLATE TABLES IN USE */ 02874000 * 2 TVWAFLG4, /*FOURTH TVWA FLAG BYTE */ 02882000 * 3 TVWAFMSC BIT(1), /*FORMAT 3270 SCREEN */ 02900000 * 3 TVWADOOQ BIT(1), /*DATA ON OUTPUT QUEUE */ 02908000 * 3 TVWAKBDL BIT(1), /*KEYBOARD IS LOCKED */ 02916000 * 3 TVWANOFB BIT(1), /*NO FLASH BACK. LAST OUTPUT HAD 02924000 * BYPASS SET */ 02932000 * 3 TVWAFLSC BIT(1), /*FULLSCREEN TPUT ISSUED. LINE 02950000 * COUNTING BY 3270 TIM NOT NEEDED */ 02958000 * 3 TVWAQMEV BIT(1), /* FOOTPRINT FOR Q-ELEMENT 02966000 * VERIFICATION ROUTINE */ 02971000 * 3 TVWARCRS BIT(1), /*RECEIVE RESPONSES */ 02976000 * 3 TVWADARC BIT(1), /*DATA RECVD AT LAST ATTR @YM03227*/ 02982000 * 2 * CHAR(2), /*RESERVED @ZA19883*/ 02986000 * 2 TVWAFLG5, /*FIFTH FLAG BYTE @YM03227*/ 02990000 * 3 TVWASCAN BIT(1), /*SCAN INPUT DATA FOR SBA @YM03227*/ 02994000 * 3 TVWAFSM BIT(1), /*DISPLAY IN FULL SCR MODE @YM03254*/ 02994800 * 3 TVWAWO BIT(1), /*FULL SCREEN WRITTEN OVER @YM03254*/ 02995600 * 3 TVWAFSW BIT(1), /*FULL SCR TPUT WAITING @YM03254*/ 02996400 * 3 TVWATIR BIT(1), /*TOM IS RUNNING @YM03259*/ 02997200 * 3 TVWANFSP BIT(1), /*NO FULL SCREEN 'PAGING' AFTER 02997400 * NON-FULLSCREEN TPUT @YM03254*/ 02997600 * 3 TVWAPRMT BIT(1), /*PROMPTING IS IN EFFECT @YM03601*/ 02998000 * 3 TVWAP1ST BIT(1), /*FIRST PROMPT @YM03601*/ 03001000 * 2 TVWALNCT FIXED(8), /*3270 SCREEN LINE COUNTER */ 03008000 * 2 TVWATABI PTR(31), /*POINTER TO TRANSLATE TABLE 03016000 * (INBOUND) */ 03024000 * 2 TVWATABO PTR(31), /*POINTER TO TRANSLATE TABLE 03032000 * (OUTBOUND) */ 03050000 * 2 TVWATRNM CHAR(8), /*NAME OF USER TRANSLATE TABLE 03052000 * LIBRARY MEMBER */ 03054000 * 2 TVWAATBI PTR(31), /*POINTER TO ASCII TRANSLATE TABLE 03058000 * (INBOUND) */ 03066000 * 2 TVWAATBO PTR(31), /*POINTER TO ASCII TRANSLATE TABLE 03074000 * (OUTBOUND) */ 03082000 * 2 TVWAQMLB PTR(31), /*POINTER TO QMGR LOOK-ASIDE BUFFER */ 03100000 * 2 * CHAR(2), /*RESERVED OZ11997*/ 03108000 * 2 TVWAFLG6 CHAR(1), /*FLAG BYTE OZ11997*/ 03108300 * 3 TVWAISYS BIT(1), /*IWAIT SYSEVENT ISSUES OZ12002*/ 03108600 * 3 TVWAIOTR BIT(1), /*I/O TRANSACTION 1=IN,0=OUT OZ11997*/ 03108900 * 3 TVWAIOP BIT(1), /*I/O PENDING VTAM SENDING @ZA24418*/ 03109000 * 3 TVWARCDT BIT(1), /*TIM HAS RECD BUF CONTENTS @G58AK3A*/ 03109600 * 3 TVWAFMEW BIT(1), /*SENT FORMATTING ERASE-WRT @G58AK3A*/ 03109700 * 3 TVWAINB BIT(1), /*IN BRACKET MODE @G58AK3A*/ 03109800 * 3 TVWAFRRR BIT(1), /* FRR RECURSION BIT @ZA34957*/ 03109900 * 3 * BIT(1), /*RESERVED @ZA31384*/ 03110400 * 2 TVWARSHW CHAR(1), /*RESHOW CODE - FL-SCR MODE @YM03254*/ 03110900 * 2 TVWAFRWI PTR(31), /*INPUT MGR FRR WORK AREA @ZM20856*/ 03112000 * 2 TVWAFRWO PTR(31), /*OUTPUT MGR FRR WORK AREA @ZM20856*/ 03114000 * 2 TVWANCNT FIXED(15), /*LINE NUMBER PROMPT LENGTH @ZA42544*/ 03116000 * 2 TVWAFLG8 CHAR(1), /*EIGHTH FLAG BYTE @ZA52789*/ 03136000 * 3 TVWASIGS BIT(1), /*SIGNAL WAS SENT TO LU1 @ZA52789*/ 03156000 * 3 TVWATGNO BIT(1), /*TGET NOWAIT WAS ISSUED @ZA59547*/ 03169300 * 3 * BIT(6), /*RESERVED @ZA59547*/ 03182600 * 2 * CHAR(5), /*RESERVED @ZA52789*/ 03196000 * 2 TVWAUSRA CHAR(8), /*USER AREA FOR INSTALLATION DATA */ 03216000 * 2 * CHAR(8), /*RESERVED */ 03266000 * 2 TVWAEND CHAR(0); /*END OF TSO/VTAM WORK AREA */ 03316000