TITLE 'IGG0196Q- DEVICE DEPENDENT EXECUTOR FOR 3800 PRINTER *00001000 ' 00002000 IGG0196Q CSECT , 0001 00003000 @MAINENT BALR @15,0 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(24) 0001 00007000 DC C'IGG0196Q04/01/75@Z40MSMI' 0001 00008000 DROP @15 00009000 @PROLOG BALR @03,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@03 0001 00012000 *START: /* BEGINING OF CODE FOR RELOOP */ 00013000 * DCBPTR=USERPRML; /* ADDRESS OF THE DCB */ 00014000 START L DCBPTR,USERPRML(,RPARC) 0096 00015000 * RCORE=WTGCORE; /* ADDRESS OF WORK AREA */ 00016000 L RCORE,WTGCORE-1(,RWTGC) 0097 00017000 LA RCORE,0(,RCORE) 0097 00018000 * RFY 0098 00019000 * (GPR15F) RSTD; 0098 00020000 * GPR15F=WTGPREFX; /* POINTER TO PREFIX FOR IECRES */ 00021000 L GPR15F,WTGPREFX(,RWTG) 0099 00022000 */********************************************************************/ 00023000 */* GETMAIN 48 BYTES IN KEY 5 SUBPOOL 230 */ 00024000 */* THE AREA IS CLEARED BY IFG019RA */ 00025000 */********************************************************************/ 00026000 * 0100 00027000 * GEN REFS(IECREGSV,CVTDMSR,CVT); 0100 00028000 IECRES GET,LV=48,PREFIX=YES,ID=SPPL,STM=(2,15,IECREGSV(GPR15F)) 00029000 * RFY 0101 00030000 * (GPR15F) UNRSTD; 0101 00031000 * RFY 0102 00032000 * (GPR01F) RSTD; 0102 00033000 * RFY 0103 00034000 * SPPARM /* ADDRESSABILITY TO SPP */ 00035000 * BASED(SPPPTR); 0103 00036000 * SPPPTR=GPR01F; /* ADDRESS OF AREA TO BLD SPP */ 00037000 LR SPPPTR,GPR01F 0104 00038000 * RFY 0105 00039000 * (GPR01F) UNRSTD; 0105 00040000 * 0105 00041000 */********************************************************************/ 00042000 */* 3800 ERP WORK AREA */ 00043000 */********************************************************************/ 00044000 * 0106 00045000 * IF UCBMDRBA=0 /* IF A WK AREA PTR ISNT THERE */ 00046000 * THEN 0106 00047000 L @12,DCBDEBA+39(,DCBPTR) 0106 00048000 L @12,DEBSUCBA(,@12) 0106 00049000 L @12,UCBXTADR(,@12) 0106 00050000 L @12,UCBMDRBA-1(,@12) 0106 00051000 LA @12,0(,@12) 0106 00052000 LTR @12,@12 0106 00053000 BNZ @RF00106 0106 00054000 * DO; /* THEN GETMAIN ONE */ 00055000 * DO; /* MODESET EXTKEY(ZERO) */ 00056000 * SPKA(0); /* SET PSW KEY */ 00057000 SLR @12,@12 0109 00058000 SPKA 0(@12) 0109 00059000 * END; /* MODESET EXTKEY(ZERO) GO TO KEY 00060000 * ZERO TO CHANGE UCB */ 00061000 */********************************************************************/ 00062000 */* GETMAIN 164 BYTES IN KEY 0 SUBPOOL 245 */ 00063000 */********************************************************************/ 00064000 * 0111 00065000 * DO; /* GETMAIN (R) LV(164)SP(245) */ 00066000 * RESPECIFY 0112 00067000 * (GPR01F, 0112 00068000 * GPR00F) RESTRICTED; 0112 00069000 * GPR00F=164; /* LENGTH REQUESTED */ 00070000 LA GPR00F,164 0113 00071000 * GPR01F=245; /* SP IN REG 1 */ 00072000 LA GPR01F,245 0114 00073000 * GEN(SLL GPR01F,24) 0115 00074000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0115 00075000 SLL GPR01F,24 00076000 * GPR00F=GPR00F|GPR01F; /* SP IN HIGH BYTE */ 00077000 OR GPR00F,GPR01F 0116 00078000 * GPR01F=-1; /* INDICATE A GETMAIN REQUEST */ 00079000 SLR GPR01F,GPR01F 0117 00080000 BCTR GPR01F,0 0117 00081000 * SVC(10); /* R-FORM OF GETMAIN */ 00082000 SVC 10 0118 00083000 * RESPECIFY 0119 00084000 * (GPR01F, 0119 00085000 * GPR00F) UNRESTRICTED; 0119 00086000 * END; /* GETMAIN (R) LV(164)SP(245) 0120 00087000 * GETMAIN ERP WORKAREA */ 00088000 * RFY 0121 00089000 * (GPR01F) RSTD; 0121 00090000 * UCBMDRBA=GPR01F; /* PUT IN ADDRESS */ 00091000 L @12,DCBDEBA+39(,DCBPTR) 0122 00092000 L @12,DEBSUCBA(,@12) 0122 00093000 L @12,UCBXTADR(,@12) 0122 00094000 STCM GPR01F,7,UCBMDRBA(@12) 0122 00095000 * RFY 0123 00096000 * (GPR01F) UNRSTD; 0123 00097000 * DO; /* MODESET EXTKEY(DATAMGT) */ 00098000 * SPKA(80); /* SET PSW KEY */ 00099000 LA @12,80 0125 00100000 SPKA 0(@12) 0125 00101000 * END; /* MODESET EXTKEY(DATAMGT) BACK 00102000 * TO KEY FIVE */ 00103000 * END; 0127 00104000 * 0128 00105000 */********************************************************************/ 00106000 */* ***** CONSTRUCT SETPRT PARAMETER LIST (SPP) ***** */ 00107000 */********************************************************************/ 00108000 */* IF THERE IS NO JFCBE PRESENT, AN ESSENTIALLY ZEROED-OUT */ 00109000 */* PARAM LIST WILL BE SENT TO SETPRT (ONLY THE EODS REQUEST BIT*/ 00110000 */* WILL BE ON). WHEN A JFCBE IS PRESENT, EACH FIELD THAT MAY */ 00111000 */* CONTAIN A VALUE IS TESTED TO SEE IF A SPECICATION IS */ 00112000 */* PRESENT BEFORE THAT FIELD IS MOVED INTO THE SETPRT LIST. */ 00113000 */* JFCBE FIELD WHICH MAY CONTAIN ALPHABETIC VALUES CONTAIN */ 00114000 */* BLANKS WHEN THE FIELD HAS NO VALUE SPECIFIED. SIMILARLY, */ 00115000 */* FIELDS WHICH MAY CONTAIN NUMERIC VALUES ARE SET TO ZERO */ 00116000 */* WHEN NOTHING HAS BEEN SPECIFIED. */ 00117000 */* THIS RELATIONSHIP DOES NOT HOLD FOR THE SETPRT LIST, AS ANY */ 00118000 */* FIELD WHICH HAS NO VALUE SPECIFIED FOR IT REMAINS ZERO. */ 00119000 */* */ 00120000 */********************************************************************/ 00121000 * 0128 00122000 * IF JFCBEXTP=ON /* IS THERE A JFCBE */ 00123000 * THEN 0128 00124000 @RF00106 LA @12,100 0128 00125000 ALR @12,RCORE 0128 00126000 TM JFCBEXTP(@12),B'10000000' 0128 00127000 BNO @RF00128 0128 00128000 * DO; /* YES, BUILD SPP ACCORDINGLY */ 00129000 * JFCBEPTR=JFCBEXAD+16; /* SET BASE FOR JFCB EXT PLUS 16 00130000 * FOR SWA PREFIX */ 00131000 L @10,JFCBEXAD-1(,@12) 0130 00132000 LA @10,16(,@10) 0130 00133000 LR JFCBEPTR,@10 0130 00134000 */********************************************************************/ 00135000 */* GENERAL FLAG BYTES */ 00136000 */********************************************************************/ 00137000 */* DATA CHECK ALLOWED OR NOT (FROM JFCB) */ 00138000 * 0131 00139000 * IF JFCALLOW=ON /* IS ALLOW CHECK INDICATED */ 00140000 * THEN /* YES, SET IN SPP ALSO */ 00141000 TM JFCALLOW(@12),B'01000000' 0131 00142000 BNO @RF00131 0131 00143000 * SPPFBLK=ON; 0132 00144000 * 0132 00145000 OI SPPFBLK(SPPPTR),B'10000000' 0132 00146000 */********************************************************************/ 00147000 */* STACKING MODE: BURST OR CONTINUOUS */ 00148000 */********************************************************************/ 00149000 * 0133 00150000 * IF JFCBBST=ON /* IS BURST MODE INDICATED */ 00151000 * THEN /* YES, SET BURST BIT IN SPP */ 00152000 @RF00131 TM JFCBBST(JFCBEPTR),B'00000010' 0133 00153000 BNO @RF00133 0133 00154000 * SPPBURST=ON; 0134 00155000 * 0134 00156000 OI SPPBURST(SPPPTR),B'10000000' 0134 00157000 * /*************************************************************/ 00158000 * /* */ 00159000 * /* NUMBER OF COPIES TO BE PRINTED NOTE- THE JFCBE CONTAINS */ 00160000 * /* 0-8 SUB-N COUNT FIELDS FOR COPIES GROUPINGS. ONLY THE 1ST,*/ 00161000 * /* IF PRESENT, IS USABLE AT OPEN TIME. FOR THE DIRECT USER IS*/ 00162000 * /* THE USER'S RESPONSIBILTY, AND FOR SYSOUT THE JES SUBSYTEM */ 00163000 * /* HAS GROUPING INFORMATION. */ 00164000 * /* */ 00165000 * /*************************************************************/ 00166000 * 0135 00167000 * IF JFCGRP1=0 /* IF 1ST SUB-N NOT SPECIFIED */ 00168000 * THEN /* THEN SUPPLY DEFAULT VALUE */ 00169000 @RF00133 CLI JFCGRP1(JFCBEPTR),0 0135 00170000 BNE @RF00135 0135 00171000 * SPPCPYNR=1; /* DEFAULT OF 1 COPY IN SPP */ 00172000 MVI SPPCPYNR(SPPPTR),X'01' 0136 00173000 * ELSE /* VALUE IS SPECIFIED BY USER */ 00174000 * SPPCPYNR=JFCGRP1; /* USE THE SPECIFIED COUNT */ 00175000 B @RC00135 0137 00176000 @RF00135 IC @12,JFCGRP1(,JFCBEPTR) 0137 00177000 STC @12,SPPCPYNR(,SPPPTR) 0137 00178000 */********************************************************************/ 00179000 */* FORMS FLASHING INFORMATION */ 00180000 */********************************************************************/ 00181000 */* SPPIMAGE IS A 4 CHAR FLASH CARTRIDGE ID */ 00182000 * 0138 00183000 * IF JFCBMAGT(1:1)^=BLANK /* IS AN ID PRESENT */ 00184000 * THEN 0138 00185000 @RC00135 CLI JFCBMAGT(JFCBEPTR),C' ' 0138 00186000 BE @RF00138 0138 00187000 * DO; /* YES */ 00188000 * SPPIMAGE=JFCBMAGT; /* MOVE IN CART. ID */ 00189000 MVC SPPIMAGE(4,SPPPTR),JFCBMAGT(JFCBEPTR) 0140 00190000 * IF JFCIMTOT^=0 /* IS THERE A COUNT FOR FLASHNG */ 00191000 * THEN /* YES (DEFAULT IS 1) */ 00192000 CLI JFCIMTOT(JFCBEPTR),0 0141 00193000 BE @RF00141 0141 00194000 * SPPFRMNR=JFCIMTOT; /* SET FLASH COUNT IN SPP */ 00195000 IC @12,JFCIMTOT(,JFCBEPTR) 0142 00196000 STC @12,SPPFRMNR(,SPPPTR) 0142 00197000 * END; 0143 00198000 * 0143 00199000 @RF00141 DS 0H 0144 00200000 */********************************************************************/ 00201000 */* COPY MODIFICATION INFORMATION */ 00202000 */********************************************************************/ 00203000 */* SPPMODPT IS THE COPY MODIF DATA ID ON IMAGELIB */ 00204000 * 0144 00205000 * IF JFCMODIF(1:1)^=BLANK /* IS AN ID PRESENT */ 00206000 * THEN 0144 00207000 @RF00138 CLI JFCMODIF(JFCBEPTR),C' ' 0144 00208000 BE @RF00144 0144 00209000 * DO; /* YES */ 00210000 * SPPMODPT=JFCMODIF; /* PUT ID INTO SPP */ 00211000 * 0146 00212000 L @12,JFCMODIF(,JFCBEPTR) 0146 00213000 ST @12,SPPMODPT(,SPPPTR) 0146 00214000 * /*********************************************************/ 00215000 * /* */ 00216000 * /* SPPTRC IS THE TRC TO WHICH COPY MOD IS TO APPLY */ 00217000 * /* */ 00218000 * /*********************************************************/ 00219000 * 0147 00220000 * IF JFCIDTRC^=0 /* IS A TRC SPECIFIED */ 00221000 * THEN /* YES, MOVE IT INTO SPP */ 00222000 CLI JFCIDTRC(JFCBEPTR),0 0147 00223000 BE @RF00147 0147 00224000 * SPPTRC=JFCIDTRC; /* DEFAULT IS TRC 0 */ 00225000 MVC SPPTRC(1,SPPPTR),JFCIDTRC(JFCBEPTR) 0148 00226000 * END; 0149 00227000 * 0149 00228000 @RF00147 DS 0H 0150 00229000 */********************************************************************/ 00230000 */* TRANSLATE TABLES- 0 TO 4 4-CHAR ID'S */ 00231000 */********************************************************************/ 00232000 */* THE FIRST ID THAT STARTS WITH A BLANK SIGNIFIES THE END OF */ 00233000 */* THE LIST. IF THE FIRST ID IS BLANK THERE ARE NO ID'S TO MOVE*/ 00234000 * 0150 00235000 * IF JFCBTRS1(1:1)=BLANK THEN 0150 00236000 @RF00144 CLI JFCBTRS1(JFCBEPTR),C' ' 0150 00237000 BE @RT00150 0150 00238000 * ; /* NO ID'S TO MOVE */ 00239000 * ELSE 0152 00240000 * IF JFCBTRS2(1:1)=BLANK THEN/* MOVE ONE ID */ 00241000 CLI JFCBTRS2(JFCBEPTR),C' ' 0152 00242000 BNE @RF00152 0152 00243000 * SPPXLT1A=JFCBTRS1; 0153 00244000 MVC SPPXLT1A(4,SPPPTR),JFCBTRS1(JFCBEPTR) 0153 00245000 * ELSE 0154 00246000 * IF JFCBTRS3(1:1)=BLANK THEN/* MOVE TWO ID'S */ 00247000 B @RC00152 0154 00248000 @RF00152 CLI JFCBTRS3(JFCBEPTR),C' ' 0154 00249000 BNE @RF00154 0154 00250000 * SPPXLT1A(1:2*LENGTH(SPPXLT1A))=JFCBTRS1(1:2*LENGTH( 0155 00251000 * JFCBTRS1)); 0155 00252000 MVC SPPXLT1A(8,SPPPTR),JFCBTRS1(JFCBEPTR) 0155 00253000 * ELSE 0156 00254000 * IF JFCBTRS4(1:1)=BLANK THEN/* MOVE THREE ID'S */ 00255000 B @RC00154 0156 00256000 @RF00154 CLI JFCBTRS4(JFCBEPTR),C' ' 0156 00257000 BNE @RF00156 0156 00258000 * SPPXLT1A(1:3*LENGTH(SPPXLT1A))=JFCBTRS1(1:3*LENGTH( 00259000 * JFCBTRS1)); 0157 00260000 MVC SPPXLT1A(12,SPPPTR),JFCBTRS1(JFCBEPTR) 0157 00261000 * ELSE /* MOVE FOUR ID'S */ 00262000 * SPPXLT1A(1:4*LENGTH(SPPXLT1A))=JFCBTRS1(1:4*LENGTH( 00263000 * JFCBTRS1)); 0158 00264000 B @RC00156 0158 00265000 @RF00156 MVC SPPXLT1A(16,SPPPTR),JFCBTRS1(JFCBEPTR) 0158 00266000 * END; /* END OF DO GROUP FOR JFCBE 0159 00267000 * EXISTS */ 00268000 @RC00156 DS 0H 0159 00269000 @RC00154 DS 0H 0159 00270000 @RC00152 DS 0H 0159 00271000 @RT00150 DS 0H 0160 00272000 */********************************************************************/ 00273000 * 0160 00274000 * 0160 00275000 */********************************************************************/ 00276000 */* MINIMUM SPP IRRESPECTIVE OF JFCBE EXISTANCE OR NOT */ 00277000 */********************************************************************/ 00278000 */********************************************************************/ 00279000 */* FCB INFORMATION (FROM MAIN JFCB) */ 00280000 */********************************************************************/ 00281000 * 0160 00282000 * IF JFCFCBID(1:1)^=BLANK /* IS AN ID SPECIFIED */ 00283000 * THEN 0160 00284000 @RF00128 LA @12,100 0160 00285000 ALR @12,RCORE 0160 00286000 CLI JFCFCBID(@12),C' ' 0160 00287000 BE @RF00160 0160 00288000 * DO; /* YES, GET ID */ 00289000 * SPPFCB=JFCFCBID; 0162 00290000 MVC SPPFCB(4,SPPPTR),JFCFCBID(@12) 0162 00291000 * IF JFCFCBVR=ON /* IS FCB VERIFY SPECIFIED */ 00292000 * THEN /* YES, INDICATE IN SPP */ 00293000 TM JFCFCBVR(@12),B'00000100' 0163 00294000 BNO @RF00163 0163 00295000 * SPPVERIF=ON; 0164 00296000 OI SPPVERIF(SPPPTR),B'10000000' 0164 00297000 * END; 0165 00298000 * 0165 00299000 @RF00163 DS 0H 0166 00300000 * /*****************************************************************/ 00301000 * /* */ 00302000 * /* SET NUMBER OF COPIES */ 00303000 * /* */ 00304000 * /*****************************************************************/ 00305000 * 0166 00306000 * IF SPPCPYNR=0 /* WAS COPIES NOT SET ABOVE */ 00307000 * THEN /* YES, SO SET IT NOW */ 00308000 @RF00160 CLI SPPCPYNR(SPPPTR),0 0166 00309000 BNE @RF00166 0166 00310000 * SPPCPYNR=1; /* NO JFCBE, SO DEFAULT = 1 */ 00311000 MVI SPPCPYNR(SPPPTR),X'01' 0167 00312000 * ELSE 0168 00313000 * ; /* FIELD HAS VALUE, SO WAS SET */ 00314000 @RF00166 DS 0H 0169 00315000 * SPPSTCNR=1; /* START COPY NO. MUST BE 1 */ 00316000 MVI SPPSTCNR(SPPPTR),X'01' 0169 00317000 */********************************************************************/ 00318000 */* EODS BIT (END-OF-DATA-SET. CAUSE DEVICE RESET */ 00319000 */* BEFORE SETUP FOR THIS USER REQUIREMENTS */ 00320000 */********************************************************************/ 00321000 * 0170 00322000 * SPPINIT=ON; /* TURN ON INIT INDICATOR BIT */ 00323000 OI SPPINIT(SPPPTR),B'00100000' 0170 00324000 * SPPEXTL=ON; /* INDICATE EXTENDED SPP LIST */ 00325000 OI SPPEXTL(SPPPTR),B'00000001' 0171 00326000 */********************************************************************/ 00327000 */* SETPRT PARM LIST BUILD COMPLETE */ 00328000 */********************************************************************/ 00329000 * 0172 00330000 * 0172 00331000 */********************************************************************/ 00332000 */* INVOKE SETPRT AND ANALYZE RETURN CODE */ 00333000 */********************************************************************/ 00334000 * 0172 00335000 * GEN(SETPRT (DCBPTR),MF=(E,(SPPPTR))); 0172 00336000 SETPRT (DCBPTR),MF=(E,(SPPPTR)) 00337000 * RFY 0173 00338000 * (GPR00F, 0173 00339000 * GPR15F) RSTD; 0173 00340000 * IF GPR15F^=0 /* IF RETURN SHOWS UNSUCCESSFUL */ 00341000 * &GPR15F^='3C'X /* BURST NOT AVAIL ACCEPTABLE */ 00342000 * THEN 0174 00343000 LTR GPR15F,GPR15F 0174 00344000 BZ @RF00174 0174 00345000 C GPR15F,@CF02937 0174 00346000 BE @RF00174 0174 00347000 * DO; /* THEN ABEND OUT */ 00348000 * CALL ABENDXIT; /* ISSUE MESSAGE AND SET FOR PD */ 00349000 BAL @14,ABENDXIT 0176 00350000 * GO TO TCTLRTN; /* GO ISSUE ABEND */ 00351000 B TCTLRTN 0177 00352000 * END; 0178 00353000 * ELSE 0179 00354000 * ; 0179 00355000 @RF00174 DS 0H 0180 00356000 * RFY 0180 00357000 * (GPR00F) UNRSTD; 0180 00358000 * GPR15F=WTGPREFX; /* NEEDED FOR IECRES MACRO */ 00359000 L GPR15F,WTGPREFX(,RWTG) 0181 00360000 */********************************************************************/ 00361000 */* FREE THE SETPRT PARAMETER LIST. IFG019RA FINDS THE LENGTH, KEY */ 00362000 */* AND SUBPOOL FROM THE PREFIX IT BUILT A GET TIME. */ 00363000 */********************************************************************/ 00364000 * 0182 00365000 * GEN REFS(IECREGSV,CVTDMSR,CVT); 0182 00366000 * /*FREE SETPRT PARM LIST */ 00367000 IECRES FREE,PREFIX=YES,A=(SPPPTR),STM=(2,15,IECREGSV(GPR15F)) 00368000 * RFY 0183 00369000 * (GPR15F) UNRSTD; 0183 00370000 * 0183 00371000 */********************************************************************/ 00372000 */* PROCESSING FOR THIS EXECUTOR NOW COMPLETE. GO TO NEXT EXEC */ 00373000 */********************************************************************/ 00374000 * 0184 00375000 * 0184 00376000 */********************************************************************/ 00377000 */********************************************************************/ 00378000 */* EXIT OUT */ 00379000 */********************************************************************/ 00380000 */********************************************************************/ 00381000 */********************************************************************/ 00382000 */* SET EXCP EXECUTOR */ 00383000 */********************************************************************/ 00384000 * 0184 00385000 * WTGIDTTR=SOP1911; /* EXCP EXEC IS IGG01911 */ 00386000 MVC WTGIDTTR(5,RWTGC),SOP1911 0184 00387000 */********************************************************************/ 00388000 */* TEST FOR AN EXCP DCB */ 00389000 */********************************************************************/ 00390000 * 0185 00391000 * IF DCBMFECP=ON /* IS EXCP BIT IN DCBMACRF ON */ 00392000 * THEN /* YES, TAKE EXCP PATH */ 00393000 TM DCBMFECP+40(DCBPTR),B'10000000' 0185 00394000 BO @RT00185 0185 00395000 * GO TO RELOOP; 0186 00396000 * 0186 00397000 */********************************************************************/ 00398000 */* SET BUFFER BUILD EXECUTOR */ 00399000 */********************************************************************/ 00400000 * 0187 00401000 * WTGIDTTR=SOP191I; /* BFR BLD EXEC IS IGG0191I */ 00402000 MVC WTGIDTTR(5,RWTGC),SOP191I 0187 00403000 */********************************************************************/ 00404000 */* TEST IF SYSTEM TO GET BUFFERS: */ 00405000 */* IF QSAM: BUFCA=1 (LO BIT) */ 00406000 */* IF BSAM: BUFCA=1 & BUFNO ^=0 */ 00407000 */********************************************************************/ 00408000 * 0188 00409000 * IF DCBCNQSM=ON /* IS QSAM BIT IN DCBCIND2 ON */ 00410000 * THEN /* YES, IT IS QSAM */ 00411000 TM DCBCNQSM+52(DCBPTR),B'00000001' 0188 00412000 BNO @RF00188 0188 00413000 * IF BUFCABIT=ON /* IS LO BIT IN DCBBUFCA ON */ 00414000 * THEN /* YES, SET FOR 191I */ 00415000 TM BUFCABIT+16(DCBPTR),B'00000001' 0189 00416000 BO @RT00189 0189 00417000 * GO TO RELOOP; 0190 00418000 * ELSE 0191 00419000 * ; 0191 00420000 * ELSE /* NO, IT IS BSAM */ 00421000 * IF DCBBUFNO^=0 /* IF BUFNO IS NOT SET TO 0 */ 00422000 * &BUFCABIT=ON /* AND THE BIT IN BUFCA IS ON */ 00423000 * THEN /* THEN SET FOR BUFFER EXEC */ 00424000 B @RC00188 0192 00425000 @RF00188 LA @12,16 0192 00426000 ALR @12,DCBPTR 0192 00427000 CLI DCBBUFNO(@12),0 0192 00428000 BE @RF00192 0192 00429000 TM BUFCABIT(@12),B'00000001' 0192 00430000 BO @RT00192 0192 00431000 * GO TO RELOOP; 0193 00432000 * 0193 00433000 */********************************************************************/ 00434000 */* SET CHAINED SCHED EXECUTOR */ 00435000 */********************************************************************/ 00436000 * 0194 00437000 * WTGIDTTR=SOP191Q; /* CHAINED SCHED EXEC IS 191Q */ 00438000 @RF00192 DS 0H 0194 00439000 @RC00188 MVC WTGIDTTR(5,RWTGC),SOP191Q 0194 00440000 */********************************************************************/ 00441000 */* TEST FOR CHAINED SCHED DCB */ 00442000 */********************************************************************/ 00443000 * 0195 00444000 * IF DCBOPTC=ON /* IS CHAIN BIT IN DCBOPTCD ON */ 00445000 * THEN /* YES, TAKE CHAINED SCHED PATH */ 00446000 TM DCBOPTC+52(DCBPTR),B'00100000' 0195 00447000 BO @RT00195 0195 00448000 * GO TO RELOOP; 0196 00449000 * 0196 00450000 */********************************************************************/ 00451000 */* SET UNIT RECORD EXECUTOR */ 00452000 */********************************************************************/ 00453000 * 0197 00454000 * WTGIDTTR=SOP191G; /* MUST BE NORMAL SCHED */ 00455000 MVC WTGIDTTR(5,RWTGC),SOP191G 0197 00456000 * 0198 00457000 */********************************************************************/ 00458000 */* SEE IF THIS EXEC NEEDED AGAIN */ 00459000 */********************************************************************/ 00460000 * 0198 00461000 *RELOOP: 0198 00462000 * RPARC=RPARC+LENGTH(USERPRML); /* UPDATE PARM POINTER */ 00463000 RELOOP LA RPARC,4(,RPARC) 0198 00464000 * RWTGC=RWTGC+LENGTH(WTGENTRY); /* UPDATE CURRENT PTR */ 00465000 LA RWTGC,8(,RWTGC) 0199 00466000 * IF WTGEID=AMIDCNST /* THIS ROUTINE ID */ 00467000 * THEN 0200 00468000 CLC WTGEID(2,RWTGC),AMIDCNST 0200 00469000 BE @RT00200 0200 00470000 * GO TO START; /* THIS ROUTINE IS NEEDED AGAIN */ 00471000 * IF WTGEID^=OPIDCNST /* COMMON OPEN RETURN ID */ 00472000 * THEN 0202 00473000 CLC WTGEID(2,RWTGC),OPIDCNST 0202 00474000 BNE @RT00202 0202 00475000 * GO TO RELOOP; /* MORE ROUTINES TO CHECK */ 00476000 * RPARC=RPAR; /* REINITIALIZE PARAMETER PTR */ 00477000 LR RPARC,RPAR 0204 00478000 * RWTGC=RWTG+LENGTH(WTG); /* REINIT WTGENTRY PTR */ 00479000 LA RWTGC,32(,RWTG) 0205 00480000 */********************************************************************/ 00481000 */* IT HAS NOW BEEN DETERMINED THAT THIS EXEC IS NOT IN ANOTHER */ 00482000 */* ENTRY IN THIS STRING. WE WILL GIVE CONTROL TO THE FIRST NON */ 00483000 */* ZERO ENTRY IN THE STRING. */ 00484000 */********************************************************************/ 00485000 * 0206 00486000 *ZCHECK: 0206 00487000 * IF WTGEID(1:1)^=0 THEN 0206 00488000 ZCHECK CLI WTGEID(RWTGC),0 0206 00489000 BNE @RT00206 0206 00490000 * GO TO TCTLRTN; /* ENTRY NOT ZERO GO TO IT */ 00491000 * RWTGC=RWTGC+LENGTH(WTGENTRY); /* UPDATE WTG PTR */ 00492000 LA RWTGC,8(,RWTGC) 0208 00493000 * RPARC=RPARC+LENGTH(USERPRML); /* UPDATE PARM PTR */ 00494000 LA RPARC,4(,RPARC) 0209 00495000 * GO TO ZCHECK; /* CHECK NEXT ENTRY */ 00496000 B ZCHECK 0210 00497000 */********************************************************************/ 00498000 */* AT THIS POINT RWTGC POINTS TO THE NEXT ENTRY IN THE WTGTABLE. */ 00499000 */* IECRES WILL BE USED TO GIVE CONTROL TO THE NEXT EXECUTOR. */ 00500000 */********************************************************************/ 00501000 * 0211 00502000 *TCTLRTN: 0211 00503000 * WTGMODID=WTGEID; /* ID OF NEXT MODULE */ 00504000 TCTLRTN MVC WTGMODID(2,RWTG),WTGEID(RWTGC) 0211 00505000 * WTGMODEP=WTGEADDR; /* ADDRESS OF NEXT MOD */ 00506000 SLR @12,@12 0212 00507000 ICM @12,7,WTGEADDR(RWTGC) 0212 00508000 ST @12,WTGMODEP(,RWTG) 0212 00509000 * GEN REFS(WTGPREFX,IECREGSV,WTGMODNM,CVTDMSR,CVT); 0213 00510000 USING WTGMODNM,RWTG BASE FOR IECRES 00511000 IECRES LOAD,PREFIX=WTGPREFX(,RWTG),BRANCH=DIRECT 00512000 DROP RWTG 00513000 * 0214 00514000 */********************************************************************/ 00515000 */* SUBROUTINE ABENDXIT */ 00516000 */********************************************************************/ 00517000 */* 1. UNSUCCESSFUL RETURN FROM SETPRT RESULTS IN THE ISSUANCE */ 00518000 */* OF TWO MESSAGES, THE 1ST,ROUTED TO BOTH OPERATOR AND */ 00519000 */* PROGRAMMER, IS IEC162I TO FACILITATE SUPPLYING THE R15 */ 00520000 */* AND R0 RETURN/REASON CODES. THE 2ND IS IEC141I ISSUED */ 00521000 */* BY PROBLEM DETERMINATION TO SIGNIFY A 013-CC ABEND. */ 00522000 */* */ 00523000 */********************************************************************/ 00524000 * 0214 00525000 *ABENDXIT: 0214 00526000 * PROC OPTIONS(NOSAVE,NOSAVEAREA); 0214 00527000 ABENDXIT DS 0H 0215 00528000 * RFY 0215 00529000 * (GPR00F, 0215 00530000 * GPR14F, 0215 00531000 * GPR15F) RSTD; 0215 00532000 * 0215 00533000 */********************************************************************/ 00534000 */* USE IECRES LOAD TO GET THE ADDRESS OF THE MESSAGE CSECT */ 00535000 */********************************************************************/ 00536000 * 0216 00537000 * SPPRTNCD=GPR15F; /* PRESERVE R15 RTN CODE */ 00538000 LR SPPRTNCD,GPR15F 0216 00539000 * WTGMODNM='IGGMSG01'; /* NAME FOR MSG CSECT */ 00540000 MVC WTGMODNM(8,RWTG),@CC02948 0217 00541000 * WTGMODEP=0; /* CLEAR ADDRESS AREA */ 00542000 SLR @12,@12 0218 00543000 ST @12,WTGMODEP(,RWTG) 0218 00544000 * GEN; 0219 00545000 * IECRES LOAD,PREFIX=WTGPREFX(RWTG),BRANCH=NO 00546000 L 15,WTGPREFX(,RWTG) GET POINTER TO A PREFIX 00547000 STM 0,14,IECREGSV-IECPREFX(15) SAVE REGISTERS 00548000 LA 6,WTGMODNM-WTG(RWTG) LOAD PTR TO WTG MODULE NAME 00549000 L 5,CVTPTR(,0) LOAD ADDRESS OF CVT 00550000 L 5,CVTDMSR-CVT(,5) LOAD ADDRESS OF IFG019RA 00551000 BAL 14,24(,5) LOAD AND RETURN 00552000 LM 0,14,IECREGSV-IECPREFX(15) RESTORE REGISTERS 00553000 * GPR15F=SPPRTNCD; /* RESTORE R15 RTN CODE */ 00554000 LR GPR15F,SPPRTNCD 0220 00555000 * MSGPTR=WTGMODEP; /* ADDRESS OF MSG CSECT */ 00556000 L MSGPTR,WTGMODEP(,RWTG) 0221 00557000 * WTGMODNM=MODID; /* RESET MOD NAME PREFIX */ 00558000 MVC WTGMODNM(8,RWTG),MODID 0222 00559000 * WTGMODEP=0; /* CLEAR MODEP */ 00560000 SLR @12,@12 0223 00561000 ST @12,WTGMODEP(,RWTG) 0223 00562000 * RFY 0224 00563000 * MSGINDEX BASED(MSGPTR); 0224 00564000 * MSGAREA=MSGTXT(1:MSGLNG+1); /* MOVE MSG INTO OPEN WRK AREA */ 00565000 MVI MSGAREA+1(RCORE),C' ' 0225 00566000 MVC MSGAREA+2(98,RCORE),MSGAREA+1(RCORE) 0225 00567000 LR @12,MSGPTR 0225 00568000 AH @12,MSGINDOF+50(,MSGPTR) 0225 00569000 SLR @10,@10 0225 00570000 IC @10,MSGLNG(,@12) 0225 00571000 SLR @09,@09 0225 00572000 IC @09,MSGOFF(,@12) 0225 00573000 ALR @09,@12 0225 00574000 EX @10,@SM02959 0225 00575000 * RFY 0226 00576000 * MSGTXTD BASED(RCORE); 0226 00577000 * 0226 00578000 */********************************************************************/ 00579000 */* PUT UNIT ADDR INTO THE MESSAGE */ 00580000 */********************************************************************/ 00581000 * 0227 00582000 * MSGTXT(MSGOFF1+1:MSGOFF1+3)=UCBNAME;/* MOVE UNIT TO MSG */ 00583000 SLR @01,@01 0227 00584000 IC @01,MSGOFF1(,@12) 0227 00585000 ALR @01,RCORE 0227 00586000 L @10,DCBDEBA+39(,DCBPTR) 0227 00587000 L @10,DEBSUCBA(,@10) 0227 00588000 MVC MSGTXT(3,@01),UCBNAME(@10) 0227 00589000 */********************************************************************/ 00590000 */* PUT REG 15 RETURN CODE (THREE BYTES) INTO THE MSG */ 00591000 */********************************************************************/ 00592000 * 0228 00593000 * UNPKAREA(1:3)=GPR15F; /* R15 INTO AREA FOR UNPACK */ 00594000 LA @10,384 0228 00595000 ALR @10,RCORE 0228 00596000 STCM GPR15F,7,UNPKAREA(@10) 0228 00597000 * UNPK(UNPKAREA(1:7),UNPKAREA(1:4));/* UNPACK THREE (+1) HEX BYTES */ 00598000 UNPK UNPKAREA(7,@10),UNPKAREA(4,@10) 0229 00599000 * TR(UNPKAREA(1:6),TRTBL); /* TRANSLATE TO PRINTABLE */ 00600000 LA @09,TABLE 0230 00601000 SL @09,@CF00087 0230 00602000 TR UNPKAREA(6,@10),TRTBL(@09) 0230 00603000 * MSGTXT(MSGOFF2+1:MSGOFF2+6)=UNPKAREA(1:6);/* PLACE IN MSG */ 00604000 * 0231 00605000 SLR @01,@01 0231 00606000 IC @01,MSGOFF2(,@12) 0231 00607000 ALR @01,RCORE 0231 00608000 MVC MSGTXT(6,@01),UNPKAREA(@10) 0231 00609000 * /*****************************************************************/ 00610000 * /* */ 00611000 * /* PUT REG 0 REASON CODE (1 BYTE) INTO MSG */ 00612000 * /* */ 00613000 * /*****************************************************************/ 00614000 * 0232 00615000 * UNPKAREA(1:1)=GPR00F; /* MOVE REASON CODE INTO WKAREA */ 00616000 STC GPR00F,UNPKAREA(,@10) 0232 00617000 * UNPK(UNPKAREA(1:3),UNPKAREA(1:2));/* UNPK ONE (+1) HEX BYTE */ 00618000 UNPK UNPKAREA(3,@10),UNPKAREA(2,@10) 0233 00619000 * TR(UNPKAREA(1:2),TRTBL); /* TRANS TO PRINTABLE */ 00620000 TR UNPKAREA(2,@10),TRTBL(@09) 0234 00621000 * MSGTXT(MSGOFF3+1:MSGOFF3+2)=UNPKAREA(1:2);/* PLACE IN MSG */ 00622000 SLR @01,@01 0235 00623000 IC @01,MSGOFF3(,@12) 0235 00624000 ALR @01,RCORE 0235 00625000 MVC MSGTXT(2,@01),UNPKAREA(@10) 0235 00626000 */********************************************************************/ 00627000 */* ISSUE WTO SVC */ 00628000 */********************************************************************/ 00629000 * 0236 00630000 * GEN(WTO MF=(E,(RCORE))); /* ISSUE WTO */ 00631000 WTO MF=(E,(RCORE)) 00632000 */********************************************************************/ 00633000 */* SET UP FOR CALL TO PROBLEM DETERMINATION */ 00634000 */********************************************************************/ 00635000 * 0237 00636000 * STM(GPR09F,GPR14F,DXREGSAV); /* SAVE REGS */ 00637000 STM GPR09F,GPR14F,DXREGSAV(RCORE) 0237 00638000 * DXCALLID=WTGMODID; /* SAVE THIS MOD ID */ 00639000 MVC DXCALLID(2,RCORE),WTGMODID(RWTG) 0238 00640000 * GPR00F=OABD0118; /* INTERNAL ABEND CODE */ 00641000 LA GPR00F,118 0239 00642000 * WTGIDTTR=PDLOAD; /* ID AND ADDR OF PROB DETER */ 00643000 MVC WTGIDTTR(5,RWTGC),PDLOAD 0240 00644000 * RETURN; 0241 00645000 @EL00002 DS 0H 0241 00646000 @EF00002 DS 0H 0241 00647000 @ER00002 BR @14 0241 00648000 * RFY 0242 00649000 * (GPR00F, 0242 00650000 * GPR14F, 0242 00651000 * GPR15F) UNRSTD; 0242 00652000 * END ABENDXIT; 0243 00653000 * END IGG0196Q /* END OF MODULE */ 00654000 * 0244 00655000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00656000 */*%INCLUDE SYSLIB (CVT ) */ 00657000 */*%INCLUDE SYSLIB (IHADCBDF) */ 00658000 */*%INCLUDE SYSLIB (IHADCB ) */ 00659000 */*%INCLUDE SYSLIB (IEZDEB ) */ 00660000 */*%INCLUDE SYSLIB (IEFJFCBN) */ 00661000 */*%INCLUDE SYSLIB (IEFJFCBE) */ 00662000 */*%INCLUDE SYSLIB (IGGMSG ) */ 00663000 */*%INCLUDE SYSLIB (IECDSECT) */ 00664000 */*%INCLUDE SYSLIB (IHASPP ) */ 00665000 */*%INCLUDE SYSLIB (IKJTCB ) */ 00666000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 00667000 */*%INCLUDE SYSLIB (IECDSECS) */ 00668000 * 0244 00669000 * ; 0244 00670000 @DATA DS 0H 00671000 @SM02959 MVC MSGAREA(0,RCORE),MSGTXT(@09) 00672000 @DATD DSECT 00673000 DS 0F 00674000 IGG0196Q CSECT 00675000 DS 0F 00676000 @CF00087 DC F'240' 00677000 @CF02937 DC XL4'3C' 00678000 @DATD DSECT 00679000 DS 0D 00680000 @ENDDATD EQU * 00681000 IGG0196Q CSECT 00682000 NOPR ((@ENDDATD-@DATD)*16) 00683000 DS 0F 00684000 @SIZDATD DC AL1(0) 00685000 DC AL3(@ENDDATD-@DATD) 00686000 @CV00105 DC V(IGG0191G) 00687000 @CV00110 DC V(IGG0191Q) 00688000 @CV00115 DC V(IGG0191I) 00689000 @CV00120 DC V(IGG01911) 00690000 @CV00125 DC V(IGG0196M) 00691000 DS 0D 00692000 @CC02948 DC C'IGGMSG01' 00693000 TABLE DC CL16'0123456789ABCDEF' 00694000 XCTLTBL DS CL25 00695000 ORG XCTLTBL 00696000 SOP191G DS CL5 00697000 ORG SOP191G 00698000 @NM00003 DC CL2'1G' 00699000 @NM00004 DC VL3(IGG0191G) 00700000 ORG XCTLTBL+5 00701000 SOP191Q DS CL5 00702000 ORG SOP191Q 00703000 @NM00005 DC CL2'1Q' 00704000 @NM00006 DC VL3(IGG0191Q) 00705000 ORG XCTLTBL+10 00706000 SOP191I DS CL5 00707000 ORG SOP191I 00708000 @NM00007 DC CL2'1I' 00709000 @NM00008 DC VL3(IGG0191I) 00710000 ORG XCTLTBL+15 00711000 SOP1911 DS CL5 00712000 ORG SOP1911 00713000 @NM00009 DC CL2'11' 00714000 @NM00010 DC VL3(IGG01911) 00715000 ORG XCTLTBL+20 00716000 PDLOAD DS CL5 00717000 ORG PDLOAD 00718000 @NM00011 DC CL2'6M' 00719000 @NM00012 DC VL3(IGG0196M) 00720000 ORG XCTLTBL+25 00721000 OPIDCNST DC CL2'0S' 00722000 MODID DS CL8 00723000 ORG MODID 00724000 @NM00013 DC CL6'IGG019' 00725000 AMIDCNST DC CL2'6Q' 00726000 ORG MODID+8 00727000 DS CL1 00728000 PATCH DC CL50' ' 00729000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00730000 @01 EQU 01 00731000 @02 EQU 02 00732000 @03 EQU 03 00733000 @04 EQU 04 00734000 @05 EQU 05 00735000 @06 EQU 06 00736000 @07 EQU 07 00737000 @08 EQU 08 00738000 @09 EQU 09 00739000 @10 EQU 10 00740000 @11 EQU 11 00741000 @12 EQU 12 00742000 @13 EQU 13 00743000 @14 EQU 14 00744000 @15 EQU 15 00745000 SPPRTNCD EQU @11 00746000 JFCBEPTR EQU @09 00747000 SPPPTR EQU @11 00748000 MSGPTR EQU @11 00749000 GPR00F EQU @00 00750000 GPR01F EQU @01 00751000 GPR14F EQU @14 00752000 GPR15F EQU @15 00753000 DCBPTR EQU @02 00754000 RBASE EQU @03 00755000 RCORE EQU @04 00756000 RPAR EQU @05 00757000 RWTG EQU @06 00758000 RPARC EQU @07 00759000 RWTGC EQU @08 00760000 GPR09F EQU @09 00761000 DEBDAPTR EQU @00 00762000 DEBEXPTR EQU @00 00763000 DEBSBPTR EQU @00 00764000 GPR00P EQU @00 00765000 GPR01P EQU @01 00766000 GPR14P EQU @14 00767000 GPR15P EQU @15 00768000 UCBDCPTR EQU @00 00769000 CVTPTR EQU 16 00770000 TRTBL EQU 0 00771000 UNPKAREA EQU 0 00772000 MSGAREA EQU 0 00773000 CVTMAP EQU 0 00774000 CVT EQU CVTMAP 00775000 CVTDAR EQU CVTMAP+72 00776000 CVTFLGS1 EQU CVTDAR 00777000 CVTDCB EQU CVTMAP+116 00778000 CVTIERLC EQU CVTMAP+144 00779000 CVTOPTA EQU CVTMAP+182 00780000 CVTOPTB EQU CVTMAP+183 00781000 CVTGTF EQU CVTMAP+236 00782000 CVTGTFST EQU CVTGTF 00783000 CVTGTFS EQU CVTGTFST 00784000 CVTSTATE EQU CVTGTFST 00785000 CVTTMODE EQU CVTGTFST 00786000 CVTFORM EQU CVTGTFST 00787000 CVTAQAVT EQU CVTMAP+240 00788000 CVTTCMFG EQU CVTAQAVT 00789000 CVTVOLM2 EQU CVTMAP+244 00790000 CVTTATA EQU CVTVOLM2 00791000 CVTTSKS EQU CVTTATA 00792000 CVTVOLF2 EQU CVTTSKS 00793000 CVTTAT EQU CVTTATA+1 00794000 CVTATER EQU CVTMAP+248 00795000 CVTEXT1 EQU CVTMAP+252 00796000 CVTPURG EQU CVTMAP+260 00797000 CVTQMSG EQU CVTMAP+268 00798000 CVTDMSR EQU CVTMAP+272 00799000 CVTRSV37 EQU CVTDMSR 00800000 CVTDMSRF EQU CVTRSV37 00801000 CVTERPV EQU CVTMAP+316 00802000 CVTINTLA EQU CVTMAP+320 00803000 CVTAPF EQU CVTMAP+324 00804000 CVTEXT2 EQU CVTMAP+328 00805000 CVTHJES EQU CVTMAP+332 00806000 CVTPGSIA EQU CVTMAP+348 00807000 CVTA1F1 EQU CVTMAP+356 00808000 CVTSYSK EQU CVTMAP+357 00809000 CVTVOLM1 EQU CVTMAP+380 00810000 CVTVOLF1 EQU CVTVOLM1 00811000 CVTATMCT EQU CVTMAP+388 00812000 CVTXTNT1 EQU 0 00813000 CVTXTNT2 EQU 0 00814000 CVTDSSV EQU CVTXTNT2 00815000 CVTFLGBT EQU CVTXTNT2+5 00816000 CVTQID EQU CVTXTNT2+24 00817000 CVTRV400 EQU CVTXTNT2+52 00818000 CVTRV409 EQU CVTXTNT2+53 00819000 CVTATCVT EQU CVTXTNT2+64 00820000 CVTRV429 EQU CVTXTNT2+84 00821000 CVTRV438 EQU CVTXTNT2+85 00822000 CVTRV457 EQU CVTXTNT2+112 00823000 CVTRV466 EQU CVTXTNT2+113 00824000 CVTFIX EQU 0 00825000 CVTRELNO EQU CVTFIX+252 00826000 IHADCB EQU 0 00827000 IHADCS04 EQU 0 00828000 DCBPRBYT EQU IHADCS04+3 00829000 IHADCS11 EQU 0 00830000 DCBRELB EQU IHADCS11 00831000 DCBREL EQU DCBRELB+1 00832000 DCBBUFCB EQU IHADCS11+4 00833000 DCBBUFNO EQU DCBBUFCB 00834000 DCBBUFCA EQU DCBBUFCB+1 00835000 DCBDSORG EQU IHADCS11+10 00836000 DCBDSRG1 EQU DCBDSORG 00837000 DCBDSRG2 EQU DCBDSORG+1 00838000 DCBIOBAD EQU IHADCS11+12 00839000 DCBODEB EQU DCBIOBAD 00840000 DCBLNP EQU DCBODEB 00841000 DCBQSLM EQU DCBLNP 00842000 DCBIOBAA EQU DCBODEB+1 00843000 IHADCS50 EQU 0 00844000 DCBSVCXL EQU IHADCS50 00845000 DCBEODAD EQU IHADCS50+4 00846000 DCBBFALN EQU DCBEODAD 00847000 DCBHIARC EQU DCBBFALN 00848000 DCBBFTEK EQU DCBHIARC 00849000 DCBBFT EQU DCBBFTEK 00850000 DCBEXLST EQU IHADCS50+8 00851000 DCBRECFM EQU DCBEXLST 00852000 DCBRECLA EQU DCBRECFM 00853000 IHADCS24 EQU 0 00854000 DCBOFLGS EQU IHADCS24+8 00855000 DCBOFLWR EQU DCBOFLGS 00856000 DCBIFLG EQU IHADCS24+9 00857000 DCBIBPCT EQU DCBIFLG 00858000 DCBMACR EQU IHADCS24+10 00859000 DCBMACR1 EQU DCBMACR 00860000 DCBMRFE EQU DCBMACR1 00861000 DCBMRGET EQU DCBMRFE 00862000 DCBMRAPG EQU DCBMACR1 00863000 DCBMRRD EQU DCBMRAPG 00864000 DCBMRCI EQU DCBMACR1 00865000 DCBMRMVG EQU DCBMRCI 00866000 DCBMRLCG EQU DCBMACR1 00867000 DCBMRABC EQU DCBMACR1 00868000 DCBMRPT1 EQU DCBMRABC 00869000 DCBMRSBG EQU DCBMRPT1 00870000 DCBMRCRL EQU DCBMACR1 00871000 DCBMRCHK EQU DCBMRCRL 00872000 DCBMRRDX EQU DCBMRCHK 00873000 DCBMRDMG EQU DCBMACR1 00874000 DCBMACR2 EQU DCBMACR+1 00875000 DCBMRPUT EQU DCBMACR2 00876000 DCBMRWRT EQU DCBMACR2 00877000 DCBMRMVP EQU DCBMACR2 00878000 DCBMR5WD EQU DCBMACR2 00879000 DCBMRLDM EQU DCBMR5WD 00880000 DCBMRLCP EQU DCBMRLDM 00881000 DCBMR4WD EQU DCBMACR2 00882000 DCBMRPT2 EQU DCBMR4WD 00883000 DCBMRTMD EQU DCBMRPT2 00884000 DCBMR3WD EQU DCBMACR2 00885000 DCBMRCTL EQU DCBMR3WD 00886000 DCBMRSTK EQU DCBMRCTL 00887000 DCBMR1WD EQU DCBMACR2 00888000 DCBMRSWA EQU DCBMR1WD 00889000 DCBMRDMD EQU DCBMRSWA 00890000 IHADCS25 EQU 0 00891000 DCBMACRF EQU IHADCS25+2 00892000 DCBMACF1 EQU DCBMACRF 00893000 DCBMFECP EQU DCBMACF1 00894000 DCBMFFE EQU DCBMACF1 00895000 DCBMFGET EQU DCBMFFE 00896000 DCBMFAPG EQU DCBMACF1 00897000 DCBMFRD EQU DCBMFAPG 00898000 DCBMFCI EQU DCBMACF1 00899000 DCBMFMVG EQU DCBMFCI 00900000 DCBMFLCG EQU DCBMACF1 00901000 DCBMFABC EQU DCBMACF1 00902000 DCBMFPT1 EQU DCBMFABC 00903000 DCBMFSBG EQU DCBMFPT1 00904000 DCBMFCRL EQU DCBMACF1 00905000 DCBMFCHK EQU DCBMFCRL 00906000 DCBMFDMG EQU DCBMACF1 00907000 DCBMACF2 EQU DCBMACRF+1 00908000 DCBMFPUT EQU DCBMACF2 00909000 DCBMFWRT EQU DCBMACF2 00910000 DCBMFMVP EQU DCBMACF2 00911000 DCBMF5WD EQU DCBMACF2 00912000 DCBMFLDM EQU DCBMF5WD 00913000 DCBMFLCP EQU DCBMFLDM 00914000 DCBMF4WD EQU DCBMACF2 00915000 DCBMFPT2 EQU DCBMF4WD 00916000 DCBMFTMD EQU DCBMFPT2 00917000 DCBMF3WD EQU DCBMACF2 00918000 DCBMFCTL EQU DCBMF3WD 00919000 DCBMFSTK EQU DCBMFCTL 00920000 DCBMF1WD EQU DCBMACF2 00921000 DCBMFSWA EQU DCBMF1WD 00922000 DCBMFDMD EQU DCBMFSWA 00923000 DCBDEBAD EQU IHADCS25+4 00924000 DCBIFLGS EQU DCBDEBAD 00925000 DCBIFPCT EQU DCBIFLGS 00926000 DCBDEBA EQU DCBDEBAD+1 00927000 IHADCS26 EQU 0 00928000 DCBWRITE EQU IHADCS26 00929000 DCBREAD EQU DCBWRITE 00930000 DCBWRITA EQU DCBREAD+1 00931000 IHADCS27 EQU 0 00932000 DCBGET EQU IHADCS27 00933000 DCBPUT EQU DCBGET 00934000 DCBGETA EQU DCBPUT+1 00935000 IHADCS36 EQU 0 00936000 DCBGERR EQU IHADCS36 00937000 DCBPERR EQU DCBGERR 00938000 DCBCHECK EQU DCBPERR 00939000 DCBOPTCD EQU DCBCHECK 00940000 DCBOPTC EQU DCBOPTCD 00941000 DCBOPTH EQU DCBOPTCD 00942000 DCBOPTO EQU DCBOPTH 00943000 DCBOPTZ EQU DCBOPTCD 00944000 DCBGERRA EQU DCBCHECK+1 00945000 DCBPERRA EQU DCBGERRA 00946000 DCBSYNAD EQU IHADCS36+4 00947000 DCBCIND1 EQU IHADCS36+8 00948000 DCBCIND2 EQU IHADCS36+9 00949000 DCBCNQSM EQU DCBCIND2 00950000 DCBIOBA EQU IHADCS36+16 00951000 DCBCICB EQU DCBIOBA 00952000 IHADCS52 EQU 0 00953000 DCBDIRCT EQU IHADCS52 00954000 DCBQSWS EQU DCBDIRCT 00955000 DCBUSASI EQU DCBQSWS 00956000 DCBQADFS EQU DCBUSASI 00957000 DCBBUFOF EQU DCBDIRCT+1 00958000 IHADCS37 EQU 0 00959000 DCBFLAG1 EQU IHADCS37 00960000 IHADCS38 EQU 0 00961000 DCBEOBR EQU IHADCS38 00962000 DCBPOINT EQU IHADCS38+12 00963000 DCBCNTRL EQU DCBPOINT 00964000 IHADCS40 EQU 0 00965000 DCBEOBAD EQU IHADCS40 00966000 DCBCCCW EQU IHADCS40+4 00967000 DCBRECAD EQU DCBCCCW 00968000 DCBRECBT EQU DCBRECAD 00969000 DCBRCREL EQU DCBRECBT 00970000 @NM00040 EQU IHADCS40+12 00971000 DCBEROPT EQU @NM00040 00972000 DEBBASIC EQU 0 00973000 DEBTCBAD EQU DEBBASIC 00974000 DEBTCBB EQU DEBTCBAD+1 00975000 DEBDEBAD EQU DEBBASIC+4 00976000 DEBIRBAD EQU DEBBASIC+8 00977000 DEBOFLGS EQU DEBIRBAD 00978000 DEBOPATB EQU DEBBASIC+12 00979000 DEBFLGS1 EQU DEBBASIC+14 00980000 DEBUSRPG EQU DEBBASIC+16 00981000 DEBRRQ EQU DEBBASIC+20 00982000 DEBECBAD EQU DEBRRQ 00983000 DEBDCBAD EQU DEBBASIC+24 00984000 DEBPROTG EQU DEBDCBAD 00985000 DEBAPPAD EQU DEBBASIC+28 00986000 DEBBASND EQU DEBBASIC+32 00987000 DEBDASD EQU 0 00988000 DEBUCBAD EQU DEBDASD 00989000 DEBACSMD EQU 0 00990000 DEBVOLSQ EQU DEBACSMD 00991000 DEBVOLBT EQU DEBVOLSQ 00992000 DEBDSNM EQU DEBACSMD+4 00993000 DEBUTSAA EQU DEBDSNM 00994000 DEBACS01 EQU 0 00995000 DEBDSNAM EQU DEBACS01 00996000 DEBACS02 EQU 0 00997000 DEBDBLK EQU DEBACS02 00998000 DEBACS03 EQU 0 00999000 DEBACS04 EQU 0 01000000 DEBTBFRA EQU DEBACS04 01001000 DEBTCCWA EQU DEBACS04+4 01002000 DEBACS05 EQU 0 01003000 DEBFUCBA EQU DEBACS05 01004000 DEBLUCBA EQU DEBACS05+4 01005000 DEBACS06 EQU 0 01006000 DEBACS07 EQU 0 01007000 DEBACS08 EQU 0 01008000 DEBSUBNM EQU 0 01009000 DEB EQU 0 01010000 DEBAVT EQU DEB 01011000 DEBEOEA EQU DEBAVT 01012000 DEBEOEAB EQU DEBEOEA 01013000 DEBSIOA EQU DEBAVT+4 01014000 DEBSIOAB EQU DEBSIOA 01015000 DEBPCIA EQU DEBAVT+8 01016000 DEBPCIAB EQU DEBPCIA 01017000 DEBCEA EQU DEBAVT+12 01018000 DEBCEAB EQU DEBCEA 01019000 DEBXCEA EQU DEBAVT+16 01020000 DEBXCEAB EQU DEBXCEA 01021000 DEBPREFX EQU DEB+20 01022000 DEBXTNP EQU DEBPREFX+8 01023000 DEBXTN EQU 0 01024000 DEBXFLG1 EQU DEBXTN+2 01025000 INFMJFCB EQU 0 01026000 JFCBDSNM EQU INFMJFCB 01027000 JFCBELNM EQU INFMJFCB+44 01028000 JFCBTSDM EQU INFMJFCB+52 01029000 JFCFCBID EQU INFMJFCB+56 01030000 JFCBFRID EQU JFCFCBID 01031000 JFCBLTYP EQU INFMJFCB+66 01032000 JFCBOTTR EQU INFMJFCB+67 01033000 JFCBUFOF EQU JFCBOTTR 01034000 JFCBFLSQ EQU JFCBOTTR+1 01035000 JFCFUNC EQU JFCBFLSQ 01036000 JFCBMASK EQU INFMJFCB+72 01037000 JFCBFLG1 EQU JFCBMASK+5 01038000 JFCOPEN EQU JFCBFLG1 01039000 JFCBFLG2 EQU JFCBMASK+6 01040000 JFCDEFER EQU JFCBFLG2 01041000 JFCBIND1 EQU INFMJFCB+86 01042000 JFCBIND2 EQU INFMJFCB+87 01043000 JFCAMPTR EQU INFMJFCB+88 01044000 JFCBUFRQ EQU JFCAMPTR 01045000 JFCBUFNO EQU JFCBUFRQ 01046000 JFCBGNCP EQU JFCAMPTR+1 01047000 JFCBHIAR EQU JFCBGNCP 01048000 JFCBFALN EQU JFCBHIAR 01049000 JFCBFTEK EQU JFCBFALN 01050000 JFCBBFTA EQU JFCBFTEK 01051000 JFCEROPT EQU INFMJFCB+92 01052000 JFCTRTCH EQU INFMJFCB+93 01053000 JFCBE EQU 0 01054000 JFCBFLAG EQU JFCBE+4 01055000 JFCBBST EQU JFCBFLAG 01056000 JFCIDTRC EQU JFCBE+5 01057000 JFCIMTOT EQU JFCBE+7 01058000 JFCBMAGT EQU JFCBE+8 01059000 JFCMODIF EQU JFCBE+12 01060000 JFCBTRS1 EQU JFCBE+20 01061000 JFCBTRS2 EQU JFCBE+24 01062000 JFCBTRS3 EQU JFCBE+28 01063000 JFCBTRS4 EQU JFCBE+32 01064000 JFCGROUP EQU JFCBE+36 01065000 JFCGRP1 EQU JFCGROUP 01066000 MSGINDEX EQU 0 01067000 MSGINDOF EQU MSGINDEX+2 01068000 MSGENTRY EQU 0 01069000 MSGOFF EQU MSGENTRY 01070000 MSGLNG EQU MSGENTRY+1 01071000 MSGOFF1 EQU MSGENTRY+2 01072000 MSGOFF2 EQU MSGENTRY+3 01073000 MSGOFF3 EQU MSGENTRY+4 01074000 MSGTXTD EQU 0 01075000 MSGTXT EQU MSGTXTD 01076000 MSGTXTFD EQU 0 01077000 FORCORE EQU 0 01078000 DXDSCB EQU FORCORE 01079000 DXJBF EQU FORCORE+100 01080000 DXDAADDR EQU FORCORE+312 01081000 DXDCB EQU FORCORE+320 01082000 DXCCW EQU FORCORE+368 01083000 DXCCW3 EQU DXCCW+16 01084000 DXCCW5 EQU DXCCW+32 01085000 DXCCW8 EQU DXCCW+56 01086000 DXCCW12 EQU DXCCW+88 01087000 DXXCTL EQU FORCORE+472 01088000 DXVOLSR EQU FORCORE+500 01089000 DXVOLSR1 EQU DXVOLSR 01090000 DXVOLSR2 EQU DXVOLSR+6 01091000 DXVOLSR3 EQU DXVOLSR+12 01092000 DXRESSW EQU FORCORE+524 01093000 DXUCBSAV EQU FORCORE+564 01094000 DXUDCBAD EQU FORCORE+568 01095000 DXPDCBAD EQU FORCORE+572 01096000 DXATCOM1 EQU FORCORE+588 01097000 DXATGENS EQU DXATCOM1 01098000 DXATVGIV EQU DXATGENS 01099000 DXATOUTA EQU DXATCOM1+2 01100000 DXATDACC EQU DXATCOM1+3 01101000 DXATCOM2 EQU FORCORE+592 01102000 DXATEOV EQU DXATCOM2 01103000 DXATOPEN EQU DXATCOM2+1 01104000 DXATALL EQU DXATCOM2+2 01105000 DXATEXC1 EQU FORCORE+604 01106000 DXATEXB1 EQU DXATEXC1 01107000 DXATEXC2 EQU FORCORE+608 01108000 DSECTSIZ EQU FORCORE+612 01109000 SPPARM EQU 0 01110000 SPPDCBA EQU SPPARM 01111000 SPPFDUNF EQU SPPARM+10 01112000 SPPFBLK EQU SPPFDUNF 01113000 SPPEXTL EQU SPPFDUNF 01114000 SPPFCBAD EQU SPPARM+11 01115000 SPPFCB EQU SPPFCBAD 01116000 SPPVERAL EQU SPPARM+15 01117000 SPPVERIF EQU SPPVERAL 01118000 SPPFLAG1 EQU SPPARM+16 01119000 SPPBURST EQU SPPFLAG1 01120000 SPPINIT EQU SPPFLAG1 01121000 SPPFLAG2 EQU SPPARM+17 01122000 SPPCPYNR EQU SPPARM+18 01123000 SPPSTCNR EQU SPPARM+19 01124000 SPPFRMNR EQU SPPARM+22 01125000 SPPTRC EQU SPPARM+23 01126000 SPPMODPT EQU SPPARM+24 01127000 SPPMDPTA EQU SPPMODPT 01128000 SPPIMAGE EQU SPPARM+28 01129000 SPPXLAT1 EQU SPPARM+32 01130000 SPPXLT1A EQU SPPXLAT1 01131000 SPPXLAT2 EQU SPPARM+36 01132000 SPPXLT2A EQU SPPXLAT2 01133000 SPPXLAT3 EQU SPPARM+40 01134000 SPPXLT3A EQU SPPXLAT3 01135000 SPPXLAT4 EQU SPPARM+44 01136000 SPPXLT4A EQU SPPXLAT4 01137000 TCBFIX EQU 0 01138000 TCBFRS EQU TCBFIX 01139000 TCB EQU 0 01140000 TCBPIE EQU TCB+4 01141000 TCBPMASK EQU TCBPIE 01142000 TCBCMP EQU TCB+16 01143000 TCBCMPF EQU TCBCMP 01144000 TCBCPP EQU TCBCMPF 01145000 TCBSTCC EQU TCBCMPF 01146000 TCBCDBL EQU TCBCMPF 01147000 TCBCWTO EQU TCBCMPF 01148000 TCBCIND EQU TCBCMPF 01149000 TCBCMSG EQU TCBCMPF 01150000 TCBTRN EQU TCB+20 01151000 TCBABF EQU TCBTRN 01152000 TCBMSS EQU TCB+24 01153000 TCBPKF EQU TCB+28 01154000 TCBFLGS EQU TCB+29 01155000 TCBFLGS1 EQU TCBFLGS 01156000 TCBFLGS2 EQU TCBFLGS+1 01157000 TCBFLGS3 EQU TCBFLGS+2 01158000 TCBFLGS4 EQU TCBFLGS+3 01159000 TCBFLGS5 EQU TCBFLGS+4 01160000 TCBABWF EQU TCBFLGS5 01161000 TCBJPQ EQU TCB+44 01162000 TCBPURGE EQU TCBJPQ 01163000 TCBGRS EQU TCB+48 01164000 TCBFSA EQU TCB+112 01165000 TCBTME EQU TCB+120 01166000 TCBJSTCB EQU TCB+124 01167000 TCBTSFLG EQU TCB+148 01168000 TCBTSTSK EQU TCBTSFLG 01169000 TCBSTAB EQU TCB+160 01170000 TCBNSTAE EQU TCBSTAB 01171000 TCBTCT EQU TCB+164 01172000 TCBTCTGF EQU TCBTCT 01173000 TCBSCNDY EQU TCB+172 01174000 TCBNDSP EQU TCBSCNDY 01175000 TCBNDSP1 EQU TCBNDSP+1 01176000 TCBNDSP2 EQU TCBNDSP+2 01177000 TCBNDSP3 EQU TCBNDSP+3 01178000 TCBJSCB EQU TCB+180 01179000 TCBRECDE EQU TCBJSCB 01180000 TCBEXT1 EQU TCB+196 01181000 TCBBITS EQU TCB+200 01182000 TCBNDSP4 EQU TCBBITS 01183000 TCBNDSP5 EQU TCBBITS+1 01184000 TCBFLGS6 EQU TCBBITS+2 01185000 TCBFLGS7 EQU TCBBITS+3 01186000 TCBDAR EQU TCB+204 01187000 TCBDARC EQU TCBDAR 01188000 TCBEXT2 EQU TCB+208 01189000 TCBFOE EQU TCB+244 01190000 TCBESTAE EQU TCB+264 01191000 TCBESTRM EQU TCBESTAE+1 01192000 TCBFBYT1 EQU TCB+276 01193000 TCBFBYT2 EQU TCB+277 01194000 TCBRV124 EQU TCB+278 01195000 TCBRV133 EQU TCB+279 01196000 TCBXTNT2 EQU 0 01197000 TCBGTF EQU TCBXTNT2 01198000 TCBTFLG EQU TCBGTF 01199000 TCBRV146 EQU TCBXTNT2+28 01200000 TCBRV155 EQU TCBXTNT2+29 01201000 TCBRV164 EQU TCBXTNT2+30 01202000 TCBRV173 EQU TCBXTNT2+31 01203000 UCB EQU 0 01204000 UCBOB EQU 0 01205000 UCBJBNR EQU UCBOB 01206000 UCBFL5 EQU UCBOB+1 01207000 UCBAF EQU UCBFL5 01208000 UCBSTAT EQU UCBOB+3 01209000 UCBCHAN EQU UCBOB+4 01210000 UCBSFLS EQU UCBOB+6 01211000 UCBFLA EQU UCBSFLS 01212000 UCBFL1 EQU UCBFLA 01213000 UCBBSY EQU UCBFL1 01214000 UCBNRY EQU UCBFL1 01215000 UCBPST EQU UCBFL1 01216000 UCBCUB EQU UCBFL1 01217000 UCBFLB EQU UCBSFLS+1 01218000 UCBCHM EQU UCBOB+8 01219000 UCBCHM1 EQU UCBCHM 01220000 UCBPTH0 EQU UCBCHM1 01221000 UCBPTH1 EQU UCBCHM1 01222000 UCBWGT EQU UCBOB+12 01223000 UCBNAME EQU UCBOB+13 01224000 UCBTYP EQU UCBOB+16 01225000 UCBTBYT1 EQU UCBTYP 01226000 UCB1FEA5 EQU UCBTBYT1 01227000 UCB1FEA6 EQU UCBTBYT1 01228000 UCBTBYT2 EQU UCBTYP+1 01229000 UCB2OPT2 EQU UCBTBYT2 01230000 UCBDUDN1 EQU UCB2OPT2 01231000 UCB2OPT3 EQU UCBTBYT2 01232000 UCBDUDN2 EQU UCB2OPT3 01233000 UCB2OPT4 EQU UCBTBYT2 01234000 UCBRWTAU EQU UCB2OPT4 01235000 UCB2OPT6 EQU UCBTBYT2 01236000 UCB2OPT7 EQU UCBTBYT2 01237000 UCBTBYT3 EQU UCBTYP+2 01238000 UCBDVCLS EQU UCBTBYT3 01239000 UCBTBYT4 EQU UCBTYP+3 01240000 UCBEXTPT EQU UCBOB+20 01241000 UCBFLC EQU UCBEXTPT 01242000 UCBDEV EQU UCBOB+24 01243000 UCBCMEXT EQU 0 01244000 UCBATI EQU UCBCMEXT+3 01245000 @NM00083 EQU UCBATI 01246000 UCBFLP1 EQU UCBCMEXT+5 01247000 UCBMT EQU 0 01248000 UCBOCR EQU 0 01249000 UCB3540X EQU 0 01250000 UCBDKBYT EQU UCB3540X+6 01251000 UCB3800X EQU 0 01252000 UCBOPTNS EQU UCB3800X 01253000 UCBACTIV EQU UCB3800X+3 01254000 UCBMDRBF EQU UCB3800X+36 01255000 UCBMDRBA EQU UCBMDRBF+1 01256000 UCBUCS EQU 0 01257000 UCBUCSOP EQU UCBUCS+4 01258000 UCBFCBOP EQU UCBUCS+5 01259000 IECPREFX EQU 0 01260000 IECEXTPR EQU IECPREFX+32 01261000 IECREGSV EQU IECEXTPR 01262000 IECUPRML EQU IECEXTPR+80 01263000 IECRESWA EQU IECEXTPR+84 01264000 RWARESWA EQU 0 01265000 RWAPREFX EQU RWARESWA 01266000 USERPRML EQU 0 01267000 IECRRPL EQU 0 01268000 RRPLIST EQU IECRRPL 01269000 RRFUNCTN EQU RRPLIST 01270000 RRFLAGS1 EQU RRPLIST+1 01271000 RRFLAGS2 EQU RRPLIST+2 01272000 RRFLAGS3 EQU RRPLIST+3 01273000 RRXRETRY EQU RRPLIST+12 01274000 DSMADTRL EQU 0 01275000 DSMADTW1 EQU DSMADTRL 01276000 DSMADTB1 EQU DSMADTW1 01277000 DSMADTB2 EQU DSMADTW1+1 01278000 WTGTABLE EQU 0 01279000 WTGWTOPR EQU WTGTABLE 01280000 WTG EQU 0 01281000 WTGAREA EQU WTG 01282000 WTGMODNM EQU WTGAREA 01283000 WTGMODID EQU WTGMODNM+6 01284000 WTGMODEP EQU WTGAREA+8 01285000 WTGPREFX EQU WTGAREA+16 01286000 WTGPATHS EQU WTG+30 01287000 WTGENTRY EQU 0 01288000 WTGIDTTR EQU WTGENTRY 01289000 WTGEID EQU WTGIDTTR 01290000 WTGETTR EQU WTGIDTTR+2 01291000 WTGCORE EQU WTGENTRY+5 01292000 APPNMTBL EQU 0 01293000 APPENTRY EQU APPNMTBL+4 01294000 IKEBC EQU 0 01295000 IKEBF15 EQU 0 01296000 IKEBF31 EQU 0 01297000 IKEBP15 EQU 0 01298000 IKEBP31 EQU 0 01299000 IKEBP8 EQU 0 01300000 SPPXLAT EQU 0 01301000 UCBBGN EQU 0 01302000 WTGEADDR EQU WTGETTR 01303000 @NM00001 EQU DCBBUFCA 01304000 BUFCABIT EQU @NM00001+2 01305000 CVTS01 EQU CVTPGSIA 01306000 CVTLPDIA EQU CVTS01+12 01307000 CVTDIRST EQU CVTLPDIA 01308000 CVTSLIDA EQU CVTS01+24 01309000 CVTCTLFG EQU CVTS01+50 01310000 CVTRV210 EQU CVTS01+424 01311000 CVTRV219 EQU CVTS01+425 01312000 CVTRV228 EQU CVTS01+426 01313000 CVTRV237 EQU CVTS01+427 01314000 CVTMFRTR EQU CVTS01+452 01315000 CVTRV262 EQU CVTS01+468 01316000 CVTRV271 EQU CVTS01+469 01317000 CVTRV280 EQU CVTS01+470 01318000 CVTRV289 EQU CVTS01+471 01319000 CVTGSDA EQU CVTS01+600 01320000 DEBBAS02 EQU DEBBASND 01321000 DEBDDS1 EQU DEBBAS02 01322000 DEBSUCBA EQU DEBDDS1 01323000 DEBDEVED EQU DEBDDS1+4 01324000 DEBRDCB EQU DEBDDS1+4 01325000 DEBPDCB EQU DEBDDS1+8 01326000 DEBWDCB EQU DEBDDS1+12 01327000 DEBACS09 EQU DEBDEVED 01328000 DEBASC09 EQU DEBACS09 01329000 DEBEAMFG EQU DEBASC09+3 01330000 DEBDSID EQU DEBASC09+4 01331000 DEBEOD EQU DEBASC09+12 01332000 DEBBOE EQU DEBEOD 01333000 DEBEODRV EQU DEBBOE 01334000 DEBEODTT EQU DEBBOE+1 01335000 DEBEOD0 EQU DEBBOE+2 01336000 DEBEODSS EQU DEBBOE+3 01337000 DEBBAS01 EQU DEBBASND 01338000 DEBISAM EQU DEBBAS01 01339000 DEBFIEAD EQU DEBISAM 01340000 DEBFPEAD EQU DEBISAM+4 01341000 DEBFOEAD EQU DEBISAM+8 01342000 DEBEXPT EQU DEBISAM+12 01343000 DEBRPSID EQU DEBEXPT 01344000 JFCKEYLE EQU JFCTRTCH 01345000 JFCCODE EQU JFCKEYLE 01346000 JFCSTACK EQU JFCTRTCH 01347000 JFCMODE EQU JFCSTACK 01348000 JFCSPPRT EQU JFCTRTCH 01349000 JFCBABFS EQU JFCSPPRT+2 01350000 JFCLIMCT EQU JFCBABFS 01351000 JFCDSORG EQU JFCSPPRT+5 01352000 JFCDSRG1 EQU JFCDSORG 01353000 JFCDSRG2 EQU JFCDSORG+1 01354000 JFCRECFM EQU JFCSPPRT+7 01355000 JFCRCFM EQU JFCRECFM 01356000 JFCOPTCD EQU JFCSPPRT+8 01357000 JFCWVCSP EQU JFCOPTCD 01358000 JFCWVCIS EQU JFCWVCSP 01359000 JFCWVCBD EQU JFCWVCIS 01360000 JFCALLOW EQU JFCOPTCD 01361000 JFCRSV17 EQU JFCALLOW 01362000 JFCOVER EQU JFCRSV17 01363000 JFCPCIBT EQU JFCOPTCD 01364000 JFCMAST EQU JFCPCIBT 01365000 JFCEXT EQU JFCMAST 01366000 JFCBCKPT EQU JFCOPTCD 01367000 JFCIND EQU JFCBCKPT 01368000 JFCRSV18 EQU JFCOPTCD 01369000 JFCCYL EQU JFCRSV18 01370000 JFCACT EQU JFCCYL 01371000 JFCREDUC EQU JFCOPTCD 01372000 JFCRSV19 EQU JFCREDUC 01373000 JFCRSV20 EQU JFCRSV19 01374000 JFCRSV21 EQU JFCOPTCD 01375000 JFCDEL EQU JFCRSV21 01376000 JFCOPTJ EQU JFCOPTCD 01377000 JFCREORG EQU JFCOPTJ 01378000 JFCBLKSI EQU JFCSPPRT+9 01379000 JFCBUFSI EQU JFCBLKSI 01380000 JFCAMSYN EQU JFCSPPRT+11 01381000 JFCNCP EQU JFCAMSYN+2 01382000 JFCNTM EQU JFCAMSYN+3 01383000 JFCBFSEQ EQU JFCNTM 01384000 JFCPCI EQU JFCBFSEQ 01385000 JFCRESRV EQU JFCAMSYN+4 01386000 JFCUCSEG EQU JFCRESRV 01387000 JFCUCSOP EQU JFCUCSEG+4 01388000 JFCBEXTP EQU JFCUCSOP 01389000 JFCFCBVR EQU JFCUCSOP 01390000 JFCOUTLI EQU JFCUCSEG+5 01391000 JFCTHRSH EQU JFCOUTLI 01392000 JFCCPRI EQU JFCTHRSH 01393000 JFCBVOLS EQU JFCUCSEG+10 01394000 JFCBS001 EQU JFCBVOLS 01395000 JFCBEXAD EQU JFCBS001+31 01396000 JFCBPQTY EQU JFCBS001+34 01397000 JFCBCTRI EQU JFCBS001+37 01398000 JFCBSQTY EQU JFCBS001+38 01399000 JFCFLGS1 EQU JFCBS001+41 01400000 JFCBSPNM EQU JFCBS001+45 01401000 JFCBFLG3 EQU JFCBSPNM 01402000 UCBOBS01 EQU UCBDEV 01403000 UCBSTAB EQU UCBOBS01+10 01404000 UCBBSVL EQU UCBSTAB 01405000 UCBPRSRS EQU UCBSTAB 01406000 UCBDMCT EQU UCBOBS01+11 01407000 UCBFL4 EQU UCBOBS01+13 01408000 UCBOBS02 EQU UCBDEV 01409000 UCBTFL1 EQU UCBOBS02+19 01410000 UCBXTN EQU UCBOBS02+20 01411000 UCBVOPT EQU UCBXTN 01412000 UCBOBS03 EQU UCBDEV 01413000 UCBXTADR EQU UCBOBS03 01414000 UCBOBS04 EQU UCBDEV 01415000 UCBBTA EQU UCBOBS04+12 01416000 UCBOBS06 EQU UCBDEV 01417000 UCBAOF EQU UCBOBS06 01418000 UCBAOF1 EQU UCBAOF 01419000 UCBAOF2 EQU UCBAOF+1 01420000 @NM00082 EQU UCBOBS06+3 01421000 UCBIRB EQU UCBOBS06+4 01422000 UCBGRAF EQU UCBIRB 01423000 UCBLDNCA EQU UCBOBS06+8 01424000 UCBRDYQ EQU UCBLDNCA 01425000 UCBIRLN EQU UCBRDYQ 01426000 UCBLDNCB EQU UCBRDYQ+1 01427000 UCBCTLNK EQU UCBOBS06+12 01428000 UCBOBS07 EQU UCBDEV 01429000 UCBOBS08 EQU UCBDEV 01430000 UCBCTCAD EQU UCBOBS08 01431000 UCBCTCF1 EQU UCBOBS08+4 01432000 UCBOBS09 EQU UCBDEV 01433000 DXXWTG EQU DSECTSIZ 01434000 DXXAREA EQU DSECTSIZ+4 01435000 DXXMODNM EQU DXXAREA 01436000 DXXLNG EQU DXXAREA+29 01437000 DXXENTRY EQU DXXAREA+32 01438000 DXXIDTTR EQU DXXENTRY 01439000 DXREGSAV EQU DXCCW8 01440000 DXREG1 EQU DXREGSAV+28 01441000 DXIDENT EQU DXCCW12 01442000 DXCALLID EQU DXIDENT 01443000 DXRETMOD EQU DXIDENT+2 01444000 @NM00101 EQU DXXCTL 01445000 DXSAVMOD EQU @NM00101+2 01446000 @NM00102 EQU DXRESSW 01447000 DXBTAMX EQU DXREG1 01448000 DXDSNAME EQU DXCCW5 01449000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01450000 DXRESIND EQU @NM00102 01451000 DXSAVOFF EQU @NM00101+7 01452000 DXSAVADR EQU DXSAVMOD+2 01453000 DXSAVID EQU DXSAVMOD 01454000 DXABCODE EQU @NM00101 01455000 DXRETCOD EQU DXIDENT+7 01456000 DXRETTTR EQU DXRETMOD+2 01457000 DXRETID EQU DXRETMOD 01458000 DXREG0 EQU DXREGSAV+24 01459000 DXREGE EQU DXREGSAV+20 01460000 DXREGD EQU DXREGSAV+16 01461000 DXREGC EQU DXREGSAV+12 01462000 DXREGB EQU DXREGSAV+8 01463000 DXREGA EQU DXREGSAV+4 01464000 DXREG9 EQU DXREGSAV 01465000 DXXEND EQU DXXAREA+48 01466000 DXXLAST EQU DXXAREA+40 01467000 DXXCORE EQU DXXENTRY+5 01468000 DXETTR EQU DXXIDTTR+2 01469000 DXEID EQU DXXIDTTR 01470000 DXXPATHS EQU DXXAREA+30 01471000 DXOPCLSW EQU DXXLNG 01472000 DXXTXTLN EQU DXXAREA+27 01473000 DXXMODSZ EQU DXXAREA+24 01474000 DXXATTRB EQU DXXAREA+22 01475000 @NM00086 EQU DXXAREA+20 01476000 DXXPREFX EQU DXXAREA+16 01477000 @NM00085 EQU DXXAREA+12 01478000 DXXMODEP EQU DXXAREA+8 01479000 DXXMODID EQU DXXMODNM+6 01480000 @NM00084 EQU DXXMODNM 01481000 DXXWTOPR EQU DXXWTG 01482000 UCBRV066 EQU UCBOBS09+4 01483000 UCBIOSBA EQU UCBOBS09 01484000 UCBRV042 EQU UCBOBS08+5 01485000 UCBRV082 EQU UCBCTCF1 01486000 UCBRV081 EQU UCBCTCF1 01487000 UCBRV080 EQU UCBCTCF1 01488000 UCBRV079 EQU UCBCTCF1 01489000 UCBRV078 EQU UCBCTCF1 01490000 UCBRV077 EQU UCBCTCF1 01491000 UCBRV076 EQU UCBCTCF1 01492000 UCBCTC80 EQU UCBCTCF1 01493000 UCBCTCAL EQU UCBCTCAD 01494000 UCBICNCB EQU UCBOBS07+4 01495000 UCBRV040 EQU UCBOBS07 01496000 UCBCTLNA EQU UCBCTLNK+1 01497000 UCBRLN EQU UCBCTLNK 01498000 UCBRDYQA EQU UCBLDNCB 01499000 UCBINRLN EQU UCBIRLN 01500000 UCBIRBA EQU UCBIRB+1 01501000 UCBRV039 EQU UCBGRAF 01502000 UCBDWNR EQU UCBGRAF 01503000 UCBRPND EQU UCBGRAF 01504000 UCBUPM EQU UCBGRAF 01505000 UCBBTAM EQU UCBGRAF 01506000 UCBDRNO EQU UCBGRAF 01507000 UCBDRO EQU UCBGRAF 01508000 UCBOIP EQU UCBGRAF 01509000 UCBATRCD EQU @NM00082 01510000 UCBSKPFG EQU @NM00082 01511000 UCBRIPND EQU @NM00082 01512000 UCBRTIAC EQU @NM00082 01513000 UCBRSV79 EQU @NM00082 01514000 UCBRSV78 EQU @NM00082 01515000 UCBRSV77 EQU @NM00082 01516000 UCBOLTEP EQU @NM00082 01517000 UCBATNCT EQU UCBOBS06+2 01518000 UCBRSV76 EQU UCBAOF2 01519000 UCBRSV75 EQU UCBAOF2 01520000 UCBRSV74 EQU UCBAOF2 01521000 UCBRSV73 EQU UCBAOF2 01522000 UCBRSV72 EQU UCBAOF2 01523000 UCBRSV71 EQU UCBAOF2 01524000 UCBRSV70 EQU UCBAOF2 01525000 UCBRSV69 EQU UCBAOF2 01526000 UCBRSV68 EQU UCBAOF1 01527000 UCBRSV67 EQU UCBAOF1 01528000 UCBRSV66 EQU UCBAOF1 01529000 UCBRSV65 EQU UCBAOF1 01530000 UCBRSV64 EQU UCBAOF1 01531000 UCBOFNL EQU UCBAOF1 01532000 UCBOFSP EQU UCBAOF1 01533000 UCBOFMCR EQU UCBAOF1 01534000 UCBBTB EQU UCBBTA+1 01535000 UCBDI EQU UCBBTA 01536000 UCBSNS EQU UCBOBS04+8 01537000 UCBTEB EQU UCBOBS04+4 01538000 UCBGCB EQU UCBOBS04+3 01539000 UCBOPEN EQU UCBOBS04+2 01540000 UCBSTART EQU UCBOBS04 01541000 UCBXTNB EQU UCBXTN+1 01542000 UCBRSV22 EQU UCBVOPT 01543000 UCBRSV21 EQU UCBVOPT 01544000 UCBRSV20 EQU UCBVOPT 01545000 UCBESVE EQU UCBVOPT 01546000 UCBERPC EQU UCBVOPT 01547000 UCBESVC EQU UCBVOPT 01548000 UCBEVA EQU UCBVOPT 01549000 UCBESV EQU UCBVOPT 01550000 UCBRV009 EQU UCBTFL1 01551000 UCBRV008 EQU UCBTFL1 01552000 UCBRV007 EQU UCBTFL1 01553000 UCBRV006 EQU UCBTFL1 01554000 UCBRV005 EQU UCBTFL1 01555000 UCBDQDSP EQU UCBTFL1 01556000 UCBNSLTP EQU UCBTFL1 01557000 UCBNLTP EQU UCBTFL1 01558000 UCBRES1B EQU UCBOBS02+18 01559000 UCBFSER EQU UCBOBS02+12 01560000 @NM00081 EQU UCBOBS02+4 01561000 UCBFSEQ EQU UCBOBS02+2 01562000 UCBFSCT EQU UCBOBS02 01563000 UCBNEXP EQU UCBOBS01+20 01564000 UCBBASE EQU UCBOBS01+16 01565000 UCBRES1A EQU UCBOBS01+15 01566000 UCBUSER EQU UCBOBS01+14 01567000 UCBFL47 EQU UCBFL4 01568000 UCBFL46 EQU UCBFL4 01569000 UCBFL45 EQU UCBFL4 01570000 UCBRV065 EQU UCBFL4 01571000 UCBDSS EQU UCBFL4 01572000 UCBRESVP EQU UCBFL4 01573000 UCBWDAV EQU UCBFL4 01574000 UCBDAVV EQU UCBFL4 01575000 UCBSQC EQU UCBOBS01+12 01576000 UCBDATP EQU UCBOBS01+12 01577000 UCBDMC EQU UCBDMCT 01578000 UCBMOUNT EQU UCBDMCT 01579000 UCBBNUL EQU UCBSTAB 01580000 UCBSHAR EQU UCBSTAB 01581000 UCBBSTR EQU UCBSTAB 01582000 UCBBPUB EQU UCBSTAB 01583000 UCBBPRV EQU UCBSTAB 01584000 UCBBALB EQU UCBPRSRS 01585000 UCBPGFL EQU UCBSTAB 01586000 UCBDVSHR EQU UCBBSVL 01587000 UCBVOLI EQU UCBOBS01+4 01588000 UCBVTOC EQU UCBOBS01 01589000 JFCBEND EQU JFCBS001+58 01590000 JFCBSPTN EQU JFCBS001+57 01591000 JFCBVLCT EQU JFCBS001+56 01592000 JFCBDRLH EQU JFCBS001+53 01593000 JFCBSBNM EQU JFCBS001+50 01594000 JFCBABST EQU JFCBS001+48 01595000 JFCBRV08 EQU JFCBSPNM+1 01596000 JFCBRV07 EQU JFCBFLG3 01597000 JFCBRV06 EQU JFCBFLG3 01598000 JFCBRV05 EQU JFCBFLG3 01599000 JFCBRV04 EQU JFCBFLG3 01600000 JFCBRV03 EQU JFCBFLG3 01601000 JFCBRV02 EQU JFCBFLG3 01602000 JFCBRV01 EQU JFCBFLG3 01603000 JFCDQDSP EQU JFCBFLG3 01604000 JFCBDQTY EQU JFCBS001+42 01605000 JFCBUAFF EQU JFCFLGS1 01606000 JFCRSV45 EQU JFCFLGS1 01607000 JFCVRDS EQU JFCFLGS1 01608000 JFCBCEOV EQU JFCFLGS1 01609000 JFCRSV42 EQU JFCFLGS1 01610000 JFCBADSP EQU JFCFLGS1 01611000 JFCTOPEN EQU JFCFLGS1 01612000 JFCBDLET EQU JFCFLGS1 01613000 JFCRQID EQU JFCBSQTY 01614000 JFCROUND EQU JFCBCTRI 01615000 JFCALX EQU JFCBCTRI 01616000 JFCMIXG EQU JFCBCTRI 01617000 JFCONTIG EQU JFCBCTRI 01618000 JFCRSV29 EQU JFCBCTRI 01619000 JFCBMSGP EQU JFCBCTRI 01620000 JFCBSPAC EQU JFCBCTRI 01621000 JFCRUNIT EQU JFCBPQTY 01622000 JFCBEXTL EQU JFCBS001+30 01623000 JFCMSVGP EQU JFCBS001+22 01624000 @NM00051 EQU JFCBS001 01625000 JFCAVOLS EQU JFCBVOLS 01626000 JFCBNVOL EQU JFCUCSEG+9 01627000 JFCBNTCS EQU JFCUCSEG+8 01628000 JFCSOWA EQU JFCOUTLI+1 01629000 JFCSEND EQU JFCCPRI 01630000 JFCEQUAL EQU JFCCPRI 01631000 JFCRECV EQU JFCCPRI 01632000 JFCRSV34 EQU JFCCPRI 01633000 JFCRSV33 EQU JFCCPRI 01634000 JFCRSV55 EQU JFCCPRI 01635000 JFCRSV54 EQU JFCCPRI 01636000 JFCRSV53 EQU JFCCPRI 01637000 JFCRSV27 EQU JFCUCSOP 01638000 JFCRSV26 EQU JFCUCSOP 01639000 JFCFCBAL EQU JFCUCSOP 01640000 JFCVER EQU JFCUCSOP 01641000 JFCRSV25 EQU JFCUCSOP 01642000 JFCFOLD EQU JFCUCSOP 01643000 JFCUCSID EQU JFCUCSEG 01644000 JFCINTVL EQU JFCSPPRT+19 01645000 JFCDBUFN EQU JFCRESRV+3 01646000 JFCCYLOF EQU JFCRESRV+2 01647000 JFCRKP EQU JFCRESRV 01648000 JFCPCIR2 EQU JFCPCI 01649000 JFCPCIR1 EQU JFCPCI 01650000 JFCPCIN2 EQU JFCPCI 01651000 JFCPCIN1 EQU JFCPCI 01652000 JFCPCIA2 EQU JFCPCI 01653000 JFCPCIA1 EQU JFCPCI 01654000 JFCPCIX2 EQU JFCPCI 01655000 JFCPCIX1 EQU JFCPCI 01656000 JFCBUFMX EQU JFCNCP 01657000 JFCLRECL EQU JFCAMSYN 01658000 JFCBAXBF EQU JFCBUFSI 01659000 JFCREL EQU JFCREORG 01660000 JFCRSV22 EQU JFCDEL 01661000 JFCSRCHD EQU JFCRSV20 01662000 JFCOPTQ EQU JFCACT 01663000 JFCFEED EQU JFCIND 01664000 JFCCBWU EQU JFCEXT 01665000 JFCWUMSG EQU JFCOVER 01666000 JFCSDNAM EQU JFCWVCBD 01667000 @NM00050 EQU JFCRECFM 01668000 JFCCHAR EQU JFCRECFM 01669000 JFCRFS EQU JFCRECFM 01670000 JFCRFB EQU JFCRECFM 01671000 JFCRFO EQU JFCRCFM 01672000 JFCFMREC EQU JFCRCFM 01673000 JFCRSV16 EQU JFCDSRG2 01674000 JFCRSV15 EQU JFCDSRG2 01675000 JFCORGTR EQU JFCDSRG2 01676000 JFCORGAM EQU JFCDSRG2 01677000 JFCRSV13 EQU JFCDSRG2 01678000 JFCORGTQ EQU JFCDSRG2 01679000 JFCORGTX EQU JFCDSRG2 01680000 JFCORGGS EQU JFCDSRG2 01681000 JFCORGU EQU JFCDSRG1 01682000 JFCORGPO EQU JFCDSRG1 01683000 JFCORGMQ EQU JFCDSRG1 01684000 JFCORGCQ EQU JFCDSRG1 01685000 JFCORGCX EQU JFCDSRG1 01686000 JFCORGDA EQU JFCDSRG1 01687000 JFCORGPS EQU JFCDSRG1 01688000 JFCORGIS EQU JFCDSRG1 01689000 JFCTRKBL EQU JFCLIMCT+1 01690000 @NM00049 EQU JFCLIMCT 01691000 JFCDEN EQU JFCSPPRT+1 01692000 JFCPRTSP EQU JFCSPPRT 01693000 JFCONE EQU JFCMODE 01694000 JFCTWO EQU JFCMODE 01695000 JFCRSV07 EQU JFCMODE 01696000 JFCRSV06 EQU JFCMODE 01697000 JFCMODER EQU JFCMODE 01698000 JFCMODEO EQU JFCMODE 01699000 JFCEBCD EQU JFCMODE 01700000 JFCBIN EQU JFCMODE 01701000 JFCRSV32 EQU JFCCODE 01702000 JFCTTY EQU JFCCODE 01703000 JFCASCII EQU JFCCODE 01704000 JFCNCR EQU JFCCODE 01705000 JFCBUR EQU JFCCODE 01706000 JFCFRI EQU JFCCODE 01707000 JFCBCD EQU JFCCODE 01708000 JFCNOCON EQU JFCCODE 01709000 DEBEXPTA EQU DEBEXPT+1 01710000 DEBRSV12 EQU DEBRPSID 01711000 DEBRSV11 EQU DEBRPSID 01712000 DEBRSV10 EQU DEBRPSID 01713000 DEBRSV09 EQU DEBRPSID 01714000 DEBRPSAP EQU DEBRPSID 01715000 DEBRPSO EQU DEBRPSID 01716000 DEBRPSI EQU DEBRPSID 01717000 DEBRPSP EQU DEBRPSID 01718000 DEBFOEB EQU DEBFOEAD+1 01719000 DEBNOEE EQU DEBFOEAD 01720000 DEBFPEB EQU DEBFPEAD+1 01721000 DEBNPEE EQU DEBFPEAD 01722000 DEBFIEB EQU DEBFIEAD+1 01723000 DEBNIEE EQU DEBFIEAD 01724000 DEBBOESS EQU DEBEODSS 01725000 DEBBOE0 EQU DEBEOD0 01726000 DEBBOETT EQU DEBEODTT 01727000 DEBBOERV EQU DEBEODRV 01728000 DEBRV008 EQU DEBDSID+7 01729000 DEBWTPTI EQU DEBDSID+6 01730000 DEBEXDTE EQU DEBDSID 01731000 DEBRV007 EQU DEBEAMFG 01732000 DEBRV006 EQU DEBEAMFG 01733000 DEBRV005 EQU DEBEAMFG 01734000 DEBRV004 EQU DEBEAMFG 01735000 DEBSECVL EQU DEBEAMFG 01736000 DEBVAMSG EQU DEBEAMFG 01737000 DEBDSOPN EQU DEBEAMFG 01738000 DEBMULTI EQU DEBEAMFG 01739000 DEBVSEQU EQU DEBASC09+2 01740000 DEBDSSQL EQU DEBASC09+1 01741000 DEBVOLAC EQU DEBASC09 01742000 DEBWDCBA EQU DEBWDCB+1 01743000 DEBRSV08 EQU DEBWDCB 01744000 DEBPDCBA EQU DEBPDCB+1 01745000 DEBRSV07 EQU DEBPDCB 01746000 DEBRDCBA EQU DEBRDCB+1 01747000 DEBRSV06 EQU DEBRDCB 01748000 DEBSUCBB EQU DEBSUCBA+1 01749000 DEBSDVM EQU DEBSUCBA 01750000 CVTRV628 EQU CVTS01+728 01751000 CVTRV627 EQU CVTS01+724 01752000 CVTRV626 EQU CVTS01+720 01753000 CVTRV625 EQU CVTS01+716 01754000 CVTRV624 EQU CVTS01+712 01755000 CVTRV623 EQU CVTS01+708 01756000 CVTRV622 EQU CVTS01+704 01757000 CVTRV621 EQU CVTS01+700 01758000 CVTIHASU EQU CVTS01+696 01759000 CVTRV619 EQU CVTS01+692 01760000 CVTRV618 EQU CVTS01+688 01761000 CVTRV617 EQU CVTS01+684 01762000 CVTRV616 EQU CVTS01+680 01763000 CVTRV615 EQU CVTS01+676 01764000 CVTRV614 EQU CVTS01+672 01765000 CVTRV613 EQU CVTS01+668 01766000 CVTTCASP EQU CVTS01+664 01767000 CVT0PT03 EQU CVTS01+660 01768000 CVT0PT0E EQU CVTS01+656 01769000 CVTRV609 EQU CVTS01+652 01770000 CVTCGK EQU CVTS01+648 01771000 CVTRAC EQU CVTS01+644 01772000 CVTRV606 EQU CVTS01+640 01773000 CVTRV605 EQU CVTS01+636 01774000 CVTRV604 EQU CVTS01+632 01775000 CVTEFF02 EQU CVTS01+628 01776000 CVTCBBR EQU CVTS01+624 01777000 CVTSSCR EQU CVTS01+620 01778000 CVTEVENT EQU CVTS01+616 01779000 CVTCRCA EQU CVTS01+612 01780000 CVTTPIO EQU CVTS01+608 01781000 CVTADV EQU CVTS01+604 01782000 CVTGSDAB EQU CVTGSDA 01783000 CVTQV3 EQU CVTS01+596 01784000 CVTQV2 EQU CVTS01+592 01785000 CVTQV1 EQU CVTS01+588 01786000 CVTRPT EQU CVTS01+584 01787000 CVTSSRB EQU CVTS01+580 01788000 CVTCSDRL EQU CVTS01+576 01789000 CVTEXP1 EQU CVTS01+572 01790000 CVTRMPMT EQU CVTS01+568 01791000 CVTRMPTT EQU CVTS01+564 01792000 CVTVPSA EQU CVTS01+560 01793000 CVTVSTOP EQU CVTS01+556 01794000 CVTGTFR8 EQU CVTS01+552 01795000 CVTQUIT EQU CVTS01+548 01796000 CVTVACR EQU CVTS01+544 01797000 CVTWTCB EQU CVTS01+540 01798000 CVTSTPRS EQU CVTS01+536 01799000 CVT0PT02 EQU CVTS01+532 01800000 CVTDARCM EQU CVTS01+528 01801000 CVTIRECM EQU CVTS01+524 01802000 CVTJRECM EQU CVTS01+520 01803000 CVTVEMS0 EQU CVTS01+516 01804000 CVTSPFRR EQU CVTS01+512 01805000 CVTRLSTG EQU CVTS01+508 01806000 CVT0TC0A EQU CVTS01+504 01807000 CVTGMBR EQU CVTS01+500 01808000 CVTLFRM EQU CVTS01+496 01809000 CVTRMBR EQU CVTS01+492 01810000 CVTVIOP EQU CVTS01+488 01811000 CVTRV307 EQU CVTS01+486 01812000 CVTRV306 EQU CVTS01+484 01813000 CVTRV305 EQU CVTS01+482 01814000 CVTRV304 EQU CVTS01+480 01815000 CVTRV303 EQU CVTS01+478 01816000 CVTRV302 EQU CVTS01+476 01817000 CVTTRCA EQU CVTS01+472 01818000 CVTRV297 EQU CVTRV289 01819000 CVTRV296 EQU CVTRV289 01820000 CVTRV295 EQU CVTRV289 01821000 CVTRV294 EQU CVTRV289 01822000 CVTRV293 EQU CVTRV289 01823000 CVTRV292 EQU CVTRV289 01824000 CVTRV291 EQU CVTRV289 01825000 CVTRV290 EQU CVTRV289 01826000 CVTRV288 EQU CVTRV280 01827000 CVTRV287 EQU CVTRV280 01828000 CVTRV286 EQU CVTRV280 01829000 CVTRV285 EQU CVTRV280 01830000 CVTRV284 EQU CVTRV280 01831000 CVTRV283 EQU CVTRV280 01832000 CVTRV282 EQU CVTRV280 01833000 CVTRV281 EQU CVTRV280 01834000 CVTRV279 EQU CVTRV271 01835000 CVTRV278 EQU CVTRV271 01836000 CVTRV277 EQU CVTRV271 01837000 CVTRV276 EQU CVTRV271 01838000 CVTRV275 EQU CVTRV271 01839000 CVTRV274 EQU CVTRV271 01840000 CVTRV273 EQU CVTRV271 01841000 CVTRV272 EQU CVTRV271 01842000 CVTRV270 EQU CVTRV262 01843000 CVTRV269 EQU CVTRV262 01844000 CVTRV268 EQU CVTRV262 01845000 CVTRV267 EQU CVTRV262 01846000 CVTRV266 EQU CVTRV262 01847000 CVTRV265 EQU CVTRV262 01848000 CVTRV264 EQU CVTRV262 01849000 CVTRV263 EQU CVTRV262 01850000 CVTVFP EQU CVTS01+464 01851000 CVTVSI EQU CVTS01+460 01852000 CVTVPSIB EQU CVTS01+456 01853000 CVTMFACT EQU CVTMFRTR 01854000 CVTMFCTL EQU CVTS01+448 01855000 CVTPVBP EQU CVTS01+444 01856000 CVTPWI EQU CVTS01+440 01857000 CVTRV254 EQU CVTS01+438 01858000 CVTRV253 EQU CVTS01+436 01859000 CVTRV252 EQU CVTS01+434 01860000 CVTRV251 EQU CVTS01+433 01861000 CVTRV250 EQU CVTS01+432 01862000 CVTRV249 EQU CVTS01+431 01863000 CVTRV248 EQU CVTS01+430 01864000 CVTRV247 EQU CVTS01+429 01865000 CVTRV246 EQU CVTS01+428 01866000 CVTRV245 EQU CVTRV237 01867000 CVTRV244 EQU CVTRV237 01868000 CVTRV243 EQU CVTRV237 01869000 CVTRV242 EQU CVTRV237 01870000 CVTRV241 EQU CVTRV237 01871000 CVTRV240 EQU CVTRV237 01872000 CVTRV239 EQU CVTRV237 01873000 CVTRV238 EQU CVTRV237 01874000 CVTRV236 EQU CVTRV228 01875000 CVTRV235 EQU CVTRV228 01876000 CVTRV234 EQU CVTRV228 01877000 CVTRV233 EQU CVTRV228 01878000 CVTRV232 EQU CVTRV228 01879000 CVTRV231 EQU CVTRV228 01880000 CVTRV230 EQU CVTRV228 01881000 CVTRV229 EQU CVTRV228 01882000 CVTRV227 EQU CVTRV219 01883000 CVTRV226 EQU CVTRV219 01884000 CVTRV225 EQU CVTRV219 01885000 CVTRV224 EQU CVTRV219 01886000 CVTRV223 EQU CVTRV219 01887000 CVTRV222 EQU CVTRV219 01888000 CVTRV221 EQU CVTRV219 01889000 CVTRV220 EQU CVTRV219 01890000 CVTRV218 EQU CVTRV210 01891000 CVTRV217 EQU CVTRV210 01892000 CVTRV216 EQU CVTRV210 01893000 CVTRV215 EQU CVTRV210 01894000 CVTRV214 EQU CVTRV210 01895000 CVTRV213 EQU CVTRV210 01896000 CVTRV212 EQU CVTRV210 01897000 CVTRV211 EQU CVTRV210 01898000 CVTLCCAT EQU CVTS01+420 01899000 CVTPCCAT EQU CVTS01+416 01900000 CVTIPCRP EQU CVTS01+412 01901000 CVTIPCRI EQU CVTS01+408 01902000 CVTIPCDS EQU CVTS01+404 01903000 CVTAIDVT EQU CVTS01+400 01904000 CVTSSAP EQU CVTS01+396 01905000 CVTEHCIR EQU CVTS01+392 01906000 CVTEHDEF EQU CVTS01+388 01907000 CVTDAIR EQU CVTS01+384 01908000 CVTPERFM EQU CVTS01+380 01909000 CVT044R2 EQU CVTS01+376 01910000 CVTFETCH EQU CVTS01+372 01911000 CVTRSTWD EQU CVTS01+368 01912000 CVTSPOST EQU CVTS01+364 01913000 CVTIOBP EQU CVTS01+360 01914000 CVTASMVT EQU CVTS01+356 01915000 CVTRECRQ EQU CVTS01+352 01916000 CVTWSAC EQU CVTS01+348 01917000 CVTRV149 EQU CVTS01+344 01918000 CVTWSAL EQU CVTS01+340 01919000 CVTSPSA EQU CVTS01+336 01920000 CVTGLMN EQU CVTS01+332 01921000 CVTVEAC0 EQU CVTS01+328 01922000 CVT062R1 EQU CVTS01+324 01923000 CVTRPOST EQU CVTS01+320 01924000 CVTDQIQE EQU CVTS01+316 01925000 CVTCSD EQU CVTS01+312 01926000 CVTLKRMA EQU CVTS01+308 01927000 CVTRSPIE EQU CVTS01+304 01928000 CVTRENQ EQU CVTS01+300 01929000 CVTLQCB EQU CVTS01+296 01930000 CVTFQCB EQU CVTS01+292 01931000 CVTQCS01 EQU CVTS01+288 01932000 CVTAPFT EQU CVTS01+284 01933000 CVTPARRL EQU CVTS01+280 01934000 CVTVWAIT EQU CVTS01+276 01935000 CVTGSPL EQU CVTS01+272 01936000 CVTLSMQ EQU CVTS01+268 01937000 CVTGSMQ EQU CVTS01+264 01938000 CVTEXPRO EQU CVTS01+260 01939000 CVTOPCTP EQU CVTS01+256 01940000 CVTSIC EQU CVTS01+252 01941000 CVTTPIOS EQU CVTS01+248 01942000 CVTRTMS EQU CVTS01+244 01943000 CVTSDBF EQU CVTS01+240 01944000 CVTSCBP EQU CVTS01+236 01945000 CVTSDMP EQU CVTS01+232 01946000 CVTSV60 EQU CVTS01+228 01947000 CVTRTMCT EQU CVTS01+224 01948000 CVTASCBL EQU CVTS01+220 01949000 CVTASCBH EQU CVTS01+216 01950000 CVTGDA EQU CVTS01+212 01951000 CVTASVT EQU CVTS01+208 01952000 CVTVVMDI EQU CVTS01+204 01953000 CVTAQTOP EQU CVTS01+200 01954000 CVTIOSCS EQU CVTS01+196 01955000 CVTSDRM EQU CVTS01+192 01956000 CVTOPTE EQU CVTS01+188 01957000 CVTSTXU EQU CVTS01+184 01958000 CVTQUIS EQU CVTS01+180 01959000 CVTPARS EQU CVTS01+176 01960000 CVTS1EE EQU CVTS01+172 01961000 CVTFRAS EQU CVTS01+168 01962000 CVTQSAS EQU CVTS01+164 01963000 CVTCRAS EQU CVTS01+160 01964000 CVTCRMN EQU CVTS01+156 01965000 CVTDELCP EQU CVTS01+152 01966000 CVTFRECL EQU CVTS01+148 01967000 CVTGETCL EQU CVTS01+144 01968000 CVTBLDCP EQU CVTS01+140 01969000 CVTAUTHL EQU CVTS01+136 01970000 CVTSCAN EQU CVTS01+132 01971000 CVTRV144 EQU CVTS01+130 01972000 CVTMAXMP EQU CVTS01+128 01973000 CVTSTCK EQU CVTS01+124 01974000 CVTRV139 EQU CVTS01+123 01975000 CVTDSSAC EQU CVTS01+122 01976000 CVTRV513 EQU CVTS01+121 01977000 CVTIOSPL EQU CVTS01+120 01978000 CVTPTGT EQU CVTS01+116 01979000 CVTCSPIE EQU CVTS01+112 01980000 CVTSMFEX EQU CVTS01+108 01981000 CVTOLT0A EQU CVTS01+104 01982000 CVTSRBRT EQU CVTS01+100 01983000 CVTPUTL EQU CVTS01+96 01984000 CVTASCRL EQU CVTS01+92 01985000 CVTASCRF EQU CVTS01+88 01986000 CVTRV326 EQU CVTS01+84 01987000 CVTRV325 EQU CVTS01+80 01988000 CVTRV324 EQU CVTS01+76 01989000 CVT0VL01 EQU CVTS01+72 01990000 CVTSHRVM EQU CVTS01+68 01991000 CVTRV332 EQU CVTS01+64 01992000 CVTTAS EQU CVTS01+60 01993000 CVTRSCN EQU CVTS01+56 01994000 CVTTRAC2 EQU CVTS01+54 01995000 CVTTRACE EQU CVTS01+52 01996000 CVTAPG EQU CVTS01+51 01997000 CVTSDTRC EQU CVTCTLFG 01998000 CVTGTRCE EQU CVTCTLFG 01999000 CVTNOMP EQU CVTCTLFG 02000000 CVTRSV79 EQU CVTCTLFG 02001000 CVTDSTAT EQU CVTCTLFG 02002000 CVTRSV78 EQU CVTCTLFG 02003000 CVTRV333 EQU CVTCTLFG 02004000 CVTRV323 EQU CVTCTLFG 02005000 CVTSPVLK EQU CVTS01+49 02006000 CVTRSV77 EQU CVTS01+48 02007000 CVTRV331 EQU CVTS01+44 02008000 CVTRV330 EQU CVTS01+40 02009000 CVTRV329 EQU CVTS01+36 02010000 CVTRV328 EQU CVTS01+32 02011000 CVTRV322 EQU CVTS01+28 02012000 CVTSLID EQU CVTSLIDA+1 02013000 CVTSYLK EQU CVTSLIDA 02014000 CVTRV321 EQU CVTS01+20 02015000 CVTRV320 EQU CVTS01+16 02016000 CVTLPDIR EQU CVTLPDIA+1 02017000 CVTRSV69 EQU CVTDIRST 02018000 CVTRSV68 EQU CVTDIRST 02019000 CVTRSV67 EQU CVTDIRST 02020000 CVTRSV66 EQU CVTDIRST 02021000 CVTRSV65 EQU CVTDIRST 02022000 CVTRSV64 EQU CVTDIRST 02023000 CVTRSV63 EQU CVTDIRST 02024000 CVTDICOM EQU CVTDIRST 02025000 CVTPVTP EQU CVTS01+8 02026000 CVTLPDSR EQU CVTS01+4 02027000 CVTGETL EQU CVTS01 02028000 @NM00002 EQU @NM00001 02029000 APPNAMID EQU APPNMTBL+24 02030000 APPOFFST EQU APPENTRY+2 02031000 APPCOUNT EQU APPENTRY 02032000 APPSIZE EQU APPNMTBL+2 02033000 APPBAL EQU APPNMTBL 02034000 WTGOPD EQU WTGPATHS+1 02035000 WTGRECHK EQU WTGPATHS+1 02036000 WTGTSENQ EQU WTGPATHS+1 02037000 @NM00100 EQU WTGPATHS+1 02038000 WTGTRACE EQU WTGPATHS+1 02039000 @NM00099 EQU WTGPATHS 02040000 WTGJFCBW EQU WTGPATHS 02041000 WTGSMF EQU WTGPATHS 02042000 WTGTCOS EQU WTGPATHS 02043000 WTGNSL EQU WTGPATHS 02044000 WTGPRLSE EQU WTGPATHS 02045000 WTGLNG EQU WTG+29 02046000 WTGTXTLN EQU WTGAREA+27 02047000 WTGMODSZ EQU WTGAREA+24 02048000 WTGATTRB EQU WTGAREA+22 02049000 @NM00098 EQU WTGAREA+20 02050000 @NM00097 EQU WTGAREA+12 02051000 @NM00096 EQU WTGMODNM 02052000 DSMADTW6 EQU DSMADTRL+20 02053000 DSMADTW5 EQU DSMADTRL+16 02054000 DSMADTW4 EQU DSMADTRL+12 02055000 DSMADTW3 EQU DSMADTRL+8 02056000 DSMADTW2 EQU DSMADTRL+4 02057000 DSMADTB4 EQU DSMADTW1+3 02058000 DSMADTB3 EQU DSMADTW1+2 02059000 @NM00095 EQU DSMADTB2 02060000 DSMDSNE EQU DSMADTB2 02061000 DSMTIOTE EQU DSMADTB2 02062000 DSMSMCE EQU DSMADTB2 02063000 DSMVTOCR EQU DSMADTB2 02064000 DSMASWAP EQU DSMADTB1 02065000 DSMUCBAL EQU DSMADTB1 02066000 DSMRPSAP EQU DSMADTB1 02067000 DSMLOCK EQU DSMADTB1 02068000 @NM00094 EQU DSMADTB1 02069000 DSMVIO EQU DSMADTB1 02070000 DSMISAM EQU DSMADTB1 02071000 RRFWORK EQU RRPLIST+20 02072000 RRMLRTRY EQU RRPLIST+16 02073000 RRUCBPTR EQU RRXRETRY 02074000 RR1RETRY EQU RRPLIST+8 02075000 RR1WRKAR EQU RRPLIST+4 02076000 @NM00093 EQU RRFLAGS3 02077000 RRFTERM EQU RRFLAGS3 02078000 RRFFCEXC EQU RRFLAGS3 02079000 RRFFINFC EQU RRFLAGS3 02080000 RRFNRTCA EQU RRFLAGS3 02081000 @NM00092 EQU RRFLAGS3 02082000 RRFENQUL EQU RRFLAGS2 02083000 RRFPRDET EQU RRFLAGS2 02084000 @NM00091 EQU RRFLAGS2 02085000 RRFQMNGR EQU RRFLAGS2 02086000 RRFENQPW EQU RRFLAGS2 02087000 @NM00090 EQU RRFLAGS2 02088000 RRFFIN1 EQU RRFLAGS2 02089000 RRFTRACE EQU RRFLAGS1 02090000 RRFSMF EQU RRFLAGS1 02091000 RRFNSL EQU RRFLAGS1 02092000 RRFAMSTR EQU RRFLAGS1 02093000 RRFAMEXR EQU RRFLAGS1 02094000 RRFAMEXG EQU RRFLAGS1 02095000 RRFUSREX EQU RRFLAGS1 02096000 @NM00089 EQU RRFLAGS1 02097000 RRFRJFCB EQU RRFUNCTN 02098000 RRFDADSM EQU RRFUNCTN 02099000 DXDCBLST EQU USERPRML 02100000 RWALIST EQU RWARESWA+12 02101000 RWAPARM EQU RWAPREFX+8 02102000 RWATRBUF EQU RWAPREFX+4 02103000 RWATRACE EQU RWAPREFX 02104000 IECQMNGR EQU IECEXTPR+92 02105000 IECMSGQA EQU IECEXTPR+88 02106000 IECDCBNO EQU IECUPRML 02107000 IECRRPRM EQU IECEXTPR+76 02108000 IECWTGTB EQU IECEXTPR+72 02109000 IECCORP2 EQU IECPREFX+28 02110000 IECCORP1 EQU IECPREFX+24 02111000 IECCORPS EQU IECPREFX+20 02112000 IECCORSP EQU IECPREFX+19 02113000 @NM00088 EQU IECPREFX+17 02114000 IECCORKY EQU IECPREFX+16 02115000 IECCORAD EQU IECPREFX+12 02116000 IECCORLN EQU IECPREFX+8 02117000 @NM00087 EQU IECPREFX+4 02118000 IECCORID EQU IECPREFX 02119000 UCBERADR EQU UCBUCS+12 02120000 UCBFCBID EQU UCBUCS+8 02121000 UCBERCNT EQU UCBUCS+7 02122000 UCBRSV51 EQU UCBUCS+6 02123000 UCBRSV50 EQU UCBFCBOP 02124000 UCBRSV49 EQU UCBFCBOP 02125000 UCBRSV48 EQU UCBFCBOP 02126000 UCBRSV47 EQU UCBFCBOP 02127000 UCBRSV46 EQU UCBFCBOP 02128000 UCBRSV45 EQU UCBFCBOP 02129000 UCBRSV44 EQU UCBFCBOP 02130000 UCBFCBO1 EQU UCBFCBOP 02131000 UCBUCSPE EQU UCBUCSOP 02132000 UCBRSV43 EQU UCBUCSOP 02133000 UCBRSV42 EQU UCBUCSOP 02134000 UCBRSV41 EQU UCBUCSOP 02135000 UCBRSV40 EQU UCBUCSOP 02136000 UCBRSV39 EQU UCBUCSOP 02137000 UCBUCSO2 EQU UCBUCSOP 02138000 UCBUCSO1 EQU UCBUCSOP 02139000 UCBUCSID EQU UCBUCS 02140000 UCBRV075 EQU UCBMDRBF 02141000 UCBRV074 EQU UCB3800X+32 02142000 UCBIMAGE EQU UCB3800X+28 02143000 UCBFCBNM EQU UCB3800X+24 02144000 UCBCHAR4 EQU UCB3800X+20 02145000 UCBCHAR3 EQU UCB3800X+16 02146000 UCBCHAR2 EQU UCB3800X+12 02147000 UCBCHAR1 EQU UCB3800X+8 02148000 UCBCGMID EQU UCB3800X+4 02149000 UCBBRSTA EQU UCBACTIV 02150000 UCBRV063 EQU UCBACTIV 02151000 UCBRV062 EQU UCBACTIV 02152000 UCBRV061 EQU UCBACTIV 02153000 UCBRV060 EQU UCBACTIV 02154000 UCBRV059 EQU UCBACTIV 02155000 UCBRV058 EQU UCBACTIV 02156000 UCBRV057 EQU UCBACTIV 02157000 UCBRV050 EQU UCB3800X+2 02158000 UCBCGMNO EQU UCB3800X+1 02159000 UCBRV083 EQU UCBOPTNS 02160000 UCBBRSTR EQU UCBOPTNS 02161000 UCBRV056 EQU UCBOPTNS 02162000 UCBRV055 EQU UCBOPTNS 02163000 UCBRV054 EQU UCBOPTNS 02164000 UCBRV053 EQU UCBOPTNS 02165000 UCBRV052 EQU UCBOPTNS 02166000 UCBRV051 EQU UCBOPTNS 02167000 UCBRV073 EQU UCB3540X+7 02168000 UCBRV072 EQU UCBDKBYT 02169000 UCBRV071 EQU UCBDKBYT 02170000 UCBRV070 EQU UCBDKBYT 02171000 UCBRV069 EQU UCBDKBYT 02172000 UCBRV068 EQU UCBDKBYT 02173000 UCBRV067 EQU UCBDKBYT 02174000 UCBVLVER EQU UCBDKBYT 02175000 UCBDKAMX EQU UCBDKBYT 02176000 UCBVLSER EQU UCB3540X 02177000 UCBRDATA EQU UCBOCR+4 02178000 UCBFRID EQU UCBOCR 02179000 UCBCLN EQU UCBMT+14 02180000 UCBERG EQU UCBMT+12 02181000 UCBMS EQU UCBMT+11 02182000 UCBNB EQU UCBMT+10 02183000 UCBPW EQU UCBMT+9 02184000 UCBPR EQU UCBMT+8 02185000 UCBSIO EQU UCBMT+6 02186000 UCBTW EQU UCBMT+5 02187000 UCBTR EQU UCBMT+4 02188000 UCBTWT EQU UCBMT+3 02189000 UCBTRT EQU UCBMT+2 02190000 UCBCTD EQU UCBMT 02191000 UCBWTOID EQU UCBCMEXT+17 02192000 UCBRV043 EQU UCBCMEXT+16 02193000 UCBASID EQU UCBCMEXT+14 02194000 UCBMFCNT EQU UCBCMEXT+12 02195000 UCBPMSK EQU UCBCMEXT+10 02196000 UCBCCWOF EQU UCBCMEXT+8 02197000 UCBRV041 EQU UCBCMEXT+6 02198000 UCBRV036 EQU UCBFLP1 02199000 UCBRV035 EQU UCBFLP1 02200000 UCBERLOG EQU UCBFLP1 02201000 UCBRV033 EQU UCBFLP1 02202000 UCBINHIO EQU UCBFLP1 02203000 UCBNSWAP EQU UCBFLP1 02204000 UCBSHRUP EQU UCBFLP1 02205000 UCBNSRCH EQU UCBFLP1 02206000 UCBSNSCT EQU UCBCMEXT+4 02207000 UCBHPDV EQU @NM00083 02208000 UCBHALI EQU @NM00083 02209000 UCBRSV09 EQU @NM00083 02210000 UCBRSV08 EQU @NM00083 02211000 UCBRSV07 EQU @NM00083 02212000 UCBRSV06 EQU @NM00083 02213000 UCBRSV05 EQU @NM00083 02214000 UCBRSV04 EQU @NM00083 02215000 UCBDTI EQU UCBCMEXT+2 02216000 UCBSTI EQU UCBCMEXT+1 02217000 UCBETI EQU UCBCMEXT 02218000 UCBEXTP EQU UCBEXTPT+1 02219000 UCBDDRSW EQU UCBFLC 02220000 UCBTICBT EQU UCBFLC 02221000 UCBIVRR EQU UCBFLC 02222000 UCBIVRS EQU UCBFLC 02223000 UCBITF EQU UCBFLC 02224000 UCBUDE EQU UCBFLC 02225000 UCBWAA EQU UCBFLC 02226000 UCBATTP EQU UCBFLC 02227000 UCBUNTYP EQU UCBTBYT4 02228000 UCBRSV11 EQU UCBDVCLS 02229000 UCBRSV10 EQU UCBDVCLS 02230000 UCB3CHAR EQU UCBDVCLS 02231000 UCB3UREC EQU UCBDVCLS 02232000 UCB3DISP EQU UCBDVCLS 02233000 UCB3DACC EQU UCBDVCLS 02234000 UCB3COMM EQU UCBDVCLS 02235000 UCB3TAPE EQU UCBDVCLS 02236000 UCBDVPWR EQU UCB2OPT7 02237000 UCBVLPWR EQU UCB2OPT6 02238000 UCB2OPT5 EQU UCBTBYT2 02239000 UCBRVDEV EQU UCBRWTAU 02240000 UCBRPS EQU UCBDUDN2 02241000 UCBRR EQU UCBDUDN1 02242000 UCB2OPT1 EQU UCBTBYT2 02243000 UCB2OPT0 EQU UCBTBYT2 02244000 UCB1FEA7 EQU UCBTBYT1 02245000 UCBD6250 EQU UCB1FEA6 02246000 UCBD1600 EQU UCB1FEA5 02247000 UCB1FEA4 EQU UCBTBYT1 02248000 UCB1FEA3 EQU UCBTBYT1 02249000 UCB1FEA2 EQU UCBTBYT1 02250000 UCB1FEA1 EQU UCBTBYT1 02251000 UCB1FEA0 EQU UCBTBYT1 02252000 UCBRV029 EQU UCBWGT 02253000 UCBVHRSN EQU UCBWGT 02254000 UCBVORSN EQU UCBWGT 02255000 UCBMTPXP EQU UCBWGT 02256000 UCBREW EQU UCBWGT 02257000 UCBPUB EQU UCBWGT 02258000 UCBOUT EQU UCBWGT 02259000 UCBIN EQU UCBWGT 02260000 UCBCPU EQU UCBOB+11 02261000 UCBLCI EQU UCBOB+10 02262000 UCBCNT EQU UCBOB+9 02263000 UCBRV017 EQU UCBCHM1 02264000 UCBRV016 EQU UCBCHM1 02265000 UCBRV015 EQU UCBCHM1 02266000 UCBRV014 EQU UCBCHM1 02267000 UCBSPB EQU UCBPTH1 02268000 UCBPPB EQU UCBPTH1 02269000 UCBSPA EQU UCBPTH0 02270000 UCBPPA EQU UCBPTH0 02271000 UCBSIGP EQU UCBFLB 02272000 UCBVALPH EQU UCBFLB 02273000 UCBCRHSN EQU UCBFLB 02274000 UCBCRHRV EQU UCBFLB 02275000 UCBRESVH EQU UCBFLB 02276000 UCBSPST EQU UCBFLB 02277000 UCBASNS EQU UCBFLB 02278000 UCBIORST EQU UCBFLB 02279000 UCBQISCE EQU UCBFL1 02280000 UCBACTV EQU UCBFL1 02281000 UCBSAP EQU UCBFL1 02282000 UCBNOTRC EQU UCBCUB 02283000 UCBPSNS EQU UCBFL1 02284000 UCBUSING EQU UCBPST 02285000 UCBNOTRD EQU UCBNRY 02286000 UCBBUSYD EQU UCBBSY 02287000 UCBUA EQU UCBCHAN+1 02288000 UCBCHA EQU UCBCHAN 02289000 UCBDADI EQU UCBSTAT 02290000 UCBSYSR EQU UCBSTAT 02291000 UCBPRES EQU UCBSTAT 02292000 UCBALOC EQU UCBSTAT 02293000 UCBUNLD EQU UCBSTAT 02294000 UCBRESV EQU UCBSTAT 02295000 UCBCHGS EQU UCBSTAT 02296000 UCBONLI EQU UCBSTAT 02297000 UCBID EQU UCBOB+2 02298000 UCBALTPH EQU UCBFL5 02299000 UCBALTCU EQU UCBFL5 02300000 UCBNALOC EQU UCBFL5 02301000 UCBENVRD EQU UCBFL5 02302000 UCBVSDR EQU UCBFL5 02303000 UCBSASK EQU UCBFL5 02304000 UCBAMV EQU UCBAF 02305000 UCBDCC EQU UCBFL5 02306000 UCBMONT EQU UCBJBNR 02307000 UCBRV011 EQU UCBJBNR 02308000 UCBMMSGP EQU UCBJBNR 02309000 UCBOLDSM EQU UCBJBNR 02310000 UCBRV003 EQU UCBJBNR 02311000 UCBDUC EQU UCBJBNR 02312000 UCBJES3 EQU UCBJBNR 02313000 UCBVRDEV EQU UCBJBNR 02314000 UCBCMSEG EQU UCBOB 02315000 UCBPFXND EQU UCB+512 02316000 UCBIOQ EQU UCB+508 02317000 UCBLOCK EQU UCB+504 02318000 UCBPXST EQU UCB+504 02319000 @NM00080 EQU UCB 02320000 @NM00079 EQU TCBXTNT2+32 02321000 TCBRV181 EQU TCBRV173 02322000 TCBRV180 EQU TCBRV173 02323000 TCBRV179 EQU TCBRV173 02324000 TCBRV178 EQU TCBRV173 02325000 TCBRV177 EQU TCBRV173 02326000 TCBRV176 EQU TCBRV173 02327000 TCBRV175 EQU TCBRV173 02328000 TCBRV174 EQU TCBRV173 02329000 TCBRV172 EQU TCBRV164 02330000 TCBRV171 EQU TCBRV164 02331000 TCBRV170 EQU TCBRV164 02332000 TCBRV169 EQU TCBRV164 02333000 TCBRV168 EQU TCBRV164 02334000 TCBRV167 EQU TCBRV164 02335000 TCBRV166 EQU TCBRV164 02336000 TCBRV165 EQU TCBRV164 02337000 TCBRV163 EQU TCBRV155 02338000 TCBRV162 EQU TCBRV155 02339000 TCBRV161 EQU TCBRV155 02340000 TCBRV160 EQU TCBRV155 02341000 TCBRV159 EQU TCBRV155 02342000 TCBRV158 EQU TCBRV155 02343000 TCBRV157 EQU TCBRV155 02344000 TCBRV156 EQU TCBRV155 02345000 TCBRV154 EQU TCBRV146 02346000 TCBRV153 EQU TCBRV146 02347000 TCBRV152 EQU TCBRV146 02348000 TCBRV151 EQU TCBRV146 02349000 TCBRV150 EQU TCBRV146 02350000 TCBRV149 EQU TCBRV146 02351000 TCBRV148 EQU TCBRV146 02352000 TCBRV147 EQU TCBRV146 02353000 TCBRV145 EQU TCBXTNT2+26 02354000 TCBRV144 EQU TCBXTNT2+24 02355000 TCBRV143 EQU TCBXTNT2+20 02356000 TCBRV142 EQU TCBXTNT2+16 02357000 TCBRSV49 EQU TCBXTNT2+12 02358000 TCBEVENT EQU TCBXTNT2+8 02359000 TCBRCMP EQU TCBXTNT2+5 02360000 TCBRSVAB EQU TCBXTNT2+4 02361000 TCBGTFA EQU TCBGTF+1 02362000 TCBRSV47 EQU TCBTFLG 02363000 TCBRSV46 EQU TCBTFLG 02364000 TCBRSV45 EQU TCBTFLG 02365000 TCBRSV44 EQU TCBTFLG 02366000 TCBRSV43 EQU TCBTFLG 02367000 TCBDSPIT EQU TCBTFLG 02368000 TCBERRTN EQU TCBTFLG 02369000 TCBASYNC EQU TCBTFLG 02370000 @NM00078 EQU TCB+296 02371000 TCBSVCA2 EQU TCB+292 02372000 TCBSWASA EQU TCB+288 02373000 TCBDBTB EQU TCB+284 02374000 TCBRPT EQU TCB+280 02375000 TCBRV141 EQU TCBRV133 02376000 TCBRV140 EQU TCBRV133 02377000 TCBRV139 EQU TCBRV133 02378000 TCBRV138 EQU TCBRV133 02379000 TCBRV137 EQU TCBRV133 02380000 TCBRV136 EQU TCBRV133 02381000 TCBRV135 EQU TCBRV133 02382000 TCBRV134 EQU TCBRV133 02383000 TCBRV132 EQU TCBRV124 02384000 TCBRV131 EQU TCBRV124 02385000 TCBRV130 EQU TCBRV124 02386000 TCBRV129 EQU TCBRV124 02387000 TCBRV128 EQU TCBRV124 02388000 TCBRV127 EQU TCBRV124 02389000 TCBRV126 EQU TCBRV124 02390000 TCBRV125 EQU TCBRV124 02391000 TCBRV123 EQU TCBFBYT2 02392000 TCBRV122 EQU TCBFBYT2 02393000 TCBECBNV EQU TCBFBYT2 02394000 TCBSSSYN EQU TCBFBYT2 02395000 TCBFPRAP EQU TCBFBYT2 02396000 TCBFDW EQU TCBFBYT2 02397000 TCBFMW EQU TCBFBYT2 02398000 TCBCNCB EQU TCBFBYT2 02399000 TCBLLH EQU TCBFBYT1 02400000 TCBRV113 EQU TCBFBYT1 02401000 TCBEOT EQU TCBFBYT1 02402000 TCBRTM2 EQU TCBFBYT1 02403000 TCBPGNLY EQU TCBFBYT1 02404000 TCBNDIOS EQU TCBFBYT1 02405000 TCBACTIV EQU TCBFBYT1 02406000 TCBEOTFM EQU TCBFBYT1 02407000 TCBAFFN EQU TCB+274 02408000 TCBCCPVI EQU TCB+272 02409000 TCBUKYSP EQU TCB+268 02410000 TCBMODE EQU TCBESTAE+3 02411000 TCBERTYP EQU TCBESTAE+2 02412000 TCBRV314 EQU TCBESTRM 02413000 TCBRV313 EQU TCBESTRM 02414000 TCBRV312 EQU TCBESTRM 02415000 TCBRV311 EQU TCBESTRM 02416000 TCBRV310 EQU TCBESTRM 02417000 TCBRV309 EQU TCBESTRM 02418000 TCBRV308 EQU TCBESTRM 02419000 TCBETERM EQU TCBESTRM 02420000 TCBSCBKY EQU TCBESTAE 02421000 TCBRTM12 EQU TCB+260 02422000 TCBTCBID EQU TCB+256 02423000 TCBRSV96 EQU TCB+252 02424000 TCBSWA EQU TCB+248 02425000 TCBFOEA EQU TCBFOE+1 02426000 TCBRSV42 EQU TCBFOE 02427000 TCBRV306 EQU TCB+240 02428000 TCBRSV41 EQU TCB+239 02429000 TCBTID EQU TCB+238 02430000 TCBRSVAA EQU TCB+237 02431000 TCBABCUR EQU TCB+236 02432000 TCBTMSAV EQU TCB+232 02433000 TCBIOTIM EQU TCB+228 02434000 TCBRTWA EQU TCB+224 02435000 TCBBACK EQU TCB+220 02436000 TCBTIRB EQU TCB+216 02437000 TCBAECB EQU TCB+212 02438000 TCBEXT2A EQU TCBEXT2+1 02439000 TCBRSV39 EQU TCBEXT2 02440000 TCBSTMCT EQU TCB+207 02441000 TCBSYSCT EQU TCB+206 02442000 TCBRSV37 EQU TCB+205 02443000 TCBEXSVC EQU TCBDAR 02444000 TCBDARMS EQU TCBDAR 02445000 TCBDARWT EQU TCBDAR 02446000 TCBDARO EQU TCBDAR 02447000 TCBDARMC EQU TCBDARC 02448000 TCBDARD EQU TCBDAR 02449000 TCBDARS EQU TCBDAR 02450000 TCBDARP EQU TCBDAR 02451000 TCBGTOFM EQU TCBFLGS7 02452000 TCBADMP EQU TCBFLGS7 02453000 TCBRSTSK EQU TCBFLGS7 02454000 TCBSVCS EQU TCBFLGS7 02455000 TCBSTACK EQU TCBFLGS7 02456000 TCBRSV34 EQU TCBFLGS7 02457000 TCBRSV33 EQU TCBFLGS7 02458000 TCBGPECB EQU TCBFLGS7 02459000 TCBNTJS EQU TCBFLGS6 02460000 TCBAPG EQU TCBFLGS6 02461000 TCBMIGR EQU TCBFLGS6 02462000 TCBRV303 EQU TCBFLGS6 02463000 TCBSPVLK EQU TCBFLGS6 02464000 TCBCPU EQU TCBFLGS6 02465000 TCBPIE17 EQU TCBFLGS6 02466000 TCBRV EQU TCBFLGS6 02467000 TCBRSV79 EQU TCBNDSP5 02468000 TCBRSV78 EQU TCBNDSP5 02469000 TCBRSV77 EQU TCBNDSP5 02470000 TCBRSV76 EQU TCBNDSP5 02471000 TCBRSV75 EQU TCBNDSP5 02472000 TCBRSV74 EQU TCBNDSP5 02473000 TCBRSV95 EQU TCBNDSP5 02474000 TCBRSV94 EQU TCBNDSP5 02475000 TCBRSV93 EQU TCBNDSP4 02476000 TCBRSV92 EQU TCBNDSP4 02477000 TCBRSV91 EQU TCBNDSP4 02478000 TCBRSV90 EQU TCBNDSP4 02479000 TCBRSV89 EQU TCBNDSP4 02480000 TCBRSV88 EQU TCBNDSP4 02481000 TCBRSV87 EQU TCBNDSP4 02482000 TCBRSV86 EQU TCBNDSP4 02483000 TCBEXT1A EQU TCBEXT1+1 02484000 TCBRSV32 EQU TCBEXT1 02485000 TCBEXCPD EQU TCB+192 02486000 TCBIOBRC EQU TCB+188 02487000 TCBDDWTC EQU TCB+186 02488000 TCBDDEXC EQU TCB+184 02489000 TCBJSCBB EQU TCBJSCB+1 02490000 @NM00077 EQU TCBRECDE 02491000 TCBREC EQU TCBRECDE 02492000 TCBMDIDS EQU TCB+176 02493000 TCBNDINT EQU TCBNDSP3 02494000 TCBRSV27 EQU TCBNDSP3 02495000 TCBRSV26 EQU TCBNDSP3 02496000 TCBRSV25 EQU TCBNDSP3 02497000 TCBRSV24 EQU TCBNDSP3 02498000 TCBSRBND EQU TCBNDSP3 02499000 TCBRV302 EQU TCBNDSP3 02500000 TCBLJSND EQU TCBNDSP3 02501000 TCBABE EQU TCBNDSP2 02502000 TCBDSS EQU TCBNDSP2 02503000 TCBOWAIT EQU TCBNDSP2 02504000 TCBIWAIT EQU TCBNDSP2 02505000 TCBNDTS EQU TCBNDSP2 02506000 TCBNDSVC EQU TCBNDSP2 02507000 TCBSTPP EQU TCBNDSP2 02508000 TCBABD EQU TCBNDSP2 02509000 TCBRSV22 EQU TCBNDSP1 02510000 TCBPIEND EQU TCBNDSP1 02511000 TCBTPSP EQU TCBNDSP1 02512000 TCBDDRND EQU TCBNDSP1 02513000 TCBRSPND EQU TCBNDSP1 02514000 TCBRSTND EQU TCBNDSP1 02515000 TCBDARPN EQU TCBNDSP1 02516000 TCBDARTN EQU TCBNDSP1 02517000 TCBNDSP0 EQU TCBNDSP 02518000 TCBUSER EQU TCB+168 02519000 TCBTCTB EQU TCBTCT+1 02520000 TCBRSV9C EQU TCBTCTGF 02521000 TCBRSV9B EQU TCBTCTGF 02522000 TCBRSV9A EQU TCBTCTGF 02523000 TCBRSV99 EQU TCBTCTGF 02524000 TCBRSV98 EQU TCBTCTGF 02525000 TCBRSV97 EQU TCBTCTGF 02526000 TCBRSV20 EQU TCBTCTGF 02527000 TCBSMFGF EQU TCBTCTGF 02528000 TCBSTABB EQU TCBSTAB+1 02529000 TCBSTCUR EQU TCBNSTAE 02530000 TCBRV301 EQU TCBNSTAE 02531000 TCBSYNCH EQU TCBNSTAE 02532000 TCBHALT EQU TCBNSTAE 02533000 TCBPPSUP EQU TCBNSTAE 02534000 TCB33E EQU TCBNSTAE 02535000 TCBQUIES EQU TCBNSTAE 02536000 TCBSTABE EQU TCBNSTAE 02537000 TCBAQE EQU TCB+156 02538000 TCBPQE EQU TCB+152 02539000 TCBTSDP EQU TCB+151 02540000 TCBTSLP EQU TCB+150 02541000 TCBSTPCT EQU TCB+149 02542000 TCBCPUBN EQU TCBTSFLG 02543000 TCBDYDSP EQU TCBTSFLG 02544000 TCBRSV18 EQU TCBTSFLG 02545000 TCBRSV17 EQU TCBTSFLG 02546000 TCBTIOTG EQU TCBTSFLG 02547000 TCBATT EQU TCBTSFLG 02548000 TCBSTPPR EQU TCBTSFLG 02549000 TCBRV300 EQU TCBTSTSK 02550000 TCBECB EQU TCB+144 02551000 TCBIQE EQU TCB+140 02552000 TCBLTC EQU TCB+136 02553000 TCBOTC EQU TCB+132 02554000 TCBNTC EQU TCB+128 02555000 TCBJSTCA EQU TCBJSTCB+1 02556000 TCBRSV16 EQU TCBJSTCB 02557000 TCBTQET EQU TCBTME 02558000 TCBTCB EQU TCB+116 02559000 TCBFSAB EQU TCBFSA+1 02560000 TCBQEL EQU TCBFSA 02561000 TCBGRS15 EQU TCBGRS+60 02562000 TCBGRS14 EQU TCBGRS+56 02563000 TCBGRS13 EQU TCBGRS+52 02564000 TCBGRS12 EQU TCBGRS+48 02565000 TCBGRS11 EQU TCBGRS+44 02566000 TCBGRS10 EQU TCBGRS+40 02567000 TCBGRS9 EQU TCBGRS+36 02568000 TCBGRS8 EQU TCBGRS+32 02569000 TCBGRS7 EQU TCBGRS+28 02570000 TCBGRS6 EQU TCBGRS+24 02571000 TCBGRS5 EQU TCBGRS+20 02572000 TCBGRS4 EQU TCBGRS+16 02573000 TCBGRS3 EQU TCBGRS+12 02574000 TCBGRS2 EQU TCBGRS+8 02575000 TCBGRS1 EQU TCBGRS+4 02576000 TCBGRS0 EQU TCBGRS 02577000 TCBJPQB EQU TCBJPQ+1 02578000 TCBRSV15 EQU TCBPURGE 02579000 TCBRSV14 EQU TCBPURGE 02580000 TCBRSV13 EQU TCBPURGE 02581000 TCBRSV12 EQU TCBPURGE 02582000 TCBRSV11 EQU TCBPURGE 02583000 TCBRSV10 EQU TCBPURGE 02584000 TCBRSV09 EQU TCBPURGE 02585000 TCBJPQF EQU TCBPURGE 02586000 TCBJLB EQU TCB+40 02587000 TCBLLS EQU TCB+36 02588000 TCBDSP EQU TCB+35 02589000 TCBLMP EQU TCB+34 02590000 TCBPNDSP EQU TCBFLGS5 02591000 TCBFCD1 EQU TCBFLGS5 02592000 TCBSTP EQU TCBFLGS5 02593000 TCBSYS EQU TCBFLGS5 02594000 TCBANDSP EQU TCBFLGS5 02595000 TCBPAGE EQU TCBFLGS5 02596000 TCBUXNDF EQU TCBABWF 02597000 TCBFC EQU TCBFLGS5 02598000 TCBONDSP EQU TCBFLGS4 02599000 TCBMPCND EQU TCBFLGS4 02600000 TCBMPCVQ EQU TCBFLGS4 02601000 TCBUXNDV EQU TCBFLGS4 02602000 TCBHNDSP EQU TCBFLGS4 02603000 TCBRQENA EQU TCBFLGS4 02604000 TCBSER EQU TCBFLGS4 02605000 TCBNDUMP EQU TCBFLGS4 02606000 TCBDWSTA EQU TCBFLGS3 02607000 TCBRSV08 EQU TCBFLGS3 02608000 TCBRSV07 EQU TCBFLGS3 02609000 TCBRSV06 EQU TCBFLGS3 02610000 TCBABGM EQU TCBFLGS3 02611000 TCBABTRM EQU TCBFLGS3 02612000 TCBADINP EQU TCBFLGS3 02613000 TCBFSM EQU TCBFLGS3 02614000 TCBFTS EQU TCBFLGS2 02615000 TCBFETXR EQU TCBFLGS2 02616000 TCBFDSOP EQU TCBFLGS2 02617000 TCBFJMC EQU TCBFLGS2 02618000 TCBFSMC EQU TCBFLGS2 02619000 TCBFABOP EQU TCBFLGS2 02620000 TCBFSTI EQU TCBFLGS2 02621000 TCBFOINP EQU TCBFLGS2 02622000 TCBFX EQU TCBFLGS1 02623000 TCBFS EQU TCBFLGS1 02624000 TCBFT EQU TCBFLGS1 02625000 TCBPDUMP EQU TCBFLGS1 02626000 TCBNONPR EQU TCBFLGS1 02627000 TCBFERA EQU TCBFLGS1 02628000 TCBFE EQU TCBFLGS1 02629000 TCBFA EQU TCBFLGS1 02630000 TCBZERO EQU TCBPKF 02631000 TCBFLAG EQU TCBPKF 02632000 TCBMSSB EQU TCBMSS+1 02633000 TCBRSV03 EQU TCBMSS 02634000 TCBTRNB EQU TCBTRN+1 02635000 TCBRSV02 EQU TCBABF 02636000 TCBOLTEP EQU TCBABF 02637000 TCBTCP EQU TCBABF 02638000 TCBTCPP EQU TCBABF 02639000 TCBRSV01 EQU TCBABF 02640000 TCBGRPH EQU TCBABF 02641000 TCBNOCHK EQU TCBABF 02642000 TCBMOD91 EQU TCBABF 02643000 TCBCMPC EQU TCBCMP+1 02644000 TCBRV318 EQU TCBCMSG 02645000 TCBRV317 EQU TCBCIND 02646000 TCBRV316 EQU TCBCWTO 02647000 TCBCASID EQU TCBCDBL 02648000 TCBNOCC EQU TCBSTCC 02649000 TCBDMPO EQU TCBCPP 02650000 TCBCSTEP EQU TCBCMPF 02651000 TCBCREQ EQU TCBCMPF 02652000 TCBTIO EQU TCB+12 02653000 TCBDEB EQU TCB+8 02654000 TCBPIEA EQU TCBPIE+1 02655000 TCBPM EQU TCBPMASK 02656000 @NM00076 EQU TCBPMASK 02657000 TCBRBP EQU TCB 02658000 TCBFRS6 EQU TCBFRS+24 02659000 TCBFRS4 EQU TCBFRS+16 02660000 TCBFRS2 EQU TCBFRS+8 02661000 TCBFRS0 EQU TCBFRS 02662000 SPPXLT4B EQU SPPXLT4A+1 02663000 @NM00075 EQU SPPXLT4A 02664000 SPPXLT3B EQU SPPXLT3A+1 02665000 @NM00074 EQU SPPXLT3A 02666000 SPPXLT2B EQU SPPXLT2A+1 02667000 @NM00073 EQU SPPXLT2A 02668000 SPPXLT1B EQU SPPXLT1A+1 02669000 @NM00072 EQU SPPXLT1A 02670000 SPPMDPTB EQU SPPMDPTA+1 02671000 @NM00071 EQU SPPMDPTA 02672000 @NM00070 EQU SPPARM+20 02673000 @NM00069 EQU SPPFLAG2 02674000 SPPADFCB EQU SPPFLAG2 02675000 SPPXLT40 EQU SPPFLAG2 02676000 SPPXLT30 EQU SPPFLAG2 02677000 SPPXLT20 EQU SPPFLAG2 02678000 SPPXLT10 EQU SPPFLAG2 02679000 SPPMODI EQU SPPFLAG2 02680000 @NM00068 EQU SPPFLAG1 02681000 SPPBTREQ EQU SPPFLAG1 02682000 SPPBFREQ EQU SPPFLAG1 02683000 @NM00067 EQU SPPFLAG1 02684000 SPPREX EQU SPPFLAG1 02685000 SPPFCBB EQU SPPFCB+1 02686000 @NM00066 EQU SPPFCB 02687000 @NM00065 EQU SPPFDUNF 02688000 SPPFOLD EQU SPPFDUNF 02689000 SPPUNFLD EQU SPPFDUNF 02690000 @NM00064 EQU SPPFDUNF 02691000 SPPFUBLK EQU SPPFDUNF 02692000 SPPVERFY EQU SPPARM+9 02693000 SPPLDMOD EQU SPPARM+8 02694000 SPPUCS EQU SPPARM+4 02695000 SPPDCBB EQU SPPDCBA+1 02696000 @NM00063 EQU SPPDCBA 02697000 DXATEXB2 EQU DXATEXC2 02698000 DXEXHASP EQU DXATEXB1 02699000 DXATCOM4 EQU FORCORE+600 02700000 DXATCOM3 EQU FORCORE+596 02701000 @NM00062 EQU DXATCOM2+3 02702000 @NM00061 EQU DXATALL 02703000 DXATSWAP EQU DXATALL 02704000 DXATFC EQU DXATALL 02705000 @NM00060 EQU DXATOPEN 02706000 DXATDFIN EQU DXATOPEN 02707000 DXATDSIN EQU DXATOPEN 02708000 DXATMODM EQU DXATOPEN 02709000 DXATMODE EQU DXATOPEN 02710000 DXATMODS EQU DXATOPEN 02711000 DXATIGN EQU DXATOPEN 02712000 DXATVCAT EQU DXATEOV 02713000 DXATDADM EQU DXATEOV 02714000 DXATREMT EQU DXATEOV 02715000 DXATDNEW EQU DXATEOV 02716000 DXATDFRE EQU DXATEOV 02717000 DXATDCHN EQU DXATEOV 02718000 DXATNVOL EQU DXATEOV 02719000 DXATCCAT EQU DXATEOV 02720000 DXATRDDB EQU DXATDACC 02721000 DXATEOF EQU DXATDACC 02722000 @NM00059 EQU DXATDACC 02723000 DXATSMF EQU DXATDACC 02724000 DXATUPDB EQU DXATDACC 02725000 DXATDRCT EQU DXATDACC 02726000 DXATTRAK EQU DXATDACC 02727000 DXATF1CE EQU DXATDACC 02728000 DXATNSL EQU DXATOUTA 02729000 DXATTTM2 EQU DXATOUTA 02730000 DXATTTM1 EQU DXATOUTA 02731000 DXATTRL2 EQU DXATOUTA 02732000 DXATTRL1 EQU DXATOUTA 02733000 DXATDATM EQU DXATOUTA 02734000 DXATHDTM EQU DXATOUTA 02735000 DXATVLHD EQU DXATOUTA 02736000 DXATCLOS EQU DXATCOM1+1 02737000 DXATSRET EQU DXATGENS 02738000 DXATVCIG EQU DXATVGIV 02739000 DXATVTMG EQU DXATVGIV 02740000 DXATVSMG EQU DXATVGIV 02741000 DXATJFCB EQU DXATGENS 02742000 DXATDISP EQU DXATGENS 02743000 DXATREFR EQU DXATGENS 02744000 DXATDMCT EQU DXATGENS 02745000 DXMSGADR EQU FORCORE+584 02746000 DXPRPARC EQU FORCORE+580 02747000 DXUDCBML EQU FORCORE+578 02748000 DXUDCBPL EQU FORCORE+576 02749000 DXPACBAD EQU DXPDCBAD+1 02750000 @NM00058 EQU DXPDCBAD 02751000 DXUACBAD EQU DXUDCBAD+1 02752000 @NM00057 EQU DXUDCBAD 02753000 DXUCBSVV EQU DXUCBSAV+1 02754000 @NM00056 EQU DXUCBSAV 02755000 DXUCBADR EQU FORCORE+560 02756000 DXTIOTAD EQU FORCORE+556 02757000 DXDEBXAD EQU FORCORE+552 02758000 DXDSAB EQU FORCORE+548 02759000 DXDSABAD EQU FORCORE+544 02760000 DXDSABQD EQU FORCORE+540 02761000 DXJSCBAD EQU FORCORE+536 02762000 DXTCBADR EQU FORCORE+532 02763000 DXASCBAD EQU FORCORE+528 02764000 DXEXTSW EQU FORCORE+527 02765000 DXUKEY EQU FORCORE+526 02766000 DXWKEYSV EQU FORCORE+525 02767000 DXUNITOF EQU FORCORE+522 02768000 DXNOUNIT EQU FORCORE+520 02769000 DXVOLSEQ EQU FORCORE+518 02770000 DXVOLMT3 EQU DXVOLSR3 02771000 DXVOLMT2 EQU DXVOLSR2 02772000 DXVOLMT1 EQU DXVOLSR1 02773000 DXWORK4 EQU FORCORE+496 02774000 DXWORK3 EQU FORCORE+492 02775000 DXWORK2 EQU FORCORE+488 02776000 DXWORK1 EQU FORCORE+484 02777000 DXWORK EQU FORCORE+480 02778000 @NM00055 EQU FORCORE+464 02779000 DXCCW11 EQU DXCCW+80 02780000 DXCCW10 EQU DXCCW+72 02781000 DXCCW9 EQU DXCCW+64 02782000 DXCCW7 EQU DXCCW+48 02783000 DXCCW6 EQU DXCCW+40 02784000 DXCCW4 EQU DXCCW+24 02785000 DXCCW2 EQU DXCCW+8 02786000 DXCCW1 EQU DXCCW 02787000 DXDCBDEB EQU DXDCB+44 02788000 @NM00054 EQU DXDCB+24 02789000 DXDEBDCB EQU DXDCB+20 02790000 @NM00053 EQU DXDCB 02791000 DXDEB EQU DXDAADDR+4 02792000 @NM00052 EQU DXDAADDR 02793000 DXIOB EQU FORCORE+280 02794000 DXECB EQU FORCORE+276 02795000 DSCCORE EQU FORCORE+96 02796000 DXLBL EQU DXDSCB 02797000 MSGTXTF EQU MSGTXTFD+1 02798000 MSGLNGF EQU MSGTXTFD 02799000 MSGOFF7 EQU MSGENTRY+8 02800000 MSGOFF6 EQU MSGENTRY+7 02801000 MSGOFF5 EQU MSGENTRY+6 02802000 MSGOFF4 EQU MSGENTRY+5 02803000 MSGINDLN EQU MSGINDEX 02804000 JFCBE010 EQU JFCBE+44 02805000 JFCGRP8 EQU JFCGROUP+7 02806000 JFCGRP7 EQU JFCGROUP+6 02807000 JFCGRP6 EQU JFCGROUP+5 02808000 JFCGRP5 EQU JFCGROUP+4 02809000 JFCGRP4 EQU JFCGROUP+3 02810000 JFCGRP3 EQU JFCGROUP+2 02811000 JFCGRP2 EQU JFCGROUP+1 02812000 JFCBE009 EQU JFCBE+16 02813000 JFCBE008 EQU JFCBE+6 02814000 JFCBE007 EQU JFCBFLAG 02815000 JFCBCFS EQU JFCBFLAG 02816000 JFCBE006 EQU JFCBFLAG 02817000 JFCBE005 EQU JFCBFLAG 02818000 JFCBE004 EQU JFCBFLAG 02819000 JFCBE003 EQU JFCBFLAG 02820000 JFCBEOPN EQU JFCBFLAG 02821000 JFCBE001 EQU JFCBE+3 02822000 JFCBEXTR EQU JFCBE 02823000 JFCRSV05 EQU JFCEROPT 02824000 JFCRSV04 EQU JFCEROPT 02825000 JFCRSV03 EQU JFCEROPT 02826000 JFCRSV02 EQU JFCEROPT 02827000 JFCTOPT EQU JFCEROPT 02828000 JFCABN EQU JFCEROPT 02829000 JFCSKP EQU JFCEROPT 02830000 JFCACC EQU JFCEROPT 02831000 JFCBUFL EQU JFCAMPTR+2 02832000 JFCFWORD EQU JFCBFTEK 02833000 JFCDWORD EQU JFCBFTEK 02834000 JFCHIER1 EQU JFCBFTEK 02835000 JFCDYN EQU JFCBFTEK 02836000 JFCEXC EQU JFCBFTEK 02837000 JFCBBFTR EQU JFCBBFTA 02838000 JFCSIM EQU JFCBBFTA 02839000 JFCHIER EQU JFCBFTEK 02840000 JFCBFOUT EQU JFCBUFNO 02841000 JFCBUFIN EQU JFCBUFNO 02842000 JFCTEMP EQU JFCBIND2 02843000 JFCREQ EQU JFCBIND2 02844000 JFCENT EQU JFCBIND2 02845000 JFCSHARE EQU JFCBIND2 02846000 JFCSECUR EQU JFCBIND2 02847000 JFCDISP EQU JFCBIND2 02848000 JFCPDS EQU JFCBIND1 02849000 JFCGDG EQU JFCBIND1 02850000 JFCADDED EQU JFCBIND1 02851000 JFCLOC EQU JFCBIND1 02852000 JFCRLSE EQU JFCBIND1 02853000 JFCBXPDT EQU INFMJFCB+83 02854000 JFCBCRDT EQU INFMJFCB+80 02855000 JFCBOPS2 EQU JFCBMASK+7 02856000 JFCRCTLG EQU JFCBFLG2 02857000 JFCBBUFF EQU JFCBFLG2 02858000 JFCTRACE EQU JFCBFLG2 02859000 JFCSDRPS EQU JFCBFLG2 02860000 JFCMODNW EQU JFCBFLG2 02861000 JFCNRPS EQU JFCDEFER 02862000 JFCOUTOP EQU JFCBFLG2 02863000 JFCINOP EQU JFCBFLG2 02864000 JFCBPWBP EQU JFCOPEN 02865000 @NM00048 EQU JFCOPEN 02866000 JFCDUAL EQU JFCBFLG1 02867000 JFCSLDES EQU JFCBFLG1 02868000 JFCSLCRE EQU JFCBFLG1 02869000 JFCSTAND EQU JFCBFLG1 02870000 JFCBOPS1 EQU JFCBMASK 02871000 JFCBVLSQ EQU INFMJFCB+70 02872000 JFCRSV31 EQU JFCFUNC 02873000 JFCFNCBT EQU JFCFUNC 02874000 JFCFNCBX EQU JFCFUNC 02875000 JFCFNCBD EQU JFCFUNC 02876000 JFCFNCBW EQU JFCFUNC 02877000 JFCFNCBP EQU JFCFUNC 02878000 JFCFNCBR EQU JFCFUNC 02879000 JFCFNCBI EQU JFCFUNC 02880000 JFCBFOFL EQU JFCBUFOF 02881000 JFCNL EQU JFCBLTYP 02882000 JFCSL EQU JFCBLTYP 02883000 JFCNSL EQU JFCBLTYP 02884000 JFCSUL EQU JFCBLTYP 02885000 JFCBLP EQU JFCBLTYP 02886000 JFCBLTM EQU JFCBLTYP 02887000 JFCBAL EQU JFCBLTYP 02888000 JFCRSV38 EQU JFCBLTYP 02889000 JFCVINDX EQU INFMJFCB+64 02890000 JFCNLREC EQU INFMJFCB+62 02891000 JFCBADBF EQU INFMJFCB+60 02892000 JFCAMSTR EQU JFCBFRID+2 02893000 JFCAMCRO EQU JFCBFRID 02894000 JFCBDSCB EQU INFMJFCB+53 02895000 JFCPAT EQU JFCBTSDM 02896000 JFCNDCB EQU JFCBTSDM 02897000 JFCNDSCB EQU JFCBTSDM 02898000 JFCNWRIT EQU JFCBTSDM 02899000 JFCTTR EQU JFCBTSDM 02900000 JFCSDS EQU JFCBTSDM 02901000 JFCVSL EQU JFCBTSDM 02902000 JFCCAT EQU JFCBTSDM 02903000 JFCIPLTX EQU JFCBELNM 02904000 JFCBQNAM EQU JFCBDSNM 02905000 DEBXSAMB EQU DEBXTN+28 02906000 DEBXOPNJ EQU DEBXTN+24 02907000 DEBXXARG EQU DEBXTN+20 02908000 DEBXMCF2 EQU DEBXTN+19 02909000 DEBXMCF1 EQU DEBXTN+18 02910000 DEBXDSO2 EQU DEBXTN+17 02911000 DEBXDSO1 EQU DEBXTN+16 02912000 DEBXDBPR EQU DEBXTN+12 02913000 DEBXDCBM EQU DEBXTN+8 02914000 DEBXDSAB EQU DEBXTN+4 02915000 DEBXRV48 EQU DEBXTN+3 02916000 DEBXRV47 EQU DEBXFLG1 02917000 DEBXRV46 EQU DEBXFLG1 02918000 DEBXRV45 EQU DEBXFLG1 02919000 DEBXRV44 EQU DEBXFLG1 02920000 DEBXRV43 EQU DEBXFLG1 02921000 DEBXDSSI EQU DEBXFLG1 02922000 DEBXTSKC EQU DEBXFLG1 02923000 DEBXCDCB EQU DEBXFLG1 02924000 DEBXLNGH EQU DEBXTN 02925000 DEBTBLOF EQU DEBPREFX+14 02926000 DEBAMTYP EQU DEBPREFX+13 02927000 DEBLNGTH EQU DEBPREFX+12 02928000 DEBDCBMK EQU DEBXTNP 02929000 DEBDSCBA EQU DEBPREFX+1 02930000 DEBWKARA EQU DEBPREFX 02931000 DEBXCEAD EQU DEBXCEA+1 02932000 DEBXCENP EQU DEBXCEAB 02933000 DEBRSV35 EQU DEBXCEAB 02934000 DEBRSV34 EQU DEBXCEAB 02935000 DEBRSV33 EQU DEBXCEAB 02936000 DEBRSV32 EQU DEBXCEAB 02937000 DEBCEAD EQU DEBCEA+1 02938000 DEBCENP EQU DEBCEAB 02939000 DEBRSV31 EQU DEBCEAB 02940000 DEBRSV30 EQU DEBCEAB 02941000 DEBRSV29 EQU DEBCEAB 02942000 DEBRSV28 EQU DEBCEAB 02943000 DEBPCIAD EQU DEBPCIA+1 02944000 DEBPCINP EQU DEBPCIAB 02945000 DEBRSV27 EQU DEBPCIAB 02946000 DEBRSV26 EQU DEBPCIAB 02947000 DEBRSV25 EQU DEBPCIAB 02948000 DEBRSV24 EQU DEBPCIAB 02949000 DEBSIOAD EQU DEBSIOA+1 02950000 DEBSIONP EQU DEBSIOAB 02951000 DEBFIX EQU DEBSIOAB 02952000 DEBIOVR EQU DEBSIOAB 02953000 DEBSIOX EQU DEBSIOAB 02954000 DEBPGFX EQU DEBSIOAB 02955000 DEBEOEAD EQU DEBEOEA+1 02956000 DEBEOENP EQU DEBEOEAB 02957000 DEBRSV22 EQU DEBEOEAB 02958000 DEBRSV21 EQU DEBEOEAB 02959000 DEBRSV20 EQU DEBEOEAB 02960000 DEBESMVR EQU DEBEOEAB 02961000 DEBSUBID EQU DEBSUBNM 02962000 DEBSIOA2 EQU DEBACS08+24 02963000 DEBRPSIO EQU DEBACS08+20 02964000 DEBFREED EQU DEBACS08+16 02965000 @NM00047 EQU DEBACS08+12 02966000 @NM00046 EQU DEBACS08+8 02967000 DEBDISAD EQU DEBACS08+4 02968000 @NM00045 EQU DEBACS08 02969000 DEBRPSST EQU DEBACS07+64 02970000 DEBARECK EQU DEBACS07+60 02971000 DEBAREWT EQU DEBACS07+56 02972000 DEBACHK EQU DEBACS07+52 02973000 DEBAWRIT EQU DEBACS07+48 02974000 DEBASETL EQU DEBACS07+44 02975000 DEBAREAD EQU DEBACS07+40 02976000 DEBCRECK EQU DEBACS07+36 02977000 DEBCREWT EQU DEBACS07+32 02978000 DEBCCHK EQU DEBACS07+28 02979000 DEBCWRIT EQU DEBACS07+24 02980000 DEBCSETL EQU DEBACS07+20 02981000 DEBCREAD EQU DEBACS07+16 02982000 DEBWKPT5 EQU DEBACS07+12 02983000 DEBWKPT4 EQU DEBACS07+8 02984000 DEBGET EQU DEBACS07+4 02985000 @NM00044 EQU DEBACS07 02986000 DEBPUT EQU DEBACS06+4 02987000 DEBDCBFA EQU DEBACS06 02988000 DEBLUCBB EQU DEBLUCBA+1 02989000 DEBRSV18 EQU DEBLUCBA 02990000 DEBFUCBB EQU DEBFUCBA+1 02991000 DEBRSV17 EQU DEBFUCBA 02992000 DEBTCCWB EQU DEBTCCWA+1 02993000 DEBRSV16 EQU DEBTCCWA 02994000 DEBTBFRB EQU DEBTBFRA+1 02995000 DEBRSV15 EQU DEBTBFRA 02996000 DEBDBPEF EQU DEBACS03+8 02997000 DEBDBPP EQU DEBACS03+4 02998000 DEBDTPP EQU DEBACS03 02999000 DEBDBPE EQU DEBDBLK+1 03000000 DEBDBPT EQU DEBDBLK 03001000 DEBEXTNM EQU DEBDSNAM 03002000 DEBLRECL EQU DEBACSMD+14 03003000 DEBBLKSI EQU DEBACSMD+12 03004000 DEBRSV14 EQU DEBDSNM+4 03005000 DEBUTSAB EQU DEBUTSAA+1 03006000 DEBRSV13 EQU DEBUTSAA 03007000 DEBVOLNM EQU DEBACSMD+2 03008000 DEBVLSEQ EQU DEBVOLSQ+1 03009000 DEBRSV42 EQU DEBVOLBT 03010000 DEBRSV41 EQU DEBVOLBT 03011000 DEBRSV40 EQU DEBVOLBT 03012000 DEBRSV39 EQU DEBVOLBT 03013000 DEBRSV38 EQU DEBVOLBT 03014000 DEBRSV37 EQU DEBVOLBT 03015000 DEBRSV36 EQU DEBVOLBT 03016000 DEBEXFUL EQU DEBVOLBT 03017000 DEBNMTRK EQU DEBDASD+14 03018000 DEBENDHH EQU DEBDASD+12 03019000 DEBENDCC EQU DEBDASD+10 03020000 DEBSTRHH EQU DEBDASD+8 03021000 DEBSTRCC EQU DEBDASD+6 03022000 DEBBINUM EQU DEBDASD+4 03023000 DEBUCBA EQU DEBUCBAD+1 03024000 DEBDVMOD EQU DEBUCBAD 03025000 DEBAPPB EQU DEBAPPAD+1 03026000 DEBEXSCL EQU DEBAPPAD 03027000 DEBDCBB EQU DEBDCBAD+1 03028000 DEBDEBID EQU DEBPROTG 03029000 DEBECBB EQU DEBECBAD+1 03030000 DEBPRIOR EQU DEBECBAD 03031000 DEBUSRPB EQU DEBUSRPG+1 03032000 DEBNMEXT EQU DEBUSRPG 03033000 DEBRSV05 EQU DEBBASIC+15 03034000 DEBXTNIN EQU DEBFLGS1 03035000 DEBAPFIN EQU DEBFLGS1 03036000 DEBF1CEV EQU DEBFLGS1 03037000 DEBCINDI EQU DEBFLGS1 03038000 DEBRSV02 EQU DEBFLGS1 03039000 DEBRSIOA EQU DEBFLGS1 03040000 DEBEOFDF EQU DEBFLGS1 03041000 DEBPWCKD EQU DEBFLGS1 03042000 DEBQSCNT EQU DEBBASIC+13 03043000 DEBACCS EQU DEBOPATB 03044000 DEBPOSIT EQU DEBOPATB 03045000 DEBZERO EQU DEBOPATB 03046000 DEBABEND EQU DEBOPATB 03047000 DEBIRBB EQU DEBIRBAD+1 03048000 DEBRERR EQU DEBOFLGS 03049000 DEBLABEL EQU DEBOFLGS 03050000 DEBSPLIT EQU DEBOFLGS 03051000 DEBDCB EQU DEBOFLGS 03052000 DEBRLSE EQU DEBOFLGS 03053000 DEBEOF EQU DEBOFLGS 03054000 DEBDISP EQU DEBOFLGS 03055000 DEBDEBB EQU DEBDEBAD+1 03056000 DEBAMLNG EQU DEBDEBAD 03057000 DEBNMSUB EQU DEBTCBAD 03058000 DCBEOB EQU IHADCS40+20 03059000 DCBPRECL EQU IHADCS40+18 03060000 @NM00043 EQU IHADCS40+16 03061000 @NM00042 EQU @NM00040+1 03062000 @NM00041 EQU DCBEROPT 03063000 DCBERABE EQU DCBEROPT 03064000 DCBERSKP EQU DCBEROPT 03065000 DCBERACC EQU DCBEROPT 03066000 @NM00039 EQU IHADCS40+10 03067000 @NM00038 EQU IHADCS40+9 03068000 @NM00037 EQU IHADCS40+8 03069000 DCBRECA EQU DCBRECAD+1 03070000 @NM00036 EQU DCBRECBT 03071000 DCBRCFGT EQU DCBRCREL 03072000 DCBRCTRU EQU DCBRCREL 03073000 DCBLCCW EQU DCBEOBAD 03074000 DCBNOTE EQU DCBCNTRL 03075000 DCBLRECL EQU IHADCS38+10 03076000 @NM00035 EQU IHADCS38+8 03077000 DCBEOBW EQU IHADCS38+4 03078000 DCBEOBRA EQU DCBEOBR+1 03079000 DCBNCP EQU DCBEOBR 03080000 @NM00034 EQU DCBFLAG1 03081000 DCBSTFLS EQU DCBFLAG1 03082000 DCBSTQCK EQU DCBFLAG1 03083000 DCBDIRCQ EQU DCBBUFOF 03084000 DCBQSTRU EQU DCBUSASI 03085000 @NM00033 EQU DCBUSASI 03086000 DCBQADF3 EQU DCBQADFS 03087000 DCBQADF2 EQU DCBQADFS 03088000 DCBQADF1 EQU DCBQADFS 03089000 DCBBLBP EQU DCBUSASI 03090000 @NM00032 EQU DCBUSASI 03091000 DCBCICBA EQU DCBCICB+1 03092000 @NM00031 EQU DCBCICB 03093000 DCBOFFSW EQU IHADCS36+15 03094000 DCBOFFSR EQU IHADCS36+14 03095000 DCBWCPL EQU IHADCS36+13 03096000 DCBWCPO EQU IHADCS36+12 03097000 DCBBLKSI EQU IHADCS36+10 03098000 DCBCNFEO EQU DCBCIND2 03099000 DCBCNCHS EQU DCBCIND2 03100000 DCBCNBFP EQU DCBCIND2 03101000 DCBCNIOE EQU DCBCIND2 03102000 DCBCNCLO EQU DCBCIND2 03103000 DCBCNWRO EQU DCBCIND2 03104000 DCBCNSTO EQU DCBCIND2 03105000 DCBCNEXB EQU DCBCIND1 03106000 @NM00030 EQU DCBCIND1 03107000 DCBCNBRM EQU DCBCIND1 03108000 @NM00029 EQU DCBCIND1 03109000 DCBCNEVA EQU DCBCIND1 03110000 DCBCNEVB EQU DCBCIND1 03111000 DCBCNSRD EQU DCBCIND1 03112000 DCBCNTOV EQU DCBCIND1 03113000 DCBSYNA EQU DCBSYNAD+1 03114000 DCBIOBL EQU DCBSYNAD 03115000 DCBCHCKA EQU DCBPERRA 03116000 DCBOPTJ EQU DCBOPTCD 03117000 DCBOPTT EQU DCBOPTCD 03118000 DCBSRCHD EQU DCBOPTZ 03119000 DCBOPTQ EQU DCBOPTCD 03120000 DCBBCKPT EQU DCBOPTO 03121000 DCBOPTU EQU DCBOPTCD 03122000 DCBOPTW EQU DCBOPTCD 03123000 DCBPUTA EQU DCBGETA 03124000 @NM00028 EQU DCBPUT 03125000 DCBREADA EQU DCBWRITA 03126000 @NM00027 EQU DCBREAD 03127000 @NM00026 EQU DCBIFLGS 03128000 DCBIFIOE EQU DCBIFLGS 03129000 DCBCH12 EQU DCBIFPCT 03130000 DCBCH9 EQU DCBIFPCT 03131000 DCBIFEC EQU DCBIFLGS 03132000 DCBMFSTI EQU DCBMFDMD 03133000 DCBMFAWR EQU DCBMFSTK 03134000 DCBMFUIP EQU DCBMFTMD 03135000 DCBMFIDW EQU DCBMFLCP 03136000 DCBMFWRK EQU DCBMFMVP 03137000 DCBMFRDQ EQU DCBMFWRT 03138000 DCBMFGTQ EQU DCBMFPUT 03139000 DCBMFSTL EQU DCBMACF2 03140000 DCBMFCK EQU DCBMFDMG 03141000 DCBMFRDX EQU DCBMFCHK 03142000 DCBMFDBF EQU DCBMFSBG 03143000 DCBMFRDI EQU DCBMFLCG 03144000 DCBMFRDK EQU DCBMFMVG 03145000 DCBMFWRQ EQU DCBMFRD 03146000 DCBMFPTQ EQU DCBMFGET 03147000 DCBTIOT EQU IHADCS25 03148000 DCBMRSTI EQU DCBMRDMD 03149000 DCBMRAWR EQU DCBMRSTK 03150000 DCBMRUIP EQU DCBMRTMD 03151000 DCBMRIDW EQU DCBMRLCP 03152000 DCBMRWRK EQU DCBMRMVP 03153000 DCBMRRDQ EQU DCBMRWRT 03154000 DCBMRGTQ EQU DCBMRPUT 03155000 DCBMRSTL EQU DCBMACR2 03156000 DCBMRCK EQU DCBMRDMG 03157000 DCBPGFXA EQU DCBMRRDX 03158000 DCBMRDBF EQU DCBMRSBG 03159000 DCBMRRDI EQU DCBMRLCG 03160000 DCBMRRDK EQU DCBMRMVG 03161000 DCBMRWRQ EQU DCBMRRD 03162000 DCBMRPTQ EQU DCBMRGET 03163000 DCBMRECP EQU DCBMACR1 03164000 @NM00025 EQU DCBIFLG 03165000 DCBIBIOE EQU DCBIFLG 03166000 DCBICH12 EQU DCBIBPCT 03167000 DCBICH9 EQU DCBIBPCT 03168000 DCBIBEC EQU DCBIFLG 03169000 DCBOFIOF EQU DCBOFLGS 03170000 DCBOFUEX EQU DCBOFLGS 03171000 DCBOFTM EQU DCBOFLGS 03172000 DCBOFPPC EQU DCBOFLGS 03173000 DCBOFOPN EQU DCBOFLGS 03174000 DCBOFEOV EQU DCBOFLGS 03175000 DCBOFLRB EQU DCBOFLGS 03176000 DCBOFIOD EQU DCBOFLWR 03177000 DCBDDNAM EQU IHADCS24 03178000 DCBEXLSA EQU DCBEXLST+1 03179000 DCBRECKL EQU DCBRECFM 03180000 DCBRECCC EQU DCBRECFM 03181000 DCBRECSB EQU DCBRECFM 03182000 DCBRECBR EQU DCBRECFM 03183000 DCBRECTO EQU DCBRECLA 03184000 DCBRECL EQU DCBRECLA 03185000 DCBEODA EQU DCBEODAD+1 03186000 DCBBFA EQU DCBBFTEK 03187000 DCBH0 EQU DCBBFTEK 03188000 DCBBFTKD EQU DCBBFTEK 03189000 DCBBFTE EQU DCBBFT 03190000 DCBBFTKR EQU DCBBFT 03191000 DCBBFTS EQU DCBBFT 03192000 DCBH1 EQU DCBBFTEK 03193000 DCBSVCXA EQU DCBSVCXL+1 03194000 @NM00024 EQU DCBSVCXL 03195000 DCBODEBA EQU DCBIOBAA 03196000 @NM00023 EQU DCBQSLM 03197000 DCBUPDBT EQU DCBQSLM 03198000 DCBUPDCM EQU DCBQSLM 03199000 DCB1DVDS EQU DCBQSLM 03200000 @NM00022 EQU DCBDSRG2 03201000 DCBDSGTR EQU DCBDSRG2 03202000 DCBACBM EQU DCBDSRG2 03203000 @NM00021 EQU DCBDSRG2 03204000 DCBDSGTQ EQU DCBDSRG2 03205000 DCBDSGTX EQU DCBDSRG2 03206000 DCBDSGGS EQU DCBDSRG2 03207000 DCBDSGU EQU DCBDSRG1 03208000 DCBDSGPO EQU DCBDSRG1 03209000 @NM00020 EQU DCBDSRG1 03210000 @NM00019 EQU DCBDSRG1 03211000 DCBDSGCX EQU DCBDSRG1 03212000 DCBDSGDA EQU DCBDSRG1 03213000 DCBDSGPS EQU DCBDSRG1 03214000 DCBDSGIS EQU DCBDSRG1 03215000 DCBBUFL EQU IHADCS11+8 03216000 DCBDEVT EQU DCBREL 03217000 DCBKEYLE EQU DCBRELB 03218000 DCBTRCID EQU DCBPRBYT 03219000 @NM00018 EQU DCBPRBYT 03220000 DCBPRTOV EQU IHADCS04+2 03221000 @NM00017 EQU IHADCS04+1 03222000 DCBPRTSP EQU IHADCS04 03223000 @NM00016 EQU IHADCB 03224000 CVTLEVL EQU CVTRELNO+2 03225000 CVTNUMB EQU CVTRELNO 03226000 CVTMDL EQU CVTFIX+250 03227000 @NM00015 EQU CVTFIX+248 03228000 @NM00014 EQU CVTFIX 03229000 CVTRV482 EQU CVTXTNT2+128 03230000 CVTRV481 EQU CVTXTNT2+124 03231000 CVTRV480 EQU CVTXTNT2+120 03232000 CVTRV479 EQU CVTXTNT2+118 03233000 CVTRV478 EQU CVTXTNT2+117 03234000 CVTRV477 EQU CVTXTNT2+116 03235000 CVTRV476 EQU CVTXTNT2+115 03236000 CVTRV475 EQU CVTXTNT2+114 03237000 CVTRV474 EQU CVTRV466 03238000 CVTRV473 EQU CVTRV466 03239000 CVTRV472 EQU CVTRV466 03240000 CVTRV471 EQU CVTRV466 03241000 CVTRV470 EQU CVTRV466 03242000 CVTRV469 EQU CVTRV466 03243000 CVTRV468 EQU CVTRV466 03244000 CVTRV467 EQU CVTRV466 03245000 CVTRV465 EQU CVTRV457 03246000 CVTRV464 EQU CVTRV457 03247000 CVTRV463 EQU CVTRV457 03248000 CVTRV462 EQU CVTRV457 03249000 CVTRV461 EQU CVTRV457 03250000 CVTRV460 EQU CVTRV457 03251000 CVTRV459 EQU CVTRV457 03252000 CVTRV458 EQU CVTRV457 03253000 CVTRV456 EQU CVTXTNT2+108 03254000 CVTRV455 EQU CVTXTNT2+104 03255000 CVTRV454 EQU CVTXTNT2+100 03256000 CVTRV453 EQU CVTXTNT2+96 03257000 CVTRV452 EQU CVTXTNT2+94 03258000 CVTRV451 EQU CVTXTNT2+92 03259000 CVTRV450 EQU CVTXTNT2+90 03260000 CVTRV449 EQU CVTXTNT2+88 03261000 CVTRV448 EQU CVTXTNT2+87 03262000 CVTRV447 EQU CVTXTNT2+86 03263000 CVTRV446 EQU CVTRV438 03264000 CVTRV445 EQU CVTRV438 03265000 CVTRV444 EQU CVTRV438 03266000 CVTRV443 EQU CVTRV438 03267000 CVTRV442 EQU CVTRV438 03268000 CVTRV441 EQU CVTRV438 03269000 CVTRV440 EQU CVTRV438 03270000 CVTRV439 EQU CVTRV438 03271000 CVTRV437 EQU CVTRV429 03272000 CVTRV436 EQU CVTRV429 03273000 CVTRV435 EQU CVTRV429 03274000 CVTRV434 EQU CVTRV429 03275000 CVTRV433 EQU CVTRV429 03276000 CVTRV432 EQU CVTRV429 03277000 CVTRV431 EQU CVTRV429 03278000 CVTRV430 EQU CVTRV429 03279000 CVTRV428 EQU CVTXTNT2+80 03280000 CVTRV427 EQU CVTXTNT2+76 03281000 CVTRV426 EQU CVTXTNT2+72 03282000 CVTRV425 EQU CVTXTNT2+68 03283000 CVTATACT EQU CVTATCVT 03284000 CVTRV423 EQU CVTXTNT2+62 03285000 CVTRV422 EQU CVTXTNT2+60 03286000 CVTRV421 EQU CVTXTNT2+58 03287000 CVTRV420 EQU CVTXTNT2+56 03288000 CVTRV419 EQU CVTXTNT2+55 03289000 CVTRV418 EQU CVTXTNT2+54 03290000 CVTRV417 EQU CVTRV409 03291000 CVTRV416 EQU CVTRV409 03292000 CVTRV415 EQU CVTRV409 03293000 CVTRV414 EQU CVTRV409 03294000 CVTRV413 EQU CVTRV409 03295000 CVTRV412 EQU CVTRV409 03296000 CVTRV411 EQU CVTRV409 03297000 CVTRV410 EQU CVTRV409 03298000 CVTRV408 EQU CVTRV400 03299000 CVTRV407 EQU CVTRV400 03300000 CVTRV406 EQU CVTRV400 03301000 CVTRV405 EQU CVTRV400 03302000 CVTRV404 EQU CVTRV400 03303000 CVTRV403 EQU CVTRV400 03304000 CVTRV402 EQU CVTRV400 03305000 CVTRV401 EQU CVTRV400 03306000 CVTICB EQU CVTXTNT2+48 03307000 CVTSKTA EQU CVTXTNT2+44 03308000 CVTRSV99 EQU CVTXTNT2+40 03309000 CVTRSV98 EQU CVTXTNT2+36 03310000 CVTRSV97 EQU CVTXTNT2+34 03311000 CVTRSV96 EQU CVTXTNT2+32 03312000 CVTOLTEP EQU CVTXTNT2+28 03313000 CVTQIDA EQU CVTQID+1 03314000 CVTRSV95 EQU CVTQID 03315000 CVTRSV94 EQU CVTXTNT2+20 03316000 CVTRSV93 EQU CVTXTNT2+16 03317000 CVTRSV92 EQU CVTXTNT2+12 03318000 CVTDEBVR EQU CVTXTNT2+8 03319000 CVTRSV91 EQU CVTXTNT2+6 03320000 CVTRSV9H EQU CVTFLGBT 03321000 CVTRSV9G EQU CVTFLGBT 03322000 CVTRSV9F EQU CVTFLGBT 03323000 CVTRSV9E EQU CVTFLGBT 03324000 CVTRSV9D EQU CVTFLGBT 03325000 CVTRSV9C EQU CVTFLGBT 03326000 CVTVME EQU CVTFLGBT 03327000 CVTNPE EQU CVTFLGBT 03328000 CVTNUCLS EQU CVTXTNT2+4 03329000 CVTDSSVA EQU CVTDSSV+1 03330000 CVTRSV89 EQU CVTDSSV 03331000 CVTRSV88 EQU CVTXTNT1+8 03332000 CVTRSV87 EQU CVTXTNT1+4 03333000 CVTFACHN EQU CVTXTNT1 03334000 CVTRV488 EQU CVTMAP+412 03335000 CVTRV487 EQU CVTMAP+408 03336000 CVTRV486 EQU CVTMAP+404 03337000 CVTRV485 EQU CVTMAP+400 03338000 CVTACTAP EQU CVTMAP+396 03339000 CVTAUTH EQU CVTMAP+392 03340000 CVTATMCA EQU CVTATMCT+1 03341000 CVTATMST EQU CVTATMCT 03342000 CVTRSV61 EQU CVTMAP+384 03343000 CVTVOLT1 EQU CVTVOLM1+1 03344000 CVTVOLI1 EQU CVTVOLF1 03345000 CVTSTOA EQU CVTMAP+376 03346000 CVTRSV58 EQU CVTMAP+374 03347000 CVTRSV57 EQU CVTMAP+372 03348000 CVTDDCE EQU CVTMAP+368 03349000 CVTPNWFR EQU CVTMAP+364 03350000 CVTSMF EQU CVTMAP+360 03351000 CVTSULK EQU CVTMAP+358 03352000 CVTSLKO EQU CVTSYSK 03353000 CVTSLKP EQU CVTSYSK 03354000 CVTSLKQ EQU CVTSYSK 03355000 CVTSLKR EQU CVTSYSK 03356000 CVTRSV56 EQU CVTSYSK 03357000 CVTRSV55 EQU CVTSYSK 03358000 CVTRSV54 EQU CVTSYSK 03359000 CVTRSV53 EQU CVTSYSK 03360000 CVTRSV52 EQU CVTA1F1 03361000 CVTRSV51 EQU CVTA1F1 03362000 CVTRSV50 EQU CVTA1F1 03363000 CVTRSV49 EQU CVTA1F1 03364000 CVTRSV48 EQU CVTA1F1 03365000 CVTRSV47 EQU CVTA1F1 03366000 CVTSRSW EQU CVTA1F1 03367000 CVTPFSW EQU CVTA1F1 03368000 CVTPCVT EQU CVTMAP+352 03369000 CVTRSV46 EQU CVTMAP+344 03370000 CVTRSV45 EQU CVTMAP+340 03371000 CVTRSV44 EQU CVTMAP+338 03372000 CVTRSV43 EQU CVTMAP+336 03373000 CVTHJESA EQU CVTHJES+1 03374000 CVTRSV42 EQU CVTHJES 03375000 CVTEXT2A EQU CVTEXT2+1 03376000 CVTRSV41 EQU CVTEXT2 03377000 CVTAPFA EQU CVTAPF+1 03378000 CVTRSV40 EQU CVTAPF 03379000 CVTRV518 EQU CVTINTLA 03380000 CVTRV517 EQU CVTERPV 03381000 CVTEORM EQU CVTMAP+312 03382000 CVTMCHPR EQU CVTMAP+308 03383000 CVTTZ EQU CVTMAP+304 03384000 CVTJEPS EQU CVTMAP+300 03385000 CVTJESCT EQU CVTMAP+296 03386000 CVTMODE EQU CVTMAP+292 03387000 CVTPTRV EQU CVTMAP+288 03388000 CVTREAL EQU CVTMAP+284 03389000 CVTRSV39 EQU CVTMAP+280 03390000 CVTRSV38 EQU CVTMAP+276 03391000 CVTDMSRA EQU CVTDMSR+1 03392000 CVTRV634 EQU CVTDMSRF 03393000 CVTRV633 EQU CVTDMSRF 03394000 CVTRV632 EQU CVTDMSRF 03395000 CVTRV631 EQU CVTDMSRF 03396000 CVTRV630 EQU CVTDMSRF 03397000 CVTRV629 EQU CVTDMSRF 03398000 CVTUDUMP EQU CVTDMSRF 03399000 CVTSDUMP EQU CVTDMSRF 03400000 CVTQMSGA EQU CVTQMSG+1 03401000 CVTRSV36 EQU CVTQMSG 03402000 CVTAMFF EQU CVTMAP+264 03403000 CVTPURGA EQU CVTPURG+1 03404000 CVTRSV35 EQU CVTPURG 03405000 CVTCBSP EQU CVTMAP+256 03406000 CVTATERA EQU CVTATER+1 03407000 CVTSYST EQU CVTATER 03408000 CVTVOLT2 EQU CVTTAT 03409000 CVTVOLI2 EQU CVTVOLF2 03410000 CVTAQAVB EQU CVTAQAVT+1 03411000 CVTRSV34 EQU CVTTCMFG 03412000 CVTRSV33 EQU CVTTCMFG 03413000 CVTRSV32 EQU CVTTCMFG 03414000 CVTRSV31 EQU CVTTCMFG 03415000 CVTRSV30 EQU CVTTCMFG 03416000 CVTRSV29 EQU CVTTCMFG 03417000 CVTRSV28 EQU CVTTCMFG 03418000 CVTTCRDY EQU CVTTCMFG 03419000 CVTGTFA EQU CVTGTF+1 03420000 CVTRSV27 EQU CVTGTFST 03421000 CVTRNIO EQU CVTGTFST 03422000 CVTUSR EQU CVTGTFST 03423000 CVTRV318 EQU CVTFORM 03424000 CVTRV317 EQU CVTTMODE 03425000 CVTRV316 EQU CVTSTATE 03426000 CVTRV315 EQU CVTGTFS 03427000 CVTGTFAV EQU CVTGTFS 03428000 CVT0SCR1 EQU CVTMAP+232 03429000 CVTRV515 EQU CVTMAP+228 03430000 CVTRMS EQU CVTMAP+224 03431000 CVTPATCH EQU CVTMAP+220 03432000 CVTTSCE EQU CVTMAP+216 03433000 CVTLNKSC EQU CVTMAP+214 03434000 CVTQABST EQU CVTMAP+212 03435000 CVTMDLDS EQU CVTMAP+208 03436000 CVTUSER EQU CVTMAP+204 03437000 CVTABEND EQU CVTMAP+200 03438000 CVTSMCA EQU CVTMAP+196 03439000 CVTRSV18 EQU CVTMAP+192 03440000 CVTQLPAQ EQU CVTMAP+188 03441000 CVTQCDSR EQU CVTMAP+184 03442000 CVTRSV17 EQU CVTOPTB 03443000 CVTRSV16 EQU CVTOPTB 03444000 CVTFP EQU CVTOPTB 03445000 CVTAPTHR EQU CVTOPTB 03446000 CVTNLOG EQU CVTOPTB 03447000 CVTTOD EQU CVTOPTB 03448000 CVTCTIMS EQU CVTOPTB 03449000 CVTPROT EQU CVTOPTB 03450000 CVTXPFP EQU CVTOPTA 03451000 CVTASCII EQU CVTOPTA 03452000 CVTRSV13 EQU CVTOPTA 03453000 CVTRSV12 EQU CVTOPTA 03454000 CVTNIP EQU CVTOPTA 03455000 CVTDDR EQU CVTOPTA 03456000 CVTAPR EQU CVTOPTA 03457000 CVTCCH EQU CVTOPTA 03458000 CVTSNCTR EQU CVTMAP+180 03459000 CVTQMWR EQU CVTMAP+176 03460000 CVTQOCR EQU CVTMAP+172 03461000 CVT1EF00 EQU CVTMAP+168 03462000 CVTMZ00 EQU CVTMAP+164 03463000 CVTHEAD EQU CVTMAP+160 03464000 CVTRSV11 EQU CVTMAP+156 03465000 CVT0PT01 EQU CVTMAP+152 03466000 CVTMSER EQU CVTMAP+148 03467000 CVTRV516 EQU CVTIERLC 03468000 CVTILCH EQU CVTMAP+140 03469000 CVT0DS EQU CVTMAP+136 03470000 CVTFBOSV EQU CVTMAP+132 03471000 CVTNUCB EQU CVTMAP+128 03472000 CVTIXAVL EQU CVTMAP+124 03473000 CVTIOQET EQU CVTMAP+120 03474000 CVTDCBA EQU CVTMAP+117 03475000 CVTMVS2 EQU CVTDCB 03476000 CVT6DAT EQU CVTDCB 03477000 CVT4MPS EQU CVTDCB 03478000 CVTRSV09 EQU CVTDCB 03479000 CVT4MS1 EQU CVTDCB 03480000 CVT2SPS EQU CVTDCB 03481000 CVT1SSS EQU CVTDCB 03482000 CVTRSV08 EQU CVTDCB 03483000 CVTSTB EQU CVTMAP+112 03484000 CVTQTD00 EQU CVTMAP+108 03485000 CVTQTE00 EQU CVTMAP+104 03486000 CVTCUCB EQU CVTMAP+100 03487000 CVTSJQ EQU CVTMAP+96 03488000 CVTPBLDL EQU CVTMAP+92 03489000 CVTTPC EQU CVTMAP+88 03490000 CVTSVDCB EQU CVTMAP+84 03491000 CVTBRET EQU CVTMAP+82 03492000 CVTEXIT EQU CVTMAP+80 03493000 CVT0FN00 EQU CVTMAP+76 03494000 CVTDARA EQU CVTDAR+1 03495000 CVTRSV07 EQU CVTFLGS1 03496000 CVTRSV06 EQU CVTFLGS1 03497000 CVTRSV05 EQU CVTFLGS1 03498000 CVTRSV04 EQU CVTFLGS1 03499000 CVTRSV03 EQU CVTFLGS1 03500000 CVTRSV02 EQU CVTFLGS1 03501000 CVTRSV01 EQU CVTFLGS1 03502000 CVTDMPLK EQU CVTFLGS1 03503000 CVTXITP EQU CVTMAP+68 03504000 CVTZDTAB EQU CVTMAP+64 03505000 CVTMSLT EQU CVTMAP+60 03506000 CVTDATE EQU CVTMAP+56 03507000 CVTBTERM EQU CVTMAP+52 03508000 CVTSYSAD EQU CVTMAP+48 03509000 CVTXTLER EQU CVTMAP+44 03510000 CVTILK2 EQU CVTMAP+40 03511000 CVTILK1 EQU CVTMAP+36 03512000 CVTPRLTV EQU CVTMAP+32 03513000 CVTPCNVT EQU CVTMAP+28 03514000 CVT0VL00 EQU CVTMAP+24 03515000 CVTXAPG EQU CVTMAP+20 03516000 CVTBUF EQU CVTMAP+16 03517000 CVTJOB EQU CVTMAP+12 03518000 CVTLINK EQU CVTMAP+8 03519000 CVT0EF00 EQU CVTMAP+4 03520000 CVTTCBP EQU CVTMAP 03521000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 03522000 @RT00185 EQU RELOOP 03523000 @RT00189 EQU RELOOP 03524000 @RT00192 EQU RELOOP 03525000 @RT00195 EQU RELOOP 03526000 @RT00200 EQU START 03527000 @RT00202 EQU RELOOP 03528000 @RT00206 EQU TCTLRTN 03529000 @ENDDATA EQU * 03530000 END IGG0196Q,(C'PLS2157',0701,77151) 03531000