TITLE 'BLSFOD00-VALIDATE DSD BASE RECORD FOR CONFLICTING ATTRI*00001000 IBUTES ' 00002000 * /* CHANGE ACTIVITY */ 00003000 * THIS MODULE IS WRITTEN FOR @G57LPRM 00004000 BLSFOD00 CSECT , 01S0002 00005000 @MAINENT DS 0H 01S0002 00006000 USING *,@15 01S0002 00007000 B @PROLOG 01S0002 00008000 DC AL1(16) 01S0002 00009000 DC C'BLSFOD00 78.065' 01S0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 01S0002 00012000 BALR @12,0 01S0002 00013000 @PSTART DS 0H 01S0002 00014000 USING @PSTART,@12 01S0002 00015000 L @00,@SIZDATD 01S0002 00016000 BLSUALLS R,LV=(0) 00017000 LR @11,@01 01S0002 00018000 USING @DATD,@11 01S0002 00019000 ST @13,@SA00001+4 01S0002 00020000 LM @00,@01,20(@13) 01S0002 00021000 ST @11,8(,@13) 01S0002 00022000 LR @13,@11 01S0002 00023000 MVC @PC00001(28),0(@01) 01S0002 00024000 * 01S0159 00025000 */* *********************************************************** */ 00026000 */* */ 00027000 */* START OF DEFAULT PROCESSING */ 00028000 */* */ 00029000 */* *********************************************************** */ 00030000 * 01S0159 00031000 * ZZ2PTR=ADDR(ZZ2CB); /* GET TASK VARIABLE ADDR */ 00032000 L ZZ2PTR,@PC00001 01S0159 00033000 * CONFCHKF='0'B; /* INITIALIZE THE CONF REQ FLAG */ 00034000 NI CONFCHKF,B'01111111' 01S0160 00035000 * RETC=ZERO; /* INITIALIZE THE RETC */ 00036000 SLR RETC,RETC 01S0161 00037000 * RESPECIFY 01S0162 00038000 * DSNS BASED(ADDR(DSNPDE)); /* POINT TO DSN PDE */ 00039000 * RESPECIFY 01S0163 00040000 * TYS BASED(ADDR(TYPEPDE)); /* POINT TO TYPE PDE */ 00041000 * RESPECIFY 01S0164 00042000 * MAN BASED(ADDR(MANPDE)); /* POINT TO MANAGED PDE */ 00043000 * RESPECIFY 01S0165 00044000 * DSC BASED(ADDR(DESCPDE)); /* POINT TO DESCRIPTION PDE */ 00045000 * RESPECIFY 01S0166 00046000 * RF RESTRICTED; /* RESTRICT R15 */ 00047000 */* *********************************************************** */ 00048000 */* */ 00049000 */* START OF MODULE PROCESSING */ 00050000 */* */ 00051000 */* *********************************************************** */ 00052000 * 01S0167 00053000 * OLDDSD=ADDR(OLDBSDSD); /* OBTAIN ADDRESS OF OLD RECORD */ 00054000 L OLDDSD,@PC00001+4 01S0167 00055000 * NEWDSD=ADDR(NEWBSDSD); /* OBTAIN ADDRESS OF NEW RECORD */ 00056000 * 01S0168 00057000 L NEWDSD,@PC00001+8 01S0168 00058000 * /*****************************************************************/ 00059000 * /* */ 00060000 * /* DEFAULT DSD RECORD IS THE ORIGINAL RECORD */ 00061000 * /* */ 00062000 * /*****************************************************************/ 00063000 * 01S0169 00064000 * RESPECIFY 01S0169 00065000 * DSDREC BASED(OLDDSD); /* BASE DSD RECORD FROM OLD 01S0169 00066000 * RECORD */ 00067000 * IF ZZ1EVEP='0'B THEN /* HAS REQ TO TERMINATE BEEN 00068000 * POSTED? */ 00069000 L @14,ZZ2ZZ1P(,ZZ2PTR) 01S0170 00070000 TM ZZ1EVEP(@14),B'01000000' 01S0170 00071000 BNZ @RF00170 01S0170 00072000 * DO; /* NO PROCESS VERIFICATION */ 00073000 * 01S0171 00074000 * /*************************************************************/ 00075000 * /* */ 00076000 * /* TEST IF VERIFICATION IS REQUIRED. IF OLD RECORD TYPE */ 00077000 * /* CONTAINS AN HEX ZERO, THEN THE DSN IS NEED TO THE IPCS */ 00078000 * /* DATA BASE, AND NO VERIFICATION IS REQUIRED */ 00079000 * /* */ 00080000 * /*************************************************************/ 00081000 * 01S0172 00082000 * IF DSDKTYP=HEXZERO THEN /* DOES RECORD REQUIRE 01S0172 00083000 * VERIFICATION? */ 00084000 CLI DSDKTYP(OLDDSD),0 01S0172 00085000 BNE @RF00172 01S0172 00086000 * RETC=ZERO; /* NO, RECORD OK */ 00087000 SLR RETC,RETC 01S0173 00088000 * ELSE /* YES, NEED FURTHER CHECK */ 00089000 * IF DSDKTYP=DSDRBTYC THEN /* IS THIS A BASE RECORD */ 00090000 B @RC00172 01S0174 00091000 @RF00172 CLI DSDKTYP(OLDDSD),C'B' 01S0174 00092000 BNE @RF00174 01S0174 00093000 * DO; /* YES, PROCESS BASE RECORD */ 00094000 * 01S0175 00095000 * /*******************************************************/ 00096000 * /* */ 00097000 * /* VERIFY KEYS ARE IDENTICAL */ 00098000 * /* */ 00099000 * /*******************************************************/ 00100000 * 01S0176 00101000 * IF DSDKEY=NEWDSD->DSDKEY THEN/* ARE KEYS EQUAL? */ 00102000 CLC DSDKEY(61,OLDDSD),DSDKEY(NEWDSD) 01S0176 00103000 BNE @RF00176 01S0176 00104000 * DO; /* VERIFY RECORD */ 00105000 * IF((DSDSLOWN='1'B&/* MANAGED SAME? */ 00106000 * NEWDSD->DSDSLOWN='0'B)|/* MANAGED SAME? */ 00107000 * (DSDSLOWN='0'B&/* UNMANAGED SAME? */ 00108000 * NEWDSD->DSDSLOWN='1'B)) THEN/* UNMANAGED SAME? */ 00109000 TM DSDSLOWN(OLDDSD),B'10000000' 01S0178 00110000 BNO @GL00001 01S0178 00111000 TM DSDSLOWN(NEWDSD),B'10000000' 01S0178 00112000 BZ @RT00178 01S0178 00113000 @GL00001 TM DSDSLOWN(OLDDSD),B'10000000' 01S0178 00114000 BNZ @RF00178 01S0178 00115000 TM DSDSLOWN(NEWDSD),B'10000000' 01S0178 00116000 BNO @RF00178 01S0178 00117000 @RT00178 DS 0H 01S0179 00118000 * IF(MAN=MNP| /* MANAGED REQUESTED ? */ 00119000 * MAN=UNMGD) THEN/* UNMANAGED REQUESTED? */ 00120000 L @14,@PC00001+20 01S0179 00121000 LH @14,MAN(,@14) 01S0179 00122000 C @14,@CF00054 01S0179 00123000 BE @RT00179 01S0179 00124000 C @14,@CF00081 01S0179 00125000 BNE @RF00179 01S0179 00126000 @RT00179 DS 0H 01S0180 00127000 * CONFCHKF='1'B;/* CONFIRMATION CHECK NEEDED */ 00128000 OI CONFCHKF,B'10000000' 01S0180 00129000 * ELSE /* MANAGED OR UNMANAGED NOT 01S0181 00130000 * SPECIFIED */ 00131000 * RETC=FOUR; /* CONFLICTS EXIST-OVERRIDE 01S0181 00132000 * ALLOWED */ 00133000 B @RC00179 01S0181 00134000 @RF00179 LA RETC,4 01S0181 00135000 * ELSE /* MANAGED SAME */ 00136000 * RETC=MAX(RETC,ZERO);/* NO CONFLICT EXIST */ 00137000 B @RC00178 01S0182 00138000 @RF00178 SLR @14,@14 01S0182 00139000 CR RETC,@14 01S0182 00140000 BNL *+6 00141000 LR RETC,@14 01S0182 00142000 * IF(DSDDSNTY^=NEWDSD->DSDDSNTY) THEN/* TYPE SAME? */ 00143000 @RC00178 CLC DSDDSNTY(8,OLDDSD),DSDDSNTY(NEWDSD) 01S0183 00144000 BE @RF00183 01S0183 00145000 * IF(TYS=DMP| /* WAS DMP REQUESTED */ 00146000 * TYS=PRT| /* WAS PRT REQUESTED */ 00147000 * TYS=UDF) THEN/* WAS UNDEF REQUESTED */ 00148000 L @14,@PC00001+16 01S0184 00149000 LH @14,TYS(,@14) 01S0184 00150000 C @14,@CF00054 01S0184 00151000 BE @RT00184 01S0184 00152000 C @14,@CF00081 01S0184 00153000 BE @RT00184 01S0184 00154000 C @14,@CF00107 01S0184 00155000 BNE @RF00184 01S0184 00156000 @RT00184 DS 0H 01S0185 00157000 * CONFCHKF='1'B;/* YES, CHECK CONFIRMATION */ 00158000 OI CONFCHKF,B'10000000' 01S0185 00159000 * ELSE /* NO REQUEST FOR TYPE */ 00160000 * RETC=FOUR; /* CONFLICTS EXISTS- OVERRIDE */ 00161000 B @RC00184 01S0186 00162000 @RF00184 LA RETC,4 01S0186 00163000 * ELSE /* TYPE IS THE SAME */ 00164000 * RETC=MAX(RETC,ZERO);/* SAVE PREVIOUS RETCODE */ 00165000 B @RC00183 01S0187 00166000 @RF00183 SLR @14,@14 01S0187 00167000 CR RETC,@14 01S0187 00168000 BNL *+6 00169000 LR RETC,@14 01S0187 00170000 * IF DSDDESC^=NEWDSD->DSDDESC THEN/* SAME DESC? */ 00171000 @RC00183 CLC DSDDESC(60,OLDDSD),DSDDESC(NEWDSD) 01S0188 00172000 BE @RF00188 01S0188 00173000 * IF DSCQFP='1'B THEN/* HAS DESC BEEN SPECIFIED? */ 00174000 L @14,@PC00001+24 01S0189 00175000 TM DSCQFP(@14),B'10000000' 01S0189 00176000 BNO @RF00189 01S0189 00177000 * CONFCHKF='1'B;/* CONFIRMATION MSG REQUEST */ 00178000 OI CONFCHKF,B'10000000' 01S0190 00179000 * ELSE /* NO, NO REQ NEEDED */ 00180000 * RETC=FOUR; /* CONFLICTS EXIST-OVERRIDE */ 00181000 B @RC00189 01S0191 00182000 @RF00189 LA RETC,4 01S0191 00183000 * ELSE /* NO, CHECK IF DESC WAS GIVEN */ 00184000 * RETC=MAX(RETC,ZERO);/* YES,NO CONFLICTS EXIST */ 00185000 B @RC00188 01S0192 00186000 @RF00188 SLR @14,@14 01S0192 00187000 CR RETC,@14 01S0192 00188000 BNL *+6 00189000 LR RETC,@14 01S0192 00190000 * IF CONFCHKF='1'B THEN/* IS CONFIRM REQUIRED? */ 00191000 @RC00188 TM CONFCHKF,B'10000000' 01S0193 00192000 BNO @RF00193 01S0193 00193000 * CALL CONFCHK; /* YES, PROCEED WITH CHECK */ 00194000 BAL @14,CONFCHK 01S0194 00195000 * END; /* END OF VERIFY RECORD */ 00196000 * ELSE /* NO, LOGIC ERROR, SHOULD NEVER 00197000 * HAPPEN */ 00198000 * DO; /* LOGIC ERROR-RECORD KEYS */ 00199000 B @RC00176 01S0196 00200000 @RF00176 DS 0H 01S0197 00201000 * MSGPTR=ZERO; /* INDICATE NO CHAIN */ 00202000 SLR @14,@14 01S0197 00203000 ST @14,MSGPTR 01S0197 00204000 * DO; /* BLSDMSG 01S0198 00205000 * (ZZ2,04064,MSGPTR,BLSDMSGS) 00206000 * LIFO ROUTE(TERM) */ 00207000 * CALL BLSDMSG0(ZZ2,04064,MSGPTR,BLSDMSGS,'10010000'B 00208000 * ,0); /* BUILD MESSAGE */ 00209000 ST ZZ2PTR,@AL00001 01S0199 00210000 LA @14,@CF00938 01S0199 00211000 ST @14,@AL00001+4 01S0199 00212000 LA @14,MSGPTR 01S0199 00213000 ST @14,@AL00001+8 01S0199 00214000 L @14,ZZ2MSGSP(,ZZ2PTR) 01S0199 00215000 ST @14,@AL00001+12 01S0199 00216000 LA @14,@CB00939 01S0199 00217000 ST @14,@AL00001+16 01S0199 00218000 LA @14,@CF00059 01S0199 00219000 ST @14,@AL00001+20 01S0199 00220000 L @15,ZZ2MSG0P(,ZZ2PTR) 01S0199 00221000 LA @01,@AL00001 01S0199 00222000 BALR @14,@15 01S0199 00223000 * END; /* BLSDMSG 01S0200 00224000 * (ZZ2,04064,MSGPTR,BLSDMSGS) 00225000 * LIFO ROUTE(TERM) */ 00226000 * DO; /* ABEND(111) DUMP USER */ 00227000 * RESPECIFY 01S0202 00228000 * (GPR01F) RESTRICTED; 01S0202 00229000 * GPR01F=(111)&'00000FFF'X;/* COMP CODE IN BITS 00230000 * 20-31 */ 00231000 LA GPR01F,111 01S0203 00232000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS 00233000 * FLAG */ 00234000 O GPR01F,@CF00074 01S0204 00235000 * SVC(13); /* ISSUE ABEND SVC */ 00236000 SVC 13 01S0205 00237000 * RESPECIFY 01S0206 00238000 * (GPR01F) UNRESTRICTED; 01S0206 00239000 * END; /* ABEND(111) DUMP USER ERROR IN 00240000 * KEY */ 00241000 * END; /* END OF LOGIC ERROR-RECORD KEYS*/ 00242000 * END; /* END OF BASE RECORD PROCESSING */ 00243000 * ELSE /* NO, MUST BE ERROR, REQUEST 00244000 * TERMINATION */ 00245000 * DO; /* ERROR RECORD PROCESSING */ 00246000 * 01S0210 00247000 B @RC00174 01S0210 00248000 @RF00174 DS 0H 01S0211 00249000 * /*******************************************************/ 00250000 * /* */ 00251000 * /* THIS SHOULD NEVER HAPPEN BUT CHECK MUST BE MADE */ 00252000 * /* */ 00253000 * /*******************************************************/ 00254000 * 01S0211 00255000 * MSGPTR=ZERO; /* NO CHAIN */ 00256000 SLR @14,@14 01S0211 00257000 ST @14,MSGPTR 01S0211 00258000 * DO; /* BLSDMSG 01S0212 00259000 * (ZZ2,04061,MSGPTR,BLSDMSGS) 00260000 * LIFO ROUTE(TERM) */ 00261000 * CALL BLSDMSG0(ZZ2,04061,MSGPTR,BLSDMSGS,'10010000'B,0); 00262000 ST ZZ2PTR,@AL00001 01S0213 00263000 LA @14,@CF00944 01S0213 00264000 ST @14,@AL00001+4 01S0213 00265000 LA @14,MSGPTR 01S0213 00266000 ST @14,@AL00001+8 01S0213 00267000 L @14,ZZ2MSGSP(,ZZ2PTR) 01S0213 00268000 ST @14,@AL00001+12 01S0213 00269000 LA @14,@CB00939 01S0213 00270000 ST @14,@AL00001+16 01S0213 00271000 LA @14,@CF00059 01S0213 00272000 ST @14,@AL00001+20 01S0213 00273000 L @15,ZZ2MSG0P(,ZZ2PTR) 01S0213 00274000 LA @01,@AL00001 01S0213 00275000 BALR @14,@15 01S0213 00276000 * /* BUILD MESSAGE */ 00277000 * END; /* BLSDMSG 01S0214 00278000 * (ZZ2,04061,MSGPTR,BLSDMSGS) 00279000 * LIFO ROUTE(TERM) */ 00280000 * DO; /* ABEND(112) DUMP USER */ 00281000 * RESPECIFY 01S0216 00282000 * (GPR01F) RESTRICTED; 01S0216 00283000 * GPR01F=(112)&'00000FFF'X;/* COMP CODE IN BITS 20-31 */ 00284000 LA GPR01F,112 01S0217 00285000 * GPR01F=GPR01F|'80000000'X;/* DUMP/STEP/DUMPOPTS FLAG */ 00286000 O GPR01F,@CF00074 01S0218 00287000 * SVC(13); /* ISSUE ABEND SVC */ 00288000 SVC 13 01S0219 00289000 * RESPECIFY 01S0220 00290000 * (GPR01F) UNRESTRICTED; 01S0220 00291000 * END; /* ABEND(112) DUMP USER ERROR 00292000 * NOBASE RECORD */ 00293000 * END; /* END OF ERROR RECORD PROCESSING*/ 00294000 * END; /* END OF VERIFICATION PROCESSING*/ 00295000 * ELSE /* YES, TERMINATE AT USERS 01S0224 00296000 * REQUEST */ 00297000 * RETC=TWELVE; /* REQUEST TERMINATE AT USERS 00298000 * REQUEST */ 00299000 B @RC00170 01S0224 00300000 @RF00170 LA RETC,12 01S0224 00301000 * RETURN CODE(RETC); 01S0225 00302000 @RC00170 L @13,4(,@13) 01S0225 00303000 L @00,@SIZDATD 01S0225 00304000 LR @01,@11 01S0225 00305000 BLSUFRES R,LV=(0),A=(1) 00306000 LR @15,@05 01S0225 00307000 L @14,12(,@13) 01S0225 00308000 LM @00,@12,20(@13) 01S0225 00309000 BR @14 01S0225 00310000 *CONFCHK: 01S0226 00311000 * PROCEDURE; 01S0226 00312000 * 01S0226 00313000 CONFCHK STM @14,@04,@SA00002 01S0226 00314000 STM @06,@12,@SA00002+28 01S0226 00315000 * /*****************************************************************/ 00316000 * /* */ 00317000 * /* CHECKS IF CONFIRM IS NECESSARY OR JUST MESSAGE */ 00318000 * /* */ 00319000 * /*****************************************************************/ 00320000 * 01S0227 00321000 * IF ZZ2AFC='1'B THEN /* CONFIRM REQUESTED? */ 00322000 TM ZZ2AFC(ZZ2PTR),B'10000000' 01S0227 00323000 BNO @RF00227 01S0227 00324000 * DO; /* YES, REQ CONFIRM --TYPE */ 00325000 * 01S0228 00326000 * /*************************************************************/ 00327000 * /* */ 00328000 * /* CONFIRM REQUESTED ISSUE DISPLAY AND REQUEST USER ACTION */ 00329000 * /* */ 00330000 * /*************************************************************/ 00331000 * 01S0229 00332000 * MSGPTR=ZERO; /* CLEAR OUT THE MESSAGE POINTER */ 00333000 SLR @14,@14 01S0229 00334000 ST @14,MSGPTR 01S0229 00335000 * CALL BLSFDF00(ZZ2,OLDBSDSD,YES,MSGPTR);/* CALL FOR DISPLAY */ 00336000 ST ZZ2PTR,@AL00001 01S0230 00337000 L @14,@PC00001+4 01S0230 00338000 ST @14,@AL00001+4 01S0230 00339000 LA @14,@CC00915 01S0230 00340000 ST @14,@AL00001+8 01S0230 00341000 LA @14,MSGPTR 01S0230 00342000 ST @14,@AL00001+12 01S0230 00343000 L @10,ZZ2DVTP(,ZZ2PTR) 01S0230 00344000 L @15,DVTDF00P(,@10) 01S0230 00345000 LA @01,@AL00001 01S0230 00346000 BALR @14,@15 01S0230 00347000 * IF RF=ZERO THEN /* IS DISPLAY OK? */ 00348000 LTR RF,RF 01S0231 00349000 BNZ @RF00231 01S0231 00350000 * DO; /* YES, CALL CONFIRMATION */ 00351000 * DO; /* BLSDMSG 01S0233 00352000 * (ZZ2,MONE,MSGPTR,BLSDMSGS) 00353000 * LIFO ROUTE(TERM) */ 00354000 * CALL BLSDMSG0(ZZ2,MONE,MSGPTR,BLSDMSGS,'10010000'B,0); 00355000 ST ZZ2PTR,@AL00001 01S0234 00356000 LA @14,@CF00917 01S0234 00357000 ST @14,@AL00001+4 01S0234 00358000 LA @14,MSGPTR 01S0234 00359000 ST @14,@AL00001+8 01S0234 00360000 L @14,ZZ2MSGSP(,ZZ2PTR) 01S0234 00361000 ST @14,@AL00001+12 01S0234 00362000 LA @14,@CB00939 01S0234 00363000 ST @14,@AL00001+16 01S0234 00364000 LA @14,@CF00059 01S0234 00365000 ST @14,@AL00001+20 01S0234 00366000 L @15,ZZ2MSG0P(,ZZ2PTR) 01S0234 00367000 LA @01,@AL00001 01S0234 00368000 BALR @14,@15 01S0234 00369000 * /* BUILD MESSAGE */ 00370000 * END; /* BLSDMSG 01S0235 00371000 * (ZZ2,MONE,MSGPTR,BLSDMSGS) 00372000 * LIFO ROUTE(TERM) */ 00373000 * IF RF=ZERO THEN /* MESSAGE OK? */ 00374000 LTR RF,RF 01S0236 00375000 BNZ @RF00236 01S0236 00376000 * DO; /* CONFIRM NEEDED */ 00377000 * CALL BLSFCN00(ZZ2,MSGNR1);/* CALL CONFIRMATION */ 00378000 ST ZZ2PTR,@AL00001 01S0238 00379000 LA @14,@CF00910 01S0238 00380000 ST @14,@AL00001+4 01S0238 00381000 L @10,ZZ2DVTP(,ZZ2PTR) 01S0238 00382000 L @15,DVTCN00P(,@10) 01S0238 00383000 LA @01,@AL00001 01S0238 00384000 BALR @14,@15 01S0238 00385000 * IF RF=ZERO THEN /* USER REPLY YES? */ 00386000 LTR RF,RF 01S0239 00387000 BNZ @RF00239 01S0239 00388000 * RETC=FOUR; /* YES, RETURN CODE = FOUR */ 00389000 LA RETC,4 01S0240 00390000 * ELSE /* NO */ 00391000 * RETC=TWELVE; /* REQ TERMINATION OF THE COMMAND*/ 00392000 B @RC00239 01S0241 00393000 @RF00239 LA RETC,12 01S0241 00394000 * END; /* END OF CONFIRM NEEDED */ 00395000 * ELSE /* ERROR DURRING MESSAGE */ 00396000 * RETC=TWELVE; /* REQUEST TERMINATION */ 00397000 B @RC00236 01S0243 00398000 @RF00236 LA RETC,12 01S0243 00399000 * END; /* END OF CALL CONFIRMATION */ 00400000 * ELSE /* NO, DISPLAY REQ TERM */ 00401000 * RETC=TWELVE; /* REQ TERMINATION */ 00402000 B @RC00231 01S0245 00403000 @RF00231 LA RETC,12 01S0245 00404000 * END; /* END OF REQ CONFIRM--TYPE */ 00405000 * ELSE /* NO, PUT OUT MESSAGE */ 00406000 * DO; /* PUT OUT MESSAGE */ 00407000 B @RC00227 01S0247 00408000 @RF00227 DS 0H 01S0248 00409000 * MSGPTR=ZERO; 01S0248 00410000 SLR @14,@14 01S0248 00411000 ST @14,MSGPTR 01S0248 00412000 * DO; /* BLSDMSG 01S0249 00413000 * (ZZ2,04062,MSGPTR,BLSDMSGS) 00414000 * LIFO ROUTE(TERM) */ 00415000 * CALL BLSDMSG0(ZZ2,04062,MSGPTR,BLSDMSGS,'10010000'B,0);/* 00416000 * BUILD MESSAGE */ 00417000 ST ZZ2PTR,@AL00001 01S0250 00418000 LA @14,@CF00949 01S0250 00419000 ST @14,@AL00001+4 01S0250 00420000 LA @14,MSGPTR 01S0250 00421000 ST @14,@AL00001+8 01S0250 00422000 L @14,ZZ2MSGSP(,ZZ2PTR) 01S0250 00423000 ST @14,@AL00001+12 01S0250 00424000 LA @14,@CB00939 01S0250 00425000 ST @14,@AL00001+16 01S0250 00426000 LA @14,@CF00059 01S0250 00427000 ST @14,@AL00001+20 01S0250 00428000 L @15,ZZ2MSG0P(,ZZ2PTR) 01S0250 00429000 LA @01,@AL00001 01S0250 00430000 BALR @14,@15 01S0250 00431000 * END; /* BLSDMSG 01S0251 00432000 * (ZZ2,04062,MSGPTR,BLSDMSGS) 00433000 * LIFO ROUTE(TERM) */ 00434000 * IF RF>ZERO THEN /* REQUEST FOR TERM? */ 00435000 LTR RF,RF 01S0252 00436000 BNP @RF00252 01S0252 00437000 * RETC=TWELVE; /* YES, REQUEST TERMINATION */ 00438000 LA RETC,12 01S0253 00439000 * ELSE /* NO, CONFLICTS EXIST OVERRIDE */ 00440000 * RETC=FOUR; /* CONFLICTS EXISTS */ 00441000 B @RC00252 01S0254 00442000 @RF00252 LA RETC,4 01S0254 00443000 * END; /* END OF PUT OUT MESSAGE */ 00444000 * END CONFCHK; /* END OF CONFIRMATION CHECK */ 00445000 @EL00002 DS 0H 01S0256 00446000 @EF00002 DS 0H 01S0256 00447000 @ER00002 LM @14,@04,@SA00002 01S0256 00448000 LM @06,@12,@SA00002+28 01S0256 00449000 BR @14 01S0256 00450000 */*BLSUPEND--MVS IPCS MODULE */ 00451000 * 01S0257 00452000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00453000 * GPR01F FIXED(31) REG(1); 01S0257 00454000 * DECLARE /* COMMON VARIABLES */ 00455000 * I256C CHAR(256) BASED, 01S0258 00456000 * I031F FIXED(31) BASED, 01S0258 00457000 * I031P PTR(31) BASED, 01S0258 00458000 * I015F FIXED(15) BASED, 01S0258 00459000 * I015P PTR(15) BASED, 01S0258 00460000 * I008P PTR(8) BASED, 01S0258 00461000 * I001C CHAR(1) BASED; 01S0258 00462000 * GENERATE NODEFS NOREFS DATA; 01S0259 00463000 * END /* BLRPEND END OF PROCESSING */ 00464000 * 01S0260 00465000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00466000 */*%INCLUDE SYSLIB (BLSFAD ) */ 00467000 */*%INCLUDE SYSLIB (BLSDSD ) */ 00468000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00469000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00470000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00471000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00472000 */*%INCLUDE SYSLIB (IKJECT ) */ 00473000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00474000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00475000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00476000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00477000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00478000 * 01S0260 00479000 * ; 01S0260 00480000 @EL00001 L @13,4(,@13) 01S0260 00481000 @EF00001 L @00,@SIZDATD 01S0260 00482000 LR @01,@11 01S0260 00483000 BLSUFRES R,LV=(0),A=(1) 00484000 @ER00001 LM @14,@12,12(@13) 01S0260 00485000 BR @14 01S0260 00486000 @DATA DS 0H 00487000 @DATD DSECT 00488000 DS 0F 00489000 @SA00001 DS 18F 00490000 @PC00001 DS 7F 00491000 @SA00002 DS 14F 00492000 @AL00001 DS 6A 00493000 BLSFOD00 CSECT 00494000 DS 0F 00495000 @CF00059 DC F'0' 00496000 @CF00054 DC F'1' 00497000 @CF00081 DC F'2' 00498000 @CF00107 DC F'3' 00499000 @CF00944 DC F'4061' 00500000 @CF00949 DC F'4062' 00501000 @CF00910 DC F'4063' 00502000 @CF00938 DC F'4064' 00503000 @CF00917 DC F'-1' 00504000 @CF00074 DC XL4'80000000' 00505000 @DATD DSECT 00506000 DS 0D 00507000 MSGPTR DS A 00508000 FLAGS DS CL1 00509000 ORG FLAGS 00510000 CONFCHKF DS BL1 00511000 @NM00079 EQU FLAGS+0 00512000 ORG FLAGS+1 00513000 BLSFOD00 CSECT 00514000 DS 0F 00515000 @SIZDATD DC AL1(0) 00516000 DC AL3(@ENDDATD-@DATD) 00517000 DS 0D 00518000 @CC00915 DC C'YES' 00519000 @CB00939 DC B'10010000' 00520000 @DATD DSECT 00521000 SPACE 2 00522000 *********************************************************************** 00523000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00524000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00525000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00526000 *********************************************************************** 00527000 SPACE 00528000 BLSFOD00 CSECT 00529000 ORG 00530000 DS 0D 00531000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSFOD00+19)/20+7)/8)CL8'BLSFOD00' 00532000 @DATD DSECT 00533000 SPACE 2 00534000 *********************************************************************** 00535000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00536000 *********************************************************************** 00537000 SPACE 00538000 DS 0D 00539000 @DATD DSECT 00540000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00541000 @ENDDATD EQU * 00542000 BLSFOD00 CSECT 00543000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00544000 @01 EQU 01 00545000 @02 EQU 02 00546000 @03 EQU 03 00547000 @04 EQU 04 00548000 @05 EQU 05 00549000 @06 EQU 06 00550000 @07 EQU 07 00551000 @08 EQU 08 00552000 @09 EQU 09 00553000 @10 EQU 10 00554000 @11 EQU 11 00555000 @12 EQU 12 00556000 @13 EQU 13 00557000 @14 EQU 14 00558000 @15 EQU 15 00559000 OLDDSD EQU @03 00560000 NEWDSD EQU @06 00561000 RETC EQU @05 00562000 ZZ2PTR EQU @02 00563000 R0 EQU @00 00564000 R1 EQU @01 00565000 R2 EQU @02 00566000 R3 EQU @03 00567000 R4 EQU @04 00568000 R5 EQU @05 00569000 R9 EQU @09 00570000 RB EQU @11 00571000 RD EQU @13 00572000 RE EQU @14 00573000 RF EQU @15 00574000 GPR01F EQU @01 00575000 RA EQU @10 00576000 RC EQU @12 00577000 R6 EQU @06 00578000 R7 EQU @07 00579000 R8 EQU @08 00580000 PD EQU 0 00581000 MAN EQU 0 00582000 DSNS EQU 0 00583000 DSNSDP EQU DSNS 00584000 DSNSDF EQU DSNS+6 00585000 DSNSMP EQU DSNS+8 00586000 DSNSMF EQU DSNS+14 00587000 DSNSPP EQU DSNS+16 00588000 DSNSPF EQU DSNS+22 00589000 PRN EQU 0 00590000 PRNIP EQU PRN 00591000 PRNIF EQU PRN+6 00592000 TYS EQU 0 00593000 DSC EQU 0 00594000 DSCQP EQU DSC 00595000 DSCQF EQU DSC+6 00596000 DSCQFP EQU DSCQF 00597000 DSDREC EQU 0 00598000 DSDKEY EQU DSDREC 00599000 DSDKGRP EQU DSDKEY 00600000 DSDKTYP EQU DSDKGRP 00601000 DSDKDSNM EQU DSDKGRP+1 00602000 DSDKBSID EQU DSDKEY+53 00603000 DSDKPID EQU DSDKBSID 00604000 DSDINFO EQU DSDREC+64 00605000 ZZ1 EQU 0 00606000 ZZ1ATTN EQU ZZ1+360 00607000 ZZ1EVE EQU ZZ1ATTN+4 00608000 ZZ1EVEP EQU ZZ1EVE 00609000 ZZ1F EQU ZZ1+368 00610000 ZZ1N EQU ZZ1+1116 00611000 ZZ2 EQU 0 00612000 ZZ2AMD EQU ZZ2 00613000 @NM00023 EQU ZZ2AMD+7 00614000 ZZ2PRT EQU ZZ2+138 00615000 ZZ2PRTT EQU ZZ2PRT+4 00616000 ZZ2PRTT1 EQU ZZ2PRTT+1 00617000 ZZ2A EQU ZZ2+272 00618000 ZZ2AF EQU ZZ2A+16 00619000 ZZ2AFC EQU ZZ2AF+1 00620000 ZZ2APID EQU ZZ2A+64 00621000 ZZ2AD EQU ZZ2A+74 00622000 ZZ2ADD EQU ZZ2AD 00623000 ZZ2ADDT EQU ZZ2ADD+2 00624000 ZZ2ADM EQU ZZ2AD+46 00625000 ZZ2ADMT EQU ZZ2ADM+2 00626000 ZZ2ADP EQU ZZ2AD+56 00627000 ZZ2ADPT EQU ZZ2ADP+2 00628000 ZZ2AQAS EQU ZZ2A+144 00629000 ZZ2AQD EQU ZZ2A+160 00630000 ZZ2AQDT EQU ZZ2AQD+10 00631000 ZZ2AQDF EQU ZZ2AQD+52 00632000 ZZ2STG EQU ZZ2+960 00633000 ZZ2ALLOP EQU ZZ2+992 00634000 ZZ2FREEP EQU ZZ2+996 00635000 ZZ2FF19P EQU ZZ2+1000 00636000 ZZ2FRE1P EQU ZZ2+1004 00637000 ZZ2FF18P EQU ZZ2+1008 00638000 ZZ2DYNAP EQU ZZ2+1012 00639000 ZZ2ZZ2CP EQU ZZ2+1016 00640000 ZZ2ZZ2DP EQU ZZ2+1020 00641000 ZZ2STAIP EQU ZZ2+1024 00642000 ZZ2FF02P EQU ZZ2+1028 00643000 ZZ2GETLP EQU ZZ2+1032 00644000 ZZ2PARSP EQU ZZ2+1036 00645000 ZZ2PTGTP EQU ZZ2+1040 00646000 ZZ2PUTLP EQU ZZ2+1044 00647000 ZZ2SCANP EQU ZZ2+1048 00648000 ZZ2STCKP EQU ZZ2+1052 00649000 ZZ2ALOCP EQU ZZ2+1056 00650000 ZZ2MSGSP EQU ZZ2+1060 00651000 ZZ2TRMOP EQU ZZ2+1064 00652000 ZZ2TRMVP EQU ZZ2+1068 00653000 ZZ2MSG0P EQU ZZ2+1076 00654000 ZZ2PUTNP EQU ZZ2+1084 00655000 ZZ2TRMNP EQU ZZ2+1088 00656000 ZZ2ENQ0P EQU ZZ2+1092 00657000 ZZ2ADSDP EQU ZZ2+1096 00658000 ZZ2APDRP EQU ZZ2+1100 00659000 ZZ2FDSDP EQU ZZ2+1104 00660000 ZZ2FPDRP EQU ZZ2+1108 00661000 ZZ2ZZ1P EQU ZZ2+1264 00662000 ZZ2DVTP EQU ZZ2+1276 00663000 ZZ2BVTP EQU ZZ2+1280 00664000 ZZ2CPPL EQU ZZ2+1292 00665000 ZZ2CPPLC EQU ZZ2CPPL 00666000 ZZ2ITR EQU ZZ2+2840 00667000 ZZ2ITRE EQU ZZ2ITR+16 00668000 ZZ2ITSE EQU ZZ2+2864 00669000 ZZ2ES EQU ZZ2+2872 00670000 ZZ2AMDX EQU ZZ2+7160 00671000 ZZ2AXO EQU ZZ2+7934 00672000 ZZ2AXOT EQU ZZ2AXO+2 00673000 CMD EQU 0 00674000 CMDT EQU CMD+4 00675000 PSCB EQU 0 00676000 PSCBATR1 EQU PSCB+16 00677000 ECT EQU 0 00678000 ECTSWS EQU ECT+28 00679000 ECTSWS2 EQU ECT+40 00680000 ECTSWS21 EQU ECTSWS2 00681000 UPT EQU 0 00682000 UPTSWS EQU UPT+12 00683000 SA EQU 0 00684000 SA1 EQU SA 00685000 SAR EQU SA+12 00686000 BVT EQU 0 00687000 BVTPUTLP EQU BVT+4 00688000 BVTPUTOP EQU BVT+12 00689000 BVTPUTTP EQU BVT+16 00690000 BVTPUTVP EQU BVT+20 00691000 BVTPUTAP EQU BVT+24 00692000 BVTPRTTP EQU BVT+28 00693000 BVTPRTAP EQU BVT+32 00694000 BVTPUTDP EQU BVT+36 00695000 BVTMONP EQU BVT+40 00696000 BVTMON2P EQU BVT+44 00697000 BVTVSARP EQU BVT+48 00698000 BVTVSENP EQU BVT+64 00699000 BVTVSERP EQU BVT+68 00700000 BVTVSGEP EQU BVT+72 00701000 BVTVSGUP EQU BVT+76 00702000 BVTVSPOP EQU BVT+80 00703000 BVTVSPUP EQU BVT+84 00704000 BVTMPKNP EQU BVT+104 00705000 BVTMONLP EQU BVT+108 00706000 BVTPUTCP EQU BVT+132 00707000 BVTMPK1P EQU BVT+136 00708000 BVTZZ2RP EQU BVT+140 00709000 BVTPGMRP EQU BVT+144 00710000 BVTMONAP EQU BVT+148 00711000 BVTBLDDP EQU BVT+152 00712000 BVTBLDLP EQU BVT+156 00713000 BVTPGMCP EQU BVT+160 00714000 BVTPGMDP EQU BVT+164 00715000 BVTPGMLP EQU BVT+168 00716000 BVTMONCP EQU BVT+180 00717000 BVTMONDP EQU BVT+184 00718000 BVTMONTP EQU BVT+188 00719000 BVTPARIP EQU BVT+192 00720000 BVTPARUP EQU BVT+196 00721000 BVTPRTNP EQU BVT+204 00722000 BVTVSCRP EQU BVT+208 00723000 BVTVSMRP EQU BVT+212 00724000 BVTMONXP EQU BVT+216 00725000 BVTTRMAP EQU BVT+228 00726000 BLSDMSGS EQU 0 00727000 BLSDMSG0 EQU 0 00728000 BLSFCN00 EQU 0 00729000 BLSFDF00 EQU 0 00730000 DVT EQU 0 00731000 DVTDEQPP EQU DVT+8 00732000 DVTENQPP EQU DVT+12 00733000 DVTAUTHP EQU DVT+20 00734000 DVTLPCLP EQU DVT+24 00735000 DVTBP00P EQU DVT+28 00736000 DVTCN00P EQU DVT+32 00737000 DVTDF00P EQU DVT+36 00738000 DVTDS00P EQU DVT+44 00739000 DVTFL00P EQU DVT+48 00740000 DVTFP00P EQU DVT+52 00741000 DVTGD00P EQU DVT+56 00742000 DVTGG00P EQU DVT+60 00743000 DVTGP00P EQU DVT+64 00744000 DVTND00P EQU DVT+68 00745000 DVTND01P EQU DVT+72 00746000 DVTPS00P EQU DVT+80 00747000 DVTSD00P EQU DVT+84 00748000 DVTSL00P EQU DVT+88 00749000 DVTTL00P EQU DVT+92 00750000 DVTUD00P EQU DVT+96 00751000 DVTUP00P EQU DVT+100 00752000 DVTLP00P EQU DVT+104 00753000 DVTLALLP EQU DVT+108 00754000 DVTLPFMP EQU DVT+112 00755000 DVTCLOSP EQU DVT+116 00756000 DVTOPENP EQU DVT+120 00757000 DVTPERAP EQU DVT+124 00758000 DVTDALLP EQU DVT+128 00759000 BLSCALOC EQU 0 00760000 BLSDADSD EQU 0 00761000 BLSDAPDR EQU 0 00762000 BLSDDEQP EQU 0 00763000 BLSDENQP EQU 0 00764000 BLSDENQ0 EQU 0 00765000 BLSDFDSD EQU 0 00766000 BLSDFPDR EQU 0 00767000 BLSEAUTH EQU 0 00768000 BLSELPCL EQU 0 00769000 BLSELPFM EQU 0 00770000 BLSFBP00 EQU 0 00771000 BLSFCLOS EQU 0 00772000 BLSFDALL EQU 0 00773000 BLSFDS00 EQU 0 00774000 BLSFFL00 EQU 0 00775000 BLSFFP00 EQU 0 00776000 BLSFGD00 EQU 0 00777000 BLSFGG00 EQU 0 00778000 BLSFGP00 EQU 0 00779000 BLSFLALL EQU 0 00780000 BLSFLP00 EQU 0 00781000 BLSFND00 EQU 0 00782000 BLSFND01 EQU 0 00783000 BLSFOPEN EQU 0 00784000 BLSFPERA EQU 0 00785000 BLSFPS00 EQU 0 00786000 BLSFSD00 EQU 0 00787000 BLSFSL00 EQU 0 00788000 BLSFTL00 EQU 0 00789000 BLSFUD00 EQU 0 00790000 BLSFUP00 EQU 0 00791000 BLSUALLO EQU 0 00792000 BLSUBLDD EQU 0 00793000 BLSUBLDL EQU 0 00794000 BLSUDYNA EQU 0 00795000 BLSUFREE EQU 0 00796000 BLSUFRE1 EQU 0 00797000 BLSUMON EQU 0 00798000 BLSUMONA EQU 0 00799000 BLSUMONC EQU 0 00800000 BLSUMOND EQU 0 00801000 BLSUMONL EQU 0 00802000 BLSUMONT EQU 0 00803000 BLSUMONX EQU 0 00804000 BLSUMON2 EQU 0 00805000 BLSUMPKN EQU 0 00806000 BLSUMPK1 EQU 0 00807000 BLSUPARI EQU 0 00808000 BLSUPARU EQU 0 00809000 BLSUPGMC EQU 0 00810000 BLSUPGMD EQU 0 00811000 BLSUPGML EQU 0 00812000 BLSUPGMR EQU 0 00813000 BLSUPRTA EQU 0 00814000 BLSUPRTN EQU 0 00815000 BLSUPRTT EQU 0 00816000 BLSUPUTA EQU 0 00817000 BLSUPUTC EQU 0 00818000 BLSUPUTD EQU 0 00819000 BLSUPUTL EQU 0 00820000 BLSUPUTN EQU 0 00821000 BLSUPUTO EQU 0 00822000 BLSUPUTT EQU 0 00823000 BLSUPUTV EQU 0 00824000 BLSUSTAI EQU 0 00825000 BLSUTRMA EQU 0 00826000 BLSUTRMN EQU 0 00827000 BLSUTRMO EQU 0 00828000 BLSUTRMV EQU 0 00829000 BLSUVSAR EQU 0 00830000 BLSUVSCR EQU 0 00831000 BLSUVSEN EQU 0 00832000 BLSUVSER EQU 0 00833000 BLSUVSGE EQU 0 00834000 BLSUVSGU EQU 0 00835000 BLSUVSMR EQU 0 00836000 BLSUVSPO EQU 0 00837000 BLSUVSPU EQU 0 00838000 BLSUZZ2C EQU 0 00839000 BLSUZZ2D EQU 0 00840000 BLSUZZ2R EQU 0 00841000 DCR EQU 0 00842000 DESCSUB EQU 0 00843000 DFT EQU 0 00844000 DSCQ EQU 0 00845000 DSNSD EQU 0 00846000 DSNSM EQU 0 00847000 DSNSP EQU 0 00848000 DSNSUB EQU 0 00849000 DSNWD EQU 0 00850000 IKJEFF02 EQU 0 00851000 IKJEFF18 EQU 0 00852000 IKJEFF19 EQU 0 00853000 IKJGETL EQU 0 00854000 IKJPARS EQU 0 00855000 IKJPTGT EQU 0 00856000 IKJPUTL EQU 0 00857000 IKJSCAN EQU 0 00858000 IKJSTCK EQU 0 00859000 I001C EQU 0 00860000 I008P EQU 0 00861000 I015F EQU 0 00862000 I015P EQU 0 00863000 I031F EQU 0 00864000 I031P EQU 0 00865000 I256C EQU 0 00866000 LISTEND EQU 0 00867000 PRNI EQU 0 00868000 PRO EQU 0 00869000 PROBSUB EQU 0 00870000 PXCONF EQU 0 00871000 PXTEST EQU 0 00872000 TYP EQU 0 00873000 TYPESUB EQU 0 00874000 ZZ2CB EQU 0 00875000 OLDBSDSD EQU 0 00876000 NEWBSDSD EQU 0 00877000 DSNPDE EQU 0 00878000 TYPEPDE EQU 0 00879000 MANPDE EQU 0 00880000 DESCPDE EQU 0 00881000 DSDBASRC EQU DSDINFO 00882000 DSDDSNTY EQU DSDBASRC 00883000 DSDDSATR EQU DSDBASRC+8 00884000 DSDSLOWN EQU DSDDSATR 00885000 DSDDESC EQU DSDBASRC+16 00886000 DSDPRASR EQU DSDINFO 00887000 CPPL EQU ZZ2CPPL 00888000 CPPLUPT EQU CPPL+4 00889000 CPPLPSCB EQU CPPL+8 00890000 CPPLECT EQU CPPL+12 00891000 * START UNREFERENCED COMPONENTS 00892000 CPPLCBUF EQU CPPL 00893000 DSDPRSQN EQU DSDPRASR 00894000 DSDBRES1 EQU DSDBASRC+76 00895000 DVT99999 EQU DVT+256 00896000 DVT0064P EQU DVT+252 00897000 DVT0063P EQU DVT+248 00898000 DVT0062P EQU DVT+244 00899000 DVT0061P EQU DVT+240 00900000 DVT0060P EQU DVT+236 00901000 DVT0059P EQU DVT+232 00902000 DVT0058P EQU DVT+228 00903000 DVT0057P EQU DVT+224 00904000 DVT0056P EQU DVT+220 00905000 DVT0055P EQU DVT+216 00906000 DVT0054P EQU DVT+212 00907000 DVT0053P EQU DVT+208 00908000 DVT0052P EQU DVT+204 00909000 DVT0051P EQU DVT+200 00910000 DVT0050P EQU DVT+196 00911000 DVT0049P EQU DVT+192 00912000 DVT0048P EQU DVT+188 00913000 DVT0047P EQU DVT+184 00914000 DVT0046P EQU DVT+180 00915000 DVT0045P EQU DVT+176 00916000 DVT0044P EQU DVT+172 00917000 DVT0043P EQU DVT+168 00918000 DVT0042P EQU DVT+164 00919000 DVT0041P EQU DVT+160 00920000 DVT0040P EQU DVT+156 00921000 DVT0039P EQU DVT+152 00922000 DVT0038P EQU DVT+148 00923000 DVT0037P EQU DVT+144 00924000 DVT0036P EQU DVT+140 00925000 DVT0035P EQU DVT+136 00926000 DVT0034P EQU DVT+132 00927000 DVTOD00P EQU DVT+76 00928000 DVT0011P EQU DVT+40 00929000 DVT0005P EQU DVT+16 00930000 DVT0002P EQU DVT+4 00931000 DVT0001P EQU DVT 00932000 BVT99999 EQU BVT+256 00933000 BVT0064P EQU BVT+252 00934000 BVT0063P EQU BVT+248 00935000 BVT0062P EQU BVT+244 00936000 BVT0061P EQU BVT+240 00937000 BVT0060P EQU BVT+236 00938000 BVT0059P EQU BVT+232 00939000 BVT0057P EQU BVT+224 00940000 BVT0056P EQU BVT+220 00941000 BVTSTBLP EQU BVT+200 00942000 BVT0045P EQU BVT+176 00943000 BVT0044P EQU BVT+172 00944000 BVT0033P EQU BVT+128 00945000 BVT0032P EQU BVT+124 00946000 BVT0031P EQU BVT+120 00947000 BVT0030P EQU BVT+116 00948000 BVT0029P EQU BVT+112 00949000 BVT0026P EQU BVT+100 00950000 BVT0025P EQU BVT+96 00951000 BVT0024P EQU BVT+92 00952000 BVT0023P EQU BVT+88 00953000 BVT0016P EQU BVT+60 00954000 BVT0015P EQU BVT+56 00955000 BVT0014P EQU BVT+52 00956000 BVT0003P EQU BVT+8 00957000 BVT0001P EQU BVT 00958000 SA99 EQU SA+72 00959000 SARC EQU SAR+56 00960000 SARB EQU SAR+52 00961000 SARA EQU SAR+48 00962000 SAR9 EQU SAR+44 00963000 SAR8 EQU SAR+40 00964000 SAR7 EQU SAR+36 00965000 SAR6 EQU SAR+32 00966000 SAR5 EQU SAR+28 00967000 SAR4 EQU SAR+24 00968000 SAR3 EQU SAR+20 00969000 SAR2 EQU SAR+16 00970000 SAR1 EQU SAR+12 00971000 SAR0 EQU SAR+8 00972000 SARF EQU SAR+4 00973000 SARE EQU SAR 00974000 SAFWD EQU SA+8 00975000 SABAK EQU SA+4 00976000 SA1L EQU SA1+1 00977000 SA1P EQU SA1 00978000 UPTPREFL EQU UPT+23 00979000 UPTPREFX EQU UPT+16 00980000 @NM00078 EQU UPT+15 00981000 UPTLDEL EQU UPT+14 00982000 UPTCDEL EQU UPT+13 00983000 UPTWTP EQU UPTSWS 00984000 UPTMODE EQU UPTSWS 00985000 UPTALD EQU UPTSWS 00986000 UPTPAUS EQU UPTSWS 00987000 UPTNCOM EQU UPTSWS 00988000 UPTMID EQU UPTSWS 00989000 UPTNPRM EQU UPTSWS 00990000 UPTRCVR EQU UPTSWS 00991000 UPTUSER EQU UPT+2 00992000 @NM00077 EQU UPT 00993000 @NM00076 EQU ECT+52 00994000 @NM00075 EQU ECT+48 00995000 @NM00074 EQU ECT+44 00996000 @NM00073 EQU ECTSWS2+1 00997000 @NM00072 EQU ECTSWS21 00998000 ECTTABND EQU ECTSWS21 00999000 ECTDEFCS EQU ECTSWS21 01000000 ECTBKPB EQU ECT+36 01001000 ECTUSER EQU ECT+32 01002000 ECTDDNUM EQU ECT+29 01003000 ECTATTN EQU ECTSWS 01004000 ECTBKGRD EQU ECTSWS 01005000 ECTNNOT EQU ECTSWS 01006000 ECTNMAL EQU ECTSWS 01007000 ECTLOGF EQU ECTSWS 01008000 ECTATRM EQU ECTSWS 01009000 @NM00071 EQU ECTSWS 01010000 ECTNOPD EQU ECTSWS 01011000 ECTSCMD EQU ECT+20 01012000 ECTPCMD EQU ECT+12 01013000 ECTSMSG EQU ECT+9 01014000 ECTMSGF EQU ECT+8 01015000 ECTIOWA EQU ECT+4 01016000 ECTRTCD EQU ECT+1 01017000 ECTRCDF EQU ECT 01018000 PSCBU EQU PSCB+64 01019000 PSCBRSZ EQU PSCB+60 01020000 PSCBLINE EQU PSCB+59 01021000 PSCBCHAR EQU PSCB+58 01022000 PSCBUPTL EQU PSCB+56 01023000 PSCBUPT EQU PSCB+52 01024000 PSCBRLGB EQU PSCB+48 01025000 PSCBDEST EQU PSCB+40 01026000 @NM00070 EQU PSCB+36 01027000 @NM00069 EQU PSCB+32 01028000 @NM00068 EQU PSCB+28 01029000 PSCBLTI2 EQU PSCB+24 01030000 PSCBLTIM EQU PSCB+20 01031000 PSCBATR2 EQU PSCB+18 01032000 @NM00067 EQU PSCBATR1 01033000 @NM00066 EQU PSCBATR1 01034000 @NM00065 EQU PSCBATR1 01035000 PSCBATTN EQU PSCBATR1 01036000 PSCBVMNT EQU PSCBATR1 01037000 PSCBJCL EQU PSCBATR1 01038000 PSCBACCT EQU PSCBATR1 01039000 PSCBCTRL EQU PSCBATR1 01040000 PSCBGPNM EQU PSCB+8 01041000 PSCBUSRL EQU PSCB+7 01042000 PSCBUSER EQU PSCB 01043000 CMDT1 EQU CMDT 01044000 CMDO EQU CMD+2 01045000 CMDL EQU CMD 01046000 ZZ299999 EQU ZZ2+8192 01047000 ZZ2AXOT1 EQU ZZ2AXOT 01048000 ZZ2AXOL EQU ZZ2AXO 01049000 @NM00064 EQU ZZ2+7288 01050000 @NM00063 EQU ZZ2AMDX+4 01051000 ZZ2AMDXC EQU ZZ2AMDX 01052000 ZZ2HSD EQU ZZ2+3056 01053000 @NM00062 EQU ZZ2ES 01054000 @NM00061 EQU ZZ2+2868 01055000 ZZ2ITSEC EQU ZZ2ITSE+1 01056000 @NM00060 EQU ZZ2ITSE 01057000 ZZ2ITSEP EQU ZZ2ITSE 01058000 ZZ2ITSEW EQU ZZ2ITSE 01059000 @NM00059 EQU ZZ2ITR+20 01060000 ZZ2ITREC EQU ZZ2ITRE+1 01061000 @NM00058 EQU ZZ2ITRE 01062000 ZZ2ITREP EQU ZZ2ITRE 01063000 ZZ2ITREW EQU ZZ2ITRE 01064000 @NM00057 EQU ZZ2ITR+9 01065000 ZZ2ITRRC EQU ZZ2ITR+8 01066000 ZZ2ITR2P EQU ZZ2ITR+4 01067000 ZZ2ITRPP EQU ZZ2ITR 01068000 @NM00056 EQU ZZ2+1544 01069000 ZZ2PGM EQU ZZ2+1536 01070000 @NM00055 EQU ZZ2+1526 01071000 ZZ2CW EQU ZZ2+1524 01072000 @NM00054 EQU ZZ2+1504 01073000 @NM00053 EQU ZZ2+1352 01074000 ZZ2FFSYP EQU ZZ2+1348 01075000 ZZ2SASYP EQU ZZ2+1344 01076000 ZZ2RDSYP EQU ZZ2+1340 01077000 ZZ2RASYP EQU ZZ2+1336 01078000 ZZ2PHSYP EQU ZZ2+1332 01079000 ZZ2ESSYP EQU ZZ2+1328 01080000 ZZ200SYP EQU ZZ2+1324 01081000 ZZ2SCWP EQU ZZ2+1320 01082000 ZZ2TTLP EQU ZZ2+1316 01083000 ZZ2LOADP EQU ZZ2+1312 01084000 ZZ2VRESP EQU ZZ2+1308 01085000 ZZ2CPPLE EQU ZZ2CPPL+12 01086000 ZZ2CPPLP EQU ZZ2CPPL+8 01087000 ZZ2CPPLU EQU ZZ2CPPL+4 01088000 ZZ2VRSAP EQU ZZ2+1288 01089000 ZZ2RVTP EQU ZZ2+1284 01090000 @NM00052 EQU ZZ2+1272 01091000 @NM00051 EQU ZZ2+1268 01092000 ZZ2RPLP EQU ZZ2+1260 01093000 ZZ2TCBP EQU ZZ2+1256 01094000 @NM00050 EQU ZZ2+1252 01095000 ZZ2ZZ2P EQU ZZ2+1248 01096000 @NM00049 EQU ZZ2+1112 01097000 @NM00048 EQU ZZ2+1080 01098000 ZZ2FT25P EQU ZZ2+1072 01099000 @NM00047 EQU ZZ2+976 01100000 ZZ2TOD EQU ZZ2+968 01101000 ZZ2STGN EQU ZZ2STG+4 01102000 ZZ2STGP EQU ZZ2STG 01103000 @NM00046 EQU ZZ2+952 01104000 ZZ2SCMDE EQU ZZ2+944 01105000 ZZ2SCMDN EQU ZZ2+936 01106000 ZZ2IDENT EQU ZZ2+928 01107000 ZZ2A9999 EQU ZZ2A+656 01108000 @NM00045 EQU ZZ2A+224 01109000 @NM00044 EQU ZZ2A+220 01110000 ZZ2AQD99 EQU ZZ2AQD+60 01111000 @NM00043 EQU ZZ2AQD+56 01112000 @NM00042 EQU ZZ2AQDF 01113000 ZZ2AQDFA EQU ZZ2AQDF 01114000 ZZ2AQDIL EQU ZZ2AQD+48 01115000 ZZ2AQDIM EQU ZZ2AQD+44 01116000 ZZ2AQDT9 EQU ZZ2AQDT+34 01117000 ZZ2AQDTE EQU ZZ2AQDT+33 01118000 ZZ2AQDTD EQU ZZ2AQDT+2 01119000 @NM00041 EQU ZZ2AQDT+1 01120000 ZZ2AQDTY EQU ZZ2AQDT 01121000 ZZ2AQDT0 EQU ZZ2AQDT 01122000 ZZ2AQDLB EQU ZZ2AQD+9 01123000 ZZ2AQDOB EQU ZZ2AQD+8 01124000 ZZ2AQDLE EQU ZZ2AQD+4 01125000 ZZ2AQDOF EQU ZZ2AQD 01126000 ZZ2AQD00 EQU ZZ2AQD 01127000 ZZ2AQAS9 EQU ZZ2AQAS+16 01128000 @NM00040 EQU ZZ2AQAS+12 01129000 ZZ2AQAS2 EQU ZZ2AQAS+8 01130000 ZZ2AQAS1 EQU ZZ2AQAS+4 01131000 @NM00039 EQU ZZ2AQAS+2 01132000 ZZ2AQAST EQU ZZ2AQAS 01133000 ZZ2AQAS0 EQU ZZ2AQAS 01134000 ZZ2AZZ6P EQU ZZ2A+140 01135000 ZZ2ADPTA EQU ZZ2ADPT 01136000 ZZ2ADPL EQU ZZ2ADP 01137000 ZZ2ADMTA EQU ZZ2ADMT 01138000 ZZ2ADML EQU ZZ2ADM 01139000 ZZ2ADDTA EQU ZZ2ADDT 01140000 ZZ2ADDL EQU ZZ2ADD 01141000 @NM00038 EQU ZZ2A+72 01142000 ZZ2APIDB EQU ZZ2APID+3 01143000 ZZ2APIDA EQU ZZ2APID 01144000 @NM00037 EQU ZZ2A+24 01145000 @NM00036 EQU ZZ2AF+5 01146000 ZZ2AFX EQU ZZ2AF+5 01147000 @NM00035 EQU ZZ2AF+3 01148000 ZZ2AFS EQU ZZ2AF+2 01149000 ZZ2AFD EQU ZZ2AF+2 01150000 ZZ2AFQ EQU ZZ2AF+2 01151000 ZZ2AF$ EQU ZZ2AF+2 01152000 @NM00034 EQU ZZ2AF+2 01153000 ZZ2AFM EQU ZZ2AF+2 01154000 @NM00033 EQU ZZ2AF+2 01155000 @NM00032 EQU ZZ2AF+1 01156000 ZZ2AFV EQU ZZ2AF+1 01157000 @NM00031 EQU ZZ2AF+1 01158000 @NM00030 EQU ZZ2AF 01159000 ZZ2AFFS EQU ZZ2AF 01160000 ZZ2AFT EQU ZZ2AF 01161000 ZZ2AFP EQU ZZ2AF 01162000 @NM00029 EQU ZZ2A+8 01163000 ZZ2ALINE EQU ZZ2A+4 01164000 @NM00028 EQU ZZ2A+3 01165000 ZZ2ASE EQU ZZ2A+2 01166000 ZZ2ACH EQU ZZ2A 01167000 @NM00027 EQU ZZ2+264 01168000 @NM00026 EQU ZZ2+263 01169000 ZZ2PRTT0 EQU ZZ2PRTT 01170000 ZZ2PRTO EQU ZZ2PRT+2 01171000 ZZ2PRTL EQU ZZ2PRT 01172000 @NM00025 EQU ZZ2AMD+56 01173000 ZZ2AMDXP EQU ZZ2AMD+52 01174000 ZZ2AMDD EQU ZZ2AMD+48 01175000 ZZ2AMDL EQU ZZ2AMD+44 01176000 ZZ2AMDU EQU ZZ2AMD+28 01177000 ZZ2AMDF EQU ZZ2AMD+24 01178000 ZZ2AMDS EQU ZZ2AMD+20 01179000 ZZ2AMDC EQU ZZ2AMD+16 01180000 ZZ2AMDP EQU ZZ2AMD+12 01181000 ZZ2AMDB EQU ZZ2AMD+8 01182000 @NM00024 EQU @NM00023 01183000 ZZ2AMD2 EQU @NM00023 01184000 ZZ2AMD1 EQU @NM00023 01185000 ZZ2AMD0 EQU ZZ2AMD+6 01186000 ZZ2AMDA EQU ZZ2AMD+4 01187000 ZZ2AMDT EQU ZZ2AMD 01188000 ZZ199999 EQU ZZ1+3072 01189000 @NM00022 EQU ZZ1+2160 01190000 ZZ1TRTAS EQU ZZ1+1904 01191000 ZZ1TRUPC EQU ZZ1+1648 01192000 ZZ1TRCTX EQU ZZ1+1392 01193000 ZZ1NASID EQU ZZ1N+274 01194000 ZZ1NSTRL EQU ZZ1N+272 01195000 ZZ1NOFF EQU ZZ1N+268 01196000 ZZ1NBDY EQU ZZ1N+264 01197000 ZZ1NADE EQU ZZ1N+260 01198000 ZZ1NADB EQU ZZ1N+256 01199000 ZZ1NSTR EQU ZZ1N 01200000 @NM00021 EQU ZZ1+1080 01201000 ZZ1TREBC EQU ZZ1+824 01202000 ZZ1TRHEX EQU ZZ1+568 01203000 @NM00020 EQU ZZ1+377 01204000 ZZ1USTAE EQU ZZ1+376 01205000 @NM00019 EQU ZZ1F+1 01206000 @NM00018 EQU ZZ1F 01207000 ZZ1FM EQU ZZ1F 01208000 ZZ1FX EQU ZZ1F 01209000 ZZ1FU EQU ZZ1F 01210000 ZZ1EVEC EQU ZZ1EVE+1 01211000 @NM00017 EQU ZZ1EVE 01212000 ZZ1EVEW EQU ZZ1EVE 01213000 ZZ1ACMP EQU ZZ1ATTN 01214000 @NM00016 EQU ZZ1+144 01215000 ZZ1FPP EQU ZZ1+140 01216000 ZZ1ZZ6P EQU ZZ1+136 01217000 @NM00015 EQU ZZ1+84 01218000 ZZ1PLINE EQU ZZ1+80 01219000 ZZ1PGSZ EQU ZZ1+76 01220000 ZZ1PCNT EQU ZZ1+72 01221000 @NM00014 EQU ZZ1+68 01222000 ZZ1TPAGE EQU ZZ1+64 01223000 ZZ1TLINE EQU ZZ1+60 01224000 @NM00013 EQU ZZ1+52 01225000 ZZ1DMCBP EQU ZZ1+48 01226000 ZZ1DSDP EQU ZZ1+44 01227000 ZZ1PDRP EQU ZZ1+40 01228000 ZZ1ZZ2P EQU ZZ1+36 01229000 ZZ1327WP EQU ZZ1+32 01230000 ZZ1ACBP EQU ZZ1+28 01231000 @NM00012 EQU ZZ1+24 01232000 ZZ1PDCBP EQU ZZ1+20 01233000 ZZ1BLRBL EQU ZZ1+16 01234000 @NM00011 EQU ZZ1+12 01235000 ZZ1PNULL EQU ZZ1+8 01236000 ZZ1NULL EQU ZZ1+4 01237000 ZZ1IDE EQU ZZ1 01238000 DSDRES1 EQU DSDREC+61 01239000 DSDKPNUM EQU DSDKPID+3 01240000 DSDKPREF EQU DSDKPID 01241000 DSDKMEMN EQU DSDKDSNM+44 01242000 DSDKDSN EQU DSDKDSNM 01243000 @NM00010 EQU DSC+8 01244000 @NM00009 EQU DSC+7 01245000 DSCQF8 EQU DSCQF 01246000 DSCQF7 EQU DSCQF 01247000 DSCQF6 EQU DSCQF 01248000 DSCQF5 EQU DSCQF 01249000 DSCQF4 EQU DSCQF 01250000 DSCQF3 EQU DSCQF 01251000 DSCQF2 EQU DSCQF 01252000 DSCQL EQU DSC+4 01253000 @NM00008 EQU PRN+8 01254000 @NM00007 EQU PRN+7 01255000 PRNIF8 EQU PRNIF 01256000 PRNIF7 EQU PRNIF 01257000 PRNIF6 EQU PRNIF 01258000 PRNIF5 EQU PRNIF 01259000 PRNIF4 EQU PRNIF 01260000 PRNIF3 EQU PRNIF 01261000 PRNIF2 EQU PRNIF 01262000 PRNIFP EQU PRNIF 01263000 PRNIL EQU PRN+4 01264000 @NM00006 EQU DSNS+24 01265000 @NM00005 EQU DSNS+23 01266000 DSNSPF8 EQU DSNSPF 01267000 DSNSPF7 EQU DSNSPF 01268000 DSNSPF6 EQU DSNSPF 01269000 DSNSPF5 EQU DSNSPF 01270000 DSNSPF4 EQU DSNSPF 01271000 DSNSPF3 EQU DSNSPF 01272000 DSNSPF2 EQU DSNSPF 01273000 DSNSPFP EQU DSNSPF 01274000 DSNSPL EQU DSNS+20 01275000 @NM00004 EQU DSNS+15 01276000 DSNSMF8 EQU DSNSMF 01277000 DSNSMF7 EQU DSNSMF 01278000 DSNSMF6 EQU DSNSMF 01279000 DSNSMF5 EQU DSNSMF 01280000 DSNSMF4 EQU DSNSMF 01281000 DSNSMF3 EQU DSNSMF 01282000 DSNSMF2 EQU DSNSMF 01283000 DSNSMFP EQU DSNSMF 01284000 DSNSML EQU DSNS+12 01285000 @NM00003 EQU DSNS+7 01286000 @NM00002 EQU DSNSDF 01287000 DSNSDFQ EQU DSNSDF 01288000 DSNSDFP EQU DSNSDF 01289000 DSNSDL EQU DSNS+4 01290000 PDL EQU PD+5 01291000 PDSP EQU PD+4 01292000 PDXP EQU PD+1 01293000 @NM00001 EQU PD 01294000 * END UNREFERENCED COMPONENTS 01295000 @RC00179 EQU @RC00178 01296000 @RC00184 EQU @RC00183 01297000 @RC00189 EQU @RC00188 01298000 @RC00174 EQU @RC00170 01299000 @RC00172 EQU @RC00170 01300000 @RC00227 EQU @EL00002 01301000 @RC00252 EQU @EL00002 01302000 @RC00176 EQU @RC00174 01303000 @RC00231 EQU @RC00227 01304000 @RF00193 EQU @RC00176 01305000 @RC00236 EQU @RC00231 01306000 @RC00239 EQU @RC00236 01307000 @ENDDATA EQU * 01308000 END BLSFOD00,(C'PLS2105',0701,78065) 01309000