TITLE 'IPCS DELETE DATA SET PROCESSOR *00001000 ' 00002000 * /* CHANGE ACTIVITY */ 00003000 *THIS MODULE WRITTEN FOR @G57LPGS 00004000 BLSFSCRT CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSFSCRT 78.065' 0002 00010000 DROP @15 00011000 @PROLOG STM @14,@12,12(@13) 0002 00012000 BALR @12,0 0002 00013000 @PSTART DS 0H 0002 00014000 USING @PSTART,@12 0002 00015000 L @00,@SIZDATD 0002 00016000 BLSUALLS R,LV=(0) 00017000 LR @11,@01 0002 00018000 USING @DATD,@11 0002 00019000 ST @13,@SA00001+4 0002 00020000 LM @00,@01,20(@13) 0002 00021000 ST @11,8(,@13) 0002 00022000 LR @13,@11 0002 00023000 MVC @PC00001(12),0(@01) 0002 00024000 EJECT 00025000 * 0133 00026000 */********************************************************************/ 00027000 */* */ 00028000 */* MAINLINE CODE */ 00029000 */* */ 00030000 */********************************************************************/ 00031000 * 0133 00032000 * ZZ2PTR=ADDR(ATV); /* SET ZZ2 ADDRESS */ 00033000 L ZZ2PTR,@PC00001 0133 00034000 * RESPECIFY 0134 00035000 * RF RESTRICTED; /* RESTRICT REG 15 FOR RETCODE SV*/ 00036000 * RESPECIFY 0135 00037000 * R0 RESTRICTED; /* RESTRICT REG 0 FOR MSG SAVE */ 00038000 * RESPECIFY 0136 00039000 * R1 RESTRICTED; /* RESTRICT REG1 FOR INFO CODE SV*/ 00040000 * SRCDSTYP=SRCDSTYP&&SRCDSTYP; /* CLEAR DSORG SAVE AREA */ 00041000 XC SRCDSTYP(2),SRCDSTYP 0137 00042000 * MSGPTR=ZERO; /* ZERO THE MESSAGE POINTER */ 00043000 SLR @14,@14 0138 00044000 ST @14,MSGPTR 0138 00045000 * DO SRCDSNLN=ONE TO LENGTH(SRCDSN) WHILE(SRCDSN(SRCDSNLN))^=BLANK; 00046000 LA @14,1 0139 00047000 ST @14,SRCDSNLN 0139 00048000 @DL00139 L @10,@PC00001+4 0139 00049000 ALR @10,@14 0139 00050000 BCTR @10,0 0139 00051000 CLI SRCDSN(@10),C' ' 0139 00052000 BE @DC00139 0139 00053000 * /* FIND FIRST BLANK */ 00054000 * END; /* END DSN LENGTH LOOP */ 00055000 AL @14,@CF00046 0140 00056000 ST @14,SRCDSNLN 0140 00057000 C @14,@CF00091 0140 00058000 BNH @DL00139 0140 00059000 @DC00139 DS 0H 0141 00060000 * SRCDSNLN=SRCDSNLN-ONE; /* MINUS ONE FOR TRUE LENGTH */ 00061000 L @14,SRCDSNLN 0141 00062000 BCTR @14,0 0141 00063000 ST @14,SRCDSNLN 0141 00064000 * DO SRCPASWL=ONE TO LENGTH(SRCPASWD) WHILE(SRCPASWD(SRCPASWL))^= 00065000 * BLANK; /* FIND FIRST BLANK */ 00066000 LA @14,1 0142 00067000 ST @14,SRCPASWL 0142 00068000 @DL00142 L @10,@PC00001+8 0142 00069000 ALR @10,@14 0142 00070000 BCTR @10,0 0142 00071000 CLI SRCPASWD(@10),C' ' 0142 00072000 BE @DC00142 0142 00073000 * END; /* END DSN LENGTH LOOP */ 00074000 AL @14,@CF00046 0143 00075000 ST @14,SRCPASWL 0143 00076000 C @14,@CF00054 0143 00077000 BNH @DL00142 0143 00078000 @DC00142 DS 0H 0144 00079000 * SRCPASWL=SRCPASWL-ONE; /* MINUS ONE FOR TRUE LENGTH */ 00080000 L @14,SRCPASWL 0144 00081000 BCTR @14,0 0144 00082000 ST @14,SRCPASWL 0144 00083000 * RETCODE=ZERO; /* INITIALIZE THE RETURN CODE */ 00084000 SLR RETCODE,RETCODE 0145 00085000 * IF SRCMEMNM=BLANK8 THEN /* IS THE MEMBER NAME BLANK */ 00086000 L @14,@PC00001+4 0146 00087000 CLC SRCMEMNM(8,@14),@CC00105 0146 00088000 BNE @RF00146 0146 00089000 * DO; /* YES, CONTINUE */ 00090000 * CALL VALIDATE; /* CHECK IF DSN IS OF CORRECT TYP*/ 00091000 BAL @14,VALIDATE 0148 00092000 * IF RETCODE=ZERO THEN /* IS DELETE ALLOWED */ 00093000 LTR RETCODE,RETCODE 0149 00094000 BNZ @RF00149 0149 00095000 * DO; /* YES, CONTINUE */ 00096000 * CALL ALLOCATE; /* GO ALLOCATE THE DATA SET */ 00097000 BAL @14,ALLOCATE 0151 00098000 * IF RETCODE=ZERO THEN /* DID ALLOCATE WORK */ 00099000 LTR RETCODE,RETCODE 0152 00100000 BNZ @RF00152 0152 00101000 * DO; /* YES, ALL OK CONTINUE */ 00102000 * CALL SCRATCH; /* GO SCRATCH THE INPUT DS */ 00103000 BAL @14,SCRATCH 0154 00104000 * IF RETCODE^=ZERO THEN/* ANY ERRORS SCRATCHING */ 00105000 LTR RETCODE,RETCODE 0155 00106000 BZ @RF00155 0155 00107000 * CALL MSGPUT; /* YES, OUTPUT MESSAGES */ 00108000 BAL @14,MSGPUT 0156 00109000 * ELSE /* ALL WORKED OK, SET RC = 4 INIT*/ 00110000 * IF INITDUMP=YES THEN/* IS THIS AN INIT DUMP REQUEST*/ 00111000 B @RC00155 0157 00112000 @RF00155 CLC INITDUMP(3),@CC01324 0157 00113000 BNE @RF00157 0157 00114000 * RETCODE=FOUR; /* YES, SET RC = 4 FOR INIT OK */ 00115000 LA RETCODE,4 0158 00116000 * END; /* END ALLOCATE OK */ 00117000 * ELSE /* ALLOCATE FAILED */ 00118000 * CALL MSGPUT; /* OUTPUT MSEEAGES AS NEEDED */ 00119000 B @RC00152 0160 00120000 @RF00152 BAL @14,MSGPUT 0160 00121000 * END; /* END VALID DS NAME */ 00122000 * END; /* END MEMBER NAME BLANK */ 00123000 * ELSE /* MEMBER NAME NOT BLANK ERROR */ 00124000 * DO; /* ISSUE MESSAGE AND SET RET CODE*/ 00125000 B @RC00146 0163 00126000 @RF00146 DS 0H 0164 00127000 * DO; /* BLSDMSG 0164 00128000 * (ZZ2,SCRMEM,MSGPTR,BLSDMSGS) 00129000 * FIFO ROUTE(TERM)INSERT(SRCMEMN 00130000 * M,SRCDSN)COMP */ 00131000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00132000 LA @14,IOPTLIST+12 0165 00133000 ST @14,IOPTLIST 0165 00134000 * IOPTLIST(2)=ADDR(SRCMEMNM);/* INSERT NAME POINTER */ 00135000 L @14,@PC00001+4 0166 00136000 LA @10,SRCMEMNM(,@14) 0166 00137000 ST @10,IOPTLIST+4 0166 00138000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00139000 SLR @10,@10 0167 00140000 ST @10,IOPTLIST+8 0167 00141000 * RFY 0168 00142000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00143000 * I015F=LENGTH(SRCMEMNM); /* INSERT LENGTH */ 00144000 LA @07,IOPTLIST+8 0169 00145000 MVC I015F(2,@07),@CH00054 0169 00146000 * IOPTLIST(4)=0; /* LAST INSERT */ 00147000 ST @10,IOPTLIST+12 0170 00148000 * IOPTLIST(5)=ADDR(SRCDSN); /* INSERT NAME POINTER */ 00149000 ST @14,IOPTLIST+16 0171 00150000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00151000 ST @10,IOPTLIST+20 0172 00152000 * RFY 0173 00153000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00154000 * I015F=LENGTH(SRCDSN); /* INSERT LENGTH */ 00155000 LA @14,IOPTLIST+20 0174 00156000 MVC I015F(2,@14),@CH00091 0174 00157000 * CALL BLSDMSG0(ZZ2,SCRMEM,MSGPTR,BLSDMSGS,'00010000'B,ADDR( 00158000 * IOPTLIST)); /* BUILD MESSAGE */ 00159000 ST ZZ2PTR,@AL00001 0175 00160000 LA @14,@CF01340 0175 00161000 ST @14,@AL00001+4 0175 00162000 LA @14,MSGPTR 0175 00163000 ST @14,@AL00001+8 0175 00164000 L @14,ZZ2MSGSP(,ZZ2PTR) 0175 00165000 ST @14,@AL00001+12 0175 00166000 LA @14,@CB01395 0175 00167000 ST @14,@AL00001+16 0175 00168000 LA @14,IOPTLIST 0175 00169000 ST @14,@AFTEMPS+12 0175 00170000 LA @14,@AFTEMPS+12 0175 00171000 ST @14,@AL00001+20 0175 00172000 L @15,ZZ2MSG0P(,ZZ2PTR) 0175 00173000 LA @01,@AL00001 0175 00174000 BALR @14,@15 0175 00175000 * END; /* BLSDMSG 0176 00176000 * (ZZ2,SCRMEM,MSGPTR,BLSDMSGS) 00177000 * FIFO ROUTE(TERM)INSERT(SRCMEMN 00178000 * M,SRCDSN)COMP MSG MEMBER 0176 00179000 * SCRATCH ATTEMPTED */ 00180000 * RETCODE=TWELVE; /* SHOW ERROR RETURN CODE */ 00181000 LA RETCODE,12 0177 00182000 * END; /* END MEMBER NAME NOT BLANK */ 00183000 * RETURN CODE(RETCODE); 0179 00184000 @RC00146 L @13,4(,@13) 0179 00185000 L @00,@SIZDATD 0179 00186000 LR @01,@11 0179 00187000 BLSUFRES R,LV=(0),A=(1) 00188000 LR @15,@05 0179 00189000 L @14,12(,@13) 0179 00190000 LM @00,@12,20(@13) 0179 00191000 BR @14 0179 00192000 EJECT 00193000 * 0180 00194000 */********************************************************************/ 00195000 */* */ 00196000 */* ALLOCATE - ALLOCATE THE INPUT DATA SET */ 00197000 */* */ 00198000 */********************************************************************/ 00199000 * 0180 00200000 *ALLOCATE: 0180 00201000 * PROCEDURE; /* PROC TO ALLOCATE THE DATA SET */ 00202000 ALLOCATE STM @14,@04,@SA00002 0180 00203000 STM @06,@12,@SA00002+28 0180 00204000 * RETCODE=ZERO; /* SET INITIAL RETURN CODE */ 00205000 SLR RETCODE,RETCODE 0181 00206000 */* BLSALLOC (ZZ2,INDSDMCB,RDQSAMDS,ACMODE) DSN(SRCDSNLN,SRCDSN)DISP(OL 00207000 *,KEEP)PASSWORD(SRCPASWL,SRCPASWD) */ 00208000 * 0182 00209000 * DO; /* BLSALLOC 0182 00210000 * (ZZ2,INDSDMCB,RDQSAMDS,ACMODE) 00211000 * DSN(SRCDSNLN,SRCDSN)DISP(OLD,K 00212000 * EEP)PASSWORD(SRCPASWL,SRCPASWD 00213000 * ) */ 00214000 * IOPTLIST(1)=ADDR(ZZ2); /* ZZ2 POINTER PARAMETER */ 00215000 ST ZZ2PTR,IOPTLIST 0183 00216000 * IOPTLIST(2)=ADDR(INDSDMCB); /* DMCB POINTER PARAMETER */ 00217000 LA @14,INDSDMCB 0184 00218000 ST @14,IOPTLIST+4 0184 00219000 * IOPTLIST(3)=ADDR(RDQSAMDS); /* MODEL NAME PARAMETER */ 00220000 LA @14,@CC01328 0185 00221000 ST @14,IOPTLIST+8 0185 00222000 * IOPTLIST(4)=ADDR(ACMODE); /* MAXIMUM ACCESS PARAMETER */ 00223000 LA @14,@CH00073+1 0186 00224000 ST @14,IOPTLIST+12 0186 00225000 * IOPTLIST(5)=ADDR(DMCBALOC); /* INDICATE ALLOCATE REQUEST */ 00226000 LA @14,@CB00892 0187 00227000 ST @14,IOPTLIST+16 0187 00228000 * IOPTLIST(6)='02000000'X; /* 'DSN' KEY */ 00229000 MVC IOPTLIST+20(4),@CF01399 0188 00230000 * IOPTLIST(7)=ADDR(SRCDSNLN); /* 'DSN' LENGTH */ 00231000 LA @14,SRCDSNLN 0189 00232000 ST @14,IOPTLIST+24 0189 00233000 * IOPTLIST(8)=ADDR(SRCDSN); /* 'DSN' TEXT */ 00234000 L @14,@PC00001+4 0190 00235000 ST @14,IOPTLIST+28 0190 00236000 * IOPTLIST(9)='50000000'X; /* 'PASSWORD' KEY */ 00237000 MVC IOPTLIST+32(4),@CF01400 0191 00238000 * IOPTLIST(10)=ADDR(SRCPASWL); /* 'PASSWORD' LENGTH */ 00239000 LA @14,SRCPASWL 0192 00240000 ST @14,IOPTLIST+36 0192 00241000 * IOPTLIST(11)=ADDR(SRCPASWD); /* 'PASSWORD' TEXT */ 00242000 L @14,@PC00001+8 0193 00243000 ST @14,IOPTLIST+40 0193 00244000 * IOPTLIST(12)='04000001'X; /* 'DISP' KEY, STATUS='OLD' */ 00245000 MVC IOPTLIST+44(4),@CF01401 0194 00246000 * IOPTLIST(13)='05000008'X; /* 'DISP' KEY, NORMAL DISP='KEEP'*/ 00247000 L @14,@CF01402 0195 00248000 ST @14,IOPTLIST+48 0195 00249000 * IOPTLIST(13)=IOPTLIST(13)|'80000000'X;/* PLIST END MARKER */ 00250000 O @14,@CF00066 0196 00251000 ST @14,IOPTLIST+48 0196 00252000 * RFY 0197 00253000 * (GPR01P, 0197 00254000 * GPR15P) RSTD; 0197 00255000 * GPR01P=ADDR(IOPTLIST); /* POINT REGISTER 1 TO PLIST */ 00256000 LA GPR01P,IOPTLIST 0198 00257000 * GPR15P=ZZ2ALOCP; /* BLSCALOC ENTRY POINT */ 00258000 L GPR15P,ZZ2ALOCP(,ZZ2PTR) 0199 00259000 * CALL GPR15P->DMCBDMGR; /* PERFORM DATA SET ALLOCATION */ 00260000 BALR @14,@15 0200 00261000 * RFY 0201 00262000 * (GPR01P, 0201 00263000 * GPR15P) UNRSTD; 0201 00264000 * END; /* BLSALLOC 0202 00265000 * (ZZ2,INDSDMCB,RDQSAMDS,ACMODE) 00266000 * DSN(SRCDSNLN,SRCDSN)DISP(OLD,K 00267000 * EEP)PASSWORD(SRCPASWL,SRCPASWD 00268000 * ) */ 00269000 * RETCODE=RF; /* SAVE THE RETURN CODE */ 00270000 LR RETCODE,RF 0203 00271000 * MSGPTR=R0; /* SAVE ANY MESSAGES FROM ALLOC */ 00272000 ST R0,MSGPTR 0204 00273000 * IF RETCODE=ZERO|RETCODE=FOUR THEN/* DID ALLOCATE WORK */ 00274000 LTR RETCODE,RETCODE 0205 00275000 BZ @RT00205 0205 00276000 C RETCODE,@CF00043 0205 00277000 BNE @RF00205 0205 00278000 @RT00205 DS 0H 0206 00279000 * DO; /* YES, CALL COPY */ 00280000 * IF RETCODE=FOUR THEN /* ANY MESSAGES FROM ALLOCATE */ 00281000 C RETCODE,@CF00043 0207 00282000 BNE @RF00207 0207 00283000 * DO; /* YES, OUTPUT BEFORE DOING COPY */ 00284000 * DO; /* BLSDMSG 0209 00285000 * (ZZ2,MINUSONE,MSGPTR,BLSDMSGS) 00286000 * ROUTE(TERM) */ 00287000 * CALL BLSDMSG0(ZZ2,MINUSONE,MSGPTR,BLSDMSGS,'00010000'B,0) 00288000 * ; /* BUILD MESSAGE */ 00289000 ST ZZ2PTR,@AL00001 0210 00290000 LA @14,@CF01354 0210 00291000 ST @14,@AL00001+4 0210 00292000 LA @14,MSGPTR 0210 00293000 ST @14,@AL00001+8 0210 00294000 L @14,ZZ2MSGSP(,ZZ2PTR) 0210 00295000 ST @14,@AL00001+12 0210 00296000 LA @14,@CB01395 0210 00297000 ST @14,@AL00001+16 0210 00298000 LA @14,@CF00051 0210 00299000 ST @14,@AL00001+20 0210 00300000 L @15,ZZ2MSG0P(,ZZ2PTR) 0210 00301000 LA @01,@AL00001 0210 00302000 BALR @14,@15 0210 00303000 * END; /* BLSDMSG 0211 00304000 * (ZZ2,MINUSONE,MSGPTR,BLSDMSGS) 00305000 * ROUTE(TERM) ISSUE MSG */ 00306000 * RETCODE=ZERO; /* SET RETURN CODE OF ZERO ALLOC */ 00307000 SLR RETCODE,RETCODE 0212 00308000 * END; /* END ALLOC RET CODE 4 PROCESS */ 00309000 * SRCDSTYP=DMCBDSOR; /* SAVE DS ORG FOR FREE ERROR */ 00310000 @RF00207 L @14,INDSDMCB 0214 00311000 MVC SRCDSTYP(2),DMCBDSOR(@14) 0214 00312000 * IF DMCBDSOR=VSAM THEN /* IS INPUT DATA SET VSAM */ 00313000 CLC DMCBDSOR(2,@14),@CB01338 0215 00314000 BNE @RF00215 0215 00315000 * DMCBVSF=ON; /* TURN ON VSAM FLAG FOR FREE */ 00316000 OI DMCBVSF(@14),B'00000001' 0216 00317000 * END; /* END ALLOC OK LEG */ 00318000 * ELSE /* ALLOC FAILED FOR INPUT DS */ 00319000 * DO; /* DO ERROR PROCESSING */ 00320000 B @RC00205 0218 00321000 @RF00205 DS 0H 0219 00322000 * IF RETCODE=TWELVE THEN /* DISASTER IN ALLOCATE */ 00323000 C RETCODE,@CF00035 0219 00324000 BNE @RF00219 0219 00325000 * DO; /* DIAGNOSE AND EXIT */ 00326000 * MSGPTR=ZERO; /* CLEAR MESSAGE -> */ 00327000 SLR @14,@14 0221 00328000 ST @14,MSGPTR 0221 00329000 * END; 0222 00330000 * RETCODE=MAX(RETCODE,TWELVE);/* INDICATE ALLOC FAILURE */ 00331000 @RF00219 LA @14,12 0223 00332000 CR RETCODE,@14 0223 00333000 BNL *+6 00334000 LR RETCODE,@14 0223 00335000 * END; /* END OF ERROR PROCESSING */ 00336000 * END ALLOCATE; /* END OF ALLOCATE ROUTINE */ 00337000 @EL00002 DS 0H 0225 00338000 @EF00002 DS 0H 0225 00339000 @ER00002 LM @14,@04,@SA00002 0225 00340000 LM @06,@12,@SA00002+28 0225 00341000 BR @14 0225 00342000 EJECT 00343000 * 0226 00344000 */********************************************************************/ 00345000 */* */ 00346000 */* SCRATCH - SCRATCH THE INPUT DATA SET */ 00347000 */* */ 00348000 */********************************************************************/ 00349000 * 0226 00350000 *SCRATCH: 0226 00351000 * PROCEDURE; 0226 00352000 SCRATCH STM @14,@04,@SA00003 0226 00353000 STM @06,@12,@SA00003+28 0226 00354000 * IF INITDUMP=YES THEN /* SYS1.DUMP DS TO INIT PROCESS A 00355000 * SYS1.DUMPNN */ 00356000 CLC INITDUMP(3),@CC01324 0227 00357000 BNE @RF00227 0227 00358000 * DO; /* YES, WRITE EOF TO DELETE */ 00359000 * IF DMCBDSOR=PS|DMCBDSOR=PSU THEN/* IS DSORG OK FOR DUMP */ 00360000 L @14,INDSDMCB 0229 00361000 CLC DMCBDSOR(2,@14),@CB01334 0229 00362000 BE @RT00229 0229 00363000 CLC DMCBDSOR(2,@14),@CB01336 0229 00364000 BNE @RF00229 0229 00365000 @RT00229 DS 0H 0230 00366000 * DO; /* YES, CONTINUE */ 00367000 * RESPECIFY 0231 00368000 * R2 RESTRICTED; /* RESTRICT REG2 FOR DEVTYPE */ 00369000 * R2=ADDR(DMCBDDNM); /* GET ADDRESS OF DDNAME */ 00370000 L R2,INDSDMCB 0232 00371000 LA R2,DMCBDDNM(,R2) 0232 00372000 * ANSRADDR=ADDR(DTYPANSR);/* ADDRESS OF DEVTYPE ANSWERAREA */ 00373000 LA ANSRADDR,DTYPANSR 0233 00374000 * GEN REFS(R2,DTYPANSR) SETS(DTYPANSR); 0234 00375000 DEVTYPE (2),DTYPANSR ISSUE DEVTYPE TO GET UCBTYPE3 00376000 * RESPECIFY 0235 00377000 * R2 UNRESTRICTED; /* FREE REG 2 TO COMPILER */ 00378000 * RETCODE=RF; /* SAVE THE RETURN CODE */ 00379000 LR RETCODE,RF 0236 00380000 * IF RETCODE=ZERO THEN /* WAS DEVTYPE OK */ 00381000 LTR RETCODE,RETCODE 0237 00382000 BNZ @RF00237 0237 00383000 * DO; /* YES, CONTINUE */ 00384000 * UCBPTR=ANSRADDR-((ADDR(UCBTYP))-(ADDR(UCBOB)));/* 0239 00385000 * UCBTYP MAPS ANSWER AREA FIRST 00386000 * 4 BYTES */ 00387000 LR @14,ANSRADDR 0239 00388000 SL @14,@CF00057 0239 00389000 LR UCBPTR,@14 0239 00390000 * IF UCB3DACC=ON THEN /* IS IT A DIRECT ACCESS DEV */ 00391000 TM UCB3DACC(UCBPTR),B'00100000' 0240 00392000 BNO @RF00240 0240 00393000 * DO; /* YES, WRITE AN EOF TO DELETE */ 00394000 * DO; /* BLSOPEN(INDSDMCB)OUTPUT */ 00395000 * RFY 0243 00396000 * GPR01P RSTD; 0243 00397000 * GPR01P=INDSDMCB;/* ADDRESS DMCB */ 00398000 L GPR01P,INDSDMCB 0244 00399000 * RFY 0245 00400000 * DMCB BASED(GPR01P); 0245 00401000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB'/* 00402000 * VALID DMCB ? */ 00403000 * THEN 0246 00404000 LR @14,GPR01P 0246 00405000 N @14,@CF01410 0246 00406000 CLR @14,GPR01P 0246 00407000 BNE @RF00246 0246 00408000 CLC DMCBID(4,GPR01P),@CC01411 0246 00409000 BNE @RF00246 0246 00410000 * DO; 0247 00411000 * DMCBRQST=DMCBOPR;/* INDICATE OPEN REQUEST */ 00412000 MVI DMCBRQST(GPR01P),X'01' 0248 00413000 * DMCBOUT='1'B;/* INDICATE OPEN FOR OUTPUR */ 00414000 OI DMCBOUT(GPR01P),B'10000000' 0249 00415000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 00416000 L @15,DMCBRI(,GPR01P) 0250 00417000 BALR @14,@15 0250 00418000 * END; 0251 00419000 * ELSE 0252 00420000 * DO; 0252 00421000 B @RC00246 0252 00422000 @RF00246 DS 0H 0253 00423000 * RFY 0253 00424000 * (GPR00F, 0253 00425000 * GPR15F) RSTD; 0253 00426000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00427000 SLR GPR00F,GPR00F 0254 00428000 * GPR15F=16;/* INDICATE INVALID DMCB */ 00429000 LA GPR15F,16 0255 00430000 * RFY 0256 00431000 * (GPR00F, 0256 00432000 * GPR15F); 0256 00433000 * END; 0257 00434000 * RFY 0258 00435000 * DMCB; 0258 00436000 @RC00246 DS 0H 0259 00437000 * RFY 0259 00438000 * GPR01P; 0259 00439000 * END; /* BLSOPEN(INDSDMCB)OUTPUT OPEN 00440000 * FOR OUTPUT */ 00441000 * RETCODE=RF; /* SAVE THE RETURN CODE */ 00442000 LR RETCODE,RF 0261 00443000 * MSGPTR=R0; /* SAVE ANY MESSAGES GENERATED */ 00444000 ST R0,MSGPTR 0262 00445000 * IF RETCODE=ZERO THEN/* WAS IT OPENED OK */ 00446000 LTR RETCODE,RETCODE 0263 00447000 BNZ @RF00263 0263 00448000 * DO; /* YES */ 00449000 * DO; /* BLSCLOSE(INDSDMCB) */ 00450000 * RFY 0266 00451000 * GPR01P RSTD; 0266 00452000 * GPR01P=INDSDMCB;/* ADDRESS THE DMCB */ 00453000 L GPR01P,INDSDMCB 0267 00454000 * RFY 0268 00455000 * DMCB BASED(GPR01P); 0268 00456000 * IF((GPR01P&'FFFFFFF8'X)=GPR01P)&DMCBID='DMCB' 00457000 * /* VALID DMCB ? */ 00458000 * THEN 0269 00459000 LR @14,GPR01P 0269 00460000 N @14,@CF01410 0269 00461000 CLR @14,GPR01P 0269 00462000 BNE @RF00269 0269 00463000 CLC DMCBID(4,GPR01P),@CC01411 0269 00464000 BNE @RF00269 0269 00465000 * DO; 0270 00466000 * DMCBRQST=DMCBCLR;/* INDICATE CLOSE 0271 00467000 * REQUEST */ 00468000 MVI DMCBRQST(GPR01P),X'02' 0271 00469000 * DMCBTMP='0'B;/* INDICATE NON TEMP CLOSE*/ 00470000 * DMCBRM6='0'B;/* INDICATE */ 00471000 * DMCBRM5='0'B;/* DISP OPTION */ 00472000 NI DMCBTMP(GPR01P),B'00011111' 0274 00473000 * CALL DMCBRI->DMCBDMGR;/* CALL BLSCRQST */ 00474000 L @15,DMCBRI(,GPR01P) 0275 00475000 BALR @14,@15 0275 00476000 * END; 0276 00477000 * ELSE 0277 00478000 * DO; 0277 00479000 B @RC00269 0277 00480000 @RF00269 DS 0H 0278 00481000 * RFY 0278 00482000 * (GPR00F, 0278 00483000 * GPR15F) RSTD; 0278 00484000 * GPR00F=0;/* INDICATE NO MESSAGE CHAIN */ 00485000 SLR GPR00F,GPR00F 0279 00486000 * GPR15F=16;/* INDICATE INVALID DMCB */ 00487000 LA GPR15F,16 0280 00488000 * RFY 0281 00489000 * (GPR00F, 0281 00490000 * GPR15F); 0281 00491000 * END; 0282 00492000 * RFY 0283 00493000 * DMCB; 0283 00494000 @RC00269 DS 0H 0284 00495000 * RFY 0284 00496000 * GPR01P; 0284 00497000 * END; /* BLSCLOSE(INDSDMCB) WRITE THE 00498000 * EOF */ 00499000 * RETCODE=RF; /* SAVE THE RETURN CODE */ 00500000 LR RETCODE,RF 0286 00501000 * MSGPTR=R0; /* SAVE ANY MESSAGES */ 00502000 ST R0,MSGPTR 0287 00503000 * IF RETCODE=ZERO|RETCODE=FOUR THEN/* DMCB ADR 00504000 * VAL */ 00505000 LTR RETCODE,RETCODE 0288 00506000 BZ @RT00288 0288 00507000 C RETCODE,@CF00043 0288 00508000 BNE @RF00288 0288 00509000 @RT00288 DS 0H 0289 00510000 * DO; /* YES, FREE DS */ 00511000 * IF RETCODE=FOUR THEN/* ANY MSGS FROM 0290 00512000 * CLOSE */ 00513000 C RETCODE,@CF00043 0290 00514000 BNE @RF00290 0290 00515000 * CALL FREEKEEP;/* FREE DSN WITH DISP = 00516000 * KEEP */ 00517000 BAL @14,FREEKEEP 0291 00518000 * END; /* END CLOSE OK */ 00519000 * END; /* END OPEN OUTPUT OK */ 00520000 * ELSE /* OPEN FAILED */ 00521000 * DO; /* BEGIN OPEN ERROR PROCESSING */ 00522000 B @RC00263 0294 00523000 @RF00263 DS 0H 0295 00524000 * IF RETCODE=EIGHT|RETCODE=TWELVE THEN/* MSGS 00525000 * TO OUT */ 00526000 C RETCODE,@CF00054 0295 00527000 BE @RT00295 0295 00528000 C RETCODE,@CF00035 0295 00529000 BNE @RF00295 0295 00530000 @RT00295 DS 0H 0296 00531000 * DO; /* YES, OUTPUT MSGS */ 00532000 * END; /* END RETC = 8 | 12 */ 00533000 * RETCODE=MAX(RETCODE,TWELVE);/* INDICATE ERROR 00534000 * RET */ 00535000 @RF00295 LA @14,12 0298 00536000 CR RETCODE,@14 0298 00537000 BNL *+6 00538000 LR RETCODE,@14 0298 00539000 * END; /* END OPEN ERROR */ 00540000 * END; /* END DEV TYPE = DA */ 00541000 * ELSE /* JUST FREE WITH DISP = DELETE */ 00542000 * DO; /* MSG USER AND FREE WITH KEEP */ 00543000 B @RC00240 0301 00544000 @RF00240 DS 0H 0302 00545000 * DO; /* BLSDMSG 0302 00546000 * (ZZ2,BADDMPDT,MSGPTR,BLSDMSGS) 00547000 * FIFO INSERT((SRCDSN,SRCDSNLN))*/ 00548000 * IOPTLIST(1)=0;/* LAST INSERT */ 00549000 SLR @14,@14 0303 00550000 ST @14,IOPTLIST 0303 00551000 * IOPTLIST(2)=ADDR(SRCDSN);/* INSERT NAME POINTER*/ 00552000 L @10,@PC00001+4 0304 00553000 ST @10,IOPTLIST+4 0304 00554000 * IOPTLIST(3)=0;/* ZERO RESERVED FIELD */ 00555000 ST @14,IOPTLIST+8 0305 00556000 * RFY 0306 00557000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS 0306 00558000 * BYTES 1-2 */ 00559000 * I015F=SRCDSNLN;/* INSERT LENGTH */ 00560000 LA @14,IOPTLIST+8 0307 00561000 L @10,SRCDSNLN 0307 00562000 STH @10,I015F(,@14) 0307 00563000 * CALL BLSDMSG0(ZZ2,BADDMPDT,MSGPTR,BLSDMSGS, 0308 00564000 * '00000000'B,ADDR(IOPTLIST));/* BUILD 0308 00565000 * MESSAGE */ 00566000 ST ZZ2PTR,@AL00001 0308 00567000 LA @14,@CF01346 0308 00568000 ST @14,@AL00001+4 0308 00569000 LA @14,MSGPTR 0308 00570000 ST @14,@AL00001+8 0308 00571000 L @14,ZZ2MSGSP(,ZZ2PTR) 0308 00572000 ST @14,@AL00001+12 0308 00573000 LA @14,@CB01418 0308 00574000 ST @14,@AL00001+16 0308 00575000 LA @14,IOPTLIST 0308 00576000 ST @14,@AFTEMPS 0308 00577000 LA @14,@AFTEMPS 0308 00578000 ST @14,@AL00001+20 0308 00579000 L @15,ZZ2MSG0P(,ZZ2PTR) 0308 00580000 LA @01,@AL00001 0308 00581000 BALR @14,@15 0308 00582000 * END; /* BLSDMSG 0309 00583000 * (ZZ2,BADDMPDT,MSGPTR,BLSDMSGS) 00584000 * FIFO INSERT((SRCDSN,SRCDSNLN)) 00585000 * MESSAGE BAD DEVICE TYPE */ 00586000 * CALL FREEKEEP; /* GO FREE DS WITH DISP = KEEP */ 00587000 BAL @14,FREEKEEP 0310 00588000 * RETCODE=TWELVE; /* SHOW ERROR RETURN CODE */ 00589000 LA RETCODE,12 0311 00590000 * END; /* END DEVICE TYPE BAD */ 00591000 * END; /* END DEV TYPE MACRO OK */ 00592000 * ELSE /* DEVICE TYPE MACRO FAILED */ 00593000 * DO; /* MSG USER OF ERROR AND FREE DS */ 00594000 B @RC00237 0314 00595000 @RF00237 DS 0H 0315 00596000 * DO; /* BLSDMSG 0315 00597000 * (ZZ2,DEVTYERR,MSGPTR,BLSDMSGS) 00598000 * FIFO INSERT((SRCDSN,SRCDSNLN))*/ 00599000 * IOPTLIST(1)=0; /* LAST INSERT */ 00600000 SLR @14,@14 0316 00601000 ST @14,IOPTLIST 0316 00602000 * IOPTLIST(2)=ADDR(SRCDSN);/* INSERT NAME POINTER */ 00603000 L @10,@PC00001+4 0317 00604000 ST @10,IOPTLIST+4 0317 00605000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00606000 ST @14,IOPTLIST+8 0318 00607000 * RFY 0319 00608000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 0319 00609000 * 1-2 */ 00610000 * I015F=SRCDSNLN; /* INSERT LENGTH */ 00611000 LA @14,IOPTLIST+8 0320 00612000 L @10,SRCDSNLN 0320 00613000 STH @10,I015F(,@14) 0320 00614000 * CALL BLSDMSG0(ZZ2,DEVTYERR,MSGPTR,BLSDMSGS,'00000000' 00615000 * ,ADDR(IOPTLIST));/* BUILD MESSAGE */ 00616000 ST ZZ2PTR,@AL00001 0321 00617000 LA @14,@CF01348 0321 00618000 ST @14,@AL00001+4 0321 00619000 LA @14,MSGPTR 0321 00620000 ST @14,@AL00001+8 0321 00621000 L @14,ZZ2MSGSP(,ZZ2PTR) 0321 00622000 ST @14,@AL00001+12 0321 00623000 LA @14,@CB01418 0321 00624000 ST @14,@AL00001+16 0321 00625000 LA @14,IOPTLIST 0321 00626000 ST @14,@AFTEMPS 0321 00627000 LA @14,@AFTEMPS 0321 00628000 ST @14,@AL00001+20 0321 00629000 L @15,ZZ2MSG0P(,ZZ2PTR) 0321 00630000 LA @01,@AL00001 0321 00631000 BALR @14,@15 0321 00632000 * END; /* BLSDMSG 0322 00633000 * (ZZ2,DEVTYERR,MSGPTR,BLSDMSGS) 00634000 * FIFO INSERT((SRCDSN,SRCDSNLN)) 00635000 * ISSUE DEV TYPE MACRO ER MSG */ 00636000 * CALL FREEKEEP; /* FREE INPUT DS WITH DISP = KEEP*/ 00637000 BAL @14,FREEKEEP 0323 00638000 * RETCODE=MAX(RETCODE,TWELVE);/* SHOW ERROR RETURN */ 00639000 LA @14,12 0324 00640000 CR RETCODE,@14 0324 00641000 BNL *+6 00642000 LR RETCODE,@14 0324 00643000 * END; /* END DEV TYPE MACRO FAILED */ 00644000 * END; /* END DSORG OK */ 00645000 * ELSE /* DSORG NOT PS OR PSU */ 00646000 * DO; /* ISSUE MSG AND RETURN CODE EXIT*/ 00647000 B @RC00229 0327 00648000 @RF00229 DS 0H 0328 00649000 * DO; /* BLSDMSG 0328 00650000 * (ZZ2,BADDMPOR,MSGPTR,BLSDMSGS) 00651000 * FIFO INSERT((SRCDSN,SRCDSNLN))*/ 00652000 * IOPTLIST(1)=0; /* LAST INSERT */ 00653000 SLR @14,@14 0329 00654000 ST @14,IOPTLIST 0329 00655000 * IOPTLIST(2)=ADDR(SRCDSN);/* INSERT NAME POINTER */ 00656000 L @10,@PC00001+4 0330 00657000 ST @10,IOPTLIST+4 0330 00658000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00659000 ST @14,IOPTLIST+8 0331 00660000 * RFY 0332 00661000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00662000 * I015F=SRCDSNLN; /* INSERT LENGTH */ 00663000 LA @14,IOPTLIST+8 0333 00664000 L @10,SRCDSNLN 0333 00665000 STH @10,I015F(,@14) 0333 00666000 * CALL BLSDMSG0(ZZ2,BADDMPOR,MSGPTR,BLSDMSGS,'00000000'B, 00667000 * ADDR(IOPTLIST)); /* BUILD MESSAGE */ 00668000 ST ZZ2PTR,@AL00001 0334 00669000 LA @14,@CF01344 0334 00670000 ST @14,@AL00001+4 0334 00671000 LA @14,MSGPTR 0334 00672000 ST @14,@AL00001+8 0334 00673000 L @14,ZZ2MSGSP(,ZZ2PTR) 0334 00674000 ST @14,@AL00001+12 0334 00675000 LA @14,@CB01418 0334 00676000 ST @14,@AL00001+16 0334 00677000 LA @14,IOPTLIST 0334 00678000 ST @14,@AFTEMPS 0334 00679000 LA @14,@AFTEMPS 0334 00680000 ST @14,@AL00001+20 0334 00681000 L @15,ZZ2MSG0P(,ZZ2PTR) 0334 00682000 LA @01,@AL00001 0334 00683000 BALR @14,@15 0334 00684000 * END; /* BLSDMSG 0335 00685000 * (ZZ2,BADDMPOR,MSGPTR,BLSDMSGS) 00686000 * FIFO INSERT((SRCDSN,SRCDSNLN)) 00687000 * MSG USER INVALID DSORG */ 00688000 * RETCODE=TWELVE; /* SHOW ERROR RETURN */ 00689000 LA RETCODE,12 0336 00690000 * CALL FREEKEEP; /* GO FREE THE DS */ 00691000 BAL @14,FREEKEEP 0337 00692000 * END; /* END DSORG NOT PS OR PSU */ 00693000 * END; /* END SYS1.DUMP PROCESS */ 00694000 * ELSE /* A NON SYS1.DUMP */ 00695000 * DO; 0340 00696000 B @RC00227 0340 00697000 @RF00227 DS 0H 0341 00698000 * DO; /* BLSFREE (INDSDMCB) DISP(DELETE 00699000 * )PASSWORD(SRCPASWL,SRCPASWD) */ 00700000 * IOPTLIST(1)='05000004'X; /* OVERRIDE DISP='DELETE' */ 00701000 MVC IOPTLIST(4),@CF01423 0342 00702000 * IOPTLIST(2)='50000000'X; /* 'PASSWORD' KEY */ 00703000 MVC IOPTLIST+4(4),@CF01400 0343 00704000 * IOPTLIST(3)=ADDR(SRCPASWL);/* 'PASSWORD' LENGTH */ 00705000 LA @14,SRCPASWL 0344 00706000 ST @14,IOPTLIST+8 0344 00707000 * IOPTLIST(4)=ADDR(SRCPASWD);/* 'PASSWORD' TEXT */ 00708000 L @14,@PC00001+8 0345 00709000 ST @14,IOPTLIST+12 0345 00710000 * IOPTLIST(4)=IOPTLIST(4)|'80000000'X;/* PLIST END MARKER */ 00711000 O @14,@CF00066 0346 00712000 ST @14,IOPTLIST+12 0346 00713000 * IF(INDSDMCB&'FFFFFFF8'X)=INDSDMCB&INDSDMCB->DMCBID='DMCB' 00714000 * THEN /* TEST FOR VALID DMCB */ 00715000 L @14,INDSDMCB 0347 00716000 LR @10,@14 0347 00717000 N @10,@CF01410 0347 00718000 CLR @10,@14 0347 00719000 BNE @RF00347 0347 00720000 CLC DMCBID(4,@14),@CC01411 0347 00721000 BNE @RF00347 0347 00722000 * DO; /* VALID DMCB */ 00723000 * CALL INDSDMCB->DMCBFR->DMCBDMGR(INDSDMCB->DMCB,INDSDMCB, 00724000 * IOPTLIST); /* CALL TO BLSCFREE */ 00725000 ST @14,@AL00001 0349 00726000 LA @10,INDSDMCB 0349 00727000 ST @10,@AL00001+4 0349 00728000 LA @10,IOPTLIST 0349 00729000 ST @10,@AL00001+8 0349 00730000 L @15,DMCBFR(,@14) 0349 00731000 LA @01,@AL00001 0349 00732000 BALR @14,@15 0349 00733000 * END; /* VALID DMCB */ 00734000 * ELSE 0351 00735000 * DO; /* INVALID DMCB */ 00736000 B @RC00347 0351 00737000 @RF00347 DS 0H 0352 00738000 * RFY 0352 00739000 * (GPR00F, 0352 00740000 * GPR15F) RSTD; 0352 00741000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00742000 SLR GPR00F,GPR00F 0353 00743000 * GPR15F=16; /* INVALID DMCB */ 00744000 LA GPR15F,16 0354 00745000 * RFY 0355 00746000 * (GPR00F, 0355 00747000 * GPR15F) UNRSTD; 0355 00748000 * END; /* INVALID DMCB */ 00749000 * END; /* BLSFREE (INDSDMCB) DISP(DELETE 00750000 * )PASSWORD(SRCPASWL,SRCPASWD) 00751000 * DELETE THE INPUT DS */ 00752000 @RC00347 DS 0H 0358 00753000 * RETCODE=RF; /* SAVE FREE RETURN CODE */ 00754000 LR RETCODE,RF 0358 00755000 * MSGPTR=R0; /* SAVE FREE MESSAGES */ 00756000 ST R0,MSGPTR 0359 00757000 * INFOCODE=R1; /* SAVE ANY FREE INFORMATION CODE*/ 00758000 LR INFOCODE,R1 0360 00759000 * IF RETCODE^=0 THEN /* DID FREE WORK */ 00760000 LTR RETCODE,RETCODE 0361 00761000 BZ @RF00361 0361 00762000 * CALL FREEERR; /* NO GO ANALYZE RETURN CODE */ 00763000 BAL @14,FREEERR 0362 00764000 * END; 0363 00765000 * END SCRATCH; 0364 00766000 @EL00003 DS 0H 0364 00767000 @EF00003 DS 0H 0364 00768000 @ER00003 LM @14,@04,@SA00003 0364 00769000 LM @06,@12,@SA00003+28 0364 00770000 BR @14 0364 00771000 EJECT 00772000 * 0365 00773000 */********************************************************************/ 00774000 */* */ 00775000 */* VALIDATE - VALIDATE INPUT DS CAN BE SCRATCHED */ 00776000 */* */ 00777000 */********************************************************************/ 00778000 * 0365 00779000 *VALIDATE: 0365 00780000 * PROCEDURE; /* VALIDATE INPUT DS CAN BE DELED*/ 00781000 VALIDATE STM @14,@04,@SA00004 0365 00782000 STM @06,@12,@SA00004+28 0365 00783000 * INITDUMP=NO; /* ASSUME DSN IS NOT SYS1.DUMPNN */ 00784000 MVC INITDUMP(3),@CC01326 0366 00785000 * IF SRCDSN(ONE:THREE)=SYS&(SRCDSN(FOUR)>=CHARZERO&SRCDSN(FOUR)<= 00786000 * CHARNINE)&SRCDSN(FIVE)=PERIOD THEN/* IS SRCDSN OF THE FORM 0367 00787000 * SYSN. */ 00788000 L @14,@PC00001+4 0367 00789000 CLC SRCDSN(3,@14),@CC01373 0367 00790000 BNE @RF00367 0367 00791000 CLI SRCDSN+3(@14),C'0' 0367 00792000 BL @RF00367 0367 00793000 CLI SRCDSN+3(@14),C'9' 0367 00794000 BH @RF00367 0367 00795000 CLI SRCDSN+4(@14),C'.' 0367 00796000 BNE @RF00367 0367 00797000 * DO; /* YES, SEE IF SYS1.DUMPNN */ 00798000 * IF SRCDSN(ONE:NINE)=SYSDUMP&(SRCDSN(TEN)>=CHARZERO&SRCDSN(TEN) 00799000 * <=CHARNINE)&(SRCDSN(ELEVEN)>=CHARZERO&SRCDSN(ELEVEN)<= 0369 00800000 * CHARNINE)&SRCDSN(TWELVE)=BLANK THEN/* SYS1.DUMPNN DATA 0369 00801000 * SET */ 00802000 CLC SRCDSN(9,@14),@CC01375 0369 00803000 BNE @RF00369 0369 00804000 CLI SRCDSN+9(@14),C'0' 0369 00805000 BL @RF00369 0369 00806000 CLI SRCDSN+9(@14),C'9' 0369 00807000 BH @RF00369 0369 00808000 CLI SRCDSN+10(@14),C'0' 0369 00809000 BL @RF00369 0369 00810000 CLI SRCDSN+10(@14),C'9' 0369 00811000 BH @RF00369 0369 00812000 CLI SRCDSN+11(@14),C' ' 0369 00813000 BNE @RF00369 0369 00814000 * DO; /* YES, SHOW INIT REQ */ 00815000 * INITDUMP=YES; /* INDICATE INITIALIZE TO SCD */ 00816000 MVC INITDUMP(3),@CC01324 0371 00817000 * RETCODE=ZERO; /* SHOW GOOD RETURN CODE */ 00818000 SLR RETCODE,RETCODE 0372 00819000 * END; /* END SYS1.DUMPNN */ 00820000 * ELSE /* DSN IS NOT SYS1.DUMP AND IS 0374 00821000 * SYSN. */ 00822000 * DO; /* SHOW ERROR AND ISSUE MSG */ 00823000 B @RC00369 0374 00824000 @RF00369 DS 0H 0375 00825000 * RETCODE=TWELVE; /* ERROR RETURN DO NOT SCRATCH */ 00826000 LA RETCODE,12 0375 00827000 * DO; /* BLSDMSG 0376 00828000 * (ZZ2,DSNSYS1,MSGPTR,BLSDMSGS) 00829000 * FIFO ROUTE(TERM)INSERT((SRCDSN 00830000 * ,SRCDSNLN)) */ 00831000 * IOPTLIST(1)=0; /* LAST INSERT */ 00832000 SLR @14,@14 0377 00833000 ST @14,IOPTLIST 0377 00834000 * IOPTLIST(2)=ADDR(SRCDSN);/* INSERT NAME POINTER */ 00835000 L @10,@PC00001+4 0378 00836000 ST @10,IOPTLIST+4 0378 00837000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00838000 ST @14,IOPTLIST+8 0379 00839000 * RFY 0380 00840000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00841000 * I015F=SRCDSNLN; /* INSERT LENGTH */ 00842000 LA @14,IOPTLIST+8 0381 00843000 L @10,SRCDSNLN 0381 00844000 STH @10,I015F(,@14) 0381 00845000 * CALL BLSDMSG0(ZZ2,DSNSYS1,MSGPTR,BLSDMSGS,'00010000'B, 00846000 * ADDR(IOPTLIST)); /* BUILD MESSAGE */ 00847000 ST ZZ2PTR,@AL00001 0382 00848000 LA @14,@CF01342 0382 00849000 ST @14,@AL00001+4 0382 00850000 LA @14,MSGPTR 0382 00851000 ST @14,@AL00001+8 0382 00852000 L @14,ZZ2MSGSP(,ZZ2PTR) 0382 00853000 ST @14,@AL00001+12 0382 00854000 LA @14,@CB01395 0382 00855000 ST @14,@AL00001+16 0382 00856000 LA @14,IOPTLIST 0382 00857000 ST @14,@AFTEMPS+4 0382 00858000 LA @14,@AFTEMPS+4 0382 00859000 ST @14,@AL00001+20 0382 00860000 L @15,ZZ2MSG0P(,ZZ2PTR) 0382 00861000 LA @01,@AL00001 0382 00862000 BALR @14,@15 0382 00863000 * END; /* BLSDMSG 0383 00864000 * (ZZ2,DSNSYS1,MSGPTR,BLSDMSGS) 00865000 * FIFO ROUTE(TERM)INSERT((SRCDSN 00866000 * ,SRCDSNLN)) MSG USER CANNOT 0383 00867000 * SCRAT SYSN */ 00868000 * END; /* END DSN IS SYSN. & NOT DUMP */ 00869000 * END; /* END DSN IS SYSN. */ 00870000 * ELSE /* DSN IS NOT SYSN. */ 00871000 * DO; /* SHOW GOOD RETURN CODE */ 00872000 B @RC00367 0386 00873000 @RF00367 DS 0H 0387 00874000 * RETCODE=ZERO; /* SHOW OK TO SCRATCH */ 00875000 SLR RETCODE,RETCODE 0387 00876000 * END; /* END DSN NOT SYSN. */ 00877000 * END VALIDATE; 0389 00878000 @EL00004 DS 0H 0389 00879000 @EF00004 DS 0H 0389 00880000 @ER00004 LM @14,@04,@SA00004 0389 00881000 LM @06,@12,@SA00004+28 0389 00882000 BR @14 0389 00883000 EJECT 00884000 * 0390 00885000 */********************************************************************/ 00886000 */* */ 00887000 */* FREEKEEP - FREE THE DATA SET REFERENCED BY INDSDMCB WITH */ 00888000 */* DISP = KEEP */ 00889000 */* */ 00890000 */********************************************************************/ 00891000 * 0390 00892000 *FREEKEEP: 0390 00893000 * PROCEDURE; 0390 00894000 FREEKEEP STM @14,@04,@SA00005 0390 00895000 STM @06,@12,@SA00005+28 0390 00896000 * DMCBMSG=MSGPTR; /* SAVE ANY MESSAGES BUILT */ 00897000 L @14,INDSDMCB 0391 00898000 L @10,MSGPTR 0391 00899000 ST @10,DMCBMSG(,@14) 0391 00900000 * DO; /* BLSFREE (INDSDMCB) DISP(KEEP)P 00901000 * ASSWORD(SRCPASWL,SRCPASWD) */ 00902000 * IOPTLIST(1)='05000008'X; /* OVERRIDE DISP='KEEP' */ 00903000 MVC IOPTLIST(4),@CF01402 0393 00904000 * IOPTLIST(2)='50000000'X; /* 'PASSWORD' KEY */ 00905000 MVC IOPTLIST+4(4),@CF01400 0394 00906000 * IOPTLIST(3)=ADDR(SRCPASWL); /* 'PASSWORD' LENGTH */ 00907000 LA @10,SRCPASWL 0395 00908000 ST @10,IOPTLIST+8 0395 00909000 * IOPTLIST(4)=ADDR(SRCPASWD); /* 'PASSWORD' TEXT */ 00910000 L @10,@PC00001+8 0396 00911000 ST @10,IOPTLIST+12 0396 00912000 * IOPTLIST(4)=IOPTLIST(4)|'80000000'X;/* PLIST END MARKER */ 00913000 O @10,@CF00066 0397 00914000 ST @10,IOPTLIST+12 0397 00915000 * IF(INDSDMCB&'FFFFFFF8'X)=INDSDMCB&INDSDMCB->DMCBID='DMCB' THEN 00916000 LR @10,@14 0398 00917000 N @10,@CF01410 0398 00918000 CLR @10,@14 0398 00919000 BNE @RF00398 0398 00920000 CLC DMCBID(4,@14),@CC01411 0398 00921000 BNE @RF00398 0398 00922000 * /* TEST FOR VALID DMCB */ 00923000 * DO; /* VALID DMCB */ 00924000 * CALL INDSDMCB->DMCBFR->DMCBDMGR(INDSDMCB->DMCB,INDSDMCB, 0400 00925000 * IOPTLIST); /* CALL TO BLSCFREE */ 00926000 ST @14,@AL00001 0400 00927000 LA @10,INDSDMCB 0400 00928000 ST @10,@AL00001+4 0400 00929000 LA @10,IOPTLIST 0400 00930000 ST @10,@AL00001+8 0400 00931000 L @15,DMCBFR(,@14) 0400 00932000 LA @01,@AL00001 0400 00933000 BALR @14,@15 0400 00934000 * END; /* VALID DMCB */ 00935000 * ELSE 0402 00936000 * DO; /* INVALID DMCB */ 00937000 B @RC00398 0402 00938000 @RF00398 DS 0H 0403 00939000 * RFY 0403 00940000 * (GPR00F, 0403 00941000 * GPR15F) RSTD; 0403 00942000 * GPR00F=0; /* INDICATE NO MESSAGE CHAIN */ 00943000 SLR GPR00F,GPR00F 0404 00944000 * GPR15F=16; /* INVALID DMCB */ 00945000 LA GPR15F,16 0405 00946000 * RFY 0406 00947000 * (GPR00F, 0406 00948000 * GPR15F) UNRSTD; 0406 00949000 * END; /* INVALID DMCB */ 00950000 * END; /* BLSFREE (INDSDMCB) DISP(KEEP)P 00951000 * ASSWORD(SRCPASWL,SRCPASWD) 0408 00952000 * FREE THE DS WITH DISP = KEEP */ 00953000 @RC00398 DS 0H 0409 00954000 * RETCODE=RF; /* SAVE THE RETURN CODE */ 00955000 LR RETCODE,RF 0409 00956000 * IF R0^=ZERO THEN /* DID DAS GENERATE MESSAGES */ 00957000 LTR R0,R0 0410 00958000 BZ @RF00410 0410 00959000 * MSGPTR=R0; /* SAVE ANY MESSAGES */ 00960000 ST R0,MSGPTR 0411 00961000 * INFOCODE=R1; /* SAVE ANY INFORMATION CODES */ 00962000 @RF00410 LR INFOCODE,R1 0412 00963000 * IF RETCODE^=ZERO THEN /* FREE WORK OK */ 00964000 LTR RETCODE,RETCODE 0413 00965000 BZ @RF00413 0413 00966000 * CALL FREEERR; /* NO, GO ANALYZE THE ERROR */ 00967000 BAL @14,FREEERR 0414 00968000 * END FREEKEEP; 0415 00969000 @EL00005 DS 0H 0415 00970000 @EF00005 DS 0H 0415 00971000 @ER00005 LM @14,@04,@SA00005 0415 00972000 LM @06,@12,@SA00005+28 0415 00973000 BR @14 0415 00974000 EJECT 00975000 * 0416 00976000 */********************************************************************/ 00977000 */* */ 00978000 */* FREEERR - ANALYZE FREE RETURN CODES OTHER THAN ZERO */ 00979000 */* */ 00980000 */********************************************************************/ 00981000 * 0416 00982000 *FREEERR: 0416 00983000 * PROCEDURE; /* ANALYZE FREE ERROR RETURN CODE*/ 00984000 FREEERR STM @14,@04,@SA00006 0416 00985000 STM @06,@12,@SA00006+28 0416 00986000 * IF RETCODE=FOUR THEN /* INFORMATION RETURN FROM FREE */ 00987000 C RETCODE,@CF00043 0417 00988000 BNE @RF00417 0417 00989000 * DO; /* YES, ANALYZE ERROR */ 00990000 * IF SRCDSTYP=VSAM THEN /* IS THIS IDCAMS RETURN CODE */ 00991000 CLC SRCDSTYP(2),@CB01338 0419 00992000 BNE @RF00419 0419 00993000 * DO; /* YES, JUST OUTPUT MSGS */ 00994000 * DO; /* BLSDMSG 0421 00995000 * (ZZ2,MINUSONE,MSGPTR,BLSDMSGS) 00996000 * ROUTE(TERM) */ 00997000 * CALL BLSDMSG0(ZZ2,MINUSONE,MSGPTR,BLSDMSGS,'00010000'B,0) 00998000 * ; /* BUILD MESSAGE */ 00999000 ST ZZ2PTR,@AL00001 0422 01000000 LA @14,@CF01354 0422 01001000 ST @14,@AL00001+4 0422 01002000 LA @14,MSGPTR 0422 01003000 ST @14,@AL00001+8 0422 01004000 L @14,ZZ2MSGSP(,ZZ2PTR) 0422 01005000 ST @14,@AL00001+12 0422 01006000 LA @14,@CB01395 0422 01007000 ST @14,@AL00001+16 0422 01008000 LA @14,@CF00051 0422 01009000 ST @14,@AL00001+20 0422 01010000 L @15,ZZ2MSG0P(,ZZ2PTR) 0422 01011000 LA @01,@AL00001 0422 01012000 BALR @14,@15 0422 01013000 * END; /* BLSDMSG 0423 01014000 * (ZZ2,MINUSONE,MSGPTR,BLSDMSGS) 01015000 * ROUTE(TERM) OUTPUT IDCAMS MSGS*/ 01016000 * RETCODE=ZERO; /* SHOW GOOD RETURN CODE */ 01017000 SLR RETCODE,RETCODE 0424 01018000 * END; /* END RETURN CODE FOUR VSAM */ 01019000 * ELSE /* FREE DID NOT WORK */ 01020000 * DO; /* HANDLE NON VSAM ERROR */ 01021000 B @RC00419 0426 01022000 @RF00419 DS 0H 0427 01023000 * RETCODE=TWELVE; /* PROMOTE TO ERROR RETURN */ 01024000 LA RETCODE,12 0427 01025000 * END; /* END NON VSAM ERROR */ 01026000 * END; /* END FREE INFORMATIONAL RETURN */ 01027000 * ELSE /* RETURN CODE OTHER THAN FOUR */ 01028000 * DO; /* HANDLE ERROR RETURN CODES */ 01029000 B @RC00417 0430 01030000 @RF00417 DS 0H 0431 01031000 * RETCODE=MAX(RETCODE,TWELVE);/* SHOW ERROR RETCODE */ 01032000 LA @14,12 0431 01033000 CR RETCODE,@14 0431 01034000 BNL *+6 01035000 LR RETCODE,@14 0431 01036000 * END; /* END RETURN CODE NOT FOUR */ 01037000 * END FREEERR; /* END FREE ERROR */ 01038000 @EL00006 DS 0H 0433 01039000 @EF00006 DS 0H 0433 01040000 @ER00006 LM @14,@04,@SA00006 0433 01041000 LM @06,@12,@SA00006+28 0433 01042000 BR @14 0433 01043000 EJECT 01044000 * 0434 01045000 */********************************************************************/ 01046000 */* */ 01047000 */* MSGPUT - OUTPUT MSGS FROM ATTEMPT TO INITIALIZE OR DEL A DS */ 01048000 */* */ 01049000 */********************************************************************/ 01050000 * 0434 01051000 *MSGPUT: 0434 01052000 * PROCEDURE; /* OUTPUT MSGS FROM INIT | DEL */ 01053000 MSGPUT STM @14,@12,@SA00007 0434 01054000 * IF INITDUMP=YES THEN /* IS THIS A DUMP INITIALIZATION */ 01055000 CLC INITDUMP(3),@CC01324 0435 01056000 BNE @RF00435 0435 01057000 * DO; /* BLSDMSG 0436 01058000 * (ZZ2,BADINIT,MSGPTR,BLSDMSGS) 01059000 * LIFO ROUTE(TERM)INSERT((SRCDSN 01060000 * ,SRCDSNLN)) */ 01061000 * IOPTLIST(1)=0; /* LAST INSERT */ 01062000 SLR @14,@14 0437 01063000 ST @14,IOPTLIST 0437 01064000 * IOPTLIST(2)=ADDR(SRCDSN); /* INSERT NAME POINTER */ 01065000 L @10,@PC00001+4 0438 01066000 ST @10,IOPTLIST+4 0438 01067000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 01068000 ST @14,IOPTLIST+8 0439 01069000 * RFY 0440 01070000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 01071000 * I015F=SRCDSNLN; /* INSERT LENGTH */ 01072000 LA @14,IOPTLIST+8 0441 01073000 L @10,SRCDSNLN 0441 01074000 STH @10,I015F(,@14) 0441 01075000 * CALL BLSDMSG0(ZZ2,BADINIT,MSGPTR,BLSDMSGS,'10010000'B,ADDR( 01076000 * IOPTLIST)); /* BUILD MESSAGE */ 01077000 ST ZZ2PTR,@AL00001 0442 01078000 LA @14,@CF01350 0442 01079000 ST @14,@AL00001+4 0442 01080000 LA @14,MSGPTR 0442 01081000 ST @14,@AL00001+8 0442 01082000 L @14,ZZ2MSGSP(,ZZ2PTR) 0442 01083000 ST @14,@AL00001+12 0442 01084000 LA @14,@CB01441 0442 01085000 ST @14,@AL00001+16 0442 01086000 LA @14,IOPTLIST 0442 01087000 ST @14,@AFTEMPS+8 0442 01088000 LA @14,@AFTEMPS+8 0442 01089000 ST @14,@AL00001+20 0442 01090000 L @15,ZZ2MSG0P(,ZZ2PTR) 0442 01091000 LA @01,@AL00001 0442 01092000 BALR @14,@15 0442 01093000 * END; /* BLSDMSG 0443 01094000 * (ZZ2,BADINIT,MSGPTR,BLSDMSGS) 01095000 * LIFO ROUTE(TERM)INSERT((SRCDSN 01096000 * ,SRCDSNLN)) MSG USER OF ERROR */ 01097000 * ELSE /* RETURN CODE OTHER THAN FOUR */ 01098000 * DO; /* BLSDMSG 0444 01099000 * (ZZ2,BADDEL,MSGPTR,BLSDMSGS) 01100000 * LIFO ROUTE(TERM)INSERT((SRCDSN 01101000 * ,SRCDSNLN)) */ 01102000 B @RC00435 0444 01103000 @RF00435 DS 0H 0445 01104000 * IOPTLIST(1)=0; /* LAST INSERT */ 01105000 SLR @14,@14 0445 01106000 ST @14,IOPTLIST 0445 01107000 * IOPTLIST(2)=ADDR(SRCDSN); /* INSERT NAME POINTER */ 01108000 L @10,@PC00001+4 0446 01109000 ST @10,IOPTLIST+4 0446 01110000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 01111000 ST @14,IOPTLIST+8 0447 01112000 * RFY 0448 01113000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 01114000 * I015F=SRCDSNLN; /* INSERT LENGTH */ 01115000 LA @14,IOPTLIST+8 0449 01116000 L @10,SRCDSNLN 0449 01117000 STH @10,I015F(,@14) 0449 01118000 * CALL BLSDMSG0(ZZ2,BADDEL,MSGPTR,BLSDMSGS,'10010000'B,ADDR( 0450 01119000 * IOPTLIST)); /* BUILD MESSAGE */ 01120000 ST ZZ2PTR,@AL00001 0450 01121000 LA @14,@CF01352 0450 01122000 ST @14,@AL00001+4 0450 01123000 LA @14,MSGPTR 0450 01124000 ST @14,@AL00001+8 0450 01125000 L @14,ZZ2MSGSP(,ZZ2PTR) 0450 01126000 ST @14,@AL00001+12 0450 01127000 LA @14,@CB01441 0450 01128000 ST @14,@AL00001+16 0450 01129000 LA @14,IOPTLIST 0450 01130000 ST @14,@AFTEMPS+8 0450 01131000 LA @14,@AFTEMPS+8 0450 01132000 ST @14,@AL00001+20 0450 01133000 L @15,ZZ2MSG0P(,ZZ2PTR) 0450 01134000 LA @01,@AL00001 0450 01135000 BALR @14,@15 0450 01136000 * END; /* BLSDMSG 0451 01137000 * (ZZ2,BADDEL,MSGPTR,BLSDMSGS) 01138000 * LIFO ROUTE(TERM)INSERT((SRCDSN 01139000 * ,SRCDSNLN)) MSG USER OF ERROR */ 01140000 * END MSGPUT; /* END MSG OUTPUTER */ 01141000 @EL00007 DS 0H 0452 01142000 @EF00007 DS 0H 0452 01143000 @ER00007 LM @14,@12,@SA00007 0452 01144000 BR @14 0452 01145000 EJECT 01146000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 01147000 * GPR00F FIXED(31) REG(0), 0453 01148000 * GPR15F FIXED(31) REG(15), 0453 01149000 * GPR01P PTR(31) REG(1), 0453 01150000 * GPR15P PTR(31) REG(15); 0453 01151000 * DECLARE /* COMMON VARIABLES */ 01152000 * I256C CHAR(256) BASED, 0454 01153000 * I031F FIXED(31) BASED, 0454 01154000 * I031P PTR(31) BASED, 0454 01155000 * I015F FIXED(15) BASED, 0454 01156000 * I015P PTR(15) BASED, 0454 01157000 * I008P PTR(8) BASED, 0454 01158000 * I001C CHAR(1) BASED; 0454 01159000 * DECLARE 0455 01160000 * IOPTLIST(13) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 01161000 * GENERATE NODEFS NOREFS DATA; 0456 01162000 * END /* BLRPEND END BLSFGG00 */ 01163000 * 0457 01164000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 01165000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 01166000 */*%INCLUDE SYSLIB (BLRFULL ) */ 01167000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 01168000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 01169000 */*%INCLUDE SYSLIB (IKJECT ) */ 01170000 */*%INCLUDE SYSLIB (IKJUPT ) */ 01171000 */*%INCLUDE SYSLIB (BLSUSERV) */ 01172000 */*%INCLUDE SYSLIB (BLRSERV ) */ 01173000 */*%INCLUDE SYSLIB (BLRSERVD) */ 01174000 */*%INCLUDE SYSLIB (BLSDSERV) */ 01175000 */*%INCLUDE SYSLIB (IEFUCBOB) */ 01176000 * 0457 01177000 * ; 0457 01178000 @EL00001 L @13,4(,@13) 0457 01179000 @EF00001 L @00,@SIZDATD 0457 01180000 LR @01,@11 0457 01181000 BLSUFRES R,LV=(0),A=(1) 01182000 @ER00001 LM @14,@12,12(@13) 0457 01183000 BR @14 0457 01184000 @DATA DS 0H 01185000 @CH00073 DC H'2' 01186000 @DATD DSECT 01187000 DS 0F 01188000 @SA00001 DS 18F 01189000 @PC00001 DS 3F 01190000 @SA00004 DS 14F 01191000 @SA00002 DS 14F 01192000 @SA00003 DS 14F 01193000 @SA00007 DS 15F 01194000 @SA00005 DS 14F 01195000 @SA00006 DS 14F 01196000 @AL00001 DS 6A 01197000 @AFTEMPS DS 4F 01198000 BLSFSCRT CSECT 01199000 DS 0F 01200000 @CF00051 DC F'0' 01201000 @CF00046 DC F'1' 01202000 @CF00043 DC F'4' 01203000 @CF00054 DC F'8' 01204000 @CH00054 EQU @CF00054+2 01205000 @CF00035 DC F'12' 01206000 @CF00057 DC F'16' 01207000 @CF00091 DC F'44' 01208000 @CH00091 EQU @CF00091+2 01209000 @CF01340 DC F'4073' 01210000 @CF01342 DC F'4074' 01211000 @CF01344 DC F'4075' 01212000 @CF01346 DC F'4076' 01213000 @CF01348 DC F'4077' 01214000 @CF01350 DC F'4078' 01215000 @CF01352 DC F'4079' 01216000 @CF01354 DC F'-1' 01217000 @CF00066 DC XL4'80000000' 01218000 @CF01399 DC XL4'02000000' 01219000 @CF01400 DC XL4'50000000' 01220000 @CF01401 DC XL4'04000001' 01221000 @CF01402 DC XL4'05000008' 01222000 @CF01410 DC XL4'FFFFFFF8' 01223000 @CF01423 DC XL4'05000004' 01224000 @DATD DSECT 01225000 DS 0D 01226000 INDSDMCB DS A 01227000 SRCDSNLN DS F 01228000 SRCPASWL DS F 01229000 MSGPTR DS A 01230000 DTYPANSR DS CL8 01231000 ORG DTYPANSR 01232000 DEVTYPE DS CL4 01233000 MAXBLCK DS CL4 01234000 ORG DTYPANSR+8 01235000 SRCDSTYP DS BL2 01236000 INITDUMP DS CL3 01237000 DS CL3 01238000 IOPTLIST DS 13A 01239000 BLSFSCRT CSECT 01240000 DS 0F 01241000 @SIZDATD DC AL1(0) 01242000 DC AL3(@ENDDATD-@DATD) 01243000 DS 0D 01244000 @CC01375 DC C'SYS1.DUMP' 01245000 @CC00105 DC C' ' 01246000 @CC01328 DC C'RDQSAMDS' 01247000 @CC01411 DC C'DMCB' 01248000 @CC01324 DC C'YES' 01249000 @CC01326 DC C'NO ' 01250000 @CC01373 EQU @CC01375 01251000 @CB01334 DC X'4000' 01252000 @CB01336 DC X'4100' 01253000 @CB01338 DC X'0008' 01254000 @CB00892 DC X'01' 01255000 @CB01395 DC B'00010000' 01256000 @CB01418 DC B'00000000' 01257000 @CB01441 DC B'10010000' 01258000 @DATD DSECT 01259000 SPACE 2 01260000 *********************************************************************** 01261000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 01262000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 01263000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 01264000 *********************************************************************** 01265000 SPACE 01266000 BLSFSCRT CSECT 01267000 ORG 01268000 DS 0D 01269000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSFSCRT+19)/20+7)/8)CL8'BLSFSCRT' 01270000 @DATD DSECT 01271000 SPACE 2 01272000 *********************************************************************** 01273000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 01274000 *********************************************************************** 01275000 SPACE 01276000 DS 0D 01277000 @DATD DSECT 01278000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 01279000 @ENDDATD EQU * 01280000 BLSFSCRT CSECT 01281000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 01282000 @01 EQU 01 01283000 @02 EQU 02 01284000 @03 EQU 03 01285000 @04 EQU 04 01286000 @05 EQU 05 01287000 @06 EQU 06 01288000 @07 EQU 07 01289000 @08 EQU 08 01290000 @09 EQU 09 01291000 @10 EQU 10 01292000 @11 EQU 11 01293000 @12 EQU 12 01294000 @13 EQU 13 01295000 @14 EQU 14 01296000 @15 EQU 15 01297000 RETCODE EQU @05 01298000 ANSRADDR EQU @07 01299000 INFOCODE EQU @02 01300000 UCBPTR EQU @02 01301000 ZZ2PTR EQU @06 01302000 R0 EQU @00 01303000 R1 EQU @01 01304000 R2 EQU @02 01305000 R3 EQU @03 01306000 R4 EQU @04 01307000 R5 EQU @05 01308000 R9 EQU @09 01309000 RB EQU @11 01310000 RD EQU @13 01311000 RE EQU @14 01312000 RF EQU @15 01313000 GPR01P EQU @01 01314000 GPR15P EQU @15 01315000 GPR00F EQU @00 01316000 GPR15F EQU @15 01317000 RA EQU @10 01318000 RC EQU @12 01319000 R6 EQU @06 01320000 R7 EQU @07 01321000 R8 EQU @08 01322000 ZZ1 EQU 0 01323000 ZZ1ATTN EQU ZZ1+360 01324000 ZZ1EVE EQU ZZ1ATTN+4 01325000 ZZ1F EQU ZZ1+368 01326000 ZZ1N EQU ZZ1+1116 01327000 ZZ2 EQU 0 01328000 ZZ2AMD EQU ZZ2 01329000 @NM00013 EQU ZZ2AMD+7 01330000 ZZ2PRT EQU ZZ2+138 01331000 ZZ2PRTT EQU ZZ2PRT+4 01332000 ZZ2PRTT1 EQU ZZ2PRTT+1 01333000 ZZ2A EQU ZZ2+272 01334000 ZZ2AF EQU ZZ2A+16 01335000 ZZ2APID EQU ZZ2A+64 01336000 ZZ2AD EQU ZZ2A+74 01337000 ZZ2ADD EQU ZZ2AD 01338000 ZZ2ADDT EQU ZZ2ADD+2 01339000 ZZ2ADM EQU ZZ2AD+46 01340000 ZZ2ADMT EQU ZZ2ADM+2 01341000 ZZ2ADP EQU ZZ2AD+56 01342000 ZZ2ADPT EQU ZZ2ADP+2 01343000 ZZ2AQAS EQU ZZ2A+144 01344000 ZZ2AQD EQU ZZ2A+160 01345000 ZZ2AQDT EQU ZZ2AQD+10 01346000 ZZ2AQDF EQU ZZ2AQD+52 01347000 ZZ2STG EQU ZZ2+960 01348000 ZZ2ALLOP EQU ZZ2+992 01349000 ZZ2FREEP EQU ZZ2+996 01350000 ZZ2FF19P EQU ZZ2+1000 01351000 ZZ2FRE1P EQU ZZ2+1004 01352000 ZZ2FF18P EQU ZZ2+1008 01353000 ZZ2DYNAP EQU ZZ2+1012 01354000 ZZ2ZZ2CP EQU ZZ2+1016 01355000 ZZ2ZZ2DP EQU ZZ2+1020 01356000 ZZ2STAIP EQU ZZ2+1024 01357000 ZZ2FF02P EQU ZZ2+1028 01358000 ZZ2GETLP EQU ZZ2+1032 01359000 ZZ2PARSP EQU ZZ2+1036 01360000 ZZ2PTGTP EQU ZZ2+1040 01361000 ZZ2PUTLP EQU ZZ2+1044 01362000 ZZ2SCANP EQU ZZ2+1048 01363000 ZZ2STCKP EQU ZZ2+1052 01364000 ZZ2ALOCP EQU ZZ2+1056 01365000 ZZ2MSGSP EQU ZZ2+1060 01366000 ZZ2TRMOP EQU ZZ2+1064 01367000 ZZ2TRMVP EQU ZZ2+1068 01368000 ZZ2MSG0P EQU ZZ2+1076 01369000 ZZ2PUTNP EQU ZZ2+1084 01370000 ZZ2TRMNP EQU ZZ2+1088 01371000 ZZ2ENQ0P EQU ZZ2+1092 01372000 ZZ2ADSDP EQU ZZ2+1096 01373000 ZZ2APDRP EQU ZZ2+1100 01374000 ZZ2FDSDP EQU ZZ2+1104 01375000 ZZ2FPDRP EQU ZZ2+1108 01376000 ZZ2ZZ1P EQU ZZ2+1264 01377000 ZZ2DVTP EQU ZZ2+1276 01378000 ZZ2BVTP EQU ZZ2+1280 01379000 ZZ2CPPL EQU ZZ2+1292 01380000 ZZ2CPPLC EQU ZZ2CPPL 01381000 ZZ2ITR EQU ZZ2+2840 01382000 ZZ2ITRE EQU ZZ2ITR+16 01383000 ZZ2ITSE EQU ZZ2+2864 01384000 ZZ2ES EQU ZZ2+2872 01385000 ZZ2AMDX EQU ZZ2+7160 01386000 ZZ2AXO EQU ZZ2+7934 01387000 ZZ2AXOT EQU ZZ2AXO+2 01388000 CMD EQU 0 01389000 CMDT EQU CMD+4 01390000 PSCB EQU 0 01391000 PSCBATR1 EQU PSCB+16 01392000 ECT EQU 0 01393000 ECTSWS EQU ECT+28 01394000 ECTSWS2 EQU ECT+40 01395000 ECTSWS21 EQU ECTSWS2 01396000 UPT EQU 0 01397000 UPTSWS EQU UPT+12 01398000 SA EQU 0 01399000 SA1 EQU SA 01400000 SAR EQU SA+12 01401000 BVT EQU 0 01402000 BVTPUTLP EQU BVT+4 01403000 BVTPUTOP EQU BVT+12 01404000 BVTPUTTP EQU BVT+16 01405000 BVTPUTVP EQU BVT+20 01406000 BVTPUTAP EQU BVT+24 01407000 BVTPRTTP EQU BVT+28 01408000 BVTPRTAP EQU BVT+32 01409000 BVTPUTDP EQU BVT+36 01410000 BVTMONP EQU BVT+40 01411000 BVTMON2P EQU BVT+44 01412000 BVTVSARP EQU BVT+48 01413000 BVTVSENP EQU BVT+64 01414000 BVTVSERP EQU BVT+68 01415000 BVTVSGEP EQU BVT+72 01416000 BVTVSGUP EQU BVT+76 01417000 BVTVSPOP EQU BVT+80 01418000 BVTVSPUP EQU BVT+84 01419000 BVTMPKNP EQU BVT+104 01420000 BVTMONLP EQU BVT+108 01421000 BVTPUTCP EQU BVT+132 01422000 BVTMPK1P EQU BVT+136 01423000 BVTZZ2RP EQU BVT+140 01424000 BVTPGMRP EQU BVT+144 01425000 BVTMONAP EQU BVT+148 01426000 BVTBLDDP EQU BVT+152 01427000 BVTBLDLP EQU BVT+156 01428000 BVTPGMCP EQU BVT+160 01429000 BVTPGMDP EQU BVT+164 01430000 BVTPGMLP EQU BVT+168 01431000 BVTMONCP EQU BVT+180 01432000 BVTMONDP EQU BVT+184 01433000 BVTMONTP EQU BVT+188 01434000 BVTPARIP EQU BVT+192 01435000 BVTPARUP EQU BVT+196 01436000 BVTPRTNP EQU BVT+204 01437000 BVTVSCRP EQU BVT+208 01438000 BVTVSMRP EQU BVT+212 01439000 BVTMONXP EQU BVT+216 01440000 BVTTRMAP EQU BVT+228 01441000 BLSDMSGS EQU 0 01442000 BLSDMSG0 EQU 0 01443000 DVT EQU 0 01444000 DVTDEQPP EQU DVT+8 01445000 DVTENQPP EQU DVT+12 01446000 DVTAUTHP EQU DVT+20 01447000 DVTLPCLP EQU DVT+24 01448000 DVTBP00P EQU DVT+28 01449000 DVTCN00P EQU DVT+32 01450000 DVTDF00P EQU DVT+36 01451000 DVTDS00P EQU DVT+44 01452000 DVTFL00P EQU DVT+48 01453000 DVTFP00P EQU DVT+52 01454000 DVTGD00P EQU DVT+56 01455000 DVTGG00P EQU DVT+60 01456000 DVTGP00P EQU DVT+64 01457000 DVTND00P EQU DVT+68 01458000 DVTND01P EQU DVT+72 01459000 DVTOD00P EQU DVT+76 01460000 DVTPS00P EQU DVT+80 01461000 DVTSD00P EQU DVT+84 01462000 DVTSL00P EQU DVT+88 01463000 DVTTL00P EQU DVT+92 01464000 DVTUD00P EQU DVT+96 01465000 DVTUP00P EQU DVT+100 01466000 DVTLP00P EQU DVT+104 01467000 DVTLALLP EQU DVT+108 01468000 DVTLPFMP EQU DVT+112 01469000 DVTCLOSP EQU DVT+116 01470000 DVTOPENP EQU DVT+120 01471000 DVTPERAP EQU DVT+124 01472000 DVTDALLP EQU DVT+128 01473000 DMCB EQU 0 01474000 DMCBID EQU DMCB 01475000 DMCBFTY EQU DMCB+20 01476000 DMCBVSF EQU DMCBFTY 01477000 DMCBOPN EQU DMCB+21 01478000 DMCBRQST EQU DMCB+22 01479000 DMCBRMOD EQU DMCB+23 01480000 DMCBOUT EQU DMCBRMOD 01481000 DMCBTMP EQU DMCBOUT 01482000 DMCBRM6 EQU DMCBRMOD 01483000 DMCBRM5 EQU DMCBRMOD 01484000 DMCBOPTS EQU DMCB+24 01485000 DMCBGKY EQU DMCBOPTS 01486000 DMCBMFLG EQU DMCB+28 01487000 DMCBBUFP EQU DMCB+32 01488000 DMCBKEYP EQU DMCB+44 01489000 DMCBMSG EQU DMCB+52 01490000 DMCBRI EQU DMCB+64 01491000 DMCBACBE EQU DMCB+124 01492000 DMCBDDNM EQU DMCB+260 01493000 DMCBDSOR EQU DMCB+274 01494000 DMCBSPEC EQU DMCB+380 01495000 DMCBFR EQU DMCB+412 01496000 DMCBAMS EQU DMCB+416 01497000 DMCBAUDT EQU DMCB+568 01498000 DMCBLSCP EQU DMCBAUDT+16 01499000 DMCBDMGR EQU 0 01500000 UCB EQU 0 01501000 UCBOB EQU 0 01502000 UCBJBNR EQU UCBOB 01503000 UCBFL5 EQU UCBOB+1 01504000 UCBAF EQU UCBFL5 01505000 UCBSTAT EQU UCBOB+3 01506000 UCBCHAN EQU UCBOB+4 01507000 UCBSFLS EQU UCBOB+6 01508000 UCBFLA EQU UCBSFLS 01509000 UCBFL1 EQU UCBFLA 01510000 UCBBSY EQU UCBFL1 01511000 UCBNRY EQU UCBFL1 01512000 UCBPST EQU UCBFL1 01513000 UCBCUB EQU UCBFL1 01514000 UCBFLB EQU UCBSFLS+1 01515000 UCBCHM EQU UCBOB+8 01516000 UCBCHM1 EQU UCBCHM 01517000 UCBPTH0 EQU UCBCHM1 01518000 UCBPTH1 EQU UCBCHM1 01519000 UCBWGT EQU UCBOB+12 01520000 UCBTYP EQU UCBOB+16 01521000 UCBTBYT1 EQU UCBTYP 01522000 UCB1FEA5 EQU UCBTBYT1 01523000 UCB1FEA6 EQU UCBTBYT1 01524000 UCBTBYT2 EQU UCBTYP+1 01525000 UCB2OPT2 EQU UCBTBYT2 01526000 UCBDUDN1 EQU UCB2OPT2 01527000 UCB2OPT3 EQU UCBTBYT2 01528000 UCBDUDN2 EQU UCB2OPT3 01529000 UCB2OPT4 EQU UCBTBYT2 01530000 UCBRWTAU EQU UCB2OPT4 01531000 UCB2OPT6 EQU UCBTBYT2 01532000 UCB2OPT7 EQU UCBTBYT2 01533000 UCBTBYT3 EQU UCBTYP+2 01534000 UCBDVCLS EQU UCBTBYT3 01535000 UCB3DACC EQU UCBDVCLS 01536000 UCBTBYT4 EQU UCBTYP+3 01537000 UCBEXTPT EQU UCBOB+20 01538000 UCBFLC EQU UCBEXTPT 01539000 UCBDEV EQU UCBOB+24 01540000 UCBCMEXT EQU 0 01541000 UCBATI EQU UCBCMEXT+3 01542000 @NM00072 EQU UCBATI 01543000 UCBFLP1 EQU UCBCMEXT+5 01544000 UCBMT EQU 0 01545000 UCBOCR EQU 0 01546000 UCB3540X EQU 0 01547000 UCBDKBYT EQU UCB3540X+6 01548000 UCB3800X EQU 0 01549000 UCBOPTNS EQU UCB3800X 01550000 UCBACTIV EQU UCB3800X+3 01551000 UCBMDRBF EQU UCB3800X+36 01552000 UCBUCS EQU 0 01553000 UCBUCSOP EQU UCBUCS+4 01554000 UCBFCBOP EQU UCBUCS+5 01555000 I015F EQU 0 01556000 BLSCALOC EQU 0 01557000 BLSDADSD EQU 0 01558000 BLSDAPDR EQU 0 01559000 BLSDDEQP EQU 0 01560000 BLSDENQP EQU 0 01561000 BLSDENQ0 EQU 0 01562000 BLSDFDSD EQU 0 01563000 BLSDFPDR EQU 0 01564000 BLSEAUTH EQU 0 01565000 BLSELPCL EQU 0 01566000 BLSELPFM EQU 0 01567000 BLSFBP00 EQU 0 01568000 BLSFCLOS EQU 0 01569000 BLSFCN00 EQU 0 01570000 BLSFDALL EQU 0 01571000 BLSFDF00 EQU 0 01572000 BLSFDS00 EQU 0 01573000 BLSFFL00 EQU 0 01574000 BLSFFP00 EQU 0 01575000 BLSFGD00 EQU 0 01576000 BLSFGG00 EQU 0 01577000 BLSFGP00 EQU 0 01578000 BLSFLALL EQU 0 01579000 BLSFLP00 EQU 0 01580000 BLSFND00 EQU 0 01581000 BLSFND01 EQU 0 01582000 BLSFOD00 EQU 0 01583000 BLSFOPEN EQU 0 01584000 BLSFPERA EQU 0 01585000 BLSFPS00 EQU 0 01586000 BLSFSD00 EQU 0 01587000 BLSFSL00 EQU 0 01588000 BLSFTL00 EQU 0 01589000 BLSFUD00 EQU 0 01590000 BLSFUP00 EQU 0 01591000 BLSUALLO EQU 0 01592000 BLSUBLDD EQU 0 01593000 BLSUBLDL EQU 0 01594000 BLSUDYNA EQU 0 01595000 BLSUFREE EQU 0 01596000 BLSUFRE1 EQU 0 01597000 BLSUMON EQU 0 01598000 BLSUMONA EQU 0 01599000 BLSUMONC EQU 0 01600000 BLSUMOND EQU 0 01601000 BLSUMONL EQU 0 01602000 BLSUMONT EQU 0 01603000 BLSUMONX EQU 0 01604000 BLSUMON2 EQU 0 01605000 BLSUMPKN EQU 0 01606000 BLSUMPK1 EQU 0 01607000 BLSUPARI EQU 0 01608000 BLSUPARU EQU 0 01609000 BLSUPGMC EQU 0 01610000 BLSUPGMD EQU 0 01611000 BLSUPGML EQU 0 01612000 BLSUPGMR EQU 0 01613000 BLSUPRTA EQU 0 01614000 BLSUPRTN EQU 0 01615000 BLSUPRTT EQU 0 01616000 BLSUPUTA EQU 0 01617000 BLSUPUTC EQU 0 01618000 BLSUPUTD EQU 0 01619000 BLSUPUTL EQU 0 01620000 BLSUPUTN EQU 0 01621000 BLSUPUTO EQU 0 01622000 BLSUPUTT EQU 0 01623000 BLSUPUTV EQU 0 01624000 BLSUSTAI EQU 0 01625000 BLSUTRMA EQU 0 01626000 BLSUTRMN EQU 0 01627000 BLSUTRMO EQU 0 01628000 BLSUTRMV EQU 0 01629000 BLSUVSAR EQU 0 01630000 BLSUVSCR EQU 0 01631000 BLSUVSEN EQU 0 01632000 BLSUVSER EQU 0 01633000 BLSUVSGE EQU 0 01634000 BLSUVSGU EQU 0 01635000 BLSUVSMR EQU 0 01636000 BLSUVSPO EQU 0 01637000 BLSUVSPU EQU 0 01638000 BLSUZZ2C EQU 0 01639000 BLSUZZ2D EQU 0 01640000 BLSUZZ2R EQU 0 01641000 DMCBRQC EQU 0 01642000 IKJEFF02 EQU 0 01643000 IKJEFF18 EQU 0 01644000 IKJEFF19 EQU 0 01645000 IKJGETL EQU 0 01646000 IKJPARS EQU 0 01647000 IKJPTGT EQU 0 01648000 IKJPUTL EQU 0 01649000 IKJSCAN EQU 0 01650000 IKJSTCK EQU 0 01651000 I001C EQU 0 01652000 I008P EQU 0 01653000 I015P EQU 0 01654000 I031F EQU 0 01655000 I031P EQU 0 01656000 I256C EQU 0 01657000 UCBBGN EQU 0 01658000 ATV EQU 0 01659000 SRCDS EQU 0 01660000 SRCDSN EQU SRCDS 01661000 SRCMEMNM EQU SRCDS+44 01662000 SRCPASWD EQU 0 01663000 CPPL EQU ZZ2CPPL 01664000 CPPLUPT EQU CPPL+4 01665000 CPPLPSCB EQU CPPL+8 01666000 CPPLECT EQU CPPL+12 01667000 DMCBVSM EQU DMCBAMS 01668000 DMCBQSM EQU DMCBAMS 01669000 UCBOBS01 EQU UCBDEV 01670000 UCBSTAB EQU UCBOBS01+10 01671000 UCBBSVL EQU UCBSTAB 01672000 UCBPRSRS EQU UCBSTAB 01673000 UCBDMCT EQU UCBOBS01+11 01674000 UCBFL4 EQU UCBOBS01+13 01675000 UCBOBS02 EQU UCBDEV 01676000 UCBTFL1 EQU UCBOBS02+19 01677000 UCBXTN EQU UCBOBS02+20 01678000 UCBVOPT EQU UCBXTN 01679000 UCBOBS03 EQU UCBDEV 01680000 UCBXTADR EQU UCBOBS03 01681000 UCBOBS04 EQU UCBDEV 01682000 UCBBTA EQU UCBOBS04+12 01683000 UCBOBS06 EQU UCBDEV 01684000 UCBAOF EQU UCBOBS06 01685000 UCBAOF1 EQU UCBAOF 01686000 UCBAOF2 EQU UCBAOF+1 01687000 @NM00071 EQU UCBOBS06+3 01688000 UCBIRB EQU UCBOBS06+4 01689000 UCBGRAF EQU UCBIRB 01690000 UCBLDNCA EQU UCBOBS06+8 01691000 UCBRDYQ EQU UCBLDNCA 01692000 UCBIRLN EQU UCBRDYQ 01693000 UCBLDNCB EQU UCBRDYQ+1 01694000 UCBCTLNK EQU UCBOBS06+12 01695000 UCBOBS07 EQU UCBDEV 01696000 UCBOBS08 EQU UCBDEV 01697000 UCBCTCAD EQU UCBOBS08 01698000 UCBCTCF1 EQU UCBOBS08+4 01699000 UCBOBS09 EQU UCBDEV 01700000 * START UNREFERENCED COMPONENTS 01701000 UCBRV066 EQU UCBOBS09+4 01702000 UCBIOSBA EQU UCBOBS09 01703000 UCBRV042 EQU UCBOBS08+5 01704000 UCBRV082 EQU UCBCTCF1 01705000 UCBRV081 EQU UCBCTCF1 01706000 UCBRV080 EQU UCBCTCF1 01707000 UCBRV079 EQU UCBCTCF1 01708000 UCBRV078 EQU UCBCTCF1 01709000 UCBRV077 EQU UCBCTCF1 01710000 UCBRV076 EQU UCBCTCF1 01711000 UCBCTC80 EQU UCBCTCF1 01712000 UCBCTCAL EQU UCBCTCAD 01713000 UCBICNCB EQU UCBOBS07+4 01714000 UCBRV040 EQU UCBOBS07 01715000 UCBCTLNA EQU UCBCTLNK+1 01716000 UCBRLN EQU UCBCTLNK 01717000 UCBRDYQA EQU UCBLDNCB 01718000 UCBINRLN EQU UCBIRLN 01719000 UCBIRBA EQU UCBIRB+1 01720000 UCBRV039 EQU UCBGRAF 01721000 UCBDWNR EQU UCBGRAF 01722000 UCBRPND EQU UCBGRAF 01723000 UCBUPM EQU UCBGRAF 01724000 UCBBTAM EQU UCBGRAF 01725000 UCBDRNO EQU UCBGRAF 01726000 UCBDRO EQU UCBGRAF 01727000 UCBOIP EQU UCBGRAF 01728000 UCBATRCD EQU @NM00071 01729000 UCBSKPFG EQU @NM00071 01730000 UCBRIPND EQU @NM00071 01731000 UCBRTIAC EQU @NM00071 01732000 UCBRSV79 EQU @NM00071 01733000 UCBRSV78 EQU @NM00071 01734000 UCBRSV77 EQU @NM00071 01735000 UCBOLTEP EQU @NM00071 01736000 UCBATNCT EQU UCBOBS06+2 01737000 UCBRSV76 EQU UCBAOF2 01738000 UCBRSV75 EQU UCBAOF2 01739000 UCBRSV74 EQU UCBAOF2 01740000 UCBRSV73 EQU UCBAOF2 01741000 UCBRSV72 EQU UCBAOF2 01742000 UCBRSV71 EQU UCBAOF2 01743000 UCBRSV70 EQU UCBAOF2 01744000 UCBRSV69 EQU UCBAOF2 01745000 UCBRSV68 EQU UCBAOF1 01746000 UCBRSV67 EQU UCBAOF1 01747000 UCBRSV66 EQU UCBAOF1 01748000 UCBRSV65 EQU UCBAOF1 01749000 UCBRSV64 EQU UCBAOF1 01750000 UCBOFNL EQU UCBAOF1 01751000 UCBOFSP EQU UCBAOF1 01752000 UCBOFMCR EQU UCBAOF1 01753000 UCBBTB EQU UCBBTA+1 01754000 UCBDI EQU UCBBTA 01755000 UCBSNS EQU UCBOBS04+8 01756000 UCBTEB EQU UCBOBS04+4 01757000 UCBGCB EQU UCBOBS04+3 01758000 UCBOPEN EQU UCBOBS04+2 01759000 UCBSTART EQU UCBOBS04 01760000 UCBXTNB EQU UCBXTN+1 01761000 UCBRSV22 EQU UCBVOPT 01762000 UCBRSV21 EQU UCBVOPT 01763000 UCBRSV20 EQU UCBVOPT 01764000 UCBESVE EQU UCBVOPT 01765000 UCBERPC EQU UCBVOPT 01766000 UCBESVC EQU UCBVOPT 01767000 UCBEVA EQU UCBVOPT 01768000 UCBESV EQU UCBVOPT 01769000 UCBRV009 EQU UCBTFL1 01770000 UCBRV008 EQU UCBTFL1 01771000 UCBRV007 EQU UCBTFL1 01772000 UCBRV006 EQU UCBTFL1 01773000 UCBRV005 EQU UCBTFL1 01774000 UCBDQDSP EQU UCBTFL1 01775000 UCBNSLTP EQU UCBTFL1 01776000 UCBNLTP EQU UCBTFL1 01777000 UCBRES1B EQU UCBOBS02+18 01778000 UCBFSER EQU UCBOBS02+12 01779000 @NM00070 EQU UCBOBS02+4 01780000 UCBFSEQ EQU UCBOBS02+2 01781000 UCBFSCT EQU UCBOBS02 01782000 UCBNEXP EQU UCBOBS01+20 01783000 UCBBASE EQU UCBOBS01+16 01784000 UCBRES1A EQU UCBOBS01+15 01785000 UCBUSER EQU UCBOBS01+14 01786000 UCBFL47 EQU UCBFL4 01787000 UCBFL46 EQU UCBFL4 01788000 UCBFL45 EQU UCBFL4 01789000 UCBRV065 EQU UCBFL4 01790000 UCBDSS EQU UCBFL4 01791000 UCBRESVP EQU UCBFL4 01792000 UCBWDAV EQU UCBFL4 01793000 UCBDAVV EQU UCBFL4 01794000 UCBSQC EQU UCBOBS01+12 01795000 UCBDATP EQU UCBOBS01+12 01796000 UCBDMC EQU UCBDMCT 01797000 UCBMOUNT EQU UCBDMCT 01798000 UCBBNUL EQU UCBSTAB 01799000 UCBSHAR EQU UCBSTAB 01800000 UCBBSTR EQU UCBSTAB 01801000 UCBBPUB EQU UCBSTAB 01802000 UCBBPRV EQU UCBSTAB 01803000 UCBBALB EQU UCBPRSRS 01804000 UCBPGFL EQU UCBSTAB 01805000 UCBDVSHR EQU UCBBSVL 01806000 UCBVOLI EQU UCBOBS01+4 01807000 UCBVTOC EQU UCBOBS01 01808000 DMCBRES7 EQU DMCBQSM+96 01809000 DMCBDCB EQU DMCBQSM 01810000 DMCBACB EQU DMCBVSM+76 01811000 DMCBRPL EQU DMCBVSM 01812000 CPPLCBUF EQU CPPL 01813000 UCBERADR EQU UCBUCS+12 01814000 UCBFCBID EQU UCBUCS+8 01815000 UCBERCNT EQU UCBUCS+7 01816000 UCBRSV51 EQU UCBUCS+6 01817000 UCBFCBPE EQU UCBFCBOP 01818000 UCBRSV49 EQU UCBFCBOP 01819000 UCBRSV48 EQU UCBFCBOP 01820000 UCBRSV47 EQU UCBFCBOP 01821000 UCBRSV46 EQU UCBFCBOP 01822000 UCBRSV45 EQU UCBFCBOP 01823000 UCBRSV44 EQU UCBFCBOP 01824000 UCBFCBO1 EQU UCBFCBOP 01825000 UCBUCSPE EQU UCBUCSOP 01826000 UCBRSV43 EQU UCBUCSOP 01827000 UCBRSV42 EQU UCBUCSOP 01828000 UCBRSV41 EQU UCBUCSOP 01829000 UCBRSV40 EQU UCBUCSOP 01830000 UCBRSV39 EQU UCBUCSOP 01831000 UCBUCSO2 EQU UCBUCSOP 01832000 UCBUCSO1 EQU UCBUCSOP 01833000 UCBUCSID EQU UCBUCS 01834000 UCBMDRBA EQU UCBMDRBF+1 01835000 UCBRV075 EQU UCBMDRBF 01836000 UCBRV074 EQU UCB3800X+32 01837000 UCBIMAGE EQU UCB3800X+28 01838000 UCBFCBNM EQU UCB3800X+24 01839000 UCBCHAR4 EQU UCB3800X+20 01840000 UCBCHAR3 EQU UCB3800X+16 01841000 UCBCHAR2 EQU UCB3800X+12 01842000 UCBCHAR1 EQU UCB3800X+8 01843000 UCBCGMID EQU UCB3800X+4 01844000 UCBBRSTA EQU UCBACTIV 01845000 UCBRV063 EQU UCBACTIV 01846000 UCBRV062 EQU UCBACTIV 01847000 UCBRV061 EQU UCBACTIV 01848000 UCBRV060 EQU UCBACTIV 01849000 UCBRV059 EQU UCBACTIV 01850000 UCBRV058 EQU UCBACTIV 01851000 UCBRV057 EQU UCBACTIV 01852000 UCBRV050 EQU UCB3800X+2 01853000 UCBCGMNO EQU UCB3800X+1 01854000 UCBRV083 EQU UCBOPTNS 01855000 UCBBRSTR EQU UCBOPTNS 01856000 UCBRV056 EQU UCBOPTNS 01857000 UCBRV055 EQU UCBOPTNS 01858000 UCBRV054 EQU UCBOPTNS 01859000 UCBRV053 EQU UCBOPTNS 01860000 UCBRV052 EQU UCBOPTNS 01861000 UCBRV051 EQU UCBOPTNS 01862000 UCBRV073 EQU UCB3540X+7 01863000 UCBRV072 EQU UCBDKBYT 01864000 UCBRV071 EQU UCBDKBYT 01865000 UCBRV070 EQU UCBDKBYT 01866000 UCBRV069 EQU UCBDKBYT 01867000 UCBRV068 EQU UCBDKBYT 01868000 UCBRV067 EQU UCBDKBYT 01869000 UCBVLVER EQU UCBDKBYT 01870000 UCBDKAMX EQU UCBDKBYT 01871000 UCBVLSER EQU UCB3540X 01872000 UCBRDATA EQU UCBOCR+4 01873000 UCBFRID EQU UCBOCR 01874000 UCBCLN EQU UCBMT+14 01875000 UCBERG EQU UCBMT+12 01876000 UCBMS EQU UCBMT+11 01877000 UCBNB EQU UCBMT+10 01878000 UCBPW EQU UCBMT+9 01879000 UCBPR EQU UCBMT+8 01880000 UCBSIO EQU UCBMT+6 01881000 UCBTW EQU UCBMT+5 01882000 UCBTR EQU UCBMT+4 01883000 UCBTWT EQU UCBMT+3 01884000 UCBTRT EQU UCBMT+2 01885000 UCBCTD EQU UCBMT 01886000 UCBWTOID EQU UCBCMEXT+17 01887000 UCBRV043 EQU UCBCMEXT+16 01888000 UCBASID EQU UCBCMEXT+14 01889000 UCBMFCNT EQU UCBCMEXT+12 01890000 UCBPMSK EQU UCBCMEXT+10 01891000 UCBCCWOF EQU UCBCMEXT+8 01892000 UCBRV041 EQU UCBCMEXT+6 01893000 UCBRV036 EQU UCBFLP1 01894000 UCBRV035 EQU UCBFLP1 01895000 UCBERLOG EQU UCBFLP1 01896000 UCBRV033 EQU UCBFLP1 01897000 UCBINHIO EQU UCBFLP1 01898000 UCBNSWAP EQU UCBFLP1 01899000 UCBSHRUP EQU UCBFLP1 01900000 UCBNSRCH EQU UCBFLP1 01901000 UCBSNSCT EQU UCBCMEXT+4 01902000 UCBHPDV EQU @NM00072 01903000 UCBHALI EQU @NM00072 01904000 UCBRSV09 EQU @NM00072 01905000 UCBRSV08 EQU @NM00072 01906000 UCBRSV07 EQU @NM00072 01907000 UCBRSV06 EQU @NM00072 01908000 UCBRSV05 EQU @NM00072 01909000 UCBRSV04 EQU @NM00072 01910000 UCBDTI EQU UCBCMEXT+2 01911000 UCBSTI EQU UCBCMEXT+1 01912000 UCBETI EQU UCBCMEXT 01913000 UCBEXTP EQU UCBEXTPT+1 01914000 UCBDDRSW EQU UCBFLC 01915000 UCBTICBT EQU UCBFLC 01916000 UCBIVRR EQU UCBFLC 01917000 UCBIVRS EQU UCBFLC 01918000 UCBITF EQU UCBFLC 01919000 UCBUDE EQU UCBFLC 01920000 UCBWAA EQU UCBFLC 01921000 UCBATTP EQU UCBFLC 01922000 UCBUNTYP EQU UCBTBYT4 01923000 UCBRSV11 EQU UCBDVCLS 01924000 UCBRSV10 EQU UCBDVCLS 01925000 UCB3CHAR EQU UCBDVCLS 01926000 UCB3UREC EQU UCBDVCLS 01927000 UCB3DISP EQU UCBDVCLS 01928000 UCB3COMM EQU UCBDVCLS 01929000 UCB3TAPE EQU UCBDVCLS 01930000 UCBDVPWR EQU UCB2OPT7 01931000 UCBVLPWR EQU UCB2OPT6 01932000 UCB2OPT5 EQU UCBTBYT2 01933000 UCBRVDEV EQU UCBRWTAU 01934000 UCBRPS EQU UCBDUDN2 01935000 UCBRR EQU UCBDUDN1 01936000 UCB2OPT1 EQU UCBTBYT2 01937000 UCB2OPT0 EQU UCBTBYT2 01938000 UCB1FEA7 EQU UCBTBYT1 01939000 UCBD6250 EQU UCB1FEA6 01940000 UCBD1600 EQU UCB1FEA5 01941000 UCB1FEA4 EQU UCBTBYT1 01942000 UCB1FEA3 EQU UCBTBYT1 01943000 UCB1FEA2 EQU UCBTBYT1 01944000 UCB1FEA1 EQU UCBTBYT1 01945000 UCB1FEA0 EQU UCBTBYT1 01946000 UCBNAME EQU UCBOB+13 01947000 UCBRV029 EQU UCBWGT 01948000 UCBVHRSN EQU UCBWGT 01949000 UCBVORSN EQU UCBWGT 01950000 UCBMTPXP EQU UCBWGT 01951000 UCBREW EQU UCBWGT 01952000 UCBPUB EQU UCBWGT 01953000 UCBOUT EQU UCBWGT 01954000 UCBIN EQU UCBWGT 01955000 UCBCPU EQU UCBOB+11 01956000 UCBLCI EQU UCBOB+10 01957000 UCBCNT EQU UCBOB+9 01958000 UCBRV017 EQU UCBCHM1 01959000 UCBRV016 EQU UCBCHM1 01960000 UCBRV015 EQU UCBCHM1 01961000 UCBRV014 EQU UCBCHM1 01962000 UCBSPB EQU UCBPTH1 01963000 UCBPPB EQU UCBPTH1 01964000 UCBSPA EQU UCBPTH0 01965000 UCBPPA EQU UCBPTH0 01966000 UCBSIGP EQU UCBFLB 01967000 UCBVALPH EQU UCBFLB 01968000 UCBCRHSN EQU UCBFLB 01969000 UCBCRHRV EQU UCBFLB 01970000 UCBRESVH EQU UCBFLB 01971000 UCBSPST EQU UCBFLB 01972000 UCBASNS EQU UCBFLB 01973000 UCBIORST EQU UCBFLB 01974000 UCBQISCE EQU UCBFL1 01975000 UCBACTV EQU UCBFL1 01976000 UCBSAP EQU UCBFL1 01977000 UCBNOTRC EQU UCBCUB 01978000 UCBPSNS EQU UCBFL1 01979000 UCBUSING EQU UCBPST 01980000 UCBNOTRD EQU UCBNRY 01981000 UCBBUSYD EQU UCBBSY 01982000 UCBUA EQU UCBCHAN+1 01983000 UCBCHA EQU UCBCHAN 01984000 UCBDADI EQU UCBSTAT 01985000 UCBSYSR EQU UCBSTAT 01986000 UCBPRES EQU UCBSTAT 01987000 UCBALOC EQU UCBSTAT 01988000 UCBUNLD EQU UCBSTAT 01989000 UCBRESV EQU UCBSTAT 01990000 UCBCHGS EQU UCBSTAT 01991000 UCBONLI EQU UCBSTAT 01992000 UCBID EQU UCBOB+2 01993000 UCBALTPH EQU UCBFL5 01994000 UCBALTCU EQU UCBFL5 01995000 UCBNALOC EQU UCBFL5 01996000 UCBENVRD EQU UCBFL5 01997000 UCBVSDR EQU UCBFL5 01998000 UCBSASK EQU UCBFL5 01999000 UCBAMV EQU UCBAF 02000000 UCBDCC EQU UCBFL5 02001000 UCBMONT EQU UCBJBNR 02002000 UCBRV011 EQU UCBJBNR 02003000 UCBMMSGP EQU UCBJBNR 02004000 UCBOLDSM EQU UCBJBNR 02005000 UCBRV003 EQU UCBJBNR 02006000 UCBDUC EQU UCBJBNR 02007000 UCBJES3 EQU UCBJBNR 02008000 UCBVRDEV EQU UCBJBNR 02009000 UCBCMSEG EQU UCBOB 02010000 UCBPFXND EQU UCB+512 02011000 UCBIOQ EQU UCB+508 02012000 UCBLOCK EQU UCB+504 02013000 UCBPXST EQU UCB+504 02014000 @NM00069 EQU UCB 02015000 DMCBWRK EQU DMCB+648 02016000 DMCBRES8 EQU DMCB+640 02017000 DMCBMODN EQU DMCB+632 02018000 DMCBCARY EQU DMCBAUDT+20 02019000 DMCBCLC EQU DMCBAUDT+12 02020000 DMCBOPC EQU DMCBAUDT+8 02021000 DMCBFRC EQU DMCBAUDT+4 02022000 DMCBALC EQU DMCBAUDT 02023000 DMCBRES6 EQU DMCB+410 02024000 DMCBIRSC EQU DMCB+408 02025000 DMCBSUBC EQU DMCB+404 02026000 DMCBDRBP EQU DMCB+400 02027000 DMCBRSZM EQU DMCB+398 02028000 DMCBRSZA EQU DMCB+396 02029000 DMCBCISZ EQU DMCB+394 02030000 DMCBDCBL EQU DMCB+392 02031000 DMCBDCLR EQU DMCB+390 02032000 DMCBDCFM EQU DMCB+389 02033000 DMCBRES5 EQU DMCB+388 02034000 DMCBLBRT EQU DMCB+386 02035000 DMCBLBSQ EQU DMCB+384 02036000 DMCBLBPS EQU DMCB+383 02037000 DMCBLBTY EQU DMCB+382 02038000 DMCBRES4 EQU DMCB+381 02039000 DMCBSPRS EQU DMCBSPEC 02040000 DMCBSPRN EQU DMCBSPEC 02041000 DMCBSPCT EQU DMCBSPEC 02042000 DMCBSPRL EQU DMCBSPEC 02043000 DMCBSPSE EQU DMCB+376 02044000 DMCBSPPR EQU DMCB+372 02045000 DMCBSPTY EQU DMCB+369 02046000 DMCBODIS EQU DMCB+368 02047000 DMCBDISP EQU DMCB+367 02048000 DMCBSTAT EQU DMCB+366 02049000 DMCBRES3 EQU DMCB+364 02050000 DMCBMEMB EQU DMCB+356 02051000 DMCBMODL EQU DMCB+348 02052000 DMCBRES9 EQU DMCB+340 02053000 DMCBPID EQU DMCB+332 02054000 DMCBTYPE EQU DMCB+328 02055000 DMCBDSN EQU DMCB+284 02056000 DMCBUNIT EQU DMCB+276 02057000 DMCBVOL EQU DMCB+268 02058000 DMCBSYNM EQU DMCB+132 02059000 DMCBRPLF EQU DMCB+128 02060000 DMCBDCBE EQU DMCBACBE 02061000 DMCBARC EQU DMCB+120 02062000 DMCBCPC EQU DMCB+116 02063000 DMCBRET EQU DMCB+112 02064000 DMCBSTL EQU DMCB+96 02065000 DMCBEOB EQU DMCB+92 02066000 DMCBFRE EQU DMCB+88 02067000 DMCBRES2 EQU DMCB+85 02068000 DMCBSPID EQU DMCB+84 02069000 DMCBRESC EQU DMCB+80 02070000 DMCBZZ1P EQU DMCB+76 02071000 DMCBMSGS EQU DMCB+72 02072000 DMCBMSG0 EQU DMCB+68 02073000 DMCBRRL EQU DMCB+60 02074000 DMCBRBA EQU DMCB+56 02075000 DMCBKEYL EQU DMCB+48 02076000 DMCBKPC EQU DMCBKEYP 02077000 DMCBORL EQU DMCB+40 02078000 DMCBBLEN EQU DMCB+36 02079000 DMCBBFPC EQU DMCBBUFP 02080000 DMCBRES1 EQU DMCB+31 02081000 DMCBACCM EQU DMCB+30 02082000 DMCBREJ EQU DMCB+29 02083000 DMCBRESB EQU DMCBMFLG 02084000 DMCBFMOD EQU DMCBMFLG 02085000 DMCBLOPT EQU DMCB+27 02086000 DMCBLRM EQU DMCB+26 02087000 DMCBLRQ EQU DMCB+25 02088000 DMCBOPRS EQU DMCBOPTS 02089000 DMCBLRD EQU DMCBOPTS 02090000 DMCBBWD EQU DMCBOPTS 02091000 DMCBUPD EQU DMCBOPTS 02092000 DMCBAPX EQU DMCBOPTS 02093000 DMCBRNO EQU DMCBGKY 02094000 DMCBKYD EQU DMCBOPTS 02095000 DMCBRMRS EQU DMCBRMOD 02096000 DMCBRESA EQU DMCBOPN 02097000 DMCBSOUT EQU DMCBOPN 02098000 DMCBSIN EQU DMCBOPN 02099000 DMCBKSF EQU DMCBFTY 02100000 DMCBFTRS EQU DMCBFTY 02101000 DMCBSHF EQU DMCBFTY 02102000 DMCBIRL EQU DMCB+16 02103000 DMCBRTC EQU DMCB+12 02104000 DMCBTVP EQU DMCB+8 02105000 DMCBNEXT EQU DMCB+4 02106000 DVT99999 EQU DVT+256 02107000 DVT0064P EQU DVT+252 02108000 DVT0063P EQU DVT+248 02109000 DVT0062P EQU DVT+244 02110000 DVT0061P EQU DVT+240 02111000 DVT0060P EQU DVT+236 02112000 DVT0059P EQU DVT+232 02113000 DVT0058P EQU DVT+228 02114000 DVT0057P EQU DVT+224 02115000 DVT0056P EQU DVT+220 02116000 DVT0055P EQU DVT+216 02117000 DVT0054P EQU DVT+212 02118000 DVT0053P EQU DVT+208 02119000 DVT0052P EQU DVT+204 02120000 DVT0051P EQU DVT+200 02121000 DVT0050P EQU DVT+196 02122000 DVT0049P EQU DVT+192 02123000 DVT0048P EQU DVT+188 02124000 DVT0047P EQU DVT+184 02125000 DVT0046P EQU DVT+180 02126000 DVT0045P EQU DVT+176 02127000 DVT0044P EQU DVT+172 02128000 DVT0043P EQU DVT+168 02129000 DVT0042P EQU DVT+164 02130000 DVT0041P EQU DVT+160 02131000 DVT0040P EQU DVT+156 02132000 DVT0039P EQU DVT+152 02133000 DVT0038P EQU DVT+148 02134000 DVT0037P EQU DVT+144 02135000 DVT0036P EQU DVT+140 02136000 DVT0035P EQU DVT+136 02137000 DVT0034P EQU DVT+132 02138000 DVT0011P EQU DVT+40 02139000 DVT0005P EQU DVT+16 02140000 DVT0002P EQU DVT+4 02141000 DVT0001P EQU DVT 02142000 BVT99999 EQU BVT+256 02143000 BVT0064P EQU BVT+252 02144000 BVT0063P EQU BVT+248 02145000 BVT0062P EQU BVT+244 02146000 BVT0061P EQU BVT+240 02147000 BVT0060P EQU BVT+236 02148000 BVT0059P EQU BVT+232 02149000 BVT0057P EQU BVT+224 02150000 BVT0056P EQU BVT+220 02151000 BVTSTBLP EQU BVT+200 02152000 BVT0045P EQU BVT+176 02153000 BVT0044P EQU BVT+172 02154000 BVT0033P EQU BVT+128 02155000 BVT0032P EQU BVT+124 02156000 BVT0031P EQU BVT+120 02157000 BVT0030P EQU BVT+116 02158000 BVT0029P EQU BVT+112 02159000 BVT0026P EQU BVT+100 02160000 BVT0025P EQU BVT+96 02161000 BVT0024P EQU BVT+92 02162000 BVT0023P EQU BVT+88 02163000 BVT0016P EQU BVT+60 02164000 BVT0015P EQU BVT+56 02165000 BVT0014P EQU BVT+52 02166000 BVT0003P EQU BVT+8 02167000 BVT0001P EQU BVT 02168000 SA99 EQU SA+72 02169000 SARC EQU SAR+56 02170000 SARB EQU SAR+52 02171000 SARA EQU SAR+48 02172000 SAR9 EQU SAR+44 02173000 SAR8 EQU SAR+40 02174000 SAR7 EQU SAR+36 02175000 SAR6 EQU SAR+32 02176000 SAR5 EQU SAR+28 02177000 SAR4 EQU SAR+24 02178000 SAR3 EQU SAR+20 02179000 SAR2 EQU SAR+16 02180000 SAR1 EQU SAR+12 02181000 SAR0 EQU SAR+8 02182000 SARF EQU SAR+4 02183000 SARE EQU SAR 02184000 SAFWD EQU SA+8 02185000 SABAK EQU SA+4 02186000 SA1L EQU SA1+1 02187000 SA1P EQU SA1 02188000 UPTPREFL EQU UPT+23 02189000 UPTPREFX EQU UPT+16 02190000 @NM00068 EQU UPT+15 02191000 UPTLDEL EQU UPT+14 02192000 UPTCDEL EQU UPT+13 02193000 UPTWTP EQU UPTSWS 02194000 UPTMODE EQU UPTSWS 02195000 UPTALD EQU UPTSWS 02196000 UPTPAUS EQU UPTSWS 02197000 UPTNCOM EQU UPTSWS 02198000 UPTMID EQU UPTSWS 02199000 UPTNPRM EQU UPTSWS 02200000 UPTRCVR EQU UPTSWS 02201000 UPTUSER EQU UPT+2 02202000 @NM00067 EQU UPT 02203000 @NM00066 EQU ECT+52 02204000 @NM00065 EQU ECT+48 02205000 @NM00064 EQU ECT+44 02206000 @NM00063 EQU ECTSWS2+1 02207000 @NM00062 EQU ECTSWS21 02208000 ECTTABND EQU ECTSWS21 02209000 ECTDEFCS EQU ECTSWS21 02210000 ECTBKPB EQU ECT+36 02211000 ECTUSER EQU ECT+32 02212000 ECTDDNUM EQU ECT+29 02213000 ECTATTN EQU ECTSWS 02214000 ECTBKGRD EQU ECTSWS 02215000 ECTNNOT EQU ECTSWS 02216000 ECTNMAL EQU ECTSWS 02217000 ECTLOGF EQU ECTSWS 02218000 ECTATRM EQU ECTSWS 02219000 @NM00061 EQU ECTSWS 02220000 ECTNOPD EQU ECTSWS 02221000 ECTSCMD EQU ECT+20 02222000 ECTPCMD EQU ECT+12 02223000 ECTSMSG EQU ECT+9 02224000 ECTMSGF EQU ECT+8 02225000 ECTIOWA EQU ECT+4 02226000 ECTRTCD EQU ECT+1 02227000 ECTRCDF EQU ECT 02228000 PSCBU EQU PSCB+64 02229000 PSCBRSZ EQU PSCB+60 02230000 PSCBLINE EQU PSCB+59 02231000 PSCBCHAR EQU PSCB+58 02232000 PSCBUPTL EQU PSCB+56 02233000 PSCBUPT EQU PSCB+52 02234000 PSCBRLGB EQU PSCB+48 02235000 PSCBDEST EQU PSCB+40 02236000 @NM00060 EQU PSCB+36 02237000 @NM00059 EQU PSCB+32 02238000 @NM00058 EQU PSCB+28 02239000 PSCBLTI2 EQU PSCB+24 02240000 PSCBLTIM EQU PSCB+20 02241000 PSCBATR2 EQU PSCB+18 02242000 @NM00057 EQU PSCBATR1 02243000 @NM00056 EQU PSCBATR1 02244000 @NM00055 EQU PSCBATR1 02245000 PSCBATTN EQU PSCBATR1 02246000 PSCBVMNT EQU PSCBATR1 02247000 PSCBJCL EQU PSCBATR1 02248000 PSCBACCT EQU PSCBATR1 02249000 PSCBCTRL EQU PSCBATR1 02250000 PSCBGPNM EQU PSCB+8 02251000 PSCBUSRL EQU PSCB+7 02252000 PSCBUSER EQU PSCB 02253000 CMDT1 EQU CMDT 02254000 CMDO EQU CMD+2 02255000 CMDL EQU CMD 02256000 ZZ299999 EQU ZZ2+8192 02257000 ZZ2AXOT1 EQU ZZ2AXOT 02258000 ZZ2AXOL EQU ZZ2AXO 02259000 @NM00054 EQU ZZ2+7288 02260000 @NM00053 EQU ZZ2AMDX+4 02261000 ZZ2AMDXC EQU ZZ2AMDX 02262000 ZZ2HSD EQU ZZ2+3056 02263000 @NM00052 EQU ZZ2ES 02264000 @NM00051 EQU ZZ2+2868 02265000 ZZ2ITSEC EQU ZZ2ITSE+1 02266000 @NM00050 EQU ZZ2ITSE 02267000 ZZ2ITSEP EQU ZZ2ITSE 02268000 ZZ2ITSEW EQU ZZ2ITSE 02269000 @NM00049 EQU ZZ2ITR+20 02270000 ZZ2ITREC EQU ZZ2ITRE+1 02271000 @NM00048 EQU ZZ2ITRE 02272000 ZZ2ITREP EQU ZZ2ITRE 02273000 ZZ2ITREW EQU ZZ2ITRE 02274000 @NM00047 EQU ZZ2ITR+9 02275000 ZZ2ITRRC EQU ZZ2ITR+8 02276000 ZZ2ITR2P EQU ZZ2ITR+4 02277000 ZZ2ITRPP EQU ZZ2ITR 02278000 @NM00046 EQU ZZ2+1544 02279000 ZZ2PGM EQU ZZ2+1536 02280000 @NM00045 EQU ZZ2+1526 02281000 ZZ2CW EQU ZZ2+1524 02282000 @NM00044 EQU ZZ2+1504 02283000 @NM00043 EQU ZZ2+1352 02284000 ZZ2FFSYP EQU ZZ2+1348 02285000 ZZ2SASYP EQU ZZ2+1344 02286000 ZZ2RDSYP EQU ZZ2+1340 02287000 ZZ2RASYP EQU ZZ2+1336 02288000 ZZ2PHSYP EQU ZZ2+1332 02289000 ZZ2ESSYP EQU ZZ2+1328 02290000 ZZ200SYP EQU ZZ2+1324 02291000 ZZ2SCWP EQU ZZ2+1320 02292000 ZZ2TTLP EQU ZZ2+1316 02293000 ZZ2LOADP EQU ZZ2+1312 02294000 ZZ2VRESP EQU ZZ2+1308 02295000 ZZ2CPPLE EQU ZZ2CPPL+12 02296000 ZZ2CPPLP EQU ZZ2CPPL+8 02297000 ZZ2CPPLU EQU ZZ2CPPL+4 02298000 ZZ2VRSAP EQU ZZ2+1288 02299000 ZZ2RVTP EQU ZZ2+1284 02300000 @NM00042 EQU ZZ2+1272 02301000 @NM00041 EQU ZZ2+1268 02302000 ZZ2RPLP EQU ZZ2+1260 02303000 ZZ2TCBP EQU ZZ2+1256 02304000 @NM00040 EQU ZZ2+1252 02305000 ZZ2ZZ2P EQU ZZ2+1248 02306000 @NM00039 EQU ZZ2+1112 02307000 @NM00038 EQU ZZ2+1080 02308000 ZZ2FT25P EQU ZZ2+1072 02309000 @NM00037 EQU ZZ2+976 02310000 ZZ2TOD EQU ZZ2+968 02311000 ZZ2STGN EQU ZZ2STG+4 02312000 ZZ2STGP EQU ZZ2STG 02313000 @NM00036 EQU ZZ2+952 02314000 ZZ2SCMDE EQU ZZ2+944 02315000 ZZ2SCMDN EQU ZZ2+936 02316000 ZZ2IDENT EQU ZZ2+928 02317000 ZZ2A9999 EQU ZZ2A+656 02318000 @NM00035 EQU ZZ2A+224 02319000 @NM00034 EQU ZZ2A+220 02320000 ZZ2AQD99 EQU ZZ2AQD+60 02321000 @NM00033 EQU ZZ2AQD+56 02322000 @NM00032 EQU ZZ2AQDF 02323000 ZZ2AQDFA EQU ZZ2AQDF 02324000 ZZ2AQDIL EQU ZZ2AQD+48 02325000 ZZ2AQDIM EQU ZZ2AQD+44 02326000 ZZ2AQDT9 EQU ZZ2AQDT+34 02327000 ZZ2AQDTE EQU ZZ2AQDT+33 02328000 ZZ2AQDTD EQU ZZ2AQDT+2 02329000 @NM00031 EQU ZZ2AQDT+1 02330000 ZZ2AQDTY EQU ZZ2AQDT 02331000 ZZ2AQDT0 EQU ZZ2AQDT 02332000 ZZ2AQDLB EQU ZZ2AQD+9 02333000 ZZ2AQDOB EQU ZZ2AQD+8 02334000 ZZ2AQDLE EQU ZZ2AQD+4 02335000 ZZ2AQDOF EQU ZZ2AQD 02336000 ZZ2AQD00 EQU ZZ2AQD 02337000 ZZ2AQAS9 EQU ZZ2AQAS+16 02338000 @NM00030 EQU ZZ2AQAS+12 02339000 ZZ2AQAS2 EQU ZZ2AQAS+8 02340000 ZZ2AQAS1 EQU ZZ2AQAS+4 02341000 @NM00029 EQU ZZ2AQAS+2 02342000 ZZ2AQAST EQU ZZ2AQAS 02343000 ZZ2AQAS0 EQU ZZ2AQAS 02344000 ZZ2AZZ6P EQU ZZ2A+140 02345000 ZZ2ADPTA EQU ZZ2ADPT 02346000 ZZ2ADPL EQU ZZ2ADP 02347000 ZZ2ADMTA EQU ZZ2ADMT 02348000 ZZ2ADML EQU ZZ2ADM 02349000 ZZ2ADDTA EQU ZZ2ADDT 02350000 ZZ2ADDL EQU ZZ2ADD 02351000 @NM00028 EQU ZZ2A+72 02352000 ZZ2APIDB EQU ZZ2APID+3 02353000 ZZ2APIDA EQU ZZ2APID 02354000 @NM00027 EQU ZZ2A+24 02355000 @NM00026 EQU ZZ2AF+5 02356000 ZZ2AFX EQU ZZ2AF+5 02357000 @NM00025 EQU ZZ2AF+3 02358000 ZZ2AFS EQU ZZ2AF+2 02359000 ZZ2AFD EQU ZZ2AF+2 02360000 ZZ2AFQ EQU ZZ2AF+2 02361000 ZZ2AF$ EQU ZZ2AF+2 02362000 @NM00024 EQU ZZ2AF+2 02363000 ZZ2AFM EQU ZZ2AF+2 02364000 @NM00023 EQU ZZ2AF+2 02365000 @NM00022 EQU ZZ2AF+1 02366000 ZZ2AFV EQU ZZ2AF+1 02367000 @NM00021 EQU ZZ2AF+1 02368000 ZZ2AFC EQU ZZ2AF+1 02369000 @NM00020 EQU ZZ2AF 02370000 ZZ2AFFS EQU ZZ2AF 02371000 ZZ2AFT EQU ZZ2AF 02372000 ZZ2AFP EQU ZZ2AF 02373000 @NM00019 EQU ZZ2A+8 02374000 ZZ2ALINE EQU ZZ2A+4 02375000 @NM00018 EQU ZZ2A+3 02376000 ZZ2ASE EQU ZZ2A+2 02377000 ZZ2ACH EQU ZZ2A 02378000 @NM00017 EQU ZZ2+264 02379000 @NM00016 EQU ZZ2+263 02380000 ZZ2PRTT0 EQU ZZ2PRTT 02381000 ZZ2PRTO EQU ZZ2PRT+2 02382000 ZZ2PRTL EQU ZZ2PRT 02383000 @NM00015 EQU ZZ2AMD+56 02384000 ZZ2AMDXP EQU ZZ2AMD+52 02385000 ZZ2AMDD EQU ZZ2AMD+48 02386000 ZZ2AMDL EQU ZZ2AMD+44 02387000 ZZ2AMDU EQU ZZ2AMD+28 02388000 ZZ2AMDF EQU ZZ2AMD+24 02389000 ZZ2AMDS EQU ZZ2AMD+20 02390000 ZZ2AMDC EQU ZZ2AMD+16 02391000 ZZ2AMDP EQU ZZ2AMD+12 02392000 ZZ2AMDB EQU ZZ2AMD+8 02393000 @NM00014 EQU @NM00013 02394000 ZZ2AMD2 EQU @NM00013 02395000 ZZ2AMD1 EQU @NM00013 02396000 ZZ2AMD0 EQU ZZ2AMD+6 02397000 ZZ2AMDA EQU ZZ2AMD+4 02398000 ZZ2AMDT EQU ZZ2AMD 02399000 ZZ199999 EQU ZZ1+3072 02400000 @NM00012 EQU ZZ1+2160 02401000 ZZ1TRTAS EQU ZZ1+1904 02402000 ZZ1TRUPC EQU ZZ1+1648 02403000 ZZ1TRCTX EQU ZZ1+1392 02404000 ZZ1NASID EQU ZZ1N+274 02405000 ZZ1NSTRL EQU ZZ1N+272 02406000 ZZ1NOFF EQU ZZ1N+268 02407000 ZZ1NBDY EQU ZZ1N+264 02408000 ZZ1NADE EQU ZZ1N+260 02409000 ZZ1NADB EQU ZZ1N+256 02410000 ZZ1NSTR EQU ZZ1N 02411000 @NM00011 EQU ZZ1+1080 02412000 ZZ1TREBC EQU ZZ1+824 02413000 ZZ1TRHEX EQU ZZ1+568 02414000 @NM00010 EQU ZZ1+377 02415000 ZZ1USTAE EQU ZZ1+376 02416000 @NM00009 EQU ZZ1F+1 02417000 @NM00008 EQU ZZ1F 02418000 ZZ1FM EQU ZZ1F 02419000 ZZ1FX EQU ZZ1F 02420000 ZZ1FU EQU ZZ1F 02421000 ZZ1EVEC EQU ZZ1EVE+1 02422000 @NM00007 EQU ZZ1EVE 02423000 ZZ1EVEP EQU ZZ1EVE 02424000 ZZ1EVEW EQU ZZ1EVE 02425000 ZZ1ACMP EQU ZZ1ATTN 02426000 @NM00006 EQU ZZ1+144 02427000 ZZ1FPP EQU ZZ1+140 02428000 ZZ1ZZ6P EQU ZZ1+136 02429000 @NM00005 EQU ZZ1+84 02430000 ZZ1PLINE EQU ZZ1+80 02431000 ZZ1PGSZ EQU ZZ1+76 02432000 ZZ1PCNT EQU ZZ1+72 02433000 @NM00004 EQU ZZ1+68 02434000 ZZ1TPAGE EQU ZZ1+64 02435000 ZZ1TLINE EQU ZZ1+60 02436000 @NM00003 EQU ZZ1+52 02437000 ZZ1DMCBP EQU ZZ1+48 02438000 ZZ1DSDP EQU ZZ1+44 02439000 ZZ1PDRP EQU ZZ1+40 02440000 ZZ1ZZ2P EQU ZZ1+36 02441000 ZZ1327WP EQU ZZ1+32 02442000 ZZ1ACBP EQU ZZ1+28 02443000 @NM00002 EQU ZZ1+24 02444000 ZZ1PDCBP EQU ZZ1+20 02445000 ZZ1BLRBL EQU ZZ1+16 02446000 @NM00001 EQU ZZ1+12 02447000 ZZ1PNULL EQU ZZ1+8 02448000 ZZ1NULL EQU ZZ1+4 02449000 ZZ1IDE EQU ZZ1 02450000 * END UNREFERENCED COMPONENTS 02451000 @RF00149 EQU @RC00146 02452000 @RC00152 EQU @RC00146 02453000 @RC00205 EQU @EL00002 02454000 @RC00227 EQU @EL00003 02455000 @RF00361 EQU @EL00003 02456000 @RC00367 EQU @EL00004 02457000 @RF00413 EQU @EL00005 02458000 @RC00417 EQU @EL00006 02459000 @RC00435 EQU @EL00007 02460000 @RF00157 EQU @RC00152 02461000 @RC00155 EQU @RC00152 02462000 @RF00215 EQU @RC00205 02463000 @RC00229 EQU @RC00227 02464000 @RC00369 EQU @RC00367 02465000 @RC00419 EQU @RC00417 02466000 @RC00237 EQU @RC00229 02467000 @RC00240 EQU @RC00237 02468000 @RC00263 EQU @RC00240 02469000 @RF00288 EQU @RC00263 02470000 @RF00290 EQU @RC00263 02471000 @ENDDATA EQU * 02472000 END BLSFSCRT,(C'PLS2124',0701,78065) 02473000