TITLE 'ICBVDR00 MSVC ENABLE/DISABLE UTILITY (JULY 19, 1974) V1*00001000 1.0 ' 00002000 ICBVDR00 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'ICBVDR00 76.320' 0001 00008000 DROP @15 00009000 @PROLOG STM @14,@12,12(@13) 0001 00010000 BALR @12,0 0001 00011000 @PSTART DS 0H 0001 00012000 USING @PSTART,@12 0001 00013000 ST @13,@SA00001+4 0001 00014000 LA @14,@SA00001 0001 00015000 ST @14,8(,@13) 0001 00016000 LR @13,@14 0001 00017000 * @Y30LB24*/ 00018000 * 0079 00019000 * /*****************************************************************/ 00020000 * /* */ 00021000 * /* SET UP ADDRESSABILITY AND INITIALIZE VARIABLES @Y30LB24*/ 00022000 * /* */ 00023000 * /*****************************************************************/ 00024000 * 0079 00025000 * PARMPTR=LISTPTR; /* SET EXEC PARM PTR @Y30LB24*/ 00026000 L PARMPTR,LISTPTR(,REG1) 0079 00027000 * INITPTR=ADDR(REQLIST1); /* BASE REQUEST LIST @Y30LB24*/ 00028000 LA INITPTR,REQLIST1 0080 00029000 * RPLVPTR=ADDR(REQLIST2); /* BASE REQUEST LIST @Y30LB24*/ 00030000 LA RPLVPTR,REQLIST2 0081 00031000 * REPLY=''; /* BLANK WORK AREA @Y30LB24*/ 00032000 MVI REPLY,C' ' 0082 00033000 MVC REPLY+1(99),REPLY 0082 00034000 * VVIPTR=ICBVVICB; /* INITIALIZE MSVC CB PTR 0083 00035000 * @Y30LB24*/ 00036000 L @14,CVTPTR 0083 00037000 L @14,CVTEXT2(,@14) 0083 00038000 L @14,CVTICB(,@14) 0083 00039000 L @06,ICBVVICB(,@14) 0083 00040000 LR VVIPTR,@06 0083 00041000 * FAILCODE=RCON0; /* INITIALIZE FAIL CODE @Y30LB24*/ 00042000 SLR @05,@05 0084 00043000 LR FAILCODE,@05 0084 00044000 * RSAVE=ZERO; /* INIT REASON CODE @Y30LB24*/ 00045000 ST @05,RSAVE 0085 00046000 * RETSAVE=ZERO; /* INIT RETURN CODE @Y30LB24*/ 00047000 LR RETSAVE,@05 0086 00048000 * CPUSTAT=ZERO; /* INITIALIZE SWITCH @Y30LB24*/ 00049000 LR CPUSTAT,@05 0087 00050000 * 0088 00051000 * /*****************************************************************/ 00052000 * /* */ 00053000 * /* CHECK TO SEE IF MSVC IS GENERATED IN SYSTEM @Y30LB24*/ 00054000 * /* */ 00055000 * /*****************************************************************/ 00056000 * 0088 00057000 * IF CVTICB=ZERO| /* MSSC CB PTR ZERO? @Y30LB24*/ 00058000 * ICBVVICB=ZERO THEN /* MSVC CB PTR ZERO? @Y30LB24*/ 00059000 CR @14,@05 0088 00060000 BE @RT00088 0088 00061000 CR @06,@05 0088 00062000 BNE @RF00088 0088 00063000 @RT00088 DS 0H 0089 00064000 * DO; /* YES @Y30LB24*/ 00065000 * FAILCODE=ONE; /* SET FAIL CODE @Y30LB24*/ 00066000 LA FAILCODE,1 0090 00067000 * CALL VDRNOTOP; /* CALL MESSAGE ROUTINE @Y30LB24*/ 00068000 BAL @14,VDRNOTOP 0091 00069000 * RSAVE=RCON3; /* SET REASON CODE @Y30LB24*/ 00070000 MVC RSAVE(4),@CF00074 0092 00071000 * RETSAVE=FOUR; /* SET RETURN CODE @Y30LB24*/ 00072000 LA RETSAVE,4 0093 00073000 * RETURN CODE(RETSAVE); /* RETURN TO INITIATOR @Y30LB24*/ 00074000 LR @15,RETSAVE 0094 00075000 L @13,4(,@13) 0094 00076000 L @14,12(,@13) 0094 00077000 LM @00,@12,20(@13) 0094 00078000 BR @14 0094 00079000 * END; /* @Y30LB24*/ 00080000 * IF PLENGTH^=ZERO THEN /* EXEC PARM FIELD? @Y30LB24*/ 00081000 @RF00088 LH @14,PLENGTH(,PARMPTR) 0096 00082000 LTR @14,@14 0096 00083000 BZ @RF00096 0096 00084000 * DO; /* YES @Y30LB24*/ 00085000 * REPLY=PARMS(1:PLENGTH); /* MOVE EXEC PARMS @Y30LB24*/ 00086000 MVI REPLY+1,C' ' 0098 00087000 MVC REPLY+2(98),REPLY+1 0098 00088000 BCTR @14,0 0098 00089000 EX @14,@SM01028 0098 00090000 * END; /* @Y30LB24*/ 00091000 * ELSE 0100 00092000 * DO; /* NO PARM FIELD @Y30LB24*/ 00093000 B @RC00096 0100 00094000 @RF00096 DS 0H 0101 00095000 * CALL VDRCWTOR; /* CALL WTOR ROUTINE @Y30LB24*/ 00096000 BAL @14,VDRCWTOR 0101 00097000 * END; /* @Y30LB24*/ 00098000 * CALL VDRFTYPE; /* CALL TYPE ROUTINE @Y30LB24*/ 00099000 @RC00096 BAL @14,VDRFTYPE 0103 00100000 * DO WHILE FAILCODE=THREE; /* GOOD REPLY? @Y30LB24*/ 00101000 B @DE00104 0104 00102000 @DL00104 DS 0H 0105 00103000 * CALL VDRNOTOP; /* CALL MESSAGE ROUTINE @Y30LB24*/ 00104000 BAL @14,VDRNOTOP 0105 00105000 * CALL VDRCWTOR; /* CALL WTOR ROUTINE @Y30LB24*/ 00106000 BAL @14,VDRCWTOR 0106 00107000 * CALL VDRFTYPE; /* CALL TYPE ROUTINE @Y30LB24*/ 00108000 BAL @14,VDRFTYPE 0107 00109000 * END; /* @Y30LB24*/ 00110000 @DE00104 C FAILCODE,@CF00080 0108 00111000 BE @DL00104 0108 00112000 * RSAVE=ZERO; /* INIT REASON CODE @Y30LB24*/ 00113000 SLR @14,@14 0109 00114000 ST @14,RSAVE 0109 00115000 * RETSAVE=ZERO; /* INIT RETURN CODE @Y30LB24*/ 00116000 LR RETSAVE,@14 0110 00117000 * REG1=INITPTR; /* SET PARM REG @Y30LB24*/ 00118000 LR REG1,INITPTR 0111 00119000 *LMSSC1: 0112 00120000 * SVC(126); /* INVOKE SVC 126 ISSUE SVC MACRO 00121000 * @Y30LB24*/ 00122000 LMSSC1 SVC 126 0112 00123000 * IF REG15^=ZERO THEN /* FUNCTION SUCCESSFUL? @Y30LB24*/ 00124000 LTR REG15,REG15 0113 00125000 BZ @RF00113 0113 00126000 * DO; /* NO @Y30LB24*/ 00127000 * RSAVE=REG0; /* SAVE REASON CODE @Y30LB24*/ 00128000 ST REG0,RSAVE 0115 00129000 * FAILCODE=TWO; /* SET FAIL CODE @Y30LB24*/ 00130000 LA FAILCODE,2 0116 00131000 * CALL VDRNOTOP; /* CALL MESSAGE ROUTINE @Y30LB24*/ 00132000 BAL @14,VDRNOTOP 0117 00133000 * RETSAVE=FOUR; /* SET RETURN CODE @Y30LB24*/ 00134000 LA RETSAVE,4 0118 00135000 * RETURN CODE(RETSAVE); /* RETURN TO INITIATOR @Y30LB24*/ 00136000 LR @15,RETSAVE 0119 00137000 L @13,4(,@13) 0119 00138000 L @14,12(,@13) 0119 00139000 LM @00,@12,20(@13) 0119 00140000 BR @14 0119 00141000 * END; /* @Y30LB24*/ 00142000 * IF CPUSTAT=ZERO THEN /* CPU ASSOC REQ? @Y30LB24*/ 00143000 @RF00113 LTR CPUSTAT,CPUSTAT 0121 00144000 BNZ @RF00121 0121 00145000 * DO; /* NO @Y30LB24*/ 00146000 * RETURN CODE(RETSAVE); /* RETURN TO INITIATOR @Y30LB24*/ 00147000 LR @15,RETSAVE 0123 00148000 L @13,4(,@13) 0123 00149000 L @14,12(,@13) 0123 00150000 LM @00,@12,20(@13) 0123 00151000 BR @14 0123 00152000 * END; /* @Y30LB24*/ 00153000 * RSAVE=ZERO; /* INIT REASON CODE @Y30LB24*/ 00154000 @RF00121 SLR @14,@14 0125 00155000 ST @14,RSAVE 0125 00156000 * RETSAVE=ZERO; /* INIT RETURN CODE @Y30LB24*/ 00157000 LR RETSAVE,@14 0126 00158000 * REG1=RPLVPTR; /* SET PARM REG @Y30LB24*/ 00159000 LR REG1,RPLVPTR 0127 00160000 *LMSSC2: 0128 00161000 * SVC(126); /* INVOKE SVC 126 ISSUE SVC MACRO 00162000 * @Y30LB24*/ 00163000 LMSSC2 SVC 126 0128 00164000 * IF REG15^=ZERO THEN /* FUNCTION SUCCESSFUL? @Y30LB24*/ 00165000 LTR REG15,REG15 0129 00166000 BZ @RF00129 0129 00167000 * DO; /* NO @Y30LB24*/ 00168000 * RSAVE=REG0; /* SAVE REASON CODE @Y30LB24*/ 00169000 ST REG0,RSAVE 0131 00170000 * FAILCODE=TWO; /* SET FAIL CODE @Y30LB24*/ 00171000 LA FAILCODE,2 0132 00172000 * CALL VDRNOTOP; /* CALL MESSAGE ROUTINE @Y30LB24*/ 00173000 BAL @14,VDRNOTOP 0133 00174000 * RETSAVE=FOUR; /* SET RETURN CODE @Y30LB24*/ 00175000 LA RETSAVE,4 0134 00176000 * END; /* @Y30LB24*/ 00177000 * RETURN CODE(RETSAVE); /* RETURN TO INITIATOR @Y30LB24*/ 00178000 @RF00129 LR @15,RETSAVE 0136 00179000 L @13,4(,@13) 0136 00180000 L @14,12(,@13) 0136 00181000 LM @00,@12,20(@13) 0136 00182000 BR @14 0136 00183000 * 0137 00184000 */* ****************************************************************** 00185000 * 0137 00186000 * NAME = VDRCWTOR, WRITE TO OPERATOR FOR PARMS. @Y30LB24 00187000 * 0137 00188000 * INPUT = NONE. @Y30LB24 00189000 * 0137 00190000 * PROCESS = THIS SUBROUTINE IS CALLED WHEN PARMS HAVE NOT 0137 00191000 * BEEN SPECIFIED ON THE EXEC JCL OR THE PARMS SPECIFIED 0137 00192000 * ARE IN ERROR. @Y30LB24 00193000 * 0137 00194000 * OUTPUT = PARMS ARE READ VIA A WTOR COMMAND. @Y30LB24 00195000 * 0137 00196000 ******************************************************************** */ 00197000 */*VDRCWTOR: CHART */ 00198000 */*HEADER 0137 00199000 */*JULY 19, 1974 ICBVDR00 - SEGMENT 0137 00200000 */*VDRCWTOR - WTOR FOR PARMS */ 00201000 */* E VDRCWTOR */ 00202000 */* P CLEAR REPLY AREA */ 00203000 */* P CLEAR ECB */ 00204000 */* L ISSUE WTOR */ 00205000 */*%END: R RETURN TO CALLER */ 00206000 */*VDRCWTOR: END */ 00207000 * 0137 00208000 *VDRCWTOR: 0137 00209000 * PROCEDURE OPTIONS(SAVEAREA); 0137 00210000 @EL00001 L @13,4(,@13) 0137 00211000 @EF00001 DS 0H 0137 00212000 @ER00001 LM @14,@12,12(@13) 0137 00213000 BR @14 0137 00214000 VDRCWTOR STM @14,@12,12(@13) 0137 00215000 ST @13,@SA00002+4 0137 00216000 LA @14,@SA00002 0137 00217000 ST @14,8(,@13) 0137 00218000 LR @13,@14 0137 00219000 * REPLY=''; /* BLANK WORK AREA @Y30LB24*/ 00220000 MVI REPLY,C' ' 0138 00221000 MVC REPLY+1(99),REPLY 0138 00222000 * WTORECB=ZERO; /* CLEAR THE WTOR ECB @Y30LB24*/ 00223000 SLR @14,@14 0139 00224000 ST @14,WTORECB 0139 00225000 * REG2=ADDR(REPLY); /* SET REPLY ADDR @Y30LB24*/ 00226000 LA REG2,REPLY 0140 00227000 * REG3=ADDR(WTORECB); /* SET ECB ADDRESS @Y30LB24*/ 00228000 LA REG3,WTORECB 0141 00229000 *LWTOR1: 0142 00230000 * GEN REFS(REG2,REG3); 0142 00231000 LWTOR1 DS 0H 0142 00232000 * /* WTOR FOR PARMS @Y30LB24* 00233000 WTOR 'ICB435D REPLY(ENABLE,DISABLE,DISABLEJ),HOSTID=(ONLINE,OF*00234000 FLINE),RESTORED',(REG2),N25,(REG3) @G24LB23 00235000 WAIT ECB=WTORECB 00236000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00237000 @EL00002 L @13,4(,@13) 0143 00238000 @EF00002 DS 0H 0143 00239000 @ER00002 LM @14,@12,12(@13) 0143 00240000 BR @14 0143 00241000 * END VDRCWTOR; /* END WTOR PARMS @Y30LB24*/ 00242000 * 0145 00243000 */* ****************************************************************** 00244000 * 0145 00245000 * NAME = VDRFTYPE, DETERMINE TYPE OF ENABLE/DISABLE REQUESTED. 00246000 * @Y30LB24 00247000 * 0145 00248000 * INPUT = POINTER TO WORK AREA FOR THE MSVC REQUEST. @Y30LB24 00249000 * 0145 00250000 * PROCESS = THIS SUBROUTINE IS CALLED WHEN THE TYPE OF 0145 00251000 * ENABLE/DISABLE MUST BE DETERMINED FOR ICBVDR00. @Y30LB24 00252000 * 0145 00253000 * OUTPUT = MSVC REQUEST LIST BUILT AND/OR WORK FLAG TO INDICATE 00254000 * THE SUCCESS OF THE SUBROUTINE. @Y30LB24 00255000 * 0145 00256000 ******************************************************************** */ 00257000 */*VDRFTYPE: CHART */ 00258000 */*HEADER 0145 00259000 */*JULY 19, 1974 ICBVDR00 - SEGMENT 0145 00260000 */*VDRFTYPE - DETERMINE ENABLE/DISABLE TYPE */ 00261000 */* E VDRFTYPE */ 00262000 */* M INITIALIZE VARIABLES */ 00263000 */* M INITIALIZE CONSTANTS */ 00264000 */* P SET PARMS UPPER CASE */ 00265000 */* D (YES,,NO,%ENCK) DISABLE REQUESTED? */ 00266000 */* D (YES,,NO,%ERR) PARMS VALID? */ 00267000 */* M (,%END) PREPARE MSVC DISABLE REQUEST */ 00268000 */*%ENCK: D (YES,,NO,%ERR) ENABLE REQUESTED? */ 00269000 */* D (YES,,NO,%ERR) PARMS VALID? */ 00270000 */* M PREPARE MSVC ENABLE REQUEST */ 00271000 */* D (YES,,NO,%END) ENABLE MSVC */ 00272000 */* D (YES,,NO,%END) CPU ASSOC REQ? */ 00273000 */* D (YES,,NO,%ERR) CPU ASSOC PARMS VALID? */ 00274000 */* M (,%END) PREPARE CPU ASSOC REQUEST */ 00275000 */*%ERR: M SET INVALID PARM CODE */ 00276000 */*%END: R RETURN TO CALLER */ 00277000 */*VDRFTYPE: END */ 00278000 * 0145 00279000 *VDRFTYPE: 0145 00280000 * PROCEDURE OPTIONS(SAVEAREA); 0145 00281000 VDRFTYPE STM @14,@06,12(@13) 0145 00282000 STM @08,@10,52(@13) 0145 00283000 ST @12,68(,@13) 0145 00284000 ST @13,@SA00003+4 0145 00285000 LA @14,@SA00003 0145 00286000 ST @14,8(,@13) 0145 00287000 LR @13,@14 0145 00288000 * REQLIST1=''B; /* ZERO LIST1 @Y30LB24*/ 00289000 XC REQLIST1(40),REQLIST1 0146 00290000 * REQLIST2=''B; /* ZERO LIST2 @Y30LB24*/ 00291000 XC REQLIST2(200),REQLIST2 0147 00292000 * INILNGTH=INILEN; /* SET REQUEST LENGTH @Y30LB24*/ 00293000 LH @14,INILEN 0148 00294000 ST @14,INILNGTH(,INITPTR) 0148 00295000 * INITOPCD=INICODE; /* SET OP CODE @Y30LB24*/ 00296000 MVI INITOPCD(INITPTR),X'88' 0149 00297000 * DO I=1 TO 34; /* UPPER CASE LOOP @G24LB23*/ 00298000 LA I,1 0150 00299000 @DL00150 DS 0H 0151 00300000 * CAPS(I)=CAPS(I)|BLANK; /* SET UPPER CASE @Y30LB24*/ 00301000 LA @14,CAPS-1(I) 0151 00302000 OC 0(1,@14),BLANK 0151 00303000 * END; /* @Y30LB24*/ 00304000 AL I,@CF00059 0152 00305000 C I,@CF00142 0152 00306000 BNH @DL00150 0152 00307000 * FAILCODE=THREE; /* INITIALIZE REASON CODE 0153 00308000 * @Y30LB24*/ 00309000 LA FAILCODE,3 0153 00310000 * CPUSTAT=ZERO; /* INITIALIZE SWITCH @Y30LB24*/ 00311000 SLR @14,@14 0154 00312000 LR CPUSTAT,@14 0154 00313000 * IF REPLY(1:8)='DISABLEJ' THEN /* DISABLE JOURNAL? @Y30LB24*/ 00314000 CLC REPLY(8),@CC00995 0155 00315000 BNE @RF00155 0155 00316000 * DO; /* YES @Y30LB24*/ 00317000 * INIDISAB=ON; /* SET DISABLE FLAG @Y30LB24*/ 00318000 OI INIDISAB(INITPTR),B'00100000' 0157 00319000 * INIJRNL=ON; /* SET JOURNAL FLAG @Y30LB24*/ 00320000 OI INIJRNL(INITPTR),B'01000000' 0158 00321000 * IF REPLY(9:9)=BLANK THEN /* NO MORE PARMS @Y30LB24*/ 00322000 CLC REPLY+8(1),BLANK 0159 00323000 BNE @RF00159 0159 00324000 * FAILCODE=ZERO; /* SET VALID PARMS @Y30LB24*/ 00325000 LR FAILCODE,@14 0160 00326000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00327000 @EL00003 L @13,4(,@13) 0161 00328000 @EF00003 DS 0H 0161 00329000 @ER00003 LM @14,@06,12(@13) 0161 00330000 LM @08,@10,52(@13) 0161 00331000 L @12,68(,@13) 0161 00332000 BR @14 0161 00333000 * END; /* @Y30LB24*/ 00334000 * IF REPLY(1:7)='DISABLE' THEN /* DISABLE MSVC @Y30LB24*/ 00335000 @RF00155 CLC REPLY(7),@CC00996 0163 00336000 BNE @RF00163 0163 00337000 * DO; /* YES @Y30LB24*/ 00338000 * INIDISAB=ON; /* SET DISABLE FLAG @Y30LB24*/ 00339000 OI INIDISAB(INITPTR),B'00100000' 0165 00340000 * INIABLE=ON; /* SET MSVI FLAG @Y30LB24*/ 00341000 * INIJRNL=ON; /* SET JOURNAL FLAG @Y30LB24*/ 00342000 OI INIABLE(INITPTR),B'01100000' 0167 00343000 * IF REPLY(8:8)=BLANK THEN /* NO MORE PARMS @Y30LB24*/ 00344000 CLC REPLY+7(1),BLANK 0168 00345000 BNE @RF00168 0168 00346000 * FAILCODE=ZERO; /* SET VALID PARMS @Y30LB24*/ 00347000 SLR FAILCODE,FAILCODE 0169 00348000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00349000 B @EL00003 0170 00350000 * END; /* @Y30LB24*/ 00351000 * IF REPLY(1:6)='ENABLE' THEN /* ENABLE MSVC @Y30LB24*/ 00352000 @RF00163 CLC REPLY(6),@CC00997 0172 00353000 BNE @RF00172 0172 00354000 * DO; /* YES @Y30LB24*/ 00355000 * INIENABL=ON; /* SET ENABLE FLAG @Y30LB24*/ 00356000 OI INIENABL(INITPTR),B'01000000' 0174 00357000 * INIVERFY=ON; /* SET VERIFY FLAG @Y30LB24*/ 00358000 OI INIVERFY(INITPTR),B'10000000' 0175 00359000 * INIUCAT=''; /* BLANK UCAT NAME @Y30LB24*/ 00360000 MVI INIUCAT(INITPTR),C' ' 0176 00361000 MVC INIUCAT+1(7,INITPTR),INIUCAT(INITPTR) 0176 00362000 * FAILCODE=ZERO; /* CLEAR REASON CODE @Y30LB24*/ 00363000 SLR FAILCODE,FAILCODE 0177 00364000 * IF REPLY(7:7)=BLANK THEN /* NO MORE PARMS @Y30LB24*/ 00365000 CLC REPLY+6(1),BLANK 0178 00366000 BE @RT00178 0178 00367000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00368000 * END; /* @Y30LB24*/ 00369000 * IF FAILCODE=THREE THEN /* NO VALID PARMS @Y30LB24*/ 00370000 @RF00172 C FAILCODE,@CF00080 0181 00371000 BNE @RF00181 0181 00372000 * DO; /* YES @Y30LB24*/ 00373000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00374000 B @EL00003 0183 00375000 * END; /* @Y30LB24*/ 00376000 * IF REPLY(7:7)^=COMMA| /* COMMA NEXT PARM? @Y30LB24*/ 00377000 * (REPLY(18:18)^=EQUALS&REPLY(8:8)^=COMMA) THEN/* EQSGN NEXT 0185 00378000 * PARM? @G24LB23*/ 00379000 @RF00181 CLC REPLY+6(1),COMMA 0185 00380000 BNE @RT00185 0185 00381000 CLC REPLY+17(1),EQUALS 0185 00382000 BE @RF00185 0185 00383000 CLC REPLY+7(1),COMMA 0185 00384000 BE @RF00185 0185 00385000 @RT00185 DS 0H 0186 00386000 * DO; /* NO @Y30LB24*/ 00387000 * FAILCODE=THREE; /* SET INVALID PARM @Y30LB24*/ 00388000 LA FAILCODE,3 0187 00389000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00390000 B @EL00003 0188 00391000 * END; /* @Y30LB24*/ 00392000 * IF REPLY(8:8)^=COMMA THEN 0190 00393000 @RF00185 CLC REPLY+7(1),COMMA 0190 00394000 BE @RF00190 0190 00395000 * DO; /* HOSTID SPECIFIED? @G24LB23*/ 00396000 * HOSTID=REPLY(8:18); /* SAVE NEXT PARM @Y30LB24*/ 00397000 MVC HOSTID(11),REPLY+7 0192 00398000 * HOSTID(11:11)='F0'; /* SET LAST BYTE @Y30LB24*/ 00399000 MVI HOSTID+10,C'F' 0193 00400000 * IF HOSTID(1:10)=ZEROS| /* INVALID HOSTID @Y30LB24*/ 00401000 * HOSTID(1:10)=CPUBK THEN /* INVALID HOSTID @Y30LB24*/ 00402000 CLC HOSTID(10),ZEROS 0194 00403000 BE @RT00194 0194 00404000 CLC HOSTID(10),CPUBK 0194 00405000 BNE @RF00194 0194 00406000 @RT00194 DS 0H 0195 00407000 * DO; /* YES @Y30LB24*/ 00408000 * FAILCODE=THREE; /* SET INVALID PARM @Y30LB24*/ 00409000 LA FAILCODE,3 0196 00410000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00411000 B @EL00003 0197 00412000 * END; /* @Y30LB24*/ 00413000 * DO I=1 TO 10; /* VALIDATION LOOP @Y30LB24*/ 00414000 @RF00194 LA I,1 0199 00415000 @DL00199 DS 0H 0200 00416000 * IF HCHAR(I)<'F0'X| /* PARM < ZERO @Y30LB24*/ 00417000 * HCHAR(I)>'F9'X THEN /* PARM > NINE @Y30LB24*/ 00418000 LA @14,HCHAR-1(I) 0200 00419000 CLI 0(@14),X'F0' 0200 00420000 BL @RT00200 0200 00421000 LA @14,HCHAR-1(I) 0200 00422000 CLI 0(@14),X'F9' 0200 00423000 BNH @RF00200 0200 00424000 @RT00200 DS 0H 0201 00425000 * DO; /* YES @Y30LB24*/ 00426000 * FAILCODE=THREE; /* SET INVALID PARM @Y30LB24*/ 00427000 LA FAILCODE,3 0202 00428000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00429000 B @EL00003 0203 00430000 * END; /* @Y30LB24*/ 00431000 * END; /* @Y30LB24*/ 00432000 @RF00200 AL I,@CF00059 0205 00433000 C I,@CF00125 0205 00434000 BNH @DL00199 0205 00435000 * REG3=LENGTH(RPLV); /* SET RPLV LENGTH @Y30LB24*/ 00436000 LA @14,132 0206 00437000 LR REG3,@14 0206 00438000 * REG3=REG3+LENGTH(ICBADLST); /* SET TOTAL LEN @Y30LB24*/ 00439000 LA @10,16 0207 00440000 ALR REG3,@10 0207 00441000 * RECPLEN=REG3; /* SET PARM LENGTH @Y30LB24*/ 00442000 ST REG3,RECPLEN(,RPLVPTR) 0208 00443000 * RPLJRCVY=ON; /* SET RECOVERY FLG @VS32198*/ 00444000 * RPLFTIME=ON; /* INDICATE SECOND ENTRY @Y30LB24*/ 00445000 OI RPLJRCVY(RPLVPTR),B'10000010' 0210 00446000 * ROPCODE='8F'X; /* SET REC OPCODE @Y30LB24*/ 00447000 MVI ROPCODE(RPLVPTR),X'8F' 0211 00448000 * RPLVTLEN=REG3; /* SET RPLVTLEN @Y30LB24*/ 00449000 STH REG3,RPLVTLEN(,RPLVPTR) 0212 00450000 * ASDALEN=LENGTH(ICBADLST); /* SET ASDA LENGTH @Y30LB24*/ 00451000 ALR @14,RPLVPTR 0213 00452000 ST @10,ASDALEN(,@14) 0213 00453000 * ASDAOPC='2C'X; /* SET ASD OPCODE @Y30LB24*/ 00454000 MVI ASDAOPC(@14),X'2C' 0214 00455000 * GEN(PACK WORK1(N6),HOSTID(N11));/* PACK HOSTID @Y30LB24*/ 00456000 PACK WORK1(N6),HOSTID(N11) 00457000 * ASDACPU=WORK1(1:5); /* MOVE CPU ASSOC @Y30LB24*/ 00458000 LA @14,132 0216 00459000 ALR @14,RPLVPTR 0216 00460000 MVC ASDACPU(5,@14),WORK1 0216 00461000 * IF REPLY(19:24)='ONLINE' THEN/* CPU ONLINE? @Y30LB24*/ 00462000 CLC REPLY+18(6),@CC01004 0217 00463000 BNE @RF00217 0217 00464000 * DO; /* YES @Y30LB24*/ 00465000 * ASASSOC=ON; /* SET ASSOC FLAG @Y30LB24*/ 00466000 OI ASASSOC(@14),B'10000000' 0219 00467000 * CPUSTAT=ONE; /* SET CPU ASSOC SW @Y30LB24*/ 00468000 LA CPUSTAT,1 0220 00469000 * IF REPLY(25)=BLANK /* NO MORE PARMS @G24LB23*/ 00470000 * THEN 0221 00471000 CLC REPLY+24(1),BLANK 0221 00472000 BE @RT00221 0221 00473000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00474000 * IF REPLY(25)=COMMA&REPLY(26:33)='RESTORED'&REPLY(34)=BLANK 00475000 * /* RESTORED SPECIFIED @G24LB23*/ 00476000 * THEN 0223 00477000 CLC REPLY+24(1),COMMA 0223 00478000 BNE @RF00223 0223 00479000 CLC REPLY+25(8),@CC01008 0223 00480000 BNE @RF00223 0223 00481000 CLC REPLY+33(1),BLANK 0223 00482000 BNE @RF00223 0223 00483000 * INIRESTR=ON; /* SPECIFY RESTORED @G24LB23*/ 00484000 OI INIRESTR(INITPTR),B'00010000' 0224 00485000 * ELSE 0225 00486000 * FAILCODE=THREE; /* SET INVALID PARM @G24LB23*/ 00487000 B @RC00223 0225 00488000 @RF00223 LA FAILCODE,3 0225 00489000 * RETURN; /* RETURN TO CALLER @G24LB23*/ 00490000 B @EL00003 0226 00491000 * END; /* @Y30LB24*/ 00492000 * IF REPLY(19:25)='OFFLINE' THEN/* CPU OFFLINE? @Y30LB24*/ 00493000 @RF00217 CLC REPLY+18(7),@CC01009 0228 00494000 BNE @RF00228 0228 00495000 * DO; /* YES @Y30LB24*/ 00496000 * ASDASSOC=ON; /* SET ASSOC FLAG @Y30LB24*/ 00497000 OI ASDASSOC+132(RPLVPTR),B'01000000' 0230 00498000 * CPUSTAT=ONE; /* SET CPU ASSOC SW @Y30LB24*/ 00499000 LA CPUSTAT,1 0231 00500000 * IF REPLY(26)=BLANK THEN /* NO MORE PARMS @G24LB23*/ 00501000 CLC REPLY+25(1),BLANK 0232 00502000 BE @RT00232 0232 00503000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00504000 * IF REPLY(26)=COMMA&REPLY(27:34)='RESTORED'&REPLY(35)=BLANK 00505000 * /* RESTORED SPECIFIED */ 00506000 * THEN 0234 00507000 CLC REPLY+25(1),COMMA 0234 00508000 BNE @RF00234 0234 00509000 CLC REPLY+26(8),@CC01008 0234 00510000 BNE @RF00234 0234 00511000 CLC REPLY+34(1),BLANK 0234 00512000 BNE @RF00234 0234 00513000 * INIRESTR=ON; /* SPECIFY RESTORED @G24LB23*/ 00514000 OI INIRESTR(INITPTR),B'00010000' 0235 00515000 * ELSE 0236 00516000 * FAILCODE=THREE; /* SET INVALID PARM @G24LB23*/ 00517000 B @RC00234 0236 00518000 @RF00234 LA FAILCODE,3 0236 00519000 * RETURN; /* RETURN TO CALLER @G24LB23*/ 00520000 B @EL00003 0237 00521000 * END; /* @Y30LB24*/ 00522000 * FAILCODE=THREE; /* SET INVALID PARM @Y30LB24*/ 00523000 @RF00228 LA FAILCODE,3 0239 00524000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00525000 B @EL00003 0240 00526000 * END; /* @G24LB23*/ 00527000 * ELSE 0242 00528000 * DO; /* @G24LB23*/ 00529000 @RF00190 DS 0H 0243 00530000 * IF REPLY(9:16)='RESTORED'&REPLY(17)=BLANK THEN/* RESTORED 0243 00531000 * SPECIFIED */ 00532000 CLC REPLY+8(8),@CC01008 0243 00533000 BNE @RF00243 0243 00534000 CLC REPLY+16(1),BLANK 0243 00535000 BNE @RF00243 0243 00536000 * INIRESTR=ON; /* SPECIFY RESTORED @G24LB23*/ 00537000 OI INIRESTR(INITPTR),B'00010000' 0244 00538000 * ELSE 0245 00539000 * FAILCODE=THREE; /* SET INVALID PARM @G24LB23*/ 00540000 B @RC00243 0245 00541000 @RF00243 LA FAILCODE,3 0245 00542000 * RETURN; /* RETURN TO CALLER @G24LB23*/ 00543000 B @EL00003 0246 00544000 * END; /* @G24LB23*/ 00545000 * END VDRFTYPE; /* END DETERMINE TYPE @Y30LB24*/ 00546000 B @EL00003 0248 00547000 * 0249 00548000 */* ****************************************************************** 00549000 * 0249 00550000 * NAME = VDRNOTOP, SYSTEM OPERATOR COMMUNICATION @Y30LB24 00551000 * 0249 00552000 * INPUT = INTERNAL WORK FLAG INDICATING THE TYPE OF PROCESSING 0249 00553000 * ERROR THAT HAS OCCURRED. @Y30LB24 00554000 * 0249 00555000 * PROCESS = INFORM SYSTEM OPERATOR OF THE TYPE OF PROCESSING ERROR. 00556000 * @Y30LB24 00557000 * 0249 00558000 * OUTPUT = INFORMATIONAL MESSAGE TO BE CONVEYED TO THE OPERATOR. 00559000 * @Y30LB24 00560000 * 0249 00561000 ******************************************************************** */ 00562000 */*VDRNOTOP: CHART */ 00563000 */* E VDRNOTOP */ 00564000 */* P RETRIEVE MESSAGE */ 00565000 */* I ISSUE WTO WITH ERROR MESSAGE */ 00566000 */*%END: R RETURN TO CALLER */ 00567000 */*VDRNOTOP: END */ 00568000 * 0249 00569000 *VDRNOTOP: 0249 00570000 * PROCEDURE OPTIONS(SAVEAREA); 0249 00571000 VDRNOTOP STM @14,@12,12(@13) 0249 00572000 ST @13,@SA00004+4 0249 00573000 LA @14,@SA00004 0249 00574000 ST @14,8(,@13) 0249 00575000 LR @13,@14 0249 00576000 * IF FAILCODE=ONE THEN /* MESSAGE ONE? @Y30LB24*/ 00577000 C FAILCODE,@CF00059 0250 00578000 BNE @RF00250 0250 00579000 * DO; /* YES @Y30LB24*/ 00580000 * REG1=ADDR(MSG1); /* SET UP REG 1 @Y30LB24*/ 00581000 LA REG1,MSG1 0252 00582000 *LWTO1: 0253 00583000 * GEN(WTO MF=(E,(REG1))); /* SEND ERROR MSG1 @Y30LB24*/ 00584000 LWTO1 WTO MF=(E,(REG1)) 00585000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00586000 @EL00004 L @13,4(,@13) 0254 00587000 @EF00004 DS 0H 0254 00588000 @ER00004 LM @14,@12,12(@13) 0254 00589000 BR @14 0254 00590000 * END; /* @Y30LB24*/ 00591000 * IF FAILCODE=TWO THEN /* MESSAGE TWO? @Y30LB24*/ 00592000 @RF00250 C FAILCODE,@CF00078 0256 00593000 BNE @RF00256 0256 00594000 * DO; /* YES @Y30LB24*/ 00595000 * WORK2(1:4)=RCHAR; /* MOVE REASON CODE @Y30LB24*/ 00596000 MVC WORK2(4),RCHAR 0258 00597000 * WORK2(5:5)=SIGN; /* MOVE PACK SIGN @Y30LB24*/ 00598000 MVC WORK2+4(1),SIGN 0259 00599000 * GEN(UNPK WORK1(N5),WORK2+N2(N3));/* UNPK @Y30LB24*/ 00600000 UNPK WORK1(N5),WORK2+N2(N3) 00601000 * GEN(TR WORK1(N4),TRANS-N240);/* TRANSLATE @Y30LB24*/ 00602000 TR WORK1(N4),TRANS-N240 00603000 * MSG2(52:55)=WORK1(1:4); /* MOVE CODE @Y30LB24*/ 00604000 MVC MSG2+51(4),WORK1 0262 00605000 * REG1=ADDR(MSG2); /* SET UP REG 1 @Y30LB24*/ 00606000 LA REG1,MSG2 0263 00607000 *LWTO2: 0264 00608000 * GEN(WTO MF=(E,(REG1))); /* SEND ERROR MSG2 @Y30LB24*/ 00609000 LWTO2 WTO MF=(E,(REG1)) 00610000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00611000 B @EL00004 0265 00612000 * END; /* @Y30LB24*/ 00613000 * IF FAILCODE=THREE THEN /* MESSAGE THREE? @Y30LB24*/ 00614000 @RF00256 C FAILCODE,@CF00080 0267 00615000 BNE @RF00267 0267 00616000 * DO; /* YES @Y30LB24*/ 00617000 * REG1=ADDR(MSG3); /* SET UP REG 1 @Y30LB24*/ 00618000 LA REG1,MSG3 0269 00619000 *LWTO3: 0270 00620000 * GEN(WTO MF=(E,(REG1))); /* SEND ERROR MSG3 @Y30LB24*/ 00621000 LWTO3 WTO MF=(E,(REG1)) 00622000 * RETURN; /* RETURN TO CALLER @Y30LB24*/ 00623000 B @EL00004 0271 00624000 * END; /* @Y30LB24*/ 00625000 * END VDRNOTOP; /* END OPER COMM. @Y30LB24*/ 00626000 B @EL00004 0273 00627000 * END ICBVDR00 /* END ICBVDR00 @Y30LB24*/ 00628000 * 0274 00629000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00630000 */*%INCLUDE SYSLIB (CVT ) */ 00631000 */*%INCLUDE SYSLIB (IEZSSC ) */ 00632000 */*%INCLUDE SYSLIB (IEZVVICB) */ 00633000 */*%INCLUDE SYSLIB (IEZRPLV ) */ 00634000 */*%INCLUDE SYSLIB (IEZINIT ) */ 00635000 * 0274 00636000 * ; 0274 00637000 @DATA DS 0H 00638000 @SM01028 MVC REPLY(0),PARMS(PARMPTR) 00639000 DS 0F 00640000 @SA00001 DS 18F 00641000 @SA00004 DS 18F 00642000 @SA00002 DS 18F 00643000 @SA00003 DS 18F 00644000 DS 0F 00645000 @CF00059 DC F'1' 00646000 @CF00078 DC F'2' 00647000 @CF00080 DC F'3' 00648000 @CF00125 DC F'10' 00649000 @CF00142 DC F'34' 00650000 @CF00074 DC F'571' 00651000 DS 0D 00652000 WTORECB DS F 00653000 RSAVE DS F 00654000 INILEN DC AL2(20) 00655000 @CC00995 DC C'DISABLEJ' 00656000 @CC01008 DC C'RESTORED' 00657000 @CC00996 EQU @CC00995 00658000 @CC01009 DC C'OFFLINE' 00659000 @CC00997 DC C'ENABLE' 00660000 @CC01004 DC C'ONLINE' 00661000 DS CL3 00662000 WORK1 DS CL8 00663000 WORK2 DS CL5 00664000 HOSTID DS CL11 00665000 REQLIST1 DS CL40 00666000 REQLIST2 DS CL200 00667000 BLANKS DC CL6' ' 00668000 BLANK DC CL1' ' 00669000 ZEROS DC CL10'0000000000' 00670000 CPUBK DC CL10' ' 00671000 COMMA DC CL1',' 00672000 EQUALS DC CL1'=' 00673000 SIGN DC X'0F' 00674000 OPCODE DC X'8F' 00675000 REPLY DS CL100 00676000 TRANS DC CL16'0123456789ABCDEF' 00677000 VDRPATCH DS CL200 00678000 ORG VDRPATCH 00679000 @NM00002 DC CL20'ICBVDR00 PATCH AREA ' 00680000 @NM00003 DC XL180'0' 00681000 ORG VDRPATCH+200 00682000 ICBVDR00 CSECT 00683000 M0 EQU 0 00684000 M8 EQU 8 00685000 N2 EQU 2 00686000 N3 EQU 3 00687000 N4 EQU 4 00688000 N5 EQU 5 00689000 N6 EQU 6 00690000 N11 EQU 11 00691000 N25 EQU 25 00692000 N240 EQU 240 00693000 ICBVDR00 CSECT 00694000 * /* @Y30LB24* 00695000 MSG1 WTO 'ICB416I ICBVVICB NOT INITIALIZED', *00696000 ROUTCDE=(2,11),DESC=6,MF=L 00697000 MSG2 WTO 'ICB437I ICBVDR00 ERROR SUBTASK PROCESSING CODE=XXXX', *00698000 ROUTCDE=(2,11),DESC=6,MF=L 00699000 MSG3 WTO 'ICB457I PARAMETER SPECIFICATION ERROR', *00700000 ROUTCDE=(2,11),DESC=6,MF=L 00701000 ICBVDR00 CSECT 00702000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00703000 @01 EQU 01 00704000 @02 EQU 02 00705000 @03 EQU 03 00706000 @04 EQU 04 00707000 @05 EQU 05 00708000 @06 EQU 06 00709000 @07 EQU 07 00710000 @08 EQU 08 00711000 @09 EQU 09 00712000 @10 EQU 10 00713000 @11 EQU 11 00714000 @12 EQU 12 00715000 @13 EQU 13 00716000 @14 EQU 14 00717000 @15 EQU 15 00718000 I EQU @10 00719000 CPUSTAT EQU @11 00720000 RETSAVE EQU @07 00721000 PARMPTR EQU @10 00722000 FAILCODE EQU @07 00723000 RPLVPTR EQU @09 00724000 INITPTR EQU @08 00725000 VVIPTR EQU @07 00726000 REG0 EQU @00 00727000 REG1 EQU @01 00728000 REG2 EQU @02 00729000 REG3 EQU @03 00730000 REG15 EQU @15 00731000 ASDAR1 EQU @01 00732000 CVTPTR EQU 16 00733000 PARMLIST EQU 0 00734000 PLENGTH EQU PARMLIST 00735000 PARMS EQU PARMLIST+2 00736000 PARMLST EQU 0 00737000 LISTPTR EQU PARMLST 00738000 CVTMAP EQU 0 00739000 CVTDAR EQU CVTMAP+72 00740000 CVTFLGS1 EQU CVTDAR 00741000 CVTDCB EQU CVTMAP+116 00742000 CVTIERLC EQU CVTMAP+144 00743000 CVTOPTA EQU CVTMAP+182 00744000 CVTOPTB EQU CVTMAP+183 00745000 CVTGTF EQU CVTMAP+236 00746000 CVTGTFST EQU CVTGTF 00747000 CVTGTFS EQU CVTGTFST 00748000 CVTSTATE EQU CVTGTFST 00749000 CVTTMODE EQU CVTGTFST 00750000 CVTFORM EQU CVTGTFST 00751000 CVTAQAVT EQU CVTMAP+240 00752000 CVTTCMFG EQU CVTAQAVT 00753000 CVTVOLM2 EQU CVTMAP+244 00754000 CVTTATA EQU CVTVOLM2 00755000 CVTTSKS EQU CVTTATA 00756000 CVTVOLF2 EQU CVTTSKS 00757000 CVTTAT EQU CVTTATA+1 00758000 CVTATER EQU CVTMAP+248 00759000 CVTEXT1 EQU CVTMAP+252 00760000 CVTPURG EQU CVTMAP+260 00761000 CVTQMSG EQU CVTMAP+268 00762000 CVTDMSR EQU CVTMAP+272 00763000 CVTRSV37 EQU CVTDMSR 00764000 CVTDMSRF EQU CVTRSV37 00765000 CVTERPV EQU CVTMAP+316 00766000 CVTINTLA EQU CVTMAP+320 00767000 CVTAPF EQU CVTMAP+324 00768000 CVTEXT2 EQU CVTMAP+328 00769000 CVTHJES EQU CVTMAP+332 00770000 CVTPGSIA EQU CVTMAP+348 00771000 CVTA1F1 EQU CVTMAP+356 00772000 CVTSYSK EQU CVTMAP+357 00773000 CVTVOLM1 EQU CVTMAP+380 00774000 CVTVOLF1 EQU CVTVOLM1 00775000 CVTATMCT EQU CVTMAP+388 00776000 CVTXTNT1 EQU 0 00777000 CVTXTNT2 EQU 0 00778000 CVTDSSV EQU CVTXTNT2 00779000 CVTFLGBT EQU CVTXTNT2+5 00780000 CVTQID EQU CVTXTNT2+24 00781000 CVTICB EQU CVTXTNT2+48 00782000 CVTRV400 EQU CVTXTNT2+52 00783000 CVTRV409 EQU CVTXTNT2+53 00784000 CVTATCVT EQU CVTXTNT2+64 00785000 CVTRV429 EQU CVTXTNT2+84 00786000 CVTRV438 EQU CVTXTNT2+85 00787000 CVTRV457 EQU CVTXTNT2+112 00788000 CVTRV466 EQU CVTXTNT2+113 00789000 CVTFIX EQU 0 00790000 CVTRELNO EQU CVTFIX+252 00791000 ICB2SSCB EQU 0 00792000 ICBOPT EQU ICB2SSCB+48 00793000 ICBFLG EQU ICB2SSCB+52 00794000 ICBFG1 EQU ICBFLG 00795000 ICBVVICB EQU ICB2SSCB+76 00796000 ICBTRACE EQU ICB2SSCB+112 00797000 VVICB EQU 0 00798000 VVIFLGA EQU VVICB+15 00799000 RPLV EQU 0 00800000 RPLVQPTR EQU RPLV 00801000 RPLVECB EQU RPLV+4 00802000 RPLTCBPR EQU RPLV+8 00803000 RPLFLAGA EQU RPLV+28 00804000 RPLFTIME EQU RPLFLAGA 00805000 RPLJRCVY EQU RPLFLAGA 00806000 RPLVTLEN EQU RPLV+30 00807000 RPLVSAM EQU RPLV+56 00808000 RPLVOPT EQU RPLVSAM+40 00809000 RPLVUTIL EQU RPLV+132 00810000 INITVVI EQU 0 00811000 INILNGTH EQU INITVVI 00812000 INITOPCD EQU INITVVI+4 00813000 INIFLAGA EQU INITVVI+5 00814000 INIENABL EQU INIFLAGA 00815000 INIDISAB EQU INIFLAGA 00816000 INIFLAGB EQU INITVVI+6 00817000 INIVERFY EQU INIFLAGB 00818000 INIJRNL EQU INIFLAGB 00819000 INIABLE EQU INIFLAGB 00820000 INIRESTR EQU INIFLAGB 00821000 INIUCAT EQU INITVVI+8 00822000 ICBADLST EQU 0 00823000 ASDALEN EQU ICBADLST 00824000 ASDAOPC EQU ICBADLST+4 00825000 ASDAFLG EQU ICBADLST+6 00826000 ASASSOC EQU ASDAFLG 00827000 ASDASSOC EQU ASDAFLG 00828000 ASDACPU EQU ICBADLST+8 00829000 RCHAR EQU RSAVE 00830000 HCHAR EQU HOSTID 00831000 RECPLEN EQU RPLVQPTR 00832000 RECCODE EQU RPLVECB 00833000 ROPCODE EQU RECCODE 00834000 CAPS EQU REPLY 00835000 CVTS01 EQU CVTPGSIA 00836000 CVTLPDIA EQU CVTS01+12 00837000 CVTDIRST EQU CVTLPDIA 00838000 CVTSLIDA EQU CVTS01+24 00839000 CVTCTLFG EQU CVTS01+50 00840000 CVTRV210 EQU CVTS01+424 00841000 CVTRV219 EQU CVTS01+425 00842000 CVTRV228 EQU CVTS01+426 00843000 CVTRV237 EQU CVTS01+427 00844000 CVTMFRTR EQU CVTS01+452 00845000 CVTRV262 EQU CVTS01+468 00846000 CVTRV271 EQU CVTS01+469 00847000 CVTRV280 EQU CVTS01+470 00848000 CVTRV289 EQU CVTS01+471 00849000 CVTGSDA EQU CVTS01+600 00850000 ICBPTR EQU CVTICB 00851000 VALID EQU TRANS 00852000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00853000 CVTRV628 EQU CVTS01+728 00854000 CVTRV627 EQU CVTS01+724 00855000 CVTRV626 EQU CVTS01+720 00856000 CVTRV625 EQU CVTS01+716 00857000 CVTRV624 EQU CVTS01+712 00858000 CVTRV623 EQU CVTS01+708 00859000 CVTRV622 EQU CVTS01+704 00860000 CVTRV621 EQU CVTS01+700 00861000 CVTIHASU EQU CVTS01+696 00862000 CVTRV619 EQU CVTS01+692 00863000 CVTRV618 EQU CVTS01+688 00864000 CVTRV617 EQU CVTS01+684 00865000 CVTRV616 EQU CVTS01+680 00866000 CVTRV615 EQU CVTS01+676 00867000 CVTRV614 EQU CVTS01+672 00868000 CVTRV613 EQU CVTS01+668 00869000 CVTTCASP EQU CVTS01+664 00870000 CVT0PT03 EQU CVTS01+660 00871000 CVT0PT0E EQU CVTS01+656 00872000 CVTRV609 EQU CVTS01+652 00873000 CVTCGK EQU CVTS01+648 00874000 CVTRAC EQU CVTS01+644 00875000 CVTRV606 EQU CVTS01+640 00876000 CVTRV605 EQU CVTS01+636 00877000 CVTRV604 EQU CVTS01+632 00878000 CVTEFF02 EQU CVTS01+628 00879000 CVTCBBR EQU CVTS01+624 00880000 CVTSSCR EQU CVTS01+620 00881000 CVTEVENT EQU CVTS01+616 00882000 CVTCRCA EQU CVTS01+612 00883000 CVTTPIO EQU CVTS01+608 00884000 CVTADV EQU CVTS01+604 00885000 CVTGSDAB EQU CVTGSDA 00886000 CVTQV3 EQU CVTS01+596 00887000 CVTQV2 EQU CVTS01+592 00888000 CVTQV1 EQU CVTS01+588 00889000 CVTRPT EQU CVTS01+584 00890000 CVTSSRB EQU CVTS01+580 00891000 CVTCSDRL EQU CVTS01+576 00892000 CVTEXP1 EQU CVTS01+572 00893000 CVTRMPMT EQU CVTS01+568 00894000 CVTRMPTT EQU CVTS01+564 00895000 CVTVPSA EQU CVTS01+560 00896000 CVTVSTOP EQU CVTS01+556 00897000 CVTGTFR8 EQU CVTS01+552 00898000 CVTQUIT EQU CVTS01+548 00899000 CVTVACR EQU CVTS01+544 00900000 CVTWTCB EQU CVTS01+540 00901000 CVTSTPRS EQU CVTS01+536 00902000 CVT0PT02 EQU CVTS01+532 00903000 CVTDARCM EQU CVTS01+528 00904000 CVTIRECM EQU CVTS01+524 00905000 CVTJRECM EQU CVTS01+520 00906000 CVTVEMS0 EQU CVTS01+516 00907000 CVTSPFRR EQU CVTS01+512 00908000 CVTRLSTG EQU CVTS01+508 00909000 CVT0TC0A EQU CVTS01+504 00910000 CVTGMBR EQU CVTS01+500 00911000 CVTLFRM EQU CVTS01+496 00912000 CVTRMBR EQU CVTS01+492 00913000 CVTVIOP EQU CVTS01+488 00914000 CVTRV307 EQU CVTS01+486 00915000 CVTRV306 EQU CVTS01+484 00916000 CVTRV305 EQU CVTS01+482 00917000 CVTRV304 EQU CVTS01+480 00918000 CVTRV303 EQU CVTS01+478 00919000 CVTRV302 EQU CVTS01+476 00920000 CVTTRCA EQU CVTS01+472 00921000 CVTRV297 EQU CVTRV289 00922000 CVTRV296 EQU CVTRV289 00923000 CVTRV295 EQU CVTRV289 00924000 CVTRV294 EQU CVTRV289 00925000 CVTRV293 EQU CVTRV289 00926000 CVTRV292 EQU CVTRV289 00927000 CVTRV291 EQU CVTRV289 00928000 CVTRV290 EQU CVTRV289 00929000 CVTRV288 EQU CVTRV280 00930000 CVTRV287 EQU CVTRV280 00931000 CVTRV286 EQU CVTRV280 00932000 CVTRV285 EQU CVTRV280 00933000 CVTRV284 EQU CVTRV280 00934000 CVTRV283 EQU CVTRV280 00935000 CVTRV282 EQU CVTRV280 00936000 CVTRV281 EQU CVTRV280 00937000 CVTRV279 EQU CVTRV271 00938000 CVTRV278 EQU CVTRV271 00939000 CVTRV277 EQU CVTRV271 00940000 CVTRV276 EQU CVTRV271 00941000 CVTRV275 EQU CVTRV271 00942000 CVTRV274 EQU CVTRV271 00943000 CVTRV273 EQU CVTRV271 00944000 CVTRV272 EQU CVTRV271 00945000 CVTRV270 EQU CVTRV262 00946000 CVTRV269 EQU CVTRV262 00947000 CVTRV268 EQU CVTRV262 00948000 CVTRV267 EQU CVTRV262 00949000 CVTRV266 EQU CVTRV262 00950000 CVTRV265 EQU CVTRV262 00951000 CVTRV264 EQU CVTRV262 00952000 CVTRV263 EQU CVTRV262 00953000 CVTVFP EQU CVTS01+464 00954000 CVTVSI EQU CVTS01+460 00955000 CVTVPSIB EQU CVTS01+456 00956000 CVTMFACT EQU CVTMFRTR 00957000 CVTMFCTL EQU CVTS01+448 00958000 CVTPVBP EQU CVTS01+444 00959000 CVTPWI EQU CVTS01+440 00960000 CVTRV254 EQU CVTS01+438 00961000 CVTRV253 EQU CVTS01+436 00962000 CVTRV252 EQU CVTS01+434 00963000 CVTRV251 EQU CVTS01+433 00964000 CVTRV250 EQU CVTS01+432 00965000 CVTRV249 EQU CVTS01+431 00966000 CVTRV248 EQU CVTS01+430 00967000 CVTRV247 EQU CVTS01+429 00968000 CVTRV246 EQU CVTS01+428 00969000 CVTRV245 EQU CVTRV237 00970000 CVTRV244 EQU CVTRV237 00971000 CVTRV243 EQU CVTRV237 00972000 CVTRV242 EQU CVTRV237 00973000 CVTRV241 EQU CVTRV237 00974000 CVTRV240 EQU CVTRV237 00975000 CVTRV239 EQU CVTRV237 00976000 CVTRV238 EQU CVTRV237 00977000 CVTRV236 EQU CVTRV228 00978000 CVTRV235 EQU CVTRV228 00979000 CVTRV234 EQU CVTRV228 00980000 CVTRV233 EQU CVTRV228 00981000 CVTRV232 EQU CVTRV228 00982000 CVTRV231 EQU CVTRV228 00983000 CVTRV230 EQU CVTRV228 00984000 CVTRV229 EQU CVTRV228 00985000 CVTRV227 EQU CVTRV219 00986000 CVTRV226 EQU CVTRV219 00987000 CVTRV225 EQU CVTRV219 00988000 CVTRV224 EQU CVTRV219 00989000 CVTRV223 EQU CVTRV219 00990000 CVTRV222 EQU CVTRV219 00991000 CVTRV221 EQU CVTRV219 00992000 CVTRV220 EQU CVTRV219 00993000 CVTRV218 EQU CVTRV210 00994000 CVTRV217 EQU CVTRV210 00995000 CVTRV216 EQU CVTRV210 00996000 CVTRV215 EQU CVTRV210 00997000 CVTRV214 EQU CVTRV210 00998000 CVTRV213 EQU CVTRV210 00999000 CVTRV212 EQU CVTRV210 01000000 CVTRV211 EQU CVTRV210 01001000 CVTLCCAT EQU CVTS01+420 01002000 CVTPCCAT EQU CVTS01+416 01003000 CVTIPCRP EQU CVTS01+412 01004000 CVTIPCRI EQU CVTS01+408 01005000 CVTIPCDS EQU CVTS01+404 01006000 CVTAIDVT EQU CVTS01+400 01007000 CVTSSAP EQU CVTS01+396 01008000 CVTEHCIR EQU CVTS01+392 01009000 CVTEHDEF EQU CVTS01+388 01010000 CVTDAIR EQU CVTS01+384 01011000 CVTPERFM EQU CVTS01+380 01012000 CVT044R2 EQU CVTS01+376 01013000 CVTFETCH EQU CVTS01+372 01014000 CVTRSTWD EQU CVTS01+368 01015000 CVTSPOST EQU CVTS01+364 01016000 CVTIOBP EQU CVTS01+360 01017000 CVTASMVT EQU CVTS01+356 01018000 CVTRECRQ EQU CVTS01+352 01019000 CVTWSAC EQU CVTS01+348 01020000 CVTRV149 EQU CVTS01+344 01021000 CVTWSAL EQU CVTS01+340 01022000 CVTSPSA EQU CVTS01+336 01023000 CVTGLMN EQU CVTS01+332 01024000 CVTVEAC0 EQU CVTS01+328 01025000 CVT062R1 EQU CVTS01+324 01026000 CVTRPOST EQU CVTS01+320 01027000 CVTDQIQE EQU CVTS01+316 01028000 CVTCSD EQU CVTS01+312 01029000 CVTLKRMA EQU CVTS01+308 01030000 CVTRSPIE EQU CVTS01+304 01031000 CVTRENQ EQU CVTS01+300 01032000 CVTLQCB EQU CVTS01+296 01033000 CVTFQCB EQU CVTS01+292 01034000 CVTQCS01 EQU CVTS01+288 01035000 CVTAPFT EQU CVTS01+284 01036000 CVTPARRL EQU CVTS01+280 01037000 CVTVWAIT EQU CVTS01+276 01038000 CVTGSPL EQU CVTS01+272 01039000 CVTLSMQ EQU CVTS01+268 01040000 CVTGSMQ EQU CVTS01+264 01041000 CVTEXPRO EQU CVTS01+260 01042000 CVTOPCTP EQU CVTS01+256 01043000 CVTSIC EQU CVTS01+252 01044000 CVTTPIOS EQU CVTS01+248 01045000 CVTRTMS EQU CVTS01+244 01046000 CVTSDBF EQU CVTS01+240 01047000 CVTSCBP EQU CVTS01+236 01048000 CVTSDMP EQU CVTS01+232 01049000 CVTSV60 EQU CVTS01+228 01050000 CVTRTMCT EQU CVTS01+224 01051000 CVTASCBL EQU CVTS01+220 01052000 CVTASCBH EQU CVTS01+216 01053000 CVTGDA EQU CVTS01+212 01054000 CVTASVT EQU CVTS01+208 01055000 CVTVVMDI EQU CVTS01+204 01056000 CVTAQTOP EQU CVTS01+200 01057000 CVTIOSCS EQU CVTS01+196 01058000 CVTSDRM EQU CVTS01+192 01059000 CVTOPTE EQU CVTS01+188 01060000 CVTSTXU EQU CVTS01+184 01061000 CVTQUIS EQU CVTS01+180 01062000 CVTPARS EQU CVTS01+176 01063000 CVTS1EE EQU CVTS01+172 01064000 CVTFRAS EQU CVTS01+168 01065000 CVTQSAS EQU CVTS01+164 01066000 CVTCRAS EQU CVTS01+160 01067000 CVTCRMN EQU CVTS01+156 01068000 CVTDELCP EQU CVTS01+152 01069000 CVTFRECL EQU CVTS01+148 01070000 CVTGETCL EQU CVTS01+144 01071000 CVTBLDCP EQU CVTS01+140 01072000 CVTAUTHL EQU CVTS01+136 01073000 CVTSCAN EQU CVTS01+132 01074000 CVTRV144 EQU CVTS01+130 01075000 CVTMAXMP EQU CVTS01+128 01076000 CVTSTCK EQU CVTS01+124 01077000 CVTRV139 EQU CVTS01+123 01078000 CVTDSSAC EQU CVTS01+122 01079000 CVTRV513 EQU CVTS01+121 01080000 CVTIOSPL EQU CVTS01+120 01081000 CVTPTGT EQU CVTS01+116 01082000 CVTCSPIE EQU CVTS01+112 01083000 CVTSMFEX EQU CVTS01+108 01084000 CVTOLT0A EQU CVTS01+104 01085000 CVTSRBRT EQU CVTS01+100 01086000 CVTPUTL EQU CVTS01+96 01087000 CVTASCRL EQU CVTS01+92 01088000 CVTASCRF EQU CVTS01+88 01089000 CVTRV326 EQU CVTS01+84 01090000 CVTRV325 EQU CVTS01+80 01091000 CVTRV324 EQU CVTS01+76 01092000 CVT0VL01 EQU CVTS01+72 01093000 CVTSHRVM EQU CVTS01+68 01094000 CVTRV332 EQU CVTS01+64 01095000 CVTTAS EQU CVTS01+60 01096000 CVTRSCN EQU CVTS01+56 01097000 CVTTRAC2 EQU CVTS01+54 01098000 CVTTRACE EQU CVTS01+52 01099000 CVTAPG EQU CVTS01+51 01100000 CVTSDTRC EQU CVTCTLFG 01101000 CVTGTRCE EQU CVTCTLFG 01102000 CVTNOMP EQU CVTCTLFG 01103000 CVTRSV79 EQU CVTCTLFG 01104000 CVTDSTAT EQU CVTCTLFG 01105000 CVTRSV78 EQU CVTCTLFG 01106000 CVTRV333 EQU CVTCTLFG 01107000 CVTRV323 EQU CVTCTLFG 01108000 CVTSPVLK EQU CVTS01+49 01109000 CVTRSV77 EQU CVTS01+48 01110000 CVTRV331 EQU CVTS01+44 01111000 CVTRV330 EQU CVTS01+40 01112000 CVTRV329 EQU CVTS01+36 01113000 CVTRV328 EQU CVTS01+32 01114000 CVTRV322 EQU CVTS01+28 01115000 CVTSLID EQU CVTSLIDA+1 01116000 CVTSYLK EQU CVTSLIDA 01117000 CVTRV321 EQU CVTS01+20 01118000 CVTRV320 EQU CVTS01+16 01119000 CVTLPDIR EQU CVTLPDIA+1 01120000 CVTRSV69 EQU CVTDIRST 01121000 CVTRSV68 EQU CVTDIRST 01122000 CVTRSV67 EQU CVTDIRST 01123000 CVTRSV66 EQU CVTDIRST 01124000 CVTRSV65 EQU CVTDIRST 01125000 CVTRSV64 EQU CVTDIRST 01126000 CVTRSV63 EQU CVTDIRST 01127000 CVTDICOM EQU CVTDIRST 01128000 CVTPVTP EQU CVTS01+8 01129000 CVTLPDSR EQU CVTS01+4 01130000 CVTGETL EQU CVTS01 01131000 @NM00001 EQU RECCODE+1 01132000 ASDA002 EQU ICBADLST+13 01133000 @NM00018 EQU ASDAFLG 01134000 ASDMNT EQU ASDAFLG 01135000 ASDEINT EQU ASDAFLG 01136000 @NM00017 EQU ASDAFLG 01137000 ASDA001 EQU ICBADLST+5 01138000 @NM00016 EQU INITVVI+16 01139000 INIVCODE EQU INITVVI+7 01140000 @NM00015 EQU INIFLAGB 01141000 @NM00014 EQU INIFLAGA 01142000 ININIT EQU INIFLAGA 01143000 RPLVBLN EQU RPLVSAM+52 01144000 RPLVRLN EQU RPLVSAM+48 01145000 @NM00013 EQU RPLVSAM+44 01146000 RPLVUPD EQU RPLVOPT+1 01147000 @NM00012 EQU RPLVOPT 01148000 RPLVKGE EQU RPLVOPT 01149000 @NM00011 EQU RPLVOPT 01150000 RPLVNEXT EQU RPLVOPT 01151000 RPLVDIR EQU RPLVOPT 01152000 RPLVLOC EQU RPLVOPT 01153000 RPLVKEY EQU RPLVSAM+36 01154000 RPLVBUF EQU RPLVSAM+32 01155000 @NM00010 EQU RPLVSAM+28 01156000 RPLVACB EQU RPLVSAM+24 01157000 @NM00009 EQU RPLVSAM+3 01158000 RPLVTYP EQU RPLVSAM+2 01159000 @NM00008 EQU RPLVSAM 01160000 @NM00007 EQU RPLV+42 01161000 RPLVDATE EQU RPLV+38 01162000 RPLRMSCC EQU RPLV+36 01163000 RPLVRETC EQU RPLV+34 01164000 RPLRCODE EQU RPLV+32 01165000 RPLVRES1 EQU RPLFLAGA+1 01166000 RPLVJRNL EQU RPLFLAGA 01167000 RPLVVOP EQU RPLFLAGA 01168000 RPLVVIN EQU RPLFLAGA 01169000 RPLVCOMP EQU RPLFLAGA 01170000 RPLVPROG EQU RPLFLAGA 01171000 RPLVPOST EQU RPLFLAGA 01172000 RPLVRSV3 EQU RPLV+24 01173000 RPLVRSV2 EQU RPLV+20 01174000 RPLVRSV1 EQU RPLV+16 01175000 RPLVVICB EQU RPLV+12 01176000 RPLASCBP EQU RPLTCBPR 01177000 VVIUNUSD EQU VVICB+116 01178000 VVINUSDC EQU VVICB+112 01179000 VVITPFCH EQU VVICB+108 01180000 VVIDVMEL EQU VVICB+104 01181000 VVIVBSTF EQU VVICB+100 01182000 VVISSOBA EQU VVICB+96 01183000 VVIVSCRA EQU VVICB+92 01184000 VVISTPTB EQU VVICB+88 01185000 VVIDVMTA EQU VVICB+84 01186000 VVIJUCB EQU VVICB+80 01187000 VVIIUCB EQU VVICB+76 01188000 VVIRES6 EQU VVICB+72 01189000 VVIRES5 EQU VVICB+68 01190000 VVIRES4 EQU VVICB+64 01191000 VVIUCB EQU VVICB+60 01192000 VVIVJL EQU VVICB+56 01193000 VVIVRR EQU VVICB+52 01194000 VVIQLSPL EQU VVICB+48 01195000 VVIQRPL2 EQU VVICB+44 01196000 VVIQRPL1 EQU VVICB+40 01197000 VVIRES3 EQU VVICB+36 01198000 VVIVQMP EQU VVICB+32 01199000 VVIECB1 EQU VVICB+28 01200000 VVICATAD EQU VVICB+24 01201000 VVIDCBAD EQU VVICB+20 01202000 VVIACBAD EQU VVICB+16 01203000 VVIFLG7 EQU VVIFLGA 01204000 VVIFLG6 EQU VVIFLGA 01205000 VVIFLG5 EQU VVIFLGA 01206000 VVIFLG4 EQU VVIFLGA 01207000 VVIFLG3 EQU VVIFLGA 01208000 VVIFLG2 EQU VVIFLGA 01209000 VVIFLG1 EQU VVIFLGA 01210000 VVIFLG0 EQU VVIFLGA 01211000 VVIALCON EQU VVICB+14 01212000 VVICPUID EQU VVICB+12 01213000 VVIUCAT EQU VVICB+4 01214000 VVICID EQU VVICB 01215000 ICBCPUID EQU ICB2SSCB+496 01216000 ICBLORD EQU ICBTRACE+256 01217000 ICBOTRC EQU ICBTRACE 01218000 ICBFAB EQU ICB2SSCB+108 01219000 ICBMSSC EQU ICB2SSCB+104 01220000 ICBRSVP EQU ICB2SSCB+100 01221000 ICBAEAP EQU ICB2SSCB+96 01222000 ICBSIOBP EQU ICB2SSCB+92 01223000 ICBIATNA EQU ICB2SSCB+88 01224000 ICBIPRGA EQU ICB2SSCB+84 01225000 ICBSRBP EQU ICB2SSCB+80 01226000 ICBVVIC EQU ICB2SSCB+72 01227000 ICBSIOP EQU ICB2SSCB+68 01228000 ICBMEP EQU ICB2SSCB+64 01229000 ICBIORCI EQU ICB2SSCB+60 01230000 ICB2ACTP EQU ICB2SSCB+56 01231000 ICBSAMP EQU ICBFLG+2 01232000 ICBFG2 EQU ICBFLG+1 01233000 @NM00006 EQU ICBFG1 01234000 ICBMSCA EQU ICBFG1 01235000 ICBMSCMP EQU ICBFG1 01236000 ICBS EQU ICBFG1 01237000 ICBB EQU ICBFG1 01238000 ICBV EQU ICBFG1 01239000 ICBR EQU ICBFG1 01240000 ICBI EQU ICBFG1 01241000 ICBNVT EQU ICBOPT 01242000 ICBVN02P EQU ICB2SSCB+44 01243000 ICBTCB EQU ICB2SSCB+40 01244000 ICBQHEAD EQU ICB2SSCB+36 01245000 ICBAUCB EQU ICB2SSCB+32 01246000 ICBPUCB EQU ICB2SSCB+28 01247000 ICBCOMQ EQU ICB2SSCB+24 01248000 ICBIOR EQU ICB2SSCB+20 01249000 ICBCOM EQU ICB2SSCB+16 01250000 ICBACTV EQU ICB2SSCB+12 01251000 ICBECB EQU ICB2SSCB+8 01252000 ICBSSNAM EQU ICB2SSCB 01253000 CVTLEVL EQU CVTRELNO+2 01254000 CVTNUMB EQU CVTRELNO 01255000 CVTMDL EQU CVTFIX+250 01256000 @NM00005 EQU CVTFIX+248 01257000 @NM00004 EQU CVTFIX 01258000 CVTRV482 EQU CVTXTNT2+128 01259000 CVTRV481 EQU CVTXTNT2+124 01260000 CVTRV480 EQU CVTXTNT2+120 01261000 CVTRV479 EQU CVTXTNT2+118 01262000 CVTRV478 EQU CVTXTNT2+117 01263000 CVTRV477 EQU CVTXTNT2+116 01264000 CVTRV476 EQU CVTXTNT2+115 01265000 CVTRV475 EQU CVTXTNT2+114 01266000 CVTRV474 EQU CVTRV466 01267000 CVTRV473 EQU CVTRV466 01268000 CVTRV472 EQU CVTRV466 01269000 CVTRV471 EQU CVTRV466 01270000 CVTRV470 EQU CVTRV466 01271000 CVTRV469 EQU CVTRV466 01272000 CVTRV468 EQU CVTRV466 01273000 CVTRV467 EQU CVTRV466 01274000 CVTRV465 EQU CVTRV457 01275000 CVTRV464 EQU CVTRV457 01276000 CVTRV463 EQU CVTRV457 01277000 CVTRV462 EQU CVTRV457 01278000 CVTRV461 EQU CVTRV457 01279000 CVTRV460 EQU CVTRV457 01280000 CVTRV459 EQU CVTRV457 01281000 CVTRV458 EQU CVTRV457 01282000 CVTRV456 EQU CVTXTNT2+108 01283000 CVTRV455 EQU CVTXTNT2+104 01284000 CVTRV454 EQU CVTXTNT2+100 01285000 CVTRV453 EQU CVTXTNT2+96 01286000 CVTRV452 EQU CVTXTNT2+94 01287000 CVTRV451 EQU CVTXTNT2+92 01288000 CVTRV450 EQU CVTXTNT2+90 01289000 CVTRV449 EQU CVTXTNT2+88 01290000 CVTRV448 EQU CVTXTNT2+87 01291000 CVTRV447 EQU CVTXTNT2+86 01292000 CVTRV446 EQU CVTRV438 01293000 CVTRV445 EQU CVTRV438 01294000 CVTRV444 EQU CVTRV438 01295000 CVTRV443 EQU CVTRV438 01296000 CVTRV442 EQU CVTRV438 01297000 CVTRV441 EQU CVTRV438 01298000 CVTRV440 EQU CVTRV438 01299000 CVTRV439 EQU CVTRV438 01300000 CVTRV437 EQU CVTRV429 01301000 CVTRV436 EQU CVTRV429 01302000 CVTRV435 EQU CVTRV429 01303000 CVTRV434 EQU CVTRV429 01304000 CVTRV433 EQU CVTRV429 01305000 CVTRV432 EQU CVTRV429 01306000 CVTRV431 EQU CVTRV429 01307000 CVTRV430 EQU CVTRV429 01308000 CVTRV428 EQU CVTXTNT2+80 01309000 CVTRV427 EQU CVTXTNT2+76 01310000 CVTRV426 EQU CVTXTNT2+72 01311000 CVTRV425 EQU CVTXTNT2+68 01312000 CVTATACT EQU CVTATCVT 01313000 CVTRV423 EQU CVTXTNT2+62 01314000 CVTRV422 EQU CVTXTNT2+60 01315000 CVTRV421 EQU CVTXTNT2+58 01316000 CVTRV420 EQU CVTXTNT2+56 01317000 CVTRV419 EQU CVTXTNT2+55 01318000 CVTRV418 EQU CVTXTNT2+54 01319000 CVTRV417 EQU CVTRV409 01320000 CVTRV416 EQU CVTRV409 01321000 CVTRV415 EQU CVTRV409 01322000 CVTRV414 EQU CVTRV409 01323000 CVTRV413 EQU CVTRV409 01324000 CVTRV412 EQU CVTRV409 01325000 CVTRV411 EQU CVTRV409 01326000 CVTRV410 EQU CVTRV409 01327000 CVTRV408 EQU CVTRV400 01328000 CVTRV407 EQU CVTRV400 01329000 CVTRV406 EQU CVTRV400 01330000 CVTRV405 EQU CVTRV400 01331000 CVTRV404 EQU CVTRV400 01332000 CVTRV403 EQU CVTRV400 01333000 CVTRV402 EQU CVTRV400 01334000 CVTRV401 EQU CVTRV400 01335000 CVTSKTA EQU CVTXTNT2+44 01336000 CVTRSV99 EQU CVTXTNT2+40 01337000 CVTRSV98 EQU CVTXTNT2+36 01338000 CVTRSV97 EQU CVTXTNT2+34 01339000 CVTRSV96 EQU CVTXTNT2+32 01340000 CVTOLTEP EQU CVTXTNT2+28 01341000 CVTQIDA EQU CVTQID+1 01342000 CVTRSV95 EQU CVTQID 01343000 CVTRSV94 EQU CVTXTNT2+20 01344000 CVTRSV93 EQU CVTXTNT2+16 01345000 CVTRSV92 EQU CVTXTNT2+12 01346000 CVTDEBVR EQU CVTXTNT2+8 01347000 CVTRSV91 EQU CVTXTNT2+6 01348000 CVTRSV9H EQU CVTFLGBT 01349000 CVTRSV9G EQU CVTFLGBT 01350000 CVTRSV9F EQU CVTFLGBT 01351000 CVTRSV9E EQU CVTFLGBT 01352000 CVTRSV9D EQU CVTFLGBT 01353000 CVTRSV9C EQU CVTFLGBT 01354000 CVTVME EQU CVTFLGBT 01355000 CVTNPE EQU CVTFLGBT 01356000 CVTNUCLS EQU CVTXTNT2+4 01357000 CVTDSSVA EQU CVTDSSV+1 01358000 CVTRSV89 EQU CVTDSSV 01359000 CVTRSV88 EQU CVTXTNT1+8 01360000 CVTRSV87 EQU CVTXTNT1+4 01361000 CVTFACHN EQU CVTXTNT1 01362000 CVTRV488 EQU CVTMAP+412 01363000 CVTRV487 EQU CVTMAP+408 01364000 CVTRV486 EQU CVTMAP+404 01365000 CVTRV485 EQU CVTMAP+400 01366000 CVTACTAP EQU CVTMAP+396 01367000 CVTAUTH EQU CVTMAP+392 01368000 CVTATMCA EQU CVTATMCT+1 01369000 CVTATMST EQU CVTATMCT 01370000 CVTRSV61 EQU CVTMAP+384 01371000 CVTVOLT1 EQU CVTVOLM1+1 01372000 CVTVOLI1 EQU CVTVOLF1 01373000 CVTSTOA EQU CVTMAP+376 01374000 CVTRSV58 EQU CVTMAP+374 01375000 CVTRSV57 EQU CVTMAP+372 01376000 CVTDDCE EQU CVTMAP+368 01377000 CVTPNWFR EQU CVTMAP+364 01378000 CVTSMF EQU CVTMAP+360 01379000 CVTSULK EQU CVTMAP+358 01380000 CVTSLKO EQU CVTSYSK 01381000 CVTSLKP EQU CVTSYSK 01382000 CVTSLKQ EQU CVTSYSK 01383000 CVTSLKR EQU CVTSYSK 01384000 CVTRSV56 EQU CVTSYSK 01385000 CVTRSV55 EQU CVTSYSK 01386000 CVTRSV54 EQU CVTSYSK 01387000 CVTRSV53 EQU CVTSYSK 01388000 CVTRSV52 EQU CVTA1F1 01389000 CVTRSV51 EQU CVTA1F1 01390000 CVTRSV50 EQU CVTA1F1 01391000 CVTRSV49 EQU CVTA1F1 01392000 CVTRSV48 EQU CVTA1F1 01393000 CVTRSV47 EQU CVTA1F1 01394000 CVTSRSW EQU CVTA1F1 01395000 CVTPFSW EQU CVTA1F1 01396000 CVTPCVT EQU CVTMAP+352 01397000 CVTRSV46 EQU CVTMAP+344 01398000 CVTRSV45 EQU CVTMAP+340 01399000 CVTRSV44 EQU CVTMAP+338 01400000 CVTRSV43 EQU CVTMAP+336 01401000 CVTHJESA EQU CVTHJES+1 01402000 CVTRSV42 EQU CVTHJES 01403000 CVTEXT2A EQU CVTEXT2+1 01404000 CVTRSV41 EQU CVTEXT2 01405000 CVTAPFA EQU CVTAPF+1 01406000 CVTRSV40 EQU CVTAPF 01407000 CVTRV518 EQU CVTINTLA 01408000 CVTRV517 EQU CVTERPV 01409000 CVTEORM EQU CVTMAP+312 01410000 CVTMCHPR EQU CVTMAP+308 01411000 CVTTZ EQU CVTMAP+304 01412000 CVTJEPS EQU CVTMAP+300 01413000 CVTJESCT EQU CVTMAP+296 01414000 CVTMODE EQU CVTMAP+292 01415000 CVTPTRV EQU CVTMAP+288 01416000 CVTREAL EQU CVTMAP+284 01417000 CVTRSV39 EQU CVTMAP+280 01418000 CVTRSV38 EQU CVTMAP+276 01419000 CVTDMSRA EQU CVTDMSR+1 01420000 CVTRV634 EQU CVTDMSRF 01421000 CVTRV633 EQU CVTDMSRF 01422000 CVTRV632 EQU CVTDMSRF 01423000 CVTRV631 EQU CVTDMSRF 01424000 CVTRV630 EQU CVTDMSRF 01425000 CVTRV629 EQU CVTDMSRF 01426000 CVTUDUMP EQU CVTDMSRF 01427000 CVTSDUMP EQU CVTDMSRF 01428000 CVTQMSGA EQU CVTQMSG+1 01429000 CVTRSV36 EQU CVTQMSG 01430000 CVTAMFF EQU CVTMAP+264 01431000 CVTPURGA EQU CVTPURG+1 01432000 CVTRSV35 EQU CVTPURG 01433000 CVTCBSP EQU CVTMAP+256 01434000 CVTATERA EQU CVTATER+1 01435000 CVTSYST EQU CVTATER 01436000 CVTVOLT2 EQU CVTTAT 01437000 CVTVOLI2 EQU CVTVOLF2 01438000 CVTAQAVB EQU CVTAQAVT+1 01439000 CVTRSV34 EQU CVTTCMFG 01440000 CVTRSV33 EQU CVTTCMFG 01441000 CVTRSV32 EQU CVTTCMFG 01442000 CVTRSV31 EQU CVTTCMFG 01443000 CVTRSV30 EQU CVTTCMFG 01444000 CVTRSV29 EQU CVTTCMFG 01445000 CVTRSV28 EQU CVTTCMFG 01446000 CVTTCRDY EQU CVTTCMFG 01447000 CVTGTFA EQU CVTGTF+1 01448000 CVTRSV27 EQU CVTGTFST 01449000 CVTRNIO EQU CVTGTFST 01450000 CVTUSR EQU CVTGTFST 01451000 CVTRV318 EQU CVTFORM 01452000 CVTRV317 EQU CVTTMODE 01453000 CVTRV316 EQU CVTSTATE 01454000 CVTRV315 EQU CVTGTFS 01455000 CVTGTFAV EQU CVTGTFS 01456000 CVT0SCR1 EQU CVTMAP+232 01457000 CVTRV515 EQU CVTMAP+228 01458000 CVTRMS EQU CVTMAP+224 01459000 CVTPATCH EQU CVTMAP+220 01460000 CVTTSCE EQU CVTMAP+216 01461000 CVTLNKSC EQU CVTMAP+214 01462000 CVTQABST EQU CVTMAP+212 01463000 CVTMDLDS EQU CVTMAP+208 01464000 CVTUSER EQU CVTMAP+204 01465000 CVTABEND EQU CVTMAP+200 01466000 CVTSMCA EQU CVTMAP+196 01467000 CVTRSV18 EQU CVTMAP+192 01468000 CVTQLPAQ EQU CVTMAP+188 01469000 CVTQCDSR EQU CVTMAP+184 01470000 CVTRSV17 EQU CVTOPTB 01471000 CVTRSV16 EQU CVTOPTB 01472000 CVTFP EQU CVTOPTB 01473000 CVTAPTHR EQU CVTOPTB 01474000 CVTNLOG EQU CVTOPTB 01475000 CVTTOD EQU CVTOPTB 01476000 CVTCTIMS EQU CVTOPTB 01477000 CVTPROT EQU CVTOPTB 01478000 CVTXPFP EQU CVTOPTA 01479000 CVTASCII EQU CVTOPTA 01480000 CVTRSV13 EQU CVTOPTA 01481000 CVTRSV12 EQU CVTOPTA 01482000 CVTNIP EQU CVTOPTA 01483000 CVTDDR EQU CVTOPTA 01484000 CVTAPR EQU CVTOPTA 01485000 CVTCCH EQU CVTOPTA 01486000 CVTSNCTR EQU CVTMAP+180 01487000 CVTQMWR EQU CVTMAP+176 01488000 CVTQOCR EQU CVTMAP+172 01489000 CVT1EF00 EQU CVTMAP+168 01490000 CVTMZ00 EQU CVTMAP+164 01491000 CVTHEAD EQU CVTMAP+160 01492000 CVTRSV11 EQU CVTMAP+156 01493000 CVT0PT01 EQU CVTMAP+152 01494000 CVTMSER EQU CVTMAP+148 01495000 CVTRV516 EQU CVTIERLC 01496000 CVTILCH EQU CVTMAP+140 01497000 CVT0DS EQU CVTMAP+136 01498000 CVTFBOSV EQU CVTMAP+132 01499000 CVTNUCB EQU CVTMAP+128 01500000 CVTIXAVL EQU CVTMAP+124 01501000 CVTIOQET EQU CVTMAP+120 01502000 CVTDCBA EQU CVTMAP+117 01503000 CVTMVS2 EQU CVTDCB 01504000 CVT6DAT EQU CVTDCB 01505000 CVT4MPS EQU CVTDCB 01506000 CVTRSV09 EQU CVTDCB 01507000 CVT4MS1 EQU CVTDCB 01508000 CVT2SPS EQU CVTDCB 01509000 CVT1SSS EQU CVTDCB 01510000 CVTRSV08 EQU CVTDCB 01511000 CVTSTB EQU CVTMAP+112 01512000 CVTQTD00 EQU CVTMAP+108 01513000 CVTQTE00 EQU CVTMAP+104 01514000 CVTCUCB EQU CVTMAP+100 01515000 CVTSJQ EQU CVTMAP+96 01516000 CVTPBLDL EQU CVTMAP+92 01517000 CVTTPC EQU CVTMAP+88 01518000 CVTSVDCB EQU CVTMAP+84 01519000 CVTBRET EQU CVTMAP+82 01520000 CVTEXIT EQU CVTMAP+80 01521000 CVT0FN00 EQU CVTMAP+76 01522000 CVTDARA EQU CVTDAR+1 01523000 CVTRSV07 EQU CVTFLGS1 01524000 CVTRSV06 EQU CVTFLGS1 01525000 CVTRSV05 EQU CVTFLGS1 01526000 CVTRSV04 EQU CVTFLGS1 01527000 CVTRSV03 EQU CVTFLGS1 01528000 CVTRSV02 EQU CVTFLGS1 01529000 CVTRSV01 EQU CVTFLGS1 01530000 CVTDMPLK EQU CVTFLGS1 01531000 CVTXITP EQU CVTMAP+68 01532000 CVTZDTAB EQU CVTMAP+64 01533000 CVTMSLT EQU CVTMAP+60 01534000 CVTDATE EQU CVTMAP+56 01535000 CVTBTERM EQU CVTMAP+52 01536000 CVTSYSAD EQU CVTMAP+48 01537000 CVTXTLER EQU CVTMAP+44 01538000 CVTILK2 EQU CVTMAP+40 01539000 CVTILK1 EQU CVTMAP+36 01540000 CVTPRLTV EQU CVTMAP+32 01541000 CVTPCNVT EQU CVTMAP+28 01542000 CVT0VL00 EQU CVTMAP+24 01543000 CVTXAPG EQU CVTMAP+20 01544000 CVTBUF EQU CVTMAP+16 01545000 CVTJOB EQU CVTMAP+12 01546000 CVTLINK EQU CVTMAP+8 01547000 CVT0EF00 EQU CVTMAP+4 01548000 CVTTCBP EQU CVTMAP 01549000 CVT EQU CVTMAP 01550000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01551000 @RF00159 EQU @EL00003 01552000 @RF00168 EQU @EL00003 01553000 @RT00178 EQU @EL00003 01554000 @RT00221 EQU @EL00003 01555000 @RC00223 EQU @EL00003 01556000 @RT00232 EQU @EL00003 01557000 @RC00234 EQU @EL00003 01558000 @RC00243 EQU @EL00003 01559000 @RF00267 EQU @EL00004 01560000 @ENDDATA EQU * 01561000 END ICBVDR00,(C'PLS1752',0603,76320) 01562000