*%GOTO OLTCBPLS; /* S21903 00050000 MACRO 00100000 OLTCB &DSECT=YES,&EQUATES=NO,&POINTER=NO,&CONFG=NO 00150000 .* CHANGE ACTIVITY 00160010 .* A000000-999999 @G36XRXV 00170010 .* C165500,626000,626500,634000 @G36XRXV 00180010 * 00200000 * ON-LINE TEST CONTROL BLOCK 00250000 * 00300000 * STATUS = VERSION 10.0 @Y17XAXU 00350000 * 00400000 *CHANGE ACTIVITY AS FOLLOWS: 00450000 TOTODISP EQU 8 00500000 AIF ('&POINTER' NE 'YES').BYP001 00550000 TOTOBPTR DSECT 00600000 * 00650000 TOTELKEY DS C . OLTCB QUEUE ELEMENT KEY 00700000 TOTELQCB DS AL3 . ADDRESS OF OLTCB QCB 00750000 DS C . 00800000 TOTELLNK DS AL3 . OLTCB QUEUE ELEMENT LINK FIELD 00850000 * 00900000 AGO .BYPASS 00950000 .BYP001 ANOP 01000000 AIF ('&DSECT' EQ 'NO').BYPASS 01050000 TOTOLTCB DSECT 01100000 AGO .BYPASS1 01150000 .BYPASS ANOP 01200000 TOTOLTCB DS 0F 01250000 .BYPASS1 ANOP 01300000 * 01350000 * SECTION CONTROL TABLE MAPPING 01400000 * 01450000 $SCTTBLE DS 0F 01500000 $ERRLPCT DS H . LOOP ON ERROR COUNT 01550000 * 01600000 $TESTOPT DS C . TEST OPTION FIELD 01650000 * 01700000 $NOPRT EQU X'04' . NO PRINT OPTION FLAG 01750000 $INDEFLP EQU X'02' . INDEFINITE ERROR LOOP FLAG 01800000 $FSTCOMM EQU X'01' . FIRST ERROR COMMUNICATION FLAG 01850000 * 01900000 $ERROPT DS C . ERROR AND OPTION FIELD 01950000 * 02000000 $TESTERR EQU X'80' . TEST ERROR FLAG 02050000 $ASTERIK EQU X'40' . PRINT ASTERIK ON TERMINATE MSG FLAG 02100000 $CATERR EQU X'20' . CATASTROPHIC ERROR FLAG 02150000 $ALTPRNT EQU X'10' . ALTERNATE PRINTER OPTION FLAG 02200000 $NOCNTRL EQU X'08' . NO CONTROL PRINT OPTION FLAG 02250000 $NERRPRT EQU X'04' . NO ERROR PRINT OPTION FLAG 02300000 $LOOPERR EQU X'02' . LOOP ON ERROR OPTION FLAG 02350000 $LOOPTST EQU X'01' . LOOP ON TEST ENTRY OPTION FLAG 02400000 * 02450000 $RT0108 DS C . ROUTINE MASK 1 THRU 8 02500000 $RT0916 DS C . ROUTINE MASK 9 THRU 16 02550000 $DRIVER DS C . DRIVER IDENTIFICATION 02600000 * 02650000 $TOTE EQU X'8A' . TOTE ID @Y17XAXU 02700000 * 02750000 $SPARE1 DS C . UNUSED 02800000 $TSSSYM DS H . RESERVED FOR TSS 02850000 $PDEVFLG DS C . PRIMARY DEVICE FLAGS 02900000 * 02950000 $FPMOLD EQU X'80' . FILE PROTECT FLAG 03000000 $EXFILPT EQU X'40' . ADDITIONAL FILE PROTECT FLAG 03050000 $TSSSYS1 EQU X'20' . RESERVED FOR TSS 03100000 $LASTDEV EQU X'10' . LAST DEVICE OF SUBSYSTEM FLAG 03150000 * EQU X'08' . SPARE 03200000 $TERMNDX EQU X'04' . RESERVED FOR TSS 03250000 $PATHDEF EQU X'02' . RESERVED FOR TSS 03300000 $LASTSUB EQU X'01' . LAST DEVICE OF LAST SUBSYSTEM FLAG 03350000 * 03400000 $CDSFLGS DS C . DEVICE FLAGS FROM CDS FLAG BYTE 03450000 * 03500000 $FPM EQU X'80' . FILE PROTECT FLAG 03550000 $SHARED EQU X'40' . SHARED DEVICE FLAG 03600000 $CEVOL EQU X'20' . CE VOLUME FLAG 03650000 $EXTINTC EQU X'10' . DEV ADDR ASSOCIATED WITH EXT FLAG 03700000 $SYMNAME EQU X'08' . SYMBOLIC NAME FLAG 03750000 $TWOCHSW EQU X'04' . TWO CHANNEL SWITCH FLAG 03800000 $CUSTSYM EQU X'02' . CUSTOMER ASSIGNED SYMBOLIC 03850000 * NAME FLAG 03900000 $COMMCN EQU X'01' . LINE CONNECTION REQUIRED FLAG 03950000 * 04000000 $PDEVADR DS F . PRIMARY DEVICE ADDRESS 04050000 $PDEVDSC DS F . PRIMARY DEVICE DESCRIPTORS 04100000 $CDS8T19 DS 3F . PRIMARY DEVICE CDS BYTES 8 THRU 19 04150000 $RMSKCNT DS C . ROUTINE MASK COUNT LENGTH 04200000 $EXECFLG DS C . EXECUTIVE PROGRAM FLAGS 04250000 * 04300000 $CECCMIN EQU X'80' . REPLY IN TO OUTSTANDING CECOM FLAG 04350000 $MULTDEV EQU X'40' . MORE THAN ONE DEVICE ENTRY FLAG 04400000 $RTNSLCT EQU X'20' . OPERATOR MADE ROUTINE SELECTION FLAG 04450000 $ERRCNT EQU X'10' . OPERATOR SPECIFIED ERROR LOOP COUNT 04500000 $LSTPDEV EQU X'08' . DON'T ASSIGN MORE PRIMARY DEVICES FLG 04550000 $CLEANUP EQU X'04' . SECTION ENTERED FOR CLEANUP FLAG 04600000 $CTRLMOD EQU X'02' . CONTROL MODE AVAILABLE FLAG 04650000 $QSCTMOD EQU X'01' . QUIESCENT MODE AVAILABLE FLAG 04700000 * 04750000 $OLTSIZE DS H . OLT REGION SIZE 04800000 $OLTFLGS DS C . OLT FUNCTIONAL FLAGS 04850000 * 04900000 $MANINTV EQU X'80' . MANUAL INTERVENTION ROUTINE FLAG 04950000 $CLEANRT EQU X'40' . OLT HAS CLEANUP ROUTINE FLAG 05000000 $RETAIN EQU X'20' . RETAIN IS ACTIVE FLAG 05050000 $CONTCB EQU X'10' . CONTINGENT CONNECTION BROKEN FLAG 05100000 $RETCODE EQU X'08' . 05150000 $TRACE EQU X'04' . 05200000 $LASTSEC EQU X'02' . LAST SECTION SCHEDULED FLAG 05250000 * 05300000 DS C . UNUSED 05350000 $TOTFLG1 DS C . TOTE 1ST FLAG BYTE 05400000 * 05450000 $LINESHR EQU X'80' . LINE CAN BE SHARED FLAG 05500000 $TDATBLK EQU X'40' . TOTE MESSAGE BLOCKING FLAG 05550000 $TERMSEC EQU X'20' TRM REQUESTS TEST IN BACKUP S22024 05600000 * MODE S22024 05650000 $CTEQTT EQU X'10' CONTROL TERMINAL AND TEST S22024 05700000 * TERMINAL ARE ON THE SAME LINES22024 05750000 * 05800000 $TOTFLG2 DS C . TOTE 2ND FLAG BYTE 05850000 $R017024 DS C . ROUTINE MASK 017 THRU 024 05900000 $R025032 DS C . ROUTINE MASK 025 THRU 032 05950000 $R033040 DS C . ROUTINE MASK 033 THRU 040 06000000 $R041048 DS C . ROUTINE MASK 041 THRU 048 06050000 $R049056 DS C . ROUTINE MASK 049 THRU 056 06100000 $R057064 DS C . ROUTINE MASK 057 THRU 064 06150000 $R065072 DS C . ROUTINE MASK 065 THRU 072 06200000 $R073080 DS C . ROUTINE MASK 073 THRU 080 06250000 $R081088 DS C . ROUTINE MASK 081 THRU 088 06300000 $R089096 DS C . ROUTINE MASK 089 THRU 096 06350000 $R097104 DS C . ROUTINE MASK 097 THRU 104 06400000 $R105112 DS C . ROUTINE MASK 105 THRU 112 06450000 $R113120 DS C . ROUTINE MASK 113 THRU 120 06500000 $R121128 DS C . ROUTINE MASK 121 THRU 128 06550000 $R129136 DS C . ROUTINE MASK 129 THRU 136 06600000 $R137144 DS C . ROUTINE MASK 137 THRU 144 06650000 $R145152 DS C . ROUTINE MASK 145 THRU 152 06700000 $R153160 DS C . ROUTINE MASK 153 THRU 160 06750000 $R161168 DS C . ROUTINE MASK 161 THRU 168 06800000 $R169176 DS C . ROUTINE MASK 169 THRU 176 06850000 $R177184 DS C . ROUTINE MASK 177 THRU 184 06900000 $R185192 DS C . ROUTINE MASK 185 THRU 192 06950000 $R193200 DS C . ROUTINE MASK 193 THRU 200 07000000 $R201208 DS C . ROUTINE MASK 201 THRU 208 07050000 $R209216 DS C . ROUTINE MASK 209 THRU 216 07100000 $R217224 DS C . ROUTINE MASK 217 THRU 224 07150000 $R225232 DS C . ROUTINE MASK 225 THRU 232 07200000 $R233240 DS C . ROUTINE MASK 233 THRU 240 07250000 $R241248 DS C . ROUTINE MASK 241 THRU 248 07300000 $R249255 DS C . ROUTINE MASK 249 THRU 255 07350000 $RETMASK DS C . RETURN CODE MASK 07400000 DS C . SPARE 07450000 DS CL6 SPARE S05331 07500000 $MSGIDAC DS CL2 ACTIVE OLT ID S05331 07550000 $TABLE DS F . ADDR OF BRANCH TABLE 07600000 $PASS DS F . ADDR OF PASSON AREA 07650000 $EXT DS F . ADDRESS OF EXTERNAL DATA 07700000 DS 6F . SCT EXPANSION AREA 07750000 * 07800000 * 07850000 TOTSMGRT DS A . SERVICE MANAGER RETURN SAVE 07900000 TOTSAVE1 DS 18F . OLT SUBTASK 1ST SAVE AREA 07950000 TOTSAVE2 DS 18F . OLT SUBTASK 2ND SAVE AREA 08000000 TOTSAVE3 DS 18F . OLT SUBTASK 3RD SAVE AREA 08050000 TOTSAVE4 DS 18F . OLT SUBTASK 4TH SAVE AREA 08100000 TOTSAVE5 DS 18F . OLT SUBTASK 5TH SAVE AREA 08150000 TOTSAVE6 DS 18F . OLT SUBTASK 6TH SAVE AREA @Y17XAXU 08200000 TOTWOSV1 DS F . IEDQWO LEV 1 SAVE AREA @Y17XAXU 08250000 TOTWOSV2 DS F IEDQWO LEV 2 SAVE AREA @Y17XAXU 08300000 TOTWOSV3 DS F . IEDQWO LEV 3 SAVE AREA @Y17XAXU 08350000 TOTWOSV4 DS F . IEDQWO LEV 4 SAVE AREA @Y17XAXU 08400000 TOTOLTPT EQU TOTSAVE5+44 08450000 TOTOLTEP EQU TOTSAVE5+64 08500000 TOTSVEND DS 0C . END OF TOTE SAVE AREAS 08550000 * 08600000 TOTBKASN DS H . MAIN STORAGE BLOCKS ASSIGNED TO THIS OLT 08650000 TOTBKRQD DS H . MAIN STORAGE BLOCKS REQUIRED BY THIS OLT 08700000 * 08750000 TOTMMSPC DS F . OLT UNUSED MAIN STORAGE SPACE 08800000 * @Y17XAXU 08850000 * SOURCE TERMINAL ENTRY @Y17XAXU 08900000 * @Y17XAXU 08950000 TOTSRENT DS 0F . SOURCE TERMINAL ENTRY @Y17XAXU 09000000 TOTSROFF DS H . OFFSET TO SOURCE TNT ENTRY @Y17XAXU 09050000 DS H . RESERVED @Y17XAXU 09100000 TOTSRLCB DS F . SOURCE LCB ADDRESS @Y17XAXU 09150000 * 09200000 * CONTROL TERMINAL ENTRY 09250000 * 09300000 TOTCTENT DS 0F . CONTROL TERMINAL ENTRY 09350000 TOTCTUCB DS AL2 . C.T. UCB ADDRESS 09400000 TOTCTOFF DS H . OFFSET TO C.T. TNT ENTRY @Y17XAXU 09450000 * (DUMMY) @Y17XAXU 09500000 TOTCROFF DS H . OFFSET TO C.T. TNT ENTRY 09550000 * (REAL) @Y17XAXU 09600000 TOTCRSID DS H . NETWORK ADDRESS OF C.T. @Y17XAXU 09650000 TOTCTRLN DS C . C.T. RELATIVE LINE NUMBER 09700000 TOTCTLCB DS CL3 . C.T. LCB ADDRESS 09750000 TOTCTTNT DS F . C.T. TERMINAL NAME TABLE ENTRY 09800000 * ADDRESS (DUMMY ENTRY) 09850000 TOTCRTNT DS F . C.T. TERMINAL NAME TABLE ENTRY 09900000 * ADDRESS (REAL ENTRY) 09950000 TOTCTTLN DS H LENGTH OF CT TTE AREA 10000000 TOTCTFLG DS C CONTROL TERMINAL FLAGS 10050000 TOTCTASN EQU X'80' DUMMY ENTRY ASSIGNED S22024 10100000 TOTCTORN EQU X'40' CONTROL TERMINAL ON 3705 S22024 10150000 TOTCTSWD EQU X'01' DIAL CONTROL TERMINAL S22024 10200000 TOTCTEND DS 0C . END OF BASIC C.T. AREA @Y17XAXU 10250000 TOTCTRNL DS CL8 GROUP NAME FOR CT LINE S22024 10300000 TOTCTNAM DS CL9 CONTROL TERM NAME IN EBCDIC S22024 10350000 TOTCTDFL DS C CONTROL TERMINAL INITIAL CONDITIONS 10400000 TOTCTTRM EQU X'80' TERMINAL DEVICE FLAG 10450000 TOTCTLIN EQU X'40' LINE ADDRESS FLAG 10500000 TOTCTGP EQU X'10' GENERAL POLL INITIALLY ACTIVE 10550000 * ON TEST LINE 10600000 TOTCTLST EQU X'08' CT INITIALLY STOPPED 10650000 TOTCTHD EQU X'04' CT INITIALLY HELD 10700000 TOTCTIAC EQU X'02' CT INVITATION LIST ENTRY 10750000 * INITIALLY INACTIVE 10800000 * 10850000 DS CL3 RESERVED @Y17XAXU 10900000 TOTCUTST DS 0F CONTROL INFO FOR $CUTEST MACRO 10950000 TOTCUFLG DS 1C $CUTEST FLAGS 11000000 * 11050000 TOTCUDON EQU X'80' CUTEST ISSUED 11100000 TOTCUCUP EQU X'40' CUTEST CLEAN UP REQUIRED 11150000 * 11200000 TOTCU#AD DS 1C $CUTEST NUMBER OF CONTIGUOUS ADDRESSES 11250000 TOTCUCUU DS 2C $CUTEST STARTING ADDRESS 11300000 * 11350000 TOTCUSAV DS 1F $CUTEST SAVE AREA 11400000 * 11450000 TOTCURS1 DS 1C $CUTEST CODE PARAMETER 11500000 TOTCURS2 DS 1C $CUTEST HEX CHANNEL ID 11550000 TOTCURS3 DS 1C $CUTEST RESERVED BYTE 3 CODE PARAMETER 11600000 TOTCURS4 DS 1C $CUTEST RESERVED BYTE 4 CODE PARAMETER 11650000 * 11700000 TOTWOOPC DS 6F IEDQWO OPERATOR CONTROL PARM LIST SA41602 11750000 TOTPLIST DS 0F OPERATOR CONTROL PARAMETER LIST S22024 11800000 TOTOKEY DS C KEY S22024 11850000 TOTOQCBA DS CL3 OP CONTROL QCB ADDRESS S22024 11900000 TOTOPRI DS C PRIORITY S22024 11950000 TOTOLINK DS CL3 LINK FIELD S22024 12000000 TOTOVBCD DS C VERB CODE S22024 12050000 TOTOELNG DS C LENGTH OF ELEMENT S22024 12100000 TOTORLN DS C RELATIVE LINE NUMBER S22024 12150000 TOTORTCD DS C RETURN CODE S22024 12200000 TOTOFLG DS 0FL1 FLAG BYTE @YM08136 12250000 TOTOATC EQU X'80' USE ALTERATE TTCIN @YM08136 12300000 TOTOECBA DS F ECB ADDRESS S22024 12350000 TOTOLADR DS CL8 TERMINAL NAME OR LINE ADDRESS S22024 12400000 TOTOALTT DS H ALTERNATE TTCIN 12450000 DS CL38 UNUSED @YM08136 12500000 TOTOPCLN DS A OP CONTROL ECB ADDRESS FOR CLEANUP S22024 12550000 TOTUSCOR DS F CORE CURRENTLY IN USE BY OLT S22024 12600000 * ALTERNATE PRINTER ENTRY 12650000 * 12700000 TOTAPENT DS 0F . ALTERNATE PRINTER ENTRY 12750000 TOTAPUCB DS AL2 . A.P. UCB ADDRESS 12800000 TOTAPOFF DS H . OFFSET TO A.P. TNT ENTRY @Y17XAXU 12850000 * (DUMMY ENTRY) @Y17XAXU 12900000 TOTAROFF DS H . OFFSET TO A.P. TNT ENTRY 12950000 * (REAL ENTRY) @Y17XAXU 13000000 TOTARSID DS H . NETWORK ADDRESS OF A.P. @Y17XAXU 13050000 TOTAPRLN DS C . A.P. RELATIVE LINE NUMBER 13100000 TOTAPLCB DS CL3 . A.P. LCB ADDRESS 13150000 TOTAPTNT DS F . A.P. TERMINAL NAME TABLE ENTRY 13200000 * ADDRESS (DUMMY ENTRY) 13250000 TOTARTNT DS F A.P. TERMINAL NAME TABLE ENTRY 13300000 * ADDRESS ( REAL ENTRY) 13350000 TOTAPTLN DS H LENGTH OF AP TTE AREA 13400000 TOTAPFLG DS C ALTERNATE PRINTER FLAGS 13450000 TOTAPASN EQU X'80' DUMMY ENTRY ASSIGNED S22024 13500000 TOTAPORN EQU X'40' AP ON 3705 S22024 13550000 TOTAPSWD EQU X'01' DIAL ALTERNATE PRINTER S22024 13600000 TOTAPEND DS 0C . END OF BASIC AP AREA @Y17XAXU 13650000 TOTAPRNL DS CL8 GROUP NAME FOR AP LINE S22024 13700000 TOTAPDFL DS C ALTERNATE PRINTER INITIAL CONDITIONS 13750000 * 13800000 TOTAPTER EQU X'80' TERMINAL DEVICE FLAG 13850000 TOTAPLIN EQU X'40' LINE ADDRESS FLAG 13900000 TOTAPGP EQU X'10' GENERAL POLL INITIALLY ACTIVE 13950000 * ON TEST LINE 14000000 TOTAPLST EQU X'08' A.P. INITIALLY STOPPED 14050000 TOTAPHD EQU X'04' A.P. INITIALLY HELD 14100000 TOTAPIAC EQU X'02' A.P. INVITATION LIST ENTRY 14150000 * INITIALLY INACTIVE 14200000 DS F UNUSED @ZM47554 14220010 * 14350000 TOTAPDCB DS F LOCAL PRINTER DCB ADDRESS S22024 14400000 TOTPDECB DS 5F . LOCAL PRINTER DECB 14450000 * 14500000 TOTPARML DS F ADDRESS OF PARAMETER LIST FOR SA41612 14550000 * MACRO SERVICE CALL SA41612 14600000 * 14650000 TOTOLTMQ DS A . SUBTASK MESSAGE QUEUE 14700000 TOTOTECB DS F . TOTE SUBTASK ECB 14750000 * 14800000 TOTRESSV DS F . POINTER TO MOTHER TASK SAVE AREA 14850000 TOTTCBAD DS F . SUBTASK TCB ADDRESS 14900000 TOTCMPCD DS F . SUBTASK COMPLETION CODE 14950000 * 15000000 TOTOLTPL DS 3F . OLT INPUT PARAMETER LIST 15050000 TOT#TBLE EQU TOTOLTPL+8 . BRANCH TABLE ADDRESS 15100000 * 15150000 TOTWTORP DS 0F . WTOR PARM LIST FOR OPERATOR COMMUNICATION 15200000 TOTINCNT DS C . REPLY BYTE COUNT 15250000 TOTINADR DS 3C . REPLY BUFFER ADDRESS 15300000 TOTINECB DS F . REPLY ECB ADDRESS 15350000 * 15400000 TOTWTOPL DS 0F . WTO & WTOR PL FOR OPERATOR COMMUNICATION 15450000 DS C . 15500000 TOTOTCNT DS C . OUT MESSAGE COUNT 15550000 DS H . 15600000 TOTOTBUF DS CL84 OUTPUT AREA 15650000 TOTINBUF DS CL80 REPLY BUFFER 15700000 * 15750000 TOTOLTID DS H . TOTE OLT IDENTIFICATION 15800000 TOTRTCOD DS C . SERVICE MODULE RETURN CODE 15850000 DS C . UNUSED 15900000 * 15950000 TOTPLNKQ DS 0F . PLINK MODULE QUEUE 16000000 TOTPLFWD DS F . QUEUE FORWARD POINTER 16050000 TOTPLBKW DS F . QUEUE BACKWARD POINTER 16100000 DS F . RESERVED @Y17XAX6 16150000 TOTWKSPC DS 16D . TOTE WORK AREA 16200000 TOTWKEND DS 0C . END OF TOTE WORK AREA 16250000 TOTWKLNT EQU TOTWKEND-TOTWKSPC . LENGTH OF TOTE WORKAREA 16300000 DS 5F . UNUSED 16350000 TOTAVTPT DS F . ADDRESS OF AVT 16400000 TOTSTAE DS F ADDRESS OF STAE EXIT ROUTINE S22024 16450000 TOTRESPL DS F . ADDRESS OF TOTE RESIDENT PARAMETER LIST 16500000 TOTFLG01 DS C . TOTE 1ST FLAG BYTE (ABNORMAL) @G36XRXV 16550010 TOTCLNST EQU X'02' CLEANUP STARTED @YM08158 16600000 TOTCLNED EQU X'01' CLEANUP ENDED @YM08158 16650000 * 16700000 TOTFINAL EQU X'80' FINAL MESSAGE INDICATOR S05331 16750000 TOTCONFG EQU X'40' CONFIGURATOR RUN 16800000 TOTIPLCU EQU X'20' FORCED CLEANUP FROM IPL S05331 16850000 TOTEXIT EQU X'10' IEDQWO CONTROL FLOW FLAG @Y17XAXU 16900000 TOTAPTST EQU X'08' AP ON TEST LINE @Y17XAUU 16950000 TOTPRMPT EQU X'04' PROMPTER RUN S22024 17000000 * 17050000 TOTFLG02 DS C . TOTE 2ND FLAG BYTE 17100000 * 17150000 TOTTTSPE EQU X'80' . TEST SESSION PENDING END @Y17XAXU 17200000 TOTTSST EQU X'40' . CT/AP LINE IN TEST MODE @Y17XAUU 17250000 TOTDEV0X EQU X'20' TEST DEVICE ON 270X S22024 17300000 TOTOLTRQ EQU X'10' ONLINE TEST REQUEST FLAG S22024 17350000 TOTCHKSZ EQU X'08' UPDATE SUBTASK STORAGE S22024 17400000 * ALLOCATION FLAG S22024 17450000 TOTCONMD EQU X'04' CALL TOTE CONCENTRATOR MODULE SA41597 17500000 * FOR INITIAL STATUS SET UP SA41597 17550000 TOTCONCU EQU X'02' CONCENTRATOR CLEAN UP REQUIREDSA41597 17600000 TOTDEVRN EQU X'01' TEST DEVICE ON 3704/3705 S22024 17650000 * 17700000 TOTFLG03 DS C . TOTE 3RD FLAG BYTE 17750000 * 17800000 TOTAPOER EQU X'80' . ALTERNATE PRINTER OPTION ERROR FLAG 17850000 TOTTDFER EQU X'40' . TEST DEVICE FIELD ERROR FLAG 17900000 TOTTSTER EQU X'20' . TEST ID FIELD ERROR FLAG 17950000 TOTOPTER EQU X'10' . OPTION FIELD ERROR FLAG 18000000 TOTIMNCP EQU X'08' . TEMPORARY NO CONT PRINT FLAG 18050000 TOTTSINC EQU X'04' . INCLUSIVE TEST ID ENTRY FLAG 18100000 TOTREPEX EQU X'02' REPLY EXPECTED FLAG SA41613 18150000 * 18200000 TOTFLG04 DS C . TOTE 4TH FLAG BYTE 18250000 TOTPRCTF EQU X'08' COUNTERFEIT PRIMARY TEST DEVICE @YM08407 18300000 TOTSCCTF EQU X'04' COUNTERFEIT SECONDARY TEST DEVICE @YM08407 18350000 * 18400000 TOTNUMDV EQU X'80' . NUMERIC TRM ENTRY FLAG 18450000 TOTDTCHD EQU X'40' . SUBTASK ALREADY DETACHED FLAG 18500000 TOTCLOSE EQU X'20' . TCAM CLOSEDOWN IN PROGRESS FLAG 18550000 TOTTTSWT EQU X'01' . TEST TERMINAL LINE SWITCHED FLAG 18600000 * 18650000 TOTFLG05 DS C . TOTE 5TH FLAG BYTE 18700000 * 18750000 TOTPRINT EQU X'80' . ACCESS METHOD PRINT FLAG 18800000 TOTCECOM EQU X'40' . ACCESS METHOD CECOM FLAG 18850000 TOTREPLY EQU X'20' . ACCESS METHOD CECOM WITH REPLY FLAG 18900000 TOTSRCE EQU X'10' . SEND MSG TO SOURCE TERMINAL @Y17XAXU 18950000 TOTSRCON EQU X'08' . TRM ENTERED FROM SYSCON @Y17XAXU 19000000 TOTTMOUT EQU X'04' . WAIT TIMEOUT FLAG 19050000 TOTEXIOF EQU X'02' . ACCESS METHOD EXIO FLAG 19100000 TOTNDMSG EQU X'01' . SEND CANCEL OR TERMINATE MESSAGE FLAG 19150000 * 19200000 TOTFLG06 DS C . TOTE 6TH FLAG BYTE 19250000 * 19300000 TOTOTERM EQU X'80' . SECTION TERMINATE FLAG 19350000 TOTCBOPN EQU X'40' CANCEL BEFORE OPEN 19400000 TOTWACAN EQU X'20' . CANCEL REQUEST PENDING 19450000 TOTNCMFG EQU X'10' . NON-CONCURRENT MODE FLAG 19500000 TOTABEND EQU X'08' . OLT HAS ABENDED FLAG 19550000 TOTCANCL EQU X'04' . CANCEL TESTING FLAG 19600000 TOTOTACT EQU X'02' . OLT ACTIVE FLAG 19650000 TOTNPERR EQU X'01' . NO PERMANENT ERROR FLAG 19700000 * 19750000 TOTFLG07 DS C . TOTE 7TH FLAG BYTE 19800000 * 19850000 TOTPRIEX EQU X'80' . PRIMARY DEVICE FOR EXIO/WAITIO FLAG 19900000 TOTSECEX EQU X'40' . SECONDARY DEV FOR EXIO/WAITIO FLAG 19950000 TOTMSCEC EQU X'08' . TOTE MESSAGE SOURCE FLAG - CECOM 20000000 TOTMSREP EQU X'04' . TOTE MESSAGE SOURCE FLAG - CECOM 20050000 TOTMSPRT EQU X'02' . TOTE MESSAGE SOURCE FLAG - CECOM 20100000 TOTMSSRC EQU X'01' . TOTE MESSAGE SOURCE FLAG @Y17XAXU 20150000 * 20200000 TOTFLG08 DS C . TOTE 8TH FLAG BYTE 20250000 * 20300000 * BITS 0-3 ARE DPRINT FORMS CNTRL FLAGS 20350000 * BITS 4-7 ARE DPRINT LEVEL CNTRL FLAGS 20400000 * 20450000 * 20500000 TOTFLG09 DS C . TOTE 9TH FLAG BYTE 20550000 * 20600000 TOTAPCON EQU X'80' . PRINTER = SYSTEM CONSOLE FLAG 20650000 TOTAPOUT EQU X'40' . PRINTER = SYSTEM PRINTER FLAG 20700000 TOTCTCON EQU X'20' . CONTROL TERMINAL = SYS CONSOLE FLAG 20750000 TOTAPTRM EQU X'10' . PRINTER = TERMINAL FLAG 20800000 TOTNOBRK EQU X'08' NO BREAK OPTION SPECIFIED S22024 20850000 TOTLNCON EQU X'04' LINE CONNECTION ALREADY DONE S22024 20900000 TOTPRECT EQU X'02' . NO ALTERNATE PRINTER FLAG 20950000 * (OR CT = AP) S05331 21000000 TOTMACFT EQU X'01' UNSUPPORTED MACRO FUNCTION FLAG 21050000 * 21100000 TOTFLG10 DS C . TOTE 10TH FLAG BYTE 21150000 * 21200000 TOTTERMS EQU X'80' . TEST DEVICES = TERMINALS FLAG 21250000 TOTTNTRQ EQU X'08' . DUMMY TNT ENTRY REQUEST FLAG 21300000 TOTOLTED EQU X'04' . ON-LINE TEST ENDED FLAG 21350000 TOTOLTWT EQU X'02' . ON-LINE TEST WAITING FLAG 21400000 TOTOLTRS EQU X'01' . ON-LINE TEST RESTART FLAG 21450000 * 21500000 TOTTTBEL DS CL1 TERMINAL NAME TABLE ENTRY 21550000 * NAME LENGTH 21600000 DS CL1 UNUSED 21650000 AIF ('&CONFG' EQ 'YES').CNFBYP 21700000 TOTEXT DS 14F . EXTERNAL DATA BUFFER 21750000 TOTPASS DS 16F . PASSON DATA BUFFER 21800000 TOTTRMBF DS 0C . TRM BUFFER FOR TRM ANALYSIS 21850000 TOTPRIBK DS 0F . PRIMARY TEST DEVICE I/O CONTROL BLOCKS 21900000 TOTPRECB DS F . PRIMARY ECB 21950000 * 22000000 * PRIMARY TEST DEVICE ENTRY 22050000 * 22100000 TOTPRENT DS 0F . TOTE PRIMARY TEST DEVICE ENTRY 22150000 * 22200000 TOTPRUCB DS AL2 . PRIMARY DEVICE UCB ADDRESS 22250000 TOTPCOFF DS H . OFFSET TO PRIMARY DEVICE @Y17XAXU 22300000 * (DUMMY ENTRY) @Y17XAXU 22350000 TOTPROFF DS H . OFFSET TO PRIMARY TNT ENTRY 22400000 * (REAL ENTRY) @Y17XAXU 22450000 TOTPRSID DS H . NETWORK ADDRESS OF PRIMARY @Y17XAXU 22500000 TOTPRRLN DS C . PRIMARY DEVICE RELATIVE 22550000 * LINE NUMBER 22600000 TOTPRLCB DS AL3 . ADDRESS OF 3705 LCB @Y17XAXU 22650000 TOTPDTNT DS F . PRIMARY TNT ENTRY ADDRESS @Y17XAXU 22700000 * (DUMMY ENTRY) @Y17XAXU 22750000 TOTTNTPR DS F PRIMARY TNT ENTRY ADDRESS @Y17XAXU 22800000 * (REAL ENTRY) @Y17XAXU 22850000 TOTPRLEN DS H . LENGTH OF PRIMARY TTE AREA @Y17XAXU 22900000 TOTPRFLG DS C . PRIMARY FLAGS @Y17XAXU 22950000 TOTPRTAS EQU X'80' . PRIMARY TNT ENTRY ASSIGNED @Y17XAXU 23000000 TOTPRLU EQU X'40' . LU TERMINAL @Y17XAXU 23050000 TOTPPRSC EQU X'20' . ON=PRIMARY @Y17XAX6 23100000 * OFF=SECONDARY @Y17XAX6 23150000 TOTPUNRD EQU X'10' . ON=UNREAD DATA @Y17XAX6 23200000 * OFF=NO UNREAD DATA @Y17XAX6 23250000 TOTPREX EQU X'08' . EXCEPTION RESPONSE @Y17XAX6 23300000 TOTPRFME EQU X'04' . DEFINITE RESPONSE @Y17XAX6 23350000 TOTPEXNM EQU X'02' . ON=EXPEDITED @Y17XAX6 23400000 * OFF=NORMAL @Y17XAX6 23450000 DS C . RESERVED @Y17XAXU 23500000 TOTPRQCB DS F PRIMARY QCB ADDRESS S22024 23550000 TOTPRCCW DS F ADDRESS OF READ CCW FOR PRIMARYS22024 23600000 TOTPRBUF DS F ADDRESS OF BUFFER CONTAINING S22024 23650000 * READ DATA FOR PRIMARY S22024 23700000 * 23750000 * PRIMARY DEVICE DATA BLOCKING FIELD 23800000 * 23850000 TOTPDTBF DS A . RESPONSE BUFFER ADDRESS 23900000 TOTPDTCT DS H . RESPONSE BUFFER SIZE 23950000 TOTPFLGS DS BL1 . FLAGS 24000000 DS CL1 UNUSED @ZM47554 24050010 TOTPRSN DS 0F PRIMARY SEQ NUMBER FIELD @ZM47554 24058010 DS CL2 FLAGS @ZM47554 24066010 TOTPRSEQ DS H SEQUENCE NUMBER (FROM SNA TH) @ZM47554 24074010 * @ZM47554 24082010 TOTPTECB DS F . PRIMARY TECB ADDRESS 24100000 TOTPRIOB DS 11F PRIMARY IOB 24150000 TOTPRDCB DS 18F . PRIMARY DCB 24200000 TOTPRDEB EQU TOTPRDCB+44 PRIMARY DEB ADDRESS 24250000 * 24300000 TOTSCIBK DS 0F . SECONDARY TEST DEVICE I/O CONTROL BLOCKS 24350000 TOTSCECB DS F . SECONDARY ECB 24400000 * 24450000 * SECONDARY TEST DEVICE ENTRY 24500000 * 24550000 TOTSCENT DS 0F . TOTE SECONDARY TEST DEVICE ENTRY 24600000 * 24650000 TOTSCUCB DS AL2 . SECONDARY DEVICE UCB ADDRESS 24700000 TOTNCOFF DS H . OFFSET TO SECONDARY TNT ENTRY@Y17XAXU 24750000 * (DUMMY ENTRY) @Y17XAXU 24800000 TOTSCOFF DS H . OFFSET TO SECONDARY TNT ENTRY 24850000 * (REAL ENTRY) @Y17XAXU 24900000 TOTSRSID DS H . NETWORK ADDRESS OF SECONDARY @Y17XAXU 24950000 TOTSCRLN DS C . SECONDARY DEVICE RELATIVE 25000000 * LINE NUMBER 25050000 TOTSCLCB DS AL3 . ADDRESS OF 3705 LCB @Y17XAXU 25100000 TOTSDTNT DS F . SECONDARY TNT ENTRY ADDRESS @Y17XAXU 25150000 * (DUMMY ENTRY) @Y17XAXU 25200000 TOTSRTNT DS F . SECONDARY TNT ENTRY ADDRESS @Y17XAXU 25250000 * (REAL ENTRY) @Y17XAXU 25300000 TOTSCLEN DS H . LENGTH OF SECONDARY TTE AREA @Y17XAXU 25350000 TOTSCFLG DS C . SECONDARY FLAGS @Y17XAXU 25400000 TOTSCTAS EQU X'80' . SECONDARY TNT ENTRY ASSIGNED @Y17XAXU 25450000 TOTSCLU EQU X'40' . LU DEVICE @Y17XAXU 25500000 TOTSPRSC EQU X'20' . ON=PRIMARY @Y17XAX6 25550000 * OFF=SECONDARY @Y17XAX6 25600000 TOTSUNRD EQU X'10' . ON=UNREAD DATA @Y17XAX6 25650000 * OFF=NO UNREAD DATA @Y17XAX6 25700000 TOTSCEX EQU X'08' . EXCEPTION RESPONSE @Y17XAX6 25750000 TOTSCFME EQU X'04' . DEFINITE RESPONSE @Y17XAX6 25800000 TOTSEXNM EQU X'02' . ON=EXPEDITED @Y17XAX6 25850000 * OFF=NORMAL @Y17XAX6 25900000 DS C . RESERVED @Y17XAXU 25950000 TOTSCQCB DS F SECONDARY QCB ADDRESS S22024 26000000 TOTSCCCW DS F ADDRESS OF READ CCW FOR S22024 26050000 * SECONDARY TEST DEVICE S22024 26100000 TOTSCBUF DS F ADDRESS OF BUFFER CONTAINING S22024 26150000 * READ DATA FOR SECONDARY S22024 26200000 * 26250000 * SECONDARY DEVICE DATA BLOCKING FIELD 26300000 * 26350000 TOTSDTBF DS A . RESPONSE BUFFER ADDRESS 26400000 TOTSDTCT DS H . RESPONSE BUFFER SIZE 26450000 TOTSFLGS DS BL1 . FLAGS 26500000 DS CL1 UNUSED @ZM47554 26550010 TOTSCSN DS 0F SECONDARY SEQ NUMBER FIELD @ZM47554 26558010 DS CL2 FLAGS @ZM47554 26566010 TOTSCSEQ DS H SEQUENCE NUMBER (FROM SNA TH) @ZM47554 26574010 * @ZM47554 26582010 TOTSTECB DS F . SECONDARY TECB ADDRESS 26600000 TOTSCIOB DS 11F SECONDARY IOB 26650000 TOTSCDCB DS 18F . SECONDARY DCB ADDRESS 26700000 TOTSCDEB EQU TOTSCDCB+44 SECONDARY DEB ADDRESS 26750000 * 26800000 TOTTRMND DS 0C . END OF TRM BUFFER 26850000 * 26900000 TOTCROLT DS CL8 . CURRENT OLT I.D. 26950000 * THE FOLLOWING EQUATES ARE USED BY THE 'INCLUSIVE' ROUTINE IN IEDQWE 27000000 TOTCRALP EQU TOTCROLT+5 27050000 TOTCRTOO EQU TOTCROLT+6 27100000 TOTONELT EQU TOTCROLT+7 27150000 TOTCRFST EQU TOTCROLT+8 27200000 TOTSECBL EQU TOTCROLT+9 27250000 TOTONECU EQU TOTCROLT+10 27300000 TOTCRSEC EQU TOTCROLT+11 27350000 TOTSECBK EQU TOTCROLT+12 27400000 TOTONEND EQU TOTCROLT+13 27450000 TOTCRFLG EQU TOTCROLT+15 27500000 TOTFTTIM EQU X'80' FIRST TIME SWITCH 27550000 TOTCLRFG EQU X'00' USED TO CLEAR FIRST TIME SWITCH 27600000 TOTSAADR EQU TOTCROLT+16 27650000 TOTOLTTB DS 10CL3 . OLT I.D. TABLE 27700000 TOTOLTTE DS 0C . END OF TABLE 27750000 * 27800000 TOTCONTB DS 10CL1 CONCENTRATOR INITIAL STATUS TABLE SA41597 27850000 * FOR TEST DEVICES SA41597 27900000 TOTCONCT DS CL1 CONCENTRATOR STATUS FOR CONTROL SA41597 27950000 * TERMINAL SA41597 28000000 TOTCONAP DS CL1 CONCENTRATOR STATUS FOR ALTERNATE SA41597 28050000 * PRINTER SA41597 28100000 TOTCONND DS 0C END OF TABLE SA41597 28150000 * SA41597 28200000 * CONCENTRATOR INITIAL STATUS CONDITIONS SA41597 28250000 * SA41597 28300000 TOTCSTOP EQU X'80' CONCENTRATOR INITIALLY STOPPEDSA41597 28350000 TOTCHELD EQU X'40' CONCENTRATOR INITIALLY HELD SA41597 28400000 TOTCINAC EQU X'20' CONCENTRATOR INITIALLY SA41597 28450000 * INACTIVE SA41597 28500000 TOTCSTRT EQU X'E0' NONE SET IF ORIGINALLY STARTEDSA41597 28550000 DS CL38 SPARE SA41597 28600000 TOTTDTBL DS 10F . TOTE TEST DEVICE TABLE 28650000 TOTLETGO EQU TOTTDTBL+36 LAST ENTRY POINTER 28700000 TOTTDEND DS 0F . END OF TABLE 28750000 * 28800000 * TEST DEVICE INITIAL CONDITIONS 28850000 * 28900000 TOTTDTRM EQU X'80' . TERMINAL DEVICE FLAG 28950000 TOTTDLIN EQU X'40' . LINE ADDRESS FLAG 29000000 TOTTDGRB EQU X'20' . TEST DEVICE GRABBED FLAG 29050000 TOTTDORN EQU X'10' TEST DEVICE ON A 3705 S22024 29100000 TOTTDLST EQU X'08' . TEST DEVICE INITIALLY STOPPED 29150000 TOTTDTHD EQU X'04' . TEST DEVICE INITIALLY HELD 29200000 TOTTDIAC EQU X'02' . TEST DEVICE INVITATION LIST 29250000 * ENTRY INITIALLY INACTIVE 29300000 TOTTSWPM EQU X'01' A SWITCH HAS BEEN PERFORMED Y06330 29350000 TOTTNIPL EQU X'06' NO IPL REQUIRED FOR 3705 S05331 29400000 * 29450000 * 29500000 * WAITIO ECB LIST 29550000 * 29600000 TOTWECBA DS A . POINTER TO ECB FOR TEST DEVICE 29650000 TOTECBPT DS A POINTER TO SUBTASK ECB 29700000 * 29750000 TOTTLCNT DS H . TEST LOOP COUNT 29800000 DS CL2 . RESERVED @Y17XAX6 29850000 AGO .EQUATES 29900000 .CNFBYP ANOP 29950000 DS CL4 . RESERVED @Y17XAX6 30000000 CDSWORK DS 0D CONFIGURATOR WORK AREA 30050000 CDSREC DS 0CL256 . CDS RECORD CREATION AREA 30100000 CDSUNIT DS CL4 . UNIT ADDRESS 30150000 CDSMODEL DS CL1 . MODEL 30200000 CDSFEAT DS CL1 . FEATURES 30250000 CDSCLASS DS CL1 . CLASS 30300000 CDSTYPE DS CL1 . TYPE DEVICE 30350000 CDSBYTES DS CL1 . BYTE COUNT 30400000 CDSFLAGS DS CL1 . FLAGS 30450000 * 30500000 CDSFPMOD EQU X'80' . FILE PROTECT MODE FLAG 30550000 CDSDVSHR EQU X'40' . DEVICE SHARED WITH ANOTHER SYS 30600000 CDSFEVOL EQU X'20' . F.E. VOLUME MOUNTED FLAG 30650000 CDSEXINT EQU X'10' . EXTERNAL INTERRUPT POSSIBLE FLAG 30700000 CDSSYMNM EQU X'08' . SYMBOLIC ADDRESSING FLAG 30750000 CDSTWOCH EQU X'04' . TWO CHANNEL SWITCH FLAG 30800000 CDSCUSYM EQU X'02' . CUSTOMER ASSIGNED SYMBOLIC NAME 30850000 CDSLCNCT EQU X'01' . LINE CONNECTION REQUIRED 30900000 * 30950000 CDSSIGNL DS CL2 . EXTERNAL SIGNAL MASK 31000000 CDSNAME DS 0CL8 . SYMBOLIC (ALTERNATE MEMBER) NAME 31050000 CDSTCU DS CL2 . OR TCU FEATURES 31100000 CDSMISC DS CL3 . MISC 31150000 CDSRMASK DS CL3 . SECTION RUN MASK 31200000 CDSFXARA DS 0CL4 . EXTENDED FIXED AREA 31250000 CDSFXLEN DS CL1 . LENGTH 31300000 CDSFXFLG DS CL2 . FLAGS 31350000 * TWO BYTE SET MODE 31400000 CDSSETMD EQU X'80' . AUTOCALL FEATURE 31450000 CDSAUTCL EQU X'40' . SWITCHED LINE 31500000 CDSMPNT EQU X'20' . NON-SWITCHED MULTIDROP LINE 31550000 CDSMDROP EQU X'10' . BSC WORLD TRADE DATA SET 31600000 CDSWTBSC EQU X'08' . 31650000 * 31700000 CDSLNCON DS CL1 LINE CONNECTION CMD SEQ CODE 31750000 CDSVAR DS 0C . CDS VARIABLE FIELD 31800000 ORG CDSWORK+256 31850000 CDSINPUT DS 0CL80 INPUT TO UNIT CONFIGURATOR AREA 31900000 CDSTCUTY DS CL4 . TCU TYPE (EBCDIC) 31950000 CDSSYMBL DS CL8 . SYMBOLIC TERMINAL NAME (EBCDIC) 32000000 CDSTERM DS CL4 . TERMINAL TYPE (EBCDIC) 32050000 CDSADAP DS CL1 . ADAPTER TYPE 32100000 * 32150000 CDSIBM1 EQU X'10' . IBM I 32200000 CDSIBM2 EQU X'20' . IBM II 32250000 CDSIBMTY EQU X'30' IBM TTY 32300000 CDSTTY1 EQU X'40' . TTY I 32350000 CDSTTY2 EQU X'50' . TTY II 32400000 CDSWTTY EQU X'60' . WTC TTY 32450000 CDSSDA1 EQU X'70' . SDA I 32500000 CDSIBM3 EQU X'80' . IBM III 32550000 CDSSDA2 EQU X'90' . SDA II 32600000 * 32650000 CDSLINE DS CL1 . LINE TYPE 32700000 * 32750000 CDSPTP EQU X'01' . LEASED POINT TO POINT 32800000 CDSMP EQU X'02' . LEASED MULTIPOINT 32850000 CDSSWTCH EQU X'03' . SWITCHED WITHOUT AUTODIAL 32900000 CDSSWAUT EQU X'04' . SWITCHED WITH AUTODIAL 32950000 CDSLOCAL EQU X'05' . LOCAL 33000000 * 33050000 CDSCONN DS CL1 . LINE CONNECTION CODE 33100000 * 33150000 CDSBYP EQU X'00' . BYPASS 33200000 CDSDISEN EQU X'01' . DISABLE, ENABLE OR DIAL 33250000 CDSDSMI EQU X'02' . DISABLE, SETMODE, ENABLE OR DIAL 33300000 * . FOR SDA I 33350000 CDSDSMIT EQU X'03' . DISABLE, SETMODE, ENABLE OR DIAL 33400000 * . FOR SDA II 33450000 CDSDSAD0 EQU X'04' . DISABLE, SADZERO, ENABLE OR DIAL 33500000 CDSDSAD1 EQU X'05' . DISABLE, SADONE, ENABLE OR DIAL 33550000 CDSDSAD2 EQU X'06' . DISABLE, SADTWO, ENABLE OR DIAL 33600000 CDSDSAD3 EQU X'07' . DISABLE, SADFOUR, ENABLE OR DIAL 33650000 * 33700000 CDS#POLL DS CL1 . NUMBER OF POLLING CHARACTERS (HEX) 33750000 CDSPOLL DS CL7 . POLLING CHARACTERS 33800000 CDS#ADDR DS CL1 . NUMBER OF ADDRESSING CHARACTERS (HEX) 33850000 CDSADDR DS CL10 . ADDRESSING CHARACTERS 33900000 DS CL1 . UNUSED 33950000 CDS#DIAL DS CL1 . NUMBER OF DIAL DIGITS 34000000 CDSDIAL DS CL20 . DIAL DIGITS 34050000 CDS#ID DS C . CPU ID LENGTH 34100000 CDSCPUID DS 15C . CPU ID 34150000 CDSCODE DS C . ADAPTER LINE CODE 34200000 CDSCFLGS DS CL1 RESERVED 34250000 CDSFNFLG DS CL1 . FUNCTION FLAGS 34300000 * 34350000 CDSADD EQU X'02' . ADD 34400000 CDSDEL EQU X'04' . DELETE 34450000 CDSCHNG EQU X'06' . CHANGE 34500000 CDSEXIBT EQU X'08' . EXHIBIT 34550000 * 34600000 CDSRETFL DS CL1 . RETURN CODE 34650000 * 34700000 CDSNRML EQU X'00' . NORMAL RETURN 34750000 CDSINVLD EQU X'01' . INVALID 34800000 * 34850000 CDSBLDL DS 0CL40 . BLDL LIST FOR CONFIG DIRECTORY 34900000 CDSMEMBR DS CL8 . MEMBER NAME 34950000 CDSTTRC DS CL3 . CESD RELATIVE TTR 35000000 CDSTTRC4 DS CL1 . CESD RELATIVE TTR 4TH BYTE 35050000 CDSTTRD DS CL3 . DATA RELATIVE TTR 35100000 CDSTTRD4 DS CL1 . DATA RELATIVE TTR 4TH BYTE 35150000 CDSTTRNS DS CL4 . RESERVED 35200000 CDSATTRB DS CL2 . ATTRIBUTES 35250000 CDSMAIN DS CL3 . MAIN STORAGE REQUIREMENTS 35300000 CDSBLK1 DS CL2 . LENGTH OF FIRST BLOCK 35350000 CDSEPADR DS CL3 . ENTRY POINT ADDRESS 35400000 CDSTXBLK DS CL3 . FIRST TEXT BLOCK ORIGIN 35450000 CDSSSI DS CL7 . CDS SSI 35500000 * 35550000 DS 0D . 35600000 CDSCESD DS 0CL56 . CESD RECORD FOR CONFIG PDS 35650000 CDSCESID DS CL1 . CESD IDENTIFICATION 35700000 CDSCESPR DS CL3 . UNUSED 35750000 CDSESD01 DS CL2 . ESDID OF FIRST ESD 35800000 CDSCESCT DS CL2 . COUNT 35850000 CDSCESNM DS CL8 . MEMBER NAME 35900000 CDSCESTY DS CL1 . TYPE 35950000 CDSCESAD DS CL3 . ADDRESS 36000000 CDSCESGM DS CL1 . SEGMENT 36050000 CDSCESLN DS CL3 . ID AND LENGTH 36100000 CDSESD02 DS CL16 . SECOND ESD RECORD 36150000 CDSESD03 DS CL16 . THIRD ESD RECORD 36200000 * 36250000 CDSCNTL DS 0CL20 . CONTROL RECORD FOR CONFIG PDS 36300000 CDSCTLID DS CL1 . CNTROL IDENTIFICATION 36350000 CDSCTLSP DS CL3 . UNUSED 36400000 CDSCNT01 DS CL2 . # BYTES FOLLOWING CCW 36450000 CDSCNT02 DS CL2 . COUNT 36500000 CDSCCW DS CL8 . CHANNEL CONTROL WORD 36550000 CDSCESDI DS CL2 . CESD ENTRY 36600000 CDSRECLN DS CL2 . LENGTH OF TEXT RECORD 36650000 CDSTTBLE DS A . TERMINAL TABLE ENTRY ADDRESS 36700000 CDSTINDX DS H . TERMNAME TABLE INDEX 36750000 DS CL142 . RESERVED @Y17XAX6 36800000 .EQUATES ANOP 36850000 TOTWAITI DS D WAITIO TIME INTERVAL 36900000 TOTGRABP DS F CURRENT SECONDARY DEVICE POINTER 36950000 TOTAPNAM DS CL8 ALTERNATE PRINTER NAME IN EBCDIC 37000000 TOTOLTEN DS F ENTRY POINT ADDRESS OF OLT 37050000 TOTWAWRK DS 20F . IEDQWA WORK AREA @Y17XAXU 37100000 TOTWOWRK DS 35F IEDQWO WORK SPACE SA41602 37150000 DS CL52 RESERVED FOR MAINTENANCE @Y17XAXU 37200000 TOTSERV DS 0CL454 . START OF SERVICE ROUTINES @Y17XAXU 37250000 * WORK AREA @Y17XAXU 37300000 ************************************************************** @Y17XAXU 37350000 * * @Y17XAXU 37400000 * THE LABEL 'TOTSERV' DEFINES THE START OF THE SERVICE* @Y17XAXU 37450000 * ROUTINE WORK AREA. IT'S PURPOSE IS TO PROVIDE * @Y17XAXU 37500000 * PRE TCAM 10.0 SERVICE ROUTINES A MEANS OF BEING * @Y17XAXU 37550000 * REENTRANT . MODIFIABLE DATA AREAS ARE MOVED TO THIS * @Y17XAXU 37600000 * WORK SPACE. SERVICE MODULES WHICH USE THIS AREA * @Y17XAXU 37650000 * SHOULD DEFINE IN A DSECT FASHION (DO NOT INCLUDE A * @Y17XAXU 37700000 * DSECT STATEMENT) THEIR MODIFIABLE DATA AREAS. THE * @Y17XAXU 37750000 * MODIFIABLE AREA WILL BECOME A CONTINUATION OF THIS * @Y17XAXU 37800000 * DSECT (OLTCB) AND SHOULD BE PLACED IMMEDIATELY * @Y17XAXU 37850000 * BEHIND THE OLTCB MACRO STATEMENT. * @Y17XAXU 37900000 * * @Y17XAXU 37950000 ************************************************************** @Y17XAXU 38000000 .MEND ANOP 38050000 TOTOBEND DS 0F . END OF OLTCB @Y17XAX6 38100000 MEND , */ 38150000 %OLTCBPLS: ; 38200000 /* */38250000 /* ON-LINE TEST CONTROL BLOCK FOR PLS MODULES */38300000 /* */38350000 /* STATUS = VERSION 10.0 @Y17XAXU*/38400000 /* */38450000 DECLARE 38500000 1 TOTOLTCB BASED (OLTCBPTR) BDY(DWORD), /* @Y17XAX6*/ 38550000 %IF PONTER^='YES' %THEN 38600000 %GOTO BYP001; 38650000 2 TOTOBPTR, 38700000 3 TOTELKEY CHAR(1), /* OLTCB QUEUE */38750000 /* ELEMENT KEY */38800000 3 TOTELQCB PTR(24), /* ADDRESS OF OLTCB */38850000 /* QCB */38900000 3 * CHAR(1), /* UNUSED */38950000 3 TOTELLNK PTR(24), /* OLTCB QUEUE */39000000 /*ELEMENT LINK FIELD*/39050000 /* */39100000 /* SECTION CONTROL TABLE MAPPING */39150000 /* */39200000 %BYP001: ; 39250000 2 $SCTTBLE BDY(WORD), /* SECTION CONTROL 39300000 TABLE @Y17XAX6*/39350000 3 $ERRLPCT FIXED(15) BDY(HWORD), /* LOOP ON ERROR 39400000 COUNT @Y17XAX6*/39450000 3 $TESTOPT CHAR(1), /* TEST OPTION FIELD @Y17XAX6*/ 39500000 4 * BIT(5), /* UNUSED */39550000 4 $NOPRT BIT(1), /* X'04'- NO PRINT 39600000 OPTION FLAG @Y17XAX6*/ 39650000 4 $INDEFLP BIT(1), /* X'02'- INDEFINITE 39700000 ERROR LOOP FLAG @Y17XAX6*/ 39750000 4 $FSTCOMM BIT(1), /* X'01'-FIRST ERROR 39800000 COMMUNICATION FLAG @Y17XAX6*/39850000 3 $ERROPT CHAR(1), /* ERROR AND OPTION 39900000 FIELD @Y17XAX6 */39950000 4 $TESTERR BIT(1), /* X'80'- TEST ERROR @Y17XAX6*/40000000 4 $ASTERIK BIT(1), /* X'40'- PRINT ASTERIK ON 40050000 TERMINATE MSG FLAG @Y17XAX6 */40100000 4 $CATERR BIT(1), /* X'20'-CATASTROPHIC ERROR 40150000 FLAG @Y17XAX6*/ 40200000 4 $ALTPRNT BIT(1), /* X'10'- ALTERNATE PRINTER 40250000 OPTION FLAG @Y17XAX6*/ 40300000 4 $NOCNTRL BIT(1), /* X'08'- NO CONTROL PRINT 40350000 OPTION @Y17XAX6*/ 40400000 4 $NERRPRT BIT(1), /* X'04'- NO ERROR PRINT 40450000 OPTION FLAG @Y17XAX6*/ 40500000 4 $LOOPERR BIT(1), /* X'02'- LOOP ON ERROR 40550000 OPTION FLAG @Y17XAX6*/ 40600000 4 $LOOPTST BIT(1), /* X'01'- LOOP ON TEST 40650000 ENTRY OPTION FLAG @Y17XAX6*/ 40700000 3 $RT0108 CHAR(1) BDY(BYTE), /* ROUTINE MASK 1 40750000 THROUGH 8 @Y17XAX6 */40800000 3 $RT0916 CHAR(1), /* ROUTINE MASK 9 40850000 THROUGH 16 @Y17XAX6*/ 40900000 3 $DRIVER CHAR(1), /* DRIVER @Y17XAX6*/ 40950000 3 $SPARE1 CHAR(1) BDY(BYTE), /* UNUSED @Y17XAX6*/41000000 3 $TSSSYM CHAR(2) BDY(HWORD), /* RESERVED FOR TSS @Y17XAX6*/41050000 3 $PDEVFLG CHAR(1), /* PRIMARY DEVICE 41100000 FLAGS @Y17XAX6*/41150000 4 $FPMOLD BIT(1), /* X'80'- FILE 41200000 PROTECT FLAG @Y17XAX6*/ 41250000 4 $EXFILPT BIT(1), /* X'40'- ADDITIONAL 41300000 FILE PROTECT FLAG @Y17XAX6*/ 41350000 4 $TSSSYS1 BIT(1), /* X'20'- RESERVED 41400000 FOR TSS @Y17XAX6*/ 41450000 4 $LASTDEV BIT(1), /* X'10'- LAST 41500000 DEVICE OF SUBSYSTEM FLAG @Y17XAX6*/ 41550000 4 * BIT(1), /* X'08'- SPARE */41600000 4 $TERMNDX BIT(1), /* X'04'- RESERVED 41650000 FOR TSS @Y17XAX6*/ 41700000 4 $PATHDEF BIT(1), /* X'02'- RESERVED 41750000 FOR TSS @Y17XAX6*/ 41800000 4 $LASTSUB BIT(1), /* X'01'- LAST 41850000 DEVICE OF LAST SUBSYSTEM FLAG @Y17XAX6*/ 41900000 3 $CDSFLGS CHAR(1), /* DEVICE FLAGS FROM 41950000 CDS FLAG BYTE @Y17XAX6*/ 42000000 4 $FPM BIT(1), /* X'80'- FILE 42050000 PROTECT FLAG @Y17XAX6*/ 42100000 4 $SHARED BIT(1), /* X'40'- SHARED 42150000 DEVICE FLAG @Y1XAX6*/ 42200000 4 $CEVOL BIT(1), /* X'20'- CE VOLUME 42250000 FLAG @Y17XAX6 */42300000 4 $EXTINTC BIT(1), /* X'10'- DEV ADDR 42350000 ASSOCIATED WITH EXT FLAG @Y17XAX6*/42400000 4 $SYMNAME BIT(1), /* X'08'- SYMBOLIC 42450000 NAME FLAG @Y17XAX6*/ 42500000 4 $TWOCHSW BIT(1), /* X'04'-TWO CHANNEL 42550000 SWITCH FLAG @Y17XAX6*/ 42600000 4 $CUSTSYM BIT(1), /* X'02'- CUSTOMER 42650000 ASSIGNED SYMBOLIC NAME FLAG @Y17XAX5*/ 42700000 4 $COMMCN BIT(1), /* X'01'- LINE 42750000 CONNECTION REQUIRED FLAG @Y17XAX6*/ 42800000 3 $PDEVADR PTR(31) BDY(WORD), /* PRIMARY DEVICE 42850000 ADDRESS @Y17XAX6*/ 42900000 3 $PDEVDSC CHAR(4), /* PRIMARY DEVICE 42950000 DESCRIPTORS @Y17XAX6*/ 43000000 3 $CDS8T19 CHAR(12) BDY(WORD), /* PRIMARY DEVICE 43050000 CDS BYTE8 8 THROUGH 19 @Y17XAX6*/ 43100000 3 $RMSKCNT CHAR(1), /* ROUTINE MASK 43150000 COUNT LENGTH @Y17XAX6*/ 43200000 3 $EXECFLG CHAR(1), /* EXECUTIVE PROGRAM 43250000 FLAGS @Y17XAX6 */ 43300000 4 $CECCMIN BIT(1), /* X'80'- REPLY IN 43350000 TO OUTSTANDING CECOM FLAG @Y17XAX6*/ 43400000 4 $MULTDEV BIT(1), /* X'40'- MORE THAN 43450000 ONE DEVICE ENTRY FLAG @Y17XAX6*/ 43500000 4 $RTNSLCT BIT(1), /* X'20'- OPERATOR 43550000 MADE ROUTINE SELECTION FLAG @Y17XAX6*/ 43600000 4 $ERRCNT BIT(1), /* X'10'- OPERATOR 43650000 SPECIFIED ERROR LOOP COUNT @Y17XAX6*/ 43700000 4 $LSTPDEV BIT(1), /* X'08'- DON'T 43750000 ASSIGN MORE PRIMARY DEVICES FLAG @Y17XAX6*/ 43800000 4 $CLEANUP BIT(1), /* X'04'- SECTION 43850000 ENTERED FOR CLEANUP FLAG @Y17XAX6*/ 43900000 4 $CTRLMOD BIT(1), /* X'02'- CONTROL 43950000 MODE AVAILABLE FLAG @Y17XAX6 */ 44000000 4 $QSCTMOD BIT(1), /* X'01'- QUIESCENT 44050000 MODE AVAILABLE FLAG @Y17XAX6*/ 44100000 3 $OLTSIZE FIXED(15) BDY(HWORD), /* OLT REGION SIZE @Y17XAX6*/44150000 3 $OLTFLGS CHAR(1), /* OLT FUNCTIONAL FLAGS @Y17XAX6*/ 44200000 4 $MANINTV BIT(1), /* X'80'- MANUAL 44250000 INTERVENTION ROUTINE FLAG @Y17XAX6*/ 44300000 4 $CLEANRT BIT(1), /* X'40'-OLT HAS 44350000 CLEANUP ROUTINE FLAG @Y17XAX6*/ 44400000 4 $RETAIN BIT(1), /* X'20'- RETAIN 44450000 IS ACTIVE FLAG @Y17XAX6*/ 44500000 4 $CONTCB BIT(1), /* X'10'-CONTINGENT 44550000 CONNECTION BROKEN FLAG @Y17XAX6*/ 44600000 4 $RETCODE BIT(1), /* X'08' @Y17XAX6 */44650000 4 $TRACE BIT(1), /* X'04' @Y17XAX6 */44700000 4 $LASTSEC BIT(1), /* X'02'- LAST 44750000 SECTION SCHEDULED FLAG @Y17XAX6*/ 44800000 4 * BIT(1), /* X'01'- UNUSED */ 44850000 3 * CHAR(1), /* UNUSED */44900000 3 $TOTFLG1 CHAR(1), /* TOTE 1ST FLAG BYTE @Y17XAX6*/44950000 4 $LINESHR BIT(1), /* X'80'- LINE CAN 45000000 BE SHARED FLAG @Y17XAX6*/ 45050000 4 $TDATBLK BIT(1), /* X'40'- TOTE 45100000 MESSAGE BLOCKING FLAG @Y17XAX6*/ 45150000 4 $TERMSEC BIT(1), /* X'20'- TRM REQUESTS 45200000 TEST IN BACKUP MODE @Y17XAX6*/ 45250000 4 $CTEQTT BIT (1), /* X'10'-CONTROL TERMINAL 45300000 AND TEST TERMINAL ARE ON SAME LINE @Y17XAX6*/ 45350000 4 * BIT(4), /* UNUSED S22024*/45400000 3 $TOTFLG2 CHAR(1) BDY(BYTE), /* TOTE 2ND FLAG 45450000 BYTE @Y17XAX6 */ 45500000 3 $R017024 CHAR(1), /* ROUTINE MASK 017 45550000 THRU 024 @Y17XAX6*/ 45600000 3 $R025032 CHAR(1), /* ROUTINE MASK 025 45650000 THRU 032 @Y17XAX6*/ 45700000 3 $R033040 CHAR(1), /* ROUTINE MASK 033 45750000 THRU 040 @Y17XAX6*/ 45800000 3 $R041048 CHAR(1), /* ROUTINE MASK 041 45850000 THRU 048 @Y17XAX6*/ 45900000 3 $R049056 CHAR(1), /* ROUTINE MASK 049 45950000 THRU 056 @Y17XAX6*/ 46000000 3 $R057064 CHAR(1), /* ROUTINE MASK 057 46050000 THRU 064 @Y17XAX6*/ 46100000 3 $R065072 CHAR(1), /* ROUTINE MASK 065 46150000 THRU 072 @Y17XAX6*/ 46200000 3 $R073080 CHAR(1), /* ROUTINE MASK 073 46250000 THRU 080 @Y17XAX6*/ 46300000 3 $R081088 CHAR(1), /* ROUTINE MASK 081 46350000 THRU 088 @Y17XAX6*/ 46400000 3 $R089096 CHAR(1), /* ROUTINE MASK 089 46450000 THRU 096 @Y17XAX6*/ 46500000 3 $R097104 CHAR(1), /* ROUTINE MASK 097 46550000 THRU 104 @Y17XAX6*/ 46600000 3 $R105112 CHAR(1), /* ROUTINE MASK 105 46650000 THRU 112 @Y17XAX6*/ 46700000 3 $R113120 CHAR(1), /* ROUTINE MASK 113 46750000 THRU 120 @Y17XAX6*/ 46800000 3 $R121128 CHAR(1), /* ROUTINE MASK 121 46850000 THRU 128 @Y17XAX6*/ 46900000 3 $R129136 CHAR(1), /* ROUTINE MASK 129 46950000 THRU 136 @Y17XAX6*/ 47000000 3 $R137144 CHAR(1), /* ROUTINE MASK 137 47050000 THRU 144 @Y17XAX6*/ 47100000 3 $R145152 CHAR(1), /* ROUTINE MASK 145 47150000 THRU 152 @Y17XAX6*/ 47200000 3 $R153160 CHAR(1), /* ROUTINE MASK 153 47250000 THRU 160 @Y17XAX6*/ 47300000 3 $R161168 CHAR(1), /* ROUTINE MASK 161 47350000 THRU 168 @Y17XAX6*/ 47400000 3 $R169176 CHAR(1), /* ROUTINE MASK 169 47450000 THRU 176 @Y17XAX6*/ 47500000 3 $R177184 CHAR(1), /* ROUTINE MASK 177 47550000 THRU 184 @Y17XAX6*/ 47600000 3 $R185192 CHAR(1), /* ROUTINE MASK 185 47650000 THRU 192 @Y17XAX6*/ 47700000 3 $R193200 CHAR(1), /* ROUTINE MASK 193 47750000 THRU 200 @Y17XAX6*/ 47800000 3 $R201208 CHAR(1), /* ROUTINE MASK 201 47850000 THRU 208 @Y17XAX6*/ 47900000 3 $R209216 CHAR(1), /* ROUTINE MASK 209 47950000 THRU 216 @Y17XAX6*/ 48000000 3 $R217224 CHAR(1), /* ROUTINE MASK 217 48050000 THRU 224 @Y17XAX6*/ 48100000 3 $R225232 CHAR(1), /* ROUTINE MASK 225 48150000 THRU 232 @Y17XAX6*/ 48200000 3 $R233240 CHAR(1), /* ROUTINE MASK 233 48250000 THRU 240 @Y17XAX6*/ 48300000 3 $R241248 CHAR(1), /* ROUTINE MASK 241 48350000 THRU 248 @Y17XAX6*/ 48400000 3 $R249255 CHAR(1), /* ROUTINE MASK 249 48450000 THRU 255 @Y17XAX6*/ 48500000 3 $RETMASK CHAR(1), /* RETURN CODE MASK @Y17XAX6*/ 48550000 3 * CHAR(1), /* SPARE */48600000 3 * CHAR (6), /* SPARE S05331*/ 48650000 3 $MSGIDAC CHAR (2), /* ACTIVE OLT ID @Y17XAX6*/ 48700000 3 $TABLE PTR(31) BDY(WORD), /* ADDRESS OF BRANCH 48750000 TABLE @Y17XAX6 */48800000 3 $PASS PTR(31) BDY(WORD), /* ADDRESS OF PASSON 48850000 AREA @Y17XAX6 */48900000 3 $EXT PTR(31) BDY(WORD), /* ADDRESS OF 48950000 EXTERNAL DATA @Y17XAX6*/ 49000000 3 * CHAR(24) BDY(WORD), /* SCT EXPANSION 49050000 AREA @Y17XAX6 */49100000 2 TOTSMGRT PTR(31), /* SERVICE MANAGER */49150000 /* RETURN SAVE */49200000 2 TOTSAVE1 CHAR(72) BDY(WORD), /* OLT SUBTASK 1ST */49250000 /* SAVE AREA */49300000 2 TOTSAVE2 CHAR(72) BDY(WORD), /* OLT SUBTASK 2ND */49350000 /* SAVE AREA */49400000 2 TOTSAVE3 CHAR(72) BDY(WORD), /* OLT SUBTASK 3RD */49450000 /* SAVE AREA */49500000 2 TOTSAVE4 CHAR(72) BDY(WORD), /* OLT SUBTASK 4TH */49550000 /* SAVE AREA */49600000 2 TOTSAVE5 BDY(WORD), /* OLT SUBTASK 5TH */49650000 3 * CHAR(44), /* SAVE AREA */49700000 3 TOTOLTPT PTR(31), 49750000 3 * CHAR(16), 49800000 3 TOTOLTEP PTR(31), 49850000 3 * CHAR(4), 49900000 2 TOTSAVE6 CHAR(72) BDY(WORD), /* OLT SUBTASK 6TH */49950000 /* SAVE AREA@Y17XAXU*/50000000 2 TOTWOSV1 PTR(31), /* IEDQWO LEV 1 */50050000 /* SAVE AREA@Y17XAXU*/50100000 2 TOTWOSV2 PTR(31), /* IEDQWO LEV 2 */50150000 /* SAVE AREA@Y17XAXU*/50200000 2 TOTWOSV3 PTR(31), /* IEDQWO LEV 3 */50250000 /* SAVE AREA@Y17XAXU*/50300000 2 TOTWOSV4 PTR(31), /* IEDQWO LEV 4 */50350000 /* SAVE AREA@Y17XAXU*/50400000 2 TOTSVEND CHAR(0), /* END OF TOTE SAVE AREAS @Y17XAX6*/ 50450000 2 TOTBKASN FIXED(15) BDY(HWORD), /* MAIN STORAGE */50500000 /* BLOCKS ASSIGNED */50550000 /* TO THIS OLT */50600000 2 TOTBKRQD FIXED(15) BDY(HWORD), /* MAIN STORAGE */50650000 /* BLOCKS REQUIRED */50700000 /* BY THIS OLT */50750000 2 TOTMMSPC CHAR(4) BDY(WORD), /* OLT UNUSED MAIN */50800000 /* STORAGE SPACE */50850000 /* @Y17XAXU*/ 50900000 /* SOURCE TERMINAL ENTRY @Y17XAXU*/ 50950000 /* @Y17XAXU*/ 51000000 2 TOTSRENT BDY(WORD), /* SRC TERMINAL ENTRY @Y17XAXU*/ 51050000 3 TOTSROFF FIXED(16), /* TTCIN OF SOURCE @Y17XAXU*/ 51100000 3 * CHAR(2), /* RESERVED @Y17XAXU*/ 51150000 3 TOTSRLCB PTR(31), /* SOURCE LCB ADDRESS @Y17XAXU*/ 51200000 /* */51250000 /* CONTROL TERMINAL ENTRY */51300000 /* */51350000 2 TOTCTENT BDY(WORD), /* CONTROL TERMINAL */51400000 /* ENTRY */51450000 3 TOTCTUCB FIXED(16), /* C.T. UCB ADDRESS */51500000 3 TOTCTOFF FIXED(16), /* OFFSET TO C.T. */51550000 /* TNT ENTRY */51600000 /* (DUMMY) @Y17XAXU*/51650000 3 TOTCROFF FIXED(16), /* OFFSET TO C.T. */51700000 /* TNT ENTRY */51750000 /* (REAL) @Y17XAXU*/51800000 3 TOTCRSID FIXED(16), /* C.T. NETWORK */ 51850000 /* ADDRESS @Y17XAXU*/ 51900000 3 TOTCTRLN CHAR (1), /* C.T. RELATIVE */51950000 /* LINE NUMBER */52000000 3 TOTCTLCB PTR(24), /* C.T. LCB ADDRESS */52050000 3 TOTCTTNT PTR(31), /* C.T. TERMINAL */52100000 /* NAME TABLE ENTRY*/52150000 /* ADDRESS (DUMMY) */52200000 3 TOTCRTNT PTR(31), /* CT TNT ADDRESS */52250000 /* (REAL ENTRY) */52300000 3 TOTCTTLN FIXED(15), /* LENGTH OF CT TTE */52350000 /* AREA */52400000 3 TOTCTFLG CHAR(1), /* CONTROL TERMINAL */52450000 /* FLAGS */52500000 4 TOTCTASN BIT(1), /* X'80'- S22024*/ 52550000 /* DUMMY EN-S22024*/ 52600000 /* TRY ASGN.S22024*/ 52650000 4 TOTCTORN BIT (1), /* X'40'- CTS22024*/ 52700000 /* ON 3705 S22024*/ 52750000 4 * BIT(5), /* RESERVED @Y17XAXU*/ 52800000 4 TOTCTSWD BIT(1), /* X'01' DIAL S22024*/ 52850000 3 TOTCTEND CHAR(0), /* END OF BASIC C.T. AREA @Y17XAX6*/ 52900000 3 TOTCTRNL CHAR (8), /* GROUP NAME S22024*/ 52950000 /* OF CT LINE S22024*/ 53000000 3 TOTCTNAM CHAR (9), /* CONTROL TERMINAL */53050000 /* NAME IN EBCDIC */53100000 2 TOTCTDFL CHAR (1), /* CONTROL TERMINAL */53150000 /* INITIAL CONDITIONS*/53200000 3 TOTCTTRM BIT(1), /* X'80'-TERMINAL */53250000 /* DEVICE FLAG */53300000 3 TOTCTLIN BIT (1), /* X'40'-LINE ADDRESS*/53350000 /* FLAG */53400000 3 * BIT(1), /* UNUSED */53450000 3 TOTCTGP BIT(1), /* X'10'-GENERAL POLL*/53500000 /* INITIALLY ACTIVE */53550000 /* ON TEST LINE */53600000 3 TOTCTLST BIT (1), /* X'08'-CT INITIALLY*/53650000 /* STOPPED */53700000 3 TOTCTHD BIT (1), /* X'04'-CT INITIALLY*/53750000 /* HELD */53800000 3 TOTCTIAC BIT (1), /* X'02'-CT INVITA- */53850000 /* TION LIST ENTRY */53900000 /* INITIALLY INACTIVE*/53950000 3 * BIT (1), /* UNUSED */54000000 2 * CHAR(3), /* RESERVED @Y17XAXU*/54050000 2 TOTCUTST, /* CONTROL INFO FOR */54100000 /* $CUTEST MACRO */54150000 3 TOTCUFLG CHAR(1), /* $CUTEST FLAGS */54200000 4 TOTCUDON BIT (1), /* X'80-CUTEST ISSUED*/54250000 4 TOTCUCUP BIT (1), /* X'40'-CUTEST CLEAN*/54300000 /* UP REQUIRED */54350000 4 * BIT (6), /* UNUSED */54400000 3 TOTCU#AD CHAR (1), /* $CUTEST NUMBER OF 54450000 CONTIGUOUS ADDRESS @Y16XAX6*/ 54500000 3 TOTCUCUU CHAR (2), /* $CUTEST STARTING */54550000 /* ADDRESS */54600000 3 TOTCUSAV CHAR (4), /* $CUTEST SAVE AREA */54650000 3 TOTCURS1 CHAR (1), /* $CUTEST CODE */54700000 /* PARAMETER */54750000 3 TOTCURS2 CHAR (1), /* $CUTEST HEX */54800000 /* CHANNEL ADDRESS */54850000 3 TOTCURS3 CHAR (1), /* $CUTEST RESERVED */54900000 /* BYTE 3 CODE */54950000 /* PARAMETER */55000000 3 TOTCURS4 CHAR (1), /* $CUTEST RESERVED */55050000 /* BYTE 4 CODE */55100000 /* PARAMETER */55150000 2 TOTWOOPC CHAR(24), /* IEDQWO SA41602*/ 55200000 /* OP CNTRL SA41602*/ 55250000 /* PARM LISTSA41602*/ 55300000 2 TOTPLIST CHAR (24), /* OP CONTROL S22024*/ 55350000 /* PARM LIST S22024*/ 55400000 3 TOTOKEY CHAR(1), /* KEY S22024*/ 55450000 3 TOTOQCBA CHAR(3), /* QCB ADDR S22024*/ 55500000 3 TOTOPRI CHAR(1), /* PRIORITY S22024*/ 55550000 3 TOTOLINK CHAR(3), /* LINK FIELD S22024*/ 55600000 3 TOTOVBCD CHAR(1), /* VERB CODE S22024*/ 55650000 3 TOTOELNG CHAR(1), /* LENGTH S22024*/ 55700000 3 TOTORLN CHAR(1), /* RELATIVE S22024*/ 55750000 /* LINE NO S22024*/ 55800000 3 TOTORTCD CHAR(1), /* RETURN CODES22024*/ 55850000 3 TOTOECBA CHAR(4), /* ECB ADDR S22024*/ 55900000 4 TOTOFLG CHAR(1), /* FLAG BYTE 55950000 @YM08136*/ 56000000 5 TOTOATTC BIT(1), /* USE ALTERNATE TTCIN 56050000 @YM08136*/ 56100000 5 * BIT(7), /* UNUSED @YM08136*/ 56150000 4 * CHAR(3), /* UNUSED @YM08136*/ 56200000 3 TOTOLADR CHAR(8), /* TERM NAME S22024*/ 56250000 /* OR LINE S22024*/ 56300000 /* ADDRESS S22024*/ 56350000 2 TOTOALTT FIXED(16), /* ALTERNATE TTCIN 56400000 @YM08136*/ 56450000 2 * CHAR (38), /* UNUSED @YM08136*/ 56500000 2 TOTOPCLN PTR(31), /* OP CONTROL S22024*/ 56550000 /* ECB ADDRESSS22024*/ 56600000 /* FOR CLEANUPS22024*/ 56650000 2 TOTUSCOR PTR (31), /* CORE IN USES22024*/ 56700000 /* */56750000 /* ALTERNATE PRINTER ENTRY */56800000 /* */56850000 2 TOTAPENT BDY(WORD), /* ALTERNATE PRINTER*/56900000 /* ENTRY */56950000 3 TOTAPUCB FIXED(16), /* A.P. UCB ADDRESS */57000000 3 TOTAPOFF FIXED(16), /* OFFSET TO A.P. */57050000 /* TNT ENTRY */57100000 /* (DUMMY) @Y17XAXU*/57150000 3 TOTAROFF FIXED(16), /* OFFSET TO A.P. */57200000 /* TNT ENTRY */57250000 /* (REAL) @Y17XAXU*/57300000 3 TOTARSID FIXED(16), /* NETWORK ADDRESS */57350000 /* OF A.P. @Y17XAXU*/57400000 3 TOTAPRLN CHAR(1), /* A.P. RELATIVE */57450000 /* LINE NUMBER */57500000 3 TOTAPLCB PTR(24), /* A.P. LCB ADDRESS */57550000 3 TOTAPTNT PTR(31), /* A.P. TERMINAL */57600000 /* NAME TABLE ENTRY*/57650000 /* ADDRESS (DUMMY) */57700000 3 TOTARTNT PTR(31), /* AP TNT ADDRESS */57750000 /* (REAL ENTRY) */57800000 3 TOTAPTLN FIXED(15), /* LENGTH OF AP TTE */57850000 /* AREA */57900000 3 TOTAPFLG CHAR (1), /* A.P FLAGS S22024*/ 57950000 4 TOTAPASN BIT(1), /* X'80'- S22024*/ 58000000 /* DUMMY EN-S22024*/ 58050000 /* TRY ASGN.S22024*/ 58100000 4 TOTAPORN BIT (1), /* X'40'- APS22024*/ 58150000 /* ON 3705 S22024*/ 58200000 4 * BIT(5), /* RESERVED @Y17XAXU*/ 58250000 4 TOTAPSWD BIT(1), /* X'01' DIAL S22024*/ 58300000 3 TOTAPEND CHAR(0), /* END OF BASIC A.P. AREA @Y17XAX6*/ 58350000 3 TOTAPRNL CHAR (8), /*GROUP NAME S05331*/ 58400000 /* OF AP LINE S05331*/ 58450000 2 TOTAPDFL CHAR (1), /* ALTERNATE PRINTER*/ 58500000 /* INITIAL CONDITIONS*/58550000 3 TOTAPTER BIT (1), /* X'80'-TERMINAL */58600000 /* DEVICE FLAG */58650000 3 TOTAPLIN BIT (1), /* X'40'-LINE ADDRESS*/58700000 /* FLAG */58750000 3 * BIT (1), /* UNUSED */58800000 3 TOTAPGP BIT (1), /* X'10'-GENERAL POLL*/58850000 /* INITIALLY ACTIVE */58900000 /* ON TEST LINE */58950000 3 TOTAPLST BIT (1), /* X'08'-AP INITIALLY*/59000000 /* STOPPED */59050000 3 TOTAPHD BIT (1), /* X'04'-AP INITIALLY*/59100000 /* HELD */59150000 3 TOTAPIAC BIT (1), /* X'02'-AP INVITA- */59200000 /* TION LIST ENTRY */59250000 /* INITIALLY INACTIVE*/59300000 3 * BIT (1), /* UNUSED */59350000 2 * FIXED(31), /* UNUSED @ZM47554*/59370010 2 TOTAPDCB PTR (31), /* LOCAL S22024*/59600000 /* PRINTER S22024*/59650000 /* DCB ADDRESSS22024*/59700000 2 TOTPDECB CHAR(20) BDY(WORD), /* LOCAL PRINTER */59750000 /* DECB */59800000 2 TOTPARML PTR (31), /* ADDR OF SA41612*/ 59850000 /* PARM LIST SA41612*/ 59900000 /* FOR MACRO SA41612*/ 59950000 /* CALL SA41612*/ 60000000 2 TOTOLTMQ PTR(31), /* SUBTASK MESSAGE */60050000 /* QUEVE */60100000 2 TOTOTECB CHAR(4) BDY(WORD), /* TOTE SUBTASK ECB */60150000 2 TOTRESSV PTR(31), /* POINTER TO MOTHER*/60200000 /* TASK SAVE AREA */60250000 2 TOTTCBAD PTR(31), /* SUBTASK TCB ADDR */60300000 2 TOTCMPCD CHAR(4), /* SUBTASK */60350000 /* COMPLETION CODE */60400000 2 TOTOLTPL BDY(WORD), /* OLT INPUT */60450000 /* PARAMETER LIST */60500000 3 * CHAR (8), /* UNUSED */60550000 3 TOT#TBLE PTR(31), /* BRANCH TABLE ADDR @Y17XAX6*/ 60600000 2 TOTWTORP BDY(WORD), /* WTOR PARAMETER */60650000 /* LIST FOR */60700000 /* OPERATOR */60750000 /* COMMUNICATION */60800000 3 TOTINCNT PTR(8), /* REPLY BYTE COUNT */60850000 3 TOTINADR PTR(24), /* REPLY BUFFER ADDR*/60900000 3 TOTINECB PTR(31), /* REPLY ECB ADDRESS*/60950000 2 TOTWTOPL BDY(WORD), /* WTO & WTOR PARM */61000000 /* LIST FOR */61050000 /* OPERATOR */61100000 /* COMMUNICATION */61150000 3 * CHAR (1), /* UNUSED */61200000 3 TOTOTCNT PTR(8), /* OUT MESSAGE COUNT*/61250000 3 * CHAR (2), /* UNUSED */61300000 3 TOTOTBUF CHAR (84), /* OUTPUT AREA */61350000 /* BUFFER */61400000 3 TOTINBUF CHAR(80), /* REPLY BUFFER */61450000 2 TOTOLTID CHAR(2) BDY(HWORD), /* TOTE OLT */61500000 /* IDENTIFICATION */61550000 2 TOTRTCOD CHAR(1), /* SERVICE MODULE */61600000 /* RETURN CODE */61650000 2 * CHAR(1), /* UNUSED */61700000 2 TOTPLNKQ BDY(WORD), /* PLINK MODULE */61750000 /* QUEUE */61800000 3 TOTPLFWD PTR(31), /* QUEUE FORWARD */61850000 /* POINTER */61900000 3 TOTPLBKW PTR(31), /* QUEUE BACKWARD */61950000 /* POINTER */62000000 2 * CHAR(4), /* RESERVED @Y17XAX6*/ 62050000 2 TOTWKSPC CHAR(128) BDY(DWORD), /* TOTE WORK AREA */62100000 2 TOTWKEND CHAR(0), /* WORK SPACE END @Y17XAX6*/ 62150000 2 * CHAR (20), /* UNUSED */62200000 2 TOTAVTPT PTR (31), /* ADDRESS OF AVT */62250000 2 TOTSTAE PTR (31), /* ADDRESS OF S22024*/62300000 /* STAE EXIT S22024*/62350000 /* ROUTINE S22024*/62400000 2 TOTRESPL PTR(31), /* ADDRESS OF TOTE */62450000 /* RESIDENT */62500000 /* PARAMETER LIST */62550000 2 TOTFLG01 CHAR(1) ABNL, /* TOTE 1ST FLAG */62600010 /* BYTE @G36XRXV */62650010 3 TOTFINAL BIT (1), /* FINAL MSG S05331*/ 62700000 /* INDICATOR S05331*/ 62750000 3 TOTCONFG BIT (1), /* X'40'-CONFIGURA-*/ 62800000 /* RUN */ 62850000 3 TOTIPLCU BIT (1), /* X'20'-FORCES05331*/ 62900000 /* CLEANUP S05331*/ 62950000 /* FROM IPL S05331*/ 63000000 3 TOTEXIT BIT(1), /*X'10'- IEDQWO */ 63050000 /* CONTROL FLOW */63100000 /* FLAG @Y17XAXU*/63150000 3 TOTAPTST BIT(1), /* AP ON TEST LINE @Y17XAXU*/63200000 3 TOTPRMPT BIT (1), /* X'04'- S22024*/63250000 /* PROMPTER S22024*/63300000 /* RUN S22024*/63350000 3 TOTCLNST BIT(1) ABNL, /*CLEANUP STARTED @G36XRXV*/63400010 3 TOTCLNED BIT(1), /* CLEANUP ENDED @YM08158*/63450000 2 TOTFLG02 CHAR(1), /* TOTE 2ND FLAG */63500000 /* BYTE */63550000 3 TOTTTSPE BIT(1), /* TEST SESSION @Y17XAXU*/63600000 /* PEND END @Y17XAXU*/63650000 3 TOTTSST BIT(1), /* CT/AP IN TEST MODE@Y17XAXU*/63700000 3 TOTDEV0X BIT(1), /* X'20'-TESTS22024*/ 63750000 /* DEVICE ON S22024*/ 63800000 /* 270X S22024*/ 63850000 3 TOTOLTRQ BIT(1), /* X'10'-ON- S22024*/ 63900000 /* LINE TEST S22024*/ 63950000 /* REQUEST S22024*/ 64000000 /* FLAG S22024*/ 64050000 3 TOTCHKSZ BIT(1), /* X'08'- UPDATE */64100000 /* SUBTASK STORAGE */64150000 /* ALLOCATION FLAG */64200000 3 TOTCONMD BIT (1), /* X'04'-GETSA41597*/ 64250000 /* CONC MOD SA41597*/ 64300000 /* FOR INIT SA41597*/ 64350000 /* STATUS SA41597*/ 64400000 /* SET UP SA41597*/ 64450000 3 TOTCONCU BIT(1), /* X'02'CONCSA41597*/ 64500000 /* CLEANUP SA41597*/ 64550000 /* REQUIRED SA41597*/ 64600000 3 TOTDEVRN BIT(1), /* X'01-TEST S22024*/ 64650000 /* DEVICE ON S22024*/ 64700000 /* 3705 S22024*/ 64750000 2 TOTFLG03 CHAR(1), /* TOTE 3RD FLAG */64800000 /* BYTE */64850000 3 TOTAPOER BIT(1), /* X'80'- ALTERNATE */64900000 /* PRINTER OPTION */64950000 /* ERROR FLAG */65000000 3 TOTTDFER BIT(1), /* X'40'- TEST */65050000 /* DEVICE FIELD */65100000 /* ERROR FLAG */65150000 3 TOTTSTER BIT(1), /* X'20'- TEST ID */65200000 /* FIELD ERROR FLAG*/65250000 3 TOTOPTER BIT(1), /* X'10'- OPTION */65300000 /* FIELD ERROR FLAG*/65350000 3 TOTIMNCP BIT(1), /* X'08'- TEMPORARY */65400000 /* NO CONTROL PRINT*/65450000 /* FLAG */65500000 3 TOTTSINC BIT(1), /* X'04'- INCLUSIVE */65550000 /* TEST ID ENTRY */65600000 /* FLAG */65650000 3 TOTREPEX BIT(1), /* X'02'- SA41613*/ 65700000 /* REPLY SA41613*/ 65750000 /* EXPECTED SA41613*/ 65800000 /* FLAG SA41613*/ 65850000 3 * BIT (1), /* UNUSED S22024*/ 65900000 2 TOTFLG04 CHAR(1), /* TOTE 4TH FLAG */65950000 /* BYTE */66000000 3 TOTNUMDV BIT(1), /* X'80'- NUMERIC */66050000 /* TRM ENTRY FLAG */66100000 3 TOTDTCHD BIT(1), /* X'40'- SUBTASK */66150000 /* ALREADY DETACHED*/66200000 /* FLAG */66250000 3 TOTCLOSE BIT(1), /* X'20'- TCAM */66300000 /* CLOSEDOWN IN */66350000 /* PROGRESS FLAG */66400000 3 TOTPRCTF BIT (1),/*PRIMARY TEST DEVICE COUNTERFEIT 66450000 @YM08407*/ 66500000 3 TOTSCCTF BIT (1),/* SECONDARY TEST DEVICE COUNTERFEIT 66550000 @YM08407*/ 66600000 3 * BIT (1), /* UNUSED S22024*/ 66650000 3 * BIT (1), /* UNUSED S22024*/ 66700000 3 TOTTTSWT BIT(1), /* X'01'- TEST */66750000 /* TERMINAL LINE */66800000 /* SWITCHED FLAG */66850000 2 TOTFLG05 CHAR(1), /* TOTE 5TH FLAG */66900000 /* BYTE */66950000 3 TOTPRINT BIT(1), /* X'80'- ACCESS */67000000 /* METHOD PRINT */67050000 /* FLAG */67100000 3 TOTCECOM BIT(1), /* X'40'- ACCESS */67150000 /* METHOD CECOM */67200000 /* FLAG */67250000 3 TOTREPLY BIT(1), /* X'20'- ACCESS */67300000 /* METHOD CECOM */67350000 /* WITH REPLY FLAG */67400000 3 TOTSRCE BIT(1), /* SEND MSG TO SOURCE @Y17XAXU*/ 67450000 3 TOTSRCON BIT(1), /* TRM ENTERED FROM SRC @Y17XAXU*/ 67500000 3 TOTTMOUT BIT(1), /* X'04'- WAIT */67550000 /* TIMEOUT FLAG */67600000 3 TOTEXIOF BIT(1), /* X'02'- ACCESS */67650000 /* METHOD EXIO FLAG*/67700000 3 TOTNDMSG BIT(1), /* X'01'- SEND */67750000 /* CANCEL OR */67800000 /* TERMINATE */67850000 /* MESSAGE FLAG */67900000 2 TOTFLG06 CHAR(1), /* TOTE 6TH FLAG */67950000 /* BYTE */68000000 3 TOTOTERM BIT(1), /* X'80'-SECTION */68050000 /* TERMINATE FLAG */68100000 3 TOTCBOPN BIT(1), /* X'40'-CANCEL */68150000 /* BEFORE OPEN */68200000 3 TOTWACAN BIT(1), /* X'20'-CANCEL */68250000 /* REQUEST PENDING */68300000 3 TOTNCMFG BIT(1), /* X'10'-NON-CONCUR-*/68350000 /* RENT MODE FLAG */68400000 3 TOTABEND BIT(1), /* X'08'- OLT HAS */68450000 /* ABENDED FLAG */68500000 3 TOTCANCL BIT(1), /* X'04'- CANCEL */68550000 /* TESTING FLAG */68600000 3 TOTOTACT BIT(1), /* X'02'- OLT ACTIVE*/68650000 /* FLAG */68700000 3 TOTNPERR BIT(1), /* X'01'- NO PERMA- */68750000 /* NENT ERROR FLAG */68800000 2 TOTFLG07 CHAR(1), /* TOTE 7TH FLAG */68850000 /* BYTE */68900000 3 TOTPRIEX BIT(1), /* X'80'- PRIMARY */68950000 /* DEVICE FOR */69000000 /* EXIO/WAITIO FLAG*/69050000 3 TOTSECEX BIT(1), /* X'40'- SECONDARY */69100000 /* DEVICE FOR */69150000 /* EXIO/WAITIO FLAG*/69200000 3 * BIT (1), /* UNUSED S22024*/ 69250000 3 * BIT (1), /* UNUSED */69300000 3 TOTMSCEC BIT(1), /* X'08'- TOTE */69350000 /* MESSAGE SOURCE */69400000 /* FLAG - CECOM */69450000 3 TOTMSREP BIT(1), /* X'04'- TOTE */69500000 /* MESSAGE SOURCE */69550000 /* 'FLAG - CECOM */69600000 3 TOTMSPRT BIT(1), /* X'02'- TOTE */69650000 /* MESSAGE SOURCE */69700000 /* FLAG - CECOM */69750000 3 TOTMSSRC BIT(1), /* TOTE MESSAGE SOURCE FLAG @Y17XAX6*/69800000 2 TOTFLG08 CHAR(1), /* TOTE 8TH FLAG */69850000 /* BYTE */69900000 3 TOTFMCTL BIT(4), /* BITS 0-3 ARE */69950000 /* DPRINT FORMS */70000000 /* CONTROL FLAGS */70050000 3 * BIT(4), /* BITS 4-7 ARE */70100000 /* DPRINT LEVEL */70150000 /* CONTROL FLAGS */70200000 2 TOTFLG09 CHAR(1), /* TOTE 9TH FLAG */70250000 /* BYTE */70300000 3 TOTAPCON BIT(1), /* X'80'- PRINTER = */70350000 /* SYSTEM CONSOLE */70400000 /* FLAG */70450000 3 TOTAPOUT BIT(1), /* X'40'- PRINTER = */70500000 /* SYSTEM PRINTER */70550000 /* FLAG */70600000 3 TOTCTCON BIT(1), /* X'20'- CONTROL */70650000 /* TERMINAL = SYS */70700000 /* CONSOLE FLAG */70750000 3 TOTAPTRM BIT(1), /* X'10'- PRINTER = */70800000 /* TERMINAL FLAG */70850000 3 TOTNOBRK BIT (1), /* X'08' - NO S22024*/ 70900000 /* BREAK OPT S22024*/ 70950000 3 TOTLNCON BIT (1), /* X'04'-LINE S22024*/ 71000000 /* CONN DONE S22024*/ 71050000 3 TOTPRECT BIT(1), /* X'02'- NO */71100000 /* ALTERNATE */71150000 /* PRINTER FLAG */71200000 3 TOTMACFT BIT(1), /* X'01'-UN- S22024*/ 71250000 /* SUPPORTED S22024*/ 71300000 /* MACRO S22024*/ 71350000 /* FUNCTION S22024*/ 71400000 2 TOTFLG10 CHAR(1), /* TOTE 10TH FLAG */71450000 /* BYTE */71500000 3 TOTTERMS BIT(1), /* X'80'- TEST */71550000 /* DEVICES=TERMINAL*/71600000 /* FLAG */71650000 3 * BIT (1), /* UNUSED S22024*/ 71700000 3 * BIT (1), /* UNUSED S22024*/ 71750000 3 * BIT (1), /* UNUSED S22024*/ 71800000 3 TOTTNTRQ BIT(1), /* X'08'- DUMMY TNT */71850000 /* ENTRY REQUEST */71900000 /* FLAG */71950000 3 TOTOLTED BIT(1), /* X'04'- ON-LINE */72000000 /* TEST ENDED FLAG */72050000 3 TOTOLTWT BIT(1), /* X'02'- ON-LINE */72100000 /* TEST WAITING */72150000 /* FLAG */72200000 3 TOTOLTRS BIT(1), /* X'01'- ON-LINE */72250000 /* TEST RESTART */72300000 /* FLAG */72350000 2 TOTTTBEL PTR(8), /* TERMINAL NAME */72400000 /* TABLE ENTRY NAME*/72450000 /* LENGTH */72500000 2 * CHAR (1), /* RESERVED */72550000 %IF CONFG='YES' %THEN 72600000 %GOTO CNFBYP; 72650000 2 TOTEXT CHAR(56) BDY(WORD), /* EXTERNAL DATA */72700000 /* BUFFER */72750000 2 TOTPASS CHAR(64) BDY (WORD), /* PASSON DATA */72800000 /* BUFFER */72850000 2 TOTPRECB CHAR(4), /* PRIMARY ECB */72900000 3 TOTPRIBK CHAR(4), /* PRIMARY TEST */72950000 /* DEVICE I/O */73000000 /* CONTROL BLOCKS */73050000 4 TOTTRMBF CHAR(4), /* TRM BUFFER FOR */73100000 /* TRM ANALYSIS @Y17XAX6*/ 73150000 /* */73200000 /* PRIMARY TEST DEVICE ENTRY */73250000 /* */73300000 2 TOTPRENT BDY(WORD), /* TOTE PRIMARY TEST*/73350000 /* DEVICE ENTRY */73400000 3 TOTPRUCB FIXED(16), /* PRIMARY DEVICE */73450000 /* UCB ADDRESS */73500000 3 TOTPCOFF FIXED(16), /* OFFSET TO SECOND */73550000 /* TNT ENTRY */73600000 /* (DUMMY) @Y17XAXU*/73650000 3 TOTPROFF FIXED(16), /* OFFSET TO PRIMARY*/73700000 /* TNT ENTRY */73750000 /* (REAL) @Y17XAXU*/73800000 3 TOTPRSID FIXED(16), /* NETWORK ADDRESS */73850000 /* OF PRI @Y17XAXU*/73900000 3 TOTPRRLN CHAR(1), /* PRIMARY DEVICE */73950000 /* RELATIVE LINE */74000000 /* NUMBER */74050000 3 TOTPRLCB PTR(24), /* 3705 LCB @Y17XAX6*/74100000 /* ADDRESS @Y17XAXU*/74150000 3 TOTPDTNT PTR(31), /* PRIMARY TNT */74200000 /* ADDRESS */74250000 /* (DUMMY) @Y17XAXU*/74300000 3 TOTTNTPR PTR(31), /* PRIMARY TERMINAL */74350000 /* TNT ADDRESS -REAL*/74400000 3 TOTPRLEN FIXED(15), /* PRIMARY TTE AREA */74450000 /* LENGTH @Y17XAXU*/74500000 3 TOTPRFLG CHAR(1), /* PRIMARY */74550000 /* FLAGS @Y17XAXU*/74600000 4 TOTPRTAS BIT(1), /* PRIMARY TNT */74650000 /* ASSIGNED @Y17XAXU*/74700000 4 TOTPRLU BIT(1), /* LU TERM @Y17XAXU*/74750000 4 TOTPPRSC BIT(1), /* ON=PRIMARY, OFF=SECONDARY @Y17XAX6*/ 74800000 4 TOTPUNRD BIT(1), /* ON=UNREAD DATA, OFF=NO UNREAD DATA @Y17XAX6*/74850000 4 TOTPREX BIT(1), /* EXCEPTION RESPONSE @Y17XAX6*/ 74900000 4 TOTPRFME BIT(1), /* DEFINITE RESPONSE @Y17XAX6*/ 74950000 4 TOTPEXNM BIT(1), /* ON=EXPEDITED, OFF=NORMAL @Y17XAX6*/ 75000000 4 * BIT(1), /* RESERVED @Y17XAX6*/75050000 3 * CHAR(1), /* RESERVED @Y17XAXU*/75100000 3 TOTPRQCB PTR (31), /* PRIMARY QCBS22024*/75150000 /* ADDRESS S22024*/75200000 3 TOTPRCCW PTR (31), /* ADDRESS OF S22024*/75250000 /* READ CCW S22024*/75300000 /* FOR PRIMARYS22024*/75350000 /* TEST DEVICES22024*/75400000 3 TOTPRBUF PTR (31), /* ADDRESS OF S22024*/75450000 /* BUFFER CON-S22024*/75500000 /* TAINING S22024*/75550000 /* READ DATA S22024*/75600000 /* FOR PRIMARYS22024*/75650000 /* TTE AREA */75700000 /* */75750000 /* PRIMARY DEVICE DATA BLOCKING FIELD */75800000 /* */75850000 2 TOTPDTBF POINTER (31), /* RESPONSE BUFFER */75900000 /* ADDRESS */75950000 2 TOTPDTCT FIXED (15), /* RESPONSE BUFFER */76000000 /* SIZE */76050000 2 TOTPFLGS CHAR (1), /* FLAGS */76100000 2 * CHAR (1), /* UNUSED @ZM47554 */76150010 2 TOTPRSN CHAR(4) BDY(WORD), /* PRIMARY SEQ */76155010 /* NUMBER FIELD */76160010 /* @ZM47554 */76165010 3 * CHAR(2), /* FLAGS @ZM47554 */76170010 3 TOTPRSEQ FIXED(16), /* SEQUENCE NUMBER */76175010 /* (IN SNA TH ) */76180010 /* @ZM47554 */76185010 2 TOTPTECB PTR(31), /* PRIMARY TECB ADDR*/76200000 2 TOTPRIOB CHAR (44), /* PRIMARY S22024*/ 76250000 /* IOB S22024*/ 76300000 2 TOTPRDCB CHAR (72) BDY(WORD), /* PRIMARY DCB @Y17XAX6*/ 76350000 3 * CHAR (44), /* UNUSED S22024*/ 76400000 3 TOTPRDEB PTR (31), /* PRIMARY S22024*/ 76450000 /* DEB ADDR S22024*/ 76500000 2 TOTSCECB CHAR(4), /* SECONDARY ECB */76550000 3 TOTSCIBK CHAR(4), /* SECONDARY TEST */76600000 /* DEVICE I/O */76650000 /* CONTROL BLOCKS */76700000 /* */76750000 /* SECONDARY TEST DEVICE ENTRY */76800000 /* */76850000 2 TOTSCENT BDY(WORD), /* TOTE SECONDARY */76900000 /* TEST DEVICE */76950000 /* ENTRY */77000000 3 TOTSCUCB FIXED(16), /* SECONDARY DEVICE */77050000 /* UCB ADDRESS */77100000 3 TOTNCOFF FIXED(16), /* OFFSET TO */77150000 /* SECONDARY TNT */77200000 /* ENTRY */77250000 /* (DUMMY) @Y17XAXU*/77300000 3 TOTSCOFF FIXED(16), /* OFFSET TO */77350000 /* SECONDARY TNT */77400000 /* ENTRY */77450000 /* (REAL) @Y17XAXU*/77500000 3 TOTSRSID FIXED(16), /* NETWORK ADDRESS */77550000 /* OF SEC @Y17XAXU*/77600000 3 TOTSCRLN CHAR(1), /* SECONDARY DEVICE */77650000 /* RELATIVE LINE */77700000 /* NUMBER */77750000 3 TOTSCLCB PTR(24), /* 3705 LCB @Y17XAX6*/77800000 /* ADDRESS @Y17XAXU*/77850000 3 TOTSDTNT PTR(31), /* SECONDARY */77900000 /* TNT ENTRY */77950000 /* ADDRESS @Y17XAXU*/78000000 /* (DUMMY) @Y17XAXU*/78050000 3 TOTSRTNT PTR(31), /* SECONDARY */78100000 /* TERMINAL TNT ADDR*/78150000 /* (REAL ENTRY) */78200000 3 TOTSCLEN FIXED(15), /* SECONDARY TTE */78250000 /* AREA LEN @Y17XAXU*/78300000 3 TOTSCFLG CHAR(1), /* SECONDARY */78350000 /* FLAGS @Y17XAXU*/78400000 4 TOTSCTAS BIT(1), /* SECONDARY TNT */78450000 /* ASSIGNED @Y17XAXU*/78500000 4 TOTSCLU BIT(1), /* LU TERM @Y17XAXU*/78550000 4 TOTSPRSC BIT(1), /* ON=PRIMARY, OFF=SECONDARY @Y17XAX6*/ 78600000 4 TOTSUNRD BIT(1), /* ON=UNREAD DATA, OFF=NO UNREAD DATA @Y17XAX6*/ 78650000 4 TOTSCEX BIT(1), /* EXCEPTION RESPONSE @Y17XAX6*/ 78700000 4 TOTSCFME BIT(1), /* DEFINITE RESPONSE @Y17XAX6*/ 78750000 4 TOTSEXNM BIT(1), /* ON=EXPEDITED, OFF=NORMAL @Y17XAX6*/ 78800000 4 * BIT(1), /* RESERVED @Y17XAX6*/78850000 3 * CHAR(1), /* RESERVED @Y17XAXU*/78900000 3 TOTSCQCB PTR (31), /* SECONDARY S22024*/78950000 /* QCB ADDRESSS22024*/79000000 3 TOTSCCCW PTR (31), /* ADDRESS OF S22024*/79050000 /* READ CCW S22024*/79100000 /* FOR SECON- S22024*/79150000 /* DARY TEST S22024*/79200000 /* DEVICE S22024*/79250000 3 TOTSCBUF PTR(31), /* ADDRESS OF S22024*/79300000 /* BUFFER CON-S22024*/79350000 /* TAINING S22024*/79400000 /* READ DATA S22024*/79450000 /* FOR SECON- S22024*/79500000 /* DARY TEST S22024*/79550000 /* DEVICE S22024*/79600000 /* */79650000 /* SECONDARY DEVICE DATA BLOCKING FIELD */79700000 /* */79750000 2 TOTSDTBF POINTER (31), /* RESPONSE BUFFER */79800000 /* ADDRESS */79850000 2 TOTSDTCT FIXED (15), /* RESPONSE BUFFER */79900000 /* SIZE */79950000 2 TOTSFLGS CHAR (1), /* FLAGS */80000000 2 * CHAR (1), /* UNUSED @ZM47554 */80050010 2 TOTSCSN CHAR(4) BDY(WORD), /* SECONDARY SEQ */80055010 /* NUMBER FIELD */80060010 /* @ZM47554 */80065010 3 * CHAR(2), /* FLAGS @ZM47554 */80070010 3 TOTSCSEQ FIXED(16), /* SEQUENCE NUMBER */80075010 /* (IN SNA TH ) */80080010 /* @ZM47554 */80085010 2 TOTSTECB CHAR(4), /* SECONDARY TECB */80100000 /* ADDRESS */80150000 2 TOTSCIOB CHAR (44), /* SECONDARY S22024*/ 80200000 /* IOB S22024*/ 80250000 2 TOTSCDCB CHAR (72) BDY(WORD), /* SECONDARY DCB @Y17XAX6*/ 80300000 /* DCB S22024*/ 80350000 3 * CHAR (44), /* UNUSED S22024*/ 80400000 3 TOTSCDEB PTR (31), /* SECONDARY S22024*/ 80450000 /* DEB ADDR S22024*/ 80500000 2 TOTCROLT CHAR (8), /* CURRENT S22024*/ 80550000 /* OLT ID S22024*/ 80600000 3 TOTTRMND CHAR (1), /* END OF S22024*/ 80650000 /* TRM BUFFERS22024*/ 80700000 2 TOTOLTTB (10) CHAR(3), /* OLT ID S22024*/ 80750000 /* TABLE S22024*/ 80800000 2 TOTOLTTE CHAR (0), /* END OF TABLE @Y17XAX6*/ 80850000 2 TOTCONTB (10) CHAR (1), /* CONC INITSA41597*/ 80900000 /* STAT TBL SA41597*/ 80950000 2 TOTCONCT CHAR (1), /* CONC STATSA41597*/ 81000000 /* FOR CT SA41597*/ 81050000 2 TOTCONAP CHAR (1), /* CONC STATSA41597*/ 81100000 /* FOR AP SA41597*/ 81150000 2 TOTCONND CHAR (0), /* END OF TABLE @Y17XAX6*/ 81200000 2 * CHAR (38), /* UNUSED SA41597*/ 81250000 2 TOTTDTBL (10) CHAR(4), /* TOTE TEST DEVICE */81300000 /* TABLE */81350000 3 * CHAR(1), 81400000 4 TOTTDTRM BIT(1), /* X'80'- TERMINAL */81450000 /* DEVICE FLAG */81500000 4 TOTTDLIN BIT(1), /* X'40' - LINE ADDR*/81550000 /* FLAG */81600000 4 TOTTDGRB BIT(1), /* X'20'-TEST DEVICE*/81650000 /* GRABBED FLAG */81700000 4 TOTTDORN BIT(1), /* X'10'-TEST S22024*/81750000 /* DEVICE ON S22024*/81800000 /* A 3705 S22024*/81850000 4 TOTTDLST BIT(1), /* X'08' - TEST */81900000 /* DEVICE INITIALLY*/81950000 /* STOPPED */82000000 4 TOTTDTHD BIT(1), /* X'04' - TEST */82050000 /* DEVICE INITIALLY*/82100000 /* HELD */82150000 4 TOTTDIAC BIT(1), /* X'02' - TEST */82200000 /* DEVICE INVITA- */82250000 /* TION LIST ENTRY */82300000 /* INITIALLY */82350000 /* INACTIVE */82400000 4 TOTTSWPM BIT(1), /*X'01'-SWITCHY06330*/ 82450000 /* HAS BEEN Y06330*/ 82500000 /* PERFORMED Y06330*/ 82550000 3 * CHAR (3), /* SKIP @Y17XAX6 */ 82600000 2 TOTTDEND CHAR(0), /* END OF TABLE @Y17XAX6*/ 82650000 /* */82700000 /* WAITIO ECB LIST */82750000 /* */82800000 2 TOTWECBA POINTER(31), /* POINTER TO ECB */82850000 /* FOR TEST DEVICE */82900000 2 TOTECBPT POINTER (31), /* POINTER TO */82950000 /* SUBTASK ECB */83000000 2 TOTTLCNT FIXED(15), /* TEST LOOP COUNT */83050000 2 * CHAR(2), /*RESERVED @Y17XAX6*/ 83100000 %GOTO MEND; 83150000 %CNFBYP: ; 83200000 2 * CHAR(4), /* RESERVED @Y17XAX6*/ 83250000 2 CDSREC CHAR(256) BDY(DWORD), /* CONFIGURATOR WORK*/83300000 /* AREA */83350000 3 CDSUNIT PTR(31), /* UNIT ADDRESS */83400000 4 CDSWORK CHAR (1), 83450000 3 CDSMODEL CHAR(1), /* MODEL */83500000 3 CDSFEAT CHAR(1), /* FEATURES */83550000 3 CDSCLASS CHAR(1), /* CLASS */83600000 3 CDSTYPE CHAR(1), /* TYPE DEVICE */83650000 3 CDSBYTES CHAR(1), /* BYTE COUNT */83700000 3 CDSFLAGS CHAR(1), /* FLAGS */83750000 4 CDSFPMOD BIT(1), /* X'80'- FILE */83800000 /* PROTECT MODE */83850000 /* FLAG */83900000 4 CDSDVSHR BIT(1), /* X'40'- DEVICE */83950000 /* SHARED WITH */84000000 /* ANOTHER SYSTEM */84050000 4 CDSFEVOL BIT(1), /* X'20'- F.E. */84100000 /* VOLUME MOUNTED */84150000 /* FLAG */84200000 4 CDSEXINT BIT(1), /* X'10'- EXTERNAL */84250000 /* INTERRUPT */84300000 /* POSSIBLE FLAG */84350000 4 CDSSYMNM BIT(1), /* X'08'- SYMBOLIC */84400000 /* ADDRESSING FLAG */84450000 4 CDSTWOCH BIT(1), /* X'04'- TWO */84500000 /* CHANNEL SWITCH */84550000 /* FLAG */84600000 4 CDSCUSYM BIT(1), /* X'02'- CUSTOMER */84650000 /* ASSIGNED */84700000 /* SYMBOLIC NAME */84750000 4 CDSLCNCT BIT(1), /* X'01'- LINE */84800000 /* CONNECTION */84850000 /* REQUIRED */84900000 3 CDSSIGNL CHAR(2), /* EXTERNAL SIGNAL */84950000 /* MASK */85000000 3 CDSNAME CHAR(8), /* SYMBOLIC */85050000 /* (ALTERNATE */85100000 /* MEMBER) NAME */85150000 4 CDSTCU CHAR(2), /* OR TCU FEATURES */85200000 4 CDSMISC CHAR(3), /* MISC */85250000 4 CDSRMASK CHAR(3), /* SECTION RUN MASK */85300000 3 CDSFXARA CHAR(4), /* EXTENDED FIXED */85350000 /* AREA */85400000 4 CDSFXLEN CHAR(1), /* LENGTH */85450000 4 CDSFXFLG CHAR(2), /* FLAGS */85500000 5 CDSSETMD BIT(1), /* X'80'- TWO BYTE */85550000 /* SET MODE */85600000 5 CDSAUTCL BIT(1), /* X'40'- AUTOCALL */85650000 /* FEATURE */85700000 5 CDSMPNT BIT(1), /* X'20'- SWITCHED */85750000 /* LINE */85800000 5 CDSMDROP BIT(1), /* X'10'- NON- */85850000 /* SWITCHED MULTI- */85900000 /* DROP LINE */85950000 5 CDSWTBSC BIT(1), /* X'08'- BSC WORLD */86000000 /* TRADE DATA SET */86050000 5 * BIT(11), /* UNUSED */86100000 4 CDSLNCON CHAR(1), /* LINE CONNECTION */86150000 /* CMD SEQ CODE */86200000 2 CDSINPUT CHAR(80), /* INPUT TO UNIT */86250000 /* CONFIGURATOR */86300000 /* AREA */86350000 3 CDSTCUTY CHAR(4), /* TCU TYPE (EBCDIC)*/86400000 4 CDSVAR CHAR (1), /* CDS VARIABLE */86450000 /* FIELD */86500000 3 CDSSYMBL CHAR(8), /* SYMBOLIC TERMINAL*/86550000 /* NAME (EBCDIC) */86600000 3 CDSTERM CHAR(4), /* TERMINAL TYPE */86650000 /* (EBCDIC) */86700000 3 CDSADAP CHAR(1), /* ADAPTER TYPE */86750000 4 CDSIBM3 BIT(1), /* X'80'- IBM III */86800000 4 CDSTTY1 BIT(1), /* X'40'- TTY I */86850000 4 CDSIBM2 BIT(1), /* X'20'- IBM II */86900000 4 CDSIBM1 BIT(1), /* X'10'- IBM I */86950000 4 * BIT(4), /* UNUSED */87000000 3 CDSLINE CHAR(1), /* LINE TYPE */87050000 4 * BIT(5), /* UNUSED */87100000 4 CDSSWAUT BIT(1), /* X'04'- SWITCHED */87150000 /* WITH AUTODIAL */87200000 4 CDSMP BIT(1), /* X'02'- LEASED */87250000 /* MULTIPOINT */87300000 4 CDSPTP BIT(1), /* X'01'- LEASED */87350000 /* POINT TO POINT */87400000 3 CDSCONN CHAR(1), /* LINE CONNECTION */87450000 /* CODE */87500000 4 * BIT(5), /* UNUSED */87550000 4 CDSDSAD0 BIT(1), /* X'04'- DISABLE, */87600000 /* SADZERO,ENABLE */87650000 /* OR DIAL */87700000 4 CDSDSMI BIT(1), /* X'02'- DISABLE, */87750000 /* SETMODE,ENABLE */87800000 /* OR DIAL FOR SDAI*/87850000 4 CDSDISEN BIT(1), /* X'01'-DISABLE, */87900000 /* ENABLE OR DIAL */87950000 3 CDSNPOLL CHAR(1), /* NUMBER OF POLLING*/88000000 /* CHARACTERS (AEX)*/88050000 3 CDSPOLL CHAR(7), /* POLLING CHARACTER*/88100000 3 CDSNADDR CHAR(1), /* NUMBER OF ADDRES-*/88150000 /* SING CHARACTERS */88200000 /* (HEX) */88250000 3 CDSADDR CHAR(10), /* ADDRESSING */88300000 /* CHARACTERS */88350000 3 * CHAR(1), /* UNUSED */88400000 3 CDSNDIAL CHAR(1), /* NUMBER OF DIAL */88450000 /* DIGITS */88500000 3 CDSDIAL CHAR(20), /* DIAL DIGITS */88550000 3 CDSNID CHAR(1), /* CPU ID LENGTH */88600000 3 CDSCPUID CHAR(15), /* CPU ID */88650000 3 CDSCODE CHAR (1), /* ADAPTER LINE CODE*/88700000 3 CDSCFLGS CHAR (1), /* RESERVED */88750000 3 CDSFNFLG CHAR(1), /* FUNCTION FLAGS */88800000 4 * BIT(4), /* UNUSED */88850000 4 CDSEXIBT BIT(1), /* X'08'-EXHIBIT */88900000 4 CDSDEL BIT(1), /* X'04'-DELETE */88950000 4 CDSADD BIT(1), /* X'02'-ADD */89000000 4 * BIT(1), /* UNUSED */89050000 3 CDSRETFL CHAR (1), /* RETURN CODE */89100000 4 * BIT(7), /* UNUSED */89150000 4 CDSINVLD BIT (1), /* X'01'- INVALID */89200000 2 CDSBLDL CHAR(40), /* BLDL LIST FOR */89250000 /* CONFIG DIRECTORY*/89300000 3 CDSMEMBR CHAR(8), /* MEMBER NAME */89350000 3 CDSTTRC CHAR(3), /* CESD RELATIVE TTR*/89400000 3 CDSTTRC4 CHAR(1), /* CESD RELATIVE TTR*/89450000 /* 4TH BYTE */89500000 3 CDSTTRD CHAR(3), /* DATA RELATIVE TTR*/89550000 3 CDSTTRD4 CHAR(1), /* DATA RELATIVE TTR*/89600000 /* 4TH BYTE */89650000 3 CDSTTRNS CHAR(4), /* RESERVED */89700000 3 CDSATTRB CHAR(2), /* ATTRIBUTES */89750000 3 CDSMAIN CHAR(3), /* MAIN STORAGE */89800000 /* REQUIREMENTS */89850000 3 CDSBLK1 CHAR(2), /* LENGTH OF FIRST */89900000 /* BLOCK */89950000 3 CDSEPADR CHAR(3), /* ENTRY POINT ADDR @Y17XAX6*/ 90000000 3 CDSTXBLK CHAR(3), /* FIRST TEXT BLOCK @Y17XAX6*/ 90050000 /* ORIGIN */90100000 3 CDSSSI CHAR(7), /* CDS SSI */90150000 2 CDSCESD CHAR(56) BDY(DWORD), /* CESD RECORD FOR */90200000 /* CONFIG PDS */90250000 3 CDSCESID CHAR(1), /* CESD ID */90300000 3 CDSCESPR CHAR(3), /* UNUSED */90350000 3 CDSESD01 CHAR(2), /* ESDID OF FIRST */90400000 /* ESD */90450000 3 CDSCESCT FIXED(15), /* COUNT */90500000 3 CDSCESNM CHAR(8), /* MEMBER NAME */90550000 3 CDSCESTY CHAR(1), /* TYPE */90600000 3 CDSCESAD PTR(24), /* ADDRESS */90650000 3 CDSCESGM CHAR(1), /* SEGMENT */90700000 3 CDSCESLN CHAR(3), /* ID AND LENGTH */90750000 3 CDSESD02 CHAR(16), /* SECOND ESD RECORD*/90800000 3 CDSESD03 CHAR(16), /* THIRD ESD RECORD */90850000 2 CDSCNTL CHAR(20), /* CONTROL RECORD */90900000 /* FOR CONFIG PDS */90950000 3 CDSCTLID CHAR(1), /* CONTROL ID */91000000 3 CDSCTLSP CHAR(3), /* UNUSED */91050000 3 CDSCNT01 CHAR(2), /* # BYTES FOLLOWING CCW @Y17XAX6*/91100000 3 CDSCNT02 CHAR(2), /* COUNT @Y17XAX6 */ 91150000 3 CDSCCW CHAR(8), /* CHANNEL CONTROL */91200000 /* WORD */91250000 3 CDSCESDI CHAR(2), /* CESD ENTRY */91300000 3 CDSRECLN CHAR (2), /* LENGTH OF TEXT */91350000 /* RECORD */91400000 2 CDSTTBLE PTR (31), /* TERMINAL TABLE */91450000 /* ENTRY ADDRESS */91500000 2 CDSTINDX FIXED(15), /* TERMNAME TABLE */91550000 /* INDEX */91600000 2 * CHAR (142), /* RESERVED @Y17XAX6*/ 91650000 %MEND: ; 91700000 2 TOTWAITI CHAR (8) BDY(DWORD), /* WAITIO TIME */ 91750000 /* INTERVAL */ 91800000 2 TOTGRABP PTR (31), /* CURRENT SECONDARY*/ 91850000 /* DEVICE POINTER */ 91900000 2 TOTAPNAM CHAR (8), /* ALTERNATE PRINTER*/ 91950000 /* NAME IN EBCDIC */ 92000000 2 TOTOLTEN PTR (31), /* ENTRY POINT */ 92050000 /* ADDRESS OF OLT */ 92100000 2 TOTWAWRK CHAR(80), /* IEDQWA WORK AREA @Y17XAUU*/ 92150000 2 TOTWOWRK CHAR (140), /* IEDQWO SA41602*/ 92200000 /* WORKAREA SA41602*/ 92250000 2 * CHAR (52), /* PATCH @Y17XAXU*/ 92300000 2 TOTSERV BDY(DWORD), /* START OF SERVICE @Y17XAXU*/ 92350000 /* ROUTINE WORK AREA @Y17XAXU*/ 92400000 2 TOTOBEND CHAR (0); /* @Y17XAX6*/ 92450000 DCL $TOTE BIT(8) CONSTANT('8A'X); /* TOTE ID @Y17XAX6 */ 92500000 %IF CONFG^='YES' %THEN %GOTO MEND1; 92550000 DCL CDSIBMTY BIT(8) CONSTANT('30'X); /* IBM TTY @Y17XAX6*/ 92600000 DCL CDSTTY2 BIT(8) CONSTANT('50'X); /* TTY II @Y17XAX6*/ 92650000 DCL CDSWTTY BIT(8) CONSTANT('60'X); /* WTC TTY @Y17XAX6*/ 92700000 DCL CDSSDA1 BIT(8) CONSTANT('70'X); /* SDA 1 @Y17XAX6*/ 92750000 DCL CDSSDA2 BIT(8) CONSTANT('90'X); /* SDA II @Y17XAX6*/ 92800000 DCL CDSSWTCH BIT(8) CONSTANT('03'X); /* SWITCHED WITHOUT 92850000 AUTODIAL @Y17XAX6*/92900000 DCL CDSLOCAL BIT(8) CONSTANT('05'X); /* LOCAL @Y17XAX6*/ 92950000 DCL CDSBYP BIT(8) CONSTANT('00'X); /* BYPASS @Y17XAX6*/ 93000000 DCL CDSDSMIT BIT(8) CONSTANT('03'X); /* DISABLE,SETMODE 93050000 ENABLE OR DIAL FOR SDA II @Y17XAX6*/ 93100000 DCL CDSDSAD1 BIT(8) CONSTANT('05'X); /* DISABLE, SADONE 93150000 ENABLE OR DIAL @Y17XAX6*/ 93200000 DCL CDSDSAD2 BIT(8) CONSTANT('06'X); /* DISABLE, SADTWO 93250000 ENABLE OR DIAL @Y17XAX6*/ 93300000 DCL CDSDSAD3 BIT(8) CONSTANT('07'X); /* DISABLE, SADFOUR 93350000 ENABLE OR DIAL @Y17XAX6*/ 93400000 DCL CDSCHNG BIT(8) CONSTANT('06'X); /* CHANGE @Y17XAX6*/ 93450000 DCL CDSNRML BIT(8) CONSTANT('00'X); /* NORMAL RETURN @Y17XAX6 */ 93500000 %MEND1: ; 93550000