* %GOTO BSLAVT; /* 00070000 MACRO 00140000 TAVTD &C,&SAVT=YES S22024 00210000 .*A-000000-999999 @X31X8X0 00280000 SPACE 00350000 .* CONVERTED TO BILINGUAL ON 09/26/72 S22024 00420000 .* UPDATED 6/7/74 @Z30X8XE 00490000 .*CHANGE ACTIVITY = AS FOLLOWS: SA51078 00560000 .*C006800 SA51078 00630000 .*A610000,742000-745200 SA51078 00700000 .*D610000-616000,742000-744000 SA51078 00770000 .*A913230-913290,913480,939410-939430,939793-939796 X03039 00840000 .*C225600-225700,912300-913200,921150-921200,924650-924850, X03039 00910000 .*C939050-939400,939792 X03039 00980000 .*D913300-913450,939450-939774 X03039 01050000 .*A208700,225600-225800 S22027 01120000 .*C232500,366000 S22027 01190000 .*C232500 S22026 01260000 .*A099000,208200-209600,225500,263000,285000,301000,303000 S22026 01330000 .*A341000,357000,695000 S22026 01400000 .*C178000 SA65392 01470000 .*C178000 S21903 01540000 .*A000000,912000 S22024 01610000 .*C004000,225000,225600,232500-233000,914000 S22024 01680000 .*A913405,939752 Y06328 01750000 .*A913410,939754,913450,939774 Y05330 01820000 .*C006400 @Z30X8XE 01890000 .*C913485-913492,939790-939792 @X50X9XI 01960000 .*A913490,939792 @X50X9XI 02030000 .*C912998,913080,913494-913500,939210,939560 @XA09324 02100000 .*C939320-939332,939720-939792 @XA09324 02170000 .*D913493 @XA09324 02240000 .*C913080 @XA09795 02310000 .*A208600 @ZA07083 02380000 .*C920350 @ZA07083 02450000 .*C225600-225700,232700,912360-913517,921150-921210,921370 @Y17XANU 02520000 .*C939070-969789 @Y17XANU 02590000 .*A232700,698000,921370,934100 @Y17XANU 02660000 .*C896040,421207,410200,884100 @Y17XAXF 02680000 .*D410900,884800,424200,898100 @Y17XAXF 02700000 .*A082500,084100,530650,530700,530750,530800 @G36XRXG 02710000 .*C133700,589400,590100 @OS77945 02720000 .*A459800,967800 @OY19488 02720182 *A171200,649600 @OY19124 02720282 .*C051800-052500,490700-491400 @OY19405 02720382 SPACE 02730000 IEDQAVTD DSECT 02800000 AIF ('&C' EQ '').DSECT 02870000 AIF ('&C' EQ '2').D2 02940000 AIF ('&C' EQ '3').D3 03010000 AIF ('&C' EQ '4').D4 03080000 .DSECT ANOP 03150000 AVTSAVE1 DS 18F . MESSAGE CONTROL PROG SAVEAREA 03220000 .D2 ANOP 03290000 AVTSAVE2 DS 18F 03360000 .D3 ANOP 03430000 AVTSAVE3 DS 18F 03500000 .D4 ANOP 03570000 AVTSAVE4 DS 18F 03650000 AVTSAVEX DS 10F . DISABLED SAVEAREA 03710000 ORG *-8 03780000 AVTDLQ DS D . DLQ=TERMNAME 03850000 AVTCSTCS DS A IEDQSTCS ADDR OF FIRST ENTRY 03920000 * CHARACTERISTICS TABLE 03990000 AVTDPARM DS F . DISABLED PARAMETER LIST 04060000 * USED WITH DOUBX 04130000 AVTDOUBX DS D . DISABLED DOUBLEWORD SCRATCH 04200000 AVTDOUBL DS D . ENABLED SCRATCH AREA 04270000 AVTCTLCH DS D . OPERATOR CONTROL CHARACTERS 04340000 AVTPASWD DS D . PASSWORD 04410000 AVTTCB DS A . ADDRESS OF MESSAGE CONTROL 04480000 * PROGRAM'S TCB. 04550000 * SET BY OPEN 04620000 AVTRACE DS A . TRACE TABLE ADDRESS 04690000 * 04760000 * DISPATCHER'S READY QUEUES 04830000 * 04900000 AVTREADY DS A AVTDELEM . ADDRESS OF FIRST OF CHAIN 04970000 * OF ELEMENTS IN PRIORITY 05040000 * ORDER 05110000 AVTBUFTR DS 0A . ADD. OF BUFFER TRACE @OY19405 05180082 AVTREADD DS A . DISABLED FIFO READY Q @OY19405 05190082 AVTBUFSW DS 0X . BUFFER TRACE OPTION SW @OY19405 05200082 AVTFULLT EQU X'01' . TRACE ENTIRE BUFFER @OY19405 05210082 AVTUNCON EQU X'02' . TRACE WITHOUT IO TRACE @OY19405 05220082 DS 1H . @OY19405 05230082 AVTBUENT DS 0H . NO. ENT. SPEC. ON INTRO@OY19405 05240082 DS 1H . @OY19405 05250082 DS 0A . CHECKPOINT WORKAREA @Y17XAXF 05320000 AVTCKFLG DS XL1 . CHECKPOINT ACTIVE FLAGS 05321000 * @Y17XAXF 05322000 AVTCKTAC EQU X'80' . TCAM CHECKPOINT IS ACTIVE 05323000 * @Y17XAXF 05324000 AVTCKNAC EQU X'40' . CHECKPOINT FOR A 3705 IS ACTIV 05325000 * @Y17XAXF 05326000 AVTCKENV EQU X'20' . FORCE ENVIRONMENT CHECKPOINT 05327000 * @Y17XAXF 05327200 AVTCKREQ EQU X'10' . THERE IS AN ELEMENT ON THE 05327400 * OPERATOR CONTROL CHECKPOINT 05327600 * QUEUE THAT WILL REQUEST AN 05327800 * ENVIRONMENT CHECKPOINT 05328000 * @Y17XAXF 05328200 AVTCKHLT EQU X'08' . A REQUEST TO CKPT A HALT TCAM 05328400 * COMMAND HAS BEEN PROCESSED 05328600 * @Y17XAXF 05328800 * EQU X'04'-X'01' . RESERVED @Y17XAXF 05329000 AVTCKAVT DS AL3 . ADDRESS OF CHECKPOINT AVT 05349000 * @Y17XAXF 05369000 AVTOCGET DS A . OPERATOR CONTROL WORKAREA 05390000 AVTEXA2S DS 3H . EXECUTED INSTRUCTIONS TO 05460000 AVTEXS2A DS 3H . SAVE USER'S REGISTERS 05530000 AVTPARM DS A . ADDRESS OF PARAMETERS 05600000 * 05670000 AVTPKF DS 0X . PROTECTION KEY FROM TCB 05740000 * OF MCP 05810000 * BIT DEFINITIONS 05880000 AVTFTCHF EQU X'08' . FETCH PROTECT ACTIVE SWITCH 05950000 * 06020000 AVTBASE DS A IEDQAVT . ADDRESS OF AVT 06090000 AVTPARM3 DS A . ADDITIONAL OPTIONAL PARM 06160000 AVTDISTR DS A . ADDR OF DISPATCHER TRACE 06230000 AVTRNMPT DS A IEDQTNT . ADDRESS OF TERMNAME TABLE 06300000 AVTRDYA DS A IEDQRDYA . USER EXIT ADDRESS IN READY 06370000 AVTBSCAN DS A . LINE END BSC MSG SCAN 06440000 AVTRARTN DS A AVTDUMBR ADDR OF RTN TO UPDATE LINE 06510000 * TRACE TABLE. IF TRACE, 06580000 * OPEN LOADS THIS MODULE 06650000 AVTSBTA DS A . ADDR IEDQSBT ROUTINE @YM07020 06720000 AVTMVBFR DS A . ADDR OF IEDMVBFR ROUTN @Y17XAXF 06790000 * AVTMVBFR IS NON-ZERO IF NON-EP MODE OR @Y17XAXF 06810000 * IF EP MODE, AND TOTE IS IN THE SYSTEM @Y17XAXF 06830000 AVTSPLPT DS A . START PARAMETER LIST 06860000 * POINTER, SET BY INTRO 06930000 AVTCIB DS AL1 . CIB=INTEGER 07000000 AVTNCKPR DS X . CKREQS=INTEGER 07070000 AVTNOLBF DS H . LNUNITS=INTEGER 07140000 AVTAS DS A . RELEASE 07210000 * 07280000 * ADDRESSES OF TCBS OF ATTACHED TASKS 07350000 * 07420000 AVTCKTCB DS A . CHECKPOINT 07490000 AVTOCTCB DS A . OPERATOR CONTROL 07560000 AVTOLTCB DS A . ON LINE TEST 07630000 AVTCWTCB DS A . COMMON WRITE FE TASK 07700000 * 07770000 * EVENT CONTROL BLOCKS 07840000 * 07910000 AVTCWECA DS A . COMMON WRITE FE TASK ECB 07980000 AVTCKECA DS F . CHECKPOINT 08050000 AVTOLECA DS F . ON LINE TEST 08120000 AVTOPECA DS F . OPERATOR CONTROL 08190000 AVTECB1 DS 0XL1 @G36XRXG 08220000 AVTOSECB DS F . EVENT CONTROL BLOCK USED BY 08260000 * DISPATCHER TO CAUSE QTAM 08330000 * TASK TO BE IN WAIT STATE 08400000 AVTCOMP EQU X'40' ECB POSTED COMPLETE @G36XRXG 08430000 AVTPCBPT DS A . FIRST PROCESS CONTROL BLOCK 08470000 AVTOPTPT DS F . ADDRESS OF OPTION TABLE 08540000 AVTKA02 DS A IEDQKA02 I/O GENERATOR IN ACTIVATE 08610000 AVTHRESH DS F THRESHHOLD VALUES SA65392 08680000 AVTCRSRF DS F . CROSSRF=INTEGER 08750000 AVTCOMPT DS A . ADDR OF COMMUNICATIONS PARM 08820000 AVTUI DS A IEDQUI USER INTERFACE 08890000 AVTE8 DS A . SEARCH ROUT APPL. PROG. S22025 08960000 AVTOLTST DS 0X . OLTEST=INTEGER 09030000 AVTHG02 DS A IEDQHG02 REMOVE ELE FROM TIME DELAY Q 09100000 AVTAL DS A IEDQAL SCAN AT OFFSET S22025 09170000 AVTGD DS A IEDQGD . BUFFER ASSOCIATION 09240000 AVTA3 DS A . TRANSPARENCY CCW BUILDER (BT) 09310000 AVTAX DS A IEDQAX SCAN BUFFER S22025 09380000 AVTEA DS A . DISPATCHER 09450000 * 09520000 AVTDISP EQU * . THESE SUBTASKS ARE ACTIVAT- 09590000 * ED BY THE DISPATCHER. 09660000 AVTHA DS A . RECEIVE SCHEDULER 09730000 AVTSCOPT DS 0XL1 . S22026 09800000 * S22026 09870000 * BIT DEFINITIONS FOR HIGH ORDER BYTE S22026 09940000 AVTAPDMP EQU X'20' APPL DUMP REQUESTED @ZA07083 10010000 AVTCMBUF EQU X'10' . COMMON BUFFER TRANSMISSINS22027 10080000 AVTCONC EQU X'08' . CONCENTRATOR MIXED S22026 10150000 AVTCONCO EQU X'04' . CONCENTRATOR ONLY S22026 10220000 AVTN2741 EQU X'02' . NO 2741 AND NO TSO S22026 10290000 AVTNDIAL EQU X'01' . NO DIAL S22026 10360000 * S22026 10430000 AVTHD DS A . SEND SCHEDULER 10500000 AVTEW DS A . GET SCHEDULER 10570000 AVTEC DS A . PUT SCHEDULER 10640000 AVTEZ DS A . GET FIFO 10710000 AVTBZ DS A . LOG SCHEDULER 10780000 AVTR1 DS A . DIAL SCHEDULER 10850000 AVTHB DS A . BUFFERED SCHEDULER 10920000 AVTE7 DS A . RETRIEVE SCHEDULER 10990000 AVTQ1 DS A . LOCAL SCHEDULER S22024 11060000 AVTCSCH DS A . CONC SEND SCHEDULER S22026 11130000 AVTSEND DS V(IEDIAQ) . 3705 RES SEND SCHED @Y17XAXU 11200000 AVTRCV DS V(IEDIAM) . 3705 RES RECV SCHED @Y17XAXU 11270000 AVTCMBSS DS A . COMMBUF SEND SCHEDULER S22027 11340000 * 11410000 * 11480000 * SPECIAL ELEMENTS 11550000 * 11620000 DS A . RESERVED S22024 11690000 AVTSAVTF DS 0X SAVT FLAGS X03039 11760000 AVTVTMCP EQU X'80' . 3705 ENVIRONMENT @Y17XAXU 11830000 AVTONSNA EQU X'40' . ONLY SNA ENVIRONMENT @Y17XAXU 11900000 AVTSNA EQU X'20' . SNA ENVIRONMENT @Y17XAXU 11970000 AVTSAVTP DS A . SECONDARY AVT POINTER S22024 12040000 AVTPLCBN DS H . NUMBER OF PLCBS S22024 12110000 AVTABEND DS 3H . ABEND 045, SUBCODE IN R15 12180000 AVTDMECB DS A . DUMMY LINE I/O ECB 12250000 AVTA3TL DS A . IEDQA3,TRANSLATE LIST 12320000 AVTTONE DS A . ADDR OF WORLD TRADE TONE CHARS 12390000 AVTNX DS A . OPERATOR AWARENESS MSG ROUTER 12460000 AVTIOT DS A IGG019Q0 I/O TRACE TABLE HANDLER 12530000 AVTHI DS A IEDQHI SYSTEM DELAY QCB ADDR 12600000 AVTHK DS A IEDQHK STOPLINE QCB ADDR 12670000 AVTCKPEL DS 0CL16 . TIME DELAY REMOVAL ELEMENT 12740000 * FOR CHECKPOINT @Y17XAXF 12741000 AVTCKRMV DS 0F . 1ST WORD OF REMOVAL ELEMENT 12742000 * @Y17XAXF 12743000 AVTCKRKY DS XL1 . KEY FOR REMOVAL ELEMENT 12744000 * @Y17XAXF 12745000 AVTCKRMQ DS AL3 . ADDR OF TIME DELAY QCB 12810000 * @Y17XAXF 12811000 AVTCKRPR DS XL1 . PRIORITY @Y17XAXF 12812000 AVTCKRLK DS AL3 . LINK @Y17XAXF 12813000 DS CL8 LAST 2 WORDS OF ELEMENT 12814000 * @Y17XAXF 12815000 AVTCKELE DS 2A . TIME DELAY OR REUS POSTS 12880000 * ELE TO START CHECKPOINT 12950000 AVTSCBSZ DS X . NO. BYTES IN SCB INCLUDING 13020000 * SAVEAREA FOR USER'S REGS 13090000 AVTCKQAD DS AL3 AVTCKPTB CKPT QCB ADDRESS 13160000 AVTCKELF DS X . FLAG BITS 13230000 * BIT DEFINITIONS 13300000 AVTNQBCK EQU X'80' NO QBACK SCAN NEEDED @OS77945 13370000 AVTCMCPN EQU X'40' . CHECKPT REQUESTED BY 13420000 * MCPCLOSE 13470000 * EQU X'20' . UNUSED 13520000 AVTCINCN EQU X'10' . CHECKPT REQUESTED BY 13570000 * INCIDENT OVERFLOW 13620000 AVTCCLCN EQU X'08' . CLOSEDOWN COMPLETION BIT 13670000 AVTCPIPN EQU X'04' . CHECKPT IN PROGRESS 13720000 AVTCRTLN EQU X'02' . CHECKPOINT REQUESTED 13770000 AVTWARMN EQU X'01' . WARM RESTART 13820000 AVTCONTN EQU X'FF'-AVTWARMN . CONTINUATION RESTART 13870000 * 13920000 AVTCPRCD DS X . CPRCDS=INTEGER 13970000 AVTCKELV DS H . CPINTVL=TIME INTERVAL 14020000 AVTCKTIM DS H . TIME OF DAY OF INTERRUPT 14070000 DS X . INDEX TO QCB ADDRESS 14120000 AVTOPERL DS X . OPEN ERROR LOCATOR 14170000 AVTOPXCL DS 2X . OPEN MODULE ID HAVING ERROR 14220000 AVTOPERT DS X . TYPE OF OPEN ERROR 14270000 AVTCKBYT DS X . CKPT TIME DELAY STATUS 14320000 * BIT DEFINITIONS 14370000 AVTCKONQ EQU X'02' . BIT ON, ELE ON TIME Q 14420000 * 14470000 AVTOPETR DS 0X . OPEN TRANSLATE BYTE 14520000 AVTHG01 DS A IEDQHG01 TIME DELAY SUBROUTINE 14570000 AVTBSX DS 0X 8 OFFSET TO BINARY SEARCH ADDR 14620000 AVTCKLNK DS A . LINK FIELD ON TIME Q 14670000 AVTDELEM DS A AVTREADY-8 DUMMY LAST ELEMENT 14720000 AVTDELAD DS A AVTDELEM . ADDR OF DUMMY LAST ELEMENT 14770000 * 14820000 AVTCRELE DS 0CL8 . OPERATOR CONTROL CKPT REQUEST 14870000 * ELEMENT @Y17XAXF 14920000 AVTCCELE DS 0F 14970000 AVTCCKEY DS XL1 . OP CONTROL KEY FOR CKPT 15020000 * @Y17XAXF 15070000 AVTCCQCB DS AL3 . ADDR OF CKPT QCB @Y17XAXF 15120000 AVTCCPRI DS XL1 . PRIORITY @Y17XAXF 15170000 AVTCCLNK DS AL3 . LINK @Y17XAXF 15220000 AVTCLRHI DS 2X . WHEN USED WITH NEXT HALFWOD 15270000 * IS A MASK FOR CLEARING 15320000 * LEFT TWO BYTES OF REGISTR 15370000 AVTHFF DS XL2 FFFF . HALF WORD ALL 'F' 15420000 AVTABEPL DS 0F . ABEND PARMETER LIST @YM07738 15470000 AVTADBUF DS A . BUFFER ADDRESS SET BY 15520000 * MH CONTROL 15570000 AVT2260L DS F . PT TO 2260 LOCAL APPENDAGE 15620000 AVTSYSER DS X . SYSTEM ERROR FLAG BYTE 15670000 * BIT DEFINITIONS 15720000 AVTCMINN EQU X'80' . NO. CORE Q UNITS LESS THAN 15770000 * SPECIFIED BY MSMIN=PERCENT 15820000 AVTCMINF EQU X'FF'-AVTCMINN . NO. CORE Q UNITS MORE THAN 15870000 * SPECIFIED BY MSMIN=PERCENT 15920000 AVTCMAXN EQU X'40' . NO. CORE Q UNITS MORE THAN 15970000 * SPECIFIED BY MSMAX=PERCENT 16020000 AVTCMAXF EQU X'FF'-AVTCMAXN . NO. CORE Q UNITS LESS THAN 16070000 * SPECIFIED BY MSMAX=PERCENT 16120000 * 16170000 AVTMSGS DS AL3 IEDQMSGS LIST OF OPTIONAL VCONS 16220000 * 16270000 * POINTERS TO QCBS 16320000 * 16370000 AVTCBQCB DS A . COMMBUF MASTER QCB S22027 16420000 AVTSUPPT DS A . STARTUP MESSAGE 16470000 AVTTSOPT DS A . TS INPUT 16520000 AVTOCQPT DS A IEDQEU OPEN/CLOSE APPLICATION PROG 16570000 * 16620000 * NON-OPTIONAL QCBS 16670000 * 16720000 AVTDELYB DS 4A . TIME DELAY QCB 16770000 AVTREFTM DS H . REFERENCE TIME, CURRENT TIME 16820000 * OF DAY + OR - 6 HOURS 16870000 AVTINOUT DS H . DUMMY INEND/OUTEND PARM LIST 16920000 AVTIMQPS DS 2A . SVC 102 PARM, POST TIME QCB 16970000 * TO ITSELF AT TIME INTERRUPT 17020000 AVTTIMQ DS A . TIME DELAY QUEUE 17070000 AVTBFREB DS F AVAILABLE BUFFER QCB @OY19124 17120082 AVTBFRFG DS XL1 BUFFER POOL FLAG @OY19124 17128082 AVTBFRTN EQU X'80' RETURN BUFFERS BOTTOM @OY19124 17136082 AVTSELCH DS AL3 BUFFER POOL BOTTOM @OY19124 17144082 DS F @OY19124 17152082 AVTBFRTB DS 3F . BUFFER RETURN 17170000 AVTCKPQB DS 0CL12 . CKECKPOINT QCB @Y17XAXF 17220000 AVTCKPTB DS 0F . QUEUE OF ELEMENTS FOR CKPT 17270000 * @Y17XAXF 17320000 AVTCKPVT DS XL1 . VTO FOR ATTACHED TASK 17370000 * @Y17XAXF 17420000 AVTCKPCH DS AL3 . CHAIN OF ELEMENTS @Y17XAXF 17470000 AVTCKPEC DS 0F EVENT CONTROL BLOCK @Y17XAXF 17520000 AVTCKPCC DS XL1 . COMPLETION CODE BYTE @Y17XAXF 17570000 AVTCKPWA EQU X'80' . WAITING FOR COMPLETION OF 17620000 * THE EVENT @Y17XAXF 17670000 AVTCKPPO EQU X'40' . EVENT HAS COMPLETED @Y17XAXF 17720000 * EQU X'20'-X'01' . RESERVED @Y17XAXF 17770000 DS AL3 . RESERVED @Y17XAXF 17820000 AVTCKPTS DS CL1 . TEST AND SET FOR CKPT @Y17XAXF 17870000 DS AL3 . STCB ADDRESS @Y17XAXF 17920000 AVTOPCQB DS 0CL12 . OPERATOR CONTROL QCB @Y17XAXF 17970000 AVTOPCOB DS 0F . QUEUE OF ELEMENTS FOR OPCTL 18020000 * @Y17XAXF 18070000 AVTOPCVT DS XL1 . VTO FOR ATTACHED TASK 18120000 * @Y17XAXF 18170000 AVTOPCCH DS AL3 . CHAIN OF ELEMENTS @Y17XAXF 18220000 AVTOPCEC DS 0F . EVENT CONTROL BLOCK @Y17XAXF 18270000 AVTOPCCC DS XL1 . COMPLETION CODE BYTE 18320000 * @Y17XAXF 18370000 AVTOPCWA EQU X'80' . WAITING FOR COMPLETION OF 18420000 * THE EVENT @Y17XAXF 18470000 AVTOPCPO EQU X'40' . EVENT HAS COMPLETED @Y17XAXF 18520000 DS CL3 . RESERVED @Y17XAXF 18570000 DS A STCB ADDRESS @Y17XAXF 18620000 AVTOLTQB DS 0A . ON LINE TEST QCB @Y17XAXF 18670000 AVTOLTVT DS XL1 . VTO FOR ATTACHED TASK @Y17XAXF 18720000 AVTOLTCH DS AL3 . CHAIN OF ELEMENTS @Y17XAXF 18770000 AVTOLTEB DS F . QCB @Y17XAXF 18820000 DS A . STCB ADDRESS @Y17XAXF 18870000 AVTACTIB DS 3F . ACTIVATE 18920000 AVTCLOSB DS 3F . CLOSEDOWN COMPLETION 18970000 AVTCPRMB DS 3F . REMOVES ELE FROM TIME DELAY Q 19020000 AVTDSIOB DS 3F . DISK I/O QCB 19070000 AVTCPBCB DS 3F . CPB CLEANUP QCB 19120000 AVTCOREC DS A . BUFFERS POOL FOR CLOSE 19170000 AVTCADDR DS F . CORE QUEUE COUNT 19220000 AVTFZERO DS F . FULLWORD OF ZEROES 19270000 * 19320000 * FE COMMON WRITE INTERFACE AREA 19370000 * 19420000 AVTCAREA DS A IEDQFE PATCH MODULE 19470000 AVTCWPM1 DS F . FIRST PARAMETER POINTER 19520000 AVTCWEC1 DS F . FIRST ECB 19570000 AVTCWFL1 DS X . FIRST FLAG BYTE 19620000 * 19670000 * AVTCWFL1 BIT DEFINITIONS 19720000 AVTCOMWN EQU X'80' . COMWRTE=YES 19770000 * REMAINING BITS UNDEFINED 19820000 * 19870000 AVTCWFL2 DS X . ADDITIONAL FLAG BYTES 19920000 * 19970000 * AVTCWFL2 BIT DEFINITIONS 20020000 AVTCWACT EQU X'80' . COMMON WRITE IS ACTIVE 20070000 * EQU X'7C' . RESERVED BY COMWRITE 20120000 AVTCWRAP EQU X'02' . '0'-WRAPPING OUTPUT ALLOWED 20170000 * (REUSE SAME VOLUME) 20220000 * '1'-WRAP NOT ALLOWED (INVOKE 20270000 * VOL SWITCHING-REQUIRES 20320000 * MANUAL INTERVENTION) 20370000 AVTCWCLD EQU X'01' . '1'-COMWRITE CLOSEDOWN 20420000 * REQUESTED BY USER IN 20470000 * PARMLIST OR TCAM CLOSEDOWN. 20520000 * SET BY COMWRITE 20570000 * 20620000 AVTCWTS1 DS X . COMWRITE ECB1 AVAIL @Y17XAXU 20670000 AVTCWTS2 DS X . COMWRITE ECB2 AVAIL @Y17XAXU 20720000 AVTCWPM2 DS F . SECOND PARAMETER POINTER 20770000 AVTCWEC2 DS F . SECOND ECB 20820000 AVTAFE10 DS A . ENTRY POINT OF IEDQFE10 20870000 AVTAFE20 DS A . ENTRY POINT OF IEDQFE20 20920000 AVTAFE30 DS A . ENTRY POINT OF IEDQFE30 20970000 AVTSUBT DS XL1 . SUBT OPTIONS FLAG @Y17XAXU 21020000 AVTSUBON EQU X'80' . SUBTASK TRACE ON @Y17XAXU 21070000 AVTSUBPT EQU X'40' . SUBTASK POST TRACE ON @Y17XAXU 21120000 AVTIOTR DS XL1 . IOTR OPTIONS FLAG @Y17XAXU 21170000 AVTIOTRE EQU X'80' . I/O TRACE ON @Y17XAXU 21220000 AVTIOTRH EQU X'40' . I/O POST TRACE ON @Y17XAXU 21270000 DS XL2 . RESERVED @Y17XAXU 21320000 AVTDTRAP DS A . SERVICE AID ENTRY ADDR @Y17XAXU 21370000 AVTCWINT DS 13F SERVICE COMMUNICATION @Y17XAXU 21420000 * AREA SA64772 21470000 AVTCWTOT DS F TOTE COMMUNICATION AREA SA64772 21520000 * 21570000 * GETMAIN EC,MF=L GETMAIN PARAMETER LIST 21620000 AVTGETMN GETMAIN EC,MF=L 21670000 AVTHA2 DS H 2 . CONSTANT 21720000 AVTHA3 DS H 3 . CONSTANT 21770000 AVTHA4 DS H 4 . CONSTANT 21820000 AVTHA7 DS H 7 . CONSTANT 21870000 AVTHA16 DS H 16 . CONSTANT 21920000 AVTKEYLE DS H . KEYLEN ON MSG QUEUES 21970000 AVTLNCNT DS H . NUMBER OF LINES OPENED 22020000 * SET BY OPEN 22070000 * CHECKED BY SYSTEM DELAY 22120000 AVTOPCNT DS H . NUMBER OF LINES GRABBED BY 22170000 * OPERATOR CONTROL. 22220000 * SET BY DELAY SUBTASK 22270000 AVTOPCON DS H . TERMNAME TABLE OFFSET TO 22320000 * PRIMARY OPERATOR CONTROL 22370000 * CONSOLE. SET BY OPEN 22420000 * FROM PRIMARY=TERMNAME IN 22470000 * INTRO MACRO 22520000 AVTAVFCT DS H . SET BY OPEN TO NUMBER OF 22570000 * BUFFERS IN POOL 22620000 AVTSMCNT DS H . NUMBER OF LINES SERVICED BY 22670000 * STARTUP MESSAGE SUBTASK 22720000 AVTINTLV DS H . NUMBER OF SECONDS OF SYSTEM 22770000 * DELAY 22820000 * SET BY OPERATOR CONTROL 22870000 * OR BY INTRO INTVAL=INT 22920000 * CHECKED BY DELAY SUBTASK 22970000 AVTDLQX DS H . OFFSET INTO TNT OF DEAD 23020000 * LETTER QUEUE 23070000 AVTDUMBR DS H BR 11 DUMMY LINE TRACE TABLE UPDATE 23120000 AVTBIT1 DS X . FLAG BITS 23170000 * 23220000 * BIT1 DEFINITIONS 23270000 * 23320000 AVTAPLKN EQU X'80' . PREVENT DISK END APPENDAGE 23370000 * FROM ADDING A CPB TO DIS- 23420000 * ABLED DISK END Q FOR CPB 23470000 * CLEANUP (AVTDKAPQ) 23520000 AVTAPLKF EQU X'7F' . PERMITS ABOVE ACTION 23570000 AVTTSON EQU X'40' . ENVIRON=TSO (OR MIXED) 23620000 AVTAQTAN EQU X'20' . ENVIRON=TCAM (OR MIXED) 23670000 AVTDLAYN EQU X'10' . SYSTEM DELAY IS IN EFFECT 23720000 * SET BY OPERATOR CONTROL 23770000 AVTDLAYF EQU X'EF' . SYSTEM DELAY NOT IN EFFECT 23820000 * TURNED OFF BY DELAY SUBT 23870000 AVTREADN EQU X'08' . READY MACRO HAS BEEN 23920000 * EXECUTED 23970000 * SET BY READY MACRO 24020000 * CHECKED BY OPEN 24070000 AVTCLOSN EQU X'04' . CLOSEDOWN INDICATOR 24120000 * '0'-CLOSEDOWN NOT REQUEST 24170000 * '1'-CLOSEDOWN REQUESTED 24220000 AVTQUCKN EQU X'02' . TYPE OF CLOSEDOWN 24270000 * '0'-FLUSH 24320000 * '1'-QUICK 24370000 AVTDISKN EQU X'01' . DISK=YES 24420000 * 24470000 AVTBIT2 DS X . FLAG BITS 24520000 * 24570000 * BIT2 DEFINITIONS 24620000 * 24670000 AVTEXTSC EQU X'80' . EXTENDED RESTART SA51078 24720000 AVTREUSN EQU X'40' . REUS IS RUNNING 24770000 * SET BY REUS 24820000 * CHECKED BY CPB CLEANUP 24870000 AVTREUSF EQU X'BF' . TURNED OFF BY REUS 26460000 AVTCOPYN EQU X'20' . COPY WANTS CONTROL 26530000 AVTTOPOL EQU X'10' . TOPMSG=YES/NO 26600000 * ON,(NO) SUPPRESS TIME 26670000 * OUT POLL MSGS 26740000 * OFF,(YES) DISPLAY MSGS 26810000 AVTSTRTN EQU X'08' . RESTART HAS BEGUN 26880000 AVTSTRTF EQU X'F7' . COLDSTART (OR RESTART NOT 26950000 * YET BEGUN) 27020000 AVTOPEIN EQU X'04' . INITIAL LOAD DONE INDICATOR 27090000 * X'02' LINETYP=STSP 27160000 * X'01' LINETYP=BISC 27230000 * X'03' LINETYP=MINI 27300000 * X'00' LINETYP=BOTH 27370000 AVTBIT3 DS X . FLAG BITS 27440000 * AVTBIT3 BIT DEFINITIONS 27510000 AVTSTAN EQU X'01' . S=C OR S=W SPECIFIED 27580000 AVTSTACN EQU X'02' . S=C COLDSTART 27650000 AVTSTAWN EQU X'FD' . S=W WARMSTART 27720000 AVTSTAIN EQU X'04' . S=I INVITAION LISTS 27790000 AVTSTAYN EQU X'08' . S=Y NO CONTINUATION 27860000 AVTOLTBN EQU X'10' . MAX LOAD OF OLT REACHED 27930000 AVTTSAB EQU X'20' . TSO HAS ABENDED.SET BY TIME 28000000 * SHARING ABEND MODULE. RESET 28070000 * BY START TIME SHARING. CKED 28140000 * BY TSINPUT & TSOUTPUT 28210000 AVTRFULN EQU X'40' . REUS DISK ZONE FULL 28280000 * SET BY REUS 28350000 AVTRFULF EQU X'BF' . REUS DISK READY TO RECEIVE 28420000 * TURNED OFF BY REUS 28490000 * CHECKED BY REC. SCHEDULER 28560000 * AND LINE END APPEN 28630000 AVTRECVN EQU X'80' . CORE QUEUE FULL 28700000 * SET BY DESTINATION SCHEDULER 28770000 AVTRECVF EQU X'7F' . TURNED OFF BY DISK I/O 28840000 * CHECKED BY RECEIVE SCHEDULER 28910000 * AND LINE END APPENDAGE 28980000 * 29050000 AVTCKRST DS X . RESTART=INTEGER 29120000 AVTDSKCT DS H . NUMBER OF BUFFERS ON CPBS 29190000 AVTOPTN DS V(IEDOPTN) . OPTION SEARCH RTN @Y17XAXU 29260000 AVTSTEAL DS V(IEDQGA02) . BUFFER STEAL RTN @Y17XAXU 29330000 AVTDDFT DS V(IEDQTL) . DEVICE DEP FLD @Y17XAXU 29400000 * LOOKUP RTN @Y17XAXU 29470000 AVTOPMSK DS A . ADDRESS OF OPERATOR @Y17XAXU 29540000 * CONTROL MASK TABLE @Y17XAXU 29610000 AVTDCTLN DS H . LENGTH OF DCT MASK FLD @Y17XAXU 29680000 AVTOPCIN DS H . TTCIN OF PRIMARY @Y17XAXU 29750000 * TERMINAL @Y17XAXU 29820000 * END OF BASIC AVT WHEN ENVIRON=TSO 29890000 * 29960000 AVTHM02 DS A IEDQHM02 DESTINATION ASSIGNMENT 30030000 AVTCMIN DS A . MSMIN=INTEGER 30100000 AVTCMAX DS A . MSMAX=INTEGER 30170000 AVTTOTNC DS F . NUMBER OF RECORDS IN ENTIRE 30240000 * DATA SET (MSUNITS=INTEGER) 30310000 AVTNCPBQ DS 2A . Q OF BUFFERS AND ERBS 30380000 * WAITING TO BE PROCESSED 30450000 * 30520000 * END OF CORE QUEUE AVT WHEN DISK=NO 30590000 * 30660000 AVTFL DS A . DISK EXCP DRIVER 30730000 AVTIA DS A . REUS 30800000 AVTCOPY DS A . COPY SUBTASK QCB POINTER 30870000 AVTDKAPQ DS 2A . Q OF CPBS TO BE PROCESSED 30940000 * BY CPB CLEANUP (DISABLED) 31010000 AVTDKENQ DS 2A . SAVE AS ABOVE BUT ENABLED 31080000 AVTNOBFQ DS 2A . Q OF CPBS WITHOUT BUFFERS. 31150000 * USED BY CPB CLEANUP 31220000 AVTBIT4 DS XL1 . FLAGBITS SA51078 31290000 * AVTBIT4 BIT DEFINITIONS SA51078 31360000 AVTRUFTN EQU X'80' . REUS ACTIVE AT CHECKPT SA51078 31430000 DS AL3 . RESERVED SA51078 31500000 DS AL4 . RESERVED SA51078 31570000 AVTINCPQ DS 2A . Q OF CPBS REQUESTING I/O 31640000 * TO BE DONE BY EXCP DRIVER 31710000 AVTFCPB DS A . Q OF INACTIVE CPBS, CALLED 31780000 * THE CPB FREEPOOL 31850000 AVTCPBPT DS A . ADDRESS OF CPB FREEPOOL TO 31920000 * BE FREEMAINED BY DISK CLOSE 31990000 AVTIOBR DS A . ADDRESS OF LIST OF IOBS, 32060000 * ONE FOR EACH EXTENT OF 32130000 * THE REUSABLE DISK QUEUE 32200000 AVTIOBN DS A . SAME AS ABOVE, BUT FOR THE 32270000 * NON-REUSABLE DISK QUEUE 32340000 AVTLODPT DS F . RADDR WHEN REUS ACTIVATED 32410000 * REUSABLE DISK DEFINITION 32480000 AVTADEBR DS A . ADDRESS OF DEB 32550000 AVTNOVOR DS F . NUMBER OF EXTENTS 32620000 AVTRCTRR DS F . NUMBER OF RECORDS/TRACK 32690000 AVTTRCYR DS F . NUMBER OR TRACKS/CYLINDER 32760000 AVTTOTNR DS F . NUMBER OF RECORDS IN ENTIRE 32830000 * DATA SET 32900000 AVTVOLRR DS F . PRODUCT OF NUMBER OF 32970000 * EXTENTS TIMES NUMBER OF 33040000 * RECORDS/TRACK 33110000 * NONREUSABLE DISK DEFINITION 33180000 AVTADEBN DS A . ADDRESS OF DEB 33250000 AVTNOVON DS F . NUMBER OF EXTENTS 33320000 AVTRCTRN DS F . NUMBER OF RECORDS/TRACK 33390000 AVTTRCYN DS F . NUMBER OF TRACKS/CYLINDER 33460000 AVTTOTNN DS F . NUMBER OF RECORDS IN ENTIRE 33530000 * DATA SET 33600000 AVTVOLRN DS F . PRODUCT OF NUMBER OF 33670000 * EXTENTS TIMES NUMBER OF 33740000 * RECORDS/TRACK 33810000 AVTHRESN DS F . THE ABSOLUTE RECORD NUMBER 33880000 * WHICH IS THE THRESHOLD TO 33950000 * CAUSE CLOSEDOWN DUE TO 34020000 * THE FILLING OF THE 34090000 * NON-REUSABLE DISK QUEUE 34160000 AVTNADDR DS F . NON-REUSABLE DISK QUEUE 34230000 AVTRADDR DS F . REUSABLE DISK QUEUE 34300000 AVTHRESE DS 0F . NON-REUSABLE THRESHOLD 34370000 * CLOSEDOWN ELEMENT, 3 WORDS 34440000 DS F . ADDR OF OPERATOR CONTROL QCB 34510000 DS X . PRIORITY (VALUE IS PRIOPCTL 34580000 * PLUS 4) 34650000 DS AL3 . LINK FIELD 34720000 DS X . X'11' - FLUSH CLOSE REQUESTED 34790000 DS X . X'0C' - LENGTH OF ELEMENT 34860000 DS X . UNUSED - (REL.LINE NO.) 34930000 AVTHRESS DS X . COMPLETION CODE, USED AS STATUS 35000000 * X'FF' - UNUSED ELEMENT 35070000 * X'F0' - ELE HAS BEEN POSTED 35140000 * X'00' OR X'04' CLOSED DOWN 35210000 AVTCPBNO DS H . CPB=INTEGER 35280000 * 35350000 * TCAM SYSTEM EQUATES 35420000 * 35490000 AVTCVTPT EQU 240 . OFFSET INTO CVT OF ADDRESS 35520000 * OF TCX 35630000 AVTUMALN EQU 12 . LENGTH OF CCW-TIC (UNIT 35700000 * MANAGEMENT AREA) 35770000 AVTDATLN EQU 6 . NO. OF BYTES IN DATA FIELD 35840000 * OF MESSAGE Q RECORD 35910000 AVTMINKY EQU 36 MINIMUM KEYLENGTH @Z30X8XE 35980000 AVTMIN05 EQU 44 MIN KEY FOR 3705 ENVIR @YM06968 36010000 AVTHDRSZ EQU 30 . SIZE OF HEADER PREFIX 36050000 AVTTXTSZ EQU 23 . SIZE OF TEXT PREFIX 36120000 AVTTSOSZ EQU 9 . SIZE OF TSO PREFIX 36190000 AVTSVSIZ EQU 72 . NO. BYTES IN A SAVEAREA 36260000 AVTECD4 EQU 4 . RETURN CODE OF 4 36330000 AVTECD8 EQU 8 . RETURN CODE OF 8 36400000 AVTECD12 EQU 12 . RETURN CODE OF 12 36470000 AVTECD16 EQU 16 . RETURN CODE OF 16 36540000 AVTECD20 EQU 20 . RETURN CODE OF 20 36610000 AVTERACE EQU 24 . SIZE OF TRACE TABLE ENTRY 36680000 AVTE80 EQU X'80' . SIGN BIT MASK 36750000 AVTMODBT EQU X'80' . 2 TO THE 23RD BIT MASK 36820000 AVTEZERO EQU X'00' . EQUATED ZERO 36890000 AVTEBLNK EQU C' ' . EQUATED BLANK CHARACTER 36960000 AVTEPER EQU C'.' . EQUATED PERIOD 37030000 AVTEFF EQU X'FF' . ALL ONES 37100000 * BIT DEFINITIONS OF THE HIGH ORDER BYTE OF TCAM WORD IN CVT 37170000 AVTCVT80 EQU X'80' . TCAM OPEN COMPLETED 37240000 AVTCVT40 EQU X'40' . 2260 LOCAL SUPPORT 37310000 AVTCVT08 EQU X'08' . MCP IS FETCH PROTECTED 37380000 * OFFSETS FOR MP65 SUPPORT 37450000 AVTCVTMP EQU X'C0' . OFFSET INTO CVT OF ADDRESS 37520000 * OF MULTIPROCESSOR CVT 37590000 AVTMPTRR EQU X'0C' . OFFSET INTO MP CVT OF 37660000 * TASK REMOVAL ROUTINE 37730000 AVTCPUST EQU X'2AF' . ABSOLUTE LOCATION LOW CORE 37800000 * OF CPUSTAT BYTE 37870000 SPACE 2 37940000 AIF ('&SAVT' NE 'YES').SAVTEND S22024 38010000 IEDNSVTD DSECT S22024 38080000 SAVTDIAF DS 0XL1 . FLAGS Y05331 38150000 SAVTVIRT EQU X'80' . VM ENVIRONMENT INDICATOR Y05331 38220000 SAVTPRMT EQU X'40' . VM PROMPT INDICATOR Y05331 38290000 SAVTRESV EQU X'3F' . ALL OTHER BITS RESERVED Y05331 38360000 SAVTDIAG DS A . VIRTUAL DIAGNOSE ROUTINE Y05331 38430000 SAVTVM EQU * END OF VM ENVIRON INPUT X03039 38500000 SAVTPOOL DS A . PLCB POOL ADDRESS X03039 38570000 SAVTPLCB DS A . NEXT FREE PLCB X03039 38640000 SAVTPUSE DS H . PLCB IN-USE COUNT @Y17XAXU 38710000 SAVTPH20 DS H . PLCB HI-WATER COUNT @Y17XAXU 38780000 SAVTPREQ DS V(IEDIAP01) . ADDRESS OF PLCB @Y17XAXU 38850000 * ALLOCATION RTN @Y17XAXU 38920000 SAVTPRTQ DS A . ANCHOR FOR PLCB @Y17XAXU 38990000 * REQUEST WAIT CHAIN @Y17XAXU 39060000 SAVTPWT DS H . PLCB WAIT COUNT @Y17XAXU 39130000 SAVTWH20 DS H . PLCB HI-WATER WAIT CT @Y17XAXU 39200000 DS V(IEDIAP7S) . ADDRESS OF STCB FOR @Y17XAXU 39205000 * PLCB DEALLOCATION @Y17XAXU 39340000 SAVTPRTN DS V(IEDIAP07) . BRANCH ENTRY ADDRESS @Y17XAXU 39410000 * OF PLCB DEALLOCATION @Y17XAXU 39480000 * RTN @Y17XAXU 39550000 SAVTSIB DS A . NEXT FREE SIB ADDRESS @Y17XAXU 39620000 SAVTSUSE DS H . SIB IN-USE COUNT @Y17XAXU 39690000 SAVTFAIL DS H . COUNT OF SIB REQUESTS @Y17XAXU 39760000 * THAT FAILED @Y17XAXU 39830000 SAVTSREQ DS V(IEDIAP02) . ADDRESS OF SIB ALLOCA- @Y17XAXU 39900000 * TION RTN @Y17XAXU 39970000 SAVTSRTN DS V(IEDIAP08) . ADDRESS OF SIB DEALLO- @Y17XAXU 40040000 * CATION RTN @Y17XAXU 40110000 SAVTFLDH DS A . 3705 FIRST LEVEL DATA @Y17XAXU 40180000 * HANDLER @Y17XAXU 40250000 SAVTCNIR DS V(IEDNKA) . CONTROL NIR GENR QCB @Y17XAXU 40320000 * ADDRESS @Y17XAXU 40390000 SAVTDNIR DS V(IEDNGD) . DATA NIR GENR QCB ADDR @Y17XAXU 40460000 SAVTRNTA DS A . 3705 TRACE RTN ADDRESS @Y17XAXU 40530000 SAVTPIUT DS A . ADDRESS OF PIU TRACE @Y17XAXU 40600000 * TABLE @Y17XAXU 40670000 SAVTCLUP DS A . 3705 CLEANUP RTN @Y17XAXU 40740000 * ADDRESS @Y17XAXU 40810000 SAVTNAT DS A . NAT ADDRESS @Y17XAXU 40880000 SAVTSAT DS A . SAT ADDRESS @Y17XAXU 40950000 DS F . RESERVED @Y17XAXF 41020000 SAVTLUSQ DS 0F . LUS QCB @Y17XAXU 41160000 SAVTLUSB DS A . BUFFER WAIT CHAIN @Y17XAXU 41230000 SAVTLUSP DS A . PLCB WAIT CHAIN @Y17XAXU 41300000 DS V(IEDLUS) . STCB POINTER @Y17XAXU 41370000 SAVTLUSR DS A . OP-SERV-REQ CHAIN @Y17XAXU 41440000 SAVTSLCB DS A . SSCP LCB @Y17XAXU 41510000 SAVTSCPQ DS A . SSCP OUTBOUND QCB @Y17XAXU 41580000 SAVTSSSR DS A . SERIALIZER CHAIN @Y17XAXU 41650000 DS V(IEDSCPSS) . STCB POINTER @Y17XAXU 41720000 SAVTXFMO DS V(IEDXFMO) . OUTBOUND XFORMER QCB @YM03681 41720100 * ADDRESS @YM03681 41720200 DS 2F . RESERVED @YM03681 41720300 SAVTXFMI DS V(IEDXFMI) . INBOUND XFORMER @YM03681 41720700 * ENTRY ADDRESS @YM03681 41820700 DS 2F . RESERVED @YM03681 41920700 SAVTIPCQ DS V(IEDPCIN) . PC INBOUND QCB ADDRESS @YM03681 42020700 DS 3F . RESERVED @Y17XAXF 42120700 SAVTMVBF DS V(IEDMVBFR) . MOVE BFR DATA RTN @Y17XAXU 42490000 SAVTXTRQ DS V(IEDXTREQ) . CROSS TASK REQ HDLR @Y17XAXU 42560000 SAVTSCLU DS V(IEDSCLU) . SC ENTRY ADDR @Y17XAXU 42630000 SAVTSSRQ DS V(IEDSCPRQ) . SSCP REQ HDLR ADDR @Y17XAXU 42700000 SAVTSSRP DS V(IEDSCPRP) . SSCP RESP HDLR ADDR @Y17XAXU 42770000 SAVTCSCI DS V(IEDCSCIN) . FID1 COM SC INBOUND @Y17XAXU 42840000 SAVTSAI DS V(IEDSAI) . FID0 SA INBOUND @Y17XAXU 42910000 SAVTSAC DS V(IEDSAC) . COMMAND PROCESSOR @Y17XAXU 42980000 SAVTSARI DS V(IEDSARI) . COMMAND PROCESSOR @Y17XAXU 43050000 SAVTSAO DS V(IEDSAO) . COMMAND ID PROC @Y17XAXU 43120000 SAVTDFCO DS V(IEDDFOUT) . DFC OUTBOUNT @Y17XAXU 43190000 SAVTRQIN DS V(IEDRQIN) . INBOUND REQ PROCESSOR @Y17XAXU 43260000 SAVTQRS DS V(IEDQRS) . RESPONSE GENERATOR @Y17XAXU 43330000 * ADDRESS @Y17XAXU 43400000 SAVTSSMH DS A . IEDSCPMH SSCP MH ENTRY ADDRESS @Y17XAXU 43402000 SAVTMHTB DS A . IEDMHTB MH TABLE ADDRESS @Y17XAXU 43404000 SAVTNATL DS H . INDEX OF LAST NAT ENTR @Y17XAXU 43610000 SAVTNADL DS H . CONSTANT TO CALCULATE NAT 43680000 * ENTRY FROM MH INDEX @Y17XAXU 43750000 SAVTSPLN DS A . 3705 STOPLINE RTN @Y17XAXU 43760000 * ADDRESS @Y17XAXU 43890000 SAVTMAND DS A . ADDRESS OF MANUAL DIAL @Y17XAXU 43960000 * RTN @Y17XAXU 44030000 SAVTRQCH DS A . APPL REQUEST QUEUE @Y17XAXU 44100000 SAVTRQTG DS H . APPL REQUEST TAG @Y17XAXU 44170000 SAVTTCPU DS 0H . TCAM PU TTCIN @Y17XAXU 44240000 SAVTSCPT DS H . SSCP TTCIN @Y17XAXU 44310000 SAVTBSM DS A . BSM ADDRESS @Y17XAXU 44380000 SAVTSIBC DS H . SIB COUNT @Y17XAXU 44450000 SAVTSUBA DS XL1 . MAX SUBAREA VALUE @Y17XAXU 44520000 SAVTSUBV DS XL1 . HOST SUBAREA VALUE @Y17XAXU 44590000 SAVTNAX DS V(IEDIAP03) . NETWORK ADDR TO TTCIN @Y17XAXU 44660000 * CONVERSION RTN ADDR @Y17XAXU 44730000 SAVTTNTX DS V(IEDIAP04) . TTCIN TO NETWORK ADDR @Y17XAXU 44800000 * CONVERSION RTN ADDR @Y17XAXU 44870000 SAVTRNMP DS V(IEDIAP05) . INDEX TO TTE/MH ENTRY @Y17XAXU 44940000 * CONVERSION RTN ADDR @Y17XAXU 45010000 SAVTLCBS DS V(IEDIAP06) . SA LCB FETCH ROUTINE @Y17XAXU 45080000 SAVTSH20 DS H . SIB POOL UTIL. HI-WATER 45150000 * COUNT @Y17XAXU 45220000 SAVTNAT1 DS H . TNTINDEX OF FIRST @Y17XAXU 45290000 * NAT ENTRY @Y17XAXU 45360000 SAVTMHDX DS H . TTCIN OF FIRST MH @Y17XAXU 45430000 * ENTRY @Y17XAXU 45500000 SAVTZELM DS 0H . NETWORK ADDRESS @Y17XAXU 45570000 * SUBAREA MASK @Y17XAXU 45640000 SAVTSUBM DS XL1 . SUBAREA MASK @Y17XAXU 45710000 DS XL1 . BYTE OF ZERO @Y17XAXU 45780000 SAVTSUBL DS XL1 .. SUBAREA VALUE LENGTH @Y17XAXU 45810000 DS XL1 .. RESERVED @YM02919 45850000 SAVTPLSZ DS H . PLCB,SAT,SIB,RVT, AND @YM02919 45856000 * NAT POOL SIZE @YM02919 45862000 SAVTDVAS DS V(IEDDVAS) . DEV ASSOC. ROUTINE @Y17XAXU 45868000 SAVTNID DS A . IEDNID BSC ID VER ROUTINE @Y17XAXU 45874000 SAVTRDRV DS 0F . A/D REDRIVE ELEMENT @YM03697 45880000 SAVTRDKY DS XL1 . KEY FIELD @YM03697 45886000 SAVTRDQB DS AL3 . AVTOPCOB QCB ADDRESS FIELD @YM03697 45892000 SAVTRDPY DS XL1 . PRIORITY FIELD @YM03697 45898000 DS XL7 . RESERVED @YM03697 45904000 SAVTRDFG DS XL1 . FLAG FIELD @YM03697 45910000 DS CL3 RESERVED @Y17XAXF 45920000 SAVTCKQB DS 0CL12 3705 CHECKPOINT QCB @Y17XAXF 45924000 SAVTCKTB DS 0F QUEUE OF ELEMENTS FOR CKPT 45928000 * @Y17XAXF 45932000 SAVTCKVT DS XL1 . VTO FOR ATTACHED TASK 45936000 * @Y17XAXF 45940000 SAVTCKCH DS AL3 . CHAIN OF ELEMENTS @Y17XAXF 45944000 SAVTCKEC DS 0F . EVENT CONTROL BLOCK @Y17XAXF 45948000 SAVTCKCC DS XL1 . COMPLETION CODE BYTE @Y17XAXF 45952000 SAVTCKWA EQU X'80' . WAITING FOR COMPLETION OF 45956000 * THE EVENT @Y17XAXF 45960000 SAVTCKPO EQU X'40' . EVENT HAS COMPLETED @Y17XAXF 45964000 * EQU X'20'-X'01' . RESERVED @Y17XAXF 45968000 DS AL3 . RESERVED @Y17XAXF 45972000 DS A STCB ADDRESS @Y17XAXF 45976000 SAVTBITN DS A IEDBITN BIND IMAGE TABLE ADDR @Y17XAXF 45980000 SAVTLLCB DS A POINTER TO LAST PLCB @OY19488 45982082 SAVTVMSZ EQU SAVTVM-IEDNSVTD LENGTH OF VM ONLY @Y17XAXU 45984000 SAVTSIZE EQU *-IEDNSVTD SAVT LENGTH @Y17XAXU 45990000 SPACE 2 S22024 46060000 .SAVTEND ANOP S22024 46130000 MEND , */ 46200000 *%BSLAVT : ; 46270000 *DECLARE 46340000 * 1 IEDQAVTD BDY(DWORD) BASED(IEDQAPTR), 46410000 *%IF C='2' %THEN 46480000 * %GOTO D2; 46550000 *%IF C='3' %THEN 46620000 * %GOTO D3; 46690000 *%IF C='4' %THEN 46760000 * %GOTO D4; 46830000 * 2 AVTSAVE1 (18) PTR(31), /* MESSAGE CNTRL PROG SAVE */ 46900000 *%D2 : ; 46970000 * 2 AVTSAVE2 (18) PTR(31), 47040000 *%D3 : ; 47110000 * 2 AVTSAVE3 (18) PTR(31), 47180000 *%D4 : ; 47250000 * 2 AVTSAVE4 (18) PTR(31), 47320000 * 2 AVTSAVEX CHAR(40), /* DISABLED SAVEAREA */ 47390000 * 3 * CHAR(32), 47460000 * 3 AVTDLQ CHAR(8), /* DEAD LETTER QUEUE */ 47530000 * 2 AVTCSTCS PTR(31), /* IEDQSTCS ADDR OF FIRST 47600000 * ENTRY CHARACTERISTICS 47670000 * TABLE */ 47740000 * 2 AVTDPARM FIXED(31), /* DISABLED PARAMETER LIST 47810000 * USED WITH DOUBX */ 47880000 * 2 AVTDOUBX CHAR(8) BDY(DWORD), /* DISABLED DOUBLEWORD 47950000 * SCRATCH */ 48020000 * 2 AVTDOUBL CHAR(8) BDY(DWORD), /* ENABLED SCRATCH AREA */ 48090000 * 2 AVTCTLCH CHAR(8) BDY(DWORD), /* OPERATOR CONTRL CHARS */ 48160000 * 2 AVTPASWD CHAR(8) BDY(DWORD), /* PASSWORD */ 48230000 * 2 AVTTCB PTR(31), /* ADDRESS OF MESSAGE 48300000 * CONTROL PROGRAM'S TCB. 48370000 * SET BY OPEN */ 48440000 * 2 AVTRACE PTR(31), /* TRACE TABLE ADDRESS */ 48510000 * 48580000 */* DISPATCHER'S READY QUEUES */ 48650000 * 48720000 * 2 AVTREADY PTR(31), /* AVTDELEM - ADDRESS OF 48790000 * FIRST OF CHAIN OF 48860000 * ELEMENTS IN PRIORITY 48930000 * ORDER */ 49000000 * 2 AVTREADD PTR(31), /* DISABLED FIFO READY QUEUE 49070082 * @OY19405*/ 49080082 * 3 AVTBUFTR PTR(31), /* ADD. OF BUFFER TRACE TABLE 49090082 * @OY19405*/ 49100082 * 2 AVTBUFSW BIT(8), /* NO. ENT. ON INTRO @OY19405*/ 49110082 * 3 * BIT(6), /* NOT USED @OY19405*/ 49120082 * 3 AVTUNCON BIT(1), /* TRACE WITHOUT I/O @OY19405*/ 49130082 * 3 AVTFULLT BIT(1), /* TRACE ENTIRE BUFFE@OY19405*/ 49140082 * 2 * CHAR(1), /* NOT USED @OY19405*/ 49150082 * 2 AVTBUENT CHAR(2), /* NO. ENT. ON INTRO @OY19405*/ 49160082 * 2 * PTR(31), /* CHECKPOINT WORKAREA - 49210000 * GETMAIN */ 49280000 * 3 AVTCKFLG BIT(8), /* CKECKPOINT ACTIVE FLAGS 49350000 * @Y17XAXF*/ 49350700 * 4 AVTCKTAC BIT(1), /* TCAM CHECKPOINT IS ACTIVE 49351400 * @Y17XAXF*/ 49352100 * 4 AVTCKNAC BIT(1), /* CKECKPOINT FOR A 3705 49352800 * IS ACTIVE @Y17XAXF*/ 49353500 * 4 AVTCKENV BIT(1), /* FORCE ENVIRONMENT CHKPT 49353700 * @Y17XAXF*/ 49353900 * 4 AVTCKREQ BIT(1), /* THERE IS AN ELEMENT ON THE 49354200 * OPERATOR CONTROL CHPT QUE 49354300 * THAT WILL REQUEST AN ENVIR 49354400 * CHECKPOINT @Y17XAXF*/ 49354500 * 4 AVTCKHLT BIT(1), /* A REQUEST TO CKPT A HALT 49354600 * TCAM COMMAND HAS BEEN 49354700 * PROCESSED @Y17XAXF*/ 49354800 * 4 * BIT(3), /* RESERVED @Y17XAXF*/ 49354900 * 3 AVTCKAVT PTR(24), /* ADDRESS OF CHECKPOINT AVT 49355200 * @Y17XAXF*/ 49355600 * 2 AVTOCGET PTR(31), /* OPERATOR CONTROL 49356300 * WORKAREA */ 49420000 * 2 AVTEXA2S CHAR(6), /* EXECUTED INSTRUCTIONS TO */ 49490000 * 2 AVTEXS2A CHAR(6), /* SAVE USER'S REGISTERS */ 49560000 * 2 AVTPARM PTR(31), /* ADDRESS OF PARAMETERS */ 49630000 * 2 AVTBASE PTR(31), /* IEDQAVT - ADDRESS OF AVT */ 49700000 * 3 AVTPKF CHAR(1), /* PROTECTION KEY FROM TCB 49770000 * OF MCP */ 49840000 * 4 * BIT(1), /* RESERVED */ 49910000 * 4 * BIT(1), /* RESERVED */ 49980000 * 4 * BIT(1), /* RESERVED */ 50050000 * 4 * BIT(1), /* RESERVED */ 50120000 * 4 AVTFTCHF BIT(1), /* FETCH PROTECT ACTIVE 50190000 * SWITCH */ 50260000 * 4 * BIT(1), /* RESERVED */ 50330000 * 4 * BIT(1), /* RESERVED */ 50400000 * 4 * BIT(1), /* RESERVED */ 50470000 * 2 AVTPARM3 PTR(31), /* ADDITIONAL OPTIONAL PARM */ 50540000 * 2 AVTDISTR PTR(31), /* ADDR OF DISPATCHER TRACE */ 50610000 * 2 AVTRNMPT PTR(31), /* IEDQTNT - ADDRESS OF 50680000 * TERMNAME TABLE */ 50750000 * 2 AVTRDYA PTR(31), /* IEDQRDYA - USER EXIT 50820000 * ADDRESS IN READY */ 50890000 * 2 AVTBSCAN PTR(31), /* LINE END BSC MSG SCAN */ 50960000 * 2 AVTRARTN PTR(31), /* AVTDUMBR ADDR OF RTN TO 51030000 * UPDATE LINE TRACE TABLE. 51100000 * IF TRACE, OPEN LOADS THIS 51170000 * MODULE */ 51240000 * 2 AVTSBTA PTR(31), /* @ IEDQSBT ROUTINE @YM07020*/ 51310000 * /* AVTMVBFR IS NON-ZERO IF NON-EP MODE OR 51330000 * IF EP MODE, AND TOTE IS IN SYSTEM @Y17XAXF*/ 51350000 * 2 AVTMVBFR PTR(31), /* @ IEDMVBFR ROUTN @Y17XAXF*/ 51380000 * 2 AVTSPLPT PTR(31), /* START PARAMETER LIST 51450000 * POINTER, SET BY INTRO */ 51520000 * 2 AVTCIB PTR(8), /* CIB=INTEGER */ 51590000 * 2 AVTNCKPR PTR(8), /* CKREQS=INTEGER */ 51660000 * 2 AVTNOLBF FIXED(15), /* LNUNITS=INTEGER */ 51730000 * 2 AVTAS PTR(31), /* RELEASE */ 51800000 * 51870000 */* ADDRESSES OF TCBS OF ATTACHED TASKS */ 51940000 * 52010000 * 2 AVTCKTCB PTR(31), /* CHECKPOINT */ 52080000 * 2 AVTOCTCB PTR(31), /* OPERATOR CONTROL */ 52150000 * 2 AVTOLTCB PTR(31), /* ON LINE TEST */ 52220000 * 2 AVTCWTCB PTR(31), /* COMMON WRITE FE TASK */ 52290000 * 52360000 */* EVENT CONTROL BLOCKS */ 52430000 * 52500000 * 2 AVTCWECA FIXED(31), /* COMMON WRITE FE TASK ECB */ 52570000 * 2 AVTCKECA FIXED(31), /* CHECKPOINT */ 52640000 * 2 AVTOLECA FIXED(31), /* ON LINE TEST */ 52710000 * 2 AVTOPECA FIXED(31), /* OPERATOR CONTROL */ 52780000 * 2 AVTOSECB FIXED(31), /* EVENT CONTROL BLOCK 52850000 * USED BY DISPATCHER TO 52920000 * CAUSE TCAM TASK TO BE 52990000 * IN WAIT STATE */ 53060000 * 3 AVTECB1 BIT(8), /* @G36XRXG*/ 53070000 * 4 * BIT(1), /* @G36XRXG*/ 53080000 * 4 AVTCOMP BIT(1), /* ECB POSTED COMPL @G36XRXG*/ 53090000 * 4 * BIT(6), /* @G36XRXG*/ 53100000 * 2 AVTPCBPT PTR(31), /* FIRST PROCESS CONTROL 53130000 * BLOCK */ 53200000 * 2 AVTOPTPT PTR(31), /* ADDRESS OF OPTION TABLE */ 53270000 * 2 AVTKA02 PTR(31), /* IEDQKA02 I/O GENERATOR 53340000 * IN ACTIVATE */ 53410000 * 2 * FIXED(31), /* RESERVED S21903*/ 53480000 * 2 AVTCRSRF FIXED(31), /* CROSSRF=INTEGER */ 53550000 * 2 AVTCOMPT PTR(31), /* ADDR OF COMMUNICATIONS 53620000 * PARM */ 53690000 * 2 AVTUI PTR(31), /* IEDQUI USER INTERFACE */ 53760000 * 2 AVTE8 PTR(31), /* SEARCH RTN APP PRG S22025*/ 53830000 * 2 AVTHG02 PTR(31), /* IEDQHG02 REMOVE ELE FROM 53900000 * TIME DELAY Q */ 53970000 * 3 AVTOLTST PTR(8), /* OLTEST=INTEGER */ 54040000 * 2 AVTAL PTR(31), /* IEDQAL ADDRESS 54110000 * COMPUTATION S22025*/ 54180000 * 2 AVTGD PTR(31), /* IEDQGD - BUFFER 54250000 * ASSOCIATION */ 54320000 * 2 AVTA3 PTR(31), /* TRANSPARENCY CCW BUILDER */ 54390000 * 2 AVTAX PTR(31), /* IEDQAX - SCAN S22025*/ 54460000 * 2 AVTEA PTR(31), /* DISPATCHER */ 54530000 * 2 AVTDISP PTR(31), 54600000 * 54670000 */* SUBTASKS ACTIVATED BY THE DISPATCHER */ 54740000 * 54810000 * 3 AVTHA PTR(31), /* RECEIVE SCHEDULER */ 54880000 * 2 AVTHD PTR(31), /* SEND SCHEDULER */ 54950000 * 3 AVTSCOPT CHAR(1), /* S22026*/ 55020000 * 4 * BIT(2), /* RESERVED @ZA07083*/ 55090000 * 4 AVTAPDMP BIT(1), /* APPL DUMP REQUEST 55160000 * @ZA07083*/ 55190000 * 4 AVTCMBUF BIT(1), /* COMMON BUFFER 55230000 * TRANSMISSION S22027*/ 55300000 * 4 AVTCONC BIT(1), /* CONCENTRATOR MIXED S22026*/ 55370000 * 4 AVTCONCO BIT(1), /* CONCENTRATOR ONLY S22026*/ 55440000 * 4 AVTN2741 BIT(1), /* NO 2741 & NO TSO S22026*/ 55510000 * 4 AVTNDIAL BIT(1), /* NO DIAL S22026*/ 55580000 * 2 AVTEW PTR(31), /* GET SCHEDULER */ 55650000 * 2 AVTEC PTR(31), /* PUT SCHEDULER */ 55720000 * 2 AVTEZ PTR(31), /* GET FIFO */ 55790000 * 2 AVTBZ PTR(31), /* LOG SCHEDULER */ 55860000 * 2 AVTR1 PTR(31), /* DIAL SCHEDULER */ 55930000 * 2 AVTHB PTR(31), /* BUFFERED SCHEDULER */ 56000000 * 2 AVTE7 PTR(31), /* RETRIEVE SCHEDULER */ 56070000 * 2 AVTQ1 PTR(31), /* LOCAL SCHEDULER */ 56140000 * 2 AVTCSCH PTR(31), /* CONC SEND SCHED S22026*/ 56210000 * 2 AVTSEND PTR(31), /* 3705 RESOURCE 56280000 * SEND SCHEDULER @Y17XAXU*/ 56350000 * 2 AVTRCV PTR(31), /* 3705 RESOURCE 56420000 * RECV SCHEDULER @Y17XAXU*/ 56490000 * 2 AVTCMBSS PTR(31), /* COMMBUF SCHEDULER S22027*/ 56560000 * 2 * PTR(31), /* RESERVED S22024*/ 56630000 * 2 AVTSAVTP PTR(31), /* SECONDARY AVT ADDR S22024*/ 56700000 * 3 AVTSAVTF BIT(8), /* SAVT FLAGS X03039*/ 56770000 * 4 AVTVTMCP BIT(1), /* 3705 ENVIR @Y17XAXU*/ 56840000 * 4 AVTONSNA BIT(1), /* ONLY SNA ENVIR @Y17XAXU*/ 56910000 * 4 AVTSNA BIT(1), /* SNA ENVIR @Y17XAXU*/ 56980000 * 4 * BIT(5), /* RESERVED @Y17XAXU*/ 57050000 * 3 * CHAR(3), /* FILLER X03039*/ 57120000 * 2 AVTPLCBN FIXED(15), /* NUMBER OF PLCB'S S22024*/ 57190000 * 2 AVTABEND CHAR(6), /* ABEND 045, SUBCODE R15 */ 57260000 * 2 AVTDMECB FIXED(31), /* DUMMY LINE I/O ECB */ 57330000 * 2 AVTA3TL PTR(31), /* IEDQA3 - TRANSLATE LIST */ 57400000 * 2 AVTTONE PTR(31), /* ADDRESS OF WORLD TRADE 57470000 * TONE CHARS */ 57540000 * 2 AVTNX PTR(31), /* OPERATOR AWARENESS MESSAGE 57610000 * ROUTER */ 57680000 * 2 AVTIOT PTR(31), /* IGG019Q0 - I/O TRACE 57750000 * TABLE HANDLER */ 57820000 * 2 AVTHI PTR(31), /* IEDQHI - SYSTEM DELAY QCB 57890000 * ADDR */ 57960000 * 2 AVTHK PTR(31), /* IEDQHK STOPLINE QCB ADDR */ 58030000 * 2 AVTCKPEL CHAR(16) BDY(WORD), /* TIME DELQY REMOVAL ELEMENT 58100000 * FOR CHECKPOINT @Y17XAXF*/ 58106000 * 3 AVTCKRMV PTR(31), /* 1ST WORD OF REMOVAL ELEMENT 58112000 * @Y17XAXF*/ 58170000 * 4 AVTCKRKY BIT(8), /* KEY FOR REMOVAL ELEMENT 58171000 * TO CHECKPOINT @Y17XAXF*/ 58172000 * 4 AVTCKRMQ PTR(24), /* ADDR OF TIME DELAY QCB 58173000 * @Y17XAXF*/ 58174000 * 3 AVTCKRPR BIT(8), /* PRIORITY @Y17XAXF*/ 58175000 * 3 AVTCKRLK PTR(24), /* LINK @Y17XAXF*/ 58176000 * 3 * CHAR(8), /* LAST 2 WORDS OF ELEMENT 58310000 * @Y17XAXF*/ 58320000 * 2 AVTCKELE PTR(31), /* TIME DELAY OR REUS 58380000 * POSTS ELEMENT TO START 58450000 * CHECKPOINT */ 58520000 * 2 * PTR(31), 58590000 * 2 AVTSCBSZ PTR(8), /* SCB SIZE INCLUDING 58660000 * SAVEAREA FOR USER'S REGS */ 58730000 * 2 AVTCKQAD PTR(24), /* AVTCKPTB CKPT QCB ADDR */ 58800000 * 2 AVTCKELF CHAR(1), /* FLAG BITS */ 58870000 * 3 AVTNQBCK BIT(1), /* NO QBACK SCAN NEEDED 58940000 * @OS77945*/ 59010000 * 3 AVTCMCPN BIT(1), /* CHECKPOINT REQUESTED BY 59080000 * MCPCLOSE */ 59150000 * 3 * BIT(1), /* RESERVED */ 59220000 * 3 AVTCINCN BIT(1), /* CHECKPOINT REQUESTED BY 59290000 * INCIDENT OVERFLOW */ 59360000 * 3 AVTCCLCN BIT(1), /* CLOSEDOWN COMPLETION BIT */ 59430000 * 3 AVTCPIPN BIT(1), /* CHECKPOINT IN PROGRESS */ 59500000 * 3 AVTCRTLN BIT(1), /* CHECKPOINT REQUESTED */ 59570000 * 3 AVTWARMN BIT(1), /* WARM RESTART */ 59640000 * 2 AVTCPRCD PTR(8), /* CPRCDS=INTEGER */ 59710000 * 2 AVTCKELV FIXED(15), /* CPINTVL=TIME INTERVAL */ 59780000 * 2 AVTCKTIM FIXED(15), /* TIME OF DAY OF INTERRUPT */ 59850000 * 2 * PTR(8), /* INDEX TO QCB ADDRESS */ 59920000 * 2 AVTOPERL CHAR(1), /* OPEN ERROR LOCATOR */ 59990000 * 2 AVTOPXCL CHAR(2), /* OPEN ERROR MODULE ID */ 60060000 * 2 AVTOPERT PTR(8), /* TYPE OF OPEN ERROR */ 60130000 * 2 AVTCKBYT CHAR(1), /* CKPT TIME DELAY STATUS */ 60200000 * 3 * BIT(1), /* RESERVED */ 60270000 * 3 * BIT(1), /* RESERVED */ 60340000 * 3 * BIT(1), /* RESERVED */ 60410000 * 3 * BIT(1), /* RESERVED */ 60480000 * 3 * BIT(1), /* RESERVED */ 60550000 * 3 * BIT(1), /* RESERVED */ 60620000 * 3 AVTCKONQ BIT(1), /* ELEMENT ON TIME QUEUE */ 60690000 * 3 * BIT(1), /* RESERVED */ 60760000 * 2 AVTHG01 PTR(31), /* IEDQHG01 - TIME DELAY 60830000 * SUBROUTINE */ 60900000 * 3 AVTOPETR CHAR(1), /* OPEN TRANSLATE BYTE */ 60970000 * 2 AVTCKLNK PTR(31), /* LINK FIELD ON TIME QUEUE */ 61040000 * 3 AVTBSX PTR(8), /* BINARY SEARCH ADDR INDEX */ 61110000 * 2 AVTDELEM PTR(31), /* AVTREADY-8 DUMMY LAST 61180000 * ELEMENT */ 61250000 * 2 AVTDELAD PTR(31), /* AVTDELEM - ADDR OF DUMMY 61320000 * LAST ELEMENT */ 61390000 * 2 AVTCRELE CHAR(8) BDY(WORD), /* OPERATOR CONTROL CKPT 61392000 * REQUEST ELEMENT @Y17XAXF*/ 61394000 * 3 AVTCCELE PTR(31), 61396000 * 4 AVTCCKEY BIT(8), /* OP CONTROL KEY FOR CKPT 61530000 * @Y17XAXF*/ 61570000 * 4 AVTCCQCB PTR(24), /* ADDR OF CKPT QCB @Y17XAXF*/ 61610000 * 3 AVTCCPRI BIT(8), /* PRIORITY @Y17XAXF*/ 61630000 * 3 AVTCCLNK PTR(24), /* LINK @Y17XAXF*/ 61650000 * 2 AVTCLRHI FIXED(31), /* MASK FOR CLEARING X03039*/ 61740000 * /* TWO HIGH ORDER BYTESX03039*/ 61810000 * /* OF A REGISTER X03039*/ 61880000 * 3 * CHAR(2), /* FILLER X03039*/ 61950000 * 3 AVTHFF CHAR(2), /* HALF WORD OF 'FFFF' X03039*/ 62020000 * 2 AVTADBUF PTR(31), /* BUFFER ADDRESS SET BY 62090000 * MH CONTROL */ 62160000 * 3 AVTABEPL FIXED(31), /* ABEND PARM LIST @YM07738*/ 62190000 * 2 AVT2260L PTR(31), /* 2260 LOCAL APPENDAGE */ 62230000 * 2 AVTSYSER CHAR(1), /* SYSTEM ERROR FLAG BYTE */ 62300000 * 3 AVTCMINN BIT(1), /* NUMBER CORE QUEUE UNITS 62370000 * LESS THAN SPECIFIED BY 62440000 * MSMIN=PERCENT */ 62510000 * 3 AVTCMAXN BIT(1), /* NUMBER CORE QUEUE UNITS 62580000 * MORE THAN SPECIFIED BY 62650000 * MSMAX=PERCENT */ 62720000 * 3 * BIT(1), /* RESERVED */ 62790000 * 3 * BIT(1), /* RESERVED */ 62860000 * 3 * BIT(1), /* RESERVED */ 62930000 * 3 * BIT(1), /* RESERVED */ 63000000 * 3 * BIT(1), /* RESERVED */ 63070000 * 3 * BIT(1), /* RESERVED */ 63140000 * 2 AVTMSGS PTR(24) BDY(BYTE), /* IEDQMSGS LIST OF 63210000 * OPTIONAL VCONS */ 63280000 * 63350000 */* POINTERS TO QCBS */ 63420000 * 63490000 * 2 AVTCBQCB PTR(31), /* COMMBUF MASTER QCB S22027*/ 63560000 * 2 AVTSUPPT PTR(31), /* STARTUP MESSAGE */ 63630000 * 2 AVTTSOPT PTR(31), /* TIME SHARING INPUT */ 63700000 * 2 AVTOCQPT PTR(31), /* IEDQEU - OPEN/CLOSE 63770000 * APPLICATION PROGRAM */ 63840000 * 63910000 */* NON-OPTIONAL QCBS */ 63980000 * 64050000 * 2 AVTDELYB PTR(31), /* TIME DELAY QCB */ 64120000 * 2 * CHAR(12), 64190000 * 2 AVTREFTM FIXED(15), /* REFERENCE TIME - CURRENT 64260000 * TIME OF DAY PLUS OR 64330000 * MINUS SIX HOURS */ 64400000 * 2 AVTINOUT FIXED(15), /* DUMMY INEND/OUTEND 64470000 * PARAMETER LIST */ 64540000 * 2 AVTIMQPS PTR(31), /* PARM FOR SVC 102 - POST 64610000 * TIME QCB TO ITSELF AT 64680000 * TIMER INTERRUPT */ 64750000 * 2 * PTR(31), 64820000 * 2 AVTTIMQ PTR(31), /* TIME DELAY QUEUE */ 64890000 * 2 AVTBFREB PTR(31), /* AVAILABLE BUFFER QUEUE */ 64960000 * 2 AVTBFRFG BIT(8), /* BUFFER POOL FLAG @OY19124*/ 64970082 * 3 AVTBFRTN BIT(1), /* RETURN BOTTOM @OY19124*/ 64980082 * 2 AVTSELCH PTR(24), /* BUFFER POOL BOTTOM@OY19124*/ 64990082 * 2 * CHAR(4), /*@OY19124*/ 65030082 * 2 AVTBFRTB PTR(31), /* BUFFER RETURN QUEUE */ 65100000 * 2 * CHAR(8), 65170000 * 2 AVTCKPQB CHAR(12) BDY(WORD), /* CKECKPOINT QCB @Y17XAXF*/ 65240000 * 3 AVTCKPTB PTR(31), /* QUEUE OF ELEMENTS FOR CKPT 65240100 * @Y17XAXF*/ 65240200 * 4 AVTCKPVT BIT(8), /* VTO FOR ATTACHED TASK 65240300 * @Y17XAXF*/ 65240400 * 4 AVTCKPCH PTR(24), /* CHAIN OF ELEMENTS 65240500 * @Y17XAXF*/ 65240600 * 3 AVTCKPEC PTR(31), /* EVENT CONTROL BLOCK 65240700 * @Y17XAXF*/ 65240800 * 4 AVTCKPCC BIT(8), /* COMPLETION CODE BYTE 65240900 * @Y17XAXF*/ 65241000 * 5 AVTCKPWA BIT(1), /* WAITING FOR COMPLETION OF 65241100 * THE EVENT @Y17XAXF*/ 65241200 * 5 AVTCKPPO BIT(1), /* EVENT HAS COMPLETED 65241300 * @Y17XAXF*/ 65241400 * 5 * BIT(6), /* RESERVED @Y17XAXF*/ 65241500 * 4 * CHAR(3), /* RESERVED @Y17XAXF*/ 65241600 * 3 AVTCKPTS CHAR(1), /* TEST AND SET FOR CKPT 65241700 * @Y17XAXF*/ 65241800 * 3 * PTR(24), /* STCB ADDRESS @Y17XAXF*/ 65241900 * 2 AVTOPCQB CHAR(12) BDY(WORD), /* OPERATOR CONTROL QCB 65380000 * @Y17XAXF*/ 65380100 * 3 AVTOPCOB PTR(31), /* QUEUE OF ELEMENTS FOR OPCTL 65380200 * @Y17XAXF*/ 65380300 * 4 AVTOPCVT BIT(8), /* VTO FOR ATTACHED TASK 65380400 * @Y17XAXF*/ 65380500 * 4 AVTOPCCH PTR(24), /* CHAIN OF ELEMENTS 65380600 * @Y17XAXF*/ 65380700 * 3 AVTOPCEC PTR(31), /* EVENT CONTROL BLOCK 65380800 * @Y17XAXF*/ 65380900 * 4 AVTOPCCC BIT(8), /* COMPLETION CODE BYTE 65381000 * @Y17XAXF*/ 65381100 * 5 AVTOPCWA BIT(1), /* WAITING FOR COMPLETION OF 65381200 * THE EVENT @Y17XAXF*/ 65381300 * 5 AVTOPCPO BIT(1), /* EVENT HAS COMPLETED 65381400 * @Y17XAXF*/ 65381500 * 5 * BIT(6), /* RESERVED @Y17XAXF*/ 65381600 * 4 * PTR(24), /* RESERVED @Y17XAXF*/ 65381700 * 3 * PTR(31), /* STCB ADDRESS @Y17XAXF*/ 65381800 * 2 AVTOLTQB PTR(31), /* ON LINE TEST QUEUE */ 65520000 * 3 AVTOLTVT FIXED(8), /* VTO FOR ATTACHED TASK 65530000 * @Y17XAXF*/ 65540000 * 3 AVTOLTCH PTR(24), /*CHAIN OF ELEMENTS @Y17XAXF*/ 65550000 * 2 AVTOLTEB FIXED(31), /* QCB @Y17XAXF*/ 65560000 * 2 * PTR(31), /* STCB ADDRESS @Y17XAXF*/ 65590000 * 2 AVTACTIB PTR(31), /* ACTIVATE QUEUE */ 65660000 * 2 * CHAR(8), 65730000 * 2 AVTCLOSB PTR(31), /* CLOSEDOWN COMPLETION Q */ 65800000 * 2 * CHAR(8), 65870000 * 2 AVTCPRMB PTR(31), /* REMOVES ELEMENT FROM TIME 65940000 * DELAY */ 66010000 * 2 * CHAR(8), 66080000 * 2 AVTDSIOB PTR(31), /* DISK I/O QUEUE */ 66150000 * 2 * CHAR(8), 66220000 * 2 AVTCPBCB PTR(31), /* CPB CLEANUP QUEUE */ 66290000 * 2 * CHAR(8), 66360000 * 2 AVTCOREC PTR(31), /* BUFFER POOL FOR CLOSE */ 66430000 * 2 AVTCADDR FIXED(31), /* CORE QUEUE COUNT */ 66500000 * 2 AVTFZERO FIXED(31), /* FULLWORD OF ZEROES */ 66570000 * 66640000 */* FE COMMON WRITE INTERFACE AREA */ 66710000 * 66780000 * 2 AVTCAREA PTR(31), /* IEDQFE PATCH MODULE */ 66850000 * 2 AVTCWPM1 PTR(31), /* FIRST PARAMETER POINTER */ 66920000 * 2 AVTCWEC1 FIXED(31), /* FIRST ECB */ 66990000 * 2 AVTCWFL1 CHAR(1), /* FIRST FLAG BYTE */ 67060000 * 67130000 */* AVTCWFL1 BIT DEFINITIONS */ 67200000 * 67270000 * 3 AVTCOMWN BIT(1), /* COMWRTE=YES */ 67340000 * 3 * BIT(1), /* RESERVED */ 67410000 * 3 * BIT(1), /* RESERVED */ 67480000 * 3 * BIT(1), /* RESERVED */ 67550000 * 3 * BIT(1), /* RESERVED */ 67620000 * 3 * BIT(1), /* RESERVED */ 67690000 * 3 * BIT(1), /* RESERVED */ 67760000 * 3 * BIT(1), /* RESERVED */ 67830000 * 2 AVTCWFL2 CHAR(1), /* ADDITIONAL FLAG BYTES */ 67900000 * 67970000 */* AVTCWFL2 BIT DEFINITIONS */ 68040000 * 68110000 * 3 AVTCWACT BIT(1), /* COMMON WRITE IS ACTIVE */ 68180000 * 3 * BIT(1), /* RESERVED */ 68250000 * 3 * BIT(1), /* RESERVED */ 68320000 * 3 * BIT(1), /* RESERVED */ 68390000 * 3 * BIT(1), /* RESERVED */ 68460000 * 3 * BIT(1), /* RESERVED */ 68530000 * 3 AVTCWRAP BIT(1), /* '0' - WRAPPING OUTPUT 68600000 * ALLOWED (REUSE SAME 68670000 * VOLUME) 68740000 * '1' - WRAP NOT ALLOWED 68810000 * '1' 68880000 * (INVOKE VOLUME SWITCH) */ 68950000 * 3 AVTCWCLD BIT(1), /* COMWRITE CLOSEDOWN OR 69020000 * TCAM CLOSEDOWN */ 69090000 * 2 AVTCWTS1 CHAR(1), /* COMWRTE ECB1 AVAIL 69091000 * @Y17XAXU*/ 69092000 * 2 AVTCWTS2 CHAR(1), /* COMWRTE ECB2 AVAIL 69093000 * @Y17XAXU*/ 69094000 * 2 AVTCWPM2 PTR(31), /* SECOND PARAMETER POINTER */ 69300000 * 2 AVTCWEC2 FIXED(31), /* SECOND ECB */ 69370000 * 2 AVTAFE10 PTR(31), /* IEDQFE10 ENTRY POINT */ 69440000 * 2 AVTAFE20 PTR(31), /* IEDQFE20 ENTRY POINT */ 69510000 * 2 AVTAFE30 PTR(31), /* IEDQFE30 ENTRY POINT */ 69580000 * 2 AVTSUBT CHAR(1), /* SUBT OPTIONS FLAG @Y17XAXU*/ 69590000 * 3 AVTSUBON BIT(1), /* SUBTASK TRACE ON @Y17XAXU*/ 69600000 * 3 AVTSUBPT BIT(1), /* SUBTASK POST TR ON 69610000 * @Y17XAXU*/ 69620000 * 3 * BIT(6), /* UNUSED @Y17XAXU*/ 69630000 * 2 AVTIOTR CHAR(1), /* IOTR OPTIONS FLAG @Y17XAXU*/ 69640000 * 3 AVTIOTRE BIT(1), /* I/O TRACE ON @Y17XAXU*/ 69650000 * 3 AVTIOTRH BIT(1), /* I/O POST TRACE ON @Y17XAXU*/ 69660000 * 3 * BIT(6), /* UNUSED @Y17XAXU*/ 69670000 * 2 * CHAR(2), /* RESERVED @Y17XAXU*/ 69680000 * 2 AVTDTRAP PTR(31), /* SERVICE AID ENTRY @Y17XAXU*/ 69690000 * 2 AVTCWINT CHAR(52), /* SERVICE COMMUNI- @Y17XAXU*/ 69700000 * /* CATION AREA SA64772*/ 69720000 * 2 AVTCWTOT CHAR(4), /* TOTE COMMUNICA- SA64772*/ 69790000 * /* TION AREA SA64772*/ 69860000 * 69930000 */* GETMAIN PARAMETER LIST - GETMAIN EC,MF=L */ 70000000 * 70070000 * 2 AVTGETMN PTR(31), 70140000 * 2 AVTGETMD PTR(31), 70210000 * 2 * CHAR(1), 70280000 * 2 AVTGETMS PTR(8), 70350000 * 2 AVTHA2 FIXED(15), /* 2 - CONSTANT */ 70420000 * 2 AVTHA3 FIXED(15), /* 3 - CONSTANT */ 70490000 * 2 AVTHA4 FIXED(15), /* 4 - CONSTANT */ 70560000 * 2 AVTHA7 FIXED(15), /* 7 - CONSTANT */ 70630000 * 2 AVTHA16 FIXED(15), /* 16 - CONSTANT */ 70700000 * 2 AVTKEYLE FIXED(15), /* KEYLEN ON MSG QUEUES */ 70770000 * 2 AVTLNCNT FIXED(15), /* NUMBER OF LINES OPENED */ 70840000 * 2 AVTOPCNT FIXED(15), /* NUMBER OF LINES IN USE 70910000 * BY OPERATOR CONTROL */ 70980000 * 2 AVTOPCON FIXED(15), /* TERMNAME TABLE OFFSET TO 71050000 * PRIMARY OPERATOR CONTROL 71120000 * CONSOLE */ 71190000 * 2 AVTAVFCT FIXED(15), /* NUMBER OF BUFFERS IN POOL*/ 71260000 * 2 AVTSMCNT FIXED(15), /* NUMBER OF LINES SERVICED 71330000 * BY STARTUP MESSAGE SUBTSK*/ 71400000 * 2 AVTINTLV FIXED(15), /* NUMBER OF SECONDS OF 71470000 * SYSTEM DELAY */ 71540000 * 2 AVTDLQX FIXED(15), /* TERMNAME TABLE OFFSET OF 71610000 * DEAD LETTER QUEUE */ 71680000 * 2 AVTDUMBR FIXED(15), /* BR 11 - DUMMY LINE TRACE 71750000 * TABLE UPDATE */ 71820000 * 2 AVTBIT1 CHAR(1), /* FLAG BITS */ 71890000 * 71960000 */* AVTBIT1 BIT DEFINITIONS */ 72030000 * 72100000 * 3 AVTAPLKN BIT(1), /* PREVENT DISK END 72170000 * APPENDAGE FROM ADDING CPB 72240000 * TO DISABLED DISK END 72310000 * QUEUE FOR CPB CLEANUP */ 72380000 * 3 AVTTSON BIT(1), /* ENVIRON=TSO (OR MIXED) */ 72450000 * 3 AVTAQTAN BIT(1), /* ENVIRON=TCAM (OR MIXED) */ 72520000 * 3 AVTDLAYN BIT(1), /* SYSTEM DELAY IN EFFECT */ 72590000 * 3 AVTREADN BIT(1), /* READY MACRO EXECUTED */ 72660000 * 3 AVTCLOSN BIT(1), /* CLOSEDOWN REQUESTED */ 72730000 * 3 AVTQUCKN BIT(1), /* CLOSEDOWN TYPE 72800000 * '0' - FLUSH 72870000 * '1' - QUICK */ 72940000 * 3 AVTDISKN BIT(1), /* DISK=YES */ 73010000 * 2 AVTBIT2 CHAR(1), /* FLAG BITS */ 73080000 * 73150000 */* AVTBIT2 BIT DEFINITIONS */ 73220000 * 73290000 * 3 AVTEXTSC BIT(1), /* EXTENDED RESTART SA51078*/ 73360000 * 3 AVTREUSN BIT(1), /* REUSABILITY IS RUNNING */ 73430000 * 3 AVTCOPYN BIT(1), /* COPY REQUESTS CONTROL */ 73500000 * 3 AVTTOPOL BIT(1), /* TOPMSG=NO */ 73570000 * 3 AVTSTRTN BIT(1), /* RESTART HAS BEGUN */ 73640000 * 3 AVTOPEIN BIT(1), /* INITIAL LOAD DONE 73710000 * INDICATOR */ 73780000 */* X'02' - LINETYP=STSP */ 73850000 */* X'01' - LINETYP=BISC */ 73920000 */* X'03' - LINETYP=MINI */ 73990000 */* X'00' - LINETYP=BOTH */ 74060000 * 3 * BIT(1), /* RESERVED */ 74130000 * 3 * BIT(1), /* RESERVED */ 74200000 * 2 AVTBIT3 CHAR(1), /* FLAG BITS */ 74270000 * 74340000 */* AVTBIT3 BIT DEFINITIONS */ 74410000 * 74480000 * 3 AVTRECVN BIT(1), /* CORE QUEUE FULL */ 74550000 * 3 AVTRFULN BIT(1), /* REUS DISK ZONE FULL */ 74620000 * 3 AVTTSAB BIT(1), /* TSO HAS ABENDED */ 74690000 * 3 AVTOLTBN BIT(1), /* MAX LOAD OF OLT REACHED */ 74760000 * 3 AVTSTAYN BIT(1), /* S=Y - NO CONTINUATION */ 74830000 * 3 AVTSTAIN BIT(1), /* S=I - INVITATION LISTS */ 74900000 * 3 AVTSTACN BIT(1), /* S=C - COLDSTART */ 74970000 * 3 AVTSTAN BIT(1), /* S=C OR S=W SPECIFIED */ 75040000 * 2 AVTCKRST PTR(8), /* RESTART=INTEGER */ 75110000 * 2 AVTDSKCT FIXED(15), /* NUMBER OF BUFFERS ON CPBS*/ 75180000 * 2 AVTOPTN PTR(31), /* OPTION SEARCH RTN @Y17XAXU*/ 75250000 * 2 AVTSTEAL PTR(31), /* BUFFER STEAL RTN @Y17XAXU*/ 75320000 * 2 AVTDDFT PTR(31), /* DEVICE DEPENDENT @Y17XAXU*/ 75390000 * /* FLD LOOKUP RTN @Y17XAXU*/ 75460000 * 2 AVTOPMSK PTR(31), /* ADDR OF OPERATOR CONTROL 75530000 * MASK TABLE @Y17XAXU*/ 75600000 * 2 AVTDCTLN FIXED(15), /* LENGTH OF DCT MASK FIELD IN 75670000 * BYTES @Y17XAXU*/ 75740000 * 2 AVTOPCIN FIXED(16), /* TTCIN OF PRIMARY @Y17XAXU*/ 75810000 * /* TERMINAL @Y17XAXU*/ 75880000 */* END OF BASIC AVT WHEN ENVIRON=TSO */ 75950000 * 76020000 * 2 AVTHM02 PTR(31), /* IEDQHM02 - DESTINATION 76090000 * ASSIGNMENT */ 76160000 * 2 AVTCMIN PTR(31), /* MSMIN=INTEGER */ 76230000 * 2 AVTCMAX PTR(31), /* MSMAX=INTEGER */ 76300000 * 2 AVTTOTNC FIXED(31), /* NUMBER OF RECORDS IN 76370000 * ENTIRE DATA SET 76440000 * (MSUNITS=INTEGER) */ 76510000 * 2 AVTNCPBQ PTR(31), /* QUEUE OF BUFFERS AND 76580000 * ERBS WAITING TO BE 76650000 * PROCESSED */ 76720000 * 2 * PTR(31), 76790000 * 76860000 */* END OF CORE QUEUE AVT WHEN DISK=NO */ 76930000 * 77000000 * 2 AVTFL PTR(31), /* DISK EXCP DRIVER */ 77070000 * 2 AVTIA PTR(31), /* REUSABILITY */ 77140000 * 2 AVTCOPY PTR(31), /* COPY SUBTASK QCB POINTER */ 77210000 * 2 AVTDKAPQ PTR(31), /* QUEUE OF CPBS TO BE 77280000 * PROCESSED BY CPB 77350000 * CLEANUP (DISABLED) */ 77420000 * 2 * PTR(31), 77490000 * 2 AVTDKENQ PTR(31), /* SAME AS ABOVE EXCEPT 77560000 * ENABLED */ 77630000 * 2 * PTR(31), 77700000 * 2 AVTNOBFQ PTR(31), /* QUEUE OF CPBS WITHOUT 77770000 * BUFFERS - USED BY CPB 77840000 * CLEANUP */ 77910000 * 2 * PTR(31), 77980000 * 2 AVTBIT4 CHAR(1), /* FLAG BITS SA51078*/ 78050000 * 78120000 */* AVTBIT4 BIT DEFINITIONS SA51078*/ 78190000 * 78260000 * 3 AVTRUFTN BIT(1), /* REUS ACTIVE AT CHECKPT 78330000 * SA51078*/ 78400000 * 3 * BIT(1), /* RESERVED */ 78470000 * 3 * BIT(1), /* RESERVED */ 78540000 * 3 * BIT(1), /* RESERVED */ 78610000 * 3 * BIT(1), /* RESERVED */ 78680000 * 3 * BIT(1), /* RESERVED */ 78750000 * 3 * BIT(1), /* RESERVED */ 78820000 * 3 * BIT(1), /* RESERVED */ 78890000 * 78960000 * 2 * PTR(24), /* RESERVED SA51078*/ 79030000 * 2 * PTR(31), 79100000 * 2 AVTINCPQ PTR(31), /* QUEUE OF CPBS REQUESTING 79170000 * I/O BY EXCP DRIVER */ 79240000 * 2 * PTR(31), 79310000 * 2 AVTFCPB PTR(31), /* QUEUE OF INACTIVE CPBS - 79380000 * CPB FREEPOOL */ 79450000 * 2 AVTCPBPT PTR(31), /* ADDRESS OF CPB FREEPOOL 79520000 * TO BE FREEMAINED BY 79590000 * DISK CLOSE */ 79660000 * 2 AVTIOBR PTR(31), /* ADDRESS OF LIST OF IOBS - 79730000 * ONE FOR EACH EXTENT OF THE 79800000 * REUSABLE DISK QUEUE */ 79870000 * 2 AVTIOBN PTR(31), /* SAME AS ABOVE EXCEPT FOR 79940000 * NON-REUSABLE DISK QUEUE */ 80010000 * 2 AVTLODPT FIXED(31), /* RADDR WHEN REUS ACTIVATED*/ 80080000 * 80150000 */* REUSABLE DISK DEFINITION */ 80220000 * 80290000 * 2 AVTADEBR PTR(31), /* ADDRESS OF DEB */ 80360000 * 2 AVTNOVOR FIXED(31), /* NUMBER OF EXTENTS */ 80430000 * 2 AVTRCTRR FIXED(31), /* NUMBER OF RECORDS/TRACK */ 80500000 * 2 AVTTRCYR FIXED(31), /* NUMBER OF TRACKS/CYLINDER*/ 80570000 * 2 AVTTOTNR FIXED(31), /* NUMBER OF RECORDS IN 80640000 * ENTIRE DATA SET */ 80710000 * 2 AVTVOLRR FIXED(31), /* PRODUCT OF NUMBER OF 80780000 * EXTENTS AND NUMBER OF 80850000 * RECORDS/TRACK */ 80920000 * 80990000 */* NON-REUSABLE DISK DEFINITION */ 81060000 * 81130000 * 2 AVTADEBN PTR(31), /* ADDRESS OF DEB */ 81200000 * 2 AVTNOVON FIXED(31), /* NUMBER OF EXTENTS */ 81270000 * 2 AVTRCTRN FIXED(31), /* NUMBER OF RECORDS/TRACK */ 81340000 * 2 AVTTRCYN FIXED(31), /* NUMBER OF TRACKS/CYLINDER*/ 81410000 * 2 AVTTOTNN FIXED(31), /* NUMBER OF RECORDS IN 81480000 * ENTIRE DATA SET */ 81550000 * 2 AVTVOLRN FIXED(31), /* PRODUCT OF NUMBER OF 81620000 * EXTENTS AND NUMBER OF 81690000 * RECORDS/TRACK */ 81760000 * 2 AVTHRESN FIXED(31), /* ABSOLUTE RECORD NUMBER 81830000 * WHICH IS THE THRESHOLD 81900000 * THAT CAUSES CLOSEDOWN 81970000 * DUE TO FILLING OF THE 82040000 * NON-REUSABLE DISK QUEUE */ 82110000 * 2 AVTNADDR FIXED(31), /* NON-REUSABLE DISK QUEUE */ 82180000 * 2 AVTRADDR FIXED(31), /* REUSABLE DISK QUEUE */ 82250000 * 2 * PTR(31), /* ADDR OF OP CONTROL QCB */ 82320000 * 3 AVTHRESE PTR(31), /* NON-REUSABLE THRESHOLD 82390000 * CLOSEDOWN ELEMENT - 82460000 * THREE WORDS */ 82530000 * 2 * PTR(8), /* PRIORITY (PRIOPCTL + 4) */ 82600000 * 2 * PTR(24) BDY(BYTE), /* LINK FIELD */ 82670000 * 2 * CHAR(1), /* X'11' - FLUSH CLOSE 82740000 * REQUESTED */ 82810000 * 2 * PTR(8), /* X'0C' - LENGTH OF ELEMENT*/ 82880000 * 2 * CHAR(1), /* UNUSED - REL LINE NO */ 82950000 * 2 AVTHRESS CHAR(1), /* COMPLETION CODE - STATUS 83020000 * X'FF' - UNUSED ELEMENT 83090000 * X'F0' - ELEMENT POSTED 83160000 * X'00' OR X'04' - CLOSED */ 83230000 * 2 AVTCPBNO FIXED(15); /* CPB=INTEGER */ 83300000 */* @Y17XAXF*/ 83300700 */* ABEND PARAMETER LIST @Y17XAXF*/ 83301400 */* @Y17XAXF*/ 83302100 *DCL AVTHDRSZ BIT(8) CONSTANT('1E'X); /* HDR PREFIX SIZE @Y17XAXU*/ 83370000 *DCL AVTTXTSZ BIT(8) CONSTANT('17'X); /* TXT PREFIX SIZE @Y17XAXU*/ 83440000 *DCL AVTCVTPT BIT(8) CONSTANT('F0'X); /* OFFSET INTO CVT OF ADDRESS 83510000 * OF TCX @Y17XAXU*/ 83580000 *DCL AVTUMALN BIT(8) CONSTANT('0C'X); /* LENGTH OF CCW-TIC (UNIT 83650000 * MANAGEMENT AREA @Y17XAXU*/ 83720000 *DCL AVTDATLN BIT(8) CONSTANT('06'X); /* NO. OF BYTES IN DATA FIELD 83790000 * OF MESSAGE Q RECD @Y17XAXU*/ 83860000 *DCL AVTMINKY BIT(8) CONSTANT('24'X); /* MINIMUM KEY LEN @Y17XAXU*/ 83930000 *DCL AVTMIN05 BIT(8) CONSTANT('2C'X); /* MIN KEYLENGTH FOR 83950000 * 3705 ENVIRONMENT @YM06968*/ 83970000 *DCL AVTSVSIZ BIT(8) CONSTANT('48'X); /* SAVE AREA SIZE @Y17XAXU*/ 84000000 *DCL AVTECD4 BIT(8) CONSTANT('04'X); /* RETURN CODE OF 4 @Y17XAXU*/ 84070000 *DCL AVTECD8 BIT(8) CONSTANT('08'X); /* RETURN CODE OF 8 @Y17XAXU*/ 84140000 *DCL AVTECD12 BIT(8) CONSTANT('0C'X); /* RETURN CODE OF 12 @Y17XAXU*/ 84210000 *DCL AVTECD16 BIT(8) CONSTANT('10'X); /* RETURN CODE OF 16 @Y17XAXU*/ 84280000 *DCL AVTECD20 BIT(8) CONSTANT('14'X); /* RETURN CODE OF 20 @Y17XAXU*/ 84350000 *DCL AVTE80 BIT(8) CONSTANT('80'X); /* SIGN BIT MASK @Y17XAXU*/ 84420000 *DCL AVTMODBT BIT(8) CONSTANT('80'X); /* 2ND-23RD BIT MASK @Y17XAXU*/ 84490000 *DCL AVTEZERO BIT(8) CONSTANT('00'X); /* EQUATED ZERO @Y17XAXU*/ 84560000 *DCL AVTEBLNK BIT(8) CONSTANT('40'X); /* BLANK CHAR @Y17XAXU*/ 84630000 *DCL AVTEPER BIT(8) CONSTANT('4B'X); /* PERIOD @Y17XAXU*/ 84700000 *DCL AVTEFF BIT(8) CONSTANT('FF'X); /* ALL ONES MASK @Y17XAXU*/ 84770000 *DCL AVTCVTMP BIT(8) CONSTANT('C0'X); /* OFFSET INTO CVT OF ADDRESS 84840000 * OF MULTIPROC CVT @Y17XAXU*/ 84910000 *DCL AVTMPTRR BIT(8) CONSTANT('0C'X); /* OFFSET INTO MP CVT OF 84980000 * TASK REMOVAL RTN @Y17XAXU*/ 85050000 * 85120000 *%IF SAVT= 'NO' %THEN 85190000 * %GOTO SAVTEND; 85260000 *DECLARE 85330000 * 1 IEDNSVTD BASED(AVTSAVTP) , 85400000 * 2 SAVTDIAG PTR(31), /* VIRT. DIAGNOSE RTN Y05331*/ 85470000 * 3 SAVTDIAF CHAR(1), /* FLAG BYTE Y05331*/ 85540000 * 4 SAVTVIRT BIT(1), /*VIRTUAL ENVIRONMENT X03039*/ 85610000 * 4 SAVTPRMT BIT(1), /* PROMPTING REQUESTED X03039*/ 85680000 * 2 SAVTPOOL PTR(31), /*PLCB POOL ADDR X03039*/ 85750000 * 2 SAVTPLCB PTR(31), /*NEXT FREE PLCB X03039*/ 85820000 * 2 SAVTPUSE FIXED(15), /* PLCB IN-USE CT @Y17XAXU*/ 85890000 * 2 SAVTPH20 FIXED(15), /* PLCB HI WATER CT @Y17XAXU*/ 85960000 * 2 SAVTPREQ PTR(31), /* ADDRESS OF PLCB @Y17XAXU*/ 86030000 * /* ALLOCATION RTN @Y17XAXU*/ 86100000 * 2 SAVTPRTQ PTR(31), /* ANCHOR FOR PLCB @Y17XAXU*/ 86170000 * /* REQ WAIT CHAIN @Y17XAXU*/ 86240000 * 2 SAVTPWT FIXED(15), /* PLCB WAIT COUNT @Y17XAXU*/ 86310000 * 2 SAVTWH20 FIXED(15), /* PLCB HI-WATER @Y17XAXU*/ 86380000 * /* WAIT COUNT @Y17XAXU*/ 86450000 * 2 * PTR(31), /* ADDRESS OF STCB @Y17XAXU*/ 86520000 * /* FOR PLCB DEALLOC @Y17XAXU*/ 86590000 * 2 SAVTPRTN PTR(31), /* PLCB DEALLOCATION @Y17XAXU*/ 86660000 * /* RTN ADDRESS @Y17XAXU*/ 86730000 * 2 SAVTSIB PTR(31), /* ADDR OF NXT FREE @Y17XAXU*/ 86800000 * /* SIB @Y17XAXU*/ 86870000 * 2 SAVTSUSE FIXED(15), /* SIB IN-USE CT @Y17XAXU*/ 86940000 * 2 SAVTFAIL FIXED(15), /* COUNT OF SIB REQ @Y17XAXU*/ 87010000 * /* THAT FAILED @Y17XAXU*/ 87080000 * 2 SAVTSREQ PTR(31), /* ADDR OF SIB @Y17XAXU*/ 87150000 * /* ALLOCATION RTN @Y17XAXU*/ 87220000 * 2 SAVTSRTN PTR(31), /* ADDRESS OF SIB @Y17XAXU*/ 87290000 * /* DEALLOCATION RTN @Y17XAXU*/ 87360000 * 2 SAVTFLDH PTR(31), /* 3705 FIRST LEVEL @Y17XAXU*/ 87430000 * /* DATA HANDLER @Y17XAXU*/ 87500000 * 2 SAVTCNIR PTR(31), /* CONTROL NIR GENR @Y17XAXU*/ 87570000 * /* QCB ADDRESS @Y17XAXU*/ 87640000 * 2 SAVTDNIR PTR(31), /* DATA NIR GENR QCB @Y17XAXU*/ 87710000 * /* ADDRESS @Y17XAXU*/ 87780000 * 2 SAVTRNTA PTR(31), /* 3705 TRACE RTN @Y17XAXU*/ 87850000 * /* ADDRESS @Y17XAXU*/ 87920000 * 2 SAVTPIUT PTR(31), /* ADDR OF PIU TRACE @Y17XAXU*/ 87990000 * /* TABLE @Y17XAXU*/ 88060000 * 2 SAVTCLUP PTR(31), /* 3705 CLEANUP RTN @Y17XAXU*/ 88130000 * /* ADDRESS @Y17XAXU*/ 88200000 * 2 SAVTNAT PTR(31), /* NAT ADDRESS @Y17XAXU*/ 88270000 * 2 SAVTSAT PTR(31), /* SAT ADDRESS @Y17XAXU*/ 88340000 * 2 * PTR(31), /* RESERVED @Y17XAXF*/ 88410000 * 2 SAVTLUSQ CHAR(12) BDY(WORD), /* LUS QCB @Y17XAXU*/ 88550000 * 3 SAVTLUSB PTR(31), /* BUFFER WAIT CHAIN @Y17XAXU*/ 88620000 * 3 SAVTLUSP PTR(31), /* PLCB WAIT CHAIN @Y17XAXU*/ 88690000 * 3 * PTR(31), /* STCB POINTER @Y17XAXU*/ 88760000 * 2 SAVTLUSR PTR(31), /* OP-SERV-REQ CHAIN @Y17XAXU*/ 88830000 * 2 SAVTSLCB PTR(31), /* SSCP LCB @Y17XAXU*/ 88900000 * 2 SAVTSCPQ PTR(31), /* SSCP OUTBND QCB @Y17XAXU*/ 88970000 * 2 SAVTSSSR PTR(31), /* SERIALIZER CHAIN @Y17XAXU*/ 89040000 * 2 * PTR(31), /* STCB POINTER @Y17XAXU*/ 89110000 * 2 SAVTXFMO PTR(31), /* OUTBND XFORM QCB @YM03681*/ 89110100 * /* ADDRESS @YM03681*/ 89110200 * 2 * (2) PTR(31), /* RESERVED @YM03681*/ 89110300 * 2 SAVTXFMI PTR(31), /* INBND XFORM @YM03681*/ 89110400 * /* ENTRY ADDRESS @YM03681*/ 89110500 * 2 * (2) PTR(31), /* RESERVED @YM03681*/ 89110600 * 2 SAVTIPCQ PTR(31), /* PC INBOUND QCB @Y17XAXU*/ 89600000 * /* ADDRESS @YM03681*/ 89602000 * 2 * (3) PTR(31), /* RESERVED @Y17XAXF*/ 89604000 * 2 SAVTMVBF PTR(31), /* MOVE BFR DATA RTN @Y17XAXU*/ 89880000 * 2 SAVTXTRQ PTR(31), /* CROSS TASK REQ HD @Y17XAXU*/ 89950000 * 2 SAVTSCLU PTR(31), /* SC ENTRY ADDRESS @Y17XAXU*/ 90020000 * 2 SAVTSSRQ PTR(31), /* SSCP REQ HDLR ADR @Y17XAXU*/ 90090000 * 2 SAVTSSRP PTR(31), /* SSCP RES HDLR ADR @Y17XAXU*/ 90160000 * 2 SAVTCSCI PTR(31), /* FID1 COM SC INBND @Y17XAXU*/ 90230000 * 2 SAVTSAI PTR(31), /* FID0 SA INBOUND @Y17XAXU*/ 90300000 * 2 SAVTSAC PTR(31), /* COMMAND PROCESSOR @Y17XAXU*/ 90370000 * 2 SAVTSARI PTR(31), /* COMMAND PROCESSOR @Y17XAXU*/ 90440000 * 2 SAVTSAO PTR(31), /* COMMAND ID PROC @Y17XAXU*/ 90510000 * 2 SAVTDFCO PTR(31), /* DFC OUTBOUND @Y17XAXU*/ 90580000 * 2 SAVTRQIN PTR(31), /* INBOUND REQ PROC @Y17XAXU*/ 90650000 * 2 SAVTQRS PTR(31), /* RESPONSE GENERATOR 90720000 * ADDRESS @Y17XAXU*/ 90790000 * 2 SAVTSSMH PTR(31), /* SSCP MH ENTRY ADR @Y17XAXU*/ 90860000 * 2 SAVTMHTB PTR(31), /* MH TABLE ADDRESS @Y17XAXU*/ 90930000 * 2 SAVTNATL FIXED(15), /* INDEX OF LAST NAT 91000000 * ENTRY @Y17XAXU*/ 91070000 * 2 SAVTNADL FIXED(15), /* CONSTANT TO CALCULATE 91140000 * NAT ENTRY FROM MH 91210000 * INDEX @Y17XAXU*/ 91280000 * 2 SAVTSPLN PTR(31), /* 3705 STOPLINE RTN @Y17XAXU*/ 91290000 * /* ADDRESS @Y17XAXU*/ 91420000 * 2 SAVTMAND PTR(31), /* ADDRESS OF MANUAL @Y17XAXU*/ 91490000 * /* DIAL RTN @Y17XAXU*/ 91560000 * 2 SAVTRQCH PTR(31), /* APPL REQUEST @Y17XAXU*/ 91630000 * /* QUEUE @Y17XAXU*/ 91700000 * 2 SAVTRQTG FIXED(16), /* APPL REQUEST TAG @Y17XAXU*/ 91770000 * 2 SAVTTCPU FIXED(16), /* TCAM PU TTCIN @Y17XAXU*/ 91840000 * 3 SAVTSCPT FIXED(16), /* SSCP TTCIN @Y17XAXU*/ 91910000 * 2 SAVTBSM PTR(31), /* BSM ADDRESS @Y17XAXU*/ 91980000 * 2 SAVTSIBC FIXED(15), /* SIB COUNT @Y17XAXU*/ 92050000 * 2 SAVTSUBA PTR(8), /* MAX SUBAREA VALUE @Y17XAXU*/ 92120000 * 2 SAVTSUBV PTR(8), /* HOST SUBAREA VAL @Y17XAXU*/ 92190000 * 2 SAVTNAX PTR(31), /* NETWORK ADDR TO TTCIN */ 92260000 * /* CONVERSION RTN @Y17XAXU*/ 92330000 * 2 SAVTTNTX PTR(31), /* TTCIN TO NETWORK ADDR */ 92400000 * /* CONVERSION RTN @Y17XAXU*/ 92470000 * 2 SAVTRNMP PTR(31), /* INDEX TO TTE/MH E @Y17XAXU*/ 92540000 * /* CONVERSION RTN @Y17XAXU*/ 92610000 * 2 SAVTLCBS PTR(31), /* SA LCB FETCH RTN @Y17XAXU*/ 92680000 * 2 SAVTSH20 FIXED(15), /* SIB POOL UTIL. HI-WATER 92750000 * COUNT @Y17XAXU*/ 92820000 * 2 SAVTNAT1 FIXED(15), /* TNT INDEX OF @Y17XAX7*/ 92890000 * /* FIRST NAT ENTRY @Y17XAXU*/ 92960000 * 2 SAVTMHDX CHAR(2), /* TTCIN OF FIRST MH @Y17XAXU*/ 93030000 * /* ENTRY @Y17XAXU*/ 93100000 * 2 SAVTZELM FIXED(16), /* NETWORK ADDRESS @Y17XAXU*/ 93170000 * /* SUBAREA MASK @Y17XAXU*/ 93240000 * 3 SAVTSUBM FIXED(8), /* SUBAREA MASK @Y17XAXU*/ 93310000 * 3 * FIXED(8), /* BYTE OF ZEROS @Y17XAXU*/ 93380000 * 2 SAVTSUBL PTR(8), /* SUBAREA VALUE LEN @Y17XAXU*/ 93480000 * 2 * CHAR(1), /* RESERVED @YM02919*/ 93580000 * 2 SAVTPLSZ FIXED(15), /* PLCB,SAT,SIB,RVT, AND NAT 93680000 * POOL SIZE @YM02919*/ 93780000 * 2 SAVTDVAS PTR(31), /* DEV ASSOC ROUTINE @Y17XAXU*/ 93880000 * 2 SAVTNID PTR(31), /* BSC ID VER ROUTINE 93980000 * @Y17XAXU*/ 94080000 * 2 SAVTRDRV CHAR(13) BDY(WORD), /* REDRIVE ELEMENT @YM03697*/ 94180000 * 3 SAVTRDKY CHAR(1), /* KEY FIELD @YM03697*/ 94280000 * 3 SAVTRDQB PTR(24), /* QCB ADDRESS @YM03697*/ 94380000 * 3 SAVTRDPY CHAR(1), /* PRIORITY FIELD @YM03697*/ 94480000 * 3 * CHAR(7), /* RESERVED @YM03697*/ 94580000 * 3 SAVTRDFG CHAR(1), /* FLAG FIELD @YM03697*/ 94680000 * 2 * CHAR(3), /* RESERVED @Y17XAXF*/ 94780000 * 2 SAVTCKQB CHAR(12) BDY(WORD), /* 3705 CHECKPOINT QCB 94880000 * @Y17XAXF*/ 94980000 * 3 SAVTCKTB PTR(31), /* QUEUE OF ELEMENTS FOR CKPT 95080000 * @Y17XAXF*/ 95180000 * 4 SAVTCKVT BIT(8), /* VTO FOR ATTACHED TASK 95280000 * @Y17XAXF*/ 95380000 * 4 SAVTCKCH PTR(24), /* CHAIN OF ELEMENTS 95480000 * @Y17XAXF*/ 95580000 * 3 SAVTCKEC PTR(31), /* EVENT CONTROL BLOCK 95680000 * @Y17XAXF*/ 95780000 * 4 SAVTCKCC BIT(8), /* COMPLETION CODE BYTE 95880000 * @Y17XAXF*/ 95980000 * 5 SAVTCKWA BIT(1), /* WAITING FOR COMPLETION 96080000 * OF THE EVENT @Y17XAXF*/ 96180000 * 5 SAVTCKPO BIT(1), /* EVENT HAS COMPLETED 96280000 * @Y17XAXF*/ 96380000 * 5 * BIT(6), /* RESERVED @Y17XAXF*/ 96480000 * 4 * PTR(24), /* RESERVED @Y17XAXF*/ 96580000 * 3 * PTR(31), /* STCB ADDRESS @Y17XAXF*/ 96680000 * 2 SAVTBITN PTR(31), /* BIND IMAGE TABLE ADDRESS @OY19488*/ 96780082 * 2 SAVTLLCB PTR(31); /* POINTER TO LAST PLCB @OY19488*/ 96810082 * %SAVTSIZE='LENGTH(IEDNSVTD)'; /* SAVT SIZE @Y17XAXU*/ 96980000