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