SVTM TITLE ' SSCP -- ISTINCV4 -- ACTIVATE SWITCHED PU *00001000 ' 00002000 ISTINCV4 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ISTINCV4 77.299' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @00,@12,20(@13) 0001 00011000 BALR @12,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@12 0001 00014000 * /* MAINLINE CODE OF ISTINCV4 -- ACTIVATE SWITCHED PU*/ 0075 00015000 * 0075 00016000 * DO; 0075 00017000 */*** CRRMAINT PROCNM(ISTINCV4)COMP(VY)FUNC(SUB)RPHADD((NCSPLRPH)) * 00018000 **/ 0076 00019000 * 0076 00020000 */* ATBUILD (ISTRPH,ISTCRA,ISTPFCRR,ISTVYCRR) */ 0076 00021000 * RFY ISTLCCW ; 0076 00022000 * RFY ISTLCPB ; 0077 00023000 * RFY ISTZSAVE; 0078 00024000 * RFY ISTPFCRR; 0079 00025000 * RFY ISTCFCRR; 0080 00026000 * RFY ISTZCRR ; 0081 00027000 * RFY ISTASCRR; 0082 00028000 * RFY ISTAPCRR; 0083 00029000 * RFY ISTCRA ; 0084 00030000 * RFY ISTCNSTA; 0085 00031000 * RFY ISTVYCRR; 0086 00032000 */* END OF ATBUILD */ 0087 00033000 * /*** SET ENTERED BIT FOR THIS PROCEDURE ***/ 0087 00034000 *NCSPLRPH->RPHCRR->CRACRR->NINCV4 = '1'B; 0087 00035000 L @14,NCSPLRPH(,R1) 0087 00036000 L @14,RPHCRR(,@14) 0087 00037000 L @14,CRACRR(,@14) 0087 00038000 OI NINCV4(@14),B'01000000' 0087 00039000 * /*** CLEAR AND SET CURRENT PROCEDURE BIT ***/ 0088 00040000 *NCSPLRPH->RPHCRR->CRACRR->VYCCRT = '0'B; 0088 00041000 XC VYCCRT+1(11,@14),VYCCRT+1(@14) 0088 00042000 MVI VYCCRT(@14),B'00000000' 0088 00043000 *NCSPLRPH->RPHCRR->CRACRR->CINCV4 = '1'B; 0089 00044000 OI CINCV4(@14),B'01000000' 0089 00045000 * END; 0090 00046000 *GEN REFS(CV4WAPTR) ( USING @DATD,CV4WAPTR); 0091 00047000 USING @DATD,CV4WAPTR 00048000 *R15=REGSAPTR; /* SAVE THE CALLER'S REGISTER SAVEAREA POINTER */ 0092 00049000 LR R15,REGSAPTR 0092 00050000 *REGSAPTR=REGSAPTR-LENGTH(CV4REGSV); /* DECREMENT REG 13 BY 72 */ 0093 00051000 SL REGSAPTR,@CF00918 0093 00052000 *CV4SVBKP=R15; /* POINT THIS ROUTINE'S SAVEAREA TO THE CALLER'S */ 00053000 ST R15,CV4SVBKP(,REGSAPTR) 0094 00054000 *CV4SVFWP=ZERO; /* ZERO THIS ROUTINE'S SAVEAREA FORWARD POINTER */ 00055000 SLR @14,@14 0095 00056000 ST @14,CV4SVFWP(,REGSAPTR) 0095 00057000 *R15->CV4SVFWP=REGSAPTR; /* POINT CALLER'S SAVEAREA TO THIS SAVEAREA */ 00058000 ST REGSAPTR,CV4SVFWP(,R15) 0096 00059000 *CV4WAPTR=NXTAVAIL;/* GET THE NEXT AVAILABLE ADDRESS IN THE WORKAREA*/ 00060000 L @14,NCSPLWKA(,R1) 0097 00061000 L CV4WAPTR,NXTAVAIL(,@14) 0097 00062000 *CV4WAPTR=(CV4WAPTR+SEVEN)&MINUS8; /*ALIGN ON DOUBLEWORD*/ 0098 00063000 LA @00,7 0098 00064000 ALR @00,CV4WAPTR 0098 00065000 N @00,@CF00776 0098 00066000 LR CV4WAPTR,@00 0098 00067000 *NXTAVAIL=CV4WAPTR+@SIZDATD; /* RESET NEXT AVAILABLE BEYOND THIS 0099 00068000 * ROUTINE'S DYNAMIC AREA */ 0099 00069000 LR @00,CV4WAPTR 0099 00070000 AL @00,@SIZDATD 0099 00071000 ST @00,NXTAVAIL(,@14) 0099 00072000 *NCSPLPTR=R1; /* GET THE NCSPL ADDRESS */ 0100 00073000 LR NCSPLPTR,R1 0100 00074000 *RFY ISTNCSPL BASED(NCSPLPTR); 0101 00075000 * 0101 00076000 *CV4SWTCH = ZERO; /*INITIALIZE FLAGS OFF*/ 0102 00077000 MVI CV4SWTCH,X'00' 0102 00078000 *PURDTE = NCSPLRAD; /*GET PU RDTE ADDR*/ 0103 00079000 * 0103 00080000 L PURDTE,NCSPLRAD(,NCSPLPTR) 0103 00081000 *IF RPRONLIN = ON 0104 00082000 * THEN NOACTSW=ON; /*IF PU ONLINE,DO NOT ACTIVATE*/ 0104 00083000 TM RPRONLIN(PURDTE),B'00001000' 0104 00084000 BNO @RF00104 0104 00085000 OI NOACTSW,B'10000000' 0105 00086000 * ELSE IF NCSPLRAD=NCSPLRPT 0106 00087000 * THEN; /*COMMAND AGAINST PU*/ 0106 00088000 B @RC00104 0106 00089000 @RF00104 CLC NCSPLRAD(4,NCSPLPTR),NCSPLRPT(NCSPLPTR) 0106 00090000 BE @RT00106 0106 00091000 * ELSE IF NCSPL2IN=ON /*FIRST ACTIVATE OF SW SUBAREA*/ 0108 00092000 * & RCCRBISA ^=ON /*AND PU ISTATUS NOT ACTIVE*/ 0108 00093000 * THEN NOACTSW=ON; /*DO NOT ACTIVATE*/ 0108 00094000 TM NCSPL2IN(NCSPLPTR),B'10000000' 0108 00095000 BNO @RF00108 0108 00096000 TM RCCRBISA(PURDTE),B'10000000' 0108 00097000 BO @RF00108 0108 00098000 OI NOACTSW,B'10000000' 0109 00099000 * ELSE; 0110 00100000 * 0110 00101000 @RF00108 DS 0H 0111 00102000 *IF NOACTSW = ON 0111 00103000 * THEN R15 = FOUR; /*INDICATE NO ACTIVATE REQUIRED */ 00104000 @RT00106 DS 0H 0111 00105000 @RC00104 TM NOACTSW,B'10000000' 0111 00106000 BNO @RF00111 0111 00107000 LA R15,4 0112 00108000 * ELSE DO; /*ACTIVATE PU*/ 0113 00109000 B @RC00111 0113 00110000 @RF00111 DS 0H 0114 00111000 * RPRONLIN=ON; /*MARK PU RDTE ONLINE */ 0114 00112000 OI RPRONLIN(PURDTE),B'00001000' 0114 00113000 * RPRLIVE=ON; /*AND LIVE*/ 0115 00114000 OI RPRLIVE(PURDTE),B'00000001' 0115 00115000 * NCSACTV = ON; /*MARK STATUS CHANGED @X50BHKA*/ 00116000 OI NCSACTV(NCSPLPTR),B'10000000' 0116 00117000 * NCSAIMOD = ON; /*MARK STATUS NOW ACTIVE @X50BHKA*/ 00118000 OI NCSAIMOD(NCSPLPTR),B'10000000' 0117 00119000 * WRKRDTE = NCSPLRAD; /*GET PU RDTE ADDR*/ 0118 00120000 L WRKRDTE,NCSPLRAD(,NCSPLPTR) 0118 00121000 * RFY ISTRPRE BASED(WRKRDTE); 0119 00122000 * /*PROCESS LUS UNDER PU UNTIL END*/ 00123000 * /*OF SEGMENT OR NEXT PU REACHED*/ 00124000 * DO WHILE RPRENTED^= ON & EXITLOP1 = OFF; 0120 00125000 B @DE00120 0120 00126000 @DL00120 DS 0H 0121 00127000 * WRKRDTE = WRKRDTE + RPRELEN; /*GET ADDR NEXT ENTRY*/ 0121 00128000 AH WRKRDTE,RPRELEN(,WRKRDTE) 0121 00129000 * IF RPRENTRY > PURDTE->RPRENTRY 0122 00130000 * THEN /* -YES- @ZA26931*/ 00131000 CLC RPRENTRY(1,WRKRDTE),RPRENTRY(PURDTE) 0122 00132000 BNH @RF00122 0122 00133000 * IF RPRINV = OFF /* IS LU VALID ? @ZA26931*/ 00134000 * THEN DO; /* -YES- @ZA26931*/ 00135000 TM RPRINV(WRKRDTE),B'01000000' 0123 00136000 BNZ @RF00123 0123 00137000 * RPRPTHCT = ONE; /*SET PATH COUNT TO 1*/ 00138000 MVI RPRPTHCT(WRKRDTE),X'01' 0125 00139000 * IF RLURBISA = ON 0126 00140000 * THEN DO; /*ISTATUS IS ACTIVE*/ 0126 00141000 TM RLURBISA(WRKRDTE),B'10000000' 0126 00142000 BNO @RF00126 0126 00143000 * RPRONLIN = ON; /*MARK LU ONLINE*/ 0128 00144000 OI RPRONLIN(WRKRDTE),B'00001000' 0128 00145000 * RPRLIVE = ON; /*AND LIVE*/ 0129 00146000 OI RPRLIVE(WRKRDTE),B'00000001' 0129 00147000 * END; 0130 00148000 * ELSE; 0131 00149000 @RF00126 DS 0H 0132 00150000 * END; /*END LU PROCESSING*/ 0132 00151000 * ELSE; /* -NO- LU IS INVALID @ZA26931*/ 00152000 @RF00123 DS 0H 0134 00153000 * ELSE EXITLOP1 = ON; /*REACHED NEXT PU*/ 0134 00154000 B @RC00122 0134 00155000 @RF00122 OI EXITLOP1,B'01000000' 0134 00156000 * END; /*END OF DOWHILE*/ 0135 00157000 * 0135 00158000 @RC00122 DS 0H 0135 00159000 @DE00120 TM RPRENTED(WRKRDTE),B'00000100' 0135 00160000 BO @DC00120 0135 00161000 TM EXITLOP1,B'01000000' 0135 00162000 BZ @DL00120 0135 00163000 @DC00120 DS 0H 0136 00164000 * R15 = ZERO; /*INDICATE PU PROCESSED*/ 0136 00165000 SLR R15,R15 0136 00166000 * END; /*END ACTIVATE PU*/ 0137 00167000 * 0137 00168000 *NXTAVAIL = CV4WAPTR; /*RESTORE WORK AREA PTR*/ 0138 00169000 @RC00111 L @14,NCSPLWKA(,NCSPLPTR) 0138 00170000 ST CV4WAPTR,NXTAVAIL(,@14) 0138 00171000 *REGSAPTR = CV4SVBKP; /*RESTORE ADDR CALLERS SAVE AREA*/ 00172000 * 0139 00173000 L REGSAPTR,CV4SVBKP(,REGSAPTR) 0139 00174000 */* TPEPILOG */ 0140 00175000 * GEN (PRINT OFF); 0140 00176000 * 0140 00177000 PRINT OFF 00178000 */* PROGRAM OPERATOR MESSAGE HEADER */ 00179000 *DCL 1 ISTPOHD BDY(WORD) BASED, 0141 00180000 * 2 POHRSVD1 CHAR(1), /* RESERVED */ 00181000 * 2 POHSTAT, /* HEADER STATUS BITS */ 00182000 * 3 POHEND BIT(1), /* END LINE 1=YES */ 00183000 * 3 POHDATA BIT(1), /* DATA LINE 1=YES */ 00184000 * 3 POHLBL BIT(1), /* LABEL LINE 1=YES */ 00185000 * 3 POHCNTRL BIT(1), /* CONTROL LINE 1=YES */ 00186000 * 3 POHRSVD2 BIT(2), /* RESERVED */ 00187000 * 3 POHRREQ BIT(1), /* REPLY REQUESTED 1=YES */ 00188000 * 3 POHGEN BIT(1), /* ID ORIGIN 0=GENERATED BY VTAM */ 00189000 * /* 1=GENERATED BY POA */ 00190000 * 2 POHID FIXED(16); /* MESSAGE IDENTIFIER */ 00191000 */* VTAM PREFIX FOR QUEUE ELEMENTS * 00192000 */* INITIAL LEVEL 001 03/04/75 */ 00193000 *DECLARE 0142 00194000 * 1 ISTPFX BDY(WORD) BASED, 0142 00195000 * 2 PFXID CHAR(4), /* QUEUE ACRONYM (SAME AS 0142 00196000 * QABID) * 00197000 * 3 PFXCBID BIT(8), /* CONTROL BLOCK ID * 00198000 * 2 PFXPRTY CHAR(1), /* PRIORITY OF ELEMENT * 00199000 * 2 PFXLNG CHAR(3), /* ELEMENT LENGTH, 0142 00200000 * INCLUDING PREFIX * 00201000 * 2 PFXFWD PTR(31), /* POINTER TO NEXT QUEUE 0142 00202000 * ELEMENT (IF LAST 0142 00203000 * POINTER TO QAB) * 00204000 * 2 PFXBCK PTR(31) ; /* POINTER TO PREVIOUS 0142 00205000 * QUEUE ELEMENT (IF 0142 00206000 * FIRST, POINTER TO QAB) * 00207000 *DCL NCSPLTYP BIT(8) CONSTANT('60'X); /* NCSPL CONTROL BLOCK ID * 00208000 * /* NETWORK CONFIGURATION SERVICES CONTROL BLOCK */ 0144 00209000 */* REVISIONS 14 07/01/75 */ 00210000 *DECLARE 0144 00211000 * 1 ISTNCSPL BASED BDY(DWORD), 0144 00212000 * 2 * CHAR(16) BDY(WORD), 0144 00213000 * 3 NCSPFX CHAR(LENGTH(ISTPFX)), /* QUE ELEMENT PREFIX */ 00214000 * 4 * CHAR(12), 0144 00215000 * 4 NCSCRWKA PTR(31), /* PTR TO WORK AREA FOR C/R I/O */ 00216000 * 2 * BIT(8), /*RESERVED */ 00217000 * 2 NCSPLVCD BIT(8), /*VERB CODE */ 00218000 * 2 NCSPLVBF CHAR(2), /*VERB MODIFIER FLAGS */ 00219000 * 3 NCSVBF01 BIT(1), /* UNUSED */ 00220000 * 3 NCSVBF02 BIT(1), /* UNUSED */ 00221000 * 3 NCSVBF03 BIT(1), /* MODIFY MSG SUP */ 00222000 * 3 NCSVBF04 BIT(1), /* TYPE=VTAM */ 00223000 * 3 NCSVBF05 BIT(1), /* LINETRACE=1 */ 00224000 * 3 NCSVBF06 BIT(1), /* I/O TRACE=1 */ 00225000 * 3 NCSVBF07 BIT(1), /* BUFFER TRACE=1 */ 00226000 * 3 NCSVBF08 BIT(1), /* MODIFY TPRINT */ 00227000 * 3 NCSVBF09 BIT(1), /* MODIFY TEST */ 00228000 * 3 NCSVBF10 BIT(1), /* MODIFY TRACE=NO */ 00229000 * 3 NCSVBF11 BIT(1), /* VARY INTERNAL ONLY & MODIFY */ 00230000 * /* TRACE = YES */ 00231000 * 3 NCSVBF12 BIT(1), /* VARY IMMEDIATE & MODIFY */ 00232000 * /* NETSOL=NO */ 00233000 * 3 NCSVBF13 BIT(1), /* MODIFY NETSOL=YES */ 00234000 * 3 NCSVBF14 BIT(1), /* VARY LOGON & MODIFY */ 00235000 * /* CHANGE */ 00236000 * 3 NCSVBF15 BIT(1), /* VARY DEACTIVATE & VARY NORMAL */ 00237000 * /* CLOSE(ERP) */ 00238000 * 3 NCSVBF16 BIT(1), /* VARY ACTIVATE & ERP REQUEST */ 00239000 * /* & MODIFY DUMP */ 00240000 * 2 NCSPLVFL CHAR(1), /*COMMAND FLAGS */ 00241000 * 3 NCSVNCSA BIT(1), /*NCSPL IS ACTIVE */ 00242000 * 3 NCSVDEL BIT(1), /*DELETE NCSPL */ 00243000 * 3 NCSVSTAT BIT(1), /*INDICATE NCSPL WAS NOT GETMAINED */ 00244000 * 3 NCSDCONT BIT(1), /* DO DISCONACT */ 00245000 * 3 NCSABCON BIT(1), /* DO ABANDON CONNECTION */ 00246000 * 3 NCSDACLK BIT(1), /* DO ACTIVATE LINE */ 00247000 * 3 NCSRSV02 BIT(2), /* RESERVED */ 00248000 * 2 NCSPLVF1 CHAR(1), /* SPECIAL PROC FLAGS */ 00249000 * 3 NCSOVFMC BIT(1), /* PURGE ONLY VARY'S FMCB */ 00250000 * 2 NCSPRMRC CHAR(1), /* PURGE MINOR RETURN CODE FIELD */ 00251000 * 2 NCSIORC CHAR(1), /* I/O OR RESTART RETURN CODE */ 00252000 * 2 NCSRRNPT CHAR(4), /* ADDR RN ENTRY FOR LINE TRACE */ 00253000 * 2 NCSPLRID CHAR(8), /*ID = 'NODENAME' */ 00254000 * 2 NCSPLLID CHAR(8), /*LOGON = 'NODENAME' */ 00255000 * 2 NCSDLID CHAR(6), /* OFFHOOK ID */ 00256000 * 2 NCSCRCMD FIXED(8), /* C/R I/O COMMAND CODE */ 00257000 * 2 NCSCRPID PTR(8), /* C/R PATH ID (PID) */ 00258000 * 2 NCSPLRPT PTR(31), /*ID='NODENAME' RDTE ADDRESS */ 00259000 * 2 NCSPLLPT PTR(31), /*LOGON/LOGOFF='NODENAME' RDTE ADDR*/ 00260000 * 2 NCSPLCMD CHAR(2), /*3705 CONTROL COMMAND CODES */ 00261000 * 3 NCSCMDA BIT(8), /*RH FLAGS */ 00262000 * 4 NCSPLSYS BIT(1), /*ON-SYSTEM OFF-FM */ 00263000 * 4 NCSPLCTL BIT(1), /*ON-CONTROL OFF-DATA */ 00264000 * 4 NCSPLSYN BIT(1), /*ON=SYNCHR OFF-ASYNCHR */ 00265000 * 4 NCSPLFLO BIT(1), /*ON-WITH FLOW OFF-AGAINST FLOW */ 00266000 * 4 NCSPLUFM BIT(1), /*ON=UNFORMATTED RU,OFF=FORMATTED */ 00267000 * 4 * BIT(3), /*RESERVED */ 00268000 * 3 NCSCMDB BIT(8), /*COMMAND FIELD */ 00269000 * 2 NCSNCPEP BIT(8), /* EP SUBCHANNEL ADDR */ 00270000 * 2 NCSMSGSP CHAR(1), /* RESERVED FOR MESSAGE SURPRESSION*/ 00271000 * 2 NCSPLUAD CHAR(3), /*U = 'UNIT ADDRESS' */ 00272000 * 2 NCSCRFLG CHAR(1), /* MISCELLANEOUS C/R FLAGS */ 00273000 * 3 NCSPLWRM BIT(1), /* COMMAND SPECIFIED WARM PARAM, */ 00274000 * /* 1 = YES */ 00275000 * 3 NCSPLCLD BIT(1), /* COMMAND SPECIFIED COLD PARAM, */ 00276000 * /* 1 = YES */ 00277000 * 3 NCSFMCLD BIT(1), /* 370X RESPONDED COLD TO ACTPU */ 00278000 * /* (ERP), 1 = YES */ 00279000 * 3 NCSFMERP BIT(1), /* 370X RESPONDED ERP TO ACTPU */ 00280000 * /* (ERP), 1 = YES */ 00281000 * 3 NCSCRDSE BIT(1), /* 0=C/R DATA SET DOES NOT EXIST */ 00282000 * /* OR IS NULL */ 00283000 * /* 1=C/R DATA SET EXISTS */ 00284000 * /* AND IS NOT NULL */ 00285000 * 3 NCSOPRQU BIT(1), /* OPERATOR REQUESTS REIPL, 1 = YES*/ 00286000 * 3 NCSUSRNF BIT(1), /* EARLY WARNING PURGE HAS ALREADY */ 00287000 * /* OCCURED, 1 = YES */ 00288000 * 3 NCSSTCMD BIT(1), /* ACTIVATE IS A RESULT OF */ 00289000 * /* START VTAM COMMAND, 1 = YES */ 00290000 * 2 NCSPLWRE BIT(32), /* WTOR ECB */ 00291000 * 2 NCSPLWRF CHAR(72), /* WTOR REPLY AREA */ 00292000 * 2 NCSPLRAD PTR(31), /* RDTE PTR FOR ALLOCATE/DEALLOCATE*/ 00293000 * 3 NCSLSCMD BIT(8), /* LINE SCHED COMMAND TYPE */ 00294000 * 3 NCSPLRCD BIT(8), /* HEX VALUE FOR LINE SCHED PARAM */ 00295000 * 2 NCSIOCID CHAR(4), /* CURRENT CID FOR DAF LOCK HELD */ 00296000 * 3 NCSPLCID CHAR(4), /* ALIAS FOR ABOVE */ 00297000 * 4 NCSPLSAF CHAR(2), /* SOURCE ADDRESS */ 00298000 * 4 NCSPLDAF CHAR(2), /* DESTINATION ADDRESS */ 00299000 * 2 NCSPLWKA PTR(31), /* NCS WORK AREA ADDRESS */ 00300000 * 2 NCSPLCVT PTR(31), /* POINTER TO VTAM CVT */ 00301000 * 2 NCSPLRPH PTR(31), /* POINTER TO RPH */ 00302000 * 2 NCSPLECB BIT(32), /* ECB FOR VARY PGS */ 00303000 * 2 NCSPLFSB PTR(31), /* ADDRESS OF USS-FSS FSB OR RU */ 00304000 * 2 NCSPLRCR PTR(31), /* ADDRESS RDTE FOR CR */ 00305000 * 2 NCSPLFL1 CHAR(1), /* VARY FLAGS */ 00306000 * 3 NCSPL2IN BIT(1), /* SECOND ENTRY */ 00307000 * 3 NCSPLSOM BIT(1), /* SUPRESS OP. MESSAGE */ 00308000 * 3 NCSPLEBN BIT(1), /* ENTRY FROM BNN SSCP */ 00309000 * 3 NCSPLREQ BIT(1), /* NCSPL FROM RESTORE */ 00310000 * 3 NCSPLNON BIT(1), /* DO NOT ADDR RDT SEGMENT */ 00311000 * 3 NCSPLAPU BIT(1), /* ACTIVATE PHYSICAL DONE BY LOAD */ 00312000 * 3 NCSPL2CN BIT(1), /* SECOND CONTACT REQUEST */ 00313000 * 3 NCSPLPOS BIT(1), /* BNN POSTED */ 00314000 * 2 NCSPLFL2 CHAR(1), /* VARY FLAGS */ 00315000 * 3 NCSPLVDP BIT(1), /* NCSPL ON VARDEF PAB */ 00316000 * 3 NCSPLRSF BIT(1), /* NO SICK CLEAR BEFORE I/O */ 00317000 * 3 NCSPLRIO BIT(1), /* I/O = RESTART I/O */ 00318000 * 3 NCSOUFMC BIT(1), /* PURGE ONLY USER FMCB */ 00319000 * 3 NCSPLDS BIT(1), /* 1=CIO SAVED RESPONSE DATA */ 00320000 * 3 NCSREMPO BIT(1), /* REMOTE POWER OFF SPEC BY OPER */ 00321000 * 3 NCSPLVIS BIT(1), /* VARY IMM START CALLER OF CVP */ 00322000 * 3 NCSPLVIT BIT(1), /* VARY IMM TERM CALLER OF CVP */ 00323000 * 2 NCSPLFL3 CHAR(1), /* FLAG BYTE */ 00324000 * 3 NCSPLMOM BIT(1), /* ERP CAUSED BY FAILURE OF 0144 00325000 * HIGHER NODE */ 00326000 * 3 NCSEPP BIT(1), /* 1=EP SUBCHANNEL PRESENT */ 00327000 * 3 NCSPLANS BIT(1), /* ON FOR ACT IN ANSWER MODE */ 00328000 * /* OFF FOR ACT IN NON-ANSWER MODE */ 00329000 * 3 NCSGID BIT(1), /* ON FOR PATH WITH GID PARM */ 00330000 * 3 NCSPID BIT(1), /* ON FOR PATH WITH PID PARM */ 00331000 * 3 NCSANS BIT(1), /* ON FOR ACTIVATE WITH ANS PARM */ 00332000 * 3 NCSFINAL BIT(1), /* FINAL PARM EXISTS */ 00333000 * 3 NCSEND BIT(1), /* END PARM EXISTS */ 00334000 * 2 NCSPLFL4 CHAR(1), /* FLAG BYTE */ 00335000 * 3 NCSDLNID BIT(1), /* ID PRESENT IN NCSPL - OFF */ 00336000 * 3 NCSPLRSO BIT(1), /* RESET ONLY */ 00337000 * 3 NCSPLVID BIT(1), /* ORIG CMD WAS MODIFY DUMP */ 00338000 * 3 NCSDSPE BIT(1), /* DISPLAY EVERY */ 00339000 * 3 NCSDSPA BIT(1), /* DISPLAY ACT */ 00340000 * 3 NCSDSPI BIT(1), /* DISPLAY INACT */ 00341000 * 3 NCSDSPN BIT(1), /* DISPLAY NONE */ 00342000 * 3 NCSPL2AP BIT(1), /* SECOND ACTPU TO 320X */ 00343000 * 2 NCSDLRSN CHAR(1), /* DIAL REASON CODES */ 00344000 * 2 NCSPLFL5 CHAR(1), /* FLAG BYTE */ 00345000 * 3 NCSSCPPS BIT(1), /* SSCP WORK AREA IN PVT STORAGE */ 00346000 * 3 NCSSDLK BIT(1), /* ON-SDLC LINK PROCESSED */ 00347000 * 3 NCSFORCE BIT(1), /* FORCED DEACT IN PROGRESS */ 00348000 * 3 * BIT(5), /* RESERVED */ 00349000 * 2 NCSPLOLN FIXED(15), /* LENGTH O/B RU */ 00350000 * 2 NCSPLP1 PTR(31), /* ADDR VARY PAB */ 00351000 * 2 NCSPLP2 PTR(31), /* ADDR D/L/R PAB */ 00352000 * 2 NCSPLP3 PTR(31), /* ADDR ERP PAB */ 00353000 * 2 NCSPLSPL PTR(31), /* ADDR ASSOC. NCSPL */ 00354000 * 2 NCSPLWEL PTR(31), /* ADDR POST RPH */ 00355000 * 2 NCSPLRRP PTR(31), /* ADDR REMOTE RN RDTE IN LOCAL RDT*/ 00356000 * 2 NCSPLRUO PTR(31), /* ADDR O/B RU */ 00357000 * 2 NCSPLRUI PTR(31), /* ADDR BUFFER FOR I/B RU */ 00358000 * 2 NCSPLAPP PTR(31), /* ADDR NCSPL APPENDAGE */ 00359000 * 2 NCSRNAME CHAR(8), /* RNAME=FROM VARY ACTIVATE */ 00360000 * 2 NCSPLSQN FIXED(15), /* SEQUENCE=NR. FOR RESPONSE */ 00361000 * 2 NCSPLGID BIT(8), /* BINARY REP OF GID VALUE */ 00362000 * 2 NCSPLPID BIT(8), /* BINARY REP OF PID VALUE */ 00363000 * 2 NCSPLMID CHAR(8), /* LOGMODE = 'MODENAME' */ 00364000 * 2 NCSPLNSN PTR(31), /* RDTE NSNEA AT CLSDST */ 00365000 * 2 NCSSENSE CHAR(4), /* SENSE */ 00366000 * 3 NCSSNS1 CHAR(1), /* SENSE DATA MAJOR CODE */ 00367000 * 3 NCSSNS2 CHAR(1), /* SENSE MODIFIER BYTE */ 00368000 * 3 NCSSENS2 CHAR(2), /* USER SENSE DATA */ 00369000 * 2 NCSCPWPT PTR(31), /* ADDRESS OF CPWA */ 00370000 * 2 NCSMGLPT PTR(31), /* PTR TO USS/FSS MSG PARAM LIST */ 00371000 * 2 NCSUFMCB PTR(31), /* POINTER TO SSCP-LU FMCB */ 00372000 * 2 NCSPLRH CHAR(3), /* REQUEST RH */ 00373000 * 2 NCSPLRTY CHAR(1), /* TYPE FROM RTGOH RU */ 00374000 * 2 NCSCRDTE PTR(31), /* PTR TO RDTE BEING PROCESSED */ 00375000 * /* FOR C/R I/O */ 00376000 * 2 NCSCRMSK, /* FLAGS FOR C/R CHECK POINTING */ 00377000 * 3 NCSCHKPT CHAR(2), /* FLAGS FOR ITEMS CHECK POINTED */ 00378000 * 4 NCSACTV BIT(1), /* ACTICE/INACTIVE STATUS CHANGED */ 00379000 * /* 1 = YES */ 00380000 * 4 NCSPACTV BIT(1), /* PORT ACT/INACTIVE STATUS CHANGED*/ 00381000 * /* 1 = YES */ 00382000 * 4 NCSPOLD BIT(1), /* POLL DELAY VALUE CHANGED, 1=YES */ 00383000 * 4 NCSNRPL BIT(1), /* NEGATIVE RESPONSE TO POLL */ 00384000 * /* LIMIT VALUE CHANGED, 1 = YES */ 00385000 * 4 NCSESLM BIT(1), /* SESSION LIMIT VALUE CHANGED,1=YES* 00386000 * 4 NCSDTRLM BIT(1), /* DEVICE TRANSMISSION LIMIT */ 00387000 * /* VALUE CHANGED, 1 = YES */ 00388000 * 4 NCSLGAPL BIT(1), /* APPLICATION CONTROLLER NAME */ 00389000 * /* (LOGAPPL) CHANGED, 1 = YES */ 00390000 * 4 NCSLGMOD BIT(1), /* LOGON MODE (LOGMODE) */ 00391000 * /* CHANGED, 1 = YES */ 00392000 * 4 NCSANSMD BIT(1), /* ANSWER MODE STATUS CHANGED,1=YES*/ 00393000 * 4 NCSCUA BIT(1), /* CUA VALUE CHANGED, 1 = YES */ 00394000 * 4 NCSRNME BIT(1), /* RNAME VALUE CHANGED, 1 = YES */ 00395000 * 4 NCSPTUSE BIT(1), /* PATH USE/NOUSE STATUS CHANGED */ 00396000 * /* 1 = YES */ 00397000 * 4 NCSRSVD1 BIT(4), /* RESERVED */ 00398000 * 3 NCSCRMOD CHAR(1), /* NEW VALUES FOR ITEMS CHECKPOINTED* 00399000 * /* NOT OBTAINED FROM RDTE */ 00400000 * 4 NCSAIMOD BIT(1), /* ACTIVE/INACTIVE STATUS, 1=ACTIVE*/ 00401000 * 4 NCSPTMOD BIT(1), /* PORT ACT/INACT STATUS, 1=ACTIVE */ 00402000 * 4 NCSRSVD2 BIT(6), /* RESERVED */ 00403000 * 2 NCSPLSID BDY(BYTE), /* MESSAGE ROUTING INFORMATION */ 00404000 * 3 NCSPLSTA CHAR(1), /* STATUS FLAG BYTE */ 00405000 * 4 NCSRSVD4 BIT(7), /* RESERVED */ 00406000 * 4 NCSPLPO BIT(1), /* 0 = CONSOLE ID FOLLOWS, 1 = */ 00407000 * /* PROGRAM OPERATOR HEADER FOLLOWS */ 00408000 * 3 NCSPLPHD CHAR(LENGTH(ISTPOHD)), /* PO HEADER IF NCSPLPO = 01 */ 00409000 * 4 NCSPLNID FIXED(8), /* CONSOLE ID IF NCSPLPO = 0 */ 00410000 * 3 NCSPLPDB PTR(31); /* PTR TO PO ACDEB PREFIX */ 00411000 */* COMMAND VALUES FOR C/R FIELD NCSCRCMD */ 00412000 *DCL NCSCRWR FIXED(8) CONSTANT(0); /* WRITE TO C/R DATA SET */ 00413000 *DCL NCSCROPN FIXED(8) CONSTANT(1); /* OPEN C/R DATA SET */ 00414000 *DCL NCSCRCLS FIXED(8) CONSTANT(2); /* CLOSE C/R DATA SET */ 00415000 *DCL NCSCRDEL FIXED(8) CONSTANT(3); /* DELETE C/R DATA SET RECORD */ 00416000 *DCL NCSCROPQ FIXED(8) CONSTANT(4); /* OPERATOR QUERY */ 00417000 *DCL NCSDCID FIXED(8) CONSTANT(1); /* CONSOLE ID INDICATOR */ 00418000 *DCL NCSCRIO BIT(16) CONSTANT('0800'X); /* INDICATES REQUESTS */ 00419000 * /* FOR VSAM I/O FOR C/R */ 00420000 *DCL NCSCRVIO BIT(16) CONSTANT('0C00'X); /* VSAM I/O OPERATION */ 00421000 */* NCSPL APPENDAGE DEFINATION */ 00422000 *DCL 1 NCSAPP BASED(NCSPLAPP), 0153 00423000 * 2 NCSAPSA CHAR(72), /* SAVE AREA */ 00424000 * 2 NCSAPECB CHAR(4), /* ECB */ 00425000 * 2 NCSAPTXT CHAR(8), /* DUMP DATA */ 00426000 * 2 NCSAPEND PTR(31), /* HIGH STORAGE ADDRESS */ 00427000 * 2 NCSAPBUE CHAR(520), 0153 00428000 * 3 NCSRSV04 CHAR(3), /* RESERVED */ 00429000 * 3 NCSAPRU CHAR(5), /* IPL CMD RU PREFIX */ 00430000 * 3 NCSAPDAT CHAR(512), /* RESP FOR DUMP, O/B LOAD */ 00431000 * 2 NCSAPPAB PTR(31); /* BNN VARY PAB ADDR */ 00432000 */* USS/FSS RU AREA MAP */ 00433000 *DCL 1 NCSUSSRU BASED(NCSPLFSB), 0154 00434000 * 2 NCSRULEN FIXED(15), /* LENGTH OF RU */ 00435000 * 2 NCSRUITS CHAR(*); /* START OF RU */ 00436000 */* GENERAL CONSTANTS */ 00437000 *DCL NCSWASZ FIXED(15) CONSTANT(2032); /* NCSPL WORK AREA SIZE */ 00438000 *DCL NCSRTGOH BIT(16) CONSTANT('1000'X); /* VBF VALUE FOR INTERNAL */ 00439000 * /* COMMAND-RTGOH RECVD. */ 00440000 */* CONSTANTS FOR VERB CODES */ 00441000 *DCL NCSPLVC0 BIT(08) CONSTANT('00'X); /* ERROR */ 00442000 *DCL NCSPLVC1 BIT(08) CONSTANT('01'X); /* VARY */ 00443000 *DCL NCSPLVC2 BIT(08) CONSTANT('02'X); /* MODIFY */ 00444000 *DCL NCSPLVC3 BIT(08) CONSTANT('03'X); /* ERP */ 00445000 *DCL NCSPLVC4 BIT(08) CONSTANT('04'X); /* DISPLAY */ 00446000 *DCL NCSPLVC5 BIT(08) CONSTANT('05'X); /* STATUS TO SM */ 00447000 *DCL NCSPLVC6 BIT(08) CONSTANT('06'X); /* INTERNAL CMD */ 00448000 *DCL NCSPLVC7 BIT(08) CONSTANT('07'X); /* INIT/TERM TUSM */ 00449000 *DCL NCSPLVC8 BIT(08) CONSTANT('08'X); /* DIAL */ 00450000 */* CONSTANTS FOR VARY COMMAND MODIFIERS */ 00451000 *DCL NCSVACT BIT(16) CONSTANT('0001'X); /*ACTIVATE */ 00452000 *DCL NCSVDEA BIT(16) CONSTANT('0002'X); /* DEACTIVATE */ 00453000 *DCL NCSVLON BIT(16) CONSTANT('0004'X); /* LOGON */ 00454000 *DCL NCSVVPP BIT(16) CONSTANT('0080'X); /* VARY NORMAL CLEANUP REQST* 00455000 *DCL NCSVIMM BIT(16) CONSTANT('0010'X); /* IMMEDIATE */ 00456000 *DCL NCSVINT BIT(16) CONSTANT('0020'X); /* INTERNAL ONLY */ 00457000 *DCL NCSVALO BIT(16) CONSTANT('0005'X); /* ACTIVATE WITH LOGON */ 00458000 *DCL NCSVDEI BIT(16) CONSTANT('0012'X); /* DEACTIVATE IMMEDIATE */ 00459000 *DCL NCSVDII BIT(16) CONSTANT('0032'X); /* DEACTIV. IMMEDIATE INTERNA 00460000 * ONLY*/ 0174 00461000 *DCL NCSCNOTF BIT(16) CONSTANT('FFF8'X); /* NOTIFY REQUEST */ 00462000 *DCL NCSVANON BIT(16) CONSTANT('0008'X); /* ANSWER = ON */ 00463000 *DCL NCSVANOF BIT(16) CONSTANT('0040'X); /* ANSWER = OFF */ 00464000 *DCL NCSVPUSE BIT(16) CONSTANT('0100'X); /* PATH = USABLE */ 00465000 *DCL NCSVPNUS BIT(16) CONSTANT('0200'X); /* PATH = NOT USABLE */ 00466000 *DCL NCSVINOP BIT(16) CONSTANT('0400'X); /* INOPERATIVE */ 00467000 */* CONSTANTS FOR MODIFY COMMAND MODIFIERS */ 00468000 *DCL NCSMDUM BIT(16) CONSTANT('0001'X); /* DUMP 3705 */ 00469000 *DCL NCSMCHA BIT(16) CONSTANT('0004'X); /* CHANGE */ 00470000 *DCL NCSMNSY BIT(16) CONSTANT('0008'X); /* NETSOL = YES */ 00471000 *DCL NCSMNSN BIT(16) CONSTANT('0010'X); /* NETSOL = NO */ 00472000 *DCL NCSMTRY BIT(16) CONSTANT('0020'X); /* TRACE = YES */ 00473000 *DCL NCSMVTRY BIT(16) CONSTANT('1020'X); 0186 00474000 *DCL NCSMVTRN BIT(16) CONSTANT('1040'X); 0187 00475000 *DCL NCSMTRN BIT(16) CONSTANT('0040'X); /* TRACE = NO */ 00476000 *DCL NCSMTPR BIT(16) CONSTANT('0100'X); /* TRACE PRINT */ 00477000 *DCL NCSMTST BIT(16) CONSTANT('0080'X); /* MODIFY TEST */ 00478000 *DCL NCSDPF BIT(16) CONSTANT('0000'X); /* POTENTIAL FAIL */ 00479000 *DCL NCSDSTRT BIT(16) CONSTANT('0001'X); /* DIAL START */ 00480000 *DCL NCSDOH1 BIT(16) CONSTANT('0002'X); /* OFFHOOK 1 */ 00481000 *DCL NCSDOH2 BIT(16) CONSTANT('0004'X); /* OFFHOOK 2 */ 00482000 *DCL NCSDDF BIT(16) CONSTANT('0010'X); /* DIAL FAILED */ 00483000 *DCL NCSDLKS BIT(16) CONSTANT('0008'X); /* LINK START */ 00484000 *DCL NCSDLKC BIT(16) CONSTANT('0020'X); /* LINK COMPLETION */ 00485000 *DCL NCSDHU BIT(16) CONSTANT('0040'X); /* HANGUP */ 00486000 *DCL NCSDLK BIT(16) CONSTANT('0080'X); /* DEALLOCATE */ 00487000 *DCL NCSDGIVE BIT(16) CONSTANT('0100'X); /* GIVE */ 00488000 *DCL NCSDINOP BIT(16) CONSTANT('0200'X); /* INOP */ 00489000 *DCL NCSDLRST BIT(16) CONSTANT('0400'X); /* RECOVERY SW LINKS */ 00490000 * /* AFTER RN FAILURE */ 00491000 */* CONSTANTS FOR ERP COMMAND MODIFIERS */ 00492000 *DCL NCSEERRA BIT(16) CONSTANT('0001'X); /* ERP REQUEST */ 00493000 *DCL NCSECLOR BIT(16) CONSTANT('0002'X); /* VARY NORMAL CLOSE REQUEST* 00494000 *DCL NCSEDACT BIT(16) CONSTANT('0004'X); /* ERP DEACTIVATE REQUEST * 00495000 *DCL NCSERSTR BIT(16) CONSTANT('0008'X);/* RSTRT ENTRY FROM DLR PROC */ 00496000 *DCL NCSVFORC BIT(16) CONSTANT('0802'X);/* FORCED DEACT */ 00497000 *DCL NCSVRACT BIT(16) CONSTANT('1002'X);/* DEACT AND REACT */ 00498000 */* PURGE MINOR RETURN CODES CONSTANTS */ 00499000 *DCL NCSAPABN BIT(8) CONSTANT('05'X), /* APPLICATION ABEND */ 00500000 * NCSCLDST BIT(8) CONSTANT('06'X), /* CLOSE DEST OCCURED */ 00501000 * NCSDDISC BIT(8) CONSTANT('08'X), /* DIAL DISCONNECT OCCURED 00502000 * - CONN NO LONGER AVAILABL*/ 00503000 * NCSBTHEX BIT(8) CONSTANT('09'X); /* BUFFER THRESHOLD EXCEEDED*/ 00504000 */* I/O OR RESTART RETURN CODES CONSTANTS */ 00505000 *DCL NCSIOSUC BIT(8) CONSTANT('00'X), /* I/O SUCCESSFUL */ 00506000 * NCSIOERR BIT(8) CONSTANT('04'X), /* I/O ERROR */ 00507000 * NCSIOPRG BIT(8) CONSTANT('08'X), /* I/O PURGED */ 00508000 * NCSRSSUC BIT(8) CONSTANT('00'X), /* RESTART SUCCESSFUL */ 00509000 * NCSRSERR BIT(8) CONSTANT('04'X), /* RESTART ERROR */ 00510000 * NCSVAIPL BIT(8) CONSTANT('00'X), /* IPL NO RESTART ON VARY ACTV*/ 00511000 * NCSVANRA BIT(8) CONSTANT('10'X), /* IPL SUCCESSFUL, NO RESTART 00512000 * AVAILABLE ON VARY ACTIVE * 00513000 * NCSVAWMF BIT(8) CONSTANT('08'X), /* WARM START FAILURE FOR 0210 00514000 * VARY ACTIVATE */ 00515000 * NCSVAIPF BIT(8) CONSTANT('0C'X), /* IPL FAILED ON VARY ACTIVATE* 00516000 * NCSDSIA BIT(8) CONSTANT('14'X), /* INVALID ADDRESS SPECIFIED 00517000 * ON DISPLAY STORAGE CMND * 00518000 * NCSVAISZ BIT(8) CONSTANT('08'X), /* NCP SIZE TOO LARGE * 00519000 * NCSIPLSC BIT(8) CONSTANT('00'X), /* IPL SUCCESSFUL * 00520000 * NCSIOER BIT(8) CONSTANT('0C'X), /* I/O ERROR ON REMOTE IPL * 00521000 * NCSNCPAC BIT(8) CONSTANT('04'X), /* REMOTE NCP ALREADY ACTIVE * 00522000 * NCSNCRPF BIT(8) CONSTANT('70'X), /* REMOTE POWER OFF * 00523000 * NCSCRIOS BIT(8) CONSTANT('30'X), /* SUCCESSFUL I/O * 00524000 * NCSCRION BIT(8) CONSTANT('34'X), /* NULL D.S. OPENED * 00525000 * NCSCRIOF BIT(8) CONSTANT('38'X); /* FAILURE ON I/O * 00526000 */* CONSTANTS FOR LIBERTY SUPPORT * 00527000 *DCL NCSES BIT(16) CONSTANT('0001'X),/* END SESSION * 00528000 * NCSBF BIT(16) CONSTANT('0002'X),/* BIND FAILURE * 00529000 * NCSUF BIT(16) CONSTANT('0004'X),/* UNBIND FAILURE * 00530000 * NCSINIT BIT(16) CONSTANT('0001'X), 0211 00531000 * NCSTERM BIT(16) CONSTANT('0002'X); 0211 00532000 *DCL NCSTPPST BIT(16) CONSTANT('0001'X);/* TPPST COMMAND * 00533000 *DCL NCSII BIT(16) CONSTANT('0002'X);/* IPL INIT COMMAND * 00534000 *DCL NCSIT BIT(16) CONSTANT('0004'X);/* IPL COMMAND * 00535000 *DCL NCSIF BIT(16) CONSTANT('0008'X);/* IPL FINAL COMMAND * 00536000 *DCL NCSDI BIT(16) CONSTANT('0010'X);/* DUMP INIT COMMAND * 00537000 *DCL NCSDT BIT(16) CONSTANT('0020'X);/* DUMP TEXT COMMAND * 00538000 *DCL NCSDF BIT(16) CONSTANT('0040'X);/* DUMP FINAL COMMAND * 00539000 *DCL NCSCON BIT(16) CONSTANT('0080'X);/* CONTACT COMMAND * 00540000 *DCL NCSDICON BIT(16) CONSTANT('0100'X);/* DISCONTACT COMMAND * 00541000 *DCL NCSMSFMD BIT(16) CONSTANT('0200'X);/* SEND FMD * 00542000 *DCL NCSSEND BIT(16) CONSTANT('0400'X);/* SEND * 00543000 *DCL NCSPURGE BIT(16) CONSTANT('0800'X);/* PAB PURGE * 00544000 *DCL NCSMSSUP BIT(16) CONSTANT('2000'X);/* CONSTANT FOR MSG SUP * 00545000 *DCL NCSCRDS BIT(16) CONSTANT('3023'X);/* RECORD DEV STATS COMMAND * 00546000 *DCL NCSCQUIS BIT(16) CONSTANT('F01A'X);/* QUIESCE COMMAND * 00547000 *DCL NCSSNUSS BIT(16) CONSTANT('381F'X);/* SEND USS MESSAGE * 00548000 */* * 00549000 *DCL NCSNC BIT(8) CONSTANT('04'X); /* NOT CONTACTED * 00550000 *DCL NCSLD BIT(8) CONSTANT('00'X); /* CONTACTED LOADED * 00551000 *DCL NCSNLD BIT(8) CONSTANT('0C'X); /* CONTACTED NEEDS LOAD * 00552000 *DCL NCSNCD BIT(8) CONSTANT('08'X); /* NOT CONTACTED DUE TO DEACT * 00553000 *DCL NCSNCE BIT(8) CONSTANT('10'X); /* NOT CONTACTED DUE TO ERP * 00554000 *DCL NCSNFME BIT(8) CONSTANT('24'X); /* NEGATIVE FME * 00555000 */* CONSTANTS FOR IORC FOR DISPLAY STORAGE */ 00556000 *DCL NCSDSDEA BIT(8) CONSTANT('0C'X); /* PRIOR DEACT * 00557000 *DCL NCSDSFAL BIT(8) CONSTANT('04'X); /* FAIL OTHER THAN PRIOR DEACT* 00558000 */* TYPE CODES FOR CONFIGURATION RESTART * 00559000 *DCL NCSCTRLM BIT(8) CONSTANT('01'X); /* CHANGE DEV TRANS LIMIT * 00560000 *DCL NCSCNPOL BIT(8) CONSTANT('02'X); /* CHANGE NEG POLL RESP LIMIT * 00561000 *DCL NCSCSESS BIT(8) CONSTANT('03'X); /* CHANGE SESSION LIMIT * 00562000 *DCL NCSCPOLL BIT(8) CONSTANT('04'X); /* CHANGE LINE SERV SEEK PAUSE* 00563000 */* FM DATA COMMAND CODES * 00564000 *DCL NCSCAPU BIT(16) CONSTANT('D001'X); /* ACT PHYS * 00565000 *DCL NCSCDPU BIT(16) CONSTANT('D002'X); /* DEACT PHYS * 00566000 *DCL NCSCALU BIT(16) CONSTANT('D003'X); /* ACT LOG * 00567000 *DCL NCSCDLU BIT(16) CONSTANT('D004'X); /* DEACT LOG * 00568000 *DCL NCSCSDT BIT(16) CONSTANT('D005'X); /* SDT * 00569000 *DCL NCSCFME BIT(16) CONSTANT('2006'X); /* SEND POS RESP * 00570000 *DCL NCSCEXCP BIT(16) CONSTANT('2007'X); /* SEND NEG RESP * 00571000 *DCL NCSCCON BIT(16) CONSTANT('3008'X); /* CONTACT * 00572000 *DCL NCSCDCON BIT(16) CONSTANT('3009'X); /* DISCONTACT * 00573000 *DCL NCSCIPLI BIT(16) CONSTANT('300A'X); /* IPL INIT * 00574000 *DCL NCSCIPLT BIT(16) CONSTANT('300B'X); /* IPL * 00575000 *DCL NCSCIPLF BIT(16) CONSTANT('300C'X); /* IPL FINAL * 00576000 *DCL NCSCDUMI BIT(16) CONSTANT('300D'X); /* DUMP INIT * 00577000 *DCL NCSCDUMP BIT(16) CONSTANT('300E'X); /* DUMP * 00578000 *DCL NCSCDUMF BIT(16) CONSTANT('300F'X); /* DUMP FINAL * 00579000 *DCL NCSCACTL BIT(16) CONSTANT('3010'X); /* ACT LINK * 00580000 *DCL NCSCDACL BIT(16) CONSTANT('3011'X); /* DEACT LINK * 00581000 *DCL NCSCSSV BIT(16) CONSTANT('3012'X); /* SET STATE VECTOR * 00582000 *DCL NCSCNSP BIT(16) CONSTANT('3013'X); /* NS PROC ERROR * 00583000 *DCL NCSCSTD BIT(16) CONSTANT('3019'X); /* SET TIME & DATE * 00584000 *DCL NCSCSEP BIT(16) CONSTANT('9014'X); /* SWITCH TO EP * 00585000 *DCL NCSCSNC BIT(16) CONSTANT('9015'X); /* SWITCH TO NCP * 00586000 *DCL NCSCLSD BIT(16) CONSTANT('3016'X); /* LINE SCHED PARM * 00587000 *DCL NCSCDS BIT(16) CONSTANT('3017'X); /* DISPLAY STORAGE * 00588000 *DCL NCSCPWO BIT(16) CONSTANT('3018'X); /* REMOTE POWER OFF * 00589000 *DCL NCSSNFMD BIT(16) CONSTANT('301C'X); /* SEND FMD * 00590000 *DCL NCSCDIAL BIT(16) CONSTANT('301A'X); /* DIAL * 00591000 *DCL NCSCADIL BIT(16) CONSTANT('301B'X); /* ABANDON DIAL * 00592000 *DCL NCSCEANS BIT(16) CONSTANT('301D'X); /* ENABLE ANS MODE * 00593000 *DCL NCSCAANS BIT(16) CONSTANT('301E'X); /* ABANDON ANS MODE * 00594000 *DCL NCSCANA BIT(16) CONSTANT('301F'X); /* ASSIGN NET ADDRESS * 00595000 *DCL NCSCFNA BIT(16) CONSTANT('3020'X); /* FREE NET ADDRESS * 00596000 *DCL NCSCACON BIT(16) CONSTANT('3021'X); /* ABANDON CONNECTION * 00597000 *DCL NCSCSCV BIT(16) CONSTANT('3022'X); /* SET CONTROL VECTOR * 00598000 *DCL NCSNCPPG BIT(16) CONSTANT('FFFF'X); /* PURGE * 00599000 */* NEW VALUES FOR NCSPLCMD */ 0275 00600000 *DCL NCSCLCND BIT(16) CONSTANT('0041'X); /* LOAD CONDITIONALLY */ 00601000 *DCL NCSCUCND BIT(16) CONSTANT('0042'X); /* LOAD UNCONDITIONALLY */ 00602000 *DCL NCSCRSRT BIT(16) CONSTANT('0043'X); /* RESTART 370X OR CLUS */ 00603000 *DCL NCSDUCMD BIT(16) CONSTANT('0044'X); /* DUMP 370X */ 0278 00604000 *DCL NCSCERPP BIT(16) CONSTANT('0045'X); /* PERFORM ERP DUMP AND 0279 00605000 * RELOAD OF 370X */ 0279 00606000 *DCL NCSDOUT BIT(16) CONSTANT('0046'X); /* DIAL OUT */ 00607000 *DCL NCSDCNT BIT(16) CONSTANT('0047'X); /* DIAL CONTACT */ 00608000 *DCL NCSDABDN BIT(16) CONSTANT('0048'X); /* DIAL ABANDON */ 00609000 *DCL NCSDENAS BIT(16) CONSTANT('0049'X); /* DIAL ENABLE ANSWER */ 00610000 */* VALUES FOR NCSCMDB */ 00611000 *DCL NCSBFME BIT(8) CONSTANT('06'X); /* SEND POS RESP COMMAND */ 00612000 *DCL NCSBEXC BIT(8) CONSTANT('07'X); /* SEND NEG RESP COMMAND */ 00613000 */* CONSTANTS FOR DIAL REASON CODES */ 00614000 *DCL NCSDLRRD BIT(8) CONSTANT('01'X); /* REDIAL */ 00615000 *DCL NCSDLRQT BIT(8) CONSTANT('02'X); /* QUIT */ 00616000 */* NEW VALUES FOR NCSIORC */ 0288 00617000 *DCL NCSLDAOK BIT(8) CONSTANT('00'X); /* COMMAND PROCESSED SUCESS */ 00618000 *DCL NCSLDACT BIT(8) CONSTANT('04'X); /* NCP ACTIVE-LOAD NOT PERF */ 00619000 *DCL NCSLDCAN BIT(8) CONSTANT('04'X); /* RELOAD DECLINED BY OPER */ 00620000 *DCL NCSLDIOP BIT(8) CONSTANT('08'X); /* I/O PURGED */ 00621000 *DCL NCSLDNOG BIT(8) CONSTANT('0C'X); /* COMMAND FAILED */ 00622000 *DCL NCSDUCOM BIT(8) CONSTANT('14'X); /* DUMP COMPLETE */ 00623000 *DCL NCSHALTD BIT(8) CONSTANT('18'X); /* CMD REJECTED,HALT IN PROG*/ 00624000 *DCL NCSUNREC BIT(8) CONSTANT('1C'X); /* COMMAND UNRECOGNIZED */ 00625000 *DCL NCSNOSTG BIT(8) CONSTANT('20'X); /* CMD REJ,INSUFF STORAGE */ 00626000 *DCL NCSDOS BIT(8) CONSTANT('00'X); /* DIAL-OUT SUCCESSFUL */ 00627000 *DCL NCSDOF BIT(8) CONSTANT('04'X); /* DIAL-OUT UNSUCCESSFUL */ 00628000 *DCL NCSDOP BIT(8) CONSTANT('08'X); /* DIAL-OUT PENDING */ 00629000 *DCL NCSDCS BIT(8) CONSTANT('00'X); /* DIAL-CONTACT LOADED */ 00630000 *DCL NCSDCF BIT(8) CONSTANT('0C'X); /* DIAL-CONTACT FAILED */ 00631000 *DCL NCSDAS BIT(8) CONSTANT('00'X); /* DIAL-ABANDON CONN COMPLETE*/ 00632000 *DCL NCSDENSO BIT(8) CONSTANT('00'X); /* ENABLE ANSWER SUCCESSFUL */ 00633000 *DCL NCSDOFHR BIT(8) CONSTANT('04'X); /* OFFHOOK REQUIRED */ 00634000 *DCL NCSDENSF BIT(8) CONSTANT('08'X); /* ENABLE ANSWER FAIL */ 00635000 */* NEW VALUES FOR NCSPRMRC */ 0306 00636000 *DCL NCSFIRM BIT(8) CONSTANT('10'X); /* RESTART SUCC,OPENDST REQ */ 00637000 *DCL NCSEWRN BIT(8) CONSTANT('11'X); /* CON LOST,RECOV IN PROG */ 00638000 */* CONSTANTS FOR TRACE */ 00639000 *DCL NCSACTLT BIT(16) CONSTANT('0820'X); /* ACTIVATE LINE TRACE */ 00640000 *DCL NCSDACLT BIT(16) CONSTANT('0840'X); /* DEACTIVATE LINE TRACE */ 00641000 *DCL NCSCACLT BIT(16) CONSTANT('301D'X); /* SSCP ACT LINE TRACE */ 00642000 *DCL NCSCDCLT BIT(16) CONSTANT('301E'X); /* SSCP DEACT LINE TRACE */ 00643000 */* DISPLAY COMMAND MODIFIER CONSTANTS */ 00644000 *DCL NCSDPATH BIT(16) CONSTANT('0001'X); /* PATHS */ 00645000 */* LOCKWORD FORMAT DSECT */ 00646000 */* INITIAL LEVEL 001 05/24/74 */ 00647000 *DCL 1 ISTLOK BDY(WORD) BASED, 0313 00648000 * 2 LOKCT CHAR(1) BDY(WORD), /* COUNT OF LOCK OWNERS */ 00649000 * 2 LOKCHN PTR(24), /* ADDR OF NEXT RPH WAITING 00650000 * ON LOCK */ 00651000 * 3 LOKCHNG CHAR(3), /* CHAIN/FLAGS */ 00652000 * 4 * CHAR(2), 0313 00653000 * 4 * BIT(8), 0313 00654000 * 5 * BIT(6), 0313 00655000 * 5 LOKPRY BIT(1), /* PRIORITY FLAG, 1 = ON */ 00656000 * 5 LOKXCL BIT(1); /* EXCLUSIVE FLAG, 1 = ON */ 00657000 *DCL LOKXCL1 BIT(32) CONSTANT('00000001'X); /* CONSTANT TO TURN LOKXCL 00658000 * ON */ 00659000 *DCL LOKPRY1 BIT(32) CONSTANT('00000002'X); /* CONSTANT TO TURN LOKPRY 00660000 * ON */ 00661000 *DCL LOKCHN1 BIT(32) CONSTANT('00FFFFFC'X); /* CONSTANT TO TURN LOKXCL 00662000 * AND LOKPRY OFF */ 00663000 *DCL LOKCT1 BIT(32) CONSTANT('01000000'X); /* CONSTANT TO MAKE LOKCT 00664000 * = 1 */ 00665000 *DCL LOKCT255 BIT(32) CONSTANT('FF000000'X); /* CONSTANT TO CHECK FOR 00666000 * MAX LOKCT (255) */ 00667000 */* DEVICE CHARACTERISTICS TABLE - ORIGINATES IN RDT USED TO DEFINE 00668000 * DEVICE CHARACTERISTICS IN DNCB,FMCB AND NIB */ 0319 00669000 */* INITIAL LEVEL 001 08/07/74 */ 00670000 *DCL 1 ISTDEVCH BDY(WORD)BASED, 0319 00671000 * 2 DEVSHCH BIT(8), /* DEV SCHED CHARACTERISTICS */ 00672000 * 3 DEVCHAR BIT(8), /* COMPATIBILITY EXISTING CODE*/ 00673000 * 4 DEVINPUT BIT(1), /* DEVICE IS FOR INPUT */ 00674000 * 4 DEVOTPUT BIT(1), /* DEVICE IS FOR OUTPUT */ 00675000 * 4 DEVCONVR BIT(1), /* DEVICE IS CONVERSATION */ 00676000 * /* RN DEFINITION */ 00677000 * 4 DEVSUBND BIT(1), /* DEVICE HAS SCHEDULABLE */ 00678000 * /* SUB-NODES */ 00679000 * 4 DEVSPS BIT(1), /* DEV IS START PRINT SENSITIVE* 00680000 * 4 DEVNNSPT BIT(1), /* NODE HAS NETWRK MNGMNT SPRT*/ 00681000 * 4 DEVCCTL BIT(1), /* NODE HAS CONN CNTRL DEPENDCS* 00682000 * 4 DEVRSV01 BIT(1), /* RESERVED */ 00683000 * 2 DEVTCODE BIT(8), /* DEVICE TYPE CODES */ 00684000 * 3 DEVCHAR2 BIT(8), /* COMPATIBILITY EXISTING CODE*/ 00685000 * 2 DEVMCODE BIT(8), /* DEVICE MODEL CODE * 00686000 * 2 DEVFLAGS BIT(8), /*USE DEPENDS ON DEVSHCH VALUES* 00687000 * 3 DEVFCCTL BIT(4), /* USED IF DEVICE REQ CONN CTRL* 00688000 * 4 DEVCBSC BIT(1), /* RESET ORDERLY, BI-SYNCH 0319 00689000 * TERMINALS EXCEPT 3270'S */ 00690000 * 4 DEVCSSL BIT(1), /*RESET AT END OF COMMAND. 3270' 00691000 * AND START/STOP EXCEPT TERMS 00692000 * WITH REVERSE BREAK FEATURE */ 00693000 * 0319 00694000 * 4 DEVCRVB BIT(1), /* RESET IMMEDIATE. START/STOP 00695000 * TERMS WITH REVERSE BREAK 0319 00696000 * FEATURE */ 00697000 * 4 DEVCSWL BIT(1), /* 1=HIGHER NODE IS SWITCH CON- 00698000 * NECTION, 0=LEASED CONNECTION* 00699000 * 3 DEVCHAR3 BIT(4), /* COMPATIBILITY EXISTING CODE*/ 00700000 * 4 DEVCATTN BIT(1), /* TERMINAL CAN INTERRUPT WITH 00701000 * ATTENTION */ 00702000 * 4 DEVCCHEK BIT(1), /* TERMINAL HAS CHECKING */ 00703000 * 4 DEVCSTCL BIT(1), /* TERMINAL HAS STATION 0319 00704000 * CONTROL */ 00705000 * 4 DEVCSLPN BIT(1), /* TERMINAL HAS SELECTOR PEN */ 00706000 * 2 DEVPHYSA CHAR(1), /* PHYSICAL DEVICE ADDRESS */ 00707000 * 2 DEVRSV03 CHAR(3); /* RESERVED */ 00708000 */* DEVICE TYPE CODES */ 0320 00709000 *DCL DEV2740 BIT(8) CONSTANT ('01'X); /* DEVICE IS A 2740 */ 00710000 *DCL DEV2741 BIT(8) CONSTANT ('02'X); /* DEVICE IS A 2741 */ 00711000 *DCL DEV1050 BIT(8) CONSTANT ('03'X); /* DEVICE IS A 1050 */ 00712000 *DCL DEVTWX BIT(8) CONSTANT ('04'X); /* DEVICE IS A TWX */ 00713000 *DCL DEVWTTY BIT(8) CONSTANT ('05'X); /* DEVICE IS A WTTY */ 00714000 *DCL DEV115A BIT(8) CONSTANT ('06'X); /* DEVICE IS A 115A */ 00715000 *DCL DEV83B3 BIT(8) CONSTANT ('07'X); /* DEVICE IS AN 83B3 */ 00716000 *DCL DEV2715 BIT(8) CONSTANT ('08'X); /* DEVICE IS A 2715 */ 00717000 *DCL DEV2770 BIT(8) CONSTANT ('09'X); /* DEVICE IS A 2770 */ 00718000 *DCL DEV2780 BIT(8) CONSTANT ('0A'X); /* DEVICE IS A 2780 */ 00719000 *DCL DEV3735 BIT(8) CONSTANT ('0B'X); /* DEVICE IS A 3735 */ 00720000 *DCL DEV3780 BIT(8) CONSTANT ('0C'X); /* DEVICE IS A 3780 */ 00721000 *DCL DEV1130 BIT(8) CONSTANT ('0D'X); /* DEVICE IS AN 1130 */ 00722000 *DCL DEV1800 BIT(8) CONSTANT ('0E'X); /* DEVICE IS AN 1800 */ 00723000 *DCL DEV3125 BIT(8) CONSTANT ('11'X); /* DEVICE IS A 3125 */ 00724000 *DCL DEV3135 BIT(8) CONSTANT ('12'X); /* DEVICE IS A 3135 */ 00725000 *DCL DEVSYS3 BIT(8) CONSTANT ('13'X); /* DEVICE IS SYS 3 */ 00726000 *DCL DEV2701 BIT(8) CONSTANT ('14'X); /* DEVICE IS A 2701 OZ05270 */ 00727000 *DCL DEV2703 BIT(8) CONSTANT ('15'X); /* DEVICE IS A 2703 OZ05270 */ 00728000 *DCL DEV3704 BIT(8) CONSTANT ('16'X); /* DEVICE IS A 3704 */ 00729000 *DCL DEV3705 BIT(8) CONSTANT ('17'X); /* DEVICE IS A 3705 */ 00730000 *DCL DEV2980 BIT(8) CONSTANT ('18'X); /* DEVICE IS A 2980 */ 00731000 *DCL DEV3277 BIT(8) CONSTANT ('19'X); /* DEVICE IS A 3277 */ 00732000 *DCL DEV3284 BIT(8) CONSTANT ('1A'X); /* DEVICE IS A 3284 */ 00733000 *DCL DEV3286 BIT(8) CONSTANT ('1B'X); /* DEVICE IS A 3286 */ 00734000 *DCL DEV3275 BIT(8) CONSTANT ('1C'X); /* DEVICE IS A 3275 */ 00735000 *DCL DEV3741 BIT(8) CONSTANT ('1D'X); /* DEVICE IS A 3741 */ 00736000 *DCL DEV3747 BIT(8) CONSTANT ('1E'X); /* DEVICE IS A 3747 */ 00737000 *DCL DEVMTA BIT(8) CONSTANT ('28'X); /* DEVICE IS AN MTA */ 00738000 *DCL DEV2972 BIT(8) CONSTANT ('33'X); /* DEVICE IS A 2972 */ 00739000 *DCL DEV3271 BIT(8) CONSTANT ('34'X); /* DEVICE IS A 3271 */ 00740000 *DCL DEV3272 BIT(8) CONSTANT ('36'X); /* DEVICE IS A 3272 */ 00741000 *DCL DEVCC BIT(8) CONSTANT ('35'X); /* DEVICE IS A PHYSICAL UNIT */ 00742000 *DCL DEV1052 BIT(8) CONSTANT ('64'X); /* DEVICE IS A 1052 */ 00743000 *DCL DEV1053 BIT(8) CONSTANT ('65'X); /* DEVICE IS A 1053 */ 00744000 *DCL DEV1054 BIT(8) CONSTANT ('66'X); /* DEVICE IS A 1054 */ 00745000 *DCL DEV1055 BIT(8) CONSTANT ('67'X); /* DEVICE IS A 1055 */ 00746000 *DCL DEV1056 BIT(8) CONSTANT ('68'X); /* DEVICE IS A 1056 */ 00747000 *DCL DEV1057 BIT(8) CONSTANT ('69'X); /* DEVICE IS A 1057 */ 00748000 *DCL DEV1058 BIT(8) CONSTANT ('6A'X); /* DEVICE IS A 1058 */ 00749000 *DCL DEV1092 BIT(8) CONSTANT ('6B'X); /* DEVICE IS A 1092 */ 00750000 *DCL DEV1093 BIT(8) CONSTANT ('6C'X); /* DEVICE IS A 1093 */ 00751000 *DCL DEVLU BIT(8) CONSTANT ('6D'X); /* DEVICE IS A LOGICAL UNIT */ 00752000 *DCL DEV545 BIT(8) CONSTANT ('78'X); /* DEVICE IS A 545 */ 00753000 *DCL DEV1017 BIT(8) CONSTANT ('79'X); /* DEVICE IS A 1017 */ 00754000 *DCL DEV1018 BIT(8) CONSTANT ('7A'X); /* DEVICE IS A 1018 */ 00755000 *DCL DEV2203 BIT(8) CONSTANT ('7B'X); /* DEVICE IS A 2203 */ 00756000 *DCL DEV2213 BIT(8) CONSTANT ('7C'X); /* DEVICE IS A 2213 */ 00757000 *DCL DEV2265 BIT(8) CONSTANT ('7D'X); /* DEVICE IS A 2265 */ 00758000 *DCL DEV2502 BIT(8) CONSTANT ('7E'X); /* DEVICE IS A 2502 */ 00759000 *DCL DEV50 BIT(8) CONSTANT ('7F'X); /* DEVICE IS A 50 */ 00760000 *DCL DEV1255 BIT(8) CONSTANT ('80'X); /* DEVICE IS A 1255 */ 00761000 *DCL DEV5496 BIT(8) CONSTANT ('81'X); /* DEVICE IS A 5496 */ 00762000 */* MODEL CODES */ 0373 00763000 *DCL DEVMOD1 BIT(8) CONSTANT ('00'X); /* MODEL 1 */ 00764000 *DCL DEVMOD2 BIT(8) CONSTANT ('01'X); /* MODEL 2 */ 00765000 */* RESOURCE DEFINITION TABLE */ 00766000 */* REVISIONS 013 07/01/75 */ 00767000 *DCL 0375 00768000 *1 ISTRPRE BDY(WORD) BASED, /* COMMON PREFIX */ 00769000 * 2 RPRNAME CHAR(8), /* RESOURCE NAME */ 00770000 * 2 RPRCOMID FIXED(31), /* COMMUNICATION ID */ 00771000 * 3 RPRSAF BIT(16), /* SOURCE ADDRESS FIELD */ 00772000 * 3 RPRDAF BIT(16), /* DESTINATION ADDRESS FIELD- */ 00773000 * /* CONTAINS DAF OF CTERM IN PORT ENTRY */ 00774000 * 2 RPRRLOCK CHAR(LENGTH(ISTLOK)), /* RESOURCE LOCK */ 00775000 * 2 RPRELEN FIXED(15), /* CURRENT ENTRY LENGTH */ 00776000 * 2 RPRPELEN FIXED(15), /* PREVIOUS ENTRY LENGTH */ 00777000 * 2 RPRENTRY BIT(8), /* FLAG FIELD 1 (ENTRY TYPE) */ 00778000 * 2 RPRFLAGA BIT(8), 0375 00779000 * 3 RPRACT BIT(1), /* ACTIVE */ 00780000 * 3 RPRINV BIT(1), /* INVALID */ 00781000 * 3 RPRTIED BIT(1), /* TIED */ 00782000 * 3 RPRENTBF BIT(1), /* BUFFER TRACE THIS NODE */ 00783000 * 3 RPRENTIO BIT(1), /* RESERVED */ 00784000 * 3 RPRENTED BIT(1), /* LAST ENTRY IN RDT SEGMENT */ 00785000 * 3 RPRVRYPD BIT(1), /* VARY PENDING ON ENTRY */ 00786000 * 3 RPRLIVE BIT(1), /* RESOURCE IS LIVE */ 00787000 * 2 RPRFLAGB BIT(8), /* FLAG FIELD */ 00788000 * 3 RPRENTVH BIT(1), /* WHEN 1, ENTRY IS A VTAM HEADER */ 00789000 * 3 RPRENTVT BIT(1), /* WHEN 1, ENTRY IS VTAM */ 00790000 * 3 RPRAOPN BIT(1), /* NODE OPENABLE BY APPLICATION */ 00791000 * 3 RPRVIODN BIT(1), /* VARY I/O HAS BEEN DONE */ 00792000 * 3 RPRONLIN BIT(1), /* NODE VARIED ONLINE */ 00793000 * 3 RPRHLVPD BIT(1), /* VARY PENDING IN HIGHEST 0375 00794000 * LEVEL NODE */ 00795000 * 3 RPRVYIMM BIT(1), /* VARY IMMEDAITE ISSUED FOR NODE */ 00796000 * 3 RPRINTST BIT(1), /* DEVICE IN TEST MODE */ 00797000 * 2 RPRCAUSE BIT(8), /* FLAGS INDICATING CAUSE OF ENTRY 00798000 * INVALIDATION */ 00799000 * 3 RPRNOSRT BIT(1), /* RPRINV SET BECAUSE NO SRTE BUILT */ 00800000 * 3 RPRCRCPT BIT(1), /* C/R CHECKPOINT ACTIVE 1=ACTIVE */ 00801000 * 3 RPRRSYNC BIT(1), /* C/R RE-SYNC ON FIRST I/O */ 00802000 * /* REQUIRED: 1=YES */ 00803000 * 3 RPRRSV03 BIT(5), /* RESERVED */ 00804000 * 2 RPRPEPCT FIXED(15), /* VARY PENDING COUNTER */ 00805000 * 2 RPRTIOCT FIXED(8), /* I/O TRACE COUNT */ 00806000 * 2 RPRHDTYP BIT(8), /* HEADER TYPE */ 00807000 * 2 RPRLGONF PTR(31), /* SIM. LOGON CHAIN FORWARD PTR */ 00808000 * 2 RPRLGONB PTR(31), /* SIM. LOGON CHAIN BACKWARD PTR */ 00809000 * 2 RPRNSNEA PTR(31), /* NEXT SCHEDULABLE NODE ENTRY ADDR */ 00810000 * 2 RPRNCBA PTR(31), /* ADDR OF ASSOCIATED NCB FOR 0375 00811000 * OPENED NODES */ 00812000 * 2 RPRDEVCH CHAR(LENGTH(ISTDEVCH)), /* DEVICE CHARACTERISTICS */ 00813000 * 2 RPRRVPT1 PTR(31), /* RESERVED */ 00814000 * 2 RPRSTPCT FIXED(15), /* COUNT OF SHOULDER TAPS */ 00815000 * 2 RPRSWDAF BIT(16), /* SWITCHED DAF */ 00816000 * 2 RPRPTHCT FIXED(8), /* COUNT OF AVAILABLE PATHS 0375 00817000 * TO THIS DEVICE */ 00818000 * 2 RPRFLAGD CHAR(1), /* FLAG BYTE */ 00819000 * 3 RPRLTASN BIT(1), /* LINE TRACE ACTIVE = 1 */ 00820000 * 3 RPRCONCT BIT(1), /* PHYSICAL CONNECTION EXISTS */ 00821000 * 3 RPRRSON BIT(1), /* RESET ONLINE */ 00822000 * 3 RPRACTP BIT(1), /* ACTIVATE IN PROGRESS */ 00823000 * 3 RPRCONP BIT(1), /* CONTACT IN PROGRESS */ 00824000 * 3 RPRRSV05 BIT(2), /* RESERVED */ 00825000 * 3 RPRINIMM BIT(1), /* ON=INACTIVATE IMMED. IN PROGRESS */ 00826000 * 2 RPRFLAGC BIT(8), /* FLAG FIELD */ 00827000 * 3 RPRCLVPD BIT(1), /* THIS ENTRY HAS BEEN CLOSED */ 00828000 * 2 RPRCONID CHAR(9); /* CONTROL BLOCK ID */ 00829000 * 0375 00830000 * 0375 00831000 */* RPRENTRY - FOLLOWING EQUATES ARE FOR THE VARIOUS ENTRY TYPES */ 00832000 *DCL RPRENTCM BIT(8) CONSTANT('90'X); /* ENTRY IS A COMPONENT */ 00833000 *DCL RPRENTIN BIT(8) CONSTANT('82'X); /* ENTRY IS INTERMEDIATE NODE */ 00834000 *DCL RPRENTTR BIT(8) CONSTANT('80'X); /* ENTRY IS A TERMINAL */ 00835000 *DCL RPRENTUT BIT(8) CONSTANT('75'X); /* ENTRY IS UTERM */ 00836000 *DCL RPRENTCL BIT(8) CONSTANT('70'X); /* ENTRY IS A CLUSTER */ 00837000 *DCL RPRENTLN BIT(8) CONSTANT('50'X); /* ENTRY IS A LINE */ 00838000 *DCL RPRENTLH BIT(8) CONSTANT('03'X); /* ENTRY IS A LOCAL HEADER */ 00839000 *DCL RPRENTGP BIT(8) CONSTANT('30'X); /* ENTRY IS A GROUP */ 00840000 *DCL RPRENTLC BIT(8) CONSTANT('45'X); /* ENTRY IS A LOCAL DEVICE */ 00841000 *DCL RPRENTAH BIT(8) CONSTANT('02'X); /* ENTRY IS APPLICATION HEADER*/ 00842000 *DCL RPRENTAP BIT(8) CONSTANT('55'X); /* ENTRY IS APPLICATION */ 00843000 *DCL RPRENTDS BIT(8) CONSTANT('20'X); /* ENTRY IS LCDO 0387 00844000 * (DIALSET) */ 00845000 *DCL RPRENTRN BIT(8) CONSTANT('01'X); /* ENTRY IS THE RN */ 00846000 *DCL RPRENTCC BIT(8) CONSTANT('71'X); /* ENTRY IS A PU */ 00847000 *DCL RPRENTLU BIT(8) CONSTANT('81'X); /* ENTRY IS LOGICAL UNIT */ 00848000 *DCL RPRENTSW BIT(8) CONSTANT('04'X); /* ENTRY IS SWITCHED */ 00849000 * /* SUBAREA HEADER */ 00850000 *DCL RPRENTLS BIT(8) CONSTANT('05'X); /* ENTRY IS LOCAL */ 00851000 * /* SUBAREA HEADER */ 00852000 *DCL RPRENTPX BIT(8) CONSTANT('72'X); /* ENTRY IS A PUX */ 00853000 *DCL RPRENTLX BIT(8) CONSTANT('10'X); /* ENTRY IS A LUX */ 00854000 *DCL RPRENTDA BIT(8) CONSTANT('51'X); /* ENTRY IS A DAN */ 00855000 * 0395 00856000 * 0395 00857000 */* THE FOLLOWING IS A PREFIX FOR ALOCATION ENTRIES */ 00858000 */* ISTRCL-CLUSTER,ISTRTR-TERMINAL,ISTRCM-COMPONENT */ 00859000 * 0396 00860000 *DCL 0396 00861000 *1 ISTRCPRE BDY(WORD) BASED, /* LEVEL 1 DECLARE */ 00862000 * 2 RCPPRE CHAR(LENGTH(ISTRPRE)), /* COMMON PREFIX */ 00863000 * 2 RCPICELN PTR(31), /* PTR LOGON ICE QUEUE */ 00864000 * 2 RCPLNAPA PTR(31), /* PTR APLICATION ENTRY FOR SIMLOGON*/ 00865000 * 2 RCPICEAQ PTR(31), /* PTR ACQUIRE ICE QUEUE */ 00866000 * 2 RCPACETR PTR(31), /* PTR ACE QUEUE */ 00867000 * 2 RCPBHSI1 CHAR(1), /* GEN'D BHSET ID */ 00868000 * 2 RCPBHSI2 CHAR(1), /* OVERRIDING BHSET ID SPECIFIED 0396 00869000 * BY USER */ 00870000 * 2 RCPBFLIM PTR(8), /* BUFFER LIMIT */ 00871000 * 2 RCPPMODE CHAR(1), /* PERMISSABLE MODES */ 00872000 * 3 RCPRBASC BIT(1), /* 1= BASIC OK */ 00873000 * 3 RCPRRECD BIT(1), /* 1= RECORD OK */ 00874000 * 3 * BIT(6), /* RESERVED */ 00875000 * 2 RCPLGNIN CHAR(20) BDY(WORD), /* INIT LOGON DATA */ 00876000 * 3 RCPLGNAP CHAR(8), /* APPL FOR VTAM SIMLOGON */ 00877000 * 3 RCPLGNCT CHAR(8), /* NAME OF LOGON CHAR TABLE */ 00878000 * 3 RCPINTA PTR(31), /* ADDR OF INTERPRET TABLE */ 00879000 * 2 RCPRSV03 PTR(31), /* RESERVED FOR C/R */ 00880000 * 2 RCPRSV04 PTR(31), /* RESERVED FOR C/R */ 00881000 * 2 RCPRSV05 PTR(31); /* RESERVED FOR C/R */ 00882000 * 0396 00883000 * 0396 00884000 *DCL 0397 00885000 *1 ISTRDT BDY(WORD) BASED, /* LEVEL 1 DECLARE */ 00886000 * 2 RDTPRE CHAR(LENGTH(ISTRPRE)), /* ENTRY PREFIX */ 00887000 * 2 RDTPLEN CHAR(4)BDY(WORD), /* PRIORITY AND LENGTH FIELD */ 00888000 * 3 RDTPRIOR, /* DETERMINES SEGMENT TYPE */ 00889000 * 4 * BIT(3), /* NOT USED */ 00890000 * 4 RDTPRIAP BIT(1), /* APPLICATION SEGMENT */ 00891000 * 4 RDTPRILC BIT(1), /* LOCAL SEGMENT */ 00892000 * 4 RDTPRIRN BIT(1), /* RN SEGMENT */ 00893000 * 4 RDTPRISW BIT(1), /* SWITCHED SEGMENT */ 00894000 * 4 RDTPRILS BIT(1), /* LOCAL SUBAREA SEGMENT */ 00895000 * 3 RDTLEN FIXED(24), /* LENGTH OF RDT */ 00896000 * 2 RDTFORW PTR(31), /* FOREWARD POINTER */ 00897000 * 2 RDTBACK PTR(31), /* BACKWARD POINTER */ 00898000 * 2 RDTFLAGS BIT(16), /* SEGMENT FLAGS,UNUSED/REUSED */ 00899000 * 2 RDTCTSNT FIXED(15), /* COUNT OF SNT ENTRIES FOR 0397 00900000 * SEGMENT */ 00901000 * 2 RDTMAXID PTR(8), /* MAXIMUM NODE ID FOR 0397 00902000 * NETWORK */ 00903000 * 2 RDTNODID PTR(8), /* NODE ID FOR THIS SEGMENT */ 00904000 * 2 RDTLGCT PTR(8), /* COUNT OF LOGONS OUTSTANDING */ 00905000 * 2 RDTFLAGB BIT(8), /* FLAG BYTE */ 00906000 * 3 RDTOUERP BIT(1), /* 1 = REPEAT ERP */ 00907000 * 3 RDTPRGDN BIT(1), /* 1 = PURGE ISSUED */ 00908000 * 3 RDTCTPGD BIT(1), /* 1 = CONTACT PURGED */ 00909000 * 3 RDTCTCFL BIT(1), /* HIGHER FAILURE-CONTACT FLUSHED */ 00910000 * 3 RDTBHSET BIT(1), /* BHSET REQUIRED */ 00911000 * 3 RDTRSV01 BIT(3), /* RESERVED */ 00912000 * 2 RDTVPAB PTR(31), /* ADDR OF VARY PAB */ 00913000 * 2 RDTEPAB PTR(31), /* ADDR OF ERP PAB */ 00914000 * 2 RDTDPAB PTR(31), /* ADDR OF DUMP/LOAD/RESTART PAB */ 00915000 * 2 RDTTPAB PTR(31), /* TOLTEP SSCP PAB */ 00916000 * 2 RDTVYRPH PTR(31), /* @ OF VARY RPH WAITING */ 00917000 * /* FOR RESTART COMPLETION */ 00918000 * 3 RRNVYRPH PTR(31), /* DELETE ALIAS IN NEXT */ 00919000 * /* FIRST SNA/2 BUILD */ 00920000 * 2 RDTSTCNT PTR(8), /* ACTIVE SUBNODE COUNT */ 00921000 * 3 RRNSTCNT PTR(8), /* DELETE ALIAS IN NEXT */ 00922000 * /* FIRST SNA/2 BUILD */ 00923000 * 2 * CHAR(3), /* RESERVED */ 00924000 * 2 RDTCRSDS CHAR(8), /* C/R DATA SET IDENTIFIER */ 00925000 * /* BLANK IMPLIES NOT SPECIFIED */ 00926000 * 2 RDTCRSPW CHAR(8), /* C/R DATASET PASSWORD */ 00927000 * /* BLANK IMPLIES NOT SPECIFIED */ 00928000 * 2 RDTVSRPL PTR(31); /* C/R PTR TO VSAM RPL */ 00929000 * 0397 00930000 * 0397 00931000 *DCL 0398 00932000 *1 ISTRAP BDY(WORD) BASED, /* APPLICATION ENTRY */ 00933000 * 2 RAPPRE CHAR(LENGTH(ISTRPRE)), /* USE ISTRPRE DSECT */ 00934000 * 2 RAPACBA PTR(31), /* POINTER TO ACB */ 00935000 * 2 RAPACDEB PTR(31), /* POINTER TO ACBDEB */ 00936000 * 2 RAPAPPWD CHAR(8), /* APPLICATION PASSWORD */ 00937000 * 2 RAPICELG PTR(31), /* ANCHOR FOR LOGON ICE TO APLICATION* 00938000 * 2 RAPICEAC PTR(31), /* ANCHOR ACEPT ICE FOR APPLICATION */ 00939000 * 2 RAPICEAQ PTR(31), /* ANCHOR ACQUIRE ICE BY APPLI */ 00940000 * 2 RAPACEAP PTR(31), /* ANCHOR FOR APPLICATION ACES */ 00941000 * 2 RAPTRPRE FIXED(15), /* COUNT OF PREMPTED TERMINALS */ 00942000 * 2 RAPACEQD FIXED(15), /* COUNT OF ACES QUEUED */ 00943000 * 2 RAPFLG BIT(8), /* FLAG FIELD */ 00944000 * 3 RAPABLGN BIT(1), /* PERMANENTLY BLOCK LOGONS BIT */ 00945000 * 3 RAPAQUI BIT(1), /* QUIESCE IN PROCESS */ 00946000 * 3 RAPASLGI BIT(1), /* APPLICATION FIRST TIME LOGON 0398 00947000 * ISSUED FLAG */ 00948000 * 3 RAPATLGN BIT(1), /* TEMPORARILY BLOCK LOGONS BIT */ 00949000 * 3 RAPRSV03 BIT(1), /* RESERVED */ 00950000 * 3 RAPRSV04 BIT(1), /* RESERVED */ 00951000 * 3 RAPRSV05 BIT(1), /* RESERVED */ 00952000 * 3 RAPRSV06 BIT(1), /* RESERVED */ 00953000 * 2 RAPFLGB BIT(8), /* AUTHORIZATION FLAGS */ 00954000 * 3 RAPALLF BIT(1), /* ALL FUNCTIONS AUTH. */ 00955000 * 3 RAPABLCK BIT(1), /* BLOCK I/O AUTH. */ 00956000 * 3 RAPAPASS BIT(1), /* PASS AUTH. */ 00957000 * 3 RAPAPRMT BIT(1), /* PREEMPT AUTH. */ 00958000 * 3 RAPAACQ BIT(1), /* ACQUIRE AUTH. */ 00959000 * 3 RAPAPPO BIT(1), /* RNO PPO (PRIMARY PROGRAM AUTH */ 00960000 * 3 RAPASPO BIT(1), /* RNO SPO (SECONDARY PROGRAM AUTH */ 00961000 * 3 RAPANVPC BIT(1), /* NO VSPACE AUTHORIZED */ 00962000 * 2 RAPFLGC BIT(8), /* AUTHORIZATION FLAGS RESERVED */ 00963000 * 3 RAPRSV10 BIT(1), /* RESERVED */ 00964000 * 3 RAPRSV11 BIT(1), /* RESERVED */ 00965000 * 3 RAPRSV12 BIT(1), /* RESERVED */ 00966000 * 3 RAPRSV13 BIT(1), /* RESERVED */ 00967000 * 3 RAPRSV14 BIT(1), /* RESERVED */ 00968000 * 3 RAPRSV15 BIT(1), /* RESERVED */ 00969000 * 3 RAPRSV16 BIT(1), /* RESERVED */ 00970000 * 3 RAPRSV17 BIT(1), /* RESERVED */ 00971000 * 2 RAPBFACT PTR(8), /* BUFFER LIMIT FACTOR */ 00972000 * 2 RAPRVPT1 PTR(31), /* RESERVED */ 00973000 * 2 RAPRVPT2 PTR(31); /* RESERVED */ 00974000 * 0398 00975000 * 0398 00976000 *DCL 0399 00977000 *1 ISTRLC BDY(WORD) BASED, /* LOCAL ENTRY */ 00978000 * 2 RLCPRE CHAR(LENGTH(ISTRPRE)), /* COMMON PREFIX */ 00979000 * 2 RLCADR PTR(31), 0399 00980000 * 3 RLCFLAG BIT(8), /* FLAG BYTE */ 00981000 * 4 RLCRSV22 BIT(1), /* RESERVED */ 00982000 * 4 RLCRBISA BIT(1), /* INITIAL STATUS - 1 = ACTIVE */ 00983000 * 4 RLCRSV14 BIT(3), /* UNUSED/RESERVED */ 00984000 * 4 RLCACNT BIT(1), /* MESSAGE BLOCK ACCEPTED */ 00985000 * 4 RLCRSVDE BIT(2), /* RESERVED */ 00986000 * 3 RLCUCBAD PTR(24), /* UCB /PUB ADDRESS */ 00987000 * 2 RLCLCCUA CHAR(3), /* DEVICE CHANNEL UNIT ADDR */ 00988000 * 2 RLCRVPT1 CHAR(1), /* RESERVED */ 00989000 * 2 RLCRVPT2 PTR(31); /* RESERVED */ 00990000 * 0399 00991000 * 0399 00992000 *DCL 0400 00993000 *1 ISTRRN BDY(WORD) BASED, /* RN ENTRY */ 00994000 * 2 RRNPRE CHAR(LENGTH(ISTRDT)), /* USE ISTRDT DSECT */ 00995000 * 2 RRNADR PTR(31), 0400 00996000 * 3 RRNFLAG BIT(8), 0400 00997000 * 4 RRNRSV89 BIT(1), /* RESERVED */ 00998000 * 4 RRNRBISA BIT(1), /* INITIAL STATUS 1 = ACTIVE */ 00999000 * 4 RRNLCSIP BIT(1), /* NODE BEING ACTIVATED */ 01000000 * 4 RRNLCDIE BIT(1), /* HIGHER NODE NOT SUCCESFULLY */ 01001000 * /* ACTIVATED */ 01002000 * 4 RRNLCDIP BIT(1), /* NODE BEING DEACTIVATED */ 01003000 * 4 RRNERPIP BIT(1), /* ERP IN PROCESS */ 01004000 * 4 RRNDSTCT BIT(1), /* DEACT TO DECREMENT STCNT */ 01005000 * 4 RRNRSV11 BIT(1), /* UNUSED/RESERVED */ 01006000 * 3 RRNUCBAD PTR(24), /* UCB/PUB ADDR */ 01007000 * 4 RRNCHQI BIT(8), /* CHANNEL QUEUE INDEX */ 01008000 * 4 RRNLUBA PTR(16), /* DESCRIBE ENTRY IN PUB */ 01009000 * /* OWNERSHIP TABLE */ 01010000 * 2 RRNGRPA PTR(31), /* POINTER TO FIRST GROUP ENTRY */ 01011000 * 2 RRNRNCUA CHAR(3), /* CHANNEL UNIT ADDR */ 01012000 * 2 RRNRLDIP FIXED(8), /* REMOTE LOAD/DUMP IN PROG. COUNT */ 01013000 * 2 RRNTRENT PTR(31), /* ADDR TERM ENTRY IN LOCAL */ 01014000 * 2 RRNBHSET PTR(31), /* POINTER TO TABLE OF BHSET NAMES */ 01015000 * 2 RRNCTBHS FIXED(15), /* COUNT OF BHSET NAMES IN RRNBHSET */ 01016000 * 2 RRNCTEGP FIXED(15), /* COUNT OF GROUP ENTRIES FOR RN */ 01017000 * 2 RRNCTELI FIXED(15), /* COUNT OF LINE ENTRIES FOR RN */ 01018000 * 2 RRNCTECL FIXED(15), /* COUNT OF CLUSTER ENTRIES FOR RN */ 01019000 * 2 RRNCTETR FIXED(15), /* COUNT OF TERMINAL ENTRIES FOR RN */ 01020000 * 2 RRNCTEIN FIXED(15), /* COUNT OF INT. NODE ENTRIES FOR RN*/ 01021000 * 2 RRNCTECM FIXED(15), /* CNT OF COMPONENT ENTRIES FOR RN */ 01022000 * 2 RRNCTENT FIXED(15), /* # ALL ENTRIES IN 370X RDT SEGMENT*/ 01023000 * 2 RRNRDF CHAR(4), /* RESOURCE DEFINITION FLAG */ 01024000 * 3 RRNRDFA BIT(8), /* FLAGS (WORD 1 BYTE 1) */ 01025000 * 4 RRNRASHT BIT(1), /* AUTO NETWORK SHUTDOWN */ 01026000 * 4 RRNRAIPL BIT(1), /* AUTO IPL ON RN FAILURE */ 01027000 * 4 RRNRADMP BIT(1), /* AUTO DUMP ON RN FAILURE */ 01028000 * 4 RRNRASYN BIT(1), /* C/R AUTOMATICALLY RESYNCHRONIZED */ 01029000 * /* IF ALREADY LOADED NCP */ 01030000 * /* 0=NO, 1=YES */ 01031000 * 4 RRNRAOLT BIT(1), /* ON-LINE TERMINAL TEST */ 01032000 * 4 RRNRBREM BIT(1), /* REMOTE RN FLAG */ 01033000 * 4 RRNRANCP BIT(1), /* GENERATION TYPE NCP */ 01034000 * 4 RRNRAPEP BIT(1), /* GENERATION TYPE PEP */ 01035000 * 3 RRNRDFB BIT(16), /* FLAG FIELD B (RDF) */ 01036000 * 4 RRNRBMDL BIT(1), /* (=1 IF 3705) ELSE 3704 */ 01037000 * 4 RRNRSV02 BIT(1), /* RESERVED */ 01038000 * 4 RRNRBCCL BIT(1), /* LOOSELY COUPLED CHANNEL */ 01039000 * 4 RRNRBCCT BIT(1), /* TIGHTLY COUPLED CHANNEL */ 01040000 * 4 RRNRBSEC BIT(1), /* SECONDARY CHANNEL EXIST */ 01041000 * 4 RRNRBCT1 BIT(1), /* PRIM CHAN TYPE (0=TYPE1,1=TYPE2) */ 01042000 * 4 RRNRBCT2 BIT(1), /* SEC CHAN TYPE (0=TYPE1,1=TYPE2) */ 01043000 * 4 RRNRSV03 BIT(1), /* RESERVED */ 01044000 * 4 RRNRBBUP BIT(1), /* BRINGUP IS TO BE EXERCISED 0400 01045000 * FOR THIS RN DURING IPL */ 01046000 * 4 RRNVYDON BIT(1), /* RDT SEG IS BEING FREED */ 01047000 * 4 RRNRSV01 BIT(5), /* RESERVED */ 01048000 * 4 RRNPTASL BIT(1), /* SOME PORT SOLICITOR IS WAITING 0400 01049000 * TO BE REDRIVEN BY CLSDST */ 01050000 * 3 RRNRSV55 CHAR(1), /* RESERVED */ 01051000 * 2 RRNCMF CHAR(4), /* FLAG FIELDS FOR COMMANDS */ 01052000 * 3 RRNCMFA BIT(8), /* FLAG FIELD A -COMMANDS */ 01053000 * 4 RRNCAALL BIT(1), /* PHYSICAL DISCONNECT */ 01054000 * 4 RRNCAATD BIT(1), /* ACTIVATE DEVICE */ 01055000 * 4 RRNCAATG BIT(1), /* ACTIVATE GROUP */ 01056000 * 4 RRNCAATI BIT(1), /* ACTIVATE INVITES */ 01057000 * 4 RRNCAMBH BIT(1), /* MODIFY BLOCK HANDLER SET */ 01058000 * 4 RRNCACDT BIT(1), /* CHANGE DATE AND TIME */ 01059000 * 4 RRNCADTD BIT(1), /* DEACTIVATE DEVICE */ 01060000 * 4 RRNCADGO BIT(1), /* DEACTIVATE GROUP ORDERLY */ 01061000 * 3 RRNCMFB BIT(8), /* FLAG FIELD B - COMMANDS */ 01062000 * 4 RRNCBDLO BIT(1), /* DEACTIVATE LINE ORDERLY */ 01063000 * 4 RRNCBDLH BIT(1), /* DEACTIVATE LINE HALT */ 01064000 * 4 RRNCBDLR BIT(1), /* DISPLAY LINE RESOURCE ID */ 01065000 * 4 RRNCBRDS BIT(1), /* REQUEST DEVICE STATUS */ 01066000 * 4 RRNCBRLS BIT(1), /* REQUEST LINE STATUS */ 01067000 * 4 RRNCBNPL BIT(1), /* CHANGE LINE NEG POLL RESPONSE LIM*/ 01068000 * 4 RRNCBMOD BIT(1), /* COPY/SET DESTINATION NODE */ 01069000 * 4 RRNCBALT BIT(1), /* ACTIVATE LINE TRACE */ 01070000 * 3 RRNCMFC BIT(8), /* FLAG FIELD C - COMMANDS */ 01071000 * 4 RRNCCRCN BIT(1), /* RESET CONDITIONAL */ 01072000 * 4 RRNCCRDQ BIT(1), /* RESET DEVICE QUEUE */ 01073000 * 4 RRNCCRST BIT(1), /* REQUEST DEVICE STATISTICS */ 01074000 * 4 RRNCCCRC BIT(1), /* CHANGE RETRY COUNTS */ 01075000 * 4 RRNCCRIM BIT(1), /* RESET IMMEDIATE */ 01076000 * 4 RRNCCRCM BIT(1), /* RESET CONTROL MODE */ 01077000 * 4 RRNCCSIM BIT(1), /* COPY/REPLACE SESSION INIT INFO */ 01078000 * 4 RRNCCCSL BIT(1), /* CHANGE SESSION LIMIT */ 01079000 * 3 RRNCMFD BIT(8), /* FLAG FIELD D - COMMANDS */ 01080000 * 4 RRNCDCSP BIT(1), /* CHANGE SERIVCE PAUSE */ 01081000 * 4 RRNCDSTD BIT(1), /* DISPLAY STORAGE */ 01082000 * 4 RRNCDDTL BIT(1), /* CHANGE DEVICE TRANSMIT LIMIT */ 01083000 * 4 RRNCDBCK BIT(1), /* SWITCHED NETWORK BACKUP */ 01084000 * 4 RRNCDDSI BIT(1), /* COPY/REPLACE DEV SESSION INIT INFO* 01085000 * 4 RRNCDREC BIT(1), /* RESET AT END OF COMMAND */ 01086000 * 4 RRNREMPO BIT(1), /* REMOTE POWER OFF */ 01087000 * 4 RRNRSV05 BIT(1), /* NOT USED */ 01088000 * 2 RRNFLUX PTR(31), /* POINTER TO FIRST LUX */ 01089000 * 2 RRNCPLUB CHAR(6), /* SYMBOLIC UNIT NAME OF NCP DATASET*/ 01090000 * 2 RRNEPADR PTR(15), /* EP SUBCHANNEL ADDRESS */ 01091000 * 2 RRNNMDPD CHAR(8), /* FILENAME FOR DUMP DATA SET */ 01092000 * 3 RRNDPLUB CHAR(6), /* LUB NAME FOR DUMP DATASET */ 01093000 * 3 RRNPUBI BIT(8), /* PUB INDEX */ 01094000 * 3 RRNRSV88 CHAR(1), /* RESERVED-DOS ONLY */ 01095000 * 2 RRNRSV04 CHAR(6), /* RESERVED */ 01096000 * 2 RRNDELAY CHAR(2), /* INITIAL VALUE FROM DELAY */ 01097000 * 2 RRNNMNCP CHAR(8), /* DSNAME FOR NCP LOAD MODULE */ 01098000 * 2 RRNHPRE PTR(16), /* HOST PREFIX INFORMATION */ 01099000 * 3 RRNHLENH PTR(8), /* LENGTH OF HOST HEADER PREFIX */ 01100000 * 3 RRNHLENT PTR(8), /* LENGTH OF HOST TEXT PREFIX */ 01101000 * 2 RRNHBUFS FIXED(15), /* SIZE OF BUFFER UNITS FOR HOST */ 01102000 * 2 RRNCTPCC PTR(8), /* CNT OF BUFFERS RECEIVING PCCU DATA* 01103000 * 2 RRNNCPNM CHAR(7), /* NAME OF NCP LOAD MOD 7 CHAR MAX */ 01104000 * 2 RRNMSIZE PTR(31), /* MAX SIZE OF SEND */ 01105000 * 2 RRNRPLPT PTR(31), /* C/R POINTER TO RPL */ 01106000 * 2 RRNNCSPL PTR(31), /* POINTER TO NCSPL */ 01107000 * 2 RRNLASTE PTR(31), /* PTR TO LAST ENTRY IN RN SEGMENT */ 01108000 * 2 RRNRDCUA CHAR(3), /* DEFAULT CUA */ 01109000 * 2 * PTR(8), /* RESERVED */ 01110000 * 2 RRNRINNM CHAR(8); /* DEFAULT INNODE NAME IN LOCAL 0400 01111000 * RDT TO CONNECT REMOTE RN */ 01112000 * 0400 01113000 *DCL 0401 01114000 *1 ISTRGP BDY(WORD) BASED, /* GROUP ENTRY */ 01115000 * 2 RGPPRE CHAR(LENGTH(ISTRPRE)), /* USE ISTRPRE DSECT */ 01116000 * 2 RGPFLG BIT(8), /* FLAG FIELD */ 01117000 * 3 RGPADIL BIT(1), /* =1 SWITCHED, =0 NON-SWIT */ 01118000 * 3 RGPASS BIT(1), /* START/STOP */ 01119000 * 3 RGPABSC BIT(1), /* BINARY SYNCHRONOUS */ 01120000 * 3 RGPASDLC BIT(1), /* DATA LINK CONTROL */ 01121000 * 3 RGPRSV02 BIT(4), /* NOT USED */ 01122000 * 2 RGPRSV03 FIXED(8), /* USED TO FORCE ALINEMENT */ 01123000 * 2 RGPCTELN FIXED(15), /* COUNT OF LINE ENTRIES FOR GROUP */ 01124000 * 2 RGPCTECL FIXED(15), /* CNT OF CLUSTER ENTRIES FOR GROUP */ 01125000 * 2 RGPCTETR FIXED(15), /* CNT TERMINAL ENTRIES FOR GROUP */ 01126000 * 2 RGPCTEIN FIXED(15), /* COUNT OF INNODE ENTRIES FOR GROUP*/ 01127000 * 2 RGPCTECM FIXED(15), /* CNT COMPONENT ENTRIES FOR GROUP */ 01128000 * 2 RGPRVPT1 PTR(31), /* RESERVED */ 01129000 * 2 RGPRVPT2 PTR(31); /* RESERVED */ 01130000 * 0401 01131000 * 0401 01132000 *DCL 0402 01133000 *1 ISTRLN BDY(WORD) BASED, /* LINE ENTRY */ 01134000 * 2 RLNPRE CHAR(LENGTH(ISTRPRE)), /* USE COMMON PREFIX */ 01135000 * 2 RLNADR PTR(31), 0402 01136000 * 3 RLNFLAG BIT(8), 0402 01137000 * 4 RLNEAM BIT(1), /* ENABLE ANSWER MODE DONE */ 01138000 * 4 RLNRBISA BIT(1), /* INITIAL STATUS 1=ACTIVE */ 01139000 * 4 RLNRSV01 BIT(6), /* RESERVED */ 01140000 * 3 RLNUCBAD PTR(24), /* UCB/PUB ADDRESS */ 01141000 * 4 RLNCUA CHAR(3), /* NOT USED */ 01142000 * 2 RLNCTECL FIXED(15), /* CNT OF CLUSTER ENTRIES FOR LINE */ 01143000 * 2 RLNCTETR FIXED(15), /* CNT OF TERMINAL ENTRIES FOR LINE */ 01144000 * 2 RLNCTEIN FIXED(15), /* COUNT OF INNODE ENTRIES FOR LINE */ 01145000 * 2 RLNCTECM FIXED(15), /* CNT OF COMPONENT ENTRIES FOR LINE*/ 01146000 * 2 RLNACTCT FIXED(15), /* COUNT OF COMPONENTS, CLUSTERS 0402 01147000 * AND TERMINALS ON LINE */ 01148000 * 2 RLNSTAT1 BIT(8), /* LINK TRAP STATUS */ 01149000 * 3 RLNTRAP BIT(1), /* INTERCEPT NEXT LINK OPERATION */ 01150000 * 3 RLNLRST BIT(1), /* LINK RESTART COND CAUSED TRAP */ 01151000 * 3 RLNINOPL BIT(1), /* LINK INOP CONDITION CAUSED TRAP */ 01152000 * 3 RLNINOPP BIT(1), /* PU INOP CONDITION CAUSED TRAP */ 01153000 * 3 RLNVD BIT(1), /* VARY INACT CONDITION CAUSED TRAP */ 01154000 * 3 RLNRSV03 BIT(3), /* RESERVED */ 01155000 * 2 RLNSTAT2 BIT(8), /* LINK NORMAL STATUS */ 01156000 * 3 RLNOHIN BIT(1), /* OFFHOOK REPORTED TO SW SUBAREA- */ 01157000 * /* REPLY DUE */ 01158000 * 3 RLNINUSE BIT(1), /* LINK RESOURCES ALLOCATED TO PU */ 01159000 * 3 RLNRSV04 BIT(6), /* RESERVED */ 01160000 * 2 RLNRDF CHAR(4), /* RESOURCE DEFINITION FLAG */ 01161000 * 3 RLNRDFA BIT(8), /* FLAGS FIELD A */ 01162000 * 4 RLNRACNT BIT(2), /* NEXT TWO FIELDS */ 01163000 * 5 RLNRACAT BIT(1), /* CALL INITIATOR-TERMINAL */ 01164000 * 5 RLNRACAN BIT(1), /* CALL INITIATOR-NCP */ 01165000 * 4 RLNGANSW BIT(1), /* C/R GENNED IN ANSWER MODE, 1=YES */ 01166000 * 4 RLNPORT BIT(1), /* THIS IS A PORT ENTRY */ 01167000 * 4 RLNIDV BIT(1), /* THIS IS AN ID VERIFIED PORT */ 01168000 * 4 RLNRAEP BIT(1), /* TYPE IS EP */ 01169000 * 4 RLNRANCP BIT(1), /* TYPE IS NCP */ 01170000 * 4 RLNRAPEP BIT(1), /* TYPE IS PEP */ 01171000 * 3 RLNRDFB BIT(8), /* FLAGS FIELD B */ 01172000 * 4 RLNRBUSE BIT(1), /* EP/NCP USE 1=NCP */ 01173000 * 4 RLNANSWR BIT(1), /* ON = SEND ENABLE ANSWER */ 01174000 * /* AT ACTIVATE */ 01175000 * 4 RLNAUTOD BIT(1), /* ON=AUTODIAL, OFF=MANUAL */ 01176000 * 4 RLNRSV0B BIT(1), /* RESERVED */ 01177000 * 4 RLNTTV BIT(1), /* THIS IS TERM TYPE VERIFICATION 0402 01178000 * PORT */ 01179000 * 4 RLNRAPOL BIT(1), /* POLLED LINE */ 01180000 * 4 RLNRATRN BIT(1), /* SDLC LINE */ 01181000 * 4 RLNMULTP BIT(1), /* 0 = POINT TO POINT, 0402 01182000 * 1 = MULTI POINT */ 01183000 * 3 RLNRDFC BIT(8), /* FLAGS FIELD C - LINE CODES */ 01184000 * /* SEE CONSTANTS FOR DEFINITION */ 01185000 * 3 RLNRDFD BIT(8), /* FLAGS FIELD D - RESERVED */ 01186000 * 2 RLNAUTOA FIXED(15), /* AUTOCALL ADDRESS */ 01187000 * 2 RLNRDSLM FIXED(8), /* SCHED. LIM BASED ON LINE SPEED 2-4* 01188000 * 2 RLNCTSES FIXED(8), /* COUNT OF CONCURRENT SESSIONS */ 01189000 * 2 RLNACTRM PTR(8), /* COUNT OF ACTIVE REMOTES FOR THIS 01190000 * TRUNK */ 01191000 * 2 RLNRESV1 BIT(8), /* RESERVED/UNUSED */ 01192000 * 2 RLNACTSN FIXED(15), /* COUNT ACTIVE NODES ON LINK */ 01193000 * 2 RLNPOLMT FIXED(8), /* NEG POLL RESPONSE LIMIT */ 01194000 * 2 RLNPAUSE FIXED(8), /* POLL DELAY/PAUSE */ 01195000 * 2 RLNCRFLG BIT(8), /* FLAG-CONFIGURATION RESTART */ 01196000 * 3 RLNACTLN BIT(1), /* ACTIVATE LINK OK */ 01197000 * 3 RLNSWNCP BIT(1), /* SWITCH PEP LINE TO NCP OK */ 01198000 * 3 RLNLSCMD BIT(3), /* LINE SCHEDULING COMMANDS 0402 01199000 * ISSUED OK */ 01200000 * 4 RLNNPRLM BIT(1), /* CHNG NEG POLL RESP LIMIT OK */ 01201000 * 4 RLNSESLM BIT(1), /* CHNG SESSION LIMIT OK */ 01202000 * 4 RLNSVSKP BIT(1), /* CHNG SERVICE SEEK PAUSE OK */ 01203000 * 3 RLNSWEP BIT(1), /* SWITCH TO EP */ 01204000 * 3 RLNCRRSV BIT(2), /* RESERVED FOR CONFIG RESTART */ 01205000 * 2 * CHAR(1), /* RESERVED */ 01206000 * 2 RLNX2SW PTR(31), /* ADDRESS OF 370X TO SWITCH */ 01207000 * /* COMMUNICATION NCSPL */ 01208000 * 2 RLNNCSPL PTR(31), /* ADDRESS OF SPIN-OFF NCSPL */ 01209000 * /* FOR VARY DEACTIVATE */ 01210000 * 2 RLNRVPT2 PTR(31); /* RESERVED */ 01211000 * 0402 01212000 * 0402 01213000 *DCL RLNRCEDC BIT(8) CONSTANT('01'X); /* EBCDIC (CONSTANTS) */ 01214000 *DCL RLNRCUSA BIT(8) CONSTANT('02'X); /* USASCII */ 01215000 *DCL RLNRCBCD BIT(8) CONSTANT('03'X); /* BCD */ 01216000 *DCL RLNRCEBC BIT(8) CONSTANT('04'X); /* EBCD */ 01217000 *DCL RLNRCCOR BIT(8) CONSTANT('05'X); /* COR */ 01218000 *DCL RLNRCKAT BIT(8) CONSTANT('06'X); /* KATAKANA */ 01219000 *DCL RLNRCIT2 BIT(8) CONSTANT('08'X); /* ITA2 */ 01220000 *DCL RLNRCZS3 BIT(8) CONSTANT('09'X); /* ZSC3 */ 01221000 * 0410 01222000 * 0410 01223000 *DCL 0411 01224000 *1 ISTRPT BDY(WORD) BASED, /* PORT ENTRY */ 01225000 * 2 RPTLN CHAR(LENGTH(ISTRLN)), /* INCLUDE LINE ENTRY */ 01226000 * 2 RPTLNCID BDY(WORD) CHAR(4), /* COMM ID OF LINE */ 01227000 * 3 RPTLNSAF CHAR(2), /* SAF */ 01228000 * 3 RPTLNDAF CHAR(2), /* DAF */ 01229000 * 2 RPTCTNM CHAR(8), /* CTERM NAME */ 01230000 * 2 RPTDITT PTR(31), /* POINTER TO DITT TABLE */ 01231000 * 3 RPTDIVT PTR(31), /* POINTER TO DIVT TABLE */ 01232000 * 2 RPTATERM PTR(31), /* POINTER TO ASSOCIATED ENTRY */ 01233000 * 2 RPTUTERM PTR(31), /* POINTER TO UTERM ENTRY */ 01234000 * 2 RPTFLAG1 CHAR(1), /* PORT SOLICITOR FLAGS */ 01235000 * 3 RPTASLEP BIT(1), /* THIS PORT SOLICITOR IS WAITING 01236000 * TO BE REDRIVEN BY CLSDST */ 01237000 * 3 RPTVRYPD BIT(1), /* VARY PENDING IN THIS CTERM */ 01238000 * 3 RPTHLVPD BIT(1), /* VARY PENDING IN HIGHER LEVEL 0411 01239000 * NODE */ 01240000 * 3 RPTONLIN BIT(1), /* ONLINE/OFFLINE(VARY) */ 01241000 * 3 RPTVIODN BIT(1), /* I/O DONE FOR THIS NODE */ 01242000 * 3 RPTVYIMM BIT(1), /* VARY IMM ISSUED FOR PORT */ 01243000 * 3 RPTDYNAM BIT(1), /* BHSET = DYNAMIC */ 01244000 * 3 RPTISTAT BIT(1), /* CTERM(PORT) IS INITIALLY ACTIVE*/ 01245000 * /* 1 = YES */ 01246000 * 2 RPTRSV01 CHAR(1), /* RESERVED */ 01247000 * 2 RPTDAFSV BIT(16), /* SAVE TERMINAL DAF */ 01248000 * 2 RPTPEPCT FIXED(15), /* PEP COUNT FOR CTERM */ 01249000 * 2 RPTPTHCT FIXED(15), /* PATH COUNT FOR CTERM */ 01250000 * 2 RPTNSNSV PTR(31), /* SAVE TERMINAL NEXT SCHED NODE 01251000 * POINTER */ 01252000 * 2 RPTRSV02 PTR(31), /* RESERVED */ 01253000 * 2 RPTRSV03 PTR(31); /* RESERVED */ 01254000 * 0411 01255000 * 0411 01256000 *DCL 0412 01257000 *1 ISTRCL BDY(WORD) BASED, /* CLUSTER ENTRY */ 01258000 * 2 RCLPRE CHAR(LENGTH(ISTRPRE)), /* USE COMMON PREFIX */ 01259000 * 2 RCLADR PTR(31), 0412 01260000 * 3 RCLFLAG BIT(8), 0412 01261000 * 4 RCLRSV22 BIT(1), /* RESERVED */ 01262000 * 4 RCLRBISA BIT(1), /* INITIAL STATUS 1=ACTIVE */ 01263000 * 4 RCLBATCH BIT(1), /* BATCHED MESSAGE INPUT 0412 01264000 * FEATURE */ 01265000 * 4 RCLRSV33 BIT(5), /* RESERVED */ 01266000 * 3 RCLGPADR PTR(24), /* ADDRESSING INFORMATION POINTER 0412 01267000 * (ADDR RCLCNGP) */ 01268000 * 2 RCLCTETR FIXED(15), /* CNT TERMINAL ENTRIES FOR CLUSTER */ 01269000 * 2 RCLCTECM FIXED(15), /* CNT COMPONENT ENTRIES FOR CLUSTER*/ 01270000 * 2 RCLRSV01 FIXED(15), /* FILLER TO FORCE ALIGNMENT */ 01271000 * 2 RCLCTNGP FIXED(15), /* GPOLL CHARACTER COUNT */ 01272000 * 2 RCLGPOLA PTR(31), /* GPOLL CHARACTER STRING POINTER */ 01273000 * 2 RCLRVPT1 PTR(31), /* RESERVED */ 01274000 * 2 RCLRVPT2 PTR(31); /* RESERVED */ 01275000 * 0412 01276000 * 0412 01277000 *DCL 0413 01278000 *1 ISTRTR BDY(WORD) BASED, /* TERMINAL AND/OR COMPONENT ENTRY */ 01279000 * 2 RTRCRPR CHAR(LENGTH(ISTRCPRE)), /* USE ISTRCPRE DSECT */ 01280000 * 2 RTRADR PTR(31), 0413 01281000 * 3 RTRFLAG BIT(8), 0413 01282000 * 4 RTRRSV21 BIT (1), /* RESERVED */ 0413 01283000 * 4 RTRRBISA BIT(1), /* INITIAL STATUS 1 = ACITVE */ 01284000 * 4 RTRRSV51 BIT(3), /* RESERVED */ 01285000 * 4 RTRVTERM BIT(1), /* VTERM TERMINAL ENTRY */ 01286000 * 4 RTRRSV22 BIT(2), /* UNUSED */ 01287000 * 3 RTRADRPT PTR(24), /* TO BE USED FOR POINTER TO 0413 01288000 * ADDRESSING INFORMATION */ 01289000 * 2 RTRCTECM FIXED(15), /* COUNT OF COMPONENT 0413 01290000 * ENTRIES FOR TERMINAL */ 01291000 * 2 RTRRSV01 FIXED(15), /* FILLER TO FORCE ALINEMENT */ 01292000 * 2 RTRRSV45 CHAR(4), /* RESERVED */ 01293000 * 2 RTRRDFA BIT(8), /* FLAG FIELD A */ 01294000 * 3 RTRRAATN BIT(1), /* TERMINAL CAN INTERRUPT PCCU */ 01295000 * 3 RTRRAALL BIT(3), /* 3 FLAG FIELD */ 01296000 * 4 RTRRAPT1 BIT(1), /* PT1 BLOCK HANDLER FLAGS */ 01297000 * 4 RTRRAPT2 BIT(1), /* PT2 */ 01298000 * 4 RTRRAPT3 BIT(1), /* PT3 */ 01299000 * 3 RTRRACDT BIT(1), /* CRITICAL DATA FLAG */ 01300000 * 3 RTRRSV60 BIT(1), /* RESERVED */ 01301000 * 3 RTRRACTR BIT(1), /* LOGICAL DEVICE FLAG */ 01302000 * 3 RTRRSV02 BIT(1), /* UNUSED */ 01303000 * 2 RTRRDFB BIT(8), /* FLAG FIELD B - RESOURCE DEF */ 01304000 * 3 RTRRBECT BIT(1), /* EMBEDDED LINE CONTROL */ 01305000 * 3 RTRRBEND BIT(1), /* EOT/EOB */ 01306000 * 3 RTRRSV32 BIT(6), /* RESERVED */ 01307000 * 2 RTRRDFC BIT(8), /* FLAG FIELD C - RESOURCE DEF */ 01308000 * 3 RTRRCIT1 BIT(1), /* EIB CHAR AFTER ITB ON RECV */ 01309000 * 3 RTRRCIT2 BIT(1), /* EIB CHAR AFTER ITB ON SEND */ 01310000 * 3 RTRRCPT3 BIT(1), /* DEVICE HAS PT3 BHSET */ 01311000 * 3 RTRRCBLK BIT(1), /* RECORD DATA - BLOCK */ 01312000 * 3 RTRRCMSG BIT(1), /* RECORD DATA - MESSAGE */ 01313000 * 3 RTRRCXMS BIT(1), /* RECORD DATA - XMISSION */ 01314000 * 3 RTRRSV23 BIT(2), /* RESERVED/UNUSED */ 01315000 * 2 RTRRDFD BIT(8), /* FLAG FIELD D - RESERVED */ 01316000 * 3 RTRRDBHN BIT(1), /* BHSET = NONE */ 01317000 * 3 RTRRDBHD BIT(1), /* BHSET = DYNAMIC */ 01318000 * 3 RTRRDBHI BIT(1), /* BHSET = SETNAME AND EXECUTR */ 01319000 * 3 RTRRSV10 BIT(2), /* RESERVED */ 01320000 * 3 RTRRSV11 BIT(3), /* RESERVED */ 01321000 * 2 RTRRDFE BIT(8), /* FLAG FIELD E - RESOURCE DEF */ 01322000 */* RTRREFT1 FEATURE FLAGS (9 BITS) */ 01323000 * 3 RTRREBRK BIT(1), /* TRANSMIT INTERRUPT */ 01324000 * 3 RTRRSV0A BIT(1), /* RESERVED */ 01325000 * 3 RTRREACR BIT(1), /* ACCELERATED CARRIAGE RETURN */ 01326000 * 3 RTRRECHK BIT(1), /* CHECKING FEATURE */ 01327000 * 3 RTRREATT BIT(1), /* TERMINAL INTERRUPT */ 01328000 * 3 RTRRESUP BIT(1), /* TIMEOUT SUPPRESSION */ 01329000 * 3 RTRRESCT BIT(1), /* STATION CONTROL */ 01330000 * 2 RTRRDFF BIT(8), /* FLAG FIELD F - RESOURCE DEF */ 01331000 * 3 RTRRFXCT BIT(1), /* TRANSMIT CONTROL */ 01332000 */* RTRRFFT2 FEATURE 2 FLAGS (NEXT 5 BITS) */ 01333000 * 3 RTRRFPEN BIT(1), /* SELECTOR PEN */ 01334000 * 3 RTRRFPFK BIT(1), /* PROGRAM FUNCTION DEYBOARD */ 01335000 * 3 RTRRFANK BIT(1), /* STANDARD ALPHA-NUMERIC KEYBOARD */ 01336000 * 3 RTRRFDEK BIT(1), /* DATA ENTRY KEYBOARD */ 01337000 * 3 RTRRSV24 BIT(3), /* UNUSED/RESERVED */ 01338000 * 2 RTRTRMAX CHAR(1), /* MAX # TRANSMISSIONS TERM TO PCCU */ 01339000 * 2 RTRCRFLG PTR(8), /* FLAG-CONFIGURATION RESTART */ 01340000 * 3 RTRCRSV1 BIT(2), /* RESERVED FOR CONFIG RESTART */ 01341000 * 3 RTRLSCMD BIT(1), /* LINE SCHEDULING CMD ISSUED OK */ 01342000 * 4 RTRDTRLM BIT(1), /* CHNG DEV TRANSMISSION LIMIT OK */ 01343000 * 3 RTRCRSV2 BIT(5), /* RESERVED FOR CONFIG. RESTART */ 01344000 * 2 RTRBHSN1 CHAR(8), /* DEFAULT BHSET NAME IS BHF IS ON */ 01345000 * 2 RTRRVPT1 PTR(31), /* RESERVED */ 01346000 * 2 RTRRSV03 FIXED(15), /* FILLER TO FORCE ALIGNMENT */ 01347000 * 2 RTRCTDIA FIXED(15), /* CNT OF CHARS. IN TERM DIAL NUMBER*/ 01348000 * 2 RTRCTPOL FIXED(15), /* # CHARS. IN TERM POLL STRING */ 01349000 * 2 RTRCTADR FIXED(15), /* COUNT OF ADDRESSING CHARACTERS */ 01350000 * 2 RTRCADDR CHAR(8), /* COMPONENT ADDRESSING CHARS */ 01351000 * 2 RTRPOLA PTR(31), /* POINTER TO POLLING CHARACTERS */ 01352000 * 2 RTRDIAA PTR(31), /* POINTING TO DIAL CHARACTERS */ 01353000 * 2 RTRRDFG BIT(8), /* CORRESPONDENCE CODE USED BY THIS 01354000 * TERM LINE. SEE CONSTANTS. */ 01355000 * 2 RTRRSVDD CHAR(7), /* RESERVED */ 01356000 * 2 RTRBSCID CHAR(21), /* BSC ID FIELD */ 01357000 * 3 RTRIDLEN FIXED(8), /* LENGTH OF ID */ 01358000 * 3 RTRIDCAS CHAR(20), /* ID CHARACTER */ 01359000 * 2 RTRLCTI BIT(8), /* LINE CONTROL TYPE ID */ 01360000 * 2 RTRRSV04 CHAR(2); /* RESERVED */ 01361000 * 0413 01362000 * DCL RTRDNCBA PTR(31) DEF(ISTRTR) POS(41); /* SCAFFOLDING */ 01363000 */* CONSTANTS FOR FIELD RTRRDFG */ 01364000 *DCL RTRRCBCD BIT(8) CONSTANT('03'X); /* BCD */ 01365000 *DCL RTRRCEBC BIT(8) CONSTANT('04'X); /* EBCD */ 01366000 *DCL RTRRCCOR BIT(8) CONSTANT('05'X); /* COR */ 01367000 * 0417 01368000 */* CONSTANTS FOR FIELD RTRLCTI */ 01369000 *DCL RTR2741 BIT(8) CONSTANT('00'X); /* 2741 */ 01370000 *DCL RTR2740A BIT(8) CONSTANT('02'X); /* 2740-1 A (BASIC) */ 01371000 *DCL RTR2740D BIT(8) CONSTANT('06'X); /* 2740-1 D (TRANS CONTROL) */ 01372000 *DCL RTR2740E BIT(8) CONSTANT('0A'X); /* 2740-1 E (TRANS 0421 01373000 * CONTROL WITH CHECKING */ 01374000 *DCL RTR2740F BIT(8) CONSTANT('0C'X); /* 2740-1 F (CHECKING) */ 01375000 *DCL RTR1050 BIT(8) CONSTANT('1C'X); /* 1050 */ 01376000 *DCL RTRTWX BIT(8) CONSTANT('22'X); /* TWX */ 01377000 */* */ 01378000 */* ENTRY IN LOCAL RN FOR REMOTE SEGMENT */ 01379000 */* */ 01380000 *DCL 1 ISTRIN BDY(WORD) BASED, /* INNODE REMOTE ENT IN LOCAL RN*/ 01381000 * 2 RINCRPRE CHAR(LENGTH(ISTRCPRE)), /* PREFIX */ 01382000 * 2 RINDFD BIT(8), /* FLAG FIELD */ 01383000 * 3 RINREMPO BIT(1), /* REMOTE POWER OFF */ 01384000 * 4 RTRREMPO BIT(1), /* ALIAS */ 01385000 * 3 RINNODEF BIT(1), /* REMOTE TERM ENTRY INV AS ENT */ 01386000 * 4 RTRNODEF BIT(1), /* ALIAS */ 01387000 * 3 RINLDISC BIT(1), /* DISCONNECT REMOTE REQUIRED */ 01388000 * 4 RTRLDISC BIT(1), /* ALIAS */ 01389000 * 3 RINRSV01 BIT(5), /* RESERVED */ 01390000 * 2 RINNODID PTR(8), /* NODE ID OF REMOTE */ 01391000 * 3 RTRNODID PTR(8), /* ALIAS */ 01392000 * 2 RINRLDAF CHAR(2), /* DAF OF REMOTE WHEN ACTIVE */ 01393000 * 3 RTRRLDAF CHAR(2), /* ALIAS */ 01394000 * 2 RINREMOT PTR(31), /* PTR TO RN ENTRY FOR REMOTE */ 01395000 * 3 RTRREMOT PTR(31), /* ALIAS */ 01396000 * 2 RINVPAB PTR(31), /* ADDR VARY PAB FOR REMOTE */ 01397000 * 3 RTRVPAB PTR(31), /* ALIAS */ 01398000 * 2 RINRPHCN PTR(31), /* ADDR RPH WAITING FOR CONTACT */ 01399000 * 3 RTRRPHCN PTR(31), /* ALIAS */ 01400000 * 2 RINNCSPL PTR(31), /* ADDR FOR NCSPL FOR DEACTIVATE*/ 01401000 * 3 RTRNCSPL PTR(31), /* ALIAS */ 01402000 * 2 RINCNCNT PTR(8), /* CONTACT COUNT FOR REMOTE */ 01403000 * 3 RTRCNCNT PTR(8), /* ALIAS */ 01404000 * 2 RINRSV02 CHAR(3), /* RESERVED */ 01405000 * 2 RINLOCRN PTR(31), /* PTR TO RN ENTRY OF LOCAL */ 01406000 * 2 RINRSV04 CHAR(4), /* RESERVED */ 01407000 * 2 RINRSV05 CHAR(4); /* RESERVED */ 01408000 */* */ 01409000 *DCL 0426 01410000 *1 ISTRDS BDY(WORD) BASED, /* LCDO ENTRY */ 01411000 * 2 RDSPRE CHAR(LENGTH(ISTRPRE)), /* ENTRY PREFIX */ 01412000 * 2 RDSCTTRM FIXED(15), /* COUNT OF ENTRY POINTERS 0426 01413000 * IN DIAL OUT TABLE */ 01414000 * 2 RDSCTATR FIXED(15), /* */ 01415000 * 2 RDSADDOT PTR(31); /* ADDRESS OF DIAL OUT TABLE */ 01416000 */* */ 01417000 *DCL 0427 01418000 *1 ISTDOT BDY(WORD) BASED, /* DIAL OUT TABLE */ 01419000 * 2 DOTADTRM PTR(31); /* PTR TO DIAL OUT OR DIAL IN/ 0427 01420000 * OUT TERMINAL RDTE */ 01421000 */* */ 01422000 *DCL 0428 01423000 *1 ISTRCC BDY(WORD) BASED, /* PU ENTRY */ 01424000 * 2 RCCPRE CHAR(LENGTH(ISTRPRE)), /* COMMON PREFIX */ 01425000 * 2 RCCTYPE CHAR(1), /* PU TYPE */ 01426000 * 2 RCCFLAG BIT(8), /* FLAG FIELD */ 01427000 * 3 RCCRBISA BIT(1), /* I STATUS 1=ACTIVE */ 01428000 * 3 RCCCUDIE BIT(1), /* CLUSTER DEACTIVATING */ 01429000 * 3 RCCERPIP BIT(1), /* ERP IN PROCESS */ 01430000 * 3 RCCLDISC BIT(1), /* DISCONNECT REQUEST */ 01431000 * 3 RCCOHIMM BIT(1), /* RTGOH RECEIVED AND WAS */ 01432000 * /* AN IMMEDIATE TYPE */ 01433000 * 3 RCCOUERP BIT(1), /* REPEAT ERP */ 01434000 * 3 RCCPRGDN BIT(1), /* PURGE ISSUED */ 01435000 * 3 RCCCTPGD BIT(1), /* CONTACT PURGED */ 01436000 * 2 RCCFLAGB BIT(8), /* FLAG FIELD */ 01437000 * 3 RCCDSTCT BIT(1), /* DEACT TO DECR STCNT IN HDR */ 01438000 * 3 RCCDIALP BIT(1), /* DIAL IN PROGRESS */ 01439000 * 3 RCCIRETR BIT(1), /* IRETRY 1 = YES */ 01440000 * 3 RCCBNNSP BIT(1), /* BNNSUP FOR 3270 */ 01441000 * 3 RCCFINAL BIT(1), /* ON = DEACT PU FINAL REQD */ 01442000 * 3 RCCRESET BIT(1), /* ON = RESET DEACT IN PROCESS*/ 01443000 * 3 RCCBRKCN BIT(1), /* ON-DISCOUNT=YES SPECIFIED */ 01444000 * /* OFF-DISCOUNT=NO SPECIFIED */ 01445000 * 3 RCCRTGOH BIT(1), /* ON=RTGOH RECEIVED */ 01446000 * 2 RCCCNCNT PTR(8), /* CONTACT COUNT */ 01447000 * 2 RCCCTELU FIXED(15), /* COUNT OF PU LU ENTRIES */ 01448000 * 2 RCCSTAID CHAR(8), /* 64 BIT PU STATION ID */ 01449000 * 3 RCCIDPA1 BIT(16), /* FILLER OF 2 BYTES OF 0 */ 01450000 * 3 RCCID48, 0428 01451000 * 4 RCCIDPUT BIT(8), /* PU TYPE */ 01452000 * 4 RCCIDPA2 BIT(8), /* FILLER OF 1 BYTE OF 0 */ 01453000 * 4 RCCIDBLK BIT(12), /* IDBLK VALUE */ 01454000 * 4 RCCIDNUM BIT(20), /* IDNUM VALUE */ 01455000 * 2 RCCSESCT PTR(8), /* SESSION COUNT */ 01456000 * 2 * CHAR(1), /* RESERVED */ 01457000 * 2 RCCVPAB PTR(31), /* ADDRESS OF VARY PAB */ 01458000 * 2 RCCDPAB PTR(31), /* ADDR RESTART PAB */ 01459000 * 2 RCCEPAB PTR(31), /* ADDR OF ERP PAB */ 01460000 * 2 RCCRPHCN PTR(31), /* ADDR RPH WAIT FOR CONTACT */ 01461000 * 2 RCCNCSPL PTR(31), /* ADDR NCSPL FOR DEACTIVATE */ 01462000 * 2 RCCCRFLG BIT(8), /* FLAG-CONFIGURATION RESTART */ 01463000 * 3 RCCACTPU BIT(1), /* ACTIVATE PHYSICAL */ 01464000 * 3 RCCCTCFL BIT(1), /* HIGHER FAILURE-CONTACT FLUSHED */ 01465000 * 3 RCCCRRSV BIT(6), /* RES. FOR CONFIG. RESTART */ 01466000 * 2 RCCRSV02 PTR(24), /* RESERVED */ 01467000 * 2 RCCTPAB PTR(31), /* TOLTEP SSCP PAB */ 01468000 * 2 RCCDPQ PTR(31), /* DIAL PENDING NCSPL QUE PTR */ 01469000 * 2 RCCPATHT PTR(31), /* PTR TO PATH TABLE */ 01470000 * 2 RCCPATHZ FIXED(15), /* # ENTRIES IN PATH TABLE */ 01471000 * 2 RCCINDEX FIXED(15), /* INDEX TO PATH TABLE */ 01472000 * 2 RCCMXDAT FIXED(15), /* MAXDATA SIZE */ 01473000 * 2 RCCMXOUT FIXED(8), /* MAXOUT VALUE */ 01474000 * 2 RCCPASSL FIXED(8), /* PASSLIM VALUE */ 01475000 * 2 RCCADDR FIXED(8), /* STATION ADDRESS */ 01476000 * 2 RCCRSPT2 PTR(24), /* RESERVED */ 01477000 * 2 RCCSWTOX PTR(31), /* SWITCHED TO 370X */ 01478000 * /* COMMUNICATIONS NCSPL */ 01479000 * 2 RCCXTOSW PTR(31), /* 370X TO SWITCHED */ 01480000 * /* COMMUNICATIONS NCSPL */ 01481000 * 2 RCCRVPT2 PTR(31); /* RESERVED */ 01482000 */* RCCTYPE - PU TYPE CODES */ 01483000 *DCL RCCPU01 BIT(8) CONSTANT('01'X); /* PU TYPE 1 */ 01484000 *DCL RCCPU02 BIT(8) CONSTANT('02'X); /* PU TYPE 2 */ 01485000 *DCL RCCPU03 BIT(8) CONSTANT('03'X); /* PU TYPE 3 */ 01486000 *DCL RCCPU04 BIT(8) CONSTANT('04'X); /* PU TYPE 4 */ 01487000 */* */ 01488000 *DCL 0433 01489000 *1 ISTRLU BDY(WORD) BASED, /* LU ENTRY */ 01490000 * 2 RLUCRPR CHAR(LENGTH(ISTRCPRE)), /* COMMON PREFIX */ 01491000 * 2 RLUTYPE CHAR(1), /* LU TYPE */ 01492000 * 2 RLUFLAG CHAR(1), /* RLU FLAGS */ 01493000 * 3 RLURBISA BIT(1), /* I STATUS 1=ACTIVE */ 01494000 * 3 RLUBATCH BIT(1), /* 1 IF BATCH = YES */ 01495000 * 3 RLUGSTAT BIT(1), /* C/R GENNED ISTATUS VALUE */ 01496000 * /* 1 = ACTIVE */ 01497000 * 3 RLUNDSES BIT(1), /* SPECIAL END SESSION */ 01498000 * 3 RLURSV00 BIT(4), /* RESERVED */ 01499000 * 2 RLUCRFLG BIT(8), /* FLAG-CONFIGURATION RESTART */ 01500000 * 3 RLUACTLU BIT(1), /* ACTIVATE LOGICAL UNIT OK */ 01501000 * 3 RLUCRRSV BIT(7), /* RESERVED FOR CONFIG RESTART*/ 01502000 * 2 RLUSSCFM BIT(8), /* FUNCTION MANAGER TYPE */ 01503000 * 2 RLUINTA PTR(31), /* RESERVED */ 01504000 * 2 RLUPACE CHAR(2), /* VPACING COUNTS */ 01505000 * 3 RLUPACEN CHAR(1), /* N COUNT */ 01506000 * 3 RLUPACEM CHAR(1), /* M COUNT */ 01507000 * 2 RLUNCPPC CHAR(2), /* NCP PACING COUNTS */ 01508000 * 3 RLUNCPPN CHAR(1), /* N COUNT */ 01509000 * 3 RLUNCPPM CHAR(1), /* M COUNT */ 01510000 * 2 RLULOCAD CHAR(1), /* LOCAL ADDRESS OF LU */ 01511000 * 2 RLURSV01 CHAR(3), /* RESERVED */ 01512000 * 2 RLUUSSTB CHAR(12) BDY(WORD), /* USSTAB */ 01513000 * 3 RLUUSSNM CHAR(8), /* USSTAB NAME */ 01514000 * 3 RLUUSSPT PTR(31), /* USSTAB ADDRESS */ 01515000 * 2 RLUMODET CHAR(12) BDY(WORD), /* MODETAB */ 01516000 * 3 RLUMODEN CHAR(8), /* MODETAB NAME */ 01517000 * 3 RLUMODEP PTR(31), /* MODETAB ADDRESS */ 01518000 * 2 RLULGMOD CHAR(8), /* LOGMODE */ 01519000 * 2 RLURSV02 PTR(31); /* RESERVED */ 01520000 */* RLUSSCFM - FOLLOWING EQUATES ARE FOR THE VARIOUS */ 01521000 */* FUNCTION MANAGER TYPES */ 01522000 *DCL RLUFSS BIT(8) CONSTANT('01'X); /* FORMATTED SYS SERVICES */ 01523000 *DCL RLUUSS BIT(8) CONSTANT('02'X); /* UNFORMATTED SYS SERVICES */ 01524000 *DCL RLUU3270 BIT(8) CONSTANT('04'X); /* UNFORMATTED SYS SVCS 3270 */ 01525000 */* RLUTYPE - EQUATES FOR LU TYPE */ 01526000 *DCL RLUTYP04 BIT(8) CONSTANT('04'X); /* LU TYPE IS 4 */ 01527000 */* */ 01528000 *DCL 1 ISTRPX BDY(WORD) BASED, /* SKELETON PUX ENTRY */ 01529000 * 2 RPXPRE CHAR(LENGTH(ISTRPRE)), /* COMMON PREFIX */ 01530000 * 2 RPXFLUX PTR(31), /* PTR TO FIRST LUX IN CHAIN */ 01531000 * 2 RPXMAXLU PTR(8), /* MAX NUMBER OF LU'S */ 01532000 * /* FOR THIS LINK */ 01533000 * 2 RPXRSV02 PTR(24), /* RESERVED */ 01534000 * 2 RPXRSV01 PTR(31); /* RESERVED */ 01535000 */* */ 01536000 *DCL 1 ISTRLX BDY(WORD) BASED, /* SKELETON LUX ENTRY */ 01537000 * 2 RLXPRE CHAR(LENGTH(ISTRPRE)), /* COMMON PREFIX */ 01538000 * 2 RLXNLUX PTR(31), /* PTR TO NEXT LUX IN CHAIN */ 01539000 * 2 RLXFLAGA CHAR(1), /* FLAG BYTE */ 01540000 * 3 RLXINUSE BIT(1), /* ON = LUX IS IN USE */ 01541000 * 3 RLXRSV01 BIT(7), /* RESERVED */ 01542000 * 2 RLXRSV02 CHAR(3), /* RESERVED */ 01543000 * 2 RLXRSV03 PTR(31); /* RESERVED */ 01544000 */* */ 01545000 *DCL 1 ISTRSW BDY(WORD) BASED, /* SWITCHED SUBAREA HDR ENTRY */ 01546000 * 2 RSWPRE CHAR(LENGTH(ISTRDT)), /* USE ISTRDT DSECT */ 01547000 * 2 RSWDIALT PTR(31), /* PTR TO DIAL #'S TABLE */ 01548000 * 2 RSWGRUPT PTR(31), /* PTR TO GROUP NAMES TABLE */ 01549000 * 2 RSWDIALZ FIXED(15), /* # ENTRIES IN DIAL NO. TABLE */ 01550000 * 2 RSWGRUPZ FIXED(15), /* # ENTRIES IN GRP NAME TABLE */ 01551000 * 2 RSWCTELU FIXED(15), /* COUNT OF LU ENTRIES IN THIS SEG*/ 01552000 * 2 RSWRSV02 CHAR(2), /* RESERVED */ 01553000 * 2 RSWRSV01 PTR(31); /* RESERVED */ 01554000 */* */ 01555000 *DCL 1 ISTRDA BDY(WORD) BASED, /* DAN ENTRY */ 01556000 * 2 RDAPRE CHAR(LENGTH(ISTRPRE)), /* COMMON PREFIX */ 01557000 * 2 RDAADR PTR(31), 0441 01558000 * 3 RDAFLAG BIT(8), /* FLAG BYTE */ 01559000 * 4 RDARBISA BIT(1), /* INITIAL STATUS, 1 = ACTIVE */ 01560000 * 4 RDARSV01 BIT(7), /* RESERVED */ 01561000 * 3 RDAUCBAD PTR(24), /* UCB.PUB ADDRESS */ 01562000 * 4 RDACHQI BIT(8), /* CHANNEL QUEUE INDEX */ 01563000 * 4 RDALUBA BIT(16), /* @ OF LOGICAL UNIT BLOCK */ 01564000 * 2 RDADACUA CHAR(3), /* CHANNEL UNIT ADDRESS */ 01565000 * 2 RDACTPCC PTR(8), /* CNT OF BUFFERS RECEIVING DATA */ 01566000 * 2 RDADFCUA CHAR(3), /* DEFAULT CUA */ 01567000 * 2 RDAPUBI BIT(8), /* PUB INDEX */ 01568000 * 2 RDARSVPT PTR(31); /* RESERVED */ 01569000 */* */ 01570000 *DCL 1 ISTRLS BDY(WORD) BASED, /* LOCAL SUBAREA HEADER ENTRY */ 01571000 * 2 RLSPRE CHAR(LENGTH(ISTRDT)), /* USE ISTRDT DSECT */ 01572000 * 2 RLSCTELU FIXED(15), /* COUNT OF LU ENTRIES IN THIS SEG*/ 01573000 * 2 RLSRSV01 FIXED(15), /* RESERVED */ 01574000 * 2 RLSRSV02 PTR(31); /* RESERVED */ 01575000 */* */ 01576000 *DCL 1 ISTDNT BDY(WORD) BASED, /* DIAL NUMBER TABLE */ 01577000 * 2 DNTCTDIG FIXED(8), /* NUMBER OF DIGITS IN TEL. NUM. */ 01578000 * 2 DNTTELNO CHAR(32); /* TELEPHONE NUMBER */ 01579000 */* */ 01580000 * DCL 1 ISTGNT BDY(WORD) BASED, /* GROUP NAMES TABLE */ 01581000 * 2 GNTGRPNM CHAR(8); /* GROUP NAME ENTRY */ 01582000 */* */ 01583000 *DCL 1 ISTPAT BDY(WORD) BASED, /* PATH TABLE */ 01584000 * 2 PATGINDX FIXED(15), /* INDEX TO GROUP NAME TABLE */ 01585000 * 2 PATDINDX FIXED(15), /* INDEX TO DIAL NUMBER TABLE */ 01586000 * 2 PATPTHID PTR(8), /* PATH ID */ 01587000 * 2 PATGRPID PTR(8), /* GROUP PATH ID */ 01588000 * 2 PATRDCNT PTR(8), /* REDIAL COUNT */ 01589000 * 2 PATFLAGA BIT(8), /* FLAG BYTE */ 01590000 * 3 PATUSEFG BIT(1), /* ON = PATH INITIALLY USABLE */ 01591000 * 3 PATRSV01 BIT(7); /* RESERVED */ 01592000 */* PROCESS ANCHOR BLOCK * 01593000 */* REVISIONS 002 11/16/75 */ 01594000 */* APAR OZ19540 DCL PABSSN ABNORMAL @ZA19540*/ 01595000 *DCL 1 ISTPAB BDY(DWORD) BASED, 0446 01596000 * 2 PABWQCHN CHAR(8) BDY(DWORD), /* CPS SWAP FIELD FOR NEQ&CHN * 01597000 * 3 PABWEQA PTR(31) BDY(WORD), /* WORK ELEMENT QUEUE ADDRESS * 01598000 * 4 PABWEQG BIT(1), /* GATING BIT * 01599000 * 4 PABRSV01 BIT(7), /* RESERVED * 01600000 * 4 PABWEQP PTR(24), /* WKEL PTR * 01601000 * 3 PABCHAIN PTR(31) BDY(WORD), /* APS CHAIN * 01602000 * 4 PABCHNG BIT(1), /* GATING BIT * 01603000 * 4 PABRESCH BIT(1), /* RESCHEDULE PAB AT 0446 01604000 * TPEXIT * 01605000 * 4 PABCDP BIT(1), /* CLOSE DST/CHANGE IN PROGRESS* 01606000 * 4 PABUNCON BIT(1), /* UNCONDITIONALLY RESCHEDULE 01607000 * PAB AT TPEXIT * 01608000 * 4 PABRESET BIT(1), /* RESET ISSUED ON THIS PAB * 01609000 * 4 PABRUNNG BIT(1), /* PAB RUNNING * 01610000 * 4 PABDELAY BIT(1), /* DELAY OPTION USED * 01611000 * 4 PABRSV02 BIT(1), /* RESERVED * 01612000 * 4 PABCHNGP PTR(24), /* PSS CHAIN PTR * 01613000 * 2 PABOFFST PTR(8), /* OFFSET FROM CONTROL BLOCK * 01614000 * 2 PABDVTA PTR(24), /* DVT ADDRESS * 01615000 * 2 PABRPHFG PTR(31), /* SCHED FLAGS AND RPH * 01616000 * 3 PABFLAGS BIT(8), /* SCHEDULING FLAGS * 01617000 * 4 PABAPYP BIT(1), /* APPLICATION IS A USER EXIT * 01618000 * 4 PABPRIOR BIT(1), /* IMMEDIATE PRIORITY * 01619000 * 4 PABNORPR BIT(1), /* NORMAL PRIORITY - * 01620000 * /* RESCHEDUALABLE * 01621000 * 4 PABDYNAM BIT(1), /* DYNAMIC * 01622000 * 4 PABSSN BIT(1) ABNL, /* SYSTEM SERVICES @ZA19540 * 01623000 * 4 PABERLCK BIT(1), /* PAB ERROR LOCK FLAG * 01624000 * 5 PABERRLK BIT(1), /* ERROR LOCK * 01625000 * 6 PABERLOK BIT(1), /* ERROR LOCK * 01626000 */* ABNORMAL TO ALLOW VARY COMPARE AND SWAP * 01627000 * 4 PABINHBT BIT(1) ABNL,/* 1=INHIBIT TRAFFIC,0=NO * 01628000 * 4 PABNODQ BIT(1), /* DO NOT DEQ WORK ELEMENT * 01629000 * 3 PABRPHA PTR(24); /* RPL HEADER ADDRESS * 01630000 *DCL PABWEQG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABWEQG OFF * 01631000 * PABWEQG1 BIT(32) CONSTANT('80000000'X), /* TURN PABWEQG ON * 01632000 * PABCHNG0 BIT(32) CONSTANT('7FFFFFFF'X), /* TURN PABCHNG OFF * 01633000 * PABCHNG1 BIT(32) CONSTANT('80000000'X), /* TURN PABCHNG ON * 01634000 * PABRESC0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PABRESCH OFF * 01635000 * PABRESC1 BIT(32) CONSTANT('40000000'X), /* TURN PABRESCH ON * 01636000 * PABCDP0 BIT(32) CONSTANT ('DFFFFFFF'X), /* TURN PABCDP OFF * 01637000 * PABCDP1 BIT(32) CONSTANT ('20000000'X), /* TURN PABCDP ON * 01638000 * PABERLK0 BIT(32) CONSTANT('FBFFFFFF'X), /* TURN PABERRLK ON * 01639000 * PABERLK1 BIT(32) CONSTANT('04000000'X), /* TURN PABERRLK OFF * 01640000 * PABUNCO0 BIT(32) CONSTANT('EFFFFFFF'X), /* TURN PABUNCON OFF * 01641000 * PABUNCO1 BIT(32) CONSTANT('10000000'X), /* TURN PABUNCON ON * 01642000 * PABPRIR0 BIT(32) CONSTANT('BFFFFFFF'X), /* TURN PAB PRIOR OFF * 01643000 * PABPRIR1 BIT(32) CONSTANT('40000000'X), /* TURN PAB PRIOR ON * 01644000 * PABRST0 BIT(32) CONSTANT('F7FFFFFF'X), /* TURN PABRESET OFF * 01645000 * PABRST1 BIT(32) CONSTANT('08000000'X), /* TURN PABRESET ON * 01646000 * PABDLAY0 BIT(32) CONSTANT('FDFFFFFF'X), /* TURN PAB DELAY OFF * 01647000 * PABDLAY1 BIT(32) CONSTANT('02000000'X); /* TURN PAB DELAY ON * 01648000 * /* DYNAMIC PAB 1K633 */ 0448 01649000 * /* 1K0997 JAN 20, 1973 MB */ 0448 01650000 * /* 1K1142 MAR 03, 1973 MB */ 0448 01651000 * DCL 1 ISTDYPAB BDY(DWORD) BASED, /* LEVEL 1 DECLARE 1K633 */ 0448 01652000 * 2 DYPTYPE CHAR(1), /* CONTROL BLOCK TYPE CODE 1K633 */ 0448 01653000 * 2 DYPLNGTH PTR(8), /* CONTROL BLOCK LENGTH (BYTES) 1K633 */ 01654000 * 2 DYPFLGS CHAR(2), /* FLAGS 1K633 */ 0448 01655000 * 2 DYPCHAIN PTR(31), /* CHAIN POINTER 1K633 */ 0448 01656000 * 2 DYPTSKID PTR(31), /* TASKID OR PTR TO PSS TABLES 1K633 */ 01657000 * 2 DYPRSV01 PTR(31), /* RESERVED TO PRESERVE ALIGNMENT 0448 01658000 * 1K0997 */ 01659000 * 2 DYPPAB CHAR(LENGTH(ISTPAB)) BDY(DWORD); /* LENGTH OF 1K0997 01660000 * PAB */ 01661000 *DCL DYTYP BIT(8) CONSTANT ('11'X); /* TYPE 1K1142 */ 01662000 */* RPL HEADER * 01663000 */* REVISIONS 006 04/09/75 * 01664000 *DCL RPHPTR PTR(31) REGISTER(1) RESTRICTED; 0450 01665000 *DCL 1 ISTRPH BDY(WORD) BASED(RPHPTR), 0451 01666000 * 2 RPHCNTL FIXED(32), /* CONTROL INFORMATION * 01667000 * 3 RPHTYPE CHAR(1), /* CONTROL BLOCK TYPE * 01668000 * 3 RPHLNGTH PTR(8), /* LENGTH IN BYTES * 01669000 * 3 RPHFLAGS BIT(8), /* SYSTEM DEPENDENT FLAGS * 01670000 * 4 RPHOGIND BIT(1), /* OPEN GATE INDICATOR * 01671000 * 4 RPHSPGIN BIT(1), /* SPECIAL GATE OPEN IND. * 01672000 * 4 RPHAPTYP BIT(1), /* APS IS A USER EXIT * 01673000 * 5 RPHAUTEX BIT(1), /*EXIT TO AUTHORIZED USER VS2 * 01674000 * 4 RPHSMQ BIT(1), /* INDICATOR IF RPH IS TO BE * 01675000 * /* QUEUED * 01676000 * 4 RPHSMTYP BIT(1), /* REQUEST TYPE IS BUFFER OR * 01677000 * /* DOUBLE-WORD * 01678000 * 4 RPHSMCLR BIT(1), /* INDICATOR IF BUFFER TO BE * 01679000 * /* CLEARED * 01680000 * 4 RPHMLTCP BIT(1), /* USED BY LOCAL 3270 SUPPORT * 01681000 * /* WHEN BUILDING MULTIPLE CHAN * 01682000 * /* PROGRAM * 01683000 * 4 RPHFSTLC BIT(1), /* USED BY LOCAL 3270 SUPPORT * 01684000 * /* TO INDICATE FIRST LCCW * 01685000 * 5 RPHFNFLG BIT(1), /* LCCW SET FUNCTION FLAGS * 01686000 * 3 RPHFLGB BIT(8), /* SECOND FLAG BYTE * 01687000 * 4 RPHLOCK BIT(1), /* LOCKING OPTION * 01688000 * 4 RPHBSSP BIT(1), /* SYSTEM SERVICES PROGRESS * 01689000 * 4 RPHFBAPS BIT(1), /* STG. OBTAINED BY APS * 01690000 * 4 RPHPGCMP BIT(1), /* BIT ON INDICATES RESOURCE * 01691000 * /* MGR HAS COMPLETED UNLOCK * 01692000 * 4 RPHNRSAV BIT(1), /* DO NOT SAVE ON ACTIVATE * 01693000 * 4 RPHRLCRA BIT(1), /* RPH CAN BE RELEASED * 01694000 * /* WHEN PURGE COMPLETE * 01695000 * 4 * BIT(2), /* RESERVED * 01696000 * 2 RPHRPHA PTR(31), /* ADDR.OF NEXT RPL HEADER * 01697000 * 3 RPHGATE BIT(1), /* GATING FLAG * 01698000 * 3 * BIT(7), /* RESERVED * 01699000 * 3 RPHRPHAP PTR(24), 0451 01700000 * 2 RPHTSKID PTR(31), /* TASK IDENTIFICATION * 01701000 * /* OR ADDR.OF APS TABLE * 01702000 * 3 * CHAR(3), /* RPH TSK ID * 01703000 * 3 RPHTIK PTR(8), /* TIK * 01704000 * 2 RPHDVTA PTR(31), /* ADDR.OF CURRENT DVT * 01705000 * 2 RPHRESMA PTR(31) BDY(WORD), /* TPWAIT-POST INFO */ 0451 01706000 * 3 RPHWPFLG CHAR(1), /* WAIT-POST FLAGS */ 0451 01707000 * 4 RPHRSKEY BIT(4), /* STORAGE PROTECT KEY TO RESUME 01708000 * PROCESSING * 01709000 * 4 RPHWT BIT(1), /* WAIT BIT */ 0451 01710000 * 4 RPHPT BIT(1), /* POST BIT */ 0451 01711000 * 4 RPHPURGE BIT(1), /* RPH FLAGGED BY RECOVERY */ 01712000 * /* TO BE PURGED BY PSS */ 01713000 * /* VS/2 ONLY */ 01714000 * 4 RPHRSV01 BIT(1), /* RESERVED */ 01715000 * 3 RPHRESUM PTR(24), /* RESUME ADDRESS */ 0451 01716000 * 2 RPHPABOF PTR(8), /* OFFSET OF PAB IN CONTROL BLK* 01717000 * 2 RPHMAJCB PTR(24), /* ADDR.OF MAJOR CONTROL BLOCK * 01718000 * 2 RPHWEA PTR(31), /* ADDR.OF WORK ELEMENT * 01719000 * 3 RPHCSPA PTR(31), /* ADDR OF ISTCSP * 01720000 * 4 RPHWEGT BIT(1), /* GATE FOR WORK ELEMENT PROC. * 01721000 * 2 RPHSRPRM PTR(31), /* SERVICE ROUTINE PARM.FIELD * 01722000 * 3 RPHSRP12 FIXED(15), /* COUNT OF Q'ED SMS REQUESTS * 01723000 * 3 RPHSRP34 FIXED(15), /* SIZE OF Q'ED SMS REQUESTS * 01724000 * 2 RPHCRR PTR(31), /* ADDR.OF COMPONENT RECOVERY * 01725000 * /* RECORD * 01726000 * 2 RPHPABQA PTR(31), /* PAB QUEUE ADDRESS * 01727000 * 3 RPHPABFG CHAR(1), /* FLAG BYTE CARRIED FROM PAB * 01728000 * 3 RPHPABQP PTR(24), /* POINTER TO QUEUE OF PAB'S * 01729000 * 2 RPHWORK CHAR(64) BDY(WORD), /* 16 WORD WORK AREA * 01730000 * 3 RPHSAVE1 FIXED(31), /* * 01731000 * 4 RPHSBYTE CHAR(1), /* 1-BYTE SAVE FIELD * 01732000 * 4 RPHSBITS BIT(8), /* SAVE FIELD FOR FLAG BYTE * 01733000 * 5 RPHSBIT1 BIT(1), /* 1ST SAVE FIELD * 01734000 * 5 RPHSBIT2 BIT(1), /* 2ND SAVE FIELD * 01735000 * 5 RPHSBIT3 BIT(1), /* 3RD SAVE FIELD * 01736000 * 5 RPHSBIT4 BIT(1), /* 4TH SAVE FIELD * 01737000 * 5 RPHSBIT5 BIT(1), /* 5TH SAVE FIELD * 01738000 * 5 RPHSBIT6 BIT(1), /* 6TH SAVE FIELD * 01739000 * 5 RPHSBIT7 BIT(1), /* 7TH SAVE FIELD * 01740000 * 5 RPHSBIT8 BIT(1), /* 8TH SAVE FIELD * 01741000 * 4 RPHSHALF FIXED(15), /* HALF WORD SAVE AREA * 01742000 * 3 RPHSAVE2 FIXED(31), /* * 01743000 * 3 RPHSAVE3 FIXED(31), /* * 01744000 * 3 RPHSAVE4 FIXED(31), /* * 01745000 * 3 RPHSAVE5 FIXED(31), /* * 01746000 * 3 RPHSAVE6 FIXED(31), /* * 01747000 * 3 RPHSAVE7 FIXED(31), /* * 01748000 * 3 RPHSAVE8 FIXED(31), /* * 01749000 * 3 RPHSAVE9 FIXED(31), /* * 01750000 * 3 RPHSAV10 FIXED(31), /* * 01751000 * 3 RPHSAV11 FIXED(31), /* * 01752000 * 3 RPHSAV12 FIXED(31), /* * 01753000 * 3 RPHSAV13 FIXED(31), /* * 01754000 * 3 RPHSAV14 FIXED(31), /* * 01755000 * 3 RPHSAV15 FIXED(31), /* * 01756000 * 3 RPHSAV16 FIXED(31), /* * 01757000 * 2 RPHNEXPO PTR(31); /* ADDR.NEXT RPH TO BE POSTED * 01758000 * DCL RPTYPE BIT(8) CONSTANT('01'X); /* TYPE CODE FOR RPH * 01759000 * DCL RPHWT0 BIT(32) CONSTANT('F7FFFFFF'X); /* TURN RPHWT OFF */ 0453 01760000 * DCL RPHWT1 BIT(32) CONSTANT('08000000'X); /* TURN RPHWT ON */ 0454 01761000 * DCL RPHPT0 BIT(32) CONSTANT('FBFFFFFF'X); /* TURN RPHPT OFF */ 0455 01762000 * DCL RPHPT1 BIT(32) CONSTANT('04000000'X); /* TURN RPHPT ON */ 0456 01763000 * DCL RPHPABQ1 BIT(24) CONSTANT('000000'X); /* TURN RPHPBQ GATE */ 0457 01764000 */* REVISIONS 03/04/77 * 01765000 *DCL ATCLCPTR PTR LOCATION(1032); /* POINTER TO ATCVT * 01766000 *DCL 1 ISTATCVT BDY(DWORD) BASED, 0459 01767000 * 2 ATCCOM BDY(WORD), /* SYSTEM INDEPENDENT FIELDS * 01768000 * 3 ATCSTAT CHAR(4), /* VTAM STATUS INDICATORS * 01769000 * 4 ATCSTAT1 CHAR(1), /* VTAM STATUS BYTE 1 * 01770000 * 5 ATCSTART BIT(1), /* VTAM IS STARTING * 01771000 * 5 ATCACTIV BIT(1), /* VTAM IS ACTIVE * 01772000 * 5 ATCSNHLT BIT(1), /* VTAM SESSION HALT * 01773000 * 5 ATCQKHLT BIT(1), /* VTAM QUICK HALT * 01774000 * 5 ATCNETSL BIT(1), /* NETSOL=YES SPECIFIED ON CMD * 01775000 * 5 ATCINHLT BIT(1), /* INTERNAL VTAM HALT QUICK * 01776000 * 5 ATCMDHLT BIT(1), /* VTAM CMD PROC HALTED * 01777000 * 5 * BIT(1), /* RESERVED * 01778000 * 4 ATCSTFLG BIT(8), /* STORAGE MANAGEMENT FLAGS * 01779000 * 5 ATCHSDMF BIT(1), /* SYSTEM SLOW DOWN FLAG * 01780000 * 4 ATCPOFLG BIT(8), /* PROGRAM OPERATOR * 01781000 * /* INTERFACE FLAGS * 01782000 * 5 ATCPOUNS BIT(1), /* APPLICATION AUTHORIZED TO * 01783000 * /* RECEIVE UNSOLICITED MESSAGES* 01784000 * /* 1 = YES * 01785000 * 5 * BIT(7), /* RESERVED * 01786000 * 4 ATCSTAT4 CHAR(1), /* VTAM STATUS BYTE 4 * 01787000 * 5 ATCPRTAT BIT(1), /* 1 = TRACE PRINT ACTIVE, 0459 01788000 * 0 = NOT ACTIVE * 01789000 * 5 ATCTPRT BIT(1), /* WHEN 1, TPRINT IN PROCESS * 01790000 * 5 ATCMTST BIT(1), /* WHEN 1, MODIFY TEST IN 0459 01791000 * PROCESS * 01792000 * 5 ATCNCSD BIT(1), /* NCS QUIESCED DURING HALT * 01793000 * 5 ATCVTTRC BIT(1), /* VTAM TRACE, 1=ACTIVE * 01794000 * 5 ATCRSV04 BIT(3), /* RESERVED * 01795000 * 3 ATCAPI PTR(31), /* ADDR OF API ROUTINE * 01796000 * 3 ATCDCFRR PTR(31), /* POINTER TO FRR OF CONTROL 01797000 * LAYER,INITIALIZED BY OPENDST* 01798000 * 3 ATCRDT PTR(31), /* POINTER TO FIRST RDT * 01799000 * 3 ATCSRT PTR(31), /* POINTER TO SRT DIRECTORY * 01800000 * 3 ATCASCHD PTR(31), /* POINTER TO AP SCHEDULER * 01801000 * 3 ATCECMOD CHAR(4), /* ECB FOR MODIFY COMMAND PROC.* 01802000 * 3 ATCMODQ PTR(31), /* POINTER FOR OUTPUT QUEUE * 01803000 * /* FOR MODIFY COMMAND * 01804000 * 3 ATCECHLT CHAR(4), /* ECB FOR HALT COMMAND * 01805000 * 3 ATCHALTQ PTR(31), /* POINTER TO OUTPUT QUEUE * 01806000 * /* FOR HALT COMMAND * 01807000 * 3 ATCECVRY CHAR(4), /* ECB FOR VARY COMMAND PROC. * 01808000 * 3 ATCVARYQ PTR(31), /* POINTER TO OUTPUT QUEUE * 01809000 * /* FOR VARY COMMAND * 01810000 * 3 ATCECDSP CHAR(4), /* ECB FOR DISPLAY COMMAND * 01811000 * 3 ATCDSPLQ PTR(31), /* POINTER TO OUTPUT QUEUE * 01812000 * /* FOR DISPLAY COMMAND * 01813000 * 3 ATCOCHA PTR(31), /* POINTER TO OCT HEADER * 01814000 * 3 ATCECSES CHAR(4), /* ECB TO HALT SESSION MODE * 01815000 * 3 ATCECVRQ CHAR(4), /* ERP ECB FOR VARY REQ. INFO. * 01816000 * /* REQUEST NOTIFICATION * 01817000 * 3 ATCVPARM PTR(31), /* ADDR OF VARY PARAMETERS * 01818000 * 3 ATCECOPC CHAR(4), /* ECB TOINDICATE OPERATOR * 01819000 * /* CONTROL PROCESSING COMPLETE * 01820000 * 3 ATCECNET CHAR(4), /* ERP ECB FOR NETWORK * 01821000 * /* CONFIGURATION REQUEST * 01822000 * 3 ATCECPRM PTR(31), /* POINTER TO QAB FOR ERP'S * 01823000 * /* ECB PARAMETERS * 01824000 * 3 ATCHLTMS PTR(31), /* POINTER TO HALT COMMAND * 01825000 * /* OR HALT RETURN MESSAGE * 01826000 * 3 ATCFSB PTR(31), /* PTR TO FEEDBACK STATUS * 01827000 * /* BLOCK * 01828000 * 3 ATCFRSCH PTR(31), /* POINTER TO FEEDBACK * 01829000 * /* ROUTINE SCHEDULER * 01830000 * 3 ATCRDTH PTR(31), /* POINTER RDT HEADER * 01831000 * 3 ATCACCTA PTR(31), /* POINTER TO INSTALLATION * 01832000 * /* ACCOUNTING ROUTINE * 01833000 * 3 ATCAUTHA PTR(31), /* POINTER TO INSTALLATION * 01834000 * /* AUTHORISATION ROUTINE * 01835000 * 3 ATCPTCHA PTR(31), /* PTR TO VTAM PATCH AREA * 01836000 * 3 ATCCONFT PTR(31), /* POINTER TO VTAM * 01837000 * /* CONFIGURATION TABLE * 01838000 * 3 ATCFDVT PTR(31), /* PTR TO FIRST DVT FOR O/C * 01839000 * 3 ATCFEPT PTR(31), /* PTR TO FIRST EPT FOR O/C * 01840000 * 3 ATCDVTPT PTR(31), /* ADDR OF LOAD MOD FOR * 01841000 * /* TYPE=VTAM TRACING * 01842000 * 3 ATCBPDA PTR(31), /* PTR TO BUFFER POOL DIRECTORY* 01843000 * 3 ATCADD PTR(31), /* POINTER TO ADD PROCEDURE * 01844000 * 3 ATCREMOV PTR(31), /* POINTER TO REMOVE PROCEDURE * 01845000 * 3 ATCIOTRC PTR(31), /* POINTER TO I/O TRACE * 01846000 * /* PROCEDURE * 01847000 * 4 ATCTHTRC PTR(31), /* ADDR OF TH TRACE ROUTINE * 01848000 * 5 ATCTPBUF PTR(31), /* TPIOS BUFFER TRACE(ISTRARTP)* 01849000 * 3 ATCBFTRC PTR(31), /* PTR TO BUFFER TRACE * 01850000 * /* PROCEDURE * 01851000 * 3 ATCFBRPH PTR(31), /* ADDR OF FEEDBACK PROC RPH * 01852000 * 3 ATCBLDLA PTR(31), /* ADDR OF BLDL ROUTINE * 01853000 * 3 ATCALOAD PTR(31), /* ADDR OF ALOAD ROUTINE * 01854000 * 3 ATCREADA PTR(31), /* ADDR OF SOURCE READ ROUTINE * 01855000 * 3 ATCGTSTR PTR(31), /* ADDR OF GETSTOR ROUTINE * 01856000 * 3 ATCFRSTR PTR(31), /* ADDR OF FREESTOR ROUTINE * 01857000 * 3 ATCSTMA PTR(31), /* ADDR OF SM INITIALIZATION * 01858000 * /* ROUTINE * 01859000 * 3 ATCACDA PTR(31), /* ADDR OF FIRST ACDEB * 01860000 * 3 ATCSMRQ PTR(31), /* ADDR OF REQUEST STORAGE * 01861000 * /* ROUTINE * 01862000 * 3 ATCSMQU PTR(31), /* ADDR OF QUEUE REQUEST RTNE 01863000 * - DOS ONLY * 01864000 * 3 ATCSMRS PTR(31), /* ADDR OF RELEASE STORAGE * 01865000 * /* ROUTINE * 01866000 * 3 ATCSMRC PTR(31), /* ADDR OF RECOVER STORAGE * 01867000 * /* ROUTINE - DOS ONLY * 01868000 * 3 ATCSMBQ PTR(31), /* PTR TO Q'ED REQ. SMS RTN. * 01869000 * 3 ATCFIRA PTR(31), /* ADDR OF FEEDBACK INITIATION * 01870000 * /* RPH * 01871000 * 3 ATCSRTAD PTR(31), /* PTR TO SRTADD ROUTINE * 01872000 * 3 ATCSRTDF PTR(31), /* PTR TO SRTDELE ROUTN * 01873000 * 3 ATCDCC60 PTR(31), /* PTR TO ISTDCC60 - CTL. LAYER 01874000 * MOVE TO USER AREA * 01875000 * 3 ATCDCC61 PTR(31), /* PTR TO ISTDCC61 - CTL. LAYER 01876000 * MOVE FIXED TO PAGABLE * 01877000 */* BEGIN 'ANY' DVT * 01878000 * 3 ATCNERST PTR(31), /* PTR TO ISTDCC00 - REQUEST-ST* 01879000 * 3 ATCNERCV PTR(31), /* PTR TO ISTRCC21-RECEIVE OB * 01880000 * 3 ATCNERNE PTR(31), /* PTR TO ISTDCC25 - READ-ANY * 01881000 * 3 ATCNERFN PTR(31), /* PTR TO ISTDCC02 - REQUEST-FN * 01882000 */* END 'ANY' DVT * 01883000 * 3 ATCAPOST PTR(31), /* PTR TO VTAM POST ROUTINE * 01884000 * 3 ATCVTMID CHAR(2), /* HOST MAJOR NODE I.D. * 01885000 * 3 ATCRSV11 CHAR(2), /* RESERVED * 01886000 * 3 ATCRCC63 PTR(31), /* HSKPANYQ POINTER * 01887000 * 3 ATCRCC26 PTR(31), /* SEND RESPONSE POINTER * 01888000 * 3 ATCRCC65 PTR(31), /* SET RPL POINTER * 01889000 * 3 ATCNESAL PTR(31), /* PTR TO ISTDCC24 - SOLICIT-ALL* 01890000 * 3 ATCNERAP PTR(31), /* PTR TO ISTDCC85 - READ ANY 01891000 * PURGE * 01892000 * 3 ATCACTRM FIXED(15), /* COUNT OF ACTIVE TERMINALS * 01893000 * 3 ATCCIDM BIT(16), /* CID MASK * 01894000 * 3 ATCMSGSP BIT(8), /* RESERVED FOR MESAGE SURPRESSION * 01895000 * 2 ATCMAXID PTR(8), /* MAXIMUM NUMBER OF MAJOR NODES, 0 = 01896000 * NUMBER OF ENTRIES IN THE MNT * 01897000 * 2 ATCRSV16 CHAR(2), /* NOT USED * 01898000 * 2 ATCMNT PTR(31), /*PTR TO MAJOR NODE TABLE -SET BY SYS. 01899000 * DEF. REF. BY ISTSDCCB (CBDEF), 0459 01900000 * ISTSDCCI (CINDEXY) * 01901000 * 2 ATCCDADD PTR(31), /*PTR TO CIDADD ROUTINE ISTSDCCA 0459 01902000 * REF. BY CIDCTL MACRO * 01903000 * 2 ATCCDDEL PTR(31), /*PTR TO CIDDEL ROUTINE ISTSDCCD 0459 01904000 * REF. BY CIDCTL MACRO * 01905000 * 2 ATCCDFND PTR(31), /*PTR TO CIDFND ROUTINE IATSDCCF 0459 01906000 * REF. BY CIDCTL MACRO * 01907000 * 2 ATCESC01 PTR(31), /*PTR TO ESC01 * 01908000 * 2 ATCESC02 PTR(31), /*PTR TO ESC02 * 01909000 * 2 ATCCSMR PTR(31), /* PTR TO CONNECTION SERVICES * 01910000 * /* MASTER ROUTINE * 01911000 * 3 ATCCSMA PTR(31), /* PTR TO CONNECTION SERVICES 0459 01912000 * MASTER ROUTINE * 01913000 * 2 ATCOCRT PTR(31), /* PTR TO OPEN/CLOSE ROUTINE * 01914000 * 2 ATCUEP PTR(31), /* POINTER TO USER EXIT * 01915000 * 2 ATCSHRTN CHAR(8), /* NAME OF VTAM SHARED RTN * 01916000 * /* TO BE LOADED * 01917000 * 2 ATCSHRFG BIT(8), /* ATTRIBUTE FLAGS * 01918000 * 3 ATCLAST BIT(1), /* INDICATE HTIS IS LAST MODULE * 01919000 * 2 ATCXRANG CHAR(1), /* NUMBER OT BITS IN X-VALUE 0459 01920000 * PORTION OF CID * 01921000 * 2 ATCSAF CHAR(2), /* SUB AREA ADDRESS FIELD * 01922000 * 2 ATCEPA PTR(31), /* ENTRY POINT ADDR OF LOADED * 01923000 * 2 ATCALERT PTR(31), /* POINTER TO ALERT-ROUTINE 0459 01924000 * ISTSDCAL * 01925000 * 2 ATCDVLOD PTR(31), /* PTR TO ISTSDCOD * 01926000 * 2 ATCTRCPT PTR(31), /* POINTER TO TRACE PARM LIST * 01927000 * 2 ATCDVT PTR(31), /* POINTER TO FIRST DVT ON CHAIN * 01928000 * 2 ATCEPT PTR(31), /* POINTER TO FIRST EPT ON CHAIN * 01929000 * 2 ATCMSGP PTR(31), /* POINTER TO TPMSG PROCESSOR * 01930000 * 2 ATCMSGM PTR(31), /* POINTER TO TPMSG - MESSAGE 0459 01931000 * CSECT * 01932000 * 2 ATCTRPAB PTR(31), /* ADDRESS OF TRACE WRITER PAB * 01933000 * 2 ATCVTLOD PTR(31), /* ADDR OF VTAM LOAD LIST * 01934000 * 2 ATCECPRT CHAR(4), /* ECB FOR TRACE FILE PRINT * 01935000 * 2 ATCZDVTB PTR(31), /* ADDRESS OF ISTZCFBI * 01936000 * 2 ATCECTLP CHAR(4), /* TOLTEP ECB * 01937000 * 2 ATCRVCHS CHAR(8), /* RESERVED * 01938000 * 2 ATCCRME PTR(31), /* VARY PSS CONTROL MECHANISM * 01939000 * 2 ATCHPGM, /* BUFFER INFORMATION */ 01940000 * 3 ATCHBFNO FIXED(15), /* NUMBER OF BUFFS FOR CHANNEL */ 01941000 * 3 ATCHBSIZ FIXED(15), /* BUFFER SIZE IN BYTES */ 01942000 * 2 ATCDEBCH PTR(31), /* CLOSE DEB CHAIN PTR */ 01943000 * 2 ATCTODVT PTR(31), /* THE TOLTEP DVT PTR POINTED 0459 01944000 * TO BY 3RD WORD OF PAB */ 01945000 * 2 ATCADEL PTR(31), /* A DELETE ROUTINE ADDRESS */ 01946000 * 2 ATCCDPTR PTR(31), /* PTR TO ISTOCCCD - DOS ONLY */ 01947000 * 2 ATCLDNCS PTR(31), /* PTR TO NCSPL FOR LOAD/DUMP */ 01948000 * 2 ATCLDECB BIT(32), /* ECB FOR LOAD/DUMP SUBTASK */ 01949000 * 2 ATCAPCR5 PTR(31), /* POINTER TO ISTINCR5 */ 01950000 * 2 ATCRSV69 PTR(31), /* RESERVED TO SYNCH WITH DOS */ 01951000 * 2 ATCNODEL CHAR(8), /* VSAM DATA SET NAME */ 01952000 * 2 ATCNODDS PTR(31), /* POINTER TO RPL */ 01953000 * 2 ATCONFIG CHAR(8), /* START VTAM CONFIG = PARAMETER */ 01954000 * 2 ATCRSV99 CHAR(4), /* RESERVED FOR LATER POINTERS */ 01955000 * 2 ATCAP33 PTR(31), /* PTR TO ISTAPC33 */ 01956000 * 2 ATCAP35 PTR(31), /* PTR TO ISTAPC35 */ 01957000 * 2 ATCAP36 PTR(31), /* PTR TO ISTAPC36 */ 01958000 * 2 ATCDVTLK CHAR(LENGTH(ISTLOK)), /* LOCK WORD FOR DVT LOCK */ 01959000 * 2 ATCCDFIN PTR(31), /* POINTER TO ISTSDCRR */ 01960000 * 2 ATCCDFDN PTR(31), /* POINTER TO ISTSDCCN */ 01961000 * 2 ATCVOCLK CHAR(LENGTH(ISTLOK)), /* VOCLOCK LOCK */ 01962000 * 2 ATCRDTLK CHAR(LENGTH(ISTLOK)), /* RDTLOCK LOCK */ 01963000 * 2 ATCRSV97 PTR(31), /* DWORD ALIGNMENT */ 01964000 * 2 ATCVPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR VARY 01965000 * UNDER PSS CONTROL */ 01966000 * 2 ATCPGPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* ERP PAB FOR 01967000 * PURGE */ 01968000 * 2 ATCDLRPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* DUMP LOAD & 01969000 * RESTART PAB */ 01970000 * 2 ATCCCLAD PTR(31), /* ADDRESS OF VARY ERP (ISTINCCL)*/ 01971000 * 2 ATCCDLAD PTR(31), /* ADDRESS OF VARY DUMP,LD RSTRT 01972000 * (ISTINCDL) */ 01973000 * 2 ATCOCCOB PTR(31), /* ADDRESS ISTOCCOB */ 01974000 * 2 ATCOCCCB PTR(31), /* ADDRESS ISTOCCCB */ 01975000 * 2 ATCTIPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0459 01976000 * FOR ISTOLTP */ 01977000 * 2 ATCTCIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0459 01978000 * FOR TOLTEP CLIP */ 01979000 * 2 ATCVTIPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB 0459 01980000 * FOR TOLTEP-VTAM INTERFACE*/ 01981000 * 2 ATCTCLOM PTR(31), /* ADDR TOLTEP CLOP PROC */ 01982000 * 2 ATCTCLIM PTR(31), /* ADDR TOLTEP CLIP PROC */ 01983000 * 2 ATCVTINM PTR(31), /* ADDR TOLTEP-VTAM INTF PROC */ 01984000 * 2 ATCTACB PTR(31), /* TOLTEP ACB */ 01985000 * 2 ATCRSV10 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* RESERVED */ 01986000 * 2 ATCPTR00 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* A PAB */ 01987000 * 2 ATCCFEAD PTR(31), /* ADDR OF ISTINCFE */ 01988000 * 2 ATCVLCNT CHAR(4) BDY(HWORD), /* VARY DEVICE ONLINE COUNTS*/ 01989000 * 3 ATCRNCNT PTR(16), /* 370X COUNT */ 01990000 * 3 ATCLCLCT PTR(16), /* 3270 COUNT */ 01991000 * 2 ATCS49XI PTR(31), /* ADDRESS OF ISTPICXI */ 01992000 * 2 ATCS49XL PTR(31), /* ADDRESS OF ISTPICXL */ 01993000 * 2 ATCPODVT PTR(31), /* PTR TO PROGRAM OPERATOR DVT*/ 01994000 * 2 ATCRNO, 0459 01995000 * 3 * CHAR(1), 0459 01996000 * 3 ATCPOIA PTR(24), /* PTR TO PROGRAM OPERATOR */ 01997000 * /* INTERFACE AREA */ 01998000 * 2 ATCSOPD CHAR(8) BDY(WORD), /* SESSION CONTROL */ 01999000 * 3 ATCSEC01 PTR(31), /* OUTBOUND PROCESSING */ 02000000 * 3 ATCSEC10 PTR(31), /* DVT */ 02001000 * 2 ATCSIPD CHAR(12) BDY(WORD),/* SESSION CONTROL */ 02002000 * 3 ATCSEC21 PTR(31), /* INBOUND PROCESSING */ 02003000 * 3 ATCSEC30 PTR(31), /* FEEDBACK */ 02004000 * 3 ATCSEC40 PTR(31), /* DVT */ 02005000 * 2 ATCSECST CHAR(4) BDY(WORD),/* SESSION CONTROLSESS TERM */ 02006000 * 3 ATCSEC51 PTR(31), /* RECOVERY DVT */ 02007000 * 2 ATCNMCTR FIXED(15), /* NAME COUNTER */ 02008000 * 2 ATCSTAT2 BIT(8), /* TRACE FLAGS */ 02009000 * 3 ATCTRAPI BIT(1), /* API */ 02010000 * 3 ATCTRESC BIT(1), /* ESC */ 02011000 * 3 ATCTRPSS BIT(1), /* PSS */ 02012000 * 3 ATCTRLOK BIT(1), /* LOCKS */ 02013000 * 3 ATCTRSMS BIT(1), /* SMS */ 02014000 * 3 * BIT(3), /* RESERVED */ 02015000 * 2 * BIT(8), /* RESERVED */ 02016000 * 2 ATCSRTAB PTR(31), /* SEARCH LOGON MODE TABLE */ 02017000 * /* RTN ADDRESS (ISTINCSH) */ 02018000 * 2 ATCUSSPT PTR(31), /* DEFAULT USS DEFINITION */ 02019000 * /* TABLE ADDRESS (ISTINCDT) */ 02020000 * 2 ATCMODTB PTR(31), /* DEFAULT SYSTEM LOGON MODE */ 02021000 * /* TABLE ADDRESS (ISTINCLM) */ 02022000 * 2 ATCINCW3 PTR(31), /* ADDRESS OF ISTINCW3 */ 02023000 * 2 ATCIOECB PTR(31), /* ECB USED BY IOS - */ 02024000 * /* POINTED TO BY IOBECBPT */ 02025000 * 2 ATCVDPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0459 02026000 * /* SSCP COMMAND PROCESSING PAB */ 02027000 * 2 ATCVFPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0459 02028000 * /* SSCP FRONT END PAB */ 02029000 * 2 ATCVDLOK CHAR(LENGTH(ISTLOK)), /* SSCP SERIALIZATION LOCK */ 02030000 */* END OF COMMON AREA */ 02031000 */* VS1/VS2 COMMON CODE. */ 02032000 * 2 ATCVTBAM CHAR(4), 0459 02033000 * 3 * CHAR(3), /* RESERVED * 02034000 * 3 * CHAR(1), /* FLAGS * 02035000 * 4 ATCVTMAB BIT(1) ABNL, /* ABEND IN VTAM JOBSTEP * 02036000 * 4 * BIT(7), /* RESERVED * 02037000 * 2 ATCAOSM BDY(DWORD), 0459 02038000 */* * 02039000 * 3 ATCSRBRT PTR(31), /* POINTER TO ROUTINE UNDER * 02040000 * /* SRB CONTROL * 02041000 * 3 ATCGSRBQ PTR(31), /* READY QUEUE FOR GLOBAL SRB'S* 02042000 * 4 ATCGSRBG BIT(8), /* READY QUEUE GATE BYTE * 02043000 * 5 ATCGSRBF BIT(1), /* READY QUEUE GATE BIT * 02044000 * 3 ATCPRPH PTR(31), /* PTR TO PREALLOCATED RPH * 02045000 * 3 ATCCMTCB PTR(31), /* PTR TO COMMUNICATIONS TASK * 02046000 * /* TCB * 02047000 * 3 ATCAP11 PTR(31), /* PTR TO ISTAPC11 * 02048000 * 3 ATCAP12 PTR(31), /* PTR TO ISTAPC12 * 02049000 * 3 ATCAP31 PTR(31), /* PTR TO ISTAPC31 * 02050000 * 3 ATCAP32 PTR(31), /* PTR TO ISTAPC32 * 02051000 * 3 ATCAP34 PTR(31), /* PTR TO ISTAPC34 * 02052000 * 3 ATCAP52 PTR(31), /* PTR TO ISTAPC52 * 02053000 * 3 ATCAP53 PTR(31), /* PTR TO ISTAPC53 * 02054000 * 3 ATCAP54 PTR(31), /* PTR TO ISTAPC54 * 02055000 * 3 ATCAP57 PTR(31), /* PTR TO ISTAPC57 * 02056000 * 3 ATCAP58 PTR(31), /* PTR TO ISTAPC58 * 02057000 * 3 ATCAP61 PTR(31), /* PTR TO ISTAPC61 * 02058000 * 3 ATCAP63 PTR(31), /* PTR TO ISTAPC63 * 02059000 * 3 ATCAP64 PTR(31), /* PTR TO ISTAPC64 * 02060000 * 3 ATCZFSVT PTR(31), /* TPIOS FIXED SRVICES VCTR TAB* 02061000 * 3 ATCZPSVT PTR(31), /* TPIOS PAGBL SRVCES VCTR TABL* 02062000 * 3 ATCICNCB PTR(31), /* HEAD OF ICNCB QUEUE * 02063000 * 3 ATCZDVT1 PTR(31), /* TPIOS SLODWN RECOVRY PRCSR * 02064000 * 3 ATCZDVT3 PTR(31), /* 370X FEEDBACK STAT CNTRL RTR* 02065000 * 3 ATCZDVT4 PTR(31), /* OPERATOR MESSAGE SCHEDULER * 02066000 * 3 ATCZDVT6 PTR(31), /* DIALOGUE SCHEDULER (INBOUND)* 02067000 * 3 ATCAP65 PTR(31), /* PTR TO ISTAPC65 */ 02068000 * 3 ATCICAPP CHAR(20) BDY(WORD), /* 3705 APPENDAGE VECTOR * 02069000 * 4 ATCCDRPH PTR(31), /* ADDR CLOSE DEB RPH 0459 02070000 * (DUMMY EOA APP.) */ 02071000 * 4 ATCZSIOA PTR(31), /* ADDR 3705 SIO APPENDAGE */ 02072000 * 4 ATCCDTCB PTR(31), /* VTAM TCB (DUMMY PCI APP.) */ 02073000 * 4 ATCZCEA PTR(31), /* ADDR 3705 CHANNEL END 0459 02074000 * APPENDAGE */ 02075000 * 4 ATCZAEA PTR(31), /* ADDR 3705 CHANNEL END 0459 02076000 * APPENDAGE */ 02077000 * 3 ATCLDAPP CHAR(20) BDY(WORD), /* LOCAL 3270 APPENDAGE 02078000 * VECTOR */ 02079000 * 4 ATCCDTID PTR(31), /* TASK ID OF VTAM 0459 02080000 * (DUMP EOE) */ 02081000 * 4 ATCSMFRR PTR(31), /* ADDR OF SMS FRR 0459 02082000 * (DUMMY SIOA) */ 02083000 * 4 ATCRSV17 PTR(31), /* RESERVED FOR ALIGNMENT */ 02084000 * 4 ATCZLCEA PTR(31), /* ADDR 3270 CHANNEL END 0459 02085000 * APPENDAGE */ 02086000 * 4 ATCZLAEA PTR(31), /* ADDR 3270 CHANNEL END 0459 02087000 * APPENDAGE */ 02088000 * 3 ATCDAPVT CHAR(24) BDY(WORD), /* DUMMY APPENDAGE 0459 02089000 * VECTOR TABLE FOR LOAD/DVMMY*/ 02090000 * 4 ATCDEOEA PTR(31), /* ADDRESS OF DUMMY END 0459 02091000 * OF EXTENT APPENDAGE */ 02092000 * 4 ATCDSIOA PTR(31), /* ADDRESS OF DUMMY END 0459 02093000 * OF SIO APPENDAGE */ 02094000 * 4 ATCDPCIA PTR(31), /* ADDRESS OF DUMMY PCI 0459 02095000 * APPENDAGE */ 02096000 * 4 ATCDCEA PTR(31), /* ADDRESS OF CHANNEL END 0459 02097000 * APPENDAGE */ 02098000 * 4 ATCDXCEA PTR(31), /* ADDRESS OF ABNORMAL 0459 02099000 * END APPENDAGE */ 02100000 * 4 ATCDAPDG CHAR(2), /* DUMMY APPENDAGE */ 02101000 * 4 ATCRSV56 CHAR(2), /* RESERVED */ 02102000 * 3 ATCZDVT7 PTR(31), /* ADDR OF RESET CLEANUP 0459 02103000 * (PHASE 1) * 02104000 * 3 ATCZDVT8 PTR(31), /* 3270 LOCAL TEST AND CTL 0459 02105000 * FEEDBACK ROUTER */ 02106000 * 3 ATCZDVT9 PTR(31), /* ADDRESS OF ISTZDFKA */ 02107000 * 3 ATCZDVTA PTR(31), /* ADDRESS OF ISTZCFIA */ 02108000 * 3 ATCZDVTX PTR(31), /* ADDRESS OF TRUNK LINE 0459 02109000 * DEACTIVATE ROUTINE */ 02110000 * 3 ATCZLPVT PTR(31), /* ADDRESS OF ISTZPSVA */ 02111000 * 3 ATCZLFVT PTR(31), /* TPIOS 3270 LOCAL FIXED 0459 02112000 * SERVICES VECTOR TABLE */ 02113000 * 3 ATCZPAB1 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* PAB FOR 02114000 * TEST AND CTL FEEDBACK ROUTER* 02115000 * 3 ATCZPAB2 CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /* 370X 0459 02116000 * STATUS AND FEEDBACK ROUTER 02117000 * DYNAMIC PAB */ 02118000 * 3 ATCAP51 PTR(31), /* PTR TO ISTAPC51 */ 02119000 * 3 ATCZDFJ0 PTR(31), /* ADDR OF ISTZDFJ0 */ 02120000 * 3 ATCAP37 PTR(31), /* PTR TO ISTAPC37 */ 02121000 * 3 ATCAP38 PTR(31), /* PTR TO ISTAPC38 */ 02122000 * 3 ATCDMAPP PTR(31), /* DUMMY APPENDAGE ROUTINE */ 02123000 * /* FOR ABEND */ 02124000 * 3 ATCRPT12 PTR(31), /* RESERVED */ 02125000 * 3 ATCCRA CHAR(8) BDY(DWORD), /* AVAILABLE CRA * 02126000 * 4 ATCCRAQ PTR(31), /* QUEUE OF AVAILABLE CRAS * 02127000 * 4 ATCCRACN FIXED(31), /* COUNTS * 02128000 * 5 ATCCRARC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 02129000 * /* MULTIPLE SIMUALTANIOUS * 02130000 * /* ENQUEUES AND DEQUEUES * 02131000 * 5 ATCCRAAC FIXED(16), /* COUNT OF CRAS ON AVAIL Q * 02132000 * 3 ATCSRB CHAR(8) BDY(DWORD), /* AVAILABLE SRBS * 02133000 * 4 ATCSRBQ PTR(31), /* QUE OF AVAILABLE SRBS * 02134000 * 4 ATCSRBCN FIXED(31), /* COUNTS * 02135000 * 5 ATCSRBRC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 02136000 * /* MULTIPLE SIMUALTANIOUS * 02137000 * /* ENQUEUES AND DEQUEUES * 02138000 * 5 ATCSRBAC FIXED(16), /* COUNT OF SRBS ON AVAIL Q * 02139000 * 3 ATCCRPL CHAR(8) BDY(DWORD), /* AVAILABLE CRPLS * 02140000 * 4 ATCCRPLQ PTR(31), /* QUE OF AVAILABLE CRPLS * 02141000 * 4 ATCRPLCN FIXED(31), /* COUNTS * 02142000 * 5 ATCRPLRC FIXED(16), /* ENQUEUE COUNT TO ALLOW * 02143000 * /* MULTIPLE SIMUALTANIOUS * 02144000 * /* ENQUEUES AND DEQUEUES * 02145000 * 5 ATCRPLAC FIXED(16), /* COUNT OF CRPLS ON AVAIL Q * 02146000 * 3 ATCSQAFR BDY(DWORD), /* DOUBLE WORD FOR CDS 0459 02147000 * SQA RELEASE @VSRIUBL*/ 02148000 * 4 ATCORTBF PTR(31), /* ANCHOR FOR TO-BE- 0459 02149000 * FREED STG Q @VSRIUBL*/ 02150000 * 4 ATCORTBC PTR(31), /* PTR TO TCB OF TASK 0459 02151000 * OWNING STG Q @VSRIUBL*/ 02152000 * 5 ATCORSRB PTR(31), /* PTR TO SMS SRB @VSRIUBL*/ 02153000 * 6 ATCORQG BIT(1)ABNL, /* SRB GATE FOR SMS @VSRIUBL*/ 02154000 * 3 ATCOROBT PTR(31), /* ANCHOR FOR OBTAINED 0459 02155000 * STAGE @VSRIUBL*/ 02156000 * 3 ATCORFRL PTR(31), /* ADDR OF ISTORFRL @VSRIUBL*/ 02157000 * 3 ATCORFMG PTR(31), /* ADDR OF ISTORFMG @VSRIUBL*/ 02158000 * 3 ATCINFDD PTR(31), /* ADDR OF ISTINFDD @VSRIUBL*/ 02159000 * 3 ATCAIWT PTR(31), /* ADDRESS OF BYTE 0459 02160000 * FOLLOWING WAIT IN 0459 02161000 * ISTAICCK @VSRIUBL*/ 02162000 * 3 * BIT(8), /* RESERVED @VSRIUBL*/ 02163000 * 4 ATCABEN BIT(1)ABNL, /* VTAM IS ABNORMALLY 0459 02164000 * ENDING @VSRIUBL*/ 02165000 * 4 ATCOPKL BIT(1)ABNL, /* OPERATOR IS ENDING 0459 02166000 * VTAM @VSRIUBL*/ 02167000 * 4 ATCSNUF BIT(1)ABNL, /* RECURSIVE VTAM ABEND 0459 02168000 * DURING RSCE MGR 0459 02169000 * OPERATION @VSRIUBL*/ 02170000 * 4 * BIT(5), /* RESERVED @VSRIUBL*/ 02171000 * 3 * BIT(24), /* RESERVED @VSRIUBL*/ 02172000 * 3 ATCRPT27 PTR(31), /* RESERVED */ 02173000 * 3 ATCRPT28 PTR(31), /* RESERVED */ 02174000 * 3 ATCRPT29 PTR(31), /* RESERVED */ 02175000 * 3 ATCRPT30 PTR(31), /* RESERVED */ 02176000 * 3 ATCRPT31 PTR(31), /* RESERVED */ 02177000 * 3 ATCRPT32 PTR(31), /* RESERVED */ 02178000 * 3 ATCRPT33 PTR(31), /* RESERVED */ 02179000 * 3 ATCRPT34 PTR(31), /* RESERVED */ 02180000 * 3 ATCRPT35 PTR(31), /* RESERVED */ 02181000 * 3 ATCRPT36 PTR(31), /* RESERVED */ 02182000 * 3 ATCRPT37 PTR(31), /* RESERVED */ 02183000 * 3 ATCRPT38 PTR(31), /* RESERVED */ 02184000 * 3 ATCRPT39 PTR(31), /* RESERVED */ 02185000 * 3 ATCRPT40 PTR(31), /* RESERVED */ 02186000 */* END OF VS1/VS2 COMMON CODE. */ 02187000 */* START OF VS2 UNIQUE CODE. */ 02188000 * 3 ATCVTFLG BIT(32), 0459 02189000 * 4 ATCVTACT BIT(1), /* VTT ACTIVE */ 02190000 * 4 * BIT(31), /* RESERVED */ 02191000 * 3 ATCHLTCB PTR(31), /* ECB FOR HALTING VTAM */ 02192000 * 3 ATCATA10 PTR(31), /* PTR TO ISTATM10 */ 02193000 * 3 ATCZLAAB PTR(31), /* PTR TO ISTZLFAB */ 02194000 * 3 ATCCACXA PTR(31), /* PTR TO ISTCFCXA */ 02195000 * 3 ATCSMARA PTR(31), /* PTR TO ISTORFRA */ 02196000 * 3 ATCSMAID PTR(31), /* PTR TO ISTORFID */ 02197000 * 3 ATCTPWQA PTR(31), /* WAIT Q ANCHOR FOR TPIOS */ 02198000 * 3 ATCSMAPR PTR(31), /* PTR TO ISTORFPR */ 02199000 * 3 ATCSMABF PTR(31), /* PTR TO ISTORFBF */ 02200000 * 3 ATCPSTA PTR(31), /* ACTIVE PST QUEUE */ 02201000 * 3 ATCAPBE PTR(31), /* POINTER TO ISTAICBE */ 02202000 * 3 ATCTRMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0459 02203000 * /* PAB FOR VTAM TERM TASK */ 02204000 * 3 ATCTPSPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0459 02205000 * /* PAB FOR TPIOS */ 02206000 * 3 ATCAP23 PTR(31), /* PTR TO ISTAPC23 */ 02207000 * 3 ATCAPC25 PTR(31), /* PTR TO ISTAPC25 */ 02208000 * 3 ATCAP41 PTR(31), /* PTR TO ISTAPC41 */ 02209000 * 3 ATCRCFY0 PTR(31), /* PTR TO ISTRCFY0 */ 02210000 * 3 ATCAP55 PTR(31), /* PTR TO ISTAPC55 */ 02211000 * 3 ATCAP56 PTR(31), /* PTR TO ISTAPC56 */ 02212000 * 3 ATCAPC59 PTR(31), /* PTR TO ISTAPC59 */ 02213000 * 3 ATCAP62 PTR(31), /* PTR TO ISTAPC62 */ 02214000 * 3 ATCAP66 PTR(31), /* PTR TO ISTAPC66 */ 02215000 * 3 ATCAP69 PTR(31), /* PTR TO ISTAPM69 */ 02216000 * 3 ATCAP82 PTR(31), /* PTR TO ISTAPC82 */ 02217000 * 3 ATCAP83 PTR(31), /* PTR TO ISTAPC83 */ 02218000 * 3 ATCAP84 PTR(31), /* PTR TO ISTAPC84 */ 02219000 * 3 ATCAP85 PTR(31), /* PTR TO ISTAPC85 */ 02220000 * 3 ATCAP86 PTR(31), /* PTR TO ISTAPC86 */ 02221000 * 3 ATCASCB PTR(31), /* PTR TO VTAM ASCB */ 02222000 * 3 ATCMPLTA PTR(31), /* PTR TO MPST LIST TABLE */ 02223000 * 3 ATCZR01 PTR(31), /* PTR TO ISTZRM01 */ 02224000 * 3 ATCAICTN PTR(31), /* PTR TO ISTAICTN */ 02225000 * 3 ATCTPCP0 PTR(31), /* PTR TO ISTZFSAV */ 02226000 * 3 ATCTPCP1 PTR(31), /* PTR TO ISTZ19SV */ 02227000 * 3 ATCZFLAG BIT(8), /* FLAG BYTE */ 02228000 * 4 ATCZF001 BIT(1), /* MDR RECORDING SUSPENDED */ 02229000 * 4 ATCRSV66 BIT(7), /* RESERVED */ 02230000 * 3 ATCRSV75 BIT(8), /* RESERVED */ 02231000 * 3 ATCSRBCT FIXED(16), /* COUNT OF PREALLOCATED SRB'S*/ 02232000 * 3 ATCCRACT FIXED(16), /* COUNT OF PREALLOCATED CRA'S*/ 02233000 * 3 ATCRPLCT FIXED(16), /* COUNT OF PREALLOCATED CRPL */ 02234000 * 3 ATCRSV88 PTR(31), /* RESERVED */ 02235000 * 3 ATCTPMPB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), /*TP MSG PAB 02236000 * FOR VS2 */ 02237000 * 3 ATCTPMMI PTR(31), /* PTR TO ISTCFMMI - MSG ISSUER 02238000 * FOR SRB MODE ROUTINES */ 02239000 * 3 ATCVIOPM PTR(31), /* PTR TO ISTVIOPM */ 02240000 * 3 ATCPOPAB CHAR(LENGTH(ISTDYPAB)) BDY(DWORD), 0459 02241000 * /* POPAB FOR REPLY PROCESSING, POI TERMINATION, */ 02242000 * /* AND VTAM MESSAGE PROCESSOR */ 02243000 * 2 ATCAOS CHAR(0) BDY(WORD); /* VS2 ONLY FIELDS */ 02244000 */* LOGICAL CHANNEL COMMAND WORD * 02245000 */* ADD A DECLARE 003 10/18/74 * 02246000 *DCL 1 ISTLCCW BDY(WORD) BASED, 0460 02247000 * 2 LCCWOP CHAR(1), /* OPERATION CODE -CONTROL * 02248000 * 3 LCCWSI BIT(1), /* SESS INIT / START DIALOG FLG* 02249000 * 3 LCCWSD BIT(1), /* SESS DISCON/END DIALOG FLG * 02250000 * 3 LCCWRWOP BIT(6), /* READ/WRITE OPERATION CODE * 02251000 * 4 * BIT(1), /* RESERVED * 02252000 * 4 LCCWSOP BIT(1), /* SPECIAL OPERATION LIKE 0460 02253000 * ERASE OR READ CONT * 02254000 * 4 LCCWCTL BIT(4), /* CONTROL TYPE * 02255000 * 5 LCCWMODE BIT(2), /* MODE TYPE * 02256000 * 5 LCCWTYPE BIT(2), /* OPERATION TYPE * 02257000 * 2 LCCWFLAG CHAR(1), /* FLAG BYTE * 02258000 * 3 LCCWCD BIT(1), /* CHAIN DATA * 02259000 * 3 LCCWCC BIT(1), /* CHAIN COMMAND * 02260000 * 3 LCCWCKPT BIT(1), /* SUPPRESS 3705 CHECK POINT 02261000 * RECORD * 02262000 * 3 LCCWNTVC BIT(1), /* DO NOT PERFORM VALCHEK * 02263000 * 3 LCCWIDAT BIT(1), /* LCCWDATA CONTAINS DATA * 02264000 * 3 LCCWLSI BIT(1), /* LCCW SYNCH INDICATOR * 02265000 * 4 LCCWPER BIT(1), /* POST=RESP * 02266000 * 3 LCCWRFI BIT(1), /* REQUEST FEEDBACK INDICATOR * 02267000 * 3 LCCWACI BIT(1), /* ADDITION COMMAND INDICATOR * 02268000 * 2 LCCWCNT FIXED(16), /* DATA COUNT * 02269000 * 2 LCCWDATA PTR(31); /* DATA ADDRESS OR IMMED. DATA * 02270000 */* LOGICAL COMMAND CODES */ 0461 02271000 *DCL LXDQ BIT(8) CONSTANT('3B'X), /* RESET DEVICE QUEUE * 02272000 * LXEC BIT(8) CONSTANT('4B'X), /* RESET AT END OF COMMAND * 02273000 * LXO BIT(8) CONSTANT('5B'X), /* RESET ORDERLY * 02274000 * LCCWPRGE BIT(8) CONSTANT('6B'X), /* PURGE * 02275000 * LWH BIT(8) CONSTANT('0F'X), /* WRITE HEADER INDI. 1ST BLOCK* 02276000 * LWRVI BIT(8) CONSTANT('1F'X), /* WRITE RVI * 02277000 * LWNA BIT(8) CONSTANT('2F'X), /* WRITE NEGATIVE ACK * 02278000 * LWAA BIT(8) CONSTANT('3F'X), /* WRITE ALTERNATE ACK * 02279000 * LWPLG BIT(8) CONSTANT('5F'X), /* WRITE ACK LEADING GRAPHICS * 02280000 * LWNLG BIT(8) CONSTANT('6F'X), /* WRITE NACK LEADING GRAPHICS * 02281000 * LSMDE BIT(8) CONSTANT('4F'X), /* SET MODE * 02282000 * LIFBM BIT(8) CONSTANT('7F'X), /* INDIC 1ST BLOCK OF MESSAGE * 02283000 * LTEST BIT(8) CONSTANT('FE'X), /* TEST LCCW * 02284000 * LPRMPT BIT(8) CONSTANT('13'X), /* PREEMPT LCCW * 02285000 * LRSTR BIT(8) CONSTANT('43'X), /* RESTORE LCCW * 02286000 * LEXEC BIT(8) CONSTANT('FF'X), /* SPECIAL CONTROL OPERATION * 02287000 * LREAD BIT(2) CONSTANT('10'B), /* READ TYPE LCCW * 02288000 * LWRITE BIT(2) CONSTANT('01'B), /* WRITE TYPE LCCW * 02289000 * LCNTRL BIT(2) CONSTANT('11'B), /* CONTROL TYPE LCCW * 02290000 * LRESET BIT(4) CONSTANT('1011'B),/* RESET COMMANDS * 02291000 * LTIC BIT(8) CONSTANT('08'X), /* LOGICAL TIC * 02292000 * LWR BIT(6) CONSTANT('000001'B), /* WRITE CONVERSATIONAL * 02293000 * LWB BIT(6) CONSTANT('000101'B), /* WRITE BLOCK * 02294000 * LWM BIT(6) CONSTANT('001001'B), /* WRITE MESSAGE * 02295000 * LWT BIT(6) CONSTANT('001101'B), /* WRITE TRANSMISSION * 02296000 * LEWM BIT(6) CONSTANT('011001'B), /* ERASE/WRITE MESSAGE * 02297000 * LEWT BIT(6) CONSTANT('011101'B), /* ERASE/WRITE TRNSMSSN * 02298000 * LEAU BIT(6) CONSTANT('010001'B), /* ERASE ALL UNPROTECTED * 02299000 * LRB BIT(6) CONSTANT('000110'B), /* READ BLOCK * 02300000 * LRM BIT(6) CONSTANT('001010'B), /* READ MESSAGE * 02301000 * LRT BIT(6) CONSTANT('001110'B), /* READ TRANSMISSION * 02302000 * LRMOD BIT(6) CONSTANT('010010'B), /* READ MODIFIED * 02303000 * LRBUF BIT(6) CONSTANT('010110'B), /* READ BUFFER * 02304000 * LRCONT BIT(6) CONSTANT('011010'B), /* READ CONTINUOUS * 02305000 * LRPEP BIT(6) CONSTANT('011110'B), /* READ PERPETUAL * 02306000 * LCPYM BIT(6) CONSTANT('101001'B), /* COPY MESSAGE * 02307000 * LCPYT BIT(6) CONSTANT('101101'B), /* COPY TRANSMISSION * 02308000 * LD BIT(8) CONSTANT('23'X), /* DISCONNECT * 02309000 * LDEC BIT(8) CONSTANT('33'X), /* DISCONNECT WITH END OF CALL* 02310000 * LEOC BIT(8) CONSTANT('53'X), /* END OF CALL COMMAND * 02311000 * LXEL BIT(8) CONSTANT('0B'X), /* RESET ERROR LOCK * 02312000 * LXC BIT(8) CONSTANT('1B'X), /* RESET CONDITIONAL * 02313000 * LXI BIT(8) CONSTANT('2B'X), /* RESET IMMEDIATE * 02314000 * LC BIT(8) CONSTANT('03'X), /* CONTACT * 02315000 * LWPA BIT(8) CONSTANT('FD'X); /* WRITE POSITIVE ACK * 02316000 *DCL LMT BIT(2) CONSTANT('11'B), /* TRANSMISSION MODE * 02317000 * LMS BIT(2) CONSTANT('00'B), /* SPECIAL MODE LIKE CONV, EAU * 02318000 * LMB BIT(2) CONSTANT('01'B), /* BLOCK MODE * 02319000 * LMM BIT(2) CONSTANT('10'B); /* MSG OR CONTINUOUS MODE * 02320000 */* FOLLOWING EQUATES FOR - PORT SOLICITOR (DIAL) * 02321000 */* PORT SOLICITOR COMMAND CODES * 02322000 *DCL PSOL BIT(8) CONSTANT('FE'X), /* SPECIAL PORT SOLICITOR 0463 02323000 * COMMAND * 02324000 * STCTL BIT(8) CONSTANT('01'X), /* START CONTROL * 02325000 * RESTCTL BIT(8) CONSTANT('02'X), /* RESET & CONTROL - REDRIVE * 02326000 * STIPUT BIT(8) CONSTANT('03'X); /* START INPUT * 02327000 */* FOLLOWING EQUATES FOR SDLC SUPPORT * 02328000 *DCL LCCHOLD BIT(8) CONSTANT('01'X), /* HOLD * 02329000 * LCCRHOLD BIT(8) CONSTANT('02'X), /* RELEASE HOLD * 02330000 * LSEND BIT(8) CONSTANT ('F1'X), /* SEND * 02331000 * LCLEAR BIT(8) CONSTANT ('F2'X), /* CLEAR * 02332000 * LCRUD BIT(8) CONSTANT ('F3'X), /* CLEAR, UNBIND * 02333000 * LCRUDNFY BIT(8) CONSTANT ('F4'X), /* CLEAR, UNBIND, NOTIFY * 02334000 * LNFY BIT(8) CONSTANT ('F5'X), /* NOTIFY * 02335000 * LRELCB BIT(8) CONSTANT ('F6'X), /* RELEASE CB * 02336000 * LRESTSR BIT(8) CONSTANT ('F7'X), /* RESETSR * 02337000 * LCLRNFY BIT(8) CONSTANT('F8'X), /* CLEAR/NOTIFY * 02338000 * LCHPUR BIT(8) CONSTANT('F9'X); /* PURGE * 02339000 *DCL LCCWSIZE FIXED(8) CONSTANT(8); /* LCCW SIZE * 02340000 *DCL LRDS BIT(8) CONSTANT('FF'X); /* RECORD DEV STATS COMMAND * 02341000 *DCL LQUIS BIT(8) CONSTANT('FE'X); /* QUIESCE COMMAND * 02342000 */* LOGICAL CHANNEL PROGRAM BLOCK */ 02343000 */* */ 02344000 */* REVISIONS 007 05/19/75 */ 02345000 */* */ 02346000 *DCL 1 ISTLCPB BDY(WORD) BASED(LCPBPTR), 0468 02347000 * 2 LCPTYPE CHAR(1), /* TYPE CODE */ 02348000 * 2 LCPLNGTH PTR(8), /* LENGTH IN BYTES */ 02349000 * 2 LCPREQTG CHAR(2), /* LCPB REQ. TAG FIELD */ 02350000 * 3 LCPFLAGS BIT(8), /* FLAG BYTE */ 02351000 * 4 LCPZRT00 BIT(1), /* LOGICAL ERROR FLAG */ 02352000 * 4 LCPZRT01 BIT(1), /* CONTROL BLOCK ERROR */ 02353000 * 4 LCPZF001 BIT(1), /* LCP START PROCESS FLAG */ 02354000 * 5 LCPZRT02 BIT(1), /* I/O INITIATION DISABLED */ 02355000 * 6 LCPZRTL2 BIT(1), /* END OF SCHEDULABLE BLOCK */ 02356000 * 4 LCPZF002 BIT(1), /* LCP IN PROCESSING FLAG */ 02357000 * 5 LCPZRT03 BIT(1), /* GO LOOK AT FMCB LINE STATE */ 02358000 * /* FIELD (REQ. TAG OVERLAY) */ 02359000 * 6 LCPZRTL3 BIT(1), /* WRITE/READ REQUEST */ 02360000 * 4 LCPZF003 BIT(1), /* LCP PROCESSING COMPLETE FLAG* 02361000 * 5 LCPZRT04 BIT(1), /* STPR SET IN BDU FLAG */ 02362000 * /* (REQ. TAG OVERLAY) */ 02363000 * 6 LCPZRTL4 BIT(1), /* FEEDBACK REQUESTED */ 02364000 * 4 LCPZF004 BIT(1), /* SINGLE LCCW/LCP FLAG */ 02365000 * 5 LCPZRT05 BIT(1), /* FEEDBACK TO BE ROUTED TO */ 02366000 * /* ICNCB FMCB (REQ. TAG */ 02367000 * /* OVERLAY) */ 02368000 * 6 LCPZRTL5 BIT(1), /* DECREMENT SCHED COUNT ON DEQ* 02369000 * 4 LCPZRT06 BIT(1), /* CRITICAL TEXT BLOCK */ 02370000 * /* FLAG (REQ. TAG OVERLAY) */ 02371000 * 5 LCPZRTL6 BIT(1), /* WRITE REQUEST */ 02372000 * 4 LCPZRT07 BIT(1), /* BUFFER TRACE ACTIVE */ 02373000 * /* FLAG (REQ. TAG OVERLAY) */ 02374000 * 5 LCPZRTL7 BIT(1), /* SCHEDULING FLAG */ 02375000 * 3 LCPMNRCD CHAR(1), /* LCP MINOR REJECTION CODE */ 02376000 * 4 LCPZRT08 BIT(1), /* I/O TRACE ACTIVE FLAG */ 02377000 * /* (REQ. TAG OVERLAY) */ 02378000 * 5 LCPZRTL8 BIT(1), /* DEVICE END NOTIFICATION */ 02379000 * 4 LCPZRT09 BIT(1), /* DIALOGUE SCHED DISABLED */ 02380000 * 5 LCPZRTL9 BIT(1), /* CRITICAL TEXT FLAG */ 02381000 * 4 LCPZRT0A BIT(1), /* SIMULATED CONTACT FLAG */ 02382000 * 4 LCPZRT0B BIT(1), /* SIMULATED DISCONNECT FLAG */ 02383000 * 2 LCPCHAIN PTR(31), /* APS CHAIN */ 02384000 * 3 LCPCHAI1 PTR(8), 0468 02385000 * 4 LCPCHNG BIT(1), /* GATE BIT */ 02386000 * 3 LCPCHAI2 PTR(24), /* ADDRESS FIELD */ 02387000 * 2 LCPRUCNT PTR(8), /* NUMBER OF RU FOR THIS LCPB */ 02388000 * 3 LCPZMIRC CHAR(1), /* MINOR RETURN CODE */ 02389000 * 2 LCPFLAG2 CHAR(1), /* SECOND FLAG BYTE */ 02390000 * 3 LCPPRFLG BIT(1), /* PACING REQUIRED */ 02391000 * 3 LCPASYN BIT(1), /* ASYNCHRONOUS LCPB */ 02392000 * 3 LCPRSTRT BIT(1), /* RESTART LCPB */ 02393000 * 3 LCPTLBPI BIT(1), /* TPIOS BLOCK LCCW */ 02394000 * 4 LCPZRIMM BIT(1), /* RESET IMMED REQUIRED ON ERR*/ 02395000 * 3 LCPFID0 BIT(1), /* FID0 TH INDICATOR FOR RECORD* 02396000 * 4 LCPEXRES BIT(1), /* EXCEP. RESPONSE SPEC. 3270R*/ 02397000 * 3 LCPDSTAT BIT(1), /* DIALOGUE STATE BIT, 3270R */ 02398000 * /* 0=REQ. REJECT,1=STATE ERROR*/ 02399000 * 3 LCPFREE BIT(1), /* DEALLOCATE LCPB 3270R */ 02400000 * 3 LCPATOP BIT(1), /* ATOP LCPB 3270R */ 02401000 * 2 LCPSEQ FIXED(16), /* OUTBOUND SEQUENCE NUMBER */ 02402000 * 3 LCPRRCCT PTR(8), /* COUNT OF RESPONSES RECEIVED*/ 02403000 * 3 LCPRRCNT PTR(8), /* COUNT OF RESPONSES REQUESTED* 02404000 * 2 LCPLCCW1 PTR(31), /* ADDR FIRST LCCW FOR FID1 */ 02405000 * 2 LCPCID CHAR(4) BDY(WORD), /* COMMUNICATION ID */ 02406000 * 3 LCPSAF BIT(16), /* SOURCE IDENTIFICATION */ 02407000 * 3 LCPDAF BIT(16), /* DESTINATION IDENTIFICATION */ 02408000 * 2 LCPNXLCW PTR(31), /* ADDR NEXT LCCW */ 02409000 * 2 LCPFDBA PTR(31), /* BTU ADDRESS */ 02410000 * 3 LCPFDB1 PTR(8), 0468 02411000 * 3 LCPFDB2 PTR(24), /* ADDRESS FIELD */ 02412000 * 2 LCPTLBAD PTR(31), /* ADDRESS OF TLB */ 02413000 * 2 LCPFOSN BIT(16), /* SEQUENCE NUMBER FIRST RU */ 02414000 * 2 LCPFSNCH FIXED(16), /* 1ST SEQ NUMBER IN RU CHAIN */ 02415000 * 2 LCPSTYPE FIXED(8), /* LCPB SUB-TYPE X'FF' = RESET,* 02416000 * /* X'00' = NON-RESET */ 02417000 * 2 LCPFLG1 CHAR(1), /* FLAGS */ 02418000 * 3 LCPRESET BIT(1), /* A TPQUE WITH RESET QUEUED */ 02419000 * /* THIS ELEMENT */ 02420000 * 3 LCPINTER BIT(1), /* INTERNAL LCPB */ 02421000 * 3 LCPDIRPT BIT(1), /* NOT SEND W/POST=SCHED=0 */ 02422000 * 3 LCPREDRV BIT(1), /* LCPB IS FOR REDRIVE */ 02423000 * 3 LCPSTLB BIT(1), /* TLB NOT TO BE FREED */ 02424000 * 3 LCPTRANS BIT(1), /* DATA INCLUDES CONTROL CHARS*/ 02425000 * 3 LCPRSV78 BIT(2), /* RESERVED */ 02426000 * 2 LCPLCCWC BIT(8), /* COUNT OF LCCWS */ 02427000 * 2 LCPRSV77 CHAR(1), /* RESERVED */ 02428000 * 2 LCPFLCCW PTR(31), /* ADDR OF FIRST LCCW */ 02429000 * 3 LCPUBFSB PTR(31), /* UNBIND FSB ADDRESS */ 02430000 * 2 LCPCLREP PTR(31), /* PTR TO CLEAR LCPB IN UCB */ 02431000 */* NOTE: THE FOLLOWING FIELD - LCPLCCW MUST BE THE LAST FIELD */ 02432000 */* IN THIS CONTROL BLOCK. THE CONTROL BLOCK ISTDCLCP HAS */ 02433000 */* FIELDS IN IT WHICH MUST BE CONTIGUOUS WITH LCPLCCW */ 02434000 * 2 LCPLCCW CHAR(LENGTH(ISTLCCW)) BDY(WORD), /* FIRST LCCW */ 02435000 * 3 LCPRSTQH PTR(31), /* RESET LCPB QUEUE HEADER */ 02436000 * 3 LCPPABA PTR(31), /* PAB POINTER */ 02437000 * 4 LCPRPHA PTR(31), /* RPH POINTER */ 02438000 * 5 LCPFTYPE BIT(1); /* FEEDBACK TYPE */ 02439000 */* CONSTANTS FOR LCPTYPE * 02440000 *DCL LCRPHFT BIT(1) CONSTANT('1'B); 0469 02441000 *DCL LCPABFT BIT(1) CONSTANT('0'B); 0470 02442000 *DCL LCPBFIRM BIT(8) CONSTANT('10'X); /* LU FAILED, CLSDST, SCHED LOST 02443000 * TERM, OPNDST MAY BE TRIED * 02444000 *DCL LCPBTERM BIT(8) CONSTANT('11'X); /* TERM RECEIVED,CLSDST, 0472 02445000 * SCHED LOST TERM * 02446000 */* * 02447000 * 0473 02448000 *DCL 1 LCPZTIE BDY(WORD) DEFINED(LCPCID), /* TOLTEP INTERFACE 0473 02449000 * ELEMENT OVERLAY */ 02450000 * 2 LCPZFMCA PTR(31), /* ACTIVE FMCB ADDRESS */ 02451000 * 2 LCPZSNA PTR(31), /* SYMBOLIC NAME ADDRESS */ 02452000 * 2 LCPZSNAM CHAR(8) BDY(WORD), /* SYMBOLIC NAME */ 02453000 * 3 LCPZTRV1 PTR(31), /* RESERVED FOR RESTORE LCP */ 02454000 * 3 LCPZTRV4 PTR(31); /* RESERVED FOR RESTORE LCP */ 02455000 *DCL LCTYPE BIT(8) CONSTANT('04'X); 0474 02456000 *DCL PLCPTYPE BIT(8) CONSTANT('28'X); /* PURGE LCPB TYPE ID */ 02457000 *DCL LCPCLACB BIT(8) CONSTANT('04'X); /* LCPB FROM CLOSE ACB */ 02458000 *DCL LSRSTYPE BIT(8) CONSTANT('FF'X); /* RESET SUBTYPE */ 02459000 *DCL LCPETYPE BIT(8) CONSTANT('40'X); /* EXTENDED LCPB TYPE ID */ 02460000 */* */ 02461000 */* MINOR RETURN CODES */ 02462000 */* */ 02463000 *DCL LCMCRSTR BIT(8) CONSTANT('F7'X), /* MINOR RC FOR RESETSR */ 02464000 * LCPMNEW BIT(8) CONSTANT('02'X), /* EARLY WARNING, */ 02465000 * /* RECOVERY IN PROGRESS */ 02466000 * LCPMNPF BIT(8) CONSTANT('03'X), /* PERM. I/O FAILURE */ 02467000 * LCPMNAS BIT(8) CONSTANT('04'X), /* AUTO NETWORK SHUTDOWN */ 02468000 * LCPMNCL BIT(8) CONSTANT('06'X), /* CLOSE/CLSDST OCCURED */ 02469000 * LCPMNVD BIT(8) CONSTANT('07'X), /* VARY DEACTIVATE */ 02470000 * LCPMNTF BIT(8) CONSTANT('10'X), /* TEMP RECORD DEVICE FAILURE */ 02471000 * LCPMNSF BIT(8) CONSTANT('01'X), /* TEMP BASIC FAILURE / */ 02472000 * LCPMNTS BIT(8) CONSTANT('11'X), /* TERMINATE SELF */ 02473000 * LCPMNAP BIT(8) CONSTANT('0A'X), /* APPL. ISSUED CLEAR */ 02474000 * LCPMNPR BIT(8) CONSTANT('0B'X), /* PREEMPT */ 02475000 * LCPMNRE BIT(8) CONSTANT('0C'X); /* RESTORE */ 02476000 */* VS1, VS2 TPIOS SAVEAREA FORMAT */ 0480 02477000 *DCL 1 ISTZSAVE BDY(WORD) BASED, 0480 02478000 * 2 ZSAZSVBC PTR(31), /* SAVEAREA BACK CHAIN */ 02479000 * 3 ZSAZSVMS CHAR(1), /* MODULE TRACE CODE */ 02480000 * 4 ZSAZACTV BIT(1), /* ACTIVE SAVE AREA FLAG */ 02481000 * 2 ZSAZSVFC PTR(31), /* SAVEAREA FORWARD CHAIN */ 02482000 * 2 ZSAZSVRR PTR(31), /* RETURN REGISTER */ 02483000 * 2 ZSAZSVVR (6) PTR(31), /* VARIABLE REGS (7-12) SVEAREA*/ 02484000 * 2 ZSAZTRAC CHAR(4); /* EBCDIC NAME OF OWNER */ 02485000 */* 0481 02486000 *THE FOLLOWING EQUATES SHOULD READ ''FIXED(8) CONSTANT(LENGTH(X))'', 02487000 *WHERE X IS THE NAME OF THE VARIABLE CONTROL BLOCK OR FIELD OF WHICH 02488000 *LENGTH IS THE VALUE BEING EQUATED, SHOULD THE PLS COMPILER BE 0481 02489000 *BE ABLE TO TAKE IT. 0481 02490000 * */ 02491000 *DCL ZSAZSVVA FIXED(8) CONSTANT(8); /* DISPLACEMENT TO VARIABLE REGS*/ 02492000 *DCL ZSAZSVSZ FIXED(8) CONSTANT(40); /* LENGTH OF ISTZSAVE */ 02493000 */* PREFIX FOR CRR */ 02494000 */* */ 02495000 */* RELEASE 1 - JUNE 28, 1973 */ 02496000 */* */ 02497000 *DCL 1 ISTPFCRR BASED BDY(WORD), /* PREFIX FOR CRR */ 02498000 * 2 PFCCRR CHAR(4), /* CRR HEADER */ 02499000 * 3 PFCCRRID CHAR(1), /* CRR ID FIELD */ 02500000 * 4 CRRID CHAR(1), /* BASIC CTL LAYER DEFINITION*/ 02501000 * 3 PFCRSV10 CHAR(1), /* RESERVED FOR ALIGNMENT */ 02502000 * 3 PFCCRRLN CHAR(2), /* CRR LENGTH */ 02503000 * 4 CRRLEN CHAR(2), /* BASIC CTL LAYER DEF */ 02504000 * 2 PFCHDR CHAR(8) BDY(WORD), /* SAVE AREA FOR OLD CRR FRR */ 02505000 * 3 PFCCRRO PTR(31), /* PTR TO OLD CRR */ 02506000 * 4 CRRCHAIN PTR(31), /* BASIC CTL LAYER DEFINITION 02507000 * FOR OLD CRR PTR */ 02508000 * 3 PFCFRRO PTR(31), /* PTR TO OLD FRR */ 02509000 * 4 CRRFRR PTR(31), /* BASIC CTL LAYER 0483 02510000 * DEFINITION OF OLD FRR PTR */ 02511000 * 2 PFCFTA BIT(8), /* ID OF LAST FUNCTION TRACED*/ 02512000 * 2 PFCRSV01 CHAR(3); /* ALIGNMENT */ 02513000 *DCL PFIDPIE BIT(8) CONSTANT('80'X); /* DOS/VS TPIOS */ 02514000 *DCL PFIDORE BIT(8) CONSTANT('81'X); /* DOS/VS BMS */ 02515000 *DCL PFIDAPE BIT(8) CONSTANT('82'X); /* DOS/VS PSS */ 02516000 *DCL PFCIDPSV BIT(8) CONSTANT('38'X); /* COMPONENT ID 0487 02517000 * PSS - VS1 AND 2 */ 02518000 *DCL PFCIDTPV BIT(8) CONSTANT('3C'X); /* COMPONENT ID 0488 02519000 * TPIOS VS1 AND 2 */ 02520000 *DCL PFCIDSME BIT(8) CONSTANT('3D'X); /* COMPONENT ID 0489 02521000 * STORAGE MANAGEMENT DOS */ 02522000 *DCL PFCIDOC BIT(8) CONSTANT('31'X); /* COMPONENT ID OPEN/CLOSE */ 02523000 *DCL PFCIDPS BIT(8) CONSTANT('32'X); /* PORT SOLICITOR */ 02524000 *DCL PFCIDCS BIT(8) CONSTANT('34'X); /* CLUSTER SOLICITOR */ 02525000 *DCL PFCIDIT BIT(8) CONSTANT('35'X); /* INIT/TERM */ 02526000 *DCL PFCIDVY BIT(8) CONSTANT('36'X); /* VARY */ 02527000 *DCL PFCIDNS BIT(8) CONSTANT('37'X); /* NET. STAT.SRV. */ 02528000 *DCL PFCIDTPE BIT(8) CONSTANT('38'X); /* COMPONENT ID 0496 02529000 * TPIOS - DOS */ 02530000 *DCL PFCIDCL BIT(8) CONSTANT('39'X); /* COMPONENT ID 0497 02531000 * CONTROL LAYER */ 02532000 *DCL PFCIDPSE BIT(8) CONSTANT('3A'X); /* COMPONENT ID 0498 02533000 * PSS - DOS */ 02534000 *DCL PFCIDSMV BIT(8) CONSTANT('3F'X); /* COMPONENT ID 0499 02535000 * STORAGE MANAGEMENT */ 02536000 *DCL PFCIDTIO BIT(8) CONSTANT('40'X); /* COMPONENT ID TIIO 0500 02537000 * PROCESSING (VS2) */ 02538000 *DCL PFCIDRS BIT(8) CONSTANT('41'X); /* ID FOR REMOTE SOLICITOR */ 02539000 */* CRR FOR COMMAND FACILITIES */ 02540000 */* REVISIONS 001 06/02/75 */ 02541000 *DCL 1 ISTCFCRR BDY(WORD) BASED, /* CRR FOR COMMAND FACILITIES */ 02542000 * 2 CFCAUDIT, /* AUDIT TRAIL FOR CMD FACILITIES*/ 02543000 * 3 CFCNTRD CHAR(1), /* LIST OF MODULES IN COMMAND */ 02544000 * /* FACILITIES ENTERED */ 02545000 * 4 NCFCS1 BIT(1), /* IND MODULE ISTCFCS1 ENTERED */ 02546000 * 4 NCFCS2 BIT(1), /* IND MODULE ISTCFCS2 ENTERED */ 02547000 * 4 NCFCR1 BIT(1), /* IND MODULE ISTCFCR1 ENTERED */ 02548000 * 4 NCFCRP BIT(1), /* IND MODULE ISTCFCRP ENTERED */ 02549000 * 4 NCFCR2 BIT(1), /* IND MODULE ISTCFCR2 ENTERED */ 02550000 * 4 NCFRSVD BIT(3), /* RESERVED */ 02551000 * 3 CFCCRT CHAR(1), /* LIST OF MODULES IN COMMAND */ 02552000 * /* FACILITIES RUNNING */ 02553000 * 4 CCFCS1 BIT(1), /* IND MODULE ISTCFCS1 RUNNING */ 02554000 * 4 CCFCS2 BIT(1), /* IND MODULE ISTCFCS2 RUNNING */ 02555000 * 4 CCFCR1 BIT(1), /* IND MODULE ISTCFCR1 RUNNING */ 02556000 * 4 CCFCRP BIT(1), /* IND MODULE ISTCFCRP RUNNING */ 02557000 * 4 CCFCR2 BIT(1), /* IND MODULE ISTCFCR2 RUNNING */ 02558000 * 4 CCFRSVD1 BIT(3); /* RESERVED */ 02559000 *DCL TIDCFCS1 BIT(8) CONSTANT('00'X); /* THREAD ID FOR ISTCFCS1 */ 02560000 *DCL TIDCFCR1 BIT(8) CONSTANT('01'X); /* THREAD ID FOR ISTCFCR1 */ 02561000 *DCL TIDCFCR2 BIT(8) CONSTANT('02'X); /* THREAD ID FOR ISTCFCR2 */ 02562000 */* COMPONENT RECOVERY RECORD FOR TPIOS */ 0506 02563000 */* DELTA 006 02/10/75 */ 02564000 *DCL 0506 02565000 *1 ISTZCRR BDY(WORD) BASED, /* CONTROL WORD */ 02566000 * 2 ZCRCRR CHAR(4), /* CONTROL WORD */ 02567000 * 3 ZCRID CHAR(1), /* CONTROL BLOCK ID */ 02568000 * 3 ZCRLEN CHAR(2), /* LENGTH OF ZCR */ 02569000 * 3 ZCRFLAG CHAR(1), /* FLAGS */ 02570000 * 2 ZCRCHAIN PTR(31), /* POINTER TO PREVIOUS ZCR */ 02571000 * 2 ZCRFRRA PTR(31), /* PTR TO FRR */ 02572000 * 2 ZCRFLGS1 CHAR(1), /* FLGS USED BY REQUEST COMPLETION */ 02573000 * 3 ZCREXSW BIT(1), /* EXIT SWITCH */ 02574000 * 3 ZCRQUESW BIT(1), /* QUEUE SWITCH */ 02575000 * 3 ZCRDEQSW BIT(1), /* DEQUEUE SWITCH */ 02576000 * 3 ZCRWAIT BIT(1), /* WAIT Q ANALYSIS COMPLETE */ 02577000 * 3 ZCRNRMEX BIT(1), /* NORMAL EXIT TO BE TAKEN */ 02578000 * 3 ZCRENDLP BIT(1), /* END OF LOOP SWITCH */ 02579000 * 3 ZCRUNSOL BIT(1), /* UNSOLICITED DATA */ 02580000 * 3 ZCRFEXIT BIT(1), /* FORCE EXIT SWITCH */ 02581000 * 2 ZCRFLGS2 CHAR(1), /* FLAGS USED WITHIN TPIOS */ 02582000 * 3 ZCRLOCAL BIT(1), /* LOCAL SUPPORT */ 02583000 * 3 ZCRSHEDI BIT(1), /* IMMEDIATE SCHEDULE */ 02584000 * 3 ZCRFMSED BIT(1), /* FMCB SEARCH ENDED */ 02585000 * 3 ZCROB BIT(1), /* OUTBOUND PROC IN PROGRESS */ 02586000 * 3 ZCRIF0E1 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 02587000 * INBOUND PROCESSING */ 02588000 * 3 ZCRIF0E2 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 02589000 * INBOUND PROCESSING */ 02590000 * 3 ZCRIF0E3 BIT(1), /* SWITCH FOR STRUCTURED PGM USED BY 02591000 * INBOUND PROCESSING */ 02592000 * 2 ZCRSWFLD CHAR(1), /* SWITCHES FOR TPIOS OUTBOUND */ 02593000 * 3 ZCRENDSH BIT(1), /* EXIT FROM REMOTE DEV SCHEDULER */ 02594000 * 4 ZCRSLCP BIT(1), /* SCHEDULE LCPB */ 02595000 * 3 ZCREXTYP BIT(1), /* TPEXIT TYPE */ 02596000 * 3 ZCRENDPR BIT(1), /* EXIT FROM INNER PROCESS */ 02597000 * 3 ZCRNDLCP BIT(1), /* EXIT FROM LCPB PROCESSING */ 02598000 * 4 ZCROB1 BIT(1), /* REMOTE DEV SCHED 1ST TIME SWITCH */ 02599000 * 3 ZCRENDX BIT(1), /* EXIT FROM LCCW/BTU XLATION */ 02600000 * 3 ZCRENDXL BIT(1), /* EXIT FROM LCCW PROC */ 02601000 * 3 ZCRENDAN BIT(1), /* EXIT FROM LCPB ANALYSIS */ 02602000 * 3 ZCRRESET BIT(1), 0506 02603000 * 4 ZCRCNLXL BIT(1), /* CANCEL FURTHER XLATE */ 02604000 * 2 ZCRFLGS3 CHAR(1), /* FLAGS FOR OUTBOUND PROCESSING */ 02605000 * 3 ZCRTIC BIT(1), /* SELECT NOT TO BE SENT */ 02606000 * 3 ZCRTPCON BIT(1), /* TPIOS CONTACT SENT */ 02607000 * 3 ZCRTPDIS BIT(1), /* TPIOS DISCONNECT TO BE SENT */ 02608000 * 3 ZCRDISC BIT(1), /* DISCONNECT IN PROCESS */ 02609000 * 3 ZCREDRIV BIT(1), /* DO DERIVE */ 02610000 * 3 ZCRNOFRE BIT(1), /* NO FREEING OF SIO QUEUE */ 02611000 * 3 ZCRWRPTR BIT(1), /* WRITE TO PRINTER REQUEST */ 02612000 * 3 ZCRINLCP BIT(1), /* ERROR OCCURED DURING OUTBND PROC */ 02613000 * 2 ZCRGENSW CHAR(1), /* GENERAL SWITCHES */ 02614000 * 3 ZCRTSW1 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 02615000 * 3 ZCRTSW2 BIT(1), /* TEMP SW FOR STRUCTURED PGM */ 02616000 * 3 ZCRRT06 BIT(1), /* CRITICAL TEXT OPTION */ 02617000 * 3 ZCRLCSYN BIT(1), /* LCCW SYNC SPECIFIED */ 02618000 * 3 ZCREXRES BIT(1), /* EXCEPTION RESPONSE SPECIFIED */ 02619000 * 3 ZCRCLRBD BIT(1), /* FLAG INDICATING BIND WAS CLEARED */ 02620000 * 3 ZCRBRIS BIT(1), /* BRACKET REJECTED DUE TO IN BRAC. */ 02621000 * 3 ZCRF1RES BIT(1), /* FID1 RESPONSE TO BE GENERATED */ 02622000 * 2 ZCRPFLGS CHAR(1), /* UTILITIES PROC OPTION FLAGS */ 02623000 * 3 ZCRQAHED BIT(1), /* QXFR RTN TO USE INSERT OPT'N ON TPQ* 02624000 * 3 * BIT(7), /* RESERVED */ 02625000 * 2 ZCRIBPR CHAR(1), /* INBOUND PROCESSING FLAGS */ 02626000 * 3 ZCRNOBUF BIT(1), /* FSB WITH NO BUFFER */ 02627000 * 3 ZCRERR BIT(1), /* ERROR INDICATOR */ 02628000 * 3 ZCRRELK BIT(1), /* RESET ERROR LOCK FUNCTION REQ. */ 02629000 * 3 ZCRLCPFR BIT(1), /* FLAG IND. DEALLOCATE ATOP LCPB */ 02630000 * 3 ZCRLCPFD BIT(1), /* FLAG IND. LCPB FOUND ON WAITQ */ 02631000 * 3 ZCR3270 BIT(1), /* 3270 DEVICE */ 02632000 * 3 ZCR3270R BIT(1), /* 3270 DEVICE IN RECORD MODE */ 02633000 * 3 * BIT(1), /* RESERVED */ 02634000 * 2 ZCRSCPSW CHAR(1), /* SESSION CONTROL FLAGS */ 02635000 * 3 ZCRTPEX BIT(1), /* TP EXIT */ 02636000 * 3 ZCRTPINV BIT(1), /* INVOKE TPIOS */ 02637000 * 3 ZCRRJLCP BIT(1), /* LCPB REJECTED */ 02638000 * 3 ZCRLREQ BIT(1), /* REQUEST */ 02639000 * 3 ZCRPRCMP BIT(1), /* PROCESSING COMPLETE */ 02640000 * 3 ZCRFSBWE BIT(1), /* FSB IS WORK ELEMENT */ 02641000 * 3 ZCRSKIPT BIT(1), /* SKIP TRACE FLAG */ 02642000 * 3 * BIT(1), /* RESERVED */ 02643000 * 2 ZCRCRLCP PTR(31), /* CURRENT LCPB PTR */ 02644000 * 2 ZCRPARMS BDY(WORD), /* PARAMETERS PASSED TO UTILITIES */ 02645000 * 3 ZCRFBPTR PTR(31), /* PTR TO FROM BUFFER */ 02646000 * 4 ZCRCBPTR PTR(31), /* PTR TO CURRENT BUFFER */ 02647000 * 3 ZCRTBPTR PTR(31), /* PTR TO TO-OR-TRANSLATE BUFFER */ 02648000 * 3 ZCRMLNG FIXED(15), /* LENGTH TO MOVE */ 02649000 * 3 ZCRDFRDA FIXED(15), /* OFFSET FROM DATA ADDR IN FROM BUF*/ 02650000 * 4 ZCRDTODA FIXED(15), /* OFFSET FROM DATA ADDR XLATE BUF */ 02651000 * 3 ZCRPCOD1 CHAR(1), /* CODE BYTE FOR ALLOC/DISALLOC */ 02652000 * 4 ZCRPPG BIT(1), /* GET PAGEABLE BUFF */ 02653000 * 4 ZCRPLNG BIT(1), /* LENGTH OF BUFFER SPECIFIED */ 02654000 * 4 ZCRPFSB BIT(1), /* GET FSB */ 02655000 * 4 ZCRPLSBF BIT(1), /* GET LSCB AND BUFFER */ 02656000 * 5 ZCRPLSBQ BIT(1), /* PURGE LSCB QUEUE */ 02657000 * 4 ZCRPLSCB BIT(1), /* GET OR RELEASE LSCB */ 02658000 * 4 ZCRPBUF BIT(1), /* GET OR RELEASE BUFFER */ 02659000 * 4 ZCRPCFTX BIT(1), /* CONFIDENTIAL TEXT */ 02660000 * 4 ZCRPRES BIT(1), /* RESERVED */ 02661000 * 3 ZCRPCOD2 CHAR(1), /* CODE BYTE FOR MOVE */ 02662000 * 4 ZCRPPG2 BIT(1), /* GET PAGEABLE BUFFER */ 02663000 * 4 ZCRPFHDR BIT(1), /* FROM BUFFER FDB TO BE USED */ 02664000 * 4 ZCRPMFGF BIT(1), /* MOVE STARTS WIHT 1ST BUFF IN BLOCK* 02665000 * 4 ZCRPRES2 BIT(5), /* RESERVED */ 02666000 * 3 ZCRPCHAR CHAR(1), /* TRANSLATE & TEST SEARCH CHARACTER*/ 02667000 * 3 ZCRPSW CHAR(1), /* SWITCH FIELD */ 02668000 * 2 ZCRCCWA PTR(31), /* PTR TO CURRENT CCW (CCW 1 OR 2) */ 02669000 * 2 ZCRBFPTR PTR(31), /* SAVE 1ST BUFF PTR IN TO-BUFF CHN 02670000 * OR LAST BUFFER IN CHANNEL PGM */ 02671000 * 2 ZCRZLB PTR(31), /* PTR TO CURR BUFF IN CHANNEL PGM */ 02672000 * 2 ZCRPVZB PTR(31), /* PTR TO PREVIOUS BUFF IN CHAN PGM */ 02673000 * 2 ZCRSVRTN BDY(WORD), /* REG 14 SAVE AREAS */ 02674000 * 3 ZCRSVF1 PTR(31), /* SAVE REQUIRED REGISTER */ 02675000 * 3 ZCRSVF2 PTR(31), /* SAVE REQUIRED REGISTER */ 02676000 * 3 ZCRSVF3 PTR(31), /* SAVE REQUIRED REGISTER */ 02677000 * 3 ZCRSVF4 PTR(31), /* SAVE REQUIRED REGISTER */ 02678000 * 3 ZCRSVF5 PTR(31), /* SAVE REQUIRED REGISTER */ 02679000 * 3 ZCRSVF6 PTR(31), /* SAVE REQUIRED REGISTER */ 02680000 * 3 ZCRSVF7 PTR(31), /* SAVE REQUIRED REGISTER */ 02681000 * 3 ZCRSVF8 PTR(31), /* SAVE REQUIRED REGISTER */ 02682000 * 3 ZCRSVF9 PTR(31), /* SAVE REQUIRED REGISTER */ 02683000 * 3 ZCRSVF10 PTR(31), /* SAVE REQUIRED REGISTER */ 02684000 * 3 ZCRSVF11 PTR(31), /* SAVE REQUIRED REGISTER */ 02685000 * 3 ZCRSVF12 PTR(31), /* SAVE REQUIRED REGISTER */ 02686000 * 3 ZCRSVF13 PTR(31), /* SAVE REQUIRED REGISTER */ 02687000 * 3 ZCRSVF14 PTR(31), /* SAVE REQUIRED REGISTER */ 02688000 * 3 ZCRSVF15 PTR(31), /* SAVE REQUIRED REGISTER */ 02689000 * 3 ZCRSVF16 PTR(31), /* SAVE REQUIRED REGISTER */ 02690000 * 3 ZCRSVF17 PTR(31), /* SAVE REQUIRED REGISTER */ 02691000 * 3 ZCRSVF18 PTR(31), /* SAVE REQUIRED REGISTER */ 02692000 * 3 ZCRSVF19 PTR(31), /* SAVE REQUIRED REGISTER */ 02693000 * 3 ZCRSVF20 PTR(31), /* SAVE REQUIRED REGISTER */ 02694000 * 3 ZCRSVF21 PTR(31), /* SAVE REQUIRED REGISTER */ 02695000 * 3 ZCRSVF22 PTR(31), /* SAVE REQUIRED REGISTER */ 02696000 * 3 ZCRSVF23 PTR(31), /* SAVE REQUIRED REGISTER */ 02697000 * 3 ZCRSVF24 PTR(31), /* SAVE REQUIRED REGISTER */ 02698000 * 3 ZCRSVF25 PTR(31), /* SAVE REQUIRED REGISTER */ 02699000 * 2 ZCRWKARA BDY(WORD), /* TEMPORARY REG SAVE AREA */ 02700000 * 3 ZCRSVWK1 PTR(31), /* SAVE REQUIRED REG */ 02701000 * 3 ZCRSVWK2 PTR(31), /* SAVE REQUIRED REG */ 02702000 * 3 ZCRSVWK3 PTR(31), /* SAVE REQUIRED REG */ 02703000 * 3 ZCRSVWK4 PTR(31), /* SAVE REQUIRED REG */ 02704000 * 3 ZCRSVWK5 PTR(31), /* SAVE REQUIRED REG */ 02705000 * 2 ZCRFSBSV PTR(31), /* FSB CHAIN PTR SAVEAREA */ 02706000 * 2 ZCRFBPRC BIT(1), /* FSB PROCESS SW */ 02707000 * 2 ZCRMOREL BIT(1), /* MORE ELEMENTS SW */ 02708000 * 2 ZCRSCANQ BIT(1), /* SCAN QUEUE SW */ 02709000 * 2 ZCRNXTEL BIT(1), /* NEXT ELEMENT SW */ 02710000 * 2 ZCRXSCHD BIT(1), /* EXIT SCHEDULE SW */ 02711000 * 2 ZCRLSTFB BIT(1), /* INBOUND PROC LAST FSB FOR ELEM SW*/ 02712000 * 2 ZCRTOPQ BIT(1), /* QUEUE ELEMENT TO TOP SW */ 02713000 * 2 ZCRAWQSW BIT(1), /* CHECK AWAITQ FOR MORE WORK =1 */ 02714000 * /* CHECK WAITQ =0 */ 02715000 * 2 ZCRRCDSV CHAR(1), /* RETURN CODE SAVEAREA */ 02716000 * 2 ZCRPRMTC CHAR(1), /* PREEMPT COMPLETION PARAMETER BYTE*/ 02717000 * 2 ZCROPCDE CHAR(1), /* OP CODE TO BE TRANSFORMED * 02718000 * 2 ZCRR2SV PTR(31), /* ISTZBFDI REG 2 SAVE EREA */ 02719000 * 2 ZCRR13SV PTR(31), /* ISTSBFDI REG 13 SAVE EREA */ 02720000 * 2 ZCRCIDSV BDY(WORD), /* ISTZBFDI CID SAVE AREA */ 02721000 * 3 ZCRSAFSV CHAR(2), /* ISTZBFDI SAF SAVE AREA */ 02722000 * 3 ZCRDAFSV CHAR(2), /* ISTZBFDI DAF SAVE AREA */ 02723000 * 2 ZCRSAVEZ (6) BDY(WORD) CHAR(LENGTH(ISTZSAVE)), 0506 02724000 * /* SAVE/TRACE AREAS FOR TPIOS MODS */ 02725000 * 2 ZCRREMIC PTR(31), /* POINTER TO REMOTE RN ICNCB */ 02726000 * 2 ZCRAUDIT CHAR(36), /* TPIOS AUDIT TRAIL AREA */ 02727000 * 3 ZCRTID CHAR(1), /* THREAD I.D. */ 02728000 * 3 ZCRTNAME CHAR(4), /* LAST 4 CHARS OF THREAD NAME */ 02729000 * 3 ZCRENTER BIT(248), /* BIT ARRAY FOR MODULES ENTERED */ 02730000 * 4 ZCREAC1A BIT(1), /* ISTZAC1A ENTERED */ 02731000 * 4 ZCREAC0A BIT(1), /* ISTZAC0A ENTERED */ 02732000 * 4 ZCREAC0B BIT(1), /* ISTZAC0B ENTERED */ 02733000 * 4 ZCREAC1B BIT(1), /* ISTZAC1B ENTERED */ 02734000 * 4 ZCREBCAA BIT(1), /* ISTZBCAA ENTERED */ 02735000 * 4 ZCREBCAB BIT(1), /* ISTZBCAB ENTERED */ 02736000 * 4 ZCREBCAE BIT(1), /* ISTZBCAE ENTERED */ 02737000 * 4 ZCREBCAG BIT(1), /* ISTZBCAG ENTERED */ 02738000 * 4 ZCREBCAI BIT(1), /* ISTZBCAI ENTERED */ 02739000 * 4 ZCREBCAM BIT(1), /* ISTZBCAM ENTERED */ 02740000 * 4 ZCREBCBA BIT(1), /* ISTZBCBA ENTERED */ 02741000 * 4 ZCREBCBB BIT(1), /* ISTZBCBB ENTERED */ 02742000 * 4 ZCREBCBI BIT(1), /* ISTZBCBI ENTERED */ 02743000 * 4 ZCREBCCB BIT(1), /* ISTZBCCB ENTERED */ 02744000 * 4 ZCREBCDI BIT(1), /* ISTZBCDI ENTERED */ 02745000 * 4 ZCREBCEB BIT(1), /* ISTZBCEB ENTERED */ 02746000 * 4 ZCREBCFA BIT(1), /* ISTZBCFA ENTERED */ 02747000 * 4 ZCREBCFB BIT(1), /* ISTZBCFB ENTERED */ 02748000 * 4 ZCREBCGA BIT(1), /* ISTZBCGA ENTERED */ 02749000 * 4 ZCREBCGB BIT(1), /* ISTZBCGB ENTERED */ 02750000 * 4 ZCREBCHA BIT(1), /* ISTZBCHA ENTERED */ 02751000 * 4 ZCREBCHB BIT(1), /* ISTZBCHB ENTERED */ 02752000 * 4 ZCREBCIA BIT(1), /* ISTZBCIA ENTERED */ 02753000 * 4 ZCREBCIB BIT(1), /* ISTZBCIB ENTERED */ 02754000 * 4 ZCREBCID BIT(1), /* ISTZBCID ENTERED */ 02755000 * 4 ZCREBCJA BIT(1), /* ISTZBCJA ENTERED */ 02756000 * 4 ZCREBCJB BIT(1), /* ISTZBCJB ENTERED */ 02757000 * 4 ZCREBCKA BIT(1), /* ISTZBCKA ENTERED */ 02758000 * 4 ZCREBCKB BIT(1), /* ISTZBCKB ENTERED */ 02759000 * 4 ZCREBCLA BIT(1), /* ISTZBCLA ENTERED */ 02760000 * 4 ZCREBCLB BIT(1), /* ISTZBCLB ENTERED */ 02761000 * 4 ZCREBCMB BIT(1), /* ISTZBCMB ENTERED */ 02762000 * 4 ZCREBCND BIT(1), /* ISTZBCND ENTERED */ 02763000 * 4 ZCREBCNE BIT(1), /* ISTZBCNE ENTERED */ 02764000 * 4 ZCREBCOB BIT(1), /* ISTZBCOB ENTERED */ 02765000 * 4 ZCREBCPB BIT(1), /* ISTZBCPB ENTERED */ 02766000 * 4 ZCREBCQB BIT(1), /* ISTZBCQB ENTERED */ 02767000 * 4 ZCREBCRA BIT(1), /* ISTZBCRA ENTERED */ 02768000 * 4 ZCREBCRB BIT(1), /* ISTZBCRB ENTERED */ 02769000 * 4 ZCREBCSC BIT(1), /* ISTZBCSC ENTERED */ 02770000 * 4 ZCREBCXA BIT(1), /* ISTZBCXA ENTERED */ 02771000 * 4 ZCREBCX0 BIT(1), /* ISTZBCX0 ENTERED */ 02772000 * 4 ZCREBCY0 BIT(1), /* ISTZBCY0 ENTERED */ 02773000 * 4 ZCREBCZ0 BIT(1), /* ISTZBCZ0 ENTERED */ 02774000 * 4 ZCREBC0A BIT(1), /* ISTZBC0A ENTERED */ 02775000 * 4 ZCREBC0B BIT(1), /* ISTZBC0B ENTERED */ 02776000 * 4 ZCRECC0A BIT(1), /* ISTZCC0A ENTERED */ 02777000 * 4 ZCRECC0B BIT(1), /* ISTZCC0B ENTERED */ 02778000 * 4 ZCRECC1A BIT(1), /* ISTZCC1A ENTERED */ 02779000 * 4 ZCRECC1B BIT(1), /* ISTZCC1B ENTERED */ 02780000 * 4 ZCRECC2B BIT(1), /* ISTZCC2B ENTERED */ 02781000 * 4 ZCREDCA0 BIT(1), /* ISTZDCA0 ENTERED */ 02782000 * 4 ZCREDCB0 BIT(1), /* ISTZDCB0 ENTERED */ 02783000 * 4 ZCREDCC0 BIT(1), /* ISTZDCC0 ENTERED */ 02784000 * 4 ZCREDCD0 BIT(1), /* ISTZDCD0 ENTERED */ 02785000 * 4 ZCREDCE0 BIT(1), /* ISTZDCE0 ENTERED */ 02786000 * 4 ZCREDCF0 BIT(1), /* ISTZDCF0 ENTERED */ 02787000 * 4 ZCREDCH0 BIT(1), /* ISTZDCH0 ENTERED */ 02788000 * 4 ZCREDCI0 BIT(1), /* ISTZDCI0 ENTERED */ 02789000 * 4 ZCREDCJ0 BIT(1), /* ISTZDCJ0 ENTERED */ 02790000 * 4 ZCREDCKA BIT(1), /* ISTZDCKA ENTERED */ 02791000 * 4 ZCREDCKB BIT(1), /* ISTZDCKB ENTERED */ 02792000 * 4 ZCREDCL0 BIT(1), /* ISTZDCL0 ENTERED */ 02793000 * 4 ZCREDCMB BIT(1), /* ISTZDCMB ENTERED */ 02794000 * 4 ZCREECBA BIT(1), /* ISTZECBA ENTERED */ 02795000 * 4 ZCREECBB BIT(1), /* ISTZECBB ENTERED */ 02796000 * 4 ZCREECCA BIT(1), /* ISTZECCA ENTERED */ 02797000 * 4 ZCREECCB BIT(1), /* ISTZECCB ENTERED */ 02798000 * 4 ZCREECDA BIT(1), /* ISTZECDA ENTERED */ 02799000 * 4 ZCREECEA BIT(1), /* ISTZECEA ENTERED */ 02800000 * 4 ZCREECTA BIT(1), /* ISTZECTA ENTERED */ 02801000 * 4 ZCREFCEA BIT(1), /* ISTZFCEA ENTERED */ 02802000 * 4 ZCREFCEB BIT(1), /* ISTZFCEB ENTERED */ 02803000 * 4 ZCREGCAB BIT(1), /* ISTZGCAB ENTERED */ 02804000 * 4 ZCREGCBB BIT(1), /* ISTZGCBB ENTERED */ 02805000 * 4 * BIT(1), /* NOT USED */ 02806000 * 4 ZCREGCDB BIT(1), /* ISTZGCDB ENTERED */ 02807000 * 4 ZCREGCEB BIT(1), /* ISTZGCEB ENTERED */ 02808000 * 4 ZCREGCLA BIT(1), /* ISTZGCLA ENTERED */ 02809000 * 4 ZCREGC0A BIT(1), /* ISTZGC0A ENTERED */ 02810000 * 4 ZCREGC0B BIT(1), /* ISTZGC0B ENTERED */ 02811000 * 4 ZCREHCAN BIT(1), /* ISTZHCAN ENTERED */ 02812000 * 4 ZCREICAA BIT(1), /* ISTZICAA ENTERED */ 02813000 * 4 ZCREICAB BIT(1), /* ISTZICAB ENTERED */ 02814000 * 4 ZCREICBB BIT(1), /* ISTZICBB ENTERED */ 02815000 * 4 ZCREICBI BIT(1), /* ISTZICBI ENTERED */ 02816000 * 4 ZCREICCB BIT(1), /* ISTZICCB ENTERED */ 02817000 * 4 ZCREICCI BIT(1), /* ISTZICCI ENTERED */ 02818000 * 4 ZCREICDB BIT(1), /* ISTZICDB ENTERED */ 02819000 * 4 ZCREICEB BIT(1), /* ISTZICEB ENTERED */ 02820000 * 4 ZCREICGB BIT(1), /* ISTZICGB ENTERED */ 02821000 * 4 ZCREICHB BIT(1), /* ISTZICHB ENTERED */ 02822000 * 4 ZCREICIB BIT(1), /* ISTZICIB ENTERED */ 02823000 * 4 ZCREICID BIT(1), /* ISTZICID ENTERED */ 02824000 * 4 ZCREICJB BIT(1), /* ISTZICJB ENTERED */ 02825000 * 4 ZCREICKB BIT(1), /* ISTZICKB ENTERED */ 02826000 * 4 ZCREICKE BIT(1), /* ISTZICKE ENTERED */ 02827000 * 4 ZCREICKG BIT(1), /* ISTZICKG ENTERED */ 02828000 * 4 ZCREICLB BIT(1), /* ISTZICLB ENTERED */ 02829000 * 4 ZCREICMB BIT(1), /* ISTZICMB ENTERED */ 02830000 * 4 ZCREICNA BIT(1), /* ISTZICNA ENTERED */ 02831000 * 4 ZCREICNB BIT(1), /* ISTZICNB ENTERED */ 02832000 * 4 ZCREICOA BIT(1), /* ISTZICOA ENTERED */ 02833000 * 4 ZCREICOB BIT(1), /* ISTZICOB ENTERED */ 02834000 * 4 ZCREICQA BIT(1), /* ISTZICQA ENTERED */ 02835000 * 4 ZCREICQB BIT(1), /* ISTZICQB ENTERED */ 02836000 * 4 ZCREICRB BIT(1), /* ISTZICRB ENTERED */ 02837000 * 4 ZCREICSB BIT(1), /* ISTZICSB ENTERED */ 02838000 * 4 ZCREICSC BIT(1), /* ISTZICSC ENTERED */ 02839000 * 4 ZCREICTB BIT(1), /* ISTZICTB ENTERED */ 02840000 * 4 ZCREICUB BIT(1), /* ISTZICUB ENTERED */ 02841000 * 4 ZCREICVB BIT(1), /* ISTZICVB ENTERED */ 02842000 * 4 ZCREICWB BIT(1), /* ISTZICWB ENTERED */ 02843000 * 4 ZCREICX0 BIT(1), /* ISTZICX0 ENTERED */ 02844000 * 4 ZCREIC0B BIT(1), /* ISTZIC0B ENTERED */ 02845000 * 4 ZCREIC1B BIT(1), /* ISTZIC1B ENTERED */ 02846000 * 4 ZCREJCAB BIT(1), /* ISTZJCAB ENTERED */ 02847000 * 4 ZCREJCBB BIT(1), /* ISTZJCBB ENTERED */ 02848000 * 4 ZCREJCCB BIT(1), /* ISTZJCCB ENTERED */ 02849000 * 4 ZCREJCDB BIT(1), /* ISTZJCDB ENTERED */ 02850000 * 4 ZCREJC0B BIT(1), /* ISTZJC0B ENTERED */ 02851000 * 4 ZCREKCBB BIT(1), /* ISTZKCBB ENTERED */ 02852000 * 4 ZCREKCBN BIT(1), /* ISTZKCBN ENTERED */ 02853000 * 4 ZCREKCCN BIT(1), /* ISTZKCCN ENTERED */ 02854000 * 4 ZCREDCWR BIT(1), /* ISTZDCWR ENTERED */ 02855000 * 4 ZCREDCWB BIT(1), /* ISTZDCWB ENTERED */ 02856000 * 4 ZCREDCXR BIT(1), /* ISTZDCXR ENTERED */ 02857000 * 4 ZCREBCBR BIT(1), /* ISTZBCBR ENTERED */ 02858000 * 4 ZCREBCDR BIT(1), /* ISTZBCDR ENTERED */ 02859000 * 4 ZCREBCAR BIT(1), /* ISTZBCAR ENTERED */ 02860000 * 4 ZCRECCBI BIT(1), /* ISTZCCBI ENTERED */ 02861000 * 4 ZCRECCAI BIT(1), /* ISTZCCAI ENTERED */ 02862000 * 4 ZCRECCCI BIT(1), /* ISTZCCCI ENTERED */ 02863000 * 4 ZCREAC1R BIT(1), /* ISTZAC1R ENTERED */ 02864000 * 4 ZCREBCSB BIT(1), /* ISTZBCSB ENTERED */ 02865000 * 4 ZCREDCPR BIT(1), /* ISTZDCPR ENTERED */ 02866000 * 4 ZCREDCQR BIT(1), /* ISTZDCQR ENTERED */ 02867000 * 4 ZCREBCAL BIT(1), /* ISTZBCAL ENTERED */ 02868000 * 4 ZCREBC0L BIT(1), /* ISTZBC0L ENTERED */ 02869000 * 4 ZCREBCNB BIT(1), /* ISTZBCNB ENTERED */ 02870000 * 4 ZCREICOE BIT(1), /* ISTZICOE ENTERED */ 02871000 * 4 ZCREDCNB BIT(1), /* ISTZDCNB ENTERED */ 02872000 * 4 ZCREKCCB BIT(1), /* ISTZKCCB ENTERED */ 02873000 * 4 ZCRECFY0 BIT(1), /* ISTZCFY0 ENTERED */ 02874000 * 4 ZCREDCK0 BIT(1), /* ISTZDFK0 ENTERED */ 02875000 * 4 ZCREICSG BIT(1), /* ISTZICSG ENTERED */ 02876000 * 4 ZCREBCIF BIT(1), /* ISTZBCIF ENTERED */ 02877000 * 4 ZCREDCMF BIT(1), /* ISTZDCMF ENTERED */ 02878000 * 4 ZCRELCAB BIT(1), /* ISTZLCAB ENTERED */ 02879000 * 4 ZCREAC2B BIT(1), /* ISTZAC2B ENTERED */ 02880000 * 4 ZCREIC2B BIT(1), /* ISTZIC2B ENTERED */ 02881000 * 4 ZCRRSV97 BIT(97), /* RESERVED */ 02882000 * 2 ZCRCMNRC CHAR(1), /* PURGE MWOR RETURN CODE */ 02883000 * 2 ZCRWORDA CHAR(3), /* RESERVED FOR LATER USE */ 02884000 * 2 ZCRLCPB CHAR(LENGTH(ISTLCPB)), /* 3270 S/R LCPB */ 02885000 * 3 ZCRRHRU, /* SAVEAREA FOR RH AND RU */ 02886000 * 4 ZCRRH CHAR(3), /* RH */ 02887000 * 4 ZCRRU CHAR(*); /* RU */ 02888000 *DCL ZCTYPE BIT(8) CONSTANT('00'X); /* ZCR TYPE */ 02889000 *DCL ZCLNG FIXED(15) CONSTANT(172); /* ZCRR LENGTH */ 02890000 *DCL ZCRSAVNO BIT(8) CONSTANT('06'X); /* NUMBER OF SAVEAREAS IN ZCRR */ 02891000 *DCL ZCRLSVNO BIT(8) CONSTANT('04'X); /* NUMBER OF SAVE AREAS IN 0510 02892000 * LOCAL SUPPORT */ 02893000 */* *** EQUATES FOR ZCRRCDSV *** */ 0511 02894000 * 0511 02895000 *DCL ZCRMRFSB BIT(8) CONSTANT('0C'X); /* REQUEST COMPLETION MOVE FSB 02896000 * TO PROCESS */ 02897000 *DCL ZCRSRCHQ BIT(8) CONSTANT('10'X); /* REQUEST COMPLETION SEARCH 02898000 * REQUEST QUEUE */ 02899000 *DCL ZCREXIT BIT(8) CONSTANT('14'X); /* REQUEST COMPLETION EXIT */ 02900000 *DCL ZCRSFSB BIT(8) CONSTANT('18'X); /* REQUEST COMPLETION SINGLE 02901000 * FSB */ 02902000 *DCL ZCRDLFSB BIT(8) CONSTANT('1C'X); /* REQUEST COMPLETION DUAL FSB * 02903000 *DCL ZCRNOSCH BIT (8) CONSTANT('20'X); /* REQUEST COMPLETION, EXIT WITH 02904000 * SCHED NONE */ 02905000 *DCL ZCRNRSCH BIT (8) CONSTANT('24'X); /* REQUEST COMPLETION, EXIT WITH 02906000 * SCHED NORM */ 02907000 *DCL ZCRLGERR FIXED(8) CONSTANT(8); /* LOGICAL ERROR */ 02908000 *DCL ZCPLSCB BIT(8) CONSTANT('08'X); /* GET A RELEASE LSCB */ 02909000 *DCL ZCPBUF BIT(8) CONSTANT('04'X); /* GET A RELEASE BUFFER */ 02910000 *DCL ZCRTAC0A FIXED(8) CONSTANT(01); /* LOCAL DEVICE SCHEDULER(OUT)*/ 02911000 *DCL ZCRTAC0B FIXED(8) CONSTANT(02); /* REMOTE DEVICE SCHEDLER(OUT)*/ 02912000 *DCL ZCRTCC1A FIXED(8) CONSTANT(03); /* LOCAL DIALOG SCHEDLER(IN) */ 02913000 *DCL ZCRTCC1B FIXED(8) CONSTANT(04); /* REMOTE DIALOG SCHEDLER(IN) */ 02914000 *DCL ZCRTDCE0 FIXED(8) CONSTANT(05); /* NCP SLOWDOWN RECOVERY */ 02915000 *DCL ZCRTDCKA FIXED(8) CONSTANT(06); /* LOCAL GENERAL FUNCTIONS */ 02916000 *DCL ZCRTDCKB FIXED(8) CONSTANT(07); /* REMOTE GENERAL FUNCTIONS */ 02917000 *DCL ZCRTFCEB FIXED(8) CONSTANT(08); /* REMOTE READ BUFFER ALLOC. */ 02918000 *DCL ZCRTGCLA FIXED(8) CONSTANT(09); /* LCAL CTL & TEST FEEDBACK(IN)* 02919000 *DCL ZCRTGC0A FIXED(8) CONSTANT(10); /* LOCAL REQ. COMPLETION(IN) */ 02920000 *DCL ZCRTGC0B FIXED(8) CONSTANT(11); /* REMOTE REQ. COMPLETION(IN) */ 02921000 *DCL ZCRTICWB FIXED(8) CONSTANT(12); /* RESET CLEANUP (PHASE 5) */ 02922000 *DCL ZCRTIC0B FIXED(8) CONSTANT(13); /* REMOTE REQ COMPLTION CTL(IN)* 02923000 *DCL ZCRTAC1B FIXED(8) CONSTANT(14); /* ISTZAC1B THREAD ID */ 02924000 *DCL ZCRTIC1B FIXED(8) CONSTANT(15); /* ISTZIC1B THREAD ID */ 02925000 *DCL ZCRTCCBI FIXED(8) CONSTANT(16); /* ISTZCCBI THREAD ID */ 02926000 *DCL ZCRTAC1R FIXED(8) CONSTANT(17); /* ISTZAC1R THREAD ID */ 02927000 *DCL ZCRTAC1A FIXED(8) CONSTANT(18); /* ISTZAC1A THREAD ID */ 02928000 *DCL ZCRTLCAB FIXED(8) CONSTANT(19); /* ISTZLCAB THREAD ID */ 02929000 */* COMPONENT RECOVERY */ 02930000 */* */ 02931000 *DCL 1 ISTASCRR BDY(WORD) BASED, /* CRR FOR SMS */ 02932000 * 2 ASCPFCRR CHAR(LENGTH(ISTPFCRR)), 0540 02933000 * 2 ASCFLAGS CHAR(7), /* FLAGS */ 02934000 * 3 ASCFLG1 CHAR(2), /* MODULE TRACE FLAGS */ 02935000 * 4 ASCFBA BIT(1), /* ALLOCATION IN PATH */ 02936000 * 4 ASCFBD BIT(1), /* DE-ALLOCATION IN PATH */ 02937000 * 4 ASCFSR BIT(1), /* FSR IN PATH */ 02938000 * 4 ASCPASTR BIT(13), /* RESERVED PATH FLAGS */ 02939000 * 3 ASCFLG2 CHAR(2), /* MODULE IN CONTROL FLAGS */ 02940000 * 4 ASCFBAIC BIT(1), /* ALLOCATION IN CONTROL */ 02941000 * 4 ASCFBDIC BIT(1), /* DE-ALLOCATION IN CONTROL */ 02942000 * 4 ASCFSRIC BIT(1), /* FSR IN CONTROL */ 02943000 * 4 ASCICR BIT(13), /* RESERVED IN CONTROL FLAGS */ 02944000 * 3 ASCFLG3 CHAR(3), /* AUDIT FLAGS */ 02945000 * 4 ASCFSRGT BIT(1), /* FSR DOING GET PROCESSING */ 02946000 * 4 ASCFBDAL BIT(1), /* FBD DOING ALLOCATION */ 02947000 * 4 ASCKEYF BIT(1), /* KEY HAS BEEN ALTERED */ 02948000 * 4 ASCLLKF BIT(1), /* LOCAL LOCK HELD */ 02949000 * 4 ASCFBDUD BIT(1), /* FBD USING USER DATA */ 02950000 * 4 ASCAUDIT BIT(19), /* RESERVED AUDIT BITS */ 02951000 * 2 ASCKEY CHAR(1), /* ORIGINAL KEY */ 02952000 * 2 ASCETRYA PTR(31), /* RETRY ADRS FOR CONTINUE 0540 02953000 * OPTION */ 02954000 * 2 ASCUSRGS CHAR(16), /* SAVE AREA FOR USER REGS 0540 02955000 * 14 - 1 */ 02956000 * 3 ASCUSR14 CHAR(4), /* REGISTER 14 */ 02957000 * 3 ASCUSR15 CHAR(4), /* REGISTER 15 */ 02958000 * 3 ASCUSR00 CHAR(4), /* REGISTER 0 */ 02959000 * 3 ASCUSR01 CHAR(4), /* REGISTER 1 */ 02960000 * 2 ASCPSREG CHAR(16); /* SAVE AREA FOR PSS 0540 02961000 * REGS 1 - 4 */ 02962000 */* INITIAL LEVEL 001 04/09/75 */ 02963000 *DCL 1 ISTAPCRR BDY(WORD) BASED, 0541 02964000 * 2 APCHDRSV CHAR(LENGTH(ISTPFCRR)), /* HEADER */ 02965000 * 2 APCATFLG CHAR(2), /* AUDIT TRACE FLAGS */ 02966000 * 3 APC51E BIT(1), /* ISTAPC51 WAS ENTERED */ 02967000 * 3 APC52E BIT(1), /* ISTAPC52 ' ' */ 02968000 * 3 APC53E BIT(1), /* ISTAPC53 */ 02969000 * 3 APC54E BIT(1), 0541 02970000 * 3 APC56E BIT(1), 0541 02971000 * 3 APC57E BIT(1), 0541 02972000 * 3 APC58E BIT(1), 0541 02973000 * 3 APC31E BIT(1), 0541 02974000 * 3 * BIT(8), /* RESERVED */ 02975000 * 2 APCRFLG CHAR(2), /* AUDIT TRACE FLAGS */ 02976000 * 3 APC51R BIT(1), /* ISTAPCR1 IS RUNNING */ 02977000 * 3 APC52R BIT(1), /* ISTAPC52 IS RUNNING */ 02978000 * 3 APC53R BIT(1), 0541 02979000 * 3 APC54R BIT(1), 0541 02980000 * 3 APC56R BIT(1), 0541 02981000 * 3 APC57R BIT(1), 0541 02982000 * 3 APC58R BIT(1), 0541 02983000 * 3 APC31R BIT(1), 0541 02984000 * 3 * BIT(8), /* RESERVED */ 02985000 * 2 APCPSTA PTR(31), /* PST@ */ 02986000 * 2 APCTCBA PTR(31), /* TCB@ */ 02987000 * 2 APCRTRN PTR(31), /*@ TO BR14 TO RTN TO SYSTEM */ 02988000 * 2 APCPABSV PTR(31), /*SAVED PAB@ TO REDISPATCH */ 02989000 * 2 APCQWFO PTR(31), /* Q@ IN PST WORK AREA ON */ 02990000 * 2 APCFRRPM PTR(31), /* WORKAREA@ RTN'D FROM SETFR*/ 02991000 * 2 APCSAVE CHAR(72), 0541 02992000 * 3 APCESTAL CHAR(72), /* ESTAE PARAMETER LIST AREA */ 02993000 * 2 APCCOMF CHAR(4) BDY(HWORD), /* FLAGS USED BY ALL PSS RTN */ 02994000 * 3 APCCOMF1 CHAR(2), 0541 02995000 * 4 APCSSTSK BIT(1), /* IRB TYPE WORK */ 02996000 * 4 APCUETSK BIT(1), /* USER EXIT RUNNING UNDER IRB* 02997000 * 4 APCSMCR BIT(1), /* SMA CRA BEING USED */ 02998000 * 4 APCIRB1 BIT(1), /* IRB1 BEING USED */ 02999000 * 4 APCIRB2 BIT(1), /* IRB2 BEING USED */ 03000000 * 4 APCRELR BIT(1), /*CALL ISTAPC58 TO RLEASE CRA*/ 03001000 * 4 APCEXIT BIT(1), /* TELLS ISTAPC58 TO EXIT SYS*/ 03002000 * 4 APCZLBER BIT(1), /* ERR WHILE RUNNING ZLFAB PAB* 03003000 * 4 * BIT(8), /* RESERVED */ 03004000 * 3 APCRETCD FIXED(15), /* RTN CODE FOR R15 FOR SYS */ 03005000 * 2 APCSAV1 PTR(31), /* 1ST SAVE WORD */ 03006000 * 2 APCSAV2 PTR(31), /* 2ND SAVE WORD */ 03007000 * 2 APCSWTWD CHAR(4), /* SWITCH AREA FOR PSS RTN */ 03008000 * 2 APC31FLG CHAR(1), /* ISTAPC31 FLAGS */ 03009000 * 3 APCTPXIT BIT(1), /* TPEXIT IN PROGRESS */ 03010000 * 3 APCRESCH BIT(1), /*PAB TPEXIT OCCURED RESCHED*/ 03011000 * 3 APCSORT BIT(1), /* PAB SORTED TO PROPER PST/MPST */ 03012000 * 3 * BIT(5), /* RESERVED */ 03013000 * 2 APC52FLG CHAR(1), /* ISTAPC52 FLAGS */ 03014000 * 3 APCCKRQ BIT(1), /* CHECK RDY Q FOR WORK */ 03015000 * 3 APCSMSR BIT(1), /* RETURNING SMS RPH */ 03016000 * 3 APCQENQ BIT(1), /* ENQUEUEING PAB'S ON PST Q'S */ 03017000 * 3 APCRDQ BIT(1), /* DEQUEING PAB'S FROM PST RDY Q */ 03018000 * 3 APCNWF BIT(1), /* NO WORK FOUND */ 03019000 * 3 APCWKF BIT(1), /* WORK FOUND */ 03020000 * 3 * BIT(2), /* RESERVED */ 03021000 * 2 APC53FLG CHAR(1), /* ISTAPC53 FLAGS */ 03022000 * 3 APCPR153 BIT(1), /* USED PREALLOCATED CRA */ 03023000 * 2 APC54FLG CHAR(1), /* ISTAPC54 FLAGS */ 03024000 * 3 APCRLST BIT(1), /* SMS BEING CALLED TO RELEASE UECB*/ 03025000 * 3 * BIT(7), /* RESERVED */ 03026000 * 2 APC57FLG CHAR(1), /* ISTAPC57 FLAGS */ 03027000 * 3 APCRECRA BIT(1), /* RELEASE CRA BEING DONE */ 03028000 * 3 APCNREL BIT(1), /* DID NOT RELEASE CRA */ 03029000 * 3 * BIT(6), /* RESERVED */ 03030000 * 2 * CHAR(15); /* RESERVED */ 03031000 */* COMPONENT RECOVERY AREA */ 03032000 */* REVISIONS 005 04/09/75 */ 03033000 *DCL 1 ISTCRA BASED BDY(DWORD), /* COMPONENT RECOVERY AREA */ 03034000 * 2 CRABASIC BDY(WORD), /* CRA WITHOUT PROCESS CRR */ 03035000 * 3 CRAHDR CHAR(8) BDY(WORD), /* CRA HEADER */ 03036000 * 4 CRACRR PTR(31), /* PTR TO ACTIVE CRR */ 03037000 * 4 CRAFRR PTR(31), /* PTR TO ACTIVE FRR */ 03038000 * 3 CRALKACT BIT(32), /* LOCK LEVEL AND 0542 03039000 * OWNERSHIP FLAGS */ 03040000 * 4 CRALEV32 BIT(1), /* 1 = LEVEL 32 LOCK HELD */ 03041000 * 4 CRALEV31 BIT(1), /* 1 = LEVEL 31 LOCK HELD */ 03042000 * 4 CRALEV30 BIT(1), /* 1 = LEVEL 30 LOCK HELD */ 03043000 * 4 CRALEV29 BIT(1), /* 1 = LEVEL 29 LOCK HELD */ 03044000 * 4 CRALEV28 BIT(1), /* 1 = LEVEL 28 LOCK HELD */ 03045000 * 4 CRALEV27 BIT(1), /* 1 = LEVEL 27 LOCK HELD */ 03046000 * 4 CRALEV26 BIT(1), /* 1 = LEVEL 26 LOCK HELD */ 03047000 * 4 CRALEV25 BIT(1), /* 1 = LEVEL 25 LOCK HELD */ 03048000 * 4 CRALEV24 BIT(1), /* 1 = LEVEL 24 LOCK HELD */ 03049000 * 4 CRALEV23 BIT(1), /* 1 = LEVEL 23 LOCK HELD */ 03050000 * 4 CRALEV22 BIT(1), /* 1 = LEVEL 22 LOCK HELD */ 03051000 * 4 CRALEV21 BIT(1), /* 1 = LEVEL 21 LOCK HELD */ 03052000 * 4 CRALEV20 BIT(1), /* 1 = LEVEL 20 LOCK HELD */ 03053000 * 4 CRALEV19 BIT(1), /* 1 = LEVEL 19 LOCK HELD */ 03054000 * 4 CRALEV18 BIT(1), /* 1 = LEVEL 18 LOCK HELD */ 03055000 * 4 CRALEV17 BIT(1), /* 1 = LEVEL 17 LOCK HELD */ 03056000 * 4 CRALEV16 BIT(1), /* 1 = LEVEL 16 LOCK HELD */ 03057000 * 4 CRALEV15 BIT(1), /* 1 = LEVEL 15 LOCK HELD */ 03058000 * 4 CRALEV14 BIT(1), /* 1 = LEVEL 14 LOCK HELD */ 03059000 * 4 CRALEV13 BIT(1), /* 1 = LEVEL 13 LOCK HELD */ 03060000 * 4 CRALEV12 BIT(1), /* 1 = LEVEL 12 LOCK HELD */ 03061000 * 4 CRALEV11 BIT(1), /* 1 = LEVEL 11 LOCK HELD */ 03062000 * 4 CRALEV10 BIT(1), /* 1 = LEVEL 10 LOCK HELD */ 03063000 * 4 CRALEV09 BIT(1), /* 1 = LEVEL 9 LOCK HELD */ 03064000 * 4 CRALEV08 BIT(1), /* 1 = LEVEL 8 LOCK HELD */ 03065000 * 4 CRALEV07 BIT(1), /* 1 = LEVEL 7 LOCK HELD */ 03066000 * 4 CRALEV06 BIT(1), /* 1 = LEVEL 6 LOCK HELD */ 03067000 * 4 CRALEV05 BIT(1), /* 1 = LEVEL 5 LOCK HELD */ 03068000 * 4 CRALEV04 BIT(1), /* 1 = LEVEL 4 LOCK HELD */ 03069000 * 4 CRALEV03 BIT(1), /* 1 = LEVEL 3 LOCK HELD */ 03070000 * 4 CRALEV02 BIT(1), /* 1 = LEVEL 2 LOCK HELD */ 03071000 * 4 CRALEV01 BIT(1), /* 1 = LEVEL 1 LOCK HELD */ 03072000 * 3 CRAL1PTR PTR(31), /* PTR TO LEVEL 1 LOCK */ 03073000 * 3 CRAL2PTR PTR(31), /* PTR TO LEVEL 2 LOCK */ 03074000 * 3 CRAL3PTR PTR(31), /* PTR TO LEVEL 3 LOCK */ 03075000 * 3 CRAL4PTR PTR(31), /* PTR TO LEVEL 4 LOCK */ 03076000 * 3 CRAL5PTR PTR(31), /* PTR TO LEVEL 5 LOCK */ 03077000 * 3 CRAL6PTR PTR(31), /* PTR TO LEVEL 6 LOCK */ 03078000 * 3 CRAL7PTR PTR(31), /* PTR TO LEVEL 7 LOCK */ 03079000 * 3 CRAL8PTR PTR(31), /* PTR TO LEVEL 8 LOCK */ 03080000 * 3 CRAL9PTR PTR(31), /* PTR TO LEVEL 9 LOCK */ 03081000 * 3 CRALAPTR PTR(31), /* RESERVED */ 03082000 */* */ 03083000 */* VS1/VS2 EXTENSION */ 03084000 */* */ 03085000 * 2 CRARPH CHAR(LENGTH(ISTRPH)), /* RPH ASSOCIATED WITH 0542 03086000 * THIS CRH */ 03087000 * 2 CRAPSS CHAR(LENGTH(ISTAPCRR)), /* PSS CRR */ 03088000 * 2 CRAPROCR CHAR(LENGTH(ISTZCRR)) BDY(DWORD), /* PROCESS CRR */ 03089000 * 2 CRASVC CHAR(72) BDY(WORD), /* SERVICE RTN CRA */ 03090000 * 3 CRAASCRR CHAR(LENGTH(ISTASCRR)), /* CRR FOR SMS */ 03091000 * 3 CRAHSIZ PTR(31), /* HEADER SIZE QUED SMS REQ */ 03092000 * 3 CRAMASK PTR(31), /* PREFIX MASK QUED SMS REQ */ 03093000 * 3 CRABUFA FIXED(31), /* BUFF QUE FOR FBQ ALLOCATION* 03094000 * 4 CRABFTBA BIT(1), /* NO BUFFERS ALLOCATED YET * 03095000 * 2 CRARSV01 PTR(31), /* RESERVED */ 03096000 * 2 CRARSV02 PTR(31), /* RESERVED */ 03097000 * 2 CRACHAIN PTR(31); /* CHAIN FIELD USED TO QUEUE 03098000 * CRA TO PREALLOCATE QUEUE 03099000 * WHEN NOT IN USE */ 03100000 *DCL CRALMS32 BIT(32) CONSTANT('80000000'X); /* 32ND LEVEL LOCK MASK */ 03101000 *DCL CRALMS31 BIT(32) CONSTANT('40000000'X); /* 31ST LEVEL LOCK MASK */ 03102000 *DCL CRALMS30 BIT(32) CONSTANT('20000000'X); /* 30TH LEVEL LOCK MASK */ 03103000 *DCL CRALMS29 BIT(32) CONSTANT('10000000'X); /* 29TH LEVEL LOCK MASK */ 03104000 *DCL CRALMS28 BIT(32) CONSTANT('08000000'X); /* 28TH LEVEL LOCK MASK */ 03105000 *DCL CRALMS27 BIT(32) CONSTANT('04000000'X); /* 27TH LEVEL LOCK MASK */ 03106000 *DCL CRALMS26 BIT(32) CONSTANT('02000000'X); /* 26TH LEVEL LOCK MASK */ 03107000 *DCL CRALMS25 BIT(32) CONSTANT('01000000'X); /* 25TH LEVEL LOCK MASK */ 03108000 *DCL CRALMS24 BIT(32) CONSTANT('00800000'X); /* 24TH LEVEL LOCK MASK */ 03109000 *DCL CRALMS23 BIT(32) CONSTANT('00400000'X); /* 23RD LEVEL LOCK MASK */ 03110000 *DCL CRALMS22 BIT(32) CONSTANT('00200000'X); /* 22ND LEVEL LOCK MASK */ 03111000 *DCL CRALMS21 BIT(32) CONSTANT('00100000'X); /* 21ST LEVEL LOCK MASK */ 03112000 *DCL CRALMS20 BIT(32) CONSTANT('00080000'X); /* 20TH LEVEL LOCK MASK */ 03113000 *DCL CRALMS19 BIT(32) CONSTANT('00040000'X); /* 19TH LEVEL LOCK MASK */ 03114000 *DCL CRALMS18 BIT(32) CONSTANT('00020000'X); /* 18TH LEVEL LOCK MASK */ 03115000 *DCL CRALMS17 BIT(32) CONSTANT('00010000'X); /* 17TH LEVEL LOCK MASK */ 03116000 *DCL CRALMS16 BIT(32) CONSTANT('00008000'X); /* 16TH LEVEL LOCK MASK */ 03117000 *DCL CRALMS15 BIT(32) CONSTANT('00004000'X); /* 15TH LEVEL LOCK MASK */ 03118000 *DCL CRALMS14 BIT(32) CONSTANT('00002000'X); /* 14TH LEVEL LOCK MASK */ 03119000 *DCL CRALMS13 BIT(32) CONSTANT('00001000'X); /* 13TH LEVEL LOCK MASK */ 03120000 *DCL CRALMS12 BIT(32) CONSTANT('00000800'X); /* 12TH LEVEL LOCK MASK */ 03121000 *DCL CRALMS11 BIT(32) CONSTANT('00000400'X); /* 11TH LEVEL LOCK MASK */ 03122000 *DCL CRALMS10 BIT(32) CONSTANT('00000200'X); /* 10TH LEVEL LOCK MASK */ 03123000 *DCL CRALMS09 BIT(32) CONSTANT('00000100'X); /* 9TH LEVEL LOCK MASK */ 03124000 *DCL CRALMS08 BIT(32) CONSTANT('00000080'X); /* 8TH LEVEL LOCK MASK */ 03125000 *DCL CRALMS07 BIT(32) CONSTANT('00000040'X); /* 7TH LEVEL LOCK MASK */ 03126000 *DCL CRALMS06 BIT(32) CONSTANT('00000020'X); /* 6TH LEVEL LOCK MASK */ 03127000 *DCL CRALMS05 BIT(32) CONSTANT('00000010'X); /* 5TH LEVEL LOCK MASK */ 03128000 *DCL CRALMS04 BIT(32) CONSTANT('00000008'X); /* 4TH LEVEL LOCK MASK */ 03129000 *DCL CRALMS03 BIT(32) CONSTANT('00000004'X); /* 3RD LEVEL LOCK MASK */ 03130000 *DCL CRALMS02 BIT(32) CONSTANT('00000002'X); /* 2ND LEVEL LOCK MASK */ 03131000 *DCL CRALMS01 BIT(32) CONSTANT('00000001'X); /* 1ST LEVEL LOCK MASK */ 03132000 *DCL CRACRA CHAR(4) CONSTANT('CRA '); /* CHARACTER C.B. ID */ 03133000 * /* CONNECTION SERVICES COMPONENT RECOVERY RECORD */ 03134000 * /* COMPLETED DCR SOLUTIONS */ 03135000 * /* 1H0540 APRIL 28, 1973 MB */ 03136000 */* ZTR4417 JUNE 20, 73 DNM */ 0576 03137000 * DCL 1 ISTCNSTA BDY(WORD) BASED, /* CONNECTION SERVICES 0576 03138000 * COMPONENT RECOVERY RECORD */ 03139000 * 2 CNSTPFX CHAR(LENGTH(ISTPFCRR)), /* STANDARD PREFIX 0576 03140000 * FOR CRR */ 03141000 * 2 CNSTFLDA CHAR(3), /* TRACE FIELD A - HISTORY */ 03142000 * 3 CNSMRINA BIT(1), /* MASTER ENTERED */ 03143000 * 3 CNSAUTHA BIT(1), /* ABOUT TO CALL AUTHORI- 0576 03144000 * SATION EXIT ZTR4417 */ 03145000 * 3 CNSAQINA BIT(1), /* ACQUIRE ENTERED */ 03146000 * 3 CNSXREQA BIT(1), /* ACQUIRE SATISFIED */ 03147000 * 3 CNSQREQA BIT(1), /* ACQUIRE QUEUED */ 03148000 * 3 CNSRLINA BIT(1), /* RELEASE ENTERED */ 03149000 * 3 CNSDORLA BIT(1), /* DOREL REALLOCATION 0576 03150000 * ENTERED */ 03151000 * 3 CNSTRRLA BIT(1), /* RELEASE OF ACTIVE 0576 03152000 * CONNECTION */ 03153000 * 3 CNSRQRLA BIT(1), /* RELEASE QUEUED REQUEST */ 03154000 * 3 CNSPSINA BIT(1), /* PASS ENTERED */ 03155000 * 3 CNSACINA BIT(1), /* ACCEPT ENTERED */ 03156000 * 3 CNSLGINA BIT(1), /* LOGON ENTERED */ 03157000 * 3 CNSGBINA BIT(1), /* PREEMPT ENTERED */ 03158000 * 3 CNSCLINA BIT(1), /* CANCEL ENTERED */ 03159000 * 3 CNSCLAQA BIT(1), /* CANCEL ACQUIRES */ 03160000 * 3 CNSTCONA BIT(1), /* TCONNECT */ 03161000 * 3 CNSACONA BIT(1), /* ACONNECT */ 03162000 * 3 CNSQUEUA BIT(1), /* QUEUE */ 03163000 * 3 CNSSEARA BIT(1), /* SEARCH Q */ 03164000 * 3 CNSGETSA BIT(1), /* CONNECTION SERVICES 0576 03165000 * GETSTORE */ 03166000 * 3 CNSFREEA BIT(1), /* CONNECTION SERVICES 0576 03167000 * FREESTORE */ 03168000 * 3 CNSACCTA BIT(1), /* ABOUT TO CALL 0576 03169000 * ACCOUNTING EXIT */ 03170000 * 3 CNSLOG0A BIT(1), /* LOGON 0 */ 03171000 * 3 CNSRSV01 BIT(1), /* RESERVED */ 03172000 * 2 CNSTFLDB CHAR(3), /* TRACE FIELD B - 0576 03173000 * CURRENT ACTIVITY */ 03174000 * 3 CNSMRINB BIT(1), 0576 03175000 * 3 CNSAUTHB BIT(1), 0576 03176000 * 3 CNSAQINB BIT(1), 0576 03177000 * 3 CNSXREQB BIT(1), 0576 03178000 * 3 CNSQREQB BIT(1), 0576 03179000 * 3 CNSRLINB BIT(1), 0576 03180000 * 3 CNSDORLB BIT(1), 0576 03181000 * 3 CNSTRRLB BIT(1), 0576 03182000 * 3 CNSRQRLB BIT(1), 0576 03183000 * 3 CNSPSINB BIT(1), 0576 03184000 * 3 CNSACINB BIT(1), 0576 03185000 * 3 CNSLGINB BIT(1), 0576 03186000 * 3 CNSGBINB BIT(1), 0576 03187000 * 3 CNSCLINB BIT(1), 0576 03188000 * 3 CNSCLAQB BIT(1), 0576 03189000 * 3 CNSTCONB BIT(1), 0576 03190000 * 3 CNSACONB BIT(1), 0576 03191000 * 3 CNSQUEUB BIT(1), 0576 03192000 * 3 CNSSEARB BIT(1), 0576 03193000 * 3 CNSGETSB BIT(1), 0576 03194000 * 3 CNSFREEB BIT(1), 0576 03195000 * 3 CNSACCTB BIT(1), 0576 03196000 * 3 CNSLOG0B BIT(1), 0576 03197000 * 3 CNSRSV05 BIT(1); 0576 03198000 */* CRR FOR VARY */ 03199000 */* REVISIONS 009 03/24/75 */ 03200000 */* */ 03201000 * DCL 1 ISTVYCRR BDY(WORD) BASED, /* CRR FOR SSCP */ 03202000 * 2 VYCCNS CHAR(LENGTH(ISTCNSTA)), /* RESERVE SPACE FOR 0577 03203000 * CONN. SVCS. AUDIT */ 03204000 * 2 VYCAUDIT, /* AUDIT TRAIL FOR SSCP */ 03205000 * 3 VYCNTRD CHAR(12), /* LIST OF MODULES IN SSCP */ 03206000 * /* 1 = ENTERED */ 03207000 * 4 NINCCL BIT(1), /* MODULE = ISTINCCL */ 03208000 * 4 NINCIO BIT(1), /* MODULE = ISTINCIO */ 03209000 * 4 NINCDL BIT(1), /* MODULE = ISTINCDL */ 03210000 * 4 NINCMY BIT(1), /* MODULE = ISTINCMY */ 03211000 * 4 NINCMD BIT(1), /* MODULE = ISTINCMD */ 03212000 * 4 NINCVI BIT(1), /* MODULE = ISTINCVI */ 03213000 * 4 NINCVA BIT(1), /* MODULE = ISTINCVA */ 03214000 * 4 NINCLF BIT(1), /* MODULE = ISTINCLF */ 03215000 * 4 NINCR1 BIT(1), /* MODULE = ISTINCR1 */ 03216000 * 4 NINCSM BIT(1), /* MODULE = ISTINCSM */ 03217000 * 4 NINCFS BIT(1), /* MODULE = ISTINCFS */ 03218000 * 4 NINCVX BIT(1), /* MODULE = ISTINCVX */ 03219000 * 4 NINCVP BIT(1), /* MODULE = ISTINCVP */ 03220000 * 4 NINCVS BIT(1), /* MODULE = ISTINCVS */ 03221000 * 4 NINCVN BIT(1), /* MODULE = ISTINCVO */ 03222000 * 4 NINCMS BIT(1), /* MODULE = ISTINCMS */ 03223000 * 4 NINCR2 BIT(1), /* MODULE = ISTINCR2 */ 03224000 * 4 NINCIP BIT(1), /* MODULE = ISTINCIP */ 03225000 * 4 NINCD1 BIT(1), /* MODULE = ISTINCD1 */ 03226000 * 4 NINCD2 BIT(1), /* MODULE = ISTINCD2 */ 03227000 * 4 NINCD3 BIT(1), /* MODULE = ISTINCD3 */ 03228000 * 4 NINCD4 BIT(1), /* MODULE = ISTINCD4 */ 03229000 * 4 NINCD5 BIT(1), /* MODULE = ISTINCD5 */ 03230000 * 4 NINCD6 BIT(1), /* MODULE = ISTINCD6 */ 03231000 * 4 NINCD7 BIT(1), /* MODULE = ISTINCD7 */ 03232000 * 4 NINCD8 BIT(1), /* MODULE = ISTINCD8 */ 03233000 * 4 NINCD9 BIT(1), /* MODULE = ISTINCD9 */ 03234000 * 4 NINCE0 BIT(1), /* MODULE = ISTINCE0 */ 03235000 * 4 NINCE2 BIT(1), /* MODULE = ISTINCE2 */ 03236000 * 4 NINCE3 BIT(1), /* MODULE = ISTINCE3 */ 03237000 * 4 NINCE4 BIT(1), /* MODULE = ISTINCE4 */ 03238000 * 4 NINCFM BIT(1), /* MODULE = ISTINCFM */ 03239000 * 4 NINCF1 BIT(1), /* MODULE = ISTINCF1 */ 03240000 * 4 NINCF3 BIT(1), /* MODULE = ISTINCF3 */ 03241000 * 4 NINCF4 BIT(1), /* MODULE = ISTINCF4 */ 03242000 * 4 NINCL0 BIT(1), /* MODULE = ISTINCL0 */ 03243000 * 4 NINCL1 BIT(1), /* MODULE = ISTINCL1 */ 03244000 * 4 NINCL2 BIT(1), /* MODULE = ISTINCL2 */ 03245000 * 4 NINCL3 BIT(1), /* MODULE = ISTINCL3 */ 03246000 * 4 NINCL4 BIT(1), /* MODULE = ISTINCL4 */ 03247000 * 4 NINCL5 BIT(1), /* MODULE = ISTINCL5 */ 03248000 * 4 NINCL6 BIT(1), /* MODULE = ISTINCL6 */ 03249000 * 4 NINCL7 BIT(1), /* MODULE = ISTINCL7 */ 03250000 * 4 NINCL8 BIT(1), /* MODULE = ISTINCL8 */ 03251000 * 4 NINCS1 BIT(1), /* MODULE = ISTINCS1 */ 03252000 * 4 NINCUM BIT(1), /* MODULE = ISTINCUM */ 03253000 * 4 NINCU0 BIT(1), /* MODULE = ISTINCU0 * 03254000 * 4 NINCU1 BIT(1), /* MODULE = ISTINCU1 */ 03255000 * 4 NINCU2 BIT(1), /* MODULE = ISTINCU2 */ 03256000 * 4 NINCU3 BIT(1), /* MODULE = ISTINCU3 */ 03257000 * 4 NINCU4 BIT(1), /* MODULE = ISTINCU4 */ 03258000 * 4 NINCU5 BIT(1), /* MODULE = ISTINCU5 */ 03259000 * 4 NINCU6 BIT(1), /* MODULE = ISTINCU6 */ 03260000 * 4 NINCU7 BIT(1), /* MODULE = ISTINCU7 */ 03261000 * 4 NINCU8 BIT(1), /* MODULE = ISTINCU8 */ 03262000 * 4 NINCV2 BIT(1), /* MODULE = ISTINCV2 */ 03263000 * 4 NINCV3 BIT(1), /* MODULE = ISTINCV3 */ 03264000 * 4 NINCV4 BIT(1), /* MODULE = ISTINCV4 */ 03265000 * 4 NINCV5 BIT(1), /* MODULE = ISTINCV5 */ 03266000 * 4 NINCV6 BIT(1), /* MODULE = ISTINCV6 */ 03267000 * 4 NINCV7 BIT(1), /* MODULE = ISTINCV7 */ 03268000 * 4 NINCV8 BIT(1), /* MODULE = ISTINCV8 */ 03269000 * 4 NINCV9 BIT(1), /* MODULE = ISTINCV9 */ 03270000 * 4 NINCW0 BIT(1), /* MODULE = ISTINCW0 */ 03271000 * 4 NINCW2 BIT(1), /* MODULE = ISTINCW2 */ 03272000 * 4 NINCW4 BIT(1), /* MODULE = ISTINCW4 */ 03273000 * 4 NINCW5 BIT(1), /* MODULE = ISTINCW5 */ 03274000 * 4 NINCW6 BIT(1), /* MODULE = ISTINCW6 */ 03275000 * 4 NINCW7 BIT(1), /* MODULE = ISTINCW7 */ 03276000 * 4 NINCW8 BIT(1), /* MODULE = ISTINCW8 */ 03277000 * 4 NINCW9 BIT(1), /* MODULE = ISTINCW9 */ 03278000 * 4 NINCX0 BIT(1), /* MODULE = ISTINCX0 */ 03279000 * 4 NINCX1 BIT(1), /* MODULE = ISTINCX1 */ 03280000 * 4 NINCX2 BIT(1), /* MODULE = ISTINCX2 */ 03281000 * 4 NINCX3 BIT(1), /* MODULE = ISTINCX3 */ 03282000 * 4 NINCX6 BIT(1), /* MODULE = ISTINCX6 */ 03283000 * 4 NINCX7 BIT(1), /* MODULE = ISTINCX7 */ 03284000 * 4 NINCX8 BIT(1), /* MODULE = ISTINCX8 */ 03285000 * 4 NINCX9 BIT(1), /* MODULE = ISTINCX9 */ 03286000 * 4 NINCUA BIT(1), /* MODULE = ISTINCUA */ 03287000 * 4 NINCUB BIT(1), /* MODULE = ISTINCUB */ 03288000 * 4 NINCUQ BIT(1), /* MODULE = ISTINCUQ */ 03289000 * 4 NINCE1 BIT(1), /* MODULE = ISTINCE1 */ 03290000 * 4 NINCE5 BIT(1), /* MODULE = ISTINCE5 */ 03291000 * 4 NINCE6 BIT(1), /* MODULE = ISTINCE6 */ 03292000 * 4 NINCE7 BIT(1), /* MODULE = ISTINCE7 */ 03293000 * 4 NINCE8 BIT(1), /* MODULE = ISTINCE8 */ 03294000 * 4 NINCR3 BIT(1), /* MODULE = ISTINCR3 */ 03295000 * 4 NINCR5 BIT(1), /* MODULE = ISTINCR5 */ 03296000 * 4 NINCVO BIT(1), /* MODULE = ISTINCVO */ 03297000 * 4 NINCE9 BIT(1), /* MODULE = ISTINCE9 */ 03298000 * 4 NINCFE BIT(1), /* MODULE = ISTINCFE */ 03299000 * 4 VYCRSV01 BIT(4), /* RESERVED */ 03300000 * 3 VYCCRT CHAR(12), /* LIST OF SSCP MODULES */ 03301000 * /* 2 = RUNNING */ 03302000 * 4 CINCCL BIT(1), /* MODULE = ISTINCCL */ 03303000 * 4 CINCIO BIT(1), /* MODULE = ISTINCIO */ 03304000 * 4 CINCDL BIT(1), /* MODULE = ISTINCDL */ 03305000 * 4 CINCMY BIT(1), /* MODULE = ISTINCMY */ 03306000 * 4 CINCMD BIT(1), /* MODULE = ISTINCMD */ 03307000 * 4 CINCVI BIT(1), /* MODULE = ISTINCVI */ 03308000 * 4 CINCVA BIT(1), /* MODULE = ISTINCVA */ 03309000 * 4 CINCLF BIT(1), /* MODULE = ISTINCLF */ 03310000 * 4 CINCR1 BIT(1), /* MODULE = ISTINCR1 */ 03311000 * 4 CINCSM BIT(1), /* MODULE = ISTINCSM */ 03312000 * 4 CINCFS BIT(1), /* MODULE = ISTINCFS */ 03313000 * 4 CINCVX BIT(1), /* MODULE = ISTINCVX */ 03314000 * 4 CINCVP BIT(1), /* MODULE = ISTINCVP */ 03315000 * 4 CINCVS BIT(1), /* MODULE = ISTINCVS */ 03316000 * 4 CINCVN BIT(1), /* MODULE = ISTINCVO */ 03317000 * 4 CINCMS BIT(1), /* MODULE = ISTINCMS */ 03318000 * 4 CINCR2 BIT(1), /* MODULE = ISTINCR2 */ 03319000 * 4 CINCIP BIT(1), /* MODULE = ISTINCIP */ 03320000 * 4 CINCD1 BIT(1), /* MODULE = ISTINCD1 */ 03321000 * 4 CINCD2 BIT(1), /* MODULE = ISTINCD2 */ 03322000 * 4 CINCD3 BIT(1), /* MODULE = ISTINCD3 */ 03323000 * 4 CINCD4 BIT(1), /* MODULE = ISTINCD4 */ 03324000 * 4 CINCD5 BIT(1), /* MODULE = ISTINCD5 */ 03325000 * 4 CINCD6 BIT(1), /* MODULE = ISTINCD6 */ 03326000 * 4 CINCD7 BIT(1), /* MODULE = ISTINCD7 */ 03327000 * 4 CINCD8 BIT(1), /* MODULE = ISTINCD8 */ 03328000 * 4 CINCD9 BIT(1), /* MODULE = ISTINCD9 */ 03329000 * 4 CINCE0 BIT(1), /* MODULE = ISTINCE0 */ 03330000 * 4 CINCE2 BIT(1), /* MODULE = ISTINCE2 */ 03331000 * 4 CINCE3 BIT(1), /* MODULE = ISTINCE3 */ 03332000 * 4 CINCE4 BIT(1), /* MODULE = ISTINCE4 */ 03333000 * 4 CINCFM BIT(1), /* MODULE = ISTINCFM */ 03334000 * 4 CINCF1 BIT(1), /* MODULE = ISTINCF1 */ 03335000 * 4 CINCF3 BIT(1), /* MODULE = ISTINCF3 */ 03336000 * 4 CINCF4 BIT(1), /* MODULE = ISTINCF4 */ 03337000 * 4 CINCL0 BIT(1), /* MODULE = ISTINCL0 */ 03338000 * 4 CINCL1 BIT(1), /* MODULE = ISTINCL1 */ 03339000 * 4 CINCL2 BIT(1), /* MODULE = ISTINCL2 */ 03340000 * 4 CINCL3 BIT(1), /* MODULE = ISTINCL3 */ 03341000 * 4 CINCL4 BIT(1), /* MODULE = ISTINCL4 */ 03342000 * 4 CINCL5 BIT(1), /* MODULE = ISTINCL5 */ 03343000 * 4 CINCL6 BIT(1), /* MODULE = ISTINCL6 */ 03344000 * 4 CINCL7 BIT(1), /* MODULE = ISTINCL7 */ 03345000 * 4 CINCL8 BIT(1), /* MODULE = ISTINCL8 */ 03346000 * 4 CINCS1 BIT(1), /* MODULE = ISTINCS1 */ 03347000 * 4 CINCUM BIT(1), /* MODULE = ISTINCUM */ 03348000 * 4 CINCU0 BIT(1), /* MODULE = ISTINCU0 * 03349000 * 4 CINCU1 BIT(1), /* MODULE = ISTINCU1 */ 03350000 * 4 CINCU2 BIT(1), /* MODULE = ISTINCU2 */ 03351000 * 4 CINCU3 BIT(1), /* MODULE = ISTINCU3 */ 03352000 * 4 CINCU4 BIT(1), /* MODULE = ISTINCU4 */ 03353000 * 4 CINCU5 BIT(1), /* MODULE = ISTINCU5 */ 03354000 * 4 CINCU6 BIT(1), /* MODULE = ISTINCU6 */ 03355000 * 4 CINCU7 BIT(1), /* MODULE = ISTINCU7 */ 03356000 * 4 CINCU8 BIT(1), /* MODULE = ISTINCU8 */ 03357000 * 4 CINCV2 BIT(1), /* MODULE = ISTINCV2 */ 03358000 * 4 CINCV3 BIT(1), /* MODULE = ISTINCV3 */ 03359000 * 4 CINCV4 BIT(1), /* MODULE = ISTINCV4 */ 03360000 * 4 CINCV5 BIT(1), /* MODULE = ISTINCV5 */ 03361000 * 4 CINCV6 BIT(1), /* MODULE = ISTINCV6 */ 03362000 * 4 CINCV7 BIT(1), /* MODULE = ISTINCV7 */ 03363000 * 4 CINCV8 BIT(1), /* MODULE = ISTINCV8 */ 03364000 * 4 CINCV9 BIT(1), /* MODULE = ISTINCV9 */ 03365000 * 4 CINCW0 BIT(1), /* MODULE = ISTINCW0 */ 03366000 * 4 CINCW2 BIT(1), /* MODULE = ISTINCW2 */ 03367000 * 4 CINCW4 BIT(1), /* MODULE = ISTINCW4 */ 03368000 * 4 CINCW5 BIT(1), /* MODULE = ISTINCW5 */ 03369000 * 4 CINCW6 BIT(1), /* MODULE = ISTINCW6 */ 03370000 * 4 CINCW7 BIT(1), /* MODULE = ISTINCW7 */ 03371000 * 4 CINCW8 BIT(1), /* MODULE = ISTINCW8 */ 03372000 * 4 CINCW9 BIT(1), /* MODULE = ISTINCW9 */ 03373000 * 4 CINCX0 BIT(1), /* MODULE = ISTINCX0 */ 03374000 * 4 CINCX1 BIT(1), /* MODULE = ISTINCX1 */ 03375000 * 4 CINCX2 BIT(1), /* MODULE = ISTINCX2 */ 03376000 * 4 CINCX3 BIT(1), /* MODULE = ISTINCX3 */ 03377000 * 4 CINCX6 BIT(1), /* MODULE = ISTINCX6 */ 03378000 * 4 CINCX7 BIT(1), /* MODULE = ISTINCX7 */ 03379000 * 4 CINCX8 BIT(1), /* MODULE = ISTINCX8 */ 03380000 * 4 CINCX9 BIT(1), /* MODULE = ISTINCX9 */ 03381000 * 4 CINCUA BIT(1), /* MODULE = ISTINCUA */ 03382000 * 4 CINCUB BIT(1), /* MODULE = ISTINCUB */ 03383000 * 4 CINCUQ BIT(1), /* MODULE = ISTINCUQ */ 03384000 * 4 CINCE1 BIT(1), /* MODULE = ISTINCE1 */ 03385000 * 4 CINCE5 BIT(1), /* MODULE = ISTINCE5 */ 03386000 * 4 CINCE6 BIT(1), /* MODULE = ISTINCE6 */ 03387000 * 4 CINCE7 BIT(1), /* MODULE = ISTINCE7 */ 03388000 * 4 CINCE8 BIT(1), /* MODULE = ISTINCE8 */ 03389000 * 4 CINCR3 BIT(1), /* MODULE = ISTINCR3 */ 03390000 * 4 CINCR5 BIT(1), /* MODULE = ISTINCR5 */ 03391000 * 4 CINCVO BIT(1), /* MODULE = ISTINCVO */ 03392000 * 4 CINCE9 BIT(1), /* MODULE = ISTINCE9 */ 03393000 * 4 CINCFE BIT(1), /* MODULE = ISTINCFE */ 03394000 * 4 VYCRSV03 BIT(4), /* RESERVED */ 03395000 * 2 VYCRRSAV CHAR(72), /* SAVE AREA USED BY ISTINCIP*/ 03396000 * /* TO CALL ISTINCW3 */ 03397000 * 2 VYCRRCW3 CHAR(8), /* PARAM LIST USED BY */ 03398000 * /* ISTINCIP TO CALL ISTINCW3 */ 03399000 * 2 VYCRSV04 CHAR(2), /* RESERVED */ 03400000 * 2 VYCRSV02 PTR(31); /* RESERVED */ 03401000 *DCL TIDINCDL BIT(8) CONSTANT('00'X); /* THREAD ID FOR ISTINCDL */ 03402000 *DCL TIDINCMY BIT(8) CONSTANT('01'X); /* THREAD ID FOR ISTINCMY */ 03403000 *DCL TIDINCCL BIT(8) CONSTANT('02'X); /* THREAD ID FOR ISTINCCL */ 03404000 *DCL TIDINCFE BIT(8) CONSTANT('04'X); /* THREAD ID FOR ISTINCFE */ 03405000 * 0582 03406000 * DECLARE 0582 03407000 * EMCR0 PTR REG(0), 0582 03408000 * EMCR1 PTR REG(1), 0582 03409000 * EMCR2 PTR REG(2), 0582 03410000 * EMCR3 PTR REG(3), 0582 03411000 * EMCR4 PTR REG(4), 0582 03412000 * EMCR5 PTR REG(5), 0582 03413000 * EMCR6 PTR REG(6), 0582 03414000 * EMCR7 PTR REG(7), 0582 03415000 * EMCR8 PTR REG(8), 0582 03416000 * EMCR9 PTR REG(9), 0582 03417000 * EMCR10 PTR REG(10), 0582 03418000 * EMCR11 PTR REG(11), 0582 03419000 * EMCR12 PTR REG(12), 0582 03420000 * EMCR13 PTR REG(13), 0582 03421000 * EMCR14 PTR REG(14), 0582 03422000 * EMCR15 PTR REG(15); 0582 03423000 * GEN (PRINT ON); 0583 03424000 PRINT ON 03425000 */* END OF TPEPILOG */ 0584 03426000 *END ISTINCV4 0584 03427000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 03428000 */*%INCLUDE SYSLIB (CVT ) * 03429000 *; 0584 03430000 @EL00001 DS 0H 0584 03431000 @EF00001 DS 0H 0584 03432000 @ER00001 L @14,12(,@13) 0584 03433000 LM @00,@12,20(@13) 0584 03434000 BR @14 0584 03435000 @DATA DS 0H 03436000 @DATD DSECT 03437000 DS 0F 03438000 ISTINCV4 CSECT 03439000 DS 0F 03440000 @CF00918 DC F'72' 03441000 @CF00776 DC F'-8' 03442000 @DATD DSECT 03443000 DS 0D 03444000 CV4WKA DS CL4 03445000 ORG CV4WKA 03446000 CV4DATAR DS CL4 03447000 ORG CV4DATAR 03448000 CV4SWTCH DS BL1 03449000 ORG CV4SWTCH 03450000 NOACTSW DS BL1 03451000 EXITLOP1 EQU CV4SWTCH+0 03452000 @NM00005 EQU CV4SWTCH+0 03453000 ORG CV4DATAR+1 03454000 @NM00006 DS CL3 03455000 ORG CV4WKA+4 03456000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 03457000 @ENDDATD EQU * 03458000 ISTINCV4 CSECT 03459000 DS 0F 03460000 @SIZDATD DC AL1(0) 03461000 DC AL3(@ENDDATD-@DATD) 03462000 DS 0D 03463000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 03464000 @01 EQU 01 03465000 @02 EQU 02 03466000 @03 EQU 03 03467000 @04 EQU 04 03468000 @05 EQU 05 03469000 @06 EQU 06 03470000 @07 EQU 07 03471000 @08 EQU 08 03472000 @09 EQU 09 03473000 @10 EQU 10 03474000 @11 EQU 11 03475000 @12 EQU 12 03476000 @13 EQU 13 03477000 @14 EQU 14 03478000 @15 EQU 15 03479000 R1 EQU @01 03480000 PURDTE EQU @09 03481000 WRKRDTE EQU @08 03482000 NCSPLPTR EQU @10 03483000 CV4WAPTR EQU @11 03484000 BASEREG EQU @12 03485000 REGSAPTR EQU @13 03486000 R15 EQU @15 03487000 RPHPTR EQU @01 03488000 EMCR0 EQU @00 03489000 EMCR1 EQU @01 03490000 EMCR10 EQU @10 03491000 EMCR11 EQU @11 03492000 EMCR12 EQU @12 03493000 EMCR13 EQU @13 03494000 EMCR14 EQU @14 03495000 EMCR15 EQU @15 03496000 EMCR2 EQU @02 03497000 EMCR3 EQU @03 03498000 EMCR4 EQU @04 03499000 EMCR5 EQU @05 03500000 EMCR6 EQU @06 03501000 EMCR7 EQU @07 03502000 EMCR8 EQU @08 03503000 EMCR9 EQU @09 03504000 GPR00F EQU @00 03505000 GPR00P EQU @00 03506000 GPR01F EQU @01 03507000 GPR01P EQU @01 03508000 GPR02F EQU @02 03509000 GPR02P EQU @02 03510000 GPR03F EQU @03 03511000 GPR03P EQU @03 03512000 GPR04F EQU @04 03513000 GPR04P EQU @04 03514000 GPR05F EQU @05 03515000 GPR05P EQU @05 03516000 GPR06F EQU @06 03517000 GPR06P EQU @06 03518000 GPR07F EQU @07 03519000 GPR07P EQU @07 03520000 GPR08F EQU @08 03521000 GPR08P EQU @08 03522000 GPR09F EQU @09 03523000 GPR09P EQU @09 03524000 GPR10F EQU @10 03525000 GPR10P EQU @10 03526000 GPR11F EQU @11 03527000 GPR11P EQU @11 03528000 GPR12F EQU @12 03529000 GPR12P EQU @12 03530000 GPR13F EQU @13 03531000 GPR13P EQU @13 03532000 GPR14F EQU @14 03533000 GPR14P EQU @14 03534000 GPR15F EQU @15 03535000 GPR15P EQU @15 03536000 ATCLCPTR EQU 1032 03537000 CVTMAP EQU 0 03538000 CVTDAR EQU CVTMAP+72 03539000 CVTFLGS1 EQU CVTDAR 03540000 CVTDCB EQU CVTMAP+116 03541000 CVTIERLC EQU CVTMAP+144 03542000 CVTOPTA EQU CVTMAP+182 03543000 CVTOPTB EQU CVTMAP+183 03544000 CVTGTF EQU CVTMAP+236 03545000 CVTGTFST EQU CVTGTF 03546000 CVTGTFS EQU CVTGTFST 03547000 CVTSTATE EQU CVTGTFST 03548000 CVTTMODE EQU CVTGTFST 03549000 CVTFORM EQU CVTGTFST 03550000 CVTAQAVT EQU CVTMAP+240 03551000 CVTTCMFG EQU CVTAQAVT 03552000 CVTVOLM2 EQU CVTMAP+244 03553000 CVTTATA EQU CVTVOLM2 03554000 CVTTSKS EQU CVTTATA 03555000 CVTVOLF2 EQU CVTTSKS 03556000 CVTTAT EQU CVTTATA+1 03557000 CVTATER EQU CVTMAP+248 03558000 CVTEXT1 EQU CVTMAP+252 03559000 CVTPURG EQU CVTMAP+260 03560000 CVTQMSG EQU CVTMAP+268 03561000 CVTDMSR EQU CVTMAP+272 03562000 CVTRSV37 EQU CVTDMSR 03563000 CVTDMSRF EQU CVTRSV37 03564000 CVTERPV EQU CVTMAP+316 03565000 CVTINTLA EQU CVTMAP+320 03566000 CVTAPF EQU CVTMAP+324 03567000 CVTEXT2 EQU CVTMAP+328 03568000 CVTHJES EQU CVTMAP+332 03569000 CVTPGSIA EQU CVTMAP+348 03570000 CVTA1F1 EQU CVTMAP+356 03571000 CVTSYSK EQU CVTMAP+357 03572000 CVTVOLM1 EQU CVTMAP+380 03573000 CVTVOLF1 EQU CVTVOLM1 03574000 CVTATMCT EQU CVTMAP+388 03575000 CVTXTNT1 EQU 0 03576000 CVTXTNT2 EQU 0 03577000 CVTDSSV EQU CVTXTNT2 03578000 CVTFLGBT EQU CVTXTNT2+5 03579000 CVTQID EQU CVTXTNT2+24 03580000 CVTSHS EQU CVTXTNT2+40 03581000 CVTRV400 EQU CVTXTNT2+52 03582000 CVTRV409 EQU CVTXTNT2+53 03583000 CVTATCVT EQU CVTXTNT2+64 03584000 CVTRV429 EQU CVTXTNT2+84 03585000 CVTRV438 EQU CVTXTNT2+85 03586000 CVTRV457 EQU CVTXTNT2+112 03587000 CVTRV466 EQU CVTXTNT2+113 03588000 CVTFIX EQU 0 03589000 CVTRELNO EQU CVTFIX+252 03590000 ISTPOHD EQU 0 03591000 POHSTAT EQU ISTPOHD+1 03592000 ISTPFX EQU 0 03593000 PFXID EQU ISTPFX 03594000 ISTNCSPL EQU 0 03595000 @NM00007 EQU ISTNCSPL 03596000 NCSPFX EQU @NM00007 03597000 NCSPLVBF EQU ISTNCSPL+18 03598000 NCSPLVFL EQU ISTNCSPL+20 03599000 NCSPLVF1 EQU ISTNCSPL+21 03600000 NCSPLRPT EQU ISTNCSPL+52 03601000 NCSPLCMD EQU ISTNCSPL+60 03602000 NCSCMDA EQU NCSPLCMD 03603000 NCSCRFLG EQU ISTNCSPL+67 03604000 NCSPLRAD EQU ISTNCSPL+144 03605000 NCSIOCID EQU ISTNCSPL+148 03606000 NCSPLCID EQU NCSIOCID 03607000 NCSPLWKA EQU ISTNCSPL+152 03608000 NCSPLCVT EQU ISTNCSPL+156 03609000 NCSPLRPH EQU ISTNCSPL+160 03610000 NCSPLFSB EQU ISTNCSPL+168 03611000 NCSPLFL1 EQU ISTNCSPL+176 03612000 NCSPL2IN EQU NCSPLFL1 03613000 NCSPLFL2 EQU ISTNCSPL+177 03614000 NCSPLFL3 EQU ISTNCSPL+178 03615000 NCSPLFL4 EQU ISTNCSPL+179 03616000 NCSPLFL5 EQU ISTNCSPL+181 03617000 NCSPLAPP EQU ISTNCSPL+216 03618000 NCSSENSE EQU ISTNCSPL+244 03619000 NCSCRMSK EQU ISTNCSPL+268 03620000 NCSCHKPT EQU NCSCRMSK 03621000 NCSACTV EQU NCSCHKPT 03622000 NCSCRMOD EQU NCSCRMSK+2 03623000 NCSAIMOD EQU NCSCRMOD 03624000 NCSPLSID EQU ISTNCSPL+271 03625000 NCSPLSTA EQU NCSPLSID 03626000 NCSPLPHD EQU NCSPLSID+1 03627000 NCSAPP EQU 0 03628000 NCSAPBUE EQU NCSAPP+88 03629000 ISTLOK EQU 0 03630000 LOKCHN EQU ISTLOK+1 03631000 LOKCHNG EQU LOKCHN 03632000 @NM00013 EQU LOKCHNG+2 03633000 ISTDEVCH EQU 0 03634000 DEVSHCH EQU ISTDEVCH 03635000 DEVCHAR EQU DEVSHCH 03636000 DEVTCODE EQU ISTDEVCH+1 03637000 DEVFLAGS EQU ISTDEVCH+3 03638000 DEVFCCTL EQU DEVFLAGS 03639000 DEVCHAR3 EQU DEVFLAGS 03640000 ISTRPRE EQU 0 03641000 RPRCOMID EQU ISTRPRE+8 03642000 RPRELEN EQU ISTRPRE+16 03643000 RPRENTRY EQU ISTRPRE+20 03644000 RPRFLAGA EQU ISTRPRE+21 03645000 RPRINV EQU RPRFLAGA 03646000 RPRENTED EQU RPRFLAGA 03647000 RPRLIVE EQU RPRFLAGA 03648000 RPRFLAGB EQU ISTRPRE+22 03649000 RPRONLIN EQU RPRFLAGB 03650000 RPRCAUSE EQU ISTRPRE+23 03651000 RPRPTHCT EQU ISTRPRE+60 03652000 RPRFLAGD EQU ISTRPRE+61 03653000 RPRFLAGC EQU ISTRPRE+62 03654000 ISTRCPRE EQU 0 03655000 RCPPMODE EQU ISTRCPRE+91 03656000 RCPLGNIN EQU ISTRCPRE+92 03657000 ISTRDT EQU 0 03658000 RDTPLEN EQU ISTRDT+72 03659000 RDTPRIOR EQU RDTPLEN 03660000 RDTFLAGB EQU ISTRDT+91 03661000 RDTVYRPH EQU ISTRDT+108 03662000 RDTSTCNT EQU ISTRDT+112 03663000 ISTRAP EQU 0 03664000 RAPFLG EQU ISTRAP+108 03665000 RAPFLGB EQU ISTRAP+109 03666000 RAPFLGC EQU ISTRAP+110 03667000 ISTRLC EQU 0 03668000 RLCADR EQU ISTRLC+72 03669000 RLCFLAG EQU RLCADR 03670000 ISTRRN EQU 0 03671000 RRNADR EQU ISTRRN+136 03672000 RRNFLAG EQU RRNADR 03673000 RRNUCBAD EQU RRNADR+1 03674000 RRNRDF EQU ISTRRN+172 03675000 RRNRDFA EQU RRNRDF 03676000 RRNRDFB EQU RRNRDF+1 03677000 RRNCMF EQU ISTRRN+176 03678000 RRNCMFA EQU RRNCMF 03679000 RRNCMFB EQU RRNCMF+1 03680000 RRNCMFC EQU RRNCMF+2 03681000 RRNCMFD EQU RRNCMF+3 03682000 RRNNMDPD EQU ISTRRN+192 03683000 RRNHPRE EQU ISTRRN+216 03684000 ISTRGP EQU 0 03685000 RGPFLG EQU ISTRGP+72 03686000 ISTRLN EQU 0 03687000 RLNADR EQU ISTRLN+72 03688000 RLNFLAG EQU RLNADR 03689000 RLNUCBAD EQU RLNADR+1 03690000 RLNSTAT1 EQU ISTRLN+86 03691000 RLNSTAT2 EQU ISTRLN+87 03692000 RLNRDF EQU ISTRLN+88 03693000 RLNRDFA EQU RLNRDF 03694000 RLNRACNT EQU RLNRDFA 03695000 RLNRDFB EQU RLNRDF+1 03696000 RLNCRFLG EQU ISTRLN+102 03697000 RLNLSCMD EQU RLNCRFLG 03698000 ISTRPT EQU 0 03699000 RPTLNCID EQU ISTRPT+116 03700000 RPTDITT EQU ISTRPT+128 03701000 RPTFLAG1 EQU ISTRPT+140 03702000 ISTRCL EQU 0 03703000 RCLADR EQU ISTRCL+72 03704000 RCLFLAG EQU RCLADR 03705000 ISTRTR EQU 0 03706000 RTRADR EQU ISTRTR+124 03707000 RTRFLAG EQU RTRADR 03708000 RTRRDFA EQU ISTRTR+136 03709000 RTRRAALL EQU RTRRDFA 03710000 RTRRDFB EQU ISTRTR+137 03711000 RTRRDFC EQU ISTRTR+138 03712000 RTRRDFD EQU ISTRTR+139 03713000 RTRRDFE EQU ISTRTR+140 03714000 RTRRDFF EQU ISTRTR+141 03715000 RTRCRFLG EQU ISTRTR+143 03716000 RTRLSCMD EQU RTRCRFLG 03717000 RTRBSCID EQU ISTRTR+188 03718000 ISTRIN EQU 0 03719000 RINDFD EQU ISTRIN+124 03720000 RINREMPO EQU RINDFD 03721000 RINNODEF EQU RINDFD 03722000 RINLDISC EQU RINDFD 03723000 RINNODID EQU ISTRIN+125 03724000 RINRLDAF EQU ISTRIN+126 03725000 RINREMOT EQU ISTRIN+128 03726000 RINVPAB EQU ISTRIN+132 03727000 RINRPHCN EQU ISTRIN+136 03728000 RINNCSPL EQU ISTRIN+140 03729000 RINCNCNT EQU ISTRIN+144 03730000 ISTRDS EQU 0 03731000 ISTDOT EQU 0 03732000 ISTRCC EQU 0 03733000 RCCFLAG EQU ISTRCC+73 03734000 RCCRBISA EQU RCCFLAG 03735000 RCCFLAGB EQU ISTRCC+74 03736000 RCCSTAID EQU ISTRCC+78 03737000 RCCID48 EQU RCCSTAID+2 03738000 RCCCRFLG EQU ISTRCC+108 03739000 ISTRLU EQU 0 03740000 RLUFLAG EQU ISTRLU+125 03741000 RLURBISA EQU RLUFLAG 03742000 RLUCRFLG EQU ISTRLU+126 03743000 RLUPACE EQU ISTRLU+132 03744000 RLUNCPPC EQU ISTRLU+134 03745000 RLUUSSTB EQU ISTRLU+140 03746000 RLUMODET EQU ISTRLU+152 03747000 ISTRPX EQU 0 03748000 ISTRLX EQU 0 03749000 RLXFLAGA EQU ISTRLX+76 03750000 ISTRSW EQU 0 03751000 ISTRDA EQU 0 03752000 RDAADR EQU ISTRDA+72 03753000 RDAFLAG EQU RDAADR 03754000 RDAUCBAD EQU RDAADR+1 03755000 ISTRLS EQU 0 03756000 ISTDNT EQU 0 03757000 ISTGNT EQU 0 03758000 ISTPAT EQU 0 03759000 PATFLAGA EQU ISTPAT+7 03760000 ISTPAB EQU 0 03761000 PABWQCHN EQU ISTPAB 03762000 PABWEQA EQU PABWQCHN 03763000 PABCHAIN EQU PABWQCHN+4 03764000 PABRPHFG EQU ISTPAB+12 03765000 PABFLAGS EQU PABRPHFG 03766000 PABERLCK EQU PABFLAGS 03767000 PABERRLK EQU PABERLCK 03768000 ISTDYPAB EQU 0 03769000 ISTRPH EQU 0 03770000 RPHCNTL EQU ISTRPH 03771000 RPHFLAGS EQU RPHCNTL+2 03772000 RPHAPTYP EQU RPHFLAGS 03773000 RPHFSTLC EQU RPHFLAGS 03774000 RPHFLGB EQU RPHCNTL+3 03775000 RPHRPHA EQU ISTRPH+4 03776000 RPHTSKID EQU ISTRPH+8 03777000 RPHRESMA EQU ISTRPH+16 03778000 RPHWPFLG EQU RPHRESMA 03779000 RPHWEA EQU ISTRPH+24 03780000 RPHCSPA EQU RPHWEA 03781000 RPHSRPRM EQU ISTRPH+28 03782000 RPHCRR EQU ISTRPH+32 03783000 RPHPABQA EQU ISTRPH+36 03784000 RPHWORK EQU ISTRPH+40 03785000 RPHSAVE1 EQU RPHWORK 03786000 RPHSBITS EQU RPHSAVE1+1 03787000 ISTATCVT EQU 0 03788000 ATCCOM EQU ISTATCVT 03789000 ATCSTAT EQU ATCCOM 03790000 ATCSTAT1 EQU ATCSTAT 03791000 ATCSTFLG EQU ATCSTAT+1 03792000 ATCPOFLG EQU ATCSTAT+2 03793000 ATCSTAT4 EQU ATCSTAT+3 03794000 ATCIOTRC EQU ATCCOM+140 03795000 ATCTHTRC EQU ATCIOTRC 03796000 ATCCSMR EQU ISTATCVT+296 03797000 ATCSHRFG EQU ISTATCVT+316 03798000 ATCHPGM EQU ISTATCVT+384 03799000 ATCVLCNT EQU ISTATCVT+772 03800000 ATCRNO EQU ISTATCVT+788 03801000 ATCSOPD EQU ISTATCVT+792 03802000 ATCSIPD EQU ISTATCVT+800 03803000 ATCSECST EQU ISTATCVT+812 03804000 ATCSTAT2 EQU ISTATCVT+818 03805000 ATCVTBAM EQU ISTATCVT+908 03806000 @NM00030 EQU ATCVTBAM+3 03807000 ATCAOSM EQU ISTATCVT+912 03808000 ATCGSRBQ EQU ATCAOSM+4 03809000 ATCGSRBG EQU ATCGSRBQ 03810000 ATCICAPP EQU ATCAOSM+100 03811000 ATCLDAPP EQU ATCAOSM+120 03812000 ATCDAPVT EQU ATCAOSM+140 03813000 ATCCRA EQU ATCAOSM+280 03814000 ATCCRACN EQU ATCCRA+4 03815000 ATCSRB EQU ATCAOSM+288 03816000 ATCSRBCN EQU ATCSRB+4 03817000 ATCCRPL EQU ATCAOSM+296 03818000 ATCRPLCN EQU ATCCRPL+4 03819000 ATCSQAFR EQU ATCAOSM+304 03820000 ATCORTBC EQU ATCSQAFR+4 03821000 ATCORSRB EQU ATCORTBC 03822000 @NM00032 EQU ATCAOSM+332 03823000 ATCVTFLG EQU ATCAOSM+392 03824000 ATCZFLAG EQU ATCAOSM+588 03825000 CV4REGSV EQU 0 03826000 CV4SVBKP EQU CV4REGSV+4 03827000 CV4SVFWP EQU CV4REGSV+8 03828000 WKA EQU 0 03829000 NXTAVAIL EQU WKA 03830000 ISTLCCW EQU 0 03831000 LCCWOP EQU ISTLCCW 03832000 LCCWRWOP EQU LCCWOP 03833000 LCCWCTL EQU LCCWRWOP 03834000 LCCWFLAG EQU ISTLCCW+1 03835000 LCCWLSI EQU LCCWFLAG 03836000 ISTLCPB EQU 0 03837000 LCPREQTG EQU ISTLCPB+2 03838000 LCPFLAGS EQU LCPREQTG 03839000 LCPZF001 EQU LCPFLAGS 03840000 LCPZRT02 EQU LCPZF001 03841000 LCPZF002 EQU LCPFLAGS 03842000 LCPZRT03 EQU LCPZF002 03843000 LCPZF003 EQU LCPFLAGS 03844000 LCPZRT04 EQU LCPZF003 03845000 LCPZF004 EQU LCPFLAGS 03846000 LCPZRT05 EQU LCPZF004 03847000 LCPZRT06 EQU LCPFLAGS 03848000 LCPZRT07 EQU LCPFLAGS 03849000 LCPMNRCD EQU LCPREQTG+1 03850000 LCPZRT08 EQU LCPMNRCD 03851000 LCPZRT09 EQU LCPMNRCD 03852000 LCPCHAIN EQU ISTLCPB+4 03853000 LCPCHAI1 EQU LCPCHAIN 03854000 LCPRUCNT EQU ISTLCPB+8 03855000 LCPFLAG2 EQU ISTLCPB+9 03856000 LCPTLBPI EQU LCPFLAG2 03857000 LCPFID0 EQU LCPFLAG2 03858000 LCPSEQ EQU ISTLCPB+10 03859000 LCPCID EQU ISTLCPB+16 03860000 LCPFDBA EQU ISTLCPB+24 03861000 LCPFLG1 EQU ISTLCPB+37 03862000 LCPFLCCW EQU ISTLCPB+40 03863000 LCPLCCW EQU ISTLCPB+48 03864000 LCPPABA EQU LCPLCCW+4 03865000 LCPRPHA EQU LCPPABA 03866000 ISTZSAVE EQU 0 03867000 ZSAZSVBC EQU ISTZSAVE 03868000 ZSAZSVMS EQU ZSAZSVBC 03869000 ISTPFCRR EQU 0 03870000 PFCCRR EQU ISTPFCRR 03871000 PFCCRRID EQU PFCCRR 03872000 PFCCRRLN EQU PFCCRR+2 03873000 PFCHDR EQU ISTPFCRR+4 03874000 PFCCRRO EQU PFCHDR 03875000 PFCFRRO EQU PFCHDR+4 03876000 ISTCFCRR EQU 0 03877000 CFCAUDIT EQU ISTCFCRR 03878000 CFCNTRD EQU CFCAUDIT 03879000 CFCCRT EQU CFCAUDIT+1 03880000 ISTZCRR EQU 0 03881000 ZCRCRR EQU ISTZCRR 03882000 ZCRFLGS1 EQU ISTZCRR+12 03883000 ZCRFLGS2 EQU ISTZCRR+13 03884000 ZCRSWFLD EQU ISTZCRR+14 03885000 ZCRENDSH EQU ZCRSWFLD 03886000 ZCRNDLCP EQU ZCRSWFLD 03887000 ZCRRESET EQU ZCRSWFLD 03888000 ZCRFLGS3 EQU ISTZCRR+15 03889000 ZCRGENSW EQU ISTZCRR+16 03890000 ZCRPFLGS EQU ISTZCRR+17 03891000 ZCRIBPR EQU ISTZCRR+18 03892000 ZCRSCPSW EQU ISTZCRR+19 03893000 ZCRPARMS EQU ISTZCRR+24 03894000 ZCRFBPTR EQU ZCRPARMS 03895000 ZCRDFRDA EQU ZCRPARMS+10 03896000 ZCRPCOD1 EQU ZCRPARMS+12 03897000 ZCRPLSBF EQU ZCRPCOD1 03898000 ZCRPCOD2 EQU ZCRPARMS+13 03899000 ZCRSVRTN EQU ISTZCRR+56 03900000 ZCRWKARA EQU ISTZCRR+156 03901000 ZCRCIDSV EQU ISTZCRR+192 03902000 ZCRAUDIT EQU ISTZCRR+440 03903000 ZCRENTER EQU ZCRAUDIT+5 03904000 ZCRLCPB EQU ISTZCRR+480 03905000 ZCRRHRU EQU ZCRLCPB 03906000 ISTASCRR EQU 0 03907000 ASCFLAGS EQU ISTASCRR+16 03908000 ASCFLG1 EQU ASCFLAGS 03909000 ASCFLG2 EQU ASCFLAGS+2 03910000 ASCFLG3 EQU ASCFLAGS+4 03911000 ASCUSRGS EQU ISTASCRR+28 03912000 ISTAPCRR EQU 0 03913000 APCATFLG EQU ISTAPCRR+16 03914000 APCRFLG EQU ISTAPCRR+18 03915000 APCSAVE EQU ISTAPCRR+44 03916000 APCCOMF EQU ISTAPCRR+116 03917000 APCCOMF1 EQU APCCOMF 03918000 APC31FLG EQU ISTAPCRR+132 03919000 APC52FLG EQU ISTAPCRR+133 03920000 APC53FLG EQU ISTAPCRR+134 03921000 APC54FLG EQU ISTAPCRR+135 03922000 APC57FLG EQU ISTAPCRR+136 03923000 ISTCRA EQU 0 03924000 CRABASIC EQU ISTCRA 03925000 CRAHDR EQU CRABASIC 03926000 CRACRR EQU CRAHDR 03927000 CRALKACT EQU CRABASIC+8 03928000 CRASVC EQU ISTCRA+848 03929000 CRABUFA EQU CRASVC+68 03930000 ISTCNSTA EQU 0 03931000 CNSTFLDA EQU ISTCNSTA+16 03932000 CNSTFLDB EQU ISTCNSTA+19 03933000 ISTVYCRR EQU 0 03934000 VYCAUDIT EQU ISTVYCRR+22 03935000 VYCNTRD EQU VYCAUDIT 03936000 NINCV4 EQU VYCNTRD+7 03937000 VYCCRT EQU VYCAUDIT+12 03938000 CINCV4 EQU VYCCRT+7 03939000 NCSUSSRU EQU 0 03940000 CVTS01 EQU CVTPGSIA 03941000 CVTLPDIA EQU CVTS01+12 03942000 CVTDIRST EQU CVTLPDIA 03943000 CVTSLIDA EQU CVTS01+24 03944000 CVTCTLFG EQU CVTS01+50 03945000 CVTRV210 EQU CVTS01+424 03946000 CVTRV219 EQU CVTS01+425 03947000 CVTRV228 EQU CVTS01+426 03948000 CVTRV237 EQU CVTS01+427 03949000 CVTMFRTR EQU CVTS01+452 03950000 CVTRV262 EQU CVTS01+468 03951000 CVTRV271 EQU CVTS01+469 03952000 CVTRV280 EQU CVTS01+470 03953000 CVTRV289 EQU CVTS01+471 03954000 CVTGSDA EQU CVTS01+600 03955000 LCPZTIE EQU LCPCID 03956000 LCPZSNAM EQU LCPZTIE+8 03957000 RTRDNCBA EQU ISTRTR+40 03958000 AGO .@UNREFD START UNREFERENCED COMPONENTS 03959000 LCPZTRV4 EQU LCPZSNAM+4 03960000 LCPZTRV1 EQU LCPZSNAM 03961000 LCPZSNA EQU LCPZTIE+4 03962000 LCPZFMCA EQU LCPZTIE 03963000 CVTRV628 EQU CVTS01+728 03964000 CVTRV627 EQU CVTS01+724 03965000 CVTRV626 EQU CVTS01+720 03966000 CVTRV625 EQU CVTS01+716 03967000 CVTRV624 EQU CVTS01+712 03968000 CVTRV623 EQU CVTS01+708 03969000 CVTRV622 EQU CVTS01+704 03970000 CVTRV621 EQU CVTS01+700 03971000 CVTRV620 EQU CVTS01+696 03972000 CVTRV619 EQU CVTS01+692 03973000 CVTRV618 EQU CVTS01+688 03974000 CVTRV617 EQU CVTS01+684 03975000 CVTRV616 EQU CVTS01+680 03976000 CVTRV615 EQU CVTS01+676 03977000 CVTRV614 EQU CVTS01+672 03978000 CVTRV613 EQU CVTS01+668 03979000 CVTTCASP EQU CVTS01+664 03980000 CVT0PT03 EQU CVTS01+660 03981000 CVT0PT0E EQU CVTS01+656 03982000 CVTIRM EQU CVTS01+652 03983000 CVTCGK EQU CVTS01+648 03984000 CVTRV607 EQU CVTS01+644 03985000 CVTRV606 EQU CVTS01+640 03986000 CVTRV605 EQU CVTS01+636 03987000 CVTRV604 EQU CVTS01+632 03988000 CVTEFF02 EQU CVTS01+628 03989000 CVTCBBR EQU CVTS01+624 03990000 CVTSSCR EQU CVTS01+620 03991000 CVTEVENT EQU CVTS01+616 03992000 CVTCRCA EQU CVTS01+612 03993000 CVTTPIO EQU CVTS01+608 03994000 CVTADV EQU CVTS01+604 03995000 CVTGSDAB EQU CVTGSDA 03996000 CVTQV3 EQU CVTS01+596 03997000 CVTQV2 EQU CVTS01+592 03998000 CVTQV1 EQU CVTS01+588 03999000 CVTRPT EQU CVTS01+584 04000000 CVTSSRB EQU CVTS01+580 04001000 CVTCSDRL EQU CVTS01+576 04002000 CVTEXP1 EQU CVTS01+572 04003000 CVTRMPMT EQU CVTS01+568 04004000 CVTRMPTT EQU CVTS01+564 04005000 CVTVPSA EQU CVTS01+560 04006000 CVTVSTOP EQU CVTS01+556 04007000 CVTGTFR8 EQU CVTS01+552 04008000 CVTQUIT EQU CVTS01+548 04009000 CVTVACR EQU CVTS01+544 04010000 CVTWTCB EQU CVTS01+540 04011000 CVTSTPRS EQU CVTS01+536 04012000 CVT0PT02 EQU CVTS01+532 04013000 CVTDARCM EQU CVTS01+528 04014000 CVTIRECM EQU CVTS01+524 04015000 CVTJRECM EQU CVTS01+520 04016000 CVTVEMS0 EQU CVTS01+516 04017000 CVTSPFRR EQU CVTS01+512 04018000 CVTRLSTG EQU CVTS01+508 04019000 CVT0TC0A EQU CVTS01+504 04020000 CVTGMBR EQU CVTS01+500 04021000 CVTLFRM EQU CVTS01+496 04022000 CVTRMBR EQU CVTS01+492 04023000 CVTVIOP EQU CVTS01+488 04024000 CVTRV307 EQU CVTS01+486 04025000 CVTRV306 EQU CVTS01+484 04026000 CVTRV305 EQU CVTS01+482 04027000 CVTRV304 EQU CVTS01+480 04028000 CVTRV303 EQU CVTS01+478 04029000 CVTRV302 EQU CVTS01+476 04030000 CVTTRCA EQU CVTS01+472 04031000 CVTRV297 EQU CVTRV289 04032000 CVTRV296 EQU CVTRV289 04033000 CVTRV295 EQU CVTRV289 04034000 CVTRV294 EQU CVTRV289 04035000 CVTRV293 EQU CVTRV289 04036000 CVTRV292 EQU CVTRV289 04037000 CVTRV291 EQU CVTRV289 04038000 CVTRV290 EQU CVTRV289 04039000 CVTRV288 EQU CVTRV280 04040000 CVTRV287 EQU CVTRV280 04041000 CVTRV286 EQU CVTRV280 04042000 CVTRV285 EQU CVTRV280 04043000 CVTRV284 EQU CVTRV280 04044000 CVTRV283 EQU CVTRV280 04045000 CVTRV282 EQU CVTRV280 04046000 CVTRV281 EQU CVTRV280 04047000 CVTRV279 EQU CVTRV271 04048000 CVTRV278 EQU CVTRV271 04049000 CVTRV277 EQU CVTRV271 04050000 CVTRV276 EQU CVTRV271 04051000 CVTRV275 EQU CVTRV271 04052000 CVTRV274 EQU CVTRV271 04053000 CVTRV273 EQU CVTRV271 04054000 CVTRV272 EQU CVTRV271 04055000 CVTRV270 EQU CVTRV262 04056000 CVTRV269 EQU CVTRV262 04057000 CVTRV268 EQU CVTRV262 04058000 CVTRV267 EQU CVTRV262 04059000 CVTRV266 EQU CVTRV262 04060000 CVTRV265 EQU CVTRV262 04061000 CVTRV264 EQU CVTRV262 04062000 CVTRV263 EQU CVTRV262 04063000 CVTVFP EQU CVTS01+464 04064000 CVTVSI EQU CVTS01+460 04065000 CVTVPSIB EQU CVTS01+456 04066000 CVTMFACT EQU CVTMFRTR 04067000 CVTMFCTL EQU CVTS01+448 04068000 CVTPVBP EQU CVTS01+444 04069000 CVTPWI EQU CVTS01+440 04070000 CVTRV254 EQU CVTS01+438 04071000 CVTRV253 EQU CVTS01+436 04072000 CVTRV252 EQU CVTS01+434 04073000 CVTRV251 EQU CVTS01+433 04074000 CVTRV250 EQU CVTS01+432 04075000 CVTRV249 EQU CVTS01+431 04076000 CVTRV248 EQU CVTS01+430 04077000 CVTRV247 EQU CVTS01+429 04078000 CVTRV246 EQU CVTS01+428 04079000 CVTRV245 EQU CVTRV237 04080000 CVTRV244 EQU CVTRV237 04081000 CVTRV243 EQU CVTRV237 04082000 CVTRV242 EQU CVTRV237 04083000 CVTRV241 EQU CVTRV237 04084000 CVTRV240 EQU CVTRV237 04085000 CVTRV239 EQU CVTRV237 04086000 CVTRV238 EQU CVTRV237 04087000 CVTRV236 EQU CVTRV228 04088000 CVTRV235 EQU CVTRV228 04089000 CVTRV234 EQU CVTRV228 04090000 CVTRV233 EQU CVTRV228 04091000 CVTRV232 EQU CVTRV228 04092000 CVTRV231 EQU CVTRV228 04093000 CVTRV230 EQU CVTRV228 04094000 CVTRV229 EQU CVTRV228 04095000 CVTRV227 EQU CVTRV219 04096000 CVTRV226 EQU CVTRV219 04097000 CVTRV225 EQU CVTRV219 04098000 CVTRV224 EQU CVTRV219 04099000 CVTRV223 EQU CVTRV219 04100000 CVTRV222 EQU CVTRV219 04101000 CVTRV221 EQU CVTRV219 04102000 CVTRV220 EQU CVTRV219 04103000 CVTRV218 EQU CVTRV210 04104000 CVTRV217 EQU CVTRV210 04105000 CVTRV216 EQU CVTRV210 04106000 CVTRV215 EQU CVTRV210 04107000 CVTRV214 EQU CVTRV210 04108000 CVTRV213 EQU CVTRV210 04109000 CVTRV212 EQU CVTRV210 04110000 CVTRV211 EQU CVTRV210 04111000 CVTLCCAT EQU CVTS01+420 04112000 CVTPCCAT EQU CVTS01+416 04113000 CVTIPCRP EQU CVTS01+412 04114000 CVTIPCRI EQU CVTS01+408 04115000 CVTIPCDS EQU CVTS01+404 04116000 CVTAIDVT EQU CVTS01+400 04117000 CVTSSAP EQU CVTS01+396 04118000 CVTEHCIR EQU CVTS01+392 04119000 CVTEHDEF EQU CVTS01+388 04120000 CVTDAIR EQU CVTS01+384 04121000 CVTPERFM EQU CVTS01+380 04122000 CVT044R2 EQU CVTS01+376 04123000 CVTFETCH EQU CVTS01+372 04124000 CVTRSTWD EQU CVTS01+368 04125000 CVTSPOST EQU CVTS01+364 04126000 CVTIOBP EQU CVTS01+360 04127000 CVTASMVT EQU CVTS01+356 04128000 CVTRECRQ EQU CVTS01+352 04129000 CVTWSAC EQU CVTS01+348 04130000 CVTRV149 EQU CVTS01+344 04131000 CVTWSAL EQU CVTS01+340 04132000 CVTSPSA EQU CVTS01+336 04133000 CVTGLMN EQU CVTS01+332 04134000 CVTVEAC0 EQU CVTS01+328 04135000 CVT062R1 EQU CVTS01+324 04136000 CVTRPOST EQU CVTS01+320 04137000 CVTDQIQE EQU CVTS01+316 04138000 CVTCSD EQU CVTS01+312 04139000 CVTLKRMA EQU CVTS01+308 04140000 CVTRSPIE EQU CVTS01+304 04141000 CVTRENQ EQU CVTS01+300 04142000 CVTLQCB EQU CVTS01+296 04143000 CVTFQCB EQU CVTS01+292 04144000 CVTQCS01 EQU CVTS01+288 04145000 CVTAPFT EQU CVTS01+284 04146000 CVTPARRL EQU CVTS01+280 04147000 CVTVWAIT EQU CVTS01+276 04148000 CVTGSPL EQU CVTS01+272 04149000 CVTLSMQ EQU CVTS01+268 04150000 CVTGSMQ EQU CVTS01+264 04151000 CVTEXPRO EQU CVTS01+260 04152000 CVTOPCTP EQU CVTS01+256 04153000 CVTSIC EQU CVTS01+252 04154000 CVTTPIOS EQU CVTS01+248 04155000 CVTRTMS EQU CVTS01+244 04156000 CVTSDBF EQU CVTS01+240 04157000 CVTSCBP EQU CVTS01+236 04158000 CVTSDMP EQU CVTS01+232 04159000 CVTSV60 EQU CVTS01+228 04160000 CVTRTMCT EQU CVTS01+224 04161000 CVTASCBL EQU CVTS01+220 04162000 CVTASCBH EQU CVTS01+216 04163000 CVTGDA EQU CVTS01+212 04164000 CVTASVT EQU CVTS01+208 04165000 CVTVVMDI EQU CVTS01+204 04166000 CVTAQTOP EQU CVTS01+200 04167000 CVTIOSCS EQU CVTS01+196 04168000 CVTSDRM EQU CVTS01+192 04169000 CVTOPTE EQU CVTS01+188 04170000 CVTSTXU EQU CVTS01+184 04171000 CVTQUIS EQU CVTS01+180 04172000 CVTPARS EQU CVTS01+176 04173000 CVTS1EE EQU CVTS01+172 04174000 CVTFRAS EQU CVTS01+168 04175000 CVTQSAS EQU CVTS01+164 04176000 CVTCRAS EQU CVTS01+160 04177000 CVTCRMN EQU CVTS01+156 04178000 CVTDELCP EQU CVTS01+152 04179000 CVTFRECL EQU CVTS01+148 04180000 CVTGETCL EQU CVTS01+144 04181000 CVTBLDCP EQU CVTS01+140 04182000 CVTAUTHL EQU CVTS01+136 04183000 CVTSCAN EQU CVTS01+132 04184000 CVTRV144 EQU CVTS01+130 04185000 CVTMAXMP EQU CVTS01+128 04186000 CVTSTCK EQU CVTS01+124 04187000 CVTRV139 EQU CVTS01+123 04188000 CVTDSSAC EQU CVTS01+122 04189000 CVTRV513 EQU CVTS01+121 04190000 CVTIOSPL EQU CVTS01+120 04191000 CVTPTGT EQU CVTS01+116 04192000 CVTCSPIE EQU CVTS01+112 04193000 CVTSMFEX EQU CVTS01+108 04194000 CVTOLT0A EQU CVTS01+104 04195000 CVTSRBRT EQU CVTS01+100 04196000 CVTPUTL EQU CVTS01+96 04197000 CVTASCRL EQU CVTS01+92 04198000 CVTASCRF EQU CVTS01+88 04199000 CVTRV326 EQU CVTS01+84 04200000 CVTRV325 EQU CVTS01+80 04201000 CVTRV324 EQU CVTS01+76 04202000 CVT0VL01 EQU CVTS01+72 04203000 CVTSHRVM EQU CVTS01+68 04204000 CVTRV332 EQU CVTS01+64 04205000 CVTTAS EQU CVTS01+60 04206000 CVTRSCN EQU CVTS01+56 04207000 CVTTRAC2 EQU CVTS01+54 04208000 CVTTRACE EQU CVTS01+52 04209000 CVTAPG EQU CVTS01+51 04210000 CVTSDTRC EQU CVTCTLFG 04211000 CVTGTRCE EQU CVTCTLFG 04212000 CVTNOMP EQU CVTCTLFG 04213000 CVTRSV79 EQU CVTCTLFG 04214000 CVTDSTAT EQU CVTCTLFG 04215000 CVTRSV78 EQU CVTCTLFG 04216000 CVTRV333 EQU CVTCTLFG 04217000 CVTRV323 EQU CVTCTLFG 04218000 CVTSPVLK EQU CVTS01+49 04219000 CVTRSV77 EQU CVTS01+48 04220000 CVTRV331 EQU CVTS01+44 04221000 CVTRV330 EQU CVTS01+40 04222000 CVTRV329 EQU CVTS01+36 04223000 CVTRV328 EQU CVTS01+32 04224000 CVTRV322 EQU CVTS01+28 04225000 CVTSLID EQU CVTSLIDA+1 04226000 CVTSYLK EQU CVTSLIDA 04227000 CVTRV321 EQU CVTS01+20 04228000 CVTRV320 EQU CVTS01+16 04229000 CVTLPDIR EQU CVTLPDIA+1 04230000 CVTRSV69 EQU CVTDIRST 04231000 CVTRSV68 EQU CVTDIRST 04232000 CVTRSV67 EQU CVTDIRST 04233000 CVTRSV66 EQU CVTDIRST 04234000 CVTRSV65 EQU CVTDIRST 04235000 CVTRSV64 EQU CVTDIRST 04236000 CVTRSV63 EQU CVTDIRST 04237000 CVTDICOM EQU CVTDIRST 04238000 CVTPVTP EQU CVTS01+8 04239000 CVTLPDSR EQU CVTS01+4 04240000 CVTGETL EQU CVTS01 04241000 NCSRUITS EQU NCSUSSRU+2 04242000 NCSRULEN EQU NCSUSSRU 04243000 VYCRSV02 EQU ISTVYCRR+128 04244000 VYCRSV04 EQU ISTVYCRR+126 04245000 VYCRRCW3 EQU ISTVYCRR+118 04246000 VYCRRSAV EQU ISTVYCRR+46 04247000 VYCRSV03 EQU VYCCRT+11 04248000 CINCFE EQU VYCCRT+11 04249000 CINCE9 EQU VYCCRT+11 04250000 CINCVO EQU VYCCRT+11 04251000 CINCR5 EQU VYCCRT+11 04252000 CINCR3 EQU VYCCRT+10 04253000 CINCE8 EQU VYCCRT+10 04254000 CINCE7 EQU VYCCRT+10 04255000 CINCE6 EQU VYCCRT+10 04256000 CINCE5 EQU VYCCRT+10 04257000 CINCE1 EQU VYCCRT+10 04258000 CINCUQ EQU VYCCRT+10 04259000 CINCUB EQU VYCCRT+10 04260000 CINCUA EQU VYCCRT+9 04261000 CINCX9 EQU VYCCRT+9 04262000 CINCX8 EQU VYCCRT+9 04263000 CINCX7 EQU VYCCRT+9 04264000 CINCX6 EQU VYCCRT+9 04265000 CINCX3 EQU VYCCRT+9 04266000 CINCX2 EQU VYCCRT+9 04267000 CINCX1 EQU VYCCRT+9 04268000 CINCX0 EQU VYCCRT+8 04269000 CINCW9 EQU VYCCRT+8 04270000 CINCW8 EQU VYCCRT+8 04271000 CINCW7 EQU VYCCRT+8 04272000 CINCW6 EQU VYCCRT+8 04273000 CINCW5 EQU VYCCRT+8 04274000 CINCW4 EQU VYCCRT+8 04275000 CINCW2 EQU VYCCRT+8 04276000 CINCW0 EQU VYCCRT+7 04277000 CINCV9 EQU VYCCRT+7 04278000 CINCV8 EQU VYCCRT+7 04279000 CINCV7 EQU VYCCRT+7 04280000 CINCV6 EQU VYCCRT+7 04281000 CINCV5 EQU VYCCRT+7 04282000 CINCV3 EQU VYCCRT+7 04283000 CINCV2 EQU VYCCRT+6 04284000 CINCU8 EQU VYCCRT+6 04285000 CINCU7 EQU VYCCRT+6 04286000 CINCU6 EQU VYCCRT+6 04287000 CINCU5 EQU VYCCRT+6 04288000 CINCU4 EQU VYCCRT+6 04289000 CINCU3 EQU VYCCRT+6 04290000 CINCU2 EQU VYCCRT+6 04291000 CINCU1 EQU VYCCRT+5 04292000 CINCU0 EQU VYCCRT+5 04293000 CINCUM EQU VYCCRT+5 04294000 CINCS1 EQU VYCCRT+5 04295000 CINCL8 EQU VYCCRT+5 04296000 CINCL7 EQU VYCCRT+5 04297000 CINCL6 EQU VYCCRT+5 04298000 CINCL5 EQU VYCCRT+5 04299000 CINCL4 EQU VYCCRT+4 04300000 CINCL3 EQU VYCCRT+4 04301000 CINCL2 EQU VYCCRT+4 04302000 CINCL1 EQU VYCCRT+4 04303000 CINCL0 EQU VYCCRT+4 04304000 CINCF4 EQU VYCCRT+4 04305000 CINCF3 EQU VYCCRT+4 04306000 CINCF1 EQU VYCCRT+4 04307000 CINCFM EQU VYCCRT+3 04308000 CINCE4 EQU VYCCRT+3 04309000 CINCE3 EQU VYCCRT+3 04310000 CINCE2 EQU VYCCRT+3 04311000 CINCE0 EQU VYCCRT+3 04312000 CINCD9 EQU VYCCRT+3 04313000 CINCD8 EQU VYCCRT+3 04314000 CINCD7 EQU VYCCRT+3 04315000 CINCD6 EQU VYCCRT+2 04316000 CINCD5 EQU VYCCRT+2 04317000 CINCD4 EQU VYCCRT+2 04318000 CINCD3 EQU VYCCRT+2 04319000 CINCD2 EQU VYCCRT+2 04320000 CINCD1 EQU VYCCRT+2 04321000 CINCIP EQU VYCCRT+2 04322000 CINCR2 EQU VYCCRT+2 04323000 CINCMS EQU VYCCRT+1 04324000 CINCVN EQU VYCCRT+1 04325000 CINCVS EQU VYCCRT+1 04326000 CINCVP EQU VYCCRT+1 04327000 CINCVX EQU VYCCRT+1 04328000 CINCFS EQU VYCCRT+1 04329000 CINCSM EQU VYCCRT+1 04330000 CINCR1 EQU VYCCRT+1 04331000 CINCLF EQU VYCCRT 04332000 CINCVA EQU VYCCRT 04333000 CINCVI EQU VYCCRT 04334000 CINCMD EQU VYCCRT 04335000 CINCMY EQU VYCCRT 04336000 CINCDL EQU VYCCRT 04337000 CINCIO EQU VYCCRT 04338000 CINCCL EQU VYCCRT 04339000 VYCRSV01 EQU VYCNTRD+11 04340000 NINCFE EQU VYCNTRD+11 04341000 NINCE9 EQU VYCNTRD+11 04342000 NINCVO EQU VYCNTRD+11 04343000 NINCR5 EQU VYCNTRD+11 04344000 NINCR3 EQU VYCNTRD+10 04345000 NINCE8 EQU VYCNTRD+10 04346000 NINCE7 EQU VYCNTRD+10 04347000 NINCE6 EQU VYCNTRD+10 04348000 NINCE5 EQU VYCNTRD+10 04349000 NINCE1 EQU VYCNTRD+10 04350000 NINCUQ EQU VYCNTRD+10 04351000 NINCUB EQU VYCNTRD+10 04352000 NINCUA EQU VYCNTRD+9 04353000 NINCX9 EQU VYCNTRD+9 04354000 NINCX8 EQU VYCNTRD+9 04355000 NINCX7 EQU VYCNTRD+9 04356000 NINCX6 EQU VYCNTRD+9 04357000 NINCX3 EQU VYCNTRD+9 04358000 NINCX2 EQU VYCNTRD+9 04359000 NINCX1 EQU VYCNTRD+9 04360000 NINCX0 EQU VYCNTRD+8 04361000 NINCW9 EQU VYCNTRD+8 04362000 NINCW8 EQU VYCNTRD+8 04363000 NINCW7 EQU VYCNTRD+8 04364000 NINCW6 EQU VYCNTRD+8 04365000 NINCW5 EQU VYCNTRD+8 04366000 NINCW4 EQU VYCNTRD+8 04367000 NINCW2 EQU VYCNTRD+8 04368000 NINCW0 EQU VYCNTRD+7 04369000 NINCV9 EQU VYCNTRD+7 04370000 NINCV8 EQU VYCNTRD+7 04371000 NINCV7 EQU VYCNTRD+7 04372000 NINCV6 EQU VYCNTRD+7 04373000 NINCV5 EQU VYCNTRD+7 04374000 NINCV3 EQU VYCNTRD+7 04375000 NINCV2 EQU VYCNTRD+6 04376000 NINCU8 EQU VYCNTRD+6 04377000 NINCU7 EQU VYCNTRD+6 04378000 NINCU6 EQU VYCNTRD+6 04379000 NINCU5 EQU VYCNTRD+6 04380000 NINCU4 EQU VYCNTRD+6 04381000 NINCU3 EQU VYCNTRD+6 04382000 NINCU2 EQU VYCNTRD+6 04383000 NINCU1 EQU VYCNTRD+5 04384000 NINCU0 EQU VYCNTRD+5 04385000 NINCUM EQU VYCNTRD+5 04386000 NINCS1 EQU VYCNTRD+5 04387000 NINCL8 EQU VYCNTRD+5 04388000 NINCL7 EQU VYCNTRD+5 04389000 NINCL6 EQU VYCNTRD+5 04390000 NINCL5 EQU VYCNTRD+5 04391000 NINCL4 EQU VYCNTRD+4 04392000 NINCL3 EQU VYCNTRD+4 04393000 NINCL2 EQU VYCNTRD+4 04394000 NINCL1 EQU VYCNTRD+4 04395000 NINCL0 EQU VYCNTRD+4 04396000 NINCF4 EQU VYCNTRD+4 04397000 NINCF3 EQU VYCNTRD+4 04398000 NINCF1 EQU VYCNTRD+4 04399000 NINCFM EQU VYCNTRD+3 04400000 NINCE4 EQU VYCNTRD+3 04401000 NINCE3 EQU VYCNTRD+3 04402000 NINCE2 EQU VYCNTRD+3 04403000 NINCE0 EQU VYCNTRD+3 04404000 NINCD9 EQU VYCNTRD+3 04405000 NINCD8 EQU VYCNTRD+3 04406000 NINCD7 EQU VYCNTRD+3 04407000 NINCD6 EQU VYCNTRD+2 04408000 NINCD5 EQU VYCNTRD+2 04409000 NINCD4 EQU VYCNTRD+2 04410000 NINCD3 EQU VYCNTRD+2 04411000 NINCD2 EQU VYCNTRD+2 04412000 NINCD1 EQU VYCNTRD+2 04413000 NINCIP EQU VYCNTRD+2 04414000 NINCR2 EQU VYCNTRD+2 04415000 NINCMS EQU VYCNTRD+1 04416000 NINCVN EQU VYCNTRD+1 04417000 NINCVS EQU VYCNTRD+1 04418000 NINCVP EQU VYCNTRD+1 04419000 NINCVX EQU VYCNTRD+1 04420000 NINCFS EQU VYCNTRD+1 04421000 NINCSM EQU VYCNTRD+1 04422000 NINCR1 EQU VYCNTRD+1 04423000 NINCLF EQU VYCNTRD 04424000 NINCVA EQU VYCNTRD 04425000 NINCVI EQU VYCNTRD 04426000 NINCMD EQU VYCNTRD 04427000 NINCMY EQU VYCNTRD 04428000 NINCDL EQU VYCNTRD 04429000 NINCIO EQU VYCNTRD 04430000 NINCCL EQU VYCNTRD 04431000 VYCCNS EQU ISTVYCRR 04432000 CNSRSV05 EQU CNSTFLDB+2 04433000 CNSLOG0B EQU CNSTFLDB+2 04434000 CNSACCTB EQU CNSTFLDB+2 04435000 CNSFREEB EQU CNSTFLDB+2 04436000 CNSGETSB EQU CNSTFLDB+2 04437000 CNSSEARB EQU CNSTFLDB+2 04438000 CNSQUEUB EQU CNSTFLDB+2 04439000 CNSACONB EQU CNSTFLDB+2 04440000 CNSTCONB EQU CNSTFLDB+1 04441000 CNSCLAQB EQU CNSTFLDB+1 04442000 CNSCLINB EQU CNSTFLDB+1 04443000 CNSGBINB EQU CNSTFLDB+1 04444000 CNSLGINB EQU CNSTFLDB+1 04445000 CNSACINB EQU CNSTFLDB+1 04446000 CNSPSINB EQU CNSTFLDB+1 04447000 CNSRQRLB EQU CNSTFLDB+1 04448000 CNSTRRLB EQU CNSTFLDB 04449000 CNSDORLB EQU CNSTFLDB 04450000 CNSRLINB EQU CNSTFLDB 04451000 CNSQREQB EQU CNSTFLDB 04452000 CNSXREQB EQU CNSTFLDB 04453000 CNSAQINB EQU CNSTFLDB 04454000 CNSAUTHB EQU CNSTFLDB 04455000 CNSMRINB EQU CNSTFLDB 04456000 CNSRSV01 EQU CNSTFLDA+2 04457000 CNSLOG0A EQU CNSTFLDA+2 04458000 CNSACCTA EQU CNSTFLDA+2 04459000 CNSFREEA EQU CNSTFLDA+2 04460000 CNSGETSA EQU CNSTFLDA+2 04461000 CNSSEARA EQU CNSTFLDA+2 04462000 CNSQUEUA EQU CNSTFLDA+2 04463000 CNSACONA EQU CNSTFLDA+2 04464000 CNSTCONA EQU CNSTFLDA+1 04465000 CNSCLAQA EQU CNSTFLDA+1 04466000 CNSCLINA EQU CNSTFLDA+1 04467000 CNSGBINA EQU CNSTFLDA+1 04468000 CNSLGINA EQU CNSTFLDA+1 04469000 CNSACINA EQU CNSTFLDA+1 04470000 CNSPSINA EQU CNSTFLDA+1 04471000 CNSRQRLA EQU CNSTFLDA+1 04472000 CNSTRRLA EQU CNSTFLDA 04473000 CNSDORLA EQU CNSTFLDA 04474000 CNSRLINA EQU CNSTFLDA 04475000 CNSQREQA EQU CNSTFLDA 04476000 CNSXREQA EQU CNSTFLDA 04477000 CNSAQINA EQU CNSTFLDA 04478000 CNSAUTHA EQU CNSTFLDA 04479000 CNSMRINA EQU CNSTFLDA 04480000 CNSTPFX EQU ISTCNSTA 04481000 CRACHAIN EQU ISTCRA+928 04482000 CRARSV02 EQU ISTCRA+924 04483000 CRARSV01 EQU ISTCRA+920 04484000 CRABFTBA EQU CRABUFA 04485000 CRAMASK EQU CRASVC+64 04486000 CRAHSIZ EQU CRASVC+60 04487000 CRAASCRR EQU CRASVC 04488000 CRAPROCR EQU ISTCRA+312 04489000 CRAPSS EQU ISTCRA+160 04490000 CRARPH EQU ISTCRA+52 04491000 CRALAPTR EQU CRABASIC+48 04492000 CRAL9PTR EQU CRABASIC+44 04493000 CRAL8PTR EQU CRABASIC+40 04494000 CRAL7PTR EQU CRABASIC+36 04495000 CRAL6PTR EQU CRABASIC+32 04496000 CRAL5PTR EQU CRABASIC+28 04497000 CRAL4PTR EQU CRABASIC+24 04498000 CRAL3PTR EQU CRABASIC+20 04499000 CRAL2PTR EQU CRABASIC+16 04500000 CRAL1PTR EQU CRABASIC+12 04501000 CRALEV01 EQU CRALKACT+3 04502000 CRALEV02 EQU CRALKACT+3 04503000 CRALEV03 EQU CRALKACT+3 04504000 CRALEV04 EQU CRALKACT+3 04505000 CRALEV05 EQU CRALKACT+3 04506000 CRALEV06 EQU CRALKACT+3 04507000 CRALEV07 EQU CRALKACT+3 04508000 CRALEV08 EQU CRALKACT+3 04509000 CRALEV09 EQU CRALKACT+2 04510000 CRALEV10 EQU CRALKACT+2 04511000 CRALEV11 EQU CRALKACT+2 04512000 CRALEV12 EQU CRALKACT+2 04513000 CRALEV13 EQU CRALKACT+2 04514000 CRALEV14 EQU CRALKACT+2 04515000 CRALEV15 EQU CRALKACT+2 04516000 CRALEV16 EQU CRALKACT+2 04517000 CRALEV17 EQU CRALKACT+1 04518000 CRALEV18 EQU CRALKACT+1 04519000 CRALEV19 EQU CRALKACT+1 04520000 CRALEV20 EQU CRALKACT+1 04521000 CRALEV21 EQU CRALKACT+1 04522000 CRALEV22 EQU CRALKACT+1 04523000 CRALEV23 EQU CRALKACT+1 04524000 CRALEV24 EQU CRALKACT+1 04525000 CRALEV25 EQU CRALKACT 04526000 CRALEV26 EQU CRALKACT 04527000 CRALEV27 EQU CRALKACT 04528000 CRALEV28 EQU CRALKACT 04529000 CRALEV29 EQU CRALKACT 04530000 CRALEV30 EQU CRALKACT 04531000 CRALEV31 EQU CRALKACT 04532000 CRALEV32 EQU CRALKACT 04533000 CRAFRR EQU CRAHDR+4 04534000 @NM00048 EQU ISTAPCRR+137 04535000 @NM00047 EQU APC57FLG 04536000 APCNREL EQU APC57FLG 04537000 APCRECRA EQU APC57FLG 04538000 @NM00046 EQU APC54FLG 04539000 APCRLST EQU APC54FLG 04540000 APCPR153 EQU APC53FLG 04541000 @NM00045 EQU APC52FLG 04542000 APCWKF EQU APC52FLG 04543000 APCNWF EQU APC52FLG 04544000 APCRDQ EQU APC52FLG 04545000 APCQENQ EQU APC52FLG 04546000 APCSMSR EQU APC52FLG 04547000 APCCKRQ EQU APC52FLG 04548000 @NM00044 EQU APC31FLG 04549000 APCSORT EQU APC31FLG 04550000 APCRESCH EQU APC31FLG 04551000 APCTPXIT EQU APC31FLG 04552000 APCSWTWD EQU ISTAPCRR+128 04553000 APCSAV2 EQU ISTAPCRR+124 04554000 APCSAV1 EQU ISTAPCRR+120 04555000 APCRETCD EQU APCCOMF+2 04556000 @NM00043 EQU APCCOMF1+1 04557000 APCZLBER EQU APCCOMF1 04558000 APCEXIT EQU APCCOMF1 04559000 APCRELR EQU APCCOMF1 04560000 APCIRB2 EQU APCCOMF1 04561000 APCIRB1 EQU APCCOMF1 04562000 APCSMCR EQU APCCOMF1 04563000 APCUETSK EQU APCCOMF1 04564000 APCSSTSK EQU APCCOMF1 04565000 APCESTAL EQU APCSAVE 04566000 APCFRRPM EQU ISTAPCRR+40 04567000 APCQWFO EQU ISTAPCRR+36 04568000 APCPABSV EQU ISTAPCRR+32 04569000 APCRTRN EQU ISTAPCRR+28 04570000 APCTCBA EQU ISTAPCRR+24 04571000 APCPSTA EQU ISTAPCRR+20 04572000 @NM00042 EQU APCRFLG+1 04573000 APC31R EQU APCRFLG 04574000 APC58R EQU APCRFLG 04575000 APC57R EQU APCRFLG 04576000 APC56R EQU APCRFLG 04577000 APC54R EQU APCRFLG 04578000 APC53R EQU APCRFLG 04579000 APC52R EQU APCRFLG 04580000 APC51R EQU APCRFLG 04581000 @NM00041 EQU APCATFLG+1 04582000 APC31E EQU APCATFLG 04583000 APC58E EQU APCATFLG 04584000 APC57E EQU APCATFLG 04585000 APC56E EQU APCATFLG 04586000 APC54E EQU APCATFLG 04587000 APC53E EQU APCATFLG 04588000 APC52E EQU APCATFLG 04589000 APC51E EQU APCATFLG 04590000 APCHDRSV EQU ISTAPCRR 04591000 ASCPSREG EQU ISTASCRR+44 04592000 ASCUSR01 EQU ASCUSRGS+12 04593000 ASCUSR00 EQU ASCUSRGS+8 04594000 ASCUSR15 EQU ASCUSRGS+4 04595000 ASCUSR14 EQU ASCUSRGS 04596000 ASCETRYA EQU ISTASCRR+24 04597000 ASCKEY EQU ISTASCRR+23 04598000 ASCAUDIT EQU ASCFLG3 04599000 ASCFBDUD EQU ASCFLG3 04600000 ASCLLKF EQU ASCFLG3 04601000 ASCKEYF EQU ASCFLG3 04602000 ASCFBDAL EQU ASCFLG3 04603000 ASCFSRGT EQU ASCFLG3 04604000 ASCICR EQU ASCFLG2 04605000 ASCFSRIC EQU ASCFLG2 04606000 ASCFBDIC EQU ASCFLG2 04607000 ASCFBAIC EQU ASCFLG2 04608000 ASCPASTR EQU ASCFLG1 04609000 ASCFSR EQU ASCFLG1 04610000 ASCFBD EQU ASCFLG1 04611000 ASCFBA EQU ASCFLG1 04612000 ASCPFCRR EQU ISTASCRR 04613000 ZCRRU EQU ZCRRHRU+3 04614000 ZCRRH EQU ZCRRHRU 04615000 ZCRWORDA EQU ISTZCRR+477 04616000 ZCRCMNRC EQU ISTZCRR+476 04617000 ZCRRSV97 EQU ZCRENTER+18 04618000 ZCREIC2B EQU ZCRENTER+18 04619000 ZCREAC2B EQU ZCRENTER+18 04620000 ZCRELCAB EQU ZCRENTER+18 04621000 ZCREDCMF EQU ZCRENTER+18 04622000 ZCREBCIF EQU ZCRENTER+18 04623000 ZCREICSG EQU ZCRENTER+18 04624000 ZCREDCK0 EQU ZCRENTER+18 04625000 ZCRECFY0 EQU ZCRENTER+17 04626000 ZCREKCCB EQU ZCRENTER+17 04627000 ZCREDCNB EQU ZCRENTER+17 04628000 ZCREICOE EQU ZCRENTER+17 04629000 ZCREBCNB EQU ZCRENTER+17 04630000 ZCREBC0L EQU ZCRENTER+17 04631000 ZCREBCAL EQU ZCRENTER+17 04632000 ZCREDCQR EQU ZCRENTER+17 04633000 ZCREDCPR EQU ZCRENTER+16 04634000 ZCREBCSB EQU ZCRENTER+16 04635000 ZCREAC1R EQU ZCRENTER+16 04636000 ZCRECCCI EQU ZCRENTER+16 04637000 ZCRECCAI EQU ZCRENTER+16 04638000 ZCRECCBI EQU ZCRENTER+16 04639000 ZCREBCAR EQU ZCRENTER+16 04640000 ZCREBCDR EQU ZCRENTER+16 04641000 ZCREBCBR EQU ZCRENTER+15 04642000 ZCREDCXR EQU ZCRENTER+15 04643000 ZCREDCWB EQU ZCRENTER+15 04644000 ZCREDCWR EQU ZCRENTER+15 04645000 ZCREKCCN EQU ZCRENTER+15 04646000 ZCREKCBN EQU ZCRENTER+15 04647000 ZCREKCBB EQU ZCRENTER+15 04648000 ZCREJC0B EQU ZCRENTER+15 04649000 ZCREJCDB EQU ZCRENTER+14 04650000 ZCREJCCB EQU ZCRENTER+14 04651000 ZCREJCBB EQU ZCRENTER+14 04652000 ZCREJCAB EQU ZCRENTER+14 04653000 ZCREIC1B EQU ZCRENTER+14 04654000 ZCREIC0B EQU ZCRENTER+14 04655000 ZCREICX0 EQU ZCRENTER+14 04656000 ZCREICWB EQU ZCRENTER+14 04657000 ZCREICVB EQU ZCRENTER+13 04658000 ZCREICUB EQU ZCRENTER+13 04659000 ZCREICTB EQU ZCRENTER+13 04660000 ZCREICSC EQU ZCRENTER+13 04661000 ZCREICSB EQU ZCRENTER+13 04662000 ZCREICRB EQU ZCRENTER+13 04663000 ZCREICQB EQU ZCRENTER+13 04664000 ZCREICQA EQU ZCRENTER+13 04665000 ZCREICOB EQU ZCRENTER+12 04666000 ZCREICOA EQU ZCRENTER+12 04667000 ZCREICNB EQU ZCRENTER+12 04668000 ZCREICNA EQU ZCRENTER+12 04669000 ZCREICMB EQU ZCRENTER+12 04670000 ZCREICLB EQU ZCRENTER+12 04671000 ZCREICKG EQU ZCRENTER+12 04672000 ZCREICKE EQU ZCRENTER+12 04673000 ZCREICKB EQU ZCRENTER+11 04674000 ZCREICJB EQU ZCRENTER+11 04675000 ZCREICID EQU ZCRENTER+11 04676000 ZCREICIB EQU ZCRENTER+11 04677000 ZCREICHB EQU ZCRENTER+11 04678000 ZCREICGB EQU ZCRENTER+11 04679000 ZCREICEB EQU ZCRENTER+11 04680000 ZCREICDB EQU ZCRENTER+11 04681000 ZCREICCI EQU ZCRENTER+10 04682000 ZCREICCB EQU ZCRENTER+10 04683000 ZCREICBI EQU ZCRENTER+10 04684000 ZCREICBB EQU ZCRENTER+10 04685000 ZCREICAB EQU ZCRENTER+10 04686000 ZCREICAA EQU ZCRENTER+10 04687000 ZCREHCAN EQU ZCRENTER+10 04688000 ZCREGC0B EQU ZCRENTER+10 04689000 ZCREGC0A EQU ZCRENTER+9 04690000 ZCREGCLA EQU ZCRENTER+9 04691000 ZCREGCEB EQU ZCRENTER+9 04692000 ZCREGCDB EQU ZCRENTER+9 04693000 @NM00040 EQU ZCRENTER+9 04694000 ZCREGCBB EQU ZCRENTER+9 04695000 ZCREGCAB EQU ZCRENTER+9 04696000 ZCREFCEB EQU ZCRENTER+9 04697000 ZCREFCEA EQU ZCRENTER+8 04698000 ZCREECTA EQU ZCRENTER+8 04699000 ZCREECEA EQU ZCRENTER+8 04700000 ZCREECDA EQU ZCRENTER+8 04701000 ZCREECCB EQU ZCRENTER+8 04702000 ZCREECCA EQU ZCRENTER+8 04703000 ZCREECBB EQU ZCRENTER+8 04704000 ZCREECBA EQU ZCRENTER+8 04705000 ZCREDCMB EQU ZCRENTER+7 04706000 ZCREDCL0 EQU ZCRENTER+7 04707000 ZCREDCKB EQU ZCRENTER+7 04708000 ZCREDCKA EQU ZCRENTER+7 04709000 ZCREDCJ0 EQU ZCRENTER+7 04710000 ZCREDCI0 EQU ZCRENTER+7 04711000 ZCREDCH0 EQU ZCRENTER+7 04712000 ZCREDCF0 EQU ZCRENTER+7 04713000 ZCREDCE0 EQU ZCRENTER+6 04714000 ZCREDCD0 EQU ZCRENTER+6 04715000 ZCREDCC0 EQU ZCRENTER+6 04716000 ZCREDCB0 EQU ZCRENTER+6 04717000 ZCREDCA0 EQU ZCRENTER+6 04718000 ZCRECC2B EQU ZCRENTER+6 04719000 ZCRECC1B EQU ZCRENTER+6 04720000 ZCRECC1A EQU ZCRENTER+6 04721000 ZCRECC0B EQU ZCRENTER+5 04722000 ZCRECC0A EQU ZCRENTER+5 04723000 ZCREBC0B EQU ZCRENTER+5 04724000 ZCREBC0A EQU ZCRENTER+5 04725000 ZCREBCZ0 EQU ZCRENTER+5 04726000 ZCREBCY0 EQU ZCRENTER+5 04727000 ZCREBCX0 EQU ZCRENTER+5 04728000 ZCREBCXA EQU ZCRENTER+5 04729000 ZCREBCSC EQU ZCRENTER+4 04730000 ZCREBCRB EQU ZCRENTER+4 04731000 ZCREBCRA EQU ZCRENTER+4 04732000 ZCREBCQB EQU ZCRENTER+4 04733000 ZCREBCPB EQU ZCRENTER+4 04734000 ZCREBCOB EQU ZCRENTER+4 04735000 ZCREBCNE EQU ZCRENTER+4 04736000 ZCREBCND EQU ZCRENTER+4 04737000 ZCREBCMB EQU ZCRENTER+3 04738000 ZCREBCLB EQU ZCRENTER+3 04739000 ZCREBCLA EQU ZCRENTER+3 04740000 ZCREBCKB EQU ZCRENTER+3 04741000 ZCREBCKA EQU ZCRENTER+3 04742000 ZCREBCJB EQU ZCRENTER+3 04743000 ZCREBCJA EQU ZCRENTER+3 04744000 ZCREBCID EQU ZCRENTER+3 04745000 ZCREBCIB EQU ZCRENTER+2 04746000 ZCREBCIA EQU ZCRENTER+2 04747000 ZCREBCHB EQU ZCRENTER+2 04748000 ZCREBCHA EQU ZCRENTER+2 04749000 ZCREBCGB EQU ZCRENTER+2 04750000 ZCREBCGA EQU ZCRENTER+2 04751000 ZCREBCFB EQU ZCRENTER+2 04752000 ZCREBCFA EQU ZCRENTER+2 04753000 ZCREBCEB EQU ZCRENTER+1 04754000 ZCREBCDI EQU ZCRENTER+1 04755000 ZCREBCCB EQU ZCRENTER+1 04756000 ZCREBCBI EQU ZCRENTER+1 04757000 ZCREBCBB EQU ZCRENTER+1 04758000 ZCREBCBA EQU ZCRENTER+1 04759000 ZCREBCAM EQU ZCRENTER+1 04760000 ZCREBCAI EQU ZCRENTER+1 04761000 ZCREBCAG EQU ZCRENTER 04762000 ZCREBCAE EQU ZCRENTER 04763000 ZCREBCAB EQU ZCRENTER 04764000 ZCREBCAA EQU ZCRENTER 04765000 ZCREAC1B EQU ZCRENTER 04766000 ZCREAC0B EQU ZCRENTER 04767000 ZCREAC0A EQU ZCRENTER 04768000 ZCREAC1A EQU ZCRENTER 04769000 ZCRTNAME EQU ZCRAUDIT+1 04770000 ZCRTID EQU ZCRAUDIT 04771000 ZCRREMIC EQU ISTZCRR+436 04772000 ZCRSAVEZ EQU ISTZCRR+196 04773000 ZCRDAFSV EQU ZCRCIDSV+2 04774000 ZCRSAFSV EQU ZCRCIDSV 04775000 ZCRR13SV EQU ISTZCRR+188 04776000 ZCRR2SV EQU ISTZCRR+184 04777000 ZCROPCDE EQU ISTZCRR+183 04778000 ZCRPRMTC EQU ISTZCRR+182 04779000 ZCRRCDSV EQU ISTZCRR+181 04780000 ZCRAWQSW EQU ISTZCRR+180 04781000 ZCRTOPQ EQU ISTZCRR+180 04782000 ZCRLSTFB EQU ISTZCRR+180 04783000 ZCRXSCHD EQU ISTZCRR+180 04784000 ZCRNXTEL EQU ISTZCRR+180 04785000 ZCRSCANQ EQU ISTZCRR+180 04786000 ZCRMOREL EQU ISTZCRR+180 04787000 ZCRFBPRC EQU ISTZCRR+180 04788000 ZCRFSBSV EQU ISTZCRR+176 04789000 ZCRSVWK5 EQU ZCRWKARA+16 04790000 ZCRSVWK4 EQU ZCRWKARA+12 04791000 ZCRSVWK3 EQU ZCRWKARA+8 04792000 ZCRSVWK2 EQU ZCRWKARA+4 04793000 ZCRSVWK1 EQU ZCRWKARA 04794000 ZCRSVF25 EQU ZCRSVRTN+96 04795000 ZCRSVF24 EQU ZCRSVRTN+92 04796000 ZCRSVF23 EQU ZCRSVRTN+88 04797000 ZCRSVF22 EQU ZCRSVRTN+84 04798000 ZCRSVF21 EQU ZCRSVRTN+80 04799000 ZCRSVF20 EQU ZCRSVRTN+76 04800000 ZCRSVF19 EQU ZCRSVRTN+72 04801000 ZCRSVF18 EQU ZCRSVRTN+68 04802000 ZCRSVF17 EQU ZCRSVRTN+64 04803000 ZCRSVF16 EQU ZCRSVRTN+60 04804000 ZCRSVF15 EQU ZCRSVRTN+56 04805000 ZCRSVF14 EQU ZCRSVRTN+52 04806000 ZCRSVF13 EQU ZCRSVRTN+48 04807000 ZCRSVF12 EQU ZCRSVRTN+44 04808000 ZCRSVF11 EQU ZCRSVRTN+40 04809000 ZCRSVF10 EQU ZCRSVRTN+36 04810000 ZCRSVF9 EQU ZCRSVRTN+32 04811000 ZCRSVF8 EQU ZCRSVRTN+28 04812000 ZCRSVF7 EQU ZCRSVRTN+24 04813000 ZCRSVF6 EQU ZCRSVRTN+20 04814000 ZCRSVF5 EQU ZCRSVRTN+16 04815000 ZCRSVF4 EQU ZCRSVRTN+12 04816000 ZCRSVF3 EQU ZCRSVRTN+8 04817000 ZCRSVF2 EQU ZCRSVRTN+4 04818000 ZCRSVF1 EQU ZCRSVRTN 04819000 ZCRPVZB EQU ISTZCRR+52 04820000 ZCRZLB EQU ISTZCRR+48 04821000 ZCRBFPTR EQU ISTZCRR+44 04822000 ZCRCCWA EQU ISTZCRR+40 04823000 ZCRPSW EQU ZCRPARMS+15 04824000 ZCRPCHAR EQU ZCRPARMS+14 04825000 ZCRPRES2 EQU ZCRPCOD2 04826000 ZCRPMFGF EQU ZCRPCOD2 04827000 ZCRPFHDR EQU ZCRPCOD2 04828000 ZCRPPG2 EQU ZCRPCOD2 04829000 ZCRPRES EQU ZCRPCOD1 04830000 ZCRPCFTX EQU ZCRPCOD1 04831000 ZCRPBUF EQU ZCRPCOD1 04832000 ZCRPLSCB EQU ZCRPCOD1 04833000 ZCRPLSBQ EQU ZCRPLSBF 04834000 ZCRPFSB EQU ZCRPCOD1 04835000 ZCRPLNG EQU ZCRPCOD1 04836000 ZCRPPG EQU ZCRPCOD1 04837000 ZCRDTODA EQU ZCRDFRDA 04838000 ZCRMLNG EQU ZCRPARMS+8 04839000 ZCRTBPTR EQU ZCRPARMS+4 04840000 ZCRCBPTR EQU ZCRFBPTR 04841000 ZCRCRLCP EQU ISTZCRR+20 04842000 @NM00039 EQU ZCRSCPSW 04843000 ZCRSKIPT EQU ZCRSCPSW 04844000 ZCRFSBWE EQU ZCRSCPSW 04845000 ZCRPRCMP EQU ZCRSCPSW 04846000 ZCRLREQ EQU ZCRSCPSW 04847000 ZCRRJLCP EQU ZCRSCPSW 04848000 ZCRTPINV EQU ZCRSCPSW 04849000 ZCRTPEX EQU ZCRSCPSW 04850000 @NM00038 EQU ZCRIBPR 04851000 ZCR3270R EQU ZCRIBPR 04852000 ZCR3270 EQU ZCRIBPR 04853000 ZCRLCPFD EQU ZCRIBPR 04854000 ZCRLCPFR EQU ZCRIBPR 04855000 ZCRRELK EQU ZCRIBPR 04856000 ZCRERR EQU ZCRIBPR 04857000 ZCRNOBUF EQU ZCRIBPR 04858000 @NM00037 EQU ZCRPFLGS 04859000 ZCRQAHED EQU ZCRPFLGS 04860000 ZCRF1RES EQU ZCRGENSW 04861000 ZCRBRIS EQU ZCRGENSW 04862000 ZCRCLRBD EQU ZCRGENSW 04863000 ZCREXRES EQU ZCRGENSW 04864000 ZCRLCSYN EQU ZCRGENSW 04865000 ZCRRT06 EQU ZCRGENSW 04866000 ZCRTSW2 EQU ZCRGENSW 04867000 ZCRTSW1 EQU ZCRGENSW 04868000 ZCRINLCP EQU ZCRFLGS3 04869000 ZCRWRPTR EQU ZCRFLGS3 04870000 ZCRNOFRE EQU ZCRFLGS3 04871000 ZCREDRIV EQU ZCRFLGS3 04872000 ZCRDISC EQU ZCRFLGS3 04873000 ZCRTPDIS EQU ZCRFLGS3 04874000 ZCRTPCON EQU ZCRFLGS3 04875000 ZCRTIC EQU ZCRFLGS3 04876000 ZCRCNLXL EQU ZCRRESET 04877000 ZCRENDAN EQU ZCRSWFLD 04878000 ZCRENDXL EQU ZCRSWFLD 04879000 ZCRENDX EQU ZCRSWFLD 04880000 ZCROB1 EQU ZCRNDLCP 04881000 ZCRENDPR EQU ZCRSWFLD 04882000 ZCREXTYP EQU ZCRSWFLD 04883000 ZCRSLCP EQU ZCRENDSH 04884000 ZCRIF0E3 EQU ZCRFLGS2 04885000 ZCRIF0E2 EQU ZCRFLGS2 04886000 ZCRIF0E1 EQU ZCRFLGS2 04887000 ZCROB EQU ZCRFLGS2 04888000 ZCRFMSED EQU ZCRFLGS2 04889000 ZCRSHEDI EQU ZCRFLGS2 04890000 ZCRLOCAL EQU ZCRFLGS2 04891000 ZCRFEXIT EQU ZCRFLGS1 04892000 ZCRUNSOL EQU ZCRFLGS1 04893000 ZCRENDLP EQU ZCRFLGS1 04894000 ZCRNRMEX EQU ZCRFLGS1 04895000 ZCRWAIT EQU ZCRFLGS1 04896000 ZCRDEQSW EQU ZCRFLGS1 04897000 ZCRQUESW EQU ZCRFLGS1 04898000 ZCREXSW EQU ZCRFLGS1 04899000 ZCRFRRA EQU ISTZCRR+8 04900000 ZCRCHAIN EQU ISTZCRR+4 04901000 ZCRFLAG EQU ZCRCRR+3 04902000 ZCRLEN EQU ZCRCRR+1 04903000 ZCRID EQU ZCRCRR 04904000 CCFRSVD1 EQU CFCCRT 04905000 CCFCR2 EQU CFCCRT 04906000 CCFCRP EQU CFCCRT 04907000 CCFCR1 EQU CFCCRT 04908000 CCFCS2 EQU CFCCRT 04909000 CCFCS1 EQU CFCCRT 04910000 NCFRSVD EQU CFCNTRD 04911000 NCFCR2 EQU CFCNTRD 04912000 NCFCRP EQU CFCNTRD 04913000 NCFCR1 EQU CFCNTRD 04914000 NCFCS2 EQU CFCNTRD 04915000 NCFCS1 EQU CFCNTRD 04916000 PFCRSV01 EQU ISTPFCRR+13 04917000 PFCFTA EQU ISTPFCRR+12 04918000 CRRFRR EQU PFCFRRO 04919000 CRRCHAIN EQU PFCCRRO 04920000 CRRLEN EQU PFCCRRLN 04921000 PFCRSV10 EQU PFCCRR+1 04922000 CRRID EQU PFCCRRID 04923000 ZSAZTRAC EQU ISTZSAVE+36 04924000 ZSAZSVVR EQU ISTZSAVE+12 04925000 ZSAZSVRR EQU ISTZSAVE+8 04926000 ZSAZSVFC EQU ISTZSAVE+4 04927000 ZSAZACTV EQU ZSAZSVMS 04928000 LCPFTYPE EQU LCPRPHA 04929000 LCPRSTQH EQU LCPLCCW 04930000 LCPCLREP EQU ISTLCPB+44 04931000 LCPUBFSB EQU LCPFLCCW 04932000 LCPRSV77 EQU ISTLCPB+39 04933000 LCPLCCWC EQU ISTLCPB+38 04934000 LCPRSV78 EQU LCPFLG1 04935000 LCPTRANS EQU LCPFLG1 04936000 LCPSTLB EQU LCPFLG1 04937000 LCPREDRV EQU LCPFLG1 04938000 LCPDIRPT EQU LCPFLG1 04939000 LCPINTER EQU LCPFLG1 04940000 LCPRESET EQU LCPFLG1 04941000 LCPSTYPE EQU ISTLCPB+36 04942000 LCPFSNCH EQU ISTLCPB+34 04943000 LCPFOSN EQU ISTLCPB+32 04944000 LCPTLBAD EQU ISTLCPB+28 04945000 LCPFDB2 EQU LCPFDBA+1 04946000 LCPFDB1 EQU LCPFDBA 04947000 LCPNXLCW EQU ISTLCPB+20 04948000 LCPDAF EQU LCPCID+2 04949000 LCPSAF EQU LCPCID 04950000 LCPLCCW1 EQU ISTLCPB+12 04951000 LCPRRCNT EQU LCPSEQ+1 04952000 LCPRRCCT EQU LCPSEQ 04953000 LCPATOP EQU LCPFLAG2 04954000 LCPFREE EQU LCPFLAG2 04955000 LCPDSTAT EQU LCPFLAG2 04956000 LCPEXRES EQU LCPFID0 04957000 LCPZRIMM EQU LCPTLBPI 04958000 LCPRSTRT EQU LCPFLAG2 04959000 LCPASYN EQU LCPFLAG2 04960000 LCPPRFLG EQU LCPFLAG2 04961000 LCPZMIRC EQU LCPRUCNT 04962000 LCPCHAI2 EQU LCPCHAIN+1 04963000 LCPCHNG EQU LCPCHAI1 04964000 LCPZRT0B EQU LCPMNRCD 04965000 LCPZRT0A EQU LCPMNRCD 04966000 LCPZRTL9 EQU LCPZRT09 04967000 LCPZRTL8 EQU LCPZRT08 04968000 LCPZRTL7 EQU LCPZRT07 04969000 LCPZRTL6 EQU LCPZRT06 04970000 LCPZRTL5 EQU LCPZRT05 04971000 LCPZRTL4 EQU LCPZRT04 04972000 LCPZRTL3 EQU LCPZRT03 04973000 LCPZRTL2 EQU LCPZRT02 04974000 LCPZRT01 EQU LCPFLAGS 04975000 LCPZRT00 EQU LCPFLAGS 04976000 LCPLNGTH EQU ISTLCPB+1 04977000 LCPTYPE EQU ISTLCPB 04978000 LCCWDATA EQU ISTLCCW+4 04979000 LCCWCNT EQU ISTLCCW+2 04980000 LCCWACI EQU LCCWFLAG 04981000 LCCWRFI EQU LCCWFLAG 04982000 LCCWPER EQU LCCWLSI 04983000 LCCWIDAT EQU LCCWFLAG 04984000 LCCWNTVC EQU LCCWFLAG 04985000 LCCWCKPT EQU LCCWFLAG 04986000 LCCWCC EQU LCCWFLAG 04987000 LCCWCD EQU LCCWFLAG 04988000 LCCWTYPE EQU LCCWCTL 04989000 LCCWMODE EQU LCCWCTL 04990000 LCCWSOP EQU LCCWRWOP 04991000 @NM00036 EQU LCCWRWOP 04992000 LCCWSD EQU LCCWOP 04993000 LCCWSI EQU LCCWOP 04994000 @NM00004 EQU CV4REGSV+12 04995000 @NM00003 EQU CV4REGSV 04996000 ATCAOS EQU ISTATCVT+1584 04997000 ATCPOPAB EQU ATCAOSM+640 04998000 ATCVIOPM EQU ATCAOSM+636 04999000 ATCTPMMI EQU ATCAOSM+632 05000000 ATCTPMPB EQU ATCAOSM+600 05001000 ATCRSV88 EQU ATCAOSM+596 05002000 ATCRPLCT EQU ATCAOSM+594 05003000 ATCCRACT EQU ATCAOSM+592 05004000 ATCSRBCT EQU ATCAOSM+590 05005000 ATCRSV75 EQU ATCAOSM+589 05006000 ATCRSV66 EQU ATCZFLAG 05007000 ATCZF001 EQU ATCZFLAG 05008000 ATCTPCP1 EQU ATCAOSM+584 05009000 ATCTPCP0 EQU ATCAOSM+580 05010000 ATCAICTN EQU ATCAOSM+576 05011000 ATCZR01 EQU ATCAOSM+572 05012000 ATCMPLTA EQU ATCAOSM+568 05013000 ATCASCB EQU ATCAOSM+564 05014000 ATCAP86 EQU ATCAOSM+560 05015000 ATCAP85 EQU ATCAOSM+556 05016000 ATCAP84 EQU ATCAOSM+552 05017000 ATCAP83 EQU ATCAOSM+548 05018000 ATCAP82 EQU ATCAOSM+544 05019000 ATCAP69 EQU ATCAOSM+540 05020000 ATCAP66 EQU ATCAOSM+536 05021000 ATCAP62 EQU ATCAOSM+532 05022000 ATCAPC59 EQU ATCAOSM+528 05023000 ATCAP56 EQU ATCAOSM+524 05024000 ATCAP55 EQU ATCAOSM+520 05025000 ATCRCFY0 EQU ATCAOSM+516 05026000 ATCAP41 EQU ATCAOSM+512 05027000 ATCAPC25 EQU ATCAOSM+508 05028000 ATCAP23 EQU ATCAOSM+504 05029000 ATCTPSPB EQU ATCAOSM+472 05030000 ATCTRMPB EQU ATCAOSM+440 05031000 ATCAPBE EQU ATCAOSM+436 05032000 ATCPSTA EQU ATCAOSM+432 05033000 ATCSMABF EQU ATCAOSM+428 05034000 ATCSMAPR EQU ATCAOSM+424 05035000 ATCTPWQA EQU ATCAOSM+420 05036000 ATCSMAID EQU ATCAOSM+416 05037000 ATCSMARA EQU ATCAOSM+412 05038000 ATCCACXA EQU ATCAOSM+408 05039000 ATCZLAAB EQU ATCAOSM+404 05040000 ATCATA10 EQU ATCAOSM+400 05041000 ATCHLTCB EQU ATCAOSM+396 05042000 @NM00035 EQU ATCVTFLG 05043000 ATCVTACT EQU ATCVTFLG 05044000 ATCRPT40 EQU ATCAOSM+388 05045000 ATCRPT39 EQU ATCAOSM+384 05046000 ATCRPT38 EQU ATCAOSM+380 05047000 ATCRPT37 EQU ATCAOSM+376 05048000 ATCRPT36 EQU ATCAOSM+372 05049000 ATCRPT35 EQU ATCAOSM+368 05050000 ATCRPT34 EQU ATCAOSM+364 05051000 ATCRPT33 EQU ATCAOSM+360 05052000 ATCRPT32 EQU ATCAOSM+356 05053000 ATCRPT31 EQU ATCAOSM+352 05054000 ATCRPT30 EQU ATCAOSM+348 05055000 ATCRPT29 EQU ATCAOSM+344 05056000 ATCRPT28 EQU ATCAOSM+340 05057000 ATCRPT27 EQU ATCAOSM+336 05058000 @NM00034 EQU ATCAOSM+333 05059000 @NM00033 EQU @NM00032 05060000 ATCSNUF EQU @NM00032 05061000 ATCOPKL EQU @NM00032 05062000 ATCABEN EQU @NM00032 05063000 ATCAIWT EQU ATCAOSM+328 05064000 ATCINFDD EQU ATCAOSM+324 05065000 ATCORFMG EQU ATCAOSM+320 05066000 ATCORFRL EQU ATCAOSM+316 05067000 ATCOROBT EQU ATCAOSM+312 05068000 ATCORQG EQU ATCORSRB 05069000 ATCORTBF EQU ATCSQAFR 05070000 ATCRPLAC EQU ATCRPLCN+2 05071000 ATCRPLRC EQU ATCRPLCN 05072000 ATCCRPLQ EQU ATCCRPL 05073000 ATCSRBAC EQU ATCSRBCN+2 05074000 ATCSRBRC EQU ATCSRBCN 05075000 ATCSRBQ EQU ATCSRB 05076000 ATCCRAAC EQU ATCCRACN+2 05077000 ATCCRARC EQU ATCCRACN 05078000 ATCCRAQ EQU ATCCRA 05079000 ATCRPT12 EQU ATCAOSM+276 05080000 ATCDMAPP EQU ATCAOSM+272 05081000 ATCAP38 EQU ATCAOSM+268 05082000 ATCAP37 EQU ATCAOSM+264 05083000 ATCZDFJ0 EQU ATCAOSM+260 05084000 ATCAP51 EQU ATCAOSM+256 05085000 ATCZPAB2 EQU ATCAOSM+224 05086000 ATCZPAB1 EQU ATCAOSM+192 05087000 ATCZLFVT EQU ATCAOSM+188 05088000 ATCZLPVT EQU ATCAOSM+184 05089000 ATCZDVTX EQU ATCAOSM+180 05090000 ATCZDVTA EQU ATCAOSM+176 05091000 ATCZDVT9 EQU ATCAOSM+172 05092000 ATCZDVT8 EQU ATCAOSM+168 05093000 ATCZDVT7 EQU ATCAOSM+164 05094000 ATCRSV56 EQU ATCDAPVT+22 05095000 ATCDAPDG EQU ATCDAPVT+20 05096000 ATCDXCEA EQU ATCDAPVT+16 05097000 ATCDCEA EQU ATCDAPVT+12 05098000 ATCDPCIA EQU ATCDAPVT+8 05099000 ATCDSIOA EQU ATCDAPVT+4 05100000 ATCDEOEA EQU ATCDAPVT 05101000 ATCZLAEA EQU ATCLDAPP+16 05102000 ATCZLCEA EQU ATCLDAPP+12 05103000 ATCRSV17 EQU ATCLDAPP+8 05104000 ATCSMFRR EQU ATCLDAPP+4 05105000 ATCCDTID EQU ATCLDAPP 05106000 ATCZAEA EQU ATCICAPP+16 05107000 ATCZCEA EQU ATCICAPP+12 05108000 ATCCDTCB EQU ATCICAPP+8 05109000 ATCZSIOA EQU ATCICAPP+4 05110000 ATCCDRPH EQU ATCICAPP 05111000 ATCAP65 EQU ATCAOSM+96 05112000 ATCZDVT6 EQU ATCAOSM+92 05113000 ATCZDVT4 EQU ATCAOSM+88 05114000 ATCZDVT3 EQU ATCAOSM+84 05115000 ATCZDVT1 EQU ATCAOSM+80 05116000 ATCICNCB EQU ATCAOSM+76 05117000 ATCZPSVT EQU ATCAOSM+72 05118000 ATCZFSVT EQU ATCAOSM+68 05119000 ATCAP64 EQU ATCAOSM+64 05120000 ATCAP63 EQU ATCAOSM+60 05121000 ATCAP61 EQU ATCAOSM+56 05122000 ATCAP58 EQU ATCAOSM+52 05123000 ATCAP57 EQU ATCAOSM+48 05124000 ATCAP54 EQU ATCAOSM+44 05125000 ATCAP53 EQU ATCAOSM+40 05126000 ATCAP52 EQU ATCAOSM+36 05127000 ATCAP34 EQU ATCAOSM+32 05128000 ATCAP32 EQU ATCAOSM+28 05129000 ATCAP31 EQU ATCAOSM+24 05130000 ATCAP12 EQU ATCAOSM+20 05131000 ATCAP11 EQU ATCAOSM+16 05132000 ATCCMTCB EQU ATCAOSM+12 05133000 ATCPRPH EQU ATCAOSM+8 05134000 ATCGSRBF EQU ATCGSRBG 05135000 ATCSRBRT EQU ATCAOSM 05136000 @NM00031 EQU @NM00030 05137000 ATCVTMAB EQU @NM00030 05138000 @NM00029 EQU ATCVTBAM 05139000 ATCVDLOK EQU ISTATCVT+904 05140000 ATCVFPAB EQU ISTATCVT+872 05141000 ATCVDPAB EQU ISTATCVT+840 05142000 ATCIOECB EQU ISTATCVT+836 05143000 ATCINCW3 EQU ISTATCVT+832 05144000 ATCMODTB EQU ISTATCVT+828 05145000 ATCUSSPT EQU ISTATCVT+824 05146000 ATCSRTAB EQU ISTATCVT+820 05147000 @NM00028 EQU ISTATCVT+819 05148000 @NM00027 EQU ATCSTAT2 05149000 ATCTRSMS EQU ATCSTAT2 05150000 ATCTRLOK EQU ATCSTAT2 05151000 ATCTRPSS EQU ATCSTAT2 05152000 ATCTRESC EQU ATCSTAT2 05153000 ATCTRAPI EQU ATCSTAT2 05154000 ATCNMCTR EQU ISTATCVT+816 05155000 ATCSEC51 EQU ATCSECST 05156000 ATCSEC40 EQU ATCSIPD+8 05157000 ATCSEC30 EQU ATCSIPD+4 05158000 ATCSEC21 EQU ATCSIPD 05159000 ATCSEC10 EQU ATCSOPD+4 05160000 ATCSEC01 EQU ATCSOPD 05161000 ATCPOIA EQU ATCRNO+1 05162000 @NM00026 EQU ATCRNO 05163000 ATCPODVT EQU ISTATCVT+784 05164000 ATCS49XL EQU ISTATCVT+780 05165000 ATCS49XI EQU ISTATCVT+776 05166000 ATCLCLCT EQU ATCVLCNT+2 05167000 ATCRNCNT EQU ATCVLCNT 05168000 ATCCFEAD EQU ISTATCVT+768 05169000 ATCPTR00 EQU ISTATCVT+736 05170000 ATCRSV10 EQU ISTATCVT+704 05171000 ATCTACB EQU ISTATCVT+700 05172000 ATCVTINM EQU ISTATCVT+696 05173000 ATCTCLIM EQU ISTATCVT+692 05174000 ATCTCLOM EQU ISTATCVT+688 05175000 ATCVTIPB EQU ISTATCVT+656 05176000 ATCTCIPB EQU ISTATCVT+624 05177000 ATCTIPAB EQU ISTATCVT+592 05178000 ATCOCCCB EQU ISTATCVT+588 05179000 ATCOCCOB EQU ISTATCVT+584 05180000 ATCCDLAD EQU ISTATCVT+580 05181000 ATCCCLAD EQU ISTATCVT+576 05182000 ATCDLRPB EQU ISTATCVT+544 05183000 ATCPGPAB EQU ISTATCVT+512 05184000 ATCVPAB1 EQU ISTATCVT+480 05185000 ATCRSV97 EQU ISTATCVT+476 05186000 ATCRDTLK EQU ISTATCVT+472 05187000 ATCVOCLK EQU ISTATCVT+468 05188000 ATCCDFDN EQU ISTATCVT+464 05189000 ATCCDFIN EQU ISTATCVT+460 05190000 ATCDVTLK EQU ISTATCVT+456 05191000 ATCAP36 EQU ISTATCVT+452 05192000 ATCAP35 EQU ISTATCVT+448 05193000 ATCAP33 EQU ISTATCVT+444 05194000 ATCRSV99 EQU ISTATCVT+440 05195000 ATCONFIG EQU ISTATCVT+432 05196000 ATCNODDS EQU ISTATCVT+428 05197000 ATCNODEL EQU ISTATCVT+420 05198000 ATCRSV69 EQU ISTATCVT+416 05199000 ATCAPCR5 EQU ISTATCVT+412 05200000 ATCLDECB EQU ISTATCVT+408 05201000 ATCLDNCS EQU ISTATCVT+404 05202000 ATCCDPTR EQU ISTATCVT+400 05203000 ATCADEL EQU ISTATCVT+396 05204000 ATCTODVT EQU ISTATCVT+392 05205000 ATCDEBCH EQU ISTATCVT+388 05206000 ATCHBSIZ EQU ATCHPGM+2 05207000 ATCHBFNO EQU ATCHPGM 05208000 ATCCRME EQU ISTATCVT+380 05209000 ATCRVCHS EQU ISTATCVT+372 05210000 ATCECTLP EQU ISTATCVT+368 05211000 ATCZDVTB EQU ISTATCVT+364 05212000 ATCECPRT EQU ISTATCVT+360 05213000 ATCVTLOD EQU ISTATCVT+356 05214000 ATCTRPAB EQU ISTATCVT+352 05215000 ATCMSGM EQU ISTATCVT+348 05216000 ATCMSGP EQU ISTATCVT+344 05217000 ATCEPT EQU ISTATCVT+340 05218000 ATCDVT EQU ISTATCVT+336 05219000 ATCTRCPT EQU ISTATCVT+332 05220000 ATCDVLOD EQU ISTATCVT+328 05221000 ATCALERT EQU ISTATCVT+324 05222000 ATCEPA EQU ISTATCVT+320 05223000 ATCSAF EQU ISTATCVT+318 05224000 ATCXRANG EQU ISTATCVT+317 05225000 ATCLAST EQU ATCSHRFG 05226000 ATCSHRTN EQU ISTATCVT+308 05227000 ATCUEP EQU ISTATCVT+304 05228000 ATCOCRT EQU ISTATCVT+300 05229000 ATCCSMA EQU ATCCSMR 05230000 ATCESC02 EQU ISTATCVT+292 05231000 ATCESC01 EQU ISTATCVT+288 05232000 ATCCDFND EQU ISTATCVT+284 05233000 ATCCDDEL EQU ISTATCVT+280 05234000 ATCCDADD EQU ISTATCVT+276 05235000 ATCMNT EQU ISTATCVT+272 05236000 ATCRSV16 EQU ISTATCVT+270 05237000 ATCMAXID EQU ISTATCVT+269 05238000 ATCMSGSP EQU ATCCOM+268 05239000 ATCCIDM EQU ATCCOM+266 05240000 ATCACTRM EQU ATCCOM+264 05241000 ATCNERAP EQU ATCCOM+260 05242000 ATCNESAL EQU ATCCOM+256 05243000 ATCRCC65 EQU ATCCOM+252 05244000 ATCRCC26 EQU ATCCOM+248 05245000 ATCRCC63 EQU ATCCOM+244 05246000 ATCRSV11 EQU ATCCOM+242 05247000 ATCVTMID EQU ATCCOM+240 05248000 ATCAPOST EQU ATCCOM+236 05249000 ATCNERFN EQU ATCCOM+232 05250000 ATCNERNE EQU ATCCOM+228 05251000 ATCNERCV EQU ATCCOM+224 05252000 ATCNERST EQU ATCCOM+220 05253000 ATCDCC61 EQU ATCCOM+216 05254000 ATCDCC60 EQU ATCCOM+212 05255000 ATCSRTDF EQU ATCCOM+208 05256000 ATCSRTAD EQU ATCCOM+204 05257000 ATCFIRA EQU ATCCOM+200 05258000 ATCSMBQ EQU ATCCOM+196 05259000 ATCSMRC EQU ATCCOM+192 05260000 ATCSMRS EQU ATCCOM+188 05261000 ATCSMQU EQU ATCCOM+184 05262000 ATCSMRQ EQU ATCCOM+180 05263000 ATCACDA EQU ATCCOM+176 05264000 ATCSTMA EQU ATCCOM+172 05265000 ATCFRSTR EQU ATCCOM+168 05266000 ATCGTSTR EQU ATCCOM+164 05267000 ATCREADA EQU ATCCOM+160 05268000 ATCALOAD EQU ATCCOM+156 05269000 ATCBLDLA EQU ATCCOM+152 05270000 ATCFBRPH EQU ATCCOM+148 05271000 ATCBFTRC EQU ATCCOM+144 05272000 ATCTPBUF EQU ATCTHTRC 05273000 ATCREMOV EQU ATCCOM+136 05274000 ATCADD EQU ATCCOM+132 05275000 ATCBPDA EQU ATCCOM+128 05276000 ATCDVTPT EQU ATCCOM+124 05277000 ATCFEPT EQU ATCCOM+120 05278000 ATCFDVT EQU ATCCOM+116 05279000 ATCCONFT EQU ATCCOM+112 05280000 ATCPTCHA EQU ATCCOM+108 05281000 ATCAUTHA EQU ATCCOM+104 05282000 ATCACCTA EQU ATCCOM+100 05283000 ATCRDTH EQU ATCCOM+96 05284000 ATCFRSCH EQU ATCCOM+92 05285000 ATCFSB EQU ATCCOM+88 05286000 ATCHLTMS EQU ATCCOM+84 05287000 ATCECPRM EQU ATCCOM+80 05288000 ATCECNET EQU ATCCOM+76 05289000 ATCECOPC EQU ATCCOM+72 05290000 ATCVPARM EQU ATCCOM+68 05291000 ATCECVRQ EQU ATCCOM+64 05292000 ATCECSES EQU ATCCOM+60 05293000 ATCOCHA EQU ATCCOM+56 05294000 ATCDSPLQ EQU ATCCOM+52 05295000 ATCECDSP EQU ATCCOM+48 05296000 ATCVARYQ EQU ATCCOM+44 05297000 ATCECVRY EQU ATCCOM+40 05298000 ATCHALTQ EQU ATCCOM+36 05299000 ATCECHLT EQU ATCCOM+32 05300000 ATCMODQ EQU ATCCOM+28 05301000 ATCECMOD EQU ATCCOM+24 05302000 ATCASCHD EQU ATCCOM+20 05303000 ATCSRT EQU ATCCOM+16 05304000 ATCRDT EQU ATCCOM+12 05305000 ATCDCFRR EQU ATCCOM+8 05306000 ATCAPI EQU ATCCOM+4 05307000 ATCRSV04 EQU ATCSTAT4 05308000 ATCVTTRC EQU ATCSTAT4 05309000 ATCNCSD EQU ATCSTAT4 05310000 ATCMTST EQU ATCSTAT4 05311000 ATCTPRT EQU ATCSTAT4 05312000 ATCPRTAT EQU ATCSTAT4 05313000 @NM00025 EQU ATCPOFLG 05314000 ATCPOUNS EQU ATCPOFLG 05315000 ATCHSDMF EQU ATCSTFLG 05316000 @NM00024 EQU ATCSTAT1 05317000 ATCMDHLT EQU ATCSTAT1 05318000 ATCINHLT EQU ATCSTAT1 05319000 ATCNETSL EQU ATCSTAT1 05320000 ATCQKHLT EQU ATCSTAT1 05321000 ATCSNHLT EQU ATCSTAT1 05322000 ATCACTIV EQU ATCSTAT1 05323000 ATCSTART EQU ATCSTAT1 05324000 RPHNEXPO EQU ISTRPH+104 05325000 RPHSAV16 EQU RPHWORK+60 05326000 RPHSAV15 EQU RPHWORK+56 05327000 RPHSAV14 EQU RPHWORK+52 05328000 RPHSAV13 EQU RPHWORK+48 05329000 RPHSAV12 EQU RPHWORK+44 05330000 RPHSAV11 EQU RPHWORK+40 05331000 RPHSAV10 EQU RPHWORK+36 05332000 RPHSAVE9 EQU RPHWORK+32 05333000 RPHSAVE8 EQU RPHWORK+28 05334000 RPHSAVE7 EQU RPHWORK+24 05335000 RPHSAVE6 EQU RPHWORK+20 05336000 RPHSAVE5 EQU RPHWORK+16 05337000 RPHSAVE4 EQU RPHWORK+12 05338000 RPHSAVE3 EQU RPHWORK+8 05339000 RPHSAVE2 EQU RPHWORK+4 05340000 RPHSHALF EQU RPHSAVE1+2 05341000 RPHSBIT8 EQU RPHSBITS 05342000 RPHSBIT7 EQU RPHSBITS 05343000 RPHSBIT6 EQU RPHSBITS 05344000 RPHSBIT5 EQU RPHSBITS 05345000 RPHSBIT4 EQU RPHSBITS 05346000 RPHSBIT3 EQU RPHSBITS 05347000 RPHSBIT2 EQU RPHSBITS 05348000 RPHSBIT1 EQU RPHSBITS 05349000 RPHSBYTE EQU RPHSAVE1 05350000 RPHPABQP EQU RPHPABQA+1 05351000 RPHPABFG EQU RPHPABQA 05352000 RPHSRP34 EQU RPHSRPRM+2 05353000 RPHSRP12 EQU RPHSRPRM 05354000 RPHWEGT EQU RPHCSPA 05355000 RPHMAJCB EQU ISTRPH+21 05356000 RPHPABOF EQU ISTRPH+20 05357000 RPHRESUM EQU RPHRESMA+1 05358000 RPHRSV01 EQU RPHWPFLG 05359000 RPHPURGE EQU RPHWPFLG 05360000 RPHPT EQU RPHWPFLG 05361000 RPHWT EQU RPHWPFLG 05362000 RPHRSKEY EQU RPHWPFLG 05363000 RPHDVTA EQU ISTRPH+12 05364000 RPHTIK EQU RPHTSKID+3 05365000 @NM00023 EQU RPHTSKID 05366000 RPHRPHAP EQU RPHRPHA+1 05367000 @NM00022 EQU RPHRPHA 05368000 RPHGATE EQU RPHRPHA 05369000 @NM00021 EQU RPHFLGB 05370000 RPHRLCRA EQU RPHFLGB 05371000 RPHNRSAV EQU RPHFLGB 05372000 RPHPGCMP EQU RPHFLGB 05373000 RPHFBAPS EQU RPHFLGB 05374000 RPHBSSP EQU RPHFLGB 05375000 RPHLOCK EQU RPHFLGB 05376000 RPHFNFLG EQU RPHFSTLC 05377000 RPHMLTCP EQU RPHFLAGS 05378000 RPHSMCLR EQU RPHFLAGS 05379000 RPHSMTYP EQU RPHFLAGS 05380000 RPHSMQ EQU RPHFLAGS 05381000 RPHAUTEX EQU RPHAPTYP 05382000 RPHSPGIN EQU RPHFLAGS 05383000 RPHOGIND EQU RPHFLAGS 05384000 RPHLNGTH EQU RPHCNTL+1 05385000 RPHTYPE EQU RPHCNTL 05386000 DYPPAB EQU ISTDYPAB+16 05387000 DYPRSV01 EQU ISTDYPAB+12 05388000 DYPTSKID EQU ISTDYPAB+8 05389000 DYPCHAIN EQU ISTDYPAB+4 05390000 DYPFLGS EQU ISTDYPAB+2 05391000 DYPLNGTH EQU ISTDYPAB+1 05392000 DYPTYPE EQU ISTDYPAB 05393000 PABRPHA EQU PABRPHFG+1 05394000 PABNODQ EQU PABFLAGS 05395000 PABINHBT EQU PABFLAGS 05396000 PABERLOK EQU PABERRLK 05397000 PABSSN EQU PABFLAGS 05398000 PABDYNAM EQU PABFLAGS 05399000 PABNORPR EQU PABFLAGS 05400000 PABPRIOR EQU PABFLAGS 05401000 PABAPYP EQU PABFLAGS 05402000 PABDVTA EQU ISTPAB+9 05403000 PABOFFST EQU ISTPAB+8 05404000 PABCHNGP EQU PABCHAIN+1 05405000 PABRSV02 EQU PABCHAIN 05406000 PABDELAY EQU PABCHAIN 05407000 PABRUNNG EQU PABCHAIN 05408000 PABRESET EQU PABCHAIN 05409000 PABUNCON EQU PABCHAIN 05410000 PABCDP EQU PABCHAIN 05411000 PABRESCH EQU PABCHAIN 05412000 PABCHNG EQU PABCHAIN 05413000 PABWEQP EQU PABWEQA+1 05414000 PABRSV01 EQU PABWEQA 05415000 PABWEQG EQU PABWEQA 05416000 PATRSV01 EQU PATFLAGA 05417000 PATUSEFG EQU PATFLAGA 05418000 PATRDCNT EQU ISTPAT+6 05419000 PATGRPID EQU ISTPAT+5 05420000 PATPTHID EQU ISTPAT+4 05421000 PATDINDX EQU ISTPAT+2 05422000 PATGINDX EQU ISTPAT 05423000 GNTGRPNM EQU ISTGNT 05424000 DNTTELNO EQU ISTDNT+1 05425000 DNTCTDIG EQU ISTDNT 05426000 RLSRSV02 EQU ISTRLS+140 05427000 RLSRSV01 EQU ISTRLS+138 05428000 RLSCTELU EQU ISTRLS+136 05429000 RLSPRE EQU ISTRLS 05430000 RDARSVPT EQU ISTRDA+84 05431000 RDAPUBI EQU ISTRDA+83 05432000 RDADFCUA EQU ISTRDA+80 05433000 RDACTPCC EQU ISTRDA+79 05434000 RDADACUA EQU ISTRDA+76 05435000 RDALUBA EQU RDAUCBAD+1 05436000 RDACHQI EQU RDAUCBAD 05437000 RDARSV01 EQU RDAFLAG 05438000 RDARBISA EQU RDAFLAG 05439000 RDAPRE EQU ISTRDA 05440000 RSWRSV01 EQU ISTRSW+152 05441000 RSWRSV02 EQU ISTRSW+150 05442000 RSWCTELU EQU ISTRSW+148 05443000 RSWGRUPZ EQU ISTRSW+146 05444000 RSWDIALZ EQU ISTRSW+144 05445000 RSWGRUPT EQU ISTRSW+140 05446000 RSWDIALT EQU ISTRSW+136 05447000 RSWPRE EQU ISTRSW 05448000 RLXRSV03 EQU ISTRLX+80 05449000 RLXRSV02 EQU ISTRLX+77 05450000 RLXRSV01 EQU RLXFLAGA 05451000 RLXINUSE EQU RLXFLAGA 05452000 RLXNLUX EQU ISTRLX+72 05453000 RLXPRE EQU ISTRLX 05454000 RPXRSV01 EQU ISTRPX+80 05455000 RPXRSV02 EQU ISTRPX+77 05456000 RPXMAXLU EQU ISTRPX+76 05457000 RPXFLUX EQU ISTRPX+72 05458000 RPXPRE EQU ISTRPX 05459000 RLURSV02 EQU ISTRLU+172 05460000 RLULGMOD EQU ISTRLU+164 05461000 RLUMODEP EQU RLUMODET+8 05462000 RLUMODEN EQU RLUMODET 05463000 RLUUSSPT EQU RLUUSSTB+8 05464000 RLUUSSNM EQU RLUUSSTB 05465000 RLURSV01 EQU ISTRLU+137 05466000 RLULOCAD EQU ISTRLU+136 05467000 RLUNCPPM EQU RLUNCPPC+1 05468000 RLUNCPPN EQU RLUNCPPC 05469000 RLUPACEM EQU RLUPACE+1 05470000 RLUPACEN EQU RLUPACE 05471000 RLUINTA EQU ISTRLU+128 05472000 RLUSSCFM EQU ISTRLU+127 05473000 RLUCRRSV EQU RLUCRFLG 05474000 RLUACTLU EQU RLUCRFLG 05475000 RLURSV00 EQU RLUFLAG 05476000 RLUNDSES EQU RLUFLAG 05477000 RLUGSTAT EQU RLUFLAG 05478000 RLUBATCH EQU RLUFLAG 05479000 RLUTYPE EQU ISTRLU+124 05480000 RLUCRPR EQU ISTRLU 05481000 RCCRVPT2 EQU ISTRCC+144 05482000 RCCXTOSW EQU ISTRCC+140 05483000 RCCSWTOX EQU ISTRCC+136 05484000 RCCRSPT2 EQU ISTRCC+133 05485000 RCCADDR EQU ISTRCC+132 05486000 RCCPASSL EQU ISTRCC+131 05487000 RCCMXOUT EQU ISTRCC+130 05488000 RCCMXDAT EQU ISTRCC+128 05489000 RCCINDEX EQU ISTRCC+126 05490000 RCCPATHZ EQU ISTRCC+124 05491000 RCCPATHT EQU ISTRCC+120 05492000 RCCDPQ EQU ISTRCC+116 05493000 RCCTPAB EQU ISTRCC+112 05494000 RCCRSV02 EQU ISTRCC+109 05495000 RCCCRRSV EQU RCCCRFLG 05496000 RCCCTCFL EQU RCCCRFLG 05497000 RCCACTPU EQU RCCCRFLG 05498000 RCCNCSPL EQU ISTRCC+104 05499000 RCCRPHCN EQU ISTRCC+100 05500000 RCCEPAB EQU ISTRCC+96 05501000 RCCDPAB EQU ISTRCC+92 05502000 RCCVPAB EQU ISTRCC+88 05503000 @NM00020 EQU ISTRCC+87 05504000 RCCSESCT EQU ISTRCC+86 05505000 RCCIDNUM EQU RCCID48+3 05506000 RCCIDBLK EQU RCCID48+2 05507000 RCCIDPA2 EQU RCCID48+1 05508000 RCCIDPUT EQU RCCID48 05509000 RCCIDPA1 EQU RCCSTAID 05510000 RCCCTELU EQU ISTRCC+76 05511000 RCCCNCNT EQU ISTRCC+75 05512000 RCCRTGOH EQU RCCFLAGB 05513000 RCCBRKCN EQU RCCFLAGB 05514000 RCCRESET EQU RCCFLAGB 05515000 RCCFINAL EQU RCCFLAGB 05516000 RCCBNNSP EQU RCCFLAGB 05517000 RCCIRETR EQU RCCFLAGB 05518000 RCCDIALP EQU RCCFLAGB 05519000 RCCDSTCT EQU RCCFLAGB 05520000 RCCCTPGD EQU RCCFLAG 05521000 RCCPRGDN EQU RCCFLAG 05522000 RCCOUERP EQU RCCFLAG 05523000 RCCOHIMM EQU RCCFLAG 05524000 RCCLDISC EQU RCCFLAG 05525000 RCCERPIP EQU RCCFLAG 05526000 RCCCUDIE EQU RCCFLAG 05527000 RCCTYPE EQU ISTRCC+72 05528000 RCCPRE EQU ISTRCC 05529000 DOTADTRM EQU ISTDOT 05530000 RDSADDOT EQU ISTRDS+76 05531000 RDSCTATR EQU ISTRDS+74 05532000 RDSCTTRM EQU ISTRDS+72 05533000 RDSPRE EQU ISTRDS 05534000 RINRSV05 EQU ISTRIN+156 05535000 RINRSV04 EQU ISTRIN+152 05536000 RINLOCRN EQU ISTRIN+148 05537000 RINRSV02 EQU ISTRIN+145 05538000 RTRCNCNT EQU RINCNCNT 05539000 RTRNCSPL EQU RINNCSPL 05540000 RTRRPHCN EQU RINRPHCN 05541000 RTRVPAB EQU RINVPAB 05542000 RTRREMOT EQU RINREMOT 05543000 RTRRLDAF EQU RINRLDAF 05544000 RTRNODID EQU RINNODID 05545000 RINRSV01 EQU RINDFD 05546000 RTRLDISC EQU RINLDISC 05547000 RTRNODEF EQU RINNODEF 05548000 RTRREMPO EQU RINREMPO 05549000 RINCRPRE EQU ISTRIN 05550000 RTRRSV04 EQU ISTRTR+210 05551000 RTRLCTI EQU ISTRTR+209 05552000 RTRIDCAS EQU RTRBSCID+1 05553000 RTRIDLEN EQU RTRBSCID 05554000 RTRRSVDD EQU ISTRTR+181 05555000 RTRRDFG EQU ISTRTR+180 05556000 RTRDIAA EQU ISTRTR+176 05557000 RTRPOLA EQU ISTRTR+172 05558000 RTRCADDR EQU ISTRTR+164 05559000 RTRCTADR EQU ISTRTR+162 05560000 RTRCTPOL EQU ISTRTR+160 05561000 RTRCTDIA EQU ISTRTR+158 05562000 RTRRSV03 EQU ISTRTR+156 05563000 RTRRVPT1 EQU ISTRTR+152 05564000 RTRBHSN1 EQU ISTRTR+144 05565000 RTRCRSV2 EQU RTRCRFLG 05566000 RTRDTRLM EQU RTRLSCMD 05567000 RTRCRSV1 EQU RTRCRFLG 05568000 RTRTRMAX EQU ISTRTR+142 05569000 RTRRSV24 EQU RTRRDFF 05570000 RTRRFDEK EQU RTRRDFF 05571000 RTRRFANK EQU RTRRDFF 05572000 RTRRFPFK EQU RTRRDFF 05573000 RTRRFPEN EQU RTRRDFF 05574000 RTRRFXCT EQU RTRRDFF 05575000 RTRRESCT EQU RTRRDFE 05576000 RTRRESUP EQU RTRRDFE 05577000 RTRREATT EQU RTRRDFE 05578000 RTRRECHK EQU RTRRDFE 05579000 RTRREACR EQU RTRRDFE 05580000 RTRRSV0A EQU RTRRDFE 05581000 RTRREBRK EQU RTRRDFE 05582000 RTRRSV11 EQU RTRRDFD 05583000 RTRRSV10 EQU RTRRDFD 05584000 RTRRDBHI EQU RTRRDFD 05585000 RTRRDBHD EQU RTRRDFD 05586000 RTRRDBHN EQU RTRRDFD 05587000 RTRRSV23 EQU RTRRDFC 05588000 RTRRCXMS EQU RTRRDFC 05589000 RTRRCMSG EQU RTRRDFC 05590000 RTRRCBLK EQU RTRRDFC 05591000 RTRRCPT3 EQU RTRRDFC 05592000 RTRRCIT2 EQU RTRRDFC 05593000 RTRRCIT1 EQU RTRRDFC 05594000 RTRRSV32 EQU RTRRDFB 05595000 RTRRBEND EQU RTRRDFB 05596000 RTRRBECT EQU RTRRDFB 05597000 RTRRSV02 EQU RTRRDFA 05598000 RTRRACTR EQU RTRRDFA 05599000 RTRRSV60 EQU RTRRDFA 05600000 RTRRACDT EQU RTRRDFA 05601000 RTRRAPT3 EQU RTRRAALL 05602000 RTRRAPT2 EQU RTRRAALL 05603000 RTRRAPT1 EQU RTRRAALL 05604000 RTRRAATN EQU RTRRDFA 05605000 RTRRSV45 EQU ISTRTR+132 05606000 RTRRSV01 EQU ISTRTR+130 05607000 RTRCTECM EQU ISTRTR+128 05608000 RTRADRPT EQU RTRADR+1 05609000 RTRRSV22 EQU RTRFLAG 05610000 RTRVTERM EQU RTRFLAG 05611000 RTRRSV51 EQU RTRFLAG 05612000 RTRRBISA EQU RTRFLAG 05613000 RTRRSV21 EQU RTRFLAG 05614000 RTRCRPR EQU ISTRTR 05615000 RCLRVPT2 EQU ISTRCL+92 05616000 RCLRVPT1 EQU ISTRCL+88 05617000 RCLGPOLA EQU ISTRCL+84 05618000 RCLCTNGP EQU ISTRCL+82 05619000 RCLRSV01 EQU ISTRCL+80 05620000 RCLCTECM EQU ISTRCL+78 05621000 RCLCTETR EQU ISTRCL+76 05622000 RCLGPADR EQU RCLADR+1 05623000 RCLRSV33 EQU RCLFLAG 05624000 RCLBATCH EQU RCLFLAG 05625000 RCLRBISA EQU RCLFLAG 05626000 RCLRSV22 EQU RCLFLAG 05627000 RCLPRE EQU ISTRCL 05628000 RPTRSV03 EQU ISTRPT+156 05629000 RPTRSV02 EQU ISTRPT+152 05630000 RPTNSNSV EQU ISTRPT+148 05631000 RPTPTHCT EQU ISTRPT+146 05632000 RPTPEPCT EQU ISTRPT+144 05633000 RPTDAFSV EQU ISTRPT+142 05634000 RPTRSV01 EQU ISTRPT+141 05635000 RPTISTAT EQU RPTFLAG1 05636000 RPTDYNAM EQU RPTFLAG1 05637000 RPTVYIMM EQU RPTFLAG1 05638000 RPTVIODN EQU RPTFLAG1 05639000 RPTONLIN EQU RPTFLAG1 05640000 RPTHLVPD EQU RPTFLAG1 05641000 RPTVRYPD EQU RPTFLAG1 05642000 RPTASLEP EQU RPTFLAG1 05643000 RPTUTERM EQU ISTRPT+136 05644000 RPTATERM EQU ISTRPT+132 05645000 RPTDIVT EQU RPTDITT 05646000 RPTCTNM EQU ISTRPT+120 05647000 RPTLNDAF EQU RPTLNCID+2 05648000 RPTLNSAF EQU RPTLNCID 05649000 RPTLN EQU ISTRPT 05650000 RLNRVPT2 EQU ISTRLN+112 05651000 RLNNCSPL EQU ISTRLN+108 05652000 RLNX2SW EQU ISTRLN+104 05653000 @NM00019 EQU ISTRLN+103 05654000 RLNCRRSV EQU RLNCRFLG 05655000 RLNSWEP EQU RLNCRFLG 05656000 RLNSVSKP EQU RLNLSCMD 05657000 RLNSESLM EQU RLNLSCMD 05658000 RLNNPRLM EQU RLNLSCMD 05659000 RLNSWNCP EQU RLNCRFLG 05660000 RLNACTLN EQU RLNCRFLG 05661000 RLNPAUSE EQU ISTRLN+101 05662000 RLNPOLMT EQU ISTRLN+100 05663000 RLNACTSN EQU ISTRLN+98 05664000 RLNRESV1 EQU ISTRLN+97 05665000 RLNACTRM EQU ISTRLN+96 05666000 RLNCTSES EQU ISTRLN+95 05667000 RLNRDSLM EQU ISTRLN+94 05668000 RLNAUTOA EQU ISTRLN+92 05669000 RLNRDFD EQU RLNRDF+3 05670000 RLNRDFC EQU RLNRDF+2 05671000 RLNMULTP EQU RLNRDFB 05672000 RLNRATRN EQU RLNRDFB 05673000 RLNRAPOL EQU RLNRDFB 05674000 RLNTTV EQU RLNRDFB 05675000 RLNRSV0B EQU RLNRDFB 05676000 RLNAUTOD EQU RLNRDFB 05677000 RLNANSWR EQU RLNRDFB 05678000 RLNRBUSE EQU RLNRDFB 05679000 RLNRAPEP EQU RLNRDFA 05680000 RLNRANCP EQU RLNRDFA 05681000 RLNRAEP EQU RLNRDFA 05682000 RLNIDV EQU RLNRDFA 05683000 RLNPORT EQU RLNRDFA 05684000 RLNGANSW EQU RLNRDFA 05685000 RLNRACAN EQU RLNRACNT 05686000 RLNRACAT EQU RLNRACNT 05687000 RLNRSV04 EQU RLNSTAT2 05688000 RLNINUSE EQU RLNSTAT2 05689000 RLNOHIN EQU RLNSTAT2 05690000 RLNRSV03 EQU RLNSTAT1 05691000 RLNVD EQU RLNSTAT1 05692000 RLNINOPP EQU RLNSTAT1 05693000 RLNINOPL EQU RLNSTAT1 05694000 RLNLRST EQU RLNSTAT1 05695000 RLNTRAP EQU RLNSTAT1 05696000 RLNACTCT EQU ISTRLN+84 05697000 RLNCTECM EQU ISTRLN+82 05698000 RLNCTEIN EQU ISTRLN+80 05699000 RLNCTETR EQU ISTRLN+78 05700000 RLNCTECL EQU ISTRLN+76 05701000 RLNCUA EQU RLNUCBAD 05702000 RLNRSV01 EQU RLNFLAG 05703000 RLNRBISA EQU RLNFLAG 05704000 RLNEAM EQU RLNFLAG 05705000 RLNPRE EQU ISTRLN 05706000 RGPRVPT2 EQU ISTRGP+88 05707000 RGPRVPT1 EQU ISTRGP+84 05708000 RGPCTECM EQU ISTRGP+82 05709000 RGPCTEIN EQU ISTRGP+80 05710000 RGPCTETR EQU ISTRGP+78 05711000 RGPCTECL EQU ISTRGP+76 05712000 RGPCTELN EQU ISTRGP+74 05713000 RGPRSV03 EQU ISTRGP+73 05714000 RGPRSV02 EQU RGPFLG 05715000 RGPASDLC EQU RGPFLG 05716000 RGPABSC EQU RGPFLG 05717000 RGPASS EQU RGPFLG 05718000 RGPADIL EQU RGPFLG 05719000 RGPPRE EQU ISTRGP 05720000 RRNRINNM EQU ISTRRN+248 05721000 @NM00018 EQU ISTRRN+247 05722000 RRNRDCUA EQU ISTRRN+244 05723000 RRNLASTE EQU ISTRRN+240 05724000 RRNNCSPL EQU ISTRRN+236 05725000 RRNRPLPT EQU ISTRRN+232 05726000 RRNMSIZE EQU ISTRRN+228 05727000 RRNNCPNM EQU ISTRRN+221 05728000 RRNCTPCC EQU ISTRRN+220 05729000 RRNHBUFS EQU ISTRRN+218 05730000 RRNHLENT EQU RRNHPRE+1 05731000 RRNHLENH EQU RRNHPRE 05732000 RRNNMNCP EQU ISTRRN+208 05733000 RRNDELAY EQU ISTRRN+206 05734000 RRNRSV04 EQU ISTRRN+200 05735000 RRNRSV88 EQU RRNNMDPD+7 05736000 RRNPUBI EQU RRNNMDPD+6 05737000 RRNDPLUB EQU RRNNMDPD 05738000 RRNEPADR EQU ISTRRN+190 05739000 RRNCPLUB EQU ISTRRN+184 05740000 RRNFLUX EQU ISTRRN+180 05741000 RRNRSV05 EQU RRNCMFD 05742000 RRNREMPO EQU RRNCMFD 05743000 RRNCDREC EQU RRNCMFD 05744000 RRNCDDSI EQU RRNCMFD 05745000 RRNCDBCK EQU RRNCMFD 05746000 RRNCDDTL EQU RRNCMFD 05747000 RRNCDSTD EQU RRNCMFD 05748000 RRNCDCSP EQU RRNCMFD 05749000 RRNCCCSL EQU RRNCMFC 05750000 RRNCCSIM EQU RRNCMFC 05751000 RRNCCRCM EQU RRNCMFC 05752000 RRNCCRIM EQU RRNCMFC 05753000 RRNCCCRC EQU RRNCMFC 05754000 RRNCCRST EQU RRNCMFC 05755000 RRNCCRDQ EQU RRNCMFC 05756000 RRNCCRCN EQU RRNCMFC 05757000 RRNCBALT EQU RRNCMFB 05758000 RRNCBMOD EQU RRNCMFB 05759000 RRNCBNPL EQU RRNCMFB 05760000 RRNCBRLS EQU RRNCMFB 05761000 RRNCBRDS EQU RRNCMFB 05762000 RRNCBDLR EQU RRNCMFB 05763000 RRNCBDLH EQU RRNCMFB 05764000 RRNCBDLO EQU RRNCMFB 05765000 RRNCADGO EQU RRNCMFA 05766000 RRNCADTD EQU RRNCMFA 05767000 RRNCACDT EQU RRNCMFA 05768000 RRNCAMBH EQU RRNCMFA 05769000 RRNCAATI EQU RRNCMFA 05770000 RRNCAATG EQU RRNCMFA 05771000 RRNCAATD EQU RRNCMFA 05772000 RRNCAALL EQU RRNCMFA 05773000 RRNRSV55 EQU RRNRDF+3 05774000 RRNPTASL EQU RRNRDFB+1 05775000 RRNRSV01 EQU RRNRDFB+1 05776000 RRNVYDON EQU RRNRDFB+1 05777000 RRNRBBUP EQU RRNRDFB+1 05778000 RRNRSV03 EQU RRNRDFB 05779000 RRNRBCT2 EQU RRNRDFB 05780000 RRNRBCT1 EQU RRNRDFB 05781000 RRNRBSEC EQU RRNRDFB 05782000 RRNRBCCT EQU RRNRDFB 05783000 RRNRBCCL EQU RRNRDFB 05784000 RRNRSV02 EQU RRNRDFB 05785000 RRNRBMDL EQU RRNRDFB 05786000 RRNRAPEP EQU RRNRDFA 05787000 RRNRANCP EQU RRNRDFA 05788000 RRNRBREM EQU RRNRDFA 05789000 RRNRAOLT EQU RRNRDFA 05790000 RRNRASYN EQU RRNRDFA 05791000 RRNRADMP EQU RRNRDFA 05792000 RRNRAIPL EQU RRNRDFA 05793000 RRNRASHT EQU RRNRDFA 05794000 RRNCTENT EQU ISTRRN+170 05795000 RRNCTECM EQU ISTRRN+168 05796000 RRNCTEIN EQU ISTRRN+166 05797000 RRNCTETR EQU ISTRRN+164 05798000 RRNCTECL EQU ISTRRN+162 05799000 RRNCTELI EQU ISTRRN+160 05800000 RRNCTEGP EQU ISTRRN+158 05801000 RRNCTBHS EQU ISTRRN+156 05802000 RRNBHSET EQU ISTRRN+152 05803000 RRNTRENT EQU ISTRRN+148 05804000 RRNRLDIP EQU ISTRRN+147 05805000 RRNRNCUA EQU ISTRRN+144 05806000 RRNGRPA EQU ISTRRN+140 05807000 RRNLUBA EQU RRNUCBAD+1 05808000 RRNCHQI EQU RRNUCBAD 05809000 RRNRSV11 EQU RRNFLAG 05810000 RRNDSTCT EQU RRNFLAG 05811000 RRNERPIP EQU RRNFLAG 05812000 RRNLCDIP EQU RRNFLAG 05813000 RRNLCDIE EQU RRNFLAG 05814000 RRNLCSIP EQU RRNFLAG 05815000 RRNRBISA EQU RRNFLAG 05816000 RRNRSV89 EQU RRNFLAG 05817000 RRNPRE EQU ISTRRN 05818000 RLCRVPT2 EQU ISTRLC+80 05819000 RLCRVPT1 EQU ISTRLC+79 05820000 RLCLCCUA EQU ISTRLC+76 05821000 RLCUCBAD EQU RLCADR+1 05822000 RLCRSVDE EQU RLCFLAG 05823000 RLCACNT EQU RLCFLAG 05824000 RLCRSV14 EQU RLCFLAG 05825000 RLCRBISA EQU RLCFLAG 05826000 RLCRSV22 EQU RLCFLAG 05827000 RLCPRE EQU ISTRLC 05828000 RAPRVPT2 EQU ISTRAP+116 05829000 RAPRVPT1 EQU ISTRAP+112 05830000 RAPBFACT EQU ISTRAP+111 05831000 RAPRSV17 EQU RAPFLGC 05832000 RAPRSV16 EQU RAPFLGC 05833000 RAPRSV15 EQU RAPFLGC 05834000 RAPRSV14 EQU RAPFLGC 05835000 RAPRSV13 EQU RAPFLGC 05836000 RAPRSV12 EQU RAPFLGC 05837000 RAPRSV11 EQU RAPFLGC 05838000 RAPRSV10 EQU RAPFLGC 05839000 RAPANVPC EQU RAPFLGB 05840000 RAPASPO EQU RAPFLGB 05841000 RAPAPPO EQU RAPFLGB 05842000 RAPAACQ EQU RAPFLGB 05843000 RAPAPRMT EQU RAPFLGB 05844000 RAPAPASS EQU RAPFLGB 05845000 RAPABLCK EQU RAPFLGB 05846000 RAPALLF EQU RAPFLGB 05847000 RAPRSV06 EQU RAPFLG 05848000 RAPRSV05 EQU RAPFLG 05849000 RAPRSV04 EQU RAPFLG 05850000 RAPRSV03 EQU RAPFLG 05851000 RAPATLGN EQU RAPFLG 05852000 RAPASLGI EQU RAPFLG 05853000 RAPAQUI EQU RAPFLG 05854000 RAPABLGN EQU RAPFLG 05855000 RAPACEQD EQU ISTRAP+106 05856000 RAPTRPRE EQU ISTRAP+104 05857000 RAPACEAP EQU ISTRAP+100 05858000 RAPICEAQ EQU ISTRAP+96 05859000 RAPICEAC EQU ISTRAP+92 05860000 RAPICELG EQU ISTRAP+88 05861000 RAPAPPWD EQU ISTRAP+80 05862000 RAPACDEB EQU ISTRAP+76 05863000 RAPACBA EQU ISTRAP+72 05864000 RAPPRE EQU ISTRAP 05865000 RDTVSRPL EQU ISTRDT+132 05866000 RDTCRSPW EQU ISTRDT+124 05867000 RDTCRSDS EQU ISTRDT+116 05868000 @NM00017 EQU ISTRDT+113 05869000 RRNSTCNT EQU RDTSTCNT 05870000 RRNVYRPH EQU RDTVYRPH 05871000 RDTTPAB EQU ISTRDT+104 05872000 RDTDPAB EQU ISTRDT+100 05873000 RDTEPAB EQU ISTRDT+96 05874000 RDTVPAB EQU ISTRDT+92 05875000 RDTRSV01 EQU RDTFLAGB 05876000 RDTBHSET EQU RDTFLAGB 05877000 RDTCTCFL EQU RDTFLAGB 05878000 RDTCTPGD EQU RDTFLAGB 05879000 RDTPRGDN EQU RDTFLAGB 05880000 RDTOUERP EQU RDTFLAGB 05881000 RDTLGCT EQU ISTRDT+90 05882000 RDTNODID EQU ISTRDT+89 05883000 RDTMAXID EQU ISTRDT+88 05884000 RDTCTSNT EQU ISTRDT+86 05885000 RDTFLAGS EQU ISTRDT+84 05886000 RDTBACK EQU ISTRDT+80 05887000 RDTFORW EQU ISTRDT+76 05888000 RDTLEN EQU RDTPLEN+1 05889000 RDTPRILS EQU RDTPRIOR 05890000 RDTPRISW EQU RDTPRIOR 05891000 RDTPRIRN EQU RDTPRIOR 05892000 RDTPRILC EQU RDTPRIOR 05893000 RDTPRIAP EQU RDTPRIOR 05894000 @NM00016 EQU RDTPRIOR 05895000 RDTPRE EQU ISTRDT 05896000 RCPRSV05 EQU ISTRCPRE+120 05897000 RCPRSV04 EQU ISTRCPRE+116 05898000 RCPRSV03 EQU ISTRCPRE+112 05899000 RCPINTA EQU RCPLGNIN+16 05900000 RCPLGNCT EQU RCPLGNIN+8 05901000 RCPLGNAP EQU RCPLGNIN 05902000 @NM00015 EQU RCPPMODE 05903000 RCPRRECD EQU RCPPMODE 05904000 RCPRBASC EQU RCPPMODE 05905000 RCPBFLIM EQU ISTRCPRE+90 05906000 RCPBHSI2 EQU ISTRCPRE+89 05907000 RCPBHSI1 EQU ISTRCPRE+88 05908000 RCPACETR EQU ISTRCPRE+84 05909000 RCPICEAQ EQU ISTRCPRE+80 05910000 RCPLNAPA EQU ISTRCPRE+76 05911000 RCPICELN EQU ISTRCPRE+72 05912000 RCPPRE EQU ISTRCPRE 05913000 RPRCONID EQU ISTRPRE+63 05914000 RPRCLVPD EQU RPRFLAGC 05915000 RPRINIMM EQU RPRFLAGD 05916000 RPRRSV05 EQU RPRFLAGD 05917000 RPRCONP EQU RPRFLAGD 05918000 RPRACTP EQU RPRFLAGD 05919000 RPRRSON EQU RPRFLAGD 05920000 RPRCONCT EQU RPRFLAGD 05921000 RPRLTASN EQU RPRFLAGD 05922000 RPRSWDAF EQU ISTRPRE+58 05923000 RPRSTPCT EQU ISTRPRE+56 05924000 RPRRVPT1 EQU ISTRPRE+52 05925000 RPRDEVCH EQU ISTRPRE+44 05926000 RPRNCBA EQU ISTRPRE+40 05927000 RPRNSNEA EQU ISTRPRE+36 05928000 RPRLGONB EQU ISTRPRE+32 05929000 RPRLGONF EQU ISTRPRE+28 05930000 RPRHDTYP EQU ISTRPRE+27 05931000 RPRTIOCT EQU ISTRPRE+26 05932000 RPRPEPCT EQU ISTRPRE+24 05933000 RPRRSV03 EQU RPRCAUSE 05934000 RPRRSYNC EQU RPRCAUSE 05935000 RPRCRCPT EQU RPRCAUSE 05936000 RPRNOSRT EQU RPRCAUSE 05937000 RPRINTST EQU RPRFLAGB 05938000 RPRVYIMM EQU RPRFLAGB 05939000 RPRHLVPD EQU RPRFLAGB 05940000 RPRVIODN EQU RPRFLAGB 05941000 RPRAOPN EQU RPRFLAGB 05942000 RPRENTVT EQU RPRFLAGB 05943000 RPRENTVH EQU RPRFLAGB 05944000 RPRVRYPD EQU RPRFLAGA 05945000 RPRENTIO EQU RPRFLAGA 05946000 RPRENTBF EQU RPRFLAGA 05947000 RPRTIED EQU RPRFLAGA 05948000 RPRACT EQU RPRFLAGA 05949000 RPRPELEN EQU ISTRPRE+18 05950000 RPRRLOCK EQU ISTRPRE+12 05951000 RPRDAF EQU RPRCOMID+2 05952000 RPRSAF EQU RPRCOMID 05953000 RPRNAME EQU ISTRPRE 05954000 DEVRSV03 EQU ISTDEVCH+5 05955000 DEVPHYSA EQU ISTDEVCH+4 05956000 DEVCSLPN EQU DEVCHAR3 05957000 DEVCSTCL EQU DEVCHAR3 05958000 DEVCCHEK EQU DEVCHAR3 05959000 DEVCATTN EQU DEVCHAR3 05960000 DEVCSWL EQU DEVFCCTL 05961000 DEVCRVB EQU DEVFCCTL 05962000 DEVCSSL EQU DEVFCCTL 05963000 DEVCBSC EQU DEVFCCTL 05964000 DEVMCODE EQU ISTDEVCH+2 05965000 DEVCHAR2 EQU DEVTCODE 05966000 DEVRSV01 EQU DEVCHAR 05967000 DEVCCTL EQU DEVCHAR 05968000 DEVNNSPT EQU DEVCHAR 05969000 DEVSPS EQU DEVCHAR 05970000 DEVSUBND EQU DEVCHAR 05971000 DEVCONVR EQU DEVCHAR 05972000 DEVOTPUT EQU DEVCHAR 05973000 DEVINPUT EQU DEVCHAR 05974000 LOKXCL EQU @NM00013 05975000 LOKPRY EQU @NM00013 05976000 @NM00014 EQU @NM00013 05977000 @NM00012 EQU LOKCHNG 05978000 LOKCT EQU ISTLOK 05979000 NCSAPPAB EQU NCSAPP+608 05980000 NCSAPDAT EQU NCSAPBUE+8 05981000 NCSAPRU EQU NCSAPBUE+3 05982000 NCSRSV04 EQU NCSAPBUE 05983000 NCSAPEND EQU NCSAPP+84 05984000 NCSAPTXT EQU NCSAPP+76 05985000 NCSAPECB EQU NCSAPP+72 05986000 NCSAPSA EQU NCSAPP 05987000 NCSPLPDB EQU NCSPLSID+5 05988000 NCSPLNID EQU NCSPLPHD 05989000 NCSPLPO EQU NCSPLSTA 05990000 NCSRSVD4 EQU NCSPLSTA 05991000 NCSRSVD2 EQU NCSCRMOD 05992000 NCSPTMOD EQU NCSCRMOD 05993000 NCSRSVD1 EQU NCSCHKPT+1 05994000 NCSPTUSE EQU NCSCHKPT+1 05995000 NCSRNME EQU NCSCHKPT+1 05996000 NCSCUA EQU NCSCHKPT+1 05997000 NCSANSMD EQU NCSCHKPT+1 05998000 NCSLGMOD EQU NCSCHKPT 05999000 NCSLGAPL EQU NCSCHKPT 06000000 NCSDTRLM EQU NCSCHKPT 06001000 NCSESLM EQU NCSCHKPT 06002000 NCSNRPL EQU NCSCHKPT 06003000 NCSPOLD EQU NCSCHKPT 06004000 NCSPACTV EQU NCSCHKPT 06005000 NCSCRDTE EQU ISTNCSPL+264 06006000 NCSPLRTY EQU ISTNCSPL+263 06007000 NCSPLRH EQU ISTNCSPL+260 06008000 NCSUFMCB EQU ISTNCSPL+256 06009000 NCSMGLPT EQU ISTNCSPL+252 06010000 NCSCPWPT EQU ISTNCSPL+248 06011000 NCSSENS2 EQU NCSSENSE+2 06012000 NCSSNS2 EQU NCSSENSE+1 06013000 NCSSNS1 EQU NCSSENSE 06014000 NCSPLNSN EQU ISTNCSPL+240 06015000 NCSPLMID EQU ISTNCSPL+232 06016000 NCSPLPID EQU ISTNCSPL+231 06017000 NCSPLGID EQU ISTNCSPL+230 06018000 NCSPLSQN EQU ISTNCSPL+228 06019000 NCSRNAME EQU ISTNCSPL+220 06020000 NCSPLRUI EQU ISTNCSPL+212 06021000 NCSPLRUO EQU ISTNCSPL+208 06022000 NCSPLRRP EQU ISTNCSPL+204 06023000 NCSPLWEL EQU ISTNCSPL+200 06024000 NCSPLSPL EQU ISTNCSPL+196 06025000 NCSPLP3 EQU ISTNCSPL+192 06026000 NCSPLP2 EQU ISTNCSPL+188 06027000 NCSPLP1 EQU ISTNCSPL+184 06028000 NCSPLOLN EQU ISTNCSPL+182 06029000 @NM00011 EQU NCSPLFL5 06030000 NCSFORCE EQU NCSPLFL5 06031000 NCSSDLK EQU NCSPLFL5 06032000 NCSSCPPS EQU NCSPLFL5 06033000 NCSDLRSN EQU ISTNCSPL+180 06034000 NCSPL2AP EQU NCSPLFL4 06035000 NCSDSPN EQU NCSPLFL4 06036000 NCSDSPI EQU NCSPLFL4 06037000 NCSDSPA EQU NCSPLFL4 06038000 NCSDSPE EQU NCSPLFL4 06039000 NCSPLVID EQU NCSPLFL4 06040000 NCSPLRSO EQU NCSPLFL4 06041000 NCSDLNID EQU NCSPLFL4 06042000 NCSEND EQU NCSPLFL3 06043000 NCSFINAL EQU NCSPLFL3 06044000 NCSANS EQU NCSPLFL3 06045000 NCSPID EQU NCSPLFL3 06046000 NCSGID EQU NCSPLFL3 06047000 NCSPLANS EQU NCSPLFL3 06048000 NCSEPP EQU NCSPLFL3 06049000 NCSPLMOM EQU NCSPLFL3 06050000 NCSPLVIT EQU NCSPLFL2 06051000 NCSPLVIS EQU NCSPLFL2 06052000 NCSREMPO EQU NCSPLFL2 06053000 NCSPLDS EQU NCSPLFL2 06054000 NCSOUFMC EQU NCSPLFL2 06055000 NCSPLRIO EQU NCSPLFL2 06056000 NCSPLRSF EQU NCSPLFL2 06057000 NCSPLVDP EQU NCSPLFL2 06058000 NCSPLPOS EQU NCSPLFL1 06059000 NCSPL2CN EQU NCSPLFL1 06060000 NCSPLAPU EQU NCSPLFL1 06061000 NCSPLNON EQU NCSPLFL1 06062000 NCSPLREQ EQU NCSPLFL1 06063000 NCSPLEBN EQU NCSPLFL1 06064000 NCSPLSOM EQU NCSPLFL1 06065000 NCSPLRCR EQU ISTNCSPL+172 06066000 NCSPLECB EQU ISTNCSPL+164 06067000 NCSPLDAF EQU NCSPLCID+2 06068000 NCSPLSAF EQU NCSPLCID 06069000 NCSPLRCD EQU NCSPLRAD+1 06070000 NCSLSCMD EQU NCSPLRAD 06071000 NCSPLWRF EQU ISTNCSPL+72 06072000 NCSPLWRE EQU ISTNCSPL+68 06073000 NCSSTCMD EQU NCSCRFLG 06074000 NCSUSRNF EQU NCSCRFLG 06075000 NCSOPRQU EQU NCSCRFLG 06076000 NCSCRDSE EQU NCSCRFLG 06077000 NCSFMERP EQU NCSCRFLG 06078000 NCSFMCLD EQU NCSCRFLG 06079000 NCSPLCLD EQU NCSCRFLG 06080000 NCSPLWRM EQU NCSCRFLG 06081000 NCSPLUAD EQU ISTNCSPL+64 06082000 NCSMSGSP EQU ISTNCSPL+63 06083000 NCSNCPEP EQU ISTNCSPL+62 06084000 NCSCMDB EQU NCSPLCMD+1 06085000 @NM00010 EQU NCSCMDA 06086000 NCSPLUFM EQU NCSCMDA 06087000 NCSPLFLO EQU NCSCMDA 06088000 NCSPLSYN EQU NCSCMDA 06089000 NCSPLCTL EQU NCSCMDA 06090000 NCSPLSYS EQU NCSCMDA 06091000 NCSPLLPT EQU ISTNCSPL+56 06092000 NCSCRPID EQU ISTNCSPL+51 06093000 NCSCRCMD EQU ISTNCSPL+50 06094000 NCSDLID EQU ISTNCSPL+44 06095000 NCSPLLID EQU ISTNCSPL+36 06096000 NCSPLRID EQU ISTNCSPL+28 06097000 NCSRRNPT EQU ISTNCSPL+24 06098000 NCSIORC EQU ISTNCSPL+23 06099000 NCSPRMRC EQU ISTNCSPL+22 06100000 NCSOVFMC EQU NCSPLVF1 06101000 NCSRSV02 EQU NCSPLVFL 06102000 NCSDACLK EQU NCSPLVFL 06103000 NCSABCON EQU NCSPLVFL 06104000 NCSDCONT EQU NCSPLVFL 06105000 NCSVSTAT EQU NCSPLVFL 06106000 NCSVDEL EQU NCSPLVFL 06107000 NCSVNCSA EQU NCSPLVFL 06108000 NCSVBF16 EQU NCSPLVBF+1 06109000 NCSVBF15 EQU NCSPLVBF+1 06110000 NCSVBF14 EQU NCSPLVBF+1 06111000 NCSVBF13 EQU NCSPLVBF+1 06112000 NCSVBF12 EQU NCSPLVBF+1 06113000 NCSVBF11 EQU NCSPLVBF+1 06114000 NCSVBF10 EQU NCSPLVBF+1 06115000 NCSVBF09 EQU NCSPLVBF+1 06116000 NCSVBF08 EQU NCSPLVBF 06117000 NCSVBF07 EQU NCSPLVBF 06118000 NCSVBF06 EQU NCSPLVBF 06119000 NCSVBF05 EQU NCSPLVBF 06120000 NCSVBF04 EQU NCSPLVBF 06121000 NCSVBF03 EQU NCSPLVBF 06122000 NCSVBF02 EQU NCSPLVBF 06123000 NCSVBF01 EQU NCSPLVBF 06124000 NCSPLVCD EQU ISTNCSPL+17 06125000 @NM00009 EQU ISTNCSPL+16 06126000 NCSCRWKA EQU NCSPFX+12 06127000 @NM00008 EQU NCSPFX 06128000 PFXBCK EQU ISTPFX+12 06129000 PFXFWD EQU ISTPFX+8 06130000 PFXLNG EQU ISTPFX+5 06131000 PFXPRTY EQU ISTPFX+4 06132000 PFXCBID EQU PFXID 06133000 POHID EQU ISTPOHD+2 06134000 POHGEN EQU POHSTAT 06135000 POHRREQ EQU POHSTAT 06136000 POHRSVD2 EQU POHSTAT 06137000 POHCNTRL EQU POHSTAT 06138000 POHLBL EQU POHSTAT 06139000 POHDATA EQU POHSTAT 06140000 POHEND EQU POHSTAT 06141000 POHRSVD1 EQU ISTPOHD 06142000 CVTLEVL EQU CVTRELNO+2 06143000 CVTNUMB EQU CVTRELNO 06144000 CVTMDL EQU CVTFIX+250 06145000 @NM00002 EQU CVTFIX+248 06146000 @NM00001 EQU CVTFIX 06147000 CVTRV482 EQU CVTXTNT2+128 06148000 CVTRV481 EQU CVTXTNT2+124 06149000 CVTRV480 EQU CVTXTNT2+120 06150000 CVTRV479 EQU CVTXTNT2+118 06151000 CVTRV478 EQU CVTXTNT2+117 06152000 CVTRV477 EQU CVTXTNT2+116 06153000 CVTRV476 EQU CVTXTNT2+115 06154000 CVTRV475 EQU CVTXTNT2+114 06155000 CVTRV474 EQU CVTRV466 06156000 CVTRV473 EQU CVTRV466 06157000 CVTRV472 EQU CVTRV466 06158000 CVTRV471 EQU CVTRV466 06159000 CVTRV470 EQU CVTRV466 06160000 CVTRV469 EQU CVTRV466 06161000 CVTRV468 EQU CVTRV466 06162000 CVTRV467 EQU CVTRV466 06163000 CVTRV465 EQU CVTRV457 06164000 CVTRV464 EQU CVTRV457 06165000 CVTRV463 EQU CVTRV457 06166000 CVTRV462 EQU CVTRV457 06167000 CVTRV461 EQU CVTRV457 06168000 CVTRV460 EQU CVTRV457 06169000 CVTRV459 EQU CVTRV457 06170000 CVTRV458 EQU CVTRV457 06171000 CVTRV456 EQU CVTXTNT2+108 06172000 CVTRV455 EQU CVTXTNT2+104 06173000 CVTRV454 EQU CVTXTNT2+100 06174000 CVTRV453 EQU CVTXTNT2+96 06175000 CVTRV452 EQU CVTXTNT2+94 06176000 CVTRV451 EQU CVTXTNT2+92 06177000 CVTRV450 EQU CVTXTNT2+90 06178000 CVTRV449 EQU CVTXTNT2+88 06179000 CVTRV448 EQU CVTXTNT2+87 06180000 CVTRV447 EQU CVTXTNT2+86 06181000 CVTRV446 EQU CVTRV438 06182000 CVTRV445 EQU CVTRV438 06183000 CVTRV444 EQU CVTRV438 06184000 CVTRV443 EQU CVTRV438 06185000 CVTRV442 EQU CVTRV438 06186000 CVTRV441 EQU CVTRV438 06187000 CVTRV440 EQU CVTRV438 06188000 CVTRV439 EQU CVTRV438 06189000 CVTRV437 EQU CVTRV429 06190000 CVTRV436 EQU CVTRV429 06191000 CVTRV435 EQU CVTRV429 06192000 CVTRV434 EQU CVTRV429 06193000 CVTRV433 EQU CVTRV429 06194000 CVTRV432 EQU CVTRV429 06195000 CVTRV431 EQU CVTRV429 06196000 CVTRV430 EQU CVTRV429 06197000 CVTRV428 EQU CVTXTNT2+80 06198000 CVTRV427 EQU CVTXTNT2+76 06199000 CVTRV426 EQU CVTXTNT2+72 06200000 CVTRV425 EQU CVTXTNT2+68 06201000 CVTATACT EQU CVTATCVT 06202000 CVTRV423 EQU CVTXTNT2+62 06203000 CVTRV422 EQU CVTXTNT2+60 06204000 CVTRV421 EQU CVTXTNT2+58 06205000 CVTRV420 EQU CVTXTNT2+56 06206000 CVTRV419 EQU CVTXTNT2+55 06207000 CVTRV418 EQU CVTXTNT2+54 06208000 CVTRV417 EQU CVTRV409 06209000 CVTRV416 EQU CVTRV409 06210000 CVTRV415 EQU CVTRV409 06211000 CVTRV414 EQU CVTRV409 06212000 CVTRV413 EQU CVTRV409 06213000 CVTRV412 EQU CVTRV409 06214000 CVTRV411 EQU CVTRV409 06215000 CVTRV410 EQU CVTRV409 06216000 CVTRV408 EQU CVTRV400 06217000 CVTRV407 EQU CVTRV400 06218000 CVTRV406 EQU CVTRV400 06219000 CVTRV405 EQU CVTRV400 06220000 CVTRV404 EQU CVTRV400 06221000 CVTRV403 EQU CVTRV400 06222000 CVTRV402 EQU CVTRV400 06223000 CVTRV401 EQU CVTRV400 06224000 CVTICB EQU CVTXTNT2+48 06225000 CVTSKTA EQU CVTXTNT2+44 06226000 CVTSHSB EQU CVTSHS 06227000 CVTRSV98 EQU CVTXTNT2+36 06228000 CVTRSV97 EQU CVTXTNT2+34 06229000 CVTRSV96 EQU CVTXTNT2+32 06230000 CVTOLTEP EQU CVTXTNT2+28 06231000 CVTQIDA EQU CVTQID+1 06232000 CVTRSV95 EQU CVTQID 06233000 CVTRSV94 EQU CVTXTNT2+20 06234000 CVTRSV93 EQU CVTXTNT2+16 06235000 CVTRSV92 EQU CVTXTNT2+12 06236000 CVTDEBVR EQU CVTXTNT2+8 06237000 CVTRSV91 EQU CVTXTNT2+6 06238000 CVTRSV9H EQU CVTFLGBT 06239000 CVTRSV9G EQU CVTFLGBT 06240000 CVTRSV9F EQU CVTFLGBT 06241000 CVTRSV9E EQU CVTFLGBT 06242000 CVTRSV9D EQU CVTFLGBT 06243000 CVTRSV9C EQU CVTFLGBT 06244000 CVTVME EQU CVTFLGBT 06245000 CVTNPE EQU CVTFLGBT 06246000 CVTNUCLS EQU CVTXTNT2+4 06247000 CVTDSSVA EQU CVTDSSV+1 06248000 CVTRSV89 EQU CVTDSSV 06249000 CVTRSV88 EQU CVTXTNT1+8 06250000 CVTRSV87 EQU CVTXTNT1+4 06251000 CVTFACHN EQU CVTXTNT1 06252000 CVTRV488 EQU CVTMAP+412 06253000 CVTRV487 EQU CVTMAP+408 06254000 CVTRV486 EQU CVTMAP+404 06255000 CVTRV485 EQU CVTMAP+400 06256000 CVTACTAP EQU CVTMAP+396 06257000 CVTAUTH EQU CVTMAP+392 06258000 CVTATMCA EQU CVTATMCT+1 06259000 CVTATMST EQU CVTATMCT 06260000 CVTRSV61 EQU CVTMAP+384 06261000 CVTVOLT1 EQU CVTVOLM1+1 06262000 CVTVOLI1 EQU CVTVOLF1 06263000 CVTSTOA EQU CVTMAP+376 06264000 CVTRSV58 EQU CVTMAP+374 06265000 CVTRSV57 EQU CVTMAP+372 06266000 CVTDDCE EQU CVTMAP+368 06267000 CVTPNWFR EQU CVTMAP+364 06268000 CVTSMF EQU CVTMAP+360 06269000 CVTSULK EQU CVTMAP+358 06270000 CVTSLKO EQU CVTSYSK 06271000 CVTSLKP EQU CVTSYSK 06272000 CVTSLKQ EQU CVTSYSK 06273000 CVTSLKR EQU CVTSYSK 06274000 CVTRSV56 EQU CVTSYSK 06275000 CVTRSV55 EQU CVTSYSK 06276000 CVTRSV54 EQU CVTSYSK 06277000 CVTRSV53 EQU CVTSYSK 06278000 CVTRSV52 EQU CVTA1F1 06279000 CVTRSV51 EQU CVTA1F1 06280000 CVTRSV50 EQU CVTA1F1 06281000 CVTRSV49 EQU CVTA1F1 06282000 CVTRSV48 EQU CVTA1F1 06283000 CVTRSV47 EQU CVTA1F1 06284000 CVTSRSW EQU CVTA1F1 06285000 CVTPFSW EQU CVTA1F1 06286000 CVTPCVT EQU CVTMAP+352 06287000 CVTRSV46 EQU CVTMAP+344 06288000 CVTRSV45 EQU CVTMAP+340 06289000 CVTRSV44 EQU CVTMAP+338 06290000 CVTRSV43 EQU CVTMAP+336 06291000 CVTHJESA EQU CVTHJES+1 06292000 CVTRSV42 EQU CVTHJES 06293000 CVTEXT2A EQU CVTEXT2+1 06294000 CVTRSV41 EQU CVTEXT2 06295000 CVTAPFA EQU CVTAPF+1 06296000 CVTRSV40 EQU CVTAPF 06297000 CVTRV518 EQU CVTINTLA 06298000 CVTRV517 EQU CVTERPV 06299000 CVTEORM EQU CVTMAP+312 06300000 CVTMCHPR EQU CVTMAP+308 06301000 CVTTZ EQU CVTMAP+304 06302000 CVTJEPS EQU CVTMAP+300 06303000 CVTJESCT EQU CVTMAP+296 06304000 CVTMODE EQU CVTMAP+292 06305000 CVTPTRV EQU CVTMAP+288 06306000 CVTREAL EQU CVTMAP+284 06307000 CVTRSV39 EQU CVTMAP+280 06308000 CVTRSV38 EQU CVTMAP+276 06309000 CVTDMSRA EQU CVTDMSR+1 06310000 CVTRV634 EQU CVTDMSRF 06311000 CVTRV633 EQU CVTDMSRF 06312000 CVTRV632 EQU CVTDMSRF 06313000 CVTRV631 EQU CVTDMSRF 06314000 CVTRV630 EQU CVTDMSRF 06315000 CVTRV629 EQU CVTDMSRF 06316000 CVTUDUMP EQU CVTDMSRF 06317000 CVTSDUMP EQU CVTDMSRF 06318000 CVTQMSGA EQU CVTQMSG+1 06319000 CVTRSV36 EQU CVTQMSG 06320000 CVTAMFF EQU CVTMAP+264 06321000 CVTPURGA EQU CVTPURG+1 06322000 CVTRSV35 EQU CVTPURG 06323000 CVTCBSP EQU CVTMAP+256 06324000 CVTATERA EQU CVTATER+1 06325000 CVTSYST EQU CVTATER 06326000 CVTVOLT2 EQU CVTTAT 06327000 CVTVOLI2 EQU CVTVOLF2 06328000 CVTAQAVB EQU CVTAQAVT+1 06329000 CVTRSV34 EQU CVTTCMFG 06330000 CVTRSV33 EQU CVTTCMFG 06331000 CVTRSV32 EQU CVTTCMFG 06332000 CVTRSV31 EQU CVTTCMFG 06333000 CVTRSV30 EQU CVTTCMFG 06334000 CVTRSV29 EQU CVTTCMFG 06335000 CVTRSV28 EQU CVTTCMFG 06336000 CVTTCRDY EQU CVTTCMFG 06337000 CVTGTFA EQU CVTGTF+1 06338000 CVTRSV27 EQU CVTGTFST 06339000 CVTRNIO EQU CVTGTFST 06340000 CVTUSR EQU CVTGTFST 06341000 CVTRV318 EQU CVTFORM 06342000 CVTRV317 EQU CVTTMODE 06343000 CVTRV316 EQU CVTSTATE 06344000 CVTRV315 EQU CVTGTFS 06345000 CVTGTFAV EQU CVTGTFS 06346000 CVT0SCR1 EQU CVTMAP+232 06347000 CVTRV515 EQU CVTMAP+228 06348000 CVTRMS EQU CVTMAP+224 06349000 CVTPATCH EQU CVTMAP+220 06350000 CVTTSCE EQU CVTMAP+216 06351000 CVTLNKSC EQU CVTMAP+214 06352000 CVTQABST EQU CVTMAP+212 06353000 CVTMDLDS EQU CVTMAP+208 06354000 CVTUSER EQU CVTMAP+204 06355000 CVTABEND EQU CVTMAP+200 06356000 CVTSMCA EQU CVTMAP+196 06357000 CVTRSV18 EQU CVTMAP+192 06358000 CVTQLPAQ EQU CVTMAP+188 06359000 CVTQCDSR EQU CVTMAP+184 06360000 CVTRSV17 EQU CVTOPTB 06361000 CVTRSV16 EQU CVTOPTB 06362000 CVTFP EQU CVTOPTB 06363000 CVTAPTHR EQU CVTOPTB 06364000 CVTNLOG EQU CVTOPTB 06365000 CVTTOD EQU CVTOPTB 06366000 CVTCTIMS EQU CVTOPTB 06367000 CVTPROT EQU CVTOPTB 06368000 CVTXPFP EQU CVTOPTA 06369000 CVTASCII EQU CVTOPTA 06370000 CVTRSV13 EQU CVTOPTA 06371000 CVTRSV12 EQU CVTOPTA 06372000 CVTNIP EQU CVTOPTA 06373000 CVTDDR EQU CVTOPTA 06374000 CVTAPR EQU CVTOPTA 06375000 CVTCCH EQU CVTOPTA 06376000 CVTSNCTR EQU CVTMAP+180 06377000 CVTQMWR EQU CVTMAP+176 06378000 CVTQOCR EQU CVTMAP+172 06379000 CVT1EF00 EQU CVTMAP+168 06380000 CVTMZ00 EQU CVTMAP+164 06381000 CVTHEAD EQU CVTMAP+160 06382000 CVTRSV11 EQU CVTMAP+156 06383000 CVT0PT01 EQU CVTMAP+152 06384000 CVTMSER EQU CVTMAP+148 06385000 CVTRV516 EQU CVTIERLC 06386000 CVTILCH EQU CVTMAP+140 06387000 CVT0DS EQU CVTMAP+136 06388000 CVTFBOSV EQU CVTMAP+132 06389000 CVTNUCB EQU CVTMAP+128 06390000 CVTIXAVL EQU CVTMAP+124 06391000 CVTIOQET EQU CVTMAP+120 06392000 CVTDCBA EQU CVTMAP+117 06393000 CVTMVS2 EQU CVTDCB 06394000 CVT6DAT EQU CVTDCB 06395000 CVT4MPS EQU CVTDCB 06396000 CVTRSV09 EQU CVTDCB 06397000 CVT4MS1 EQU CVTDCB 06398000 CVT2SPS EQU CVTDCB 06399000 CVT1SSS EQU CVTDCB 06400000 CVTRSV08 EQU CVTDCB 06401000 CVTSTB EQU CVTMAP+112 06402000 CVTQTD00 EQU CVTMAP+108 06403000 CVTQTE00 EQU CVTMAP+104 06404000 CVTCUCB EQU CVTMAP+100 06405000 CVTSJQ EQU CVTMAP+96 06406000 CVTPBLDL EQU CVTMAP+92 06407000 CVTTPC EQU CVTMAP+88 06408000 CVTSVDCB EQU CVTMAP+84 06409000 CVTBRET EQU CVTMAP+82 06410000 CVTEXIT EQU CVTMAP+80 06411000 CVT0FN00 EQU CVTMAP+76 06412000 CVTDARA EQU CVTDAR+1 06413000 CVTRSV07 EQU CVTFLGS1 06414000 CVTRSV06 EQU CVTFLGS1 06415000 CVTRSV05 EQU CVTFLGS1 06416000 CVTRSV04 EQU CVTFLGS1 06417000 CVTRSV03 EQU CVTFLGS1 06418000 CVTRSV02 EQU CVTFLGS1 06419000 CVTRSV01 EQU CVTFLGS1 06420000 CVTDMPLK EQU CVTFLGS1 06421000 CVTXITP EQU CVTMAP+68 06422000 CVTZDTAB EQU CVTMAP+64 06423000 CVTMSLT EQU CVTMAP+60 06424000 CVTDATE EQU CVTMAP+56 06425000 CVTBTERM EQU CVTMAP+52 06426000 CVTSYSAD EQU CVTMAP+48 06427000 CVTXTLER EQU CVTMAP+44 06428000 CVTILK2 EQU CVTMAP+40 06429000 CVTILK1 EQU CVTMAP+36 06430000 CVTPRLTV EQU CVTMAP+32 06431000 CVTPCNVT EQU CVTMAP+28 06432000 CVT0VL00 EQU CVTMAP+24 06433000 CVTXAPG EQU CVTMAP+20 06434000 CVTBUF EQU CVTMAP+16 06435000 CVTJOB EQU CVTMAP+12 06436000 CVTLINK EQU CVTMAP+8 06437000 CVT0EF00 EQU CVTMAP+4 06438000 CVTTCBP EQU CVTMAP 06439000 CVT EQU CVTMAP 06440000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 06441000 @ENDDATA EQU * 06442000 END ISTINCV4,(C'PLS0224',0603,77299) 06443000