TITLE 'IPCS LIST DSN ATTRIBUTES COMMAND PROCESSOR *00001000 ' 00002000 * /* CHANGE ACTIVITY * 00003000 *THIS MODULE WRITTEN FOR @G57LPGS 00004000 BLSFLD00 CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSFLD00 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 BLSUALLR 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 * ZZ2PTR=R1; /* SAVE PTR TO ZZ2 CTRL BLK */ 00024000 LR ZZ2PTR,R1 0182 00025000 * RESPECIFY 0183 00026000 * R1 UNRESTRICTED; /* FREE REG1 TO USE WITH PARMS */ 00027000 * RESPECIFY 0184 00028000 * DSDREC BASED(ADDR(DSDBUF)); /* SET DSD BASING EXPRESSION */ 00029000 * RETC=ZERO; /* INITIALIZE THE RETURN CODE */ 00030000 SLR RETC,RETC 0185 00031000 * MSGP=ZERO; /* INITIALIZE THE MESSAGE POINTER*/ 00032000 SLR @14,@14 0186 00033000 ST @14,MSGP 0186 00034000 * DO; /* BLSUPARS ROUTING MF(E,PX) */ 00035000 * CALL BLSUPARI(ZZ2,PCCSECT,PDAPTR);/* PARSE OPERANDS */ 00036000 ST ZZ2PTR,@AL00001 0188 00037000 L @14,PCPTR 0188 00038000 ST @14,@AL00001+4 0188 00039000 LA @14,PDAPTR 0188 00040000 ST @14,@AL00001+8 0188 00041000 L @10,ZZ2BVTP(,ZZ2PTR) 0188 00042000 L @15,BVTPARIP(,@10) 0188 00043000 LA @01,@AL00001 0188 00044000 BALR @14,@15 0188 00045000 * RESPECIFY 0189 00046000 * (GPR15F) RESTRICTED; 0189 00047000 * IF GPR15F^=ZZZFLAGI THEN 0190 00048000 * 0190 00049000 LTR GPR15F,GPR15F 0190 00050000 BZ @RF00190 0190 00051000 * /*************************************************************/ 00052000 * /* */ 00053000 * /* UNABLE TO PARSE */ 00054000 * /* */ 00055000 * /*************************************************************/ 00056000 * 0191 00057000 * DO; /* UNABLE TO PARSE */ 00058000 * RETC=GPR15F; /* RETURN CODE */ 00059000 LR RETC,GPR15F 0192 00060000 * GO TO EXITNORL; /* EXIT WITHOUT PDL */ 00061000 B EXITNORL 0193 00062000 * END; 0194 00063000 * RESPECIFY 0195 00064000 * (GPR15F) UNRESTRICTED; 0195 00065000 @RF00190 DS 0H 0196 00066000 * RESPECIFY 0196 00067000 * (PDRPTR) RESTRICTED; 0196 00068000 * PDRPTR=PDAPTR; /* ->PDL */ 00069000 L PDRPTR,PDAPTR 0197 00070000 * GENERATE REFS(PD,PDRPTR) CODE(USING PD,PDRPTR); 0198 00071000 USING PD,PDRPTR 00072000 * IF PXTEST=PXTEST1 THEN 0199 00073000 CLC PXTEST(2),@CH00040 0199 00074000 BNE @RF00199 0199 00075000 * ZZ2AFX=ZZZ1; /* TEST */ 00076000 OI ZZ2AFX(ZZ2PTR),B'10000000' 0200 00077000 * ELSE 0201 00078000 * IF PXTEST=PXTEST0 THEN 0201 00079000 B @RC00199 0201 00080000 @RF00199 CLC PXTEST(2),@CH00067 0201 00081000 BNE @RF00201 0201 00082000 * ZZ2AFX=ZZZ0; /* NOTEST */ 00083000 NI ZZ2AFX(ZZ2PTR),B'01111111' 0202 00084000 * CALL BLSUPARU(ZZ2,PDDSECT,PXRO);/* SET ROUTING OPTIONS */ 00085000 @RF00201 DS 0H 0203 00086000 @RC00199 ST ZZ2PTR,@AL00001 0203 00087000 ST PDRPTR,@AL00001+4 0203 00088000 LA @14,PXRO 0203 00089000 ST @14,@AL00001+8 0203 00090000 L @10,ZZ2BVTP(,ZZ2PTR) 0203 00091000 L @15,BVTPARUP(,@10) 0203 00092000 LA @01,@AL00001 0203 00093000 BALR @14,@15 0203 00094000 * RESPECIFY 0204 00095000 * (GPR15F) RESTRICTED; 0204 00096000 * RETC=MAX(RETC,GPR15F); /* RETURN CODE */ 00097000 CR RETC,GPR15F 0205 00098000 BNL *+6 00099000 LR RETC,GPR15F 0205 00100000 * RESPECIFY 0206 00101000 * (GPR15F) UNRESTRICTED; 0206 00102000 * IF RETC>ZZZFLAGE THEN /* SERIOUS ERROR */ 00103000 C RETC,@CF00048 0207 00104000 BH @RT00207 0207 00105000 * GO TO EXITRLSA; /* EXIT WITH PDL */ 00106000 * END; /* BLSUPARS ROUTING MF(E,PX) GO 00107000 * PARSE THE COMMAND OPERANDS */ 00108000 * IF PROBWD=PROBLEM THEN /* LIST OF PROBLEMS REQUESTED */ 00109000 CLC PROBWD(2),@CH00040 0210 00110000 BNE @RF00210 0210 00111000 * YESNO=YES; /* TURN ON YES FOR PROBLIST */ 00112000 MVC YESNO(3),@CC01040 0211 00113000 * ELSE /* NOT SPECIFIED */ 00114000 * YESNO=NO; /* INDICATE NO PROB LIST 0212 00115000 * REQUESTED */ 00116000 B @RC00210 0212 00117000 @RF00210 MVC YESNO(3),@CC01042 0212 00118000 * IF DSNWD^=ALL THEN /* WAS ALL SPECIFIED */ 00119000 @RC00210 CLC DSNWD(2),@CH00067 0213 00120000 BE @RF00213 0213 00121000 * DO; /* NO, GO DO SETUP OF DSN */ 00122000 * CALL BLSFLV00; /* GO VALIDATE THE MODIFY CMD OPS*/ 00123000 BAL @14,BLSFLV00 0215 00124000 * RETC=RF; /* SAVE THE RETURN CODE */ 00125000 LR RETC,RF 0216 00126000 * IF RETC=ZERO THEN /* WAS THE DSD BASE RECORD GOTTEN*/ 00127000 LTR RETC,RETC 0217 00128000 BNZ @RF00217 0217 00129000 * DO; /* YES, CONTINUE */ 00130000 * 0218 00131000 * /*********************************************************/ 00132000 * /* */ 00133000 * /* GO FORMAT THE DSN ATTRIBUTES */ 00134000 * /* */ 00135000 * /*********************************************************/ 00136000 * 0219 00137000 * CALL BLSFDF00(ZZ2,DSDBUF,YESNO,MSGP); 0219 00138000 ST ZZ2PTR,@AL00001 0219 00139000 LA @14,DSDBUF 0219 00140000 ST @14,@AL00001+4 0219 00141000 LA @14,YESNO 0219 00142000 ST @14,@AL00001+8 0219 00143000 LA @14,MSGP 0219 00144000 ST @14,@AL00001+12 0219 00145000 L @10,ZZ2DVTP(,ZZ2PTR) 0219 00146000 L @15,DVTDF00P(,@10) 0219 00147000 LA @01,@AL00001 0219 00148000 BALR @14,@15 0219 00149000 * RETC=RF; /* SAVE THE RETURN CODE */ 00150000 LR RETC,RF 0220 00151000 * IF RETC=ZERO THEN /* DID FORMAT WORK OK ? */ 00152000 LTR RETC,RETC 0221 00153000 BNZ @RF00221 0221 00154000 * DO; /* YES, OUTPUT REPORT */ 00155000 * 0222 00156000 * /*****************************************************/ 00157000 * /* */ 00158000 * /* OUTPUT RETPORT TO USER */ 00159000 * /* */ 00160000 * /*****************************************************/ 00161000 * 0223 00162000 * DO; /* BLSDMSG 0223 00163000 * (ZZ2,MINUSONE,MSGP,BLSDMSGS) 00164000 * ROUTE(BOTH) */ 00165000 * CALL BLSDMSG0(ZZ2,MINUSONE,MSGP,BLSDMSGS,'00110000'B, 00166000 * 0); /* BUILD MESSAGE */ 00167000 ST ZZ2PTR,@AL00001 0224 00168000 LA @14,@CF01018 0224 00169000 ST @14,@AL00001+4 0224 00170000 LA @14,MSGP 0224 00171000 ST @14,@AL00001+8 0224 00172000 L @14,ZZ2MSGSP(,ZZ2PTR) 0224 00173000 ST @14,@AL00001+12 0224 00174000 LA @14,@CB01071 0224 00175000 ST @14,@AL00001+16 0224 00176000 LA @14,@CF00045 0224 00177000 ST @14,@AL00001+20 0224 00178000 L @15,ZZ2MSG0P(,ZZ2PTR) 0224 00179000 LA @01,@AL00001 0224 00180000 BALR @14,@15 0224 00181000 * END; /* BLSDMSG 0225 00182000 * (ZZ2,MINUSONE,MSGP,BLSDMSGS) 00183000 * ROUTE(BOTH) */ 00184000 * RETC=RF; /* SAVE THE RETURN CODE */ 00185000 LR RETC,RF 0226 00186000 * END; /* END REPORT OK */ 00187000 * END; /* END COMMAND OPS VALID */ 00188000 * END; /* END ALL NOT SPECIFIED */ 00189000 * ELSE /* ALL OPERAND SPECIFIED */ 00190000 * DO; /* DO LISTDSN ALL PROCESSING */ 00191000 B @RC00213 0230 00192000 @RF00213 DS 0H 0231 00193000 * EXITFLAG=OFF; /* SET EXT FLAG OFF */ 00194000 NI EXITFLAG,B'01111111' 0231 00195000 * DSNKEY=DSNKEY&&DSNKEY; /* SET THE KEY FOR DSD TO ZERO */ 00196000 XC DSNKEY(61),DSNKEY 0232 00197000 * DSNKEYTY=DSDRBTYC; /* INDICATE REQUEST FOR FIRST 0233 00198000 * BASE */ 00199000 MVI DSNKEYTY,C'B' 0233 00200000 * DO WHILE EXITFLAG=OFF&ZZ1EVEP=OFF&RETC=ZERO; 0234 00201000 B @DE00234 0234 00202000 @DL00234 DS 0H 0235 00203000 * CALL BLSFGG00(ZZ2,DSNKEY,DSDBUF);/* CALL KEY GE GET FOR 0235 00204000 * RECORD */ 00205000 ST ZZ2PTR,@AL00001 0235 00206000 LA @14,DSNKEY 0235 00207000 ST @14,@AL00001+4 0235 00208000 LA @14,DSDBUF 0235 00209000 ST @14,@AL00001+8 0235 00210000 L @10,ZZ2DVTP(,ZZ2PTR) 0235 00211000 L @15,DVTGG00P(,@10) 0235 00212000 LA @01,@AL00001 0235 00213000 BALR @14,@15 0235 00214000 * RETC=RF; /* SAVE OPEN RETURN COD */ 00215000 LR RETC,RF 0236 00216000 * IF RETC=ZERO THEN /* ALL OK ? */ 00217000 LTR RETC,RETC 0237 00218000 BNZ @RF00237 0237 00219000 * DO; /* YES SET UP TO LOOP THROUGH DSD*/ 00220000 * DSNKEY=DSDKGRP; /* SAVE KEY OF RECORD OBTAINED */ 00221000 MVI DSNKEY+53,C' ' 0239 00222000 MVC DSNKEY+54(7),DSNKEY+53 0239 00223000 LA @14,DSDBUF 0239 00224000 MVC DSNKEY(53),DSDKGRP(@14) 0239 00225000 * IF DSDKPID=DSDBRECC THEN/* DID WE GET A BASE RECORD ? */ 00226000 CLC DSDKPID(8,@14),@CC00935 0240 00227000 BNE @RF00240 0240 00228000 * DO; /* YES, CALL FORMAT ROUTINE */ 00229000 * CALL BLSFDF00(ZZ2,DSDBUF,YESNO,MSGP);/* FORMAT THE 00230000 * DSN */ 00231000 ST ZZ2PTR,@AL00001 0242 00232000 LA @14,DSDBUF 0242 00233000 ST @14,@AL00001+4 0242 00234000 LA @14,YESNO 0242 00235000 ST @14,@AL00001+8 0242 00236000 LA @14,MSGP 0242 00237000 ST @14,@AL00001+12 0242 00238000 L @10,ZZ2DVTP(,ZZ2PTR) 0242 00239000 L @15,DVTDF00P(,@10) 0242 00240000 LA @01,@AL00001 0242 00241000 BALR @14,@15 0242 00242000 * RETC=RF; /* SAVE THE RETURN CODE */ 00243000 LR RETC,RF 0243 00244000 * IF RETC=ZERO THEN /* DID FORMAT WORK OK ? */ 00245000 LTR RETC,RETC 0244 00246000 BNZ @RF00244 0244 00247000 * DO; /* YES, OUTPUT REPORT */ 00248000 * 0245 00249000 * /***********************************************/ 00250000 * /* */ 00251000 * /* OUTPUT RETPORT TO USER */ 00252000 * /* */ 00253000 * /***********************************************/ 00254000 * 0246 00255000 * DO; /* BLSDMSG 0246 00256000 * (ZZ2,MINUSONE,MSGP,BLSDMSGS) 00257000 * ROUTE(BOTH) */ 00258000 * CALL BLSDMSG0(ZZ2,MINUSONE,MSGP,BLSDMSGS, 0247 00259000 * '00110000'B,0);/* BUILD MESSAGE */ 00260000 ST ZZ2PTR,@AL00001 0247 00261000 LA @14,@CF01018 0247 00262000 ST @14,@AL00001+4 0247 00263000 LA @14,MSGP 0247 00264000 ST @14,@AL00001+8 0247 00265000 L @14,ZZ2MSGSP(,ZZ2PTR) 0247 00266000 ST @14,@AL00001+12 0247 00267000 LA @14,@CB01071 0247 00268000 ST @14,@AL00001+16 0247 00269000 LA @14,@CF00045 0247 00270000 ST @14,@AL00001+20 0247 00271000 L @15,ZZ2MSG0P(,ZZ2PTR) 0247 00272000 LA @01,@AL00001 0247 00273000 BALR @14,@15 0247 00274000 * END; /* BLSDMSG 0248 00275000 * (ZZ2,MINUSONE,MSGP,BLSDMSGS) 00276000 * ROUTE(BOTH) */ 00277000 * RETC=RF; /* SAVE THE RETURN CODE */ 00278000 LR RETC,RF 0249 00279000 * END; /* END REPORT OK */ 00280000 * IF RETC=ZERO THEN /* DID THE FORMAT WORK */ 00281000 @RF00244 LTR RETC,RETC 0251 00282000 BNZ @RF00251 0251 00283000 * DO; /* YES, CONTINUE */ 00284000 * DSNKEYPN=NEXTREC;/* SET THE KEY TO NEXT RECORD */ 00285000 MVC DSNKEYPN(8),@CC01044 0253 00286000 * END; /* END FORMAT WORKED */ 00287000 * END; /* END GOT BASE RECORD */ 00288000 * ELSE /* GOT SOMETHING OTHER THAN A 0256 00289000 * BASE */ 00290000 * DO; /* SET UP TO EXT */ 00291000 B @RC00240 0256 00292000 @RF00240 DS 0H 0257 00293000 * EXITFLAG=ON; /* SET EXT CONDITION */ 00294000 OI EXITFLAG,B'10000000' 0257 00295000 * END; /* GET OUT */ 00296000 * END; /* END ZERO RETURN CODE BLSGG00 */ 00297000 * ELSE /* OPEN FAILED */ 00298000 * DO; /* HANDLE ACCESS ERROR */ 00299000 B @RC00237 0260 00300000 @RF00237 DS 0H 0261 00301000 * DO; /* BLSDMSG 0261 00302000 * (ZZ2,BADDSDAC,MSGP,BLSDMSGS) 00303000 * LIFO ROUTE(TERM) */ 00304000 * CALL BLSDMSG0(ZZ2,BADDSDAC,MSGP,BLSDMSGS,'10010000'B,0) 00305000 * ; /* BUILD MESSAGE */ 00306000 ST ZZ2PTR,@AL00001 0262 00307000 LA @14,@CF01027 0262 00308000 ST @14,@AL00001+4 0262 00309000 LA @14,MSGP 0262 00310000 ST @14,@AL00001+8 0262 00311000 L @14,ZZ2MSGSP(,ZZ2PTR) 0262 00312000 ST @14,@AL00001+12 0262 00313000 LA @14,@CB01072 0262 00314000 ST @14,@AL00001+16 0262 00315000 LA @14,@CF00045 0262 00316000 ST @14,@AL00001+20 0262 00317000 L @15,ZZ2MSG0P(,ZZ2PTR) 0262 00318000 LA @01,@AL00001 0262 00319000 BALR @14,@15 0262 00320000 * END; /* BLSDMSG 0263 00321000 * (ZZ2,BADDSDAC,MSGP,BLSDMSGS) 00322000 * LIFO ROUTE(TERM) */ 00323000 * 0263 00324000 * /*******************************************************/ 00325000 * /* */ 00326000 * /* MESSAGE USER OF DSD ACCESS ER */ 00327000 * /* */ 00328000 * /*******************************************************/ 00329000 * 0264 00330000 * RETC=MAX(RETC,TWELVE);/* SET ERROR RETURN CODE */ 00331000 LA @14,12 0264 00332000 CR RETC,@14 0264 00333000 BNL *+6 00334000 LR RETC,@14 0264 00335000 * END; /* END OPER ERROR */ 00336000 * END; /* END DSD LOOP PROCESSING */ 00337000 @RC00237 DS 0H 0266 00338000 @DE00234 TM EXITFLAG,B'10000000' 0266 00339000 BNZ @DC00234 0266 00340000 L @14,ZZ2ZZ1P(,ZZ2PTR) 0266 00341000 TM ZZ1EVEP(@14),B'01000000' 0266 00342000 BNZ @DC00234 0266 00343000 LTR RETC,RETC 0266 00344000 BZ @DL00234 0266 00345000 @DC00234 DS 0H 0267 00346000 * END; /* END LISTDSN ALL PROCESSING */ 00347000 *EXITRLSA: 0268 00348000 * DO WHILE(PDAPTR^=0); /* BLRRLSA MF(EXECUTE,PD) */ 00349000 @RC00213 DS 0H 0268 00350000 EXITRLSA B @DE00268 0268 00351000 @DL00268 DS 0H 0269 00352000 * PDRPTR=PDAPTR; 0269 00353000 L PDRPTR,PDAPTR 0269 00354000 * PDAPTR=PDXP; 0270 00355000 L @14,PDXP-1(,PDRPTR) 0270 00356000 LA @14,0(,@14) 0270 00357000 ST @14,PDAPTR 0270 00358000 * DO; /* FREEMAIN(R) 0271 00359000 * LV(PDL)SP(1)A(PDDSECT) */ 00360000 * RESPECIFY 0272 00361000 * (GPR01F, 0272 00362000 * GPR00F) RESTRICTED; 0272 00363000 * GPR00F=PDL; /* LENGTH REQUESTED */ 00364000 L GPR00F,PDL-1(,PDRPTR) 0273 00365000 ICM GPR00F,8,@CB01105 0273 00366000 * GPR01F=1; /* SP IN REG 1 */ 00367000 LA GPR01F,1 0274 00368000 * GEN(SLL GPR01F,24) 0275 00369000 * NODEFS NOREFS NOSETS NOEXIT NOFLOWS SEQFLOW; 0275 00370000 SLL GPR01F,24 00371000 * GPR00F=GPR00F|GPR01F; /* SP IN HI BYTE */ 00372000 OR GPR00F,GPR01F 0276 00373000 * GPR01F=ADDR(PDDSECT); /* SET REGISTER ONE */ 00374000 LR GPR01F,PDRPTR 0277 00375000 * SVC(10); /* R-FORM OF GETMAIN */ 00376000 SVC 10 0278 00377000 * RESPECIFY 0279 00378000 * (GPR01F, 0279 00379000 * GPR00F) UNRESTRICTED; 0279 00380000 * END; /* FREEMAIN(R) 0280 00381000 * LV(PDL)SP(1)A(PDDSECT) */ 00382000 * END; /* BLRRLSA MF(EXECUTE,PD) FREE 0281 00383000 * PRASE DESC LIST */ 00384000 @DE00268 L @14,PDAPTR 0281 00385000 LTR @14,@14 0281 00386000 BNZ @DL00268 0281 00387000 *EXITNORL: /* ERROR PARSING THE CMND 0282 00388000 * OPERANDS */ 00389000 * RETURN CODE(RETC); /* RETURN TO MONITOR WITH PARSE 00390000 * RC */ 00391000 EXITNORL L @13,4(,@13) 0282 00392000 L @00,@SIZDATD 0282 00393000 LR @01,@11 0282 00394000 BLSUFRER R,LV=(0),A=(1) 00395000 LR @15,@07 0282 00396000 L @14,12(,@13) 0282 00397000 LM @00,@12,20(@13) 0282 00398000 BR @14 0282 00399000 * 0283 00400000 */********************************************************************/ 00401000 */* */ 00402000 */* BLSFLV00 - VALIDATE LISTDSN COMMAND PARAMETERS */ 00403000 */* */ 00404000 */********************************************************************/ 00405000 * 0283 00406000 *BLSFLV00: 0283 00407000 * PROCEDURE; /* LIST VALIDATE SUBROUTINE */ 00408000 BLSFLV00 STM @14,@12,@SA00002 0283 00409000 * CALL BLSFDS00(ZZ2,DSN,CURDSN,CURMEM,DSNKEY);/* SETUP DSN */ 00410000 ST ZZ2PTR,@AL00001 0284 00411000 LA @14,DSN 0284 00412000 ST @14,@AL00001+4 0284 00413000 LA @14,CURDSN 0284 00414000 ST @14,@AL00001+8 0284 00415000 LA @14,CURMEM 0284 00416000 ST @14,@AL00001+12 0284 00417000 LA @14,DSNKEY 0284 00418000 ST @14,@AL00001+16 0284 00419000 L @10,ZZ2DVTP(,ZZ2PTR) 0284 00420000 L @15,DVTDS00P(,@10) 0284 00421000 LA @01,@AL00001 0284 00422000 BALR @14,@15 0284 00423000 * RETC=RF; /* SAVE THE RETURN CODE */ 00424000 LR RETC,RF 0285 00425000 * IF RETC=ZERO THEN /* DID DSN SETUP WORK OK */ 00426000 LTR RETC,RETC 0286 00427000 BNZ @RF00286 0286 00428000 * DO; /* YES, GO GET DSD BASE REC */ 00429000 * IF CURMEM=BLANK THEN /* ANY MEMBER NAME SPECIFIED */ 00430000 CLC CURMEM(8),@CC00099 0288 00431000 BNE @RF00288 0288 00432000 * CURMEMNM=BLANKS; /* BLANK THE MEMBER NAME */ 00433000 MVC CURMEMNM(10),@CC01030 0289 00434000 * ELSE /* MEMBER NAME IS PRESENT */ 00435000 * DO; /* ADD LEFT AND RIGHT PARENS */ 00436000 B @RC00288 0290 00437000 @RF00288 DS 0H 0291 00438000 * CURMNLP=LEFTPARN; /* SET IN LEFT PAREN */ 00439000 MVI CURMNLP,C'(' 0291 00440000 * CURMNRP=RITEPARN; /* SET IN RIGHT PAREN */ 00441000 MVI CURMNRP,C')' 0292 00442000 * END; /* END NON BLANK MEMBER NAME */ 00443000 * CALL BLSFGD00(ZZ2,DSNKEY,DSDBUF); 0294 00444000 * 0294 00445000 @RC00288 ST ZZ2PTR,@AL00001 0294 00446000 LA @14,DSNKEY 0294 00447000 ST @14,@AL00001+4 0294 00448000 LA @14,DSDBUF 0294 00449000 ST @14,@AL00001+8 0294 00450000 L @10,ZZ2DVTP(,ZZ2PTR) 0294 00451000 L @15,DVTGD00P(,@10) 0294 00452000 LA @01,@AL00001 0294 00453000 BALR @14,@15 0294 00454000 * /*************************************************************/ 00455000 * /* */ 00456000 * /* GET THE DSD BASE REC THIS DSN */ 00457000 * /* */ 00458000 * /*************************************************************/ 00459000 * 0295 00460000 * RETC=RF; /* SAVE THE RETURN CODE */ 00461000 LR RETC,RF 0295 00462000 * IF RETC^=ZERO THEN /* ALL NON ZERO RET CODE */ 00463000 SLR @14,@14 0296 00464000 CR RETC,@14 0296 00465000 BE @RF00296 0296 00466000 * DO; /* GO GET ASSOC RECORD */ 00467000 * IF RETC=EIGHT THEN /* NO RECORD FOUND ? */ 00468000 LA @10,8 0298 00469000 CR RETC,@10 0298 00470000 BNE @RF00298 0298 00471000 * DO; /* YES, MSG INVALID DS NAME */ 00472000 * RESPECIFY 0300 00473000 * DMCB BASED(ZZ1DSDP); 0300 00474000 * DO; /* BLSDMSG 0301 00475000 * (ZZ2,BADDSN,MSGP,BLSDMSGS) 0301 00476000 * LIFO ROUTE(TERM)INSERT(CURDSN, 00477000 * CURMNLP,CURMEM,CURMNRP)COMP */ 00478000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT 0302 00479000 * INSERT */ 00480000 LA @04,IOPTLIST+12 0302 00481000 ST @04,IOPTLIST 0302 00482000 * IOPTLIST(2)=ADDR(CURDSN);/* INSERT NAME POINTER */ 00483000 LA @04,CURDSN 0303 00484000 ST @04,IOPTLIST+4 0303 00485000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00486000 ST @14,IOPTLIST+8 0304 00487000 * RFY 0305 00488000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 0305 00489000 * 1-2 */ 00490000 * I015F=LENGTH(CURDSN);/* INSERT LENGTH */ 00491000 LA @04,IOPTLIST+8 0306 00492000 MVC I015F(2,@04),@CH00085 0306 00493000 * IOPTLIST(4)=ADDR(IOPTLIST(7));/* CHAIN TO NEXT 0307 00494000 * INSERT */ 00495000 LA @04,IOPTLIST+24 0307 00496000 ST @04,IOPTLIST+12 0307 00497000 * IOPTLIST(5)=ADDR(CURMNLP);/* INSERT NAME POINTER */ 00498000 LA @04,CURMNLP 0308 00499000 ST @04,IOPTLIST+16 0308 00500000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00501000 ST @14,IOPTLIST+20 0309 00502000 * RFY 0310 00503000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 0310 00504000 * 1-2 */ 00505000 * I015F=LENGTH(CURMNLP);/* INSERT LENGTH */ 00506000 LA @04,1 0311 00507000 LA @09,IOPTLIST+20 0311 00508000 STH @04,I015F(,@09) 0311 00509000 * IOPTLIST(7)=ADDR(IOPTLIST(10));/* CHAIN TO NEXT 0312 00510000 * INSERT */ 00511000 LA @09,IOPTLIST+36 0312 00512000 ST @09,IOPTLIST+24 0312 00513000 * IOPTLIST(8)=ADDR(CURMEM);/* INSERT NAME POINTER */ 00514000 LA @09,CURMEM 0313 00515000 ST @09,IOPTLIST+28 0313 00516000 * IOPTLIST(9)=0; /* ZERO RESERVED FIELD */ 00517000 ST @14,IOPTLIST+32 0314 00518000 * RFY 0315 00519000 * I015F BASED(ADDR(IOPTLIST(9)));/* ACCESS BYTES 0315 00520000 * 1-2 */ 00521000 * I015F=LENGTH(CURMEM);/* INSERT LENGTH */ 00522000 LA @09,IOPTLIST+32 0316 00523000 STH @10,I015F(,@09) 0316 00524000 * IOPTLIST(10)=0; /* LAST INSERT */ 00525000 ST @14,IOPTLIST+36 0317 00526000 * IOPTLIST(11)=ADDR(CURMNRP);/* INSERT NAME POINTER */ 00527000 LA @10,CURMNRP 0318 00528000 ST @10,IOPTLIST+40 0318 00529000 * IOPTLIST(12)=0; /* ZERO RESERVED FIELD */ 00530000 ST @14,IOPTLIST+44 0319 00531000 * RFY 0320 00532000 * I015F BASED(ADDR(IOPTLIST(12)));/* ACCESS BYTES 00533000 * 1-2 */ 00534000 * I015F=LENGTH(CURMNRP);/* INSERT LENGTH */ 00535000 LA @14,IOPTLIST+44 0321 00536000 STH @04,I015F(,@14) 0321 00537000 * CALL BLSDMSG0(ZZ2,BADDSN,MSGP,BLSDMSGS,'10010000'B, 00538000 * ADDR(IOPTLIST));/* BUILD MESSAGE */ 00539000 ST ZZ2PTR,@AL00001 0322 00540000 LA @14,@CF01025 0322 00541000 ST @14,@AL00001+4 0322 00542000 LA @14,MSGP 0322 00543000 ST @14,@AL00001+8 0322 00544000 L @14,ZZ2MSGSP(,ZZ2PTR) 0322 00545000 ST @14,@AL00001+12 0322 00546000 LA @14,@CB01072 0322 00547000 ST @14,@AL00001+16 0322 00548000 LA @14,IOPTLIST 0322 00549000 ST @14,@AFTEMPS 0322 00550000 LA @14,@AFTEMPS 0322 00551000 ST @14,@AL00001+20 0322 00552000 L @15,ZZ2MSG0P(,ZZ2PTR) 0322 00553000 LA @01,@AL00001 0322 00554000 BALR @14,@15 0322 00555000 * END; /* BLSDMSG 0323 00556000 * (ZZ2,BADDSN,MSGP,BLSDMSGS) 0323 00557000 * LIFO ROUTE(TERM)INSERT(CURDSN, 00558000 * CURMNLP,CURMEM,CURMNRP)COMP 0323 00559000 * ISSUE ERROR MESSAGE TO USER */ 00560000 * END; /* END NOREC FOUND */ 00561000 * RETC=MAX(RETC,TWELVE); /* SET RETURN CODE */ 00562000 @RF00298 LA @14,12 0325 00563000 CR RETC,@14 0325 00564000 BNL *+6 00565000 LR RETC,@14 0325 00566000 * END; /* END BAD DSD GET */ 00567000 * END; /* END DSN SETUP OK */ 00568000 * ELSE /* BAD DSN SPECIFIED */ 00569000 * RETC=TWELVE; /* SET BAD RETURN CODE */ 00570000 B @RC00286 0328 00571000 @RF00286 LA RETC,12 0328 00572000 * RETURN CODE(RETC); /* RETURN WITH RETURN CODE */ 00573000 @RC00286 LR @15,RETC 0329 00574000 L @14,@SA00002 0329 00575000 LM @00,@12,@SA00002+8 0329 00576000 BR @14 0329 00577000 * END BLSFLV00; 0330 00578000 * 0330 00579000 */*BLSUPEND--MVS IPCS MODULE */ 00580000 * 0331 00581000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00582000 * GPR00F FIXED(31) REG(0), 0331 00583000 * GPR01F FIXED(31) REG(1), 0331 00584000 * GPR15F FIXED(31) REG(15); 0331 00585000 * DECLARE /* COMMON VARIABLES */ 00586000 * I256C CHAR(256) BASED, 0332 00587000 * I031F FIXED(31) BASED, 0332 00588000 * I031P PTR(31) BASED, 0332 00589000 * I015F FIXED(15) BASED, 0332 00590000 * I015P PTR(15) BASED, 0332 00591000 * I008P PTR(8) BASED, 0332 00592000 * I001C CHAR(1) BASED; 0332 00593000 * DECLARE 0333 00594000 * IOPTLIST(12) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00595000 * GENERATE NODEFS NOREFS DATA; 0334 00596000 * END /* BLRPEND END OF PROCESSING 0335 00597000 * MODDSN */ 00598000 * 0335 00599000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00600000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00601000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00602000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00603000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00604000 */*%INCLUDE SYSLIB (IKJECT ) */ 00605000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00606000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00607000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00608000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00609000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00610000 */*%INCLUDE SYSLIB (BLSDSD ) */ 00611000 */*%INCLUDE SYSLIB (BLSFLD ) */ 00612000 * 0335 00613000 * ; 0335 00614000 @EL00001 L @13,4(,@13) 0335 00615000 @EF00001 L @00,@SIZDATD 0335 00616000 LR @01,@11 0335 00617000 BLSUFRER R,LV=(0),A=(1) 00618000 @ER00001 LM @14,@12,12(@13) 0335 00619000 BR @14 0335 00620000 @DATA DS 0H 00621000 @CH00040 DC H'1' 00622000 @CH00067 DC H'2' 00623000 @CH00085 DC H'44' 00624000 @DATD DSECT 00625000 DS 0F 00626000 @SA00001 DS 18F 00627000 @SA00002 DS 15F 00628000 @AL00001 DS 6A 00629000 @AFTEMPS DS 1F 00630000 BLSFLD00 CSECT 00631000 DS 0F 00632000 @CF00045 DC F'0' 00633000 @CF00048 DC F'8' 00634000 @CF01025 DC F'4005' 00635000 @CF01027 DC F'4051' 00636000 @CF01018 DC F'-1' 00637000 @DATD DSECT 00638000 DS 0D 00639000 PDAPTR DS A 00640000 MSGP DS A 00641000 EXITFLAG DS BL1 00642000 DSDBUF DS CL144 00643000 YESNO DS CL3 00644000 CURDSN DS CL44 00645000 CURMEMNM DS CL10 00646000 ORG CURMEMNM 00647000 CURMNLP DS CL1 00648000 CURMEM DS CL8 00649000 CURMNRP DS CL1 00650000 ORG CURMEMNM+10 00651000 DSNKEY DS CL61 00652000 ORG DSNKEY 00653000 DSNKEYTY DS CL1 00654000 DSNKEYDS DS CL44 00655000 DSNKEYMN DS CL8 00656000 DSNKEYPN DS CL8 00657000 ORG DSNKEY+61 00658000 DS CL1 00659000 IOPTLIST DS 12A 00660000 BLSFLD00 CSECT 00661000 DS 0F 00662000 @SIZDATD DC AL1(0) 00663000 DC AL3(@ENDDATD-@DATD) 00664000 DS 0D 00665000 PCPTR DC AL4(PC) 00666000 @CC01030 DC C' C00667000 ' 00668000 @CC00099 EQU @CC01030 00669000 @CC00935 DC C'DSN BASE' 00670000 @CC01044 DC C'DSN BASF' 00671000 @CC01040 DC C'YES' 00672000 @CC01042 DC C'NO ' 00673000 @CB01105 DC X'00' 00674000 @CB01071 DC B'00110000' 00675000 @CB01072 DC B'10010000' 00676000 PXRO DC AL2(PXPRINT-PD) 00677000 DC AL2(PXTERM-PD) 00678000 DC AL2(0) 00679000 DC AL2(0) 00680000 @DATD DSECT 00681000 SPACE 2 00682000 *********************************************************************** 00683000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00684000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00685000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00686000 *********************************************************************** 00687000 SPACE 00688000 BLSFLD00 CSECT 00689000 ORG 00690000 DS 0D 00691000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSFLD00+19)/20+7)/8)CL8'BLSFLD00' 00692000 @DATD DSECT 00693000 SPACE 2 00694000 *********************************************************************** 00695000 * IKJPARM--BEGIN MACROS SPECIFYING COMMAND SYNTAX * 00696000 *********************************************************************** 00697000 SPACE 00698000 BLSFLD00 CSECT 00699000 PC IKJPARM DSECT=PD 00700000 @DATD DSECT 00701000 BLSFLD00 CSECT 00702000 DSNWD IKJKEYWD 00703000 @DATD DSECT 00704000 BLSFLD00 CSECT 00705000 IKJNAME 'DSNAME',ALIAS=('DATASET'),SUBFLD=DSNSUB 00706000 @DATD DSECT 00707000 BLSFLD00 CSECT 00708000 IKJNAME 'ALL' 00709000 @DATD DSECT 00710000 BLSFLD00 CSECT 00711000 PROBWD IKJKEYWD DEFAULT='NOPROBLEMS' 00712000 @DATD DSECT 00713000 BLSFLD00 CSECT 00714000 IKJNAME 'PROBLEMS' 00715000 @DATD DSECT 00716000 BLSFLD00 CSECT 00717000 IKJNAME 'NOPROBLEMS' 00718000 @DATD DSECT 00719000 BLSFLD00 CSECT 00720000 PXPRINT IKJKEYWD 00721000 @DATD DSECT 00722000 BLSFLD00 CSECT 00723000 IKJNAME 'PRINT' 00724000 @DATD DSECT 00725000 BLSFLD00 CSECT 00726000 IKJNAME 'NOPRINT' 00727000 @DATD DSECT 00728000 BLSFLD00 CSECT 00729000 PXTERM IKJKEYWD 00730000 @DATD DSECT 00731000 BLSFLD00 CSECT 00732000 IKJNAME 'TERMINAL' 00733000 @DATD DSECT 00734000 BLSFLD00 CSECT 00735000 IKJNAME 'NOTERMINAL' 00736000 @DATD DSECT 00737000 BLSFLD00 CSECT 00738000 PXTEST IKJKEYWD 00739000 @DATD DSECT 00740000 BLSFLD00 CSECT 00741000 IKJNAME 'TEST' 00742000 @DATD DSECT 00743000 BLSFLD00 CSECT 00744000 IKJNAME 'NOTEST' 00745000 @DATD DSECT 00746000 BLSFLD00 CSECT 00747000 SPACE 00748000 DSNSUB IKJSUBF 00749000 @DATD DSECT 00750000 BLSFLD00 CSECT 00751000 DSN IKJPOSIT DSNAME,USID,UPPERCASE,PROMPT='DATA SET NAME' 00752000 @DATD DSECT 00753000 PD DSECT 00754000 LISTEND DS 0C 00755000 BLSFLD00 CSECT 00756000 IKJENDP 00757000 SPACE 2 00758000 *********************************************************************** 00759000 * IKJENDP--END SYNTAX DESCRIPTION * 00760000 *********************************************************************** 00761000 SPACE 00762000 @DATD DSECT 00763000 SPACE 2 00764000 *********************************************************************** 00765000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00766000 *********************************************************************** 00767000 SPACE 00768000 DS 0D 00769000 @DATD DSECT 00770000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00771000 @ENDDATD EQU * 00772000 BLSFLD00 CSECT 00773000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00774000 @01 EQU 01 00775000 @02 EQU 02 00776000 @03 EQU 03 00777000 @04 EQU 04 00778000 @05 EQU 05 00779000 @06 EQU 06 00780000 @07 EQU 07 00781000 @08 EQU 08 00782000 @09 EQU 09 00783000 @10 EQU 10 00784000 @11 EQU 11 00785000 @12 EQU 12 00786000 @13 EQU 13 00787000 @14 EQU 14 00788000 @15 EQU 15 00789000 RETC EQU @07 00790000 ZZ2PTR EQU @06 00791000 R0 EQU @00 00792000 R1 EQU @01 00793000 R2 EQU @02 00794000 R3 EQU @03 00795000 R4 EQU @04 00796000 R5 EQU @05 00797000 R9 EQU @09 00798000 RB EQU @11 00799000 RD EQU @13 00800000 RE EQU @14 00801000 RF EQU @15 00802000 PDRPTR EQU @05 00803000 GPR15F EQU @15 00804000 GPR01F EQU @01 00805000 GPR00F EQU @00 00806000 RA EQU @10 00807000 RC EQU @12 00808000 R6 EQU @06 00809000 R7 EQU @07 00810000 R8 EQU @08 00811000 ZZ1 EQU 0 00812000 ZZ1DSDP EQU ZZ1+44 00813000 ZZ1ATTN EQU ZZ1+360 00814000 ZZ1EVE EQU ZZ1ATTN+4 00815000 ZZ1EVEP EQU ZZ1EVE 00816000 ZZ1F EQU ZZ1+368 00817000 ZZ1N EQU ZZ1+1116 00818000 ZZ2 EQU 0 00819000 ZZ2AMD EQU ZZ2 00820000 @NM00013 EQU ZZ2AMD+7 00821000 ZZ2PRT EQU ZZ2+138 00822000 ZZ2PRTT EQU ZZ2PRT+4 00823000 ZZ2PRTT1 EQU ZZ2PRTT+1 00824000 ZZ2A EQU ZZ2+272 00825000 ZZ2AF EQU ZZ2A+16 00826000 ZZ2AFX EQU ZZ2AF+5 00827000 ZZ2APID EQU ZZ2A+64 00828000 ZZ2AD EQU ZZ2A+74 00829000 ZZ2ADD EQU ZZ2AD 00830000 ZZ2ADDT EQU ZZ2ADD+2 00831000 ZZ2ADM EQU ZZ2AD+46 00832000 ZZ2ADMT EQU ZZ2ADM+2 00833000 ZZ2ADP EQU ZZ2AD+56 00834000 ZZ2ADPT EQU ZZ2ADP+2 00835000 ZZ2AQAS EQU ZZ2A+144 00836000 ZZ2AQD EQU ZZ2A+160 00837000 ZZ2AQDT EQU ZZ2AQD+10 00838000 ZZ2AQDF EQU ZZ2AQD+52 00839000 ZZ2STG EQU ZZ2+960 00840000 ZZ2ALLOP EQU ZZ2+992 00841000 ZZ2FREEP EQU ZZ2+996 00842000 ZZ2FF19P EQU ZZ2+1000 00843000 ZZ2FRE1P EQU ZZ2+1004 00844000 ZZ2FF18P EQU ZZ2+1008 00845000 ZZ2DYNAP EQU ZZ2+1012 00846000 ZZ2ZZ2CP EQU ZZ2+1016 00847000 ZZ2ZZ2DP EQU ZZ2+1020 00848000 ZZ2STAIP EQU ZZ2+1024 00849000 ZZ2FF02P EQU ZZ2+1028 00850000 ZZ2GETLP EQU ZZ2+1032 00851000 ZZ2PARSP EQU ZZ2+1036 00852000 ZZ2PTGTP EQU ZZ2+1040 00853000 ZZ2PUTLP EQU ZZ2+1044 00854000 ZZ2SCANP EQU ZZ2+1048 00855000 ZZ2STCKP EQU ZZ2+1052 00856000 ZZ2ALOCP EQU ZZ2+1056 00857000 ZZ2MSGSP EQU ZZ2+1060 00858000 ZZ2TRMOP EQU ZZ2+1064 00859000 ZZ2TRMVP EQU ZZ2+1068 00860000 ZZ2MSG0P EQU ZZ2+1076 00861000 ZZ2PUTNP EQU ZZ2+1084 00862000 ZZ2TRMNP EQU ZZ2+1088 00863000 ZZ2ENQ0P EQU ZZ2+1092 00864000 ZZ2ADSDP EQU ZZ2+1096 00865000 ZZ2APDRP EQU ZZ2+1100 00866000 ZZ2FDSDP EQU ZZ2+1104 00867000 ZZ2FPDRP EQU ZZ2+1108 00868000 ZZ2ZZ1P EQU ZZ2+1264 00869000 ZZ2DVTP EQU ZZ2+1276 00870000 ZZ2BVTP EQU ZZ2+1280 00871000 ZZ2CPPL EQU ZZ2+1292 00872000 ZZ2CPPLC EQU ZZ2CPPL 00873000 ZZ2ITR EQU ZZ2+2840 00874000 ZZ2ITRE EQU ZZ2ITR+16 00875000 ZZ2ITSE EQU ZZ2+2864 00876000 ZZ2ES EQU ZZ2+2872 00877000 ZZ2AMDX EQU ZZ2+7160 00878000 ZZ2AXO EQU ZZ2+7934 00879000 ZZ2AXOT EQU ZZ2AXO+2 00880000 CMD EQU 0 00881000 CMDT EQU CMD+4 00882000 PSCB EQU 0 00883000 PSCBATR1 EQU PSCB+16 00884000 ECT EQU 0 00885000 ECTSWS EQU ECT+28 00886000 ECTSWS2 EQU ECT+40 00887000 ECTSWS21 EQU ECTSWS2 00888000 UPT EQU 0 00889000 UPTSWS EQU UPT+12 00890000 SA EQU 0 00891000 SA1 EQU SA 00892000 SAR EQU SA+12 00893000 BLSUPARI EQU 0 00894000 BLSUPARU EQU 0 00895000 BVT EQU 0 00896000 BVTPUTLP EQU BVT+4 00897000 BVTPUTOP EQU BVT+12 00898000 BVTPUTTP EQU BVT+16 00899000 BVTPUTVP EQU BVT+20 00900000 BVTPUTAP EQU BVT+24 00901000 BVTPRTTP EQU BVT+28 00902000 BVTPRTAP EQU BVT+32 00903000 BVTPUTDP EQU BVT+36 00904000 BVTMONP EQU BVT+40 00905000 BVTMON2P EQU BVT+44 00906000 BVTVSARP EQU BVT+48 00907000 BVTVSENP EQU BVT+64 00908000 BVTVSERP EQU BVT+68 00909000 BVTVSGEP EQU BVT+72 00910000 BVTVSGUP EQU BVT+76 00911000 BVTVSPOP EQU BVT+80 00912000 BVTVSPUP EQU BVT+84 00913000 BVTMPKNP EQU BVT+104 00914000 BVTMONLP EQU BVT+108 00915000 BVTPUTCP EQU BVT+132 00916000 BVTMPK1P EQU BVT+136 00917000 BVTZZ2RP EQU BVT+140 00918000 BVTPGMRP EQU BVT+144 00919000 BVTMONAP EQU BVT+148 00920000 BVTBLDDP EQU BVT+152 00921000 BVTBLDLP EQU BVT+156 00922000 BVTPGMCP EQU BVT+160 00923000 BVTPGMDP EQU BVT+164 00924000 BVTPGMLP EQU BVT+168 00925000 BVTMONCP EQU BVT+180 00926000 BVTMONDP EQU BVT+184 00927000 BVTMONTP EQU BVT+188 00928000 BVTPARIP EQU BVT+192 00929000 BVTPARUP EQU BVT+196 00930000 BVTPRTNP EQU BVT+204 00931000 BVTVSCRP EQU BVT+208 00932000 BVTVSMRP EQU BVT+212 00933000 BVTMONXP EQU BVT+216 00934000 BVTTRMAP EQU BVT+228 00935000 BLSDMSGS EQU 0 00936000 BLSDMSG0 EQU 0 00937000 BLSFDF00 EQU 0 00938000 BLSFDS00 EQU 0 00939000 BLSFGD00 EQU 0 00940000 BLSFGG00 EQU 0 00941000 DVT EQU 0 00942000 DVTDEQPP EQU DVT+8 00943000 DVTENQPP EQU DVT+12 00944000 DVTAUTHP EQU DVT+20 00945000 DVTLPCLP EQU DVT+24 00946000 DVTBP00P EQU DVT+28 00947000 DVTCN00P EQU DVT+32 00948000 DVTDF00P EQU DVT+36 00949000 DVTDS00P EQU DVT+44 00950000 DVTFL00P EQU DVT+48 00951000 DVTFP00P EQU DVT+52 00952000 DVTGD00P EQU DVT+56 00953000 DVTGG00P EQU DVT+60 00954000 DVTGP00P EQU DVT+64 00955000 DVTND00P EQU DVT+68 00956000 DVTND01P EQU DVT+72 00957000 DVTOD00P EQU DVT+76 00958000 DVTPS00P EQU DVT+80 00959000 DVTSD00P EQU DVT+84 00960000 DVTSL00P EQU DVT+88 00961000 DVTTL00P EQU DVT+92 00962000 DVTUD00P EQU DVT+96 00963000 DVTUP00P EQU DVT+100 00964000 DVTLP00P EQU DVT+104 00965000 DVTLALLP EQU DVT+108 00966000 DVTLPFMP EQU DVT+112 00967000 DVTCLOSP EQU DVT+116 00968000 DVTOPENP EQU DVT+120 00969000 DVTPERAP EQU DVT+124 00970000 DVTDALLP EQU DVT+128 00971000 DMCB EQU 0 00972000 DMCBFTY EQU DMCB+20 00973000 DMCBOPN EQU DMCB+21 00974000 DMCBRMOD EQU DMCB+23 00975000 DMCBOUT EQU DMCBRMOD 00976000 DMCBOPTS EQU DMCB+24 00977000 DMCBGKY EQU DMCBOPTS 00978000 DMCBMFLG EQU DMCB+28 00979000 DMCBBUFP EQU DMCB+32 00980000 DMCBKEYP EQU DMCB+44 00981000 DMCBRI EQU DMCB+64 00982000 DMCBACBE EQU DMCB+124 00983000 DMCBSPEC EQU DMCB+380 00984000 DMCBAMS EQU DMCB+416 00985000 DMCBAUDT EQU DMCB+568 00986000 DMCBLSCP EQU DMCBAUDT+16 00987000 DSDREC EQU 0 00988000 DSDKEY EQU DSDREC 00989000 DSDKGRP EQU DSDKEY 00990000 DSDKDSNM EQU DSDKGRP+1 00991000 DSDKBSID EQU DSDKEY+53 00992000 DSDKPID EQU DSDKBSID 00993000 DSDINFO EQU DSDREC+64 00994000 PCCSECT EQU 0 00995000 PDDSECT EQU 0 00996000 PDXP EQU PDDSECT+1 00997000 PDL EQU PDDSECT+5 00998000 I015F EQU 0 00999000 BLSCALOC EQU 0 01000000 BLSDADSD EQU 0 01001000 BLSDAPDR EQU 0 01002000 BLSDDEQP EQU 0 01003000 BLSDENQP EQU 0 01004000 BLSDENQ0 EQU 0 01005000 BLSDFDSD EQU 0 01006000 BLSDFPDR EQU 0 01007000 BLSEAUTH EQU 0 01008000 BLSELPCL EQU 0 01009000 BLSELPFM EQU 0 01010000 BLSFBP00 EQU 0 01011000 BLSFCLOS EQU 0 01012000 BLSFCN00 EQU 0 01013000 BLSFDALL EQU 0 01014000 BLSFFL00 EQU 0 01015000 BLSFFP00 EQU 0 01016000 BLSFGP00 EQU 0 01017000 BLSFLALL EQU 0 01018000 BLSFLP00 EQU 0 01019000 BLSFND00 EQU 0 01020000 BLSFND01 EQU 0 01021000 BLSFOD00 EQU 0 01022000 BLSFOPEN EQU 0 01023000 BLSFPERA EQU 0 01024000 BLSFPS00 EQU 0 01025000 BLSFSD00 EQU 0 01026000 BLSFSL00 EQU 0 01027000 BLSFTL00 EQU 0 01028000 BLSFUD00 EQU 0 01029000 BLSFUP00 EQU 0 01030000 BLSUALLO EQU 0 01031000 BLSUBLDD EQU 0 01032000 BLSUBLDL EQU 0 01033000 BLSUDYNA EQU 0 01034000 BLSUFREE EQU 0 01035000 BLSUFRE1 EQU 0 01036000 BLSUMON EQU 0 01037000 BLSUMONA EQU 0 01038000 BLSUMONC EQU 0 01039000 BLSUMOND EQU 0 01040000 BLSUMONL EQU 0 01041000 BLSUMONT EQU 0 01042000 BLSUMONX EQU 0 01043000 BLSUMON2 EQU 0 01044000 BLSUMPKN EQU 0 01045000 BLSUMPK1 EQU 0 01046000 BLSUPGMC EQU 0 01047000 BLSUPGMD EQU 0 01048000 BLSUPGML EQU 0 01049000 BLSUPGMR EQU 0 01050000 BLSUPRTA EQU 0 01051000 BLSUPRTN EQU 0 01052000 BLSUPRTT EQU 0 01053000 BLSUPUTA EQU 0 01054000 BLSUPUTC EQU 0 01055000 BLSUPUTD EQU 0 01056000 BLSUPUTL EQU 0 01057000 BLSUPUTN EQU 0 01058000 BLSUPUTO EQU 0 01059000 BLSUPUTT EQU 0 01060000 BLSUPUTV EQU 0 01061000 BLSUSTAI EQU 0 01062000 BLSUTRMA EQU 0 01063000 BLSUTRMN EQU 0 01064000 BLSUTRMO EQU 0 01065000 BLSUTRMV EQU 0 01066000 BLSUVSAR EQU 0 01067000 BLSUVSCR EQU 0 01068000 BLSUVSEN EQU 0 01069000 BLSUVSER EQU 0 01070000 BLSUVSGE EQU 0 01071000 BLSUVSGU EQU 0 01072000 BLSUVSMR EQU 0 01073000 BLSUVSPO EQU 0 01074000 BLSUVSPU EQU 0 01075000 BLSUZZ2C EQU 0 01076000 BLSUZZ2D EQU 0 01077000 BLSUZZ2R EQU 0 01078000 DMCBDMGR EQU 0 01079000 DMCBRQC EQU 0 01080000 DSND EQU 0 01081000 DSNM EQU 0 01082000 DSNP EQU 0 01083000 IKJEFF02 EQU 0 01084000 IKJEFF18 EQU 0 01085000 IKJEFF19 EQU 0 01086000 IKJGETL EQU 0 01087000 IKJPARS EQU 0 01088000 IKJPTGT EQU 0 01089000 IKJPUTL EQU 0 01090000 IKJSCAN EQU 0 01091000 IKJSTCK EQU 0 01092000 I001C EQU 0 01093000 I008P EQU 0 01094000 I015P EQU 0 01095000 I031F EQU 0 01096000 I031P EQU 0 01097000 I256C EQU 0 01098000 DSNDP EQU DSN 01099000 DSNDF EQU DSN+6 01100000 DSNMP EQU DSN+8 01101000 DSNMF EQU DSN+14 01102000 DSNPP EQU DSN+16 01103000 DSNPF EQU DSN+22 01104000 CPPL EQU ZZ2CPPL 01105000 CPPLUPT EQU CPPL+4 01106000 CPPLPSCB EQU CPPL+8 01107000 CPPLECT EQU CPPL+12 01108000 DMCBVSM EQU DMCBAMS 01109000 DMCBQSM EQU DMCBAMS 01110000 DSDBASRC EQU DSDINFO 01111000 DSDDSATR EQU DSDBASRC+8 01112000 DSDPRASR EQU DSDINFO 01113000 * START UNREFERENCED COMPONENTS 01114000 DSDPRSQN EQU DSDPRASR 01115000 DSDBRES1 EQU DSDBASRC+76 01116000 DSDDESC EQU DSDBASRC+16 01117000 DSDSLOWN EQU DSDDSATR 01118000 DSDDSNTY EQU DSDBASRC 01119000 DMCBRES7 EQU DMCBQSM+96 01120000 DMCBDCB EQU DMCBQSM 01121000 DMCBACB EQU DMCBVSM+76 01122000 DMCBRPL EQU DMCBVSM 01123000 CPPLCBUF EQU CPPL 01124000 @NM00074 EQU DSN+24 01125000 @NM00073 EQU DSN+23 01126000 DSNPF8 EQU DSNPF 01127000 DSNPF7 EQU DSNPF 01128000 DSNPF6 EQU DSNPF 01129000 DSNPF5 EQU DSNPF 01130000 DSNPF4 EQU DSNPF 01131000 DSNPF3 EQU DSNPF 01132000 DSNPF2 EQU DSNPF 01133000 DSNPFP EQU DSNPF 01134000 DSNPL EQU DSN+20 01135000 @NM00072 EQU DSN+15 01136000 DSNMF8 EQU DSNMF 01137000 DSNMF7 EQU DSNMF 01138000 DSNMF6 EQU DSNMF 01139000 DSNMF5 EQU DSNMF 01140000 DSNMF4 EQU DSNMF 01141000 DSNMF3 EQU DSNMF 01142000 DSNMF2 EQU DSNMF 01143000 DSNMFP EQU DSNMF 01144000 DSNML EQU DSN+12 01145000 @NM00071 EQU DSN+7 01146000 @NM00070 EQU DSNDF 01147000 DSNDFQ EQU DSNDF 01148000 DSNDFP EQU DSNDF 01149000 DSNDL EQU DSN+4 01150000 PDSP EQU PDDSECT+4 01151000 @NM00069 EQU PDDSECT 01152000 DSDRES1 EQU DSDREC+61 01153000 DSDKPNUM EQU DSDKPID+3 01154000 DSDKPREF EQU DSDKPID 01155000 DSDKMEMN EQU DSDKDSNM+44 01156000 DSDKDSN EQU DSDKDSNM 01157000 DSDKTYP EQU DSDKGRP 01158000 DMCBWRK EQU DMCB+648 01159000 DMCBRES8 EQU DMCB+640 01160000 DMCBMODN EQU DMCB+632 01161000 DMCBCARY EQU DMCBAUDT+20 01162000 DMCBCLC EQU DMCBAUDT+12 01163000 DMCBOPC EQU DMCBAUDT+8 01164000 DMCBFRC EQU DMCBAUDT+4 01165000 DMCBALC EQU DMCBAUDT 01166000 DMCBFR EQU DMCB+412 01167000 DMCBRES6 EQU DMCB+410 01168000 DMCBIRSC EQU DMCB+408 01169000 DMCBSUBC EQU DMCB+404 01170000 DMCBDRBP EQU DMCB+400 01171000 DMCBRSZM EQU DMCB+398 01172000 DMCBRSZA EQU DMCB+396 01173000 DMCBCISZ EQU DMCB+394 01174000 DMCBDCBL EQU DMCB+392 01175000 DMCBDCLR EQU DMCB+390 01176000 DMCBDCFM EQU DMCB+389 01177000 DMCBRES5 EQU DMCB+388 01178000 DMCBLBRT EQU DMCB+386 01179000 DMCBLBSQ EQU DMCB+384 01180000 DMCBLBPS EQU DMCB+383 01181000 DMCBLBTY EQU DMCB+382 01182000 DMCBRES4 EQU DMCB+381 01183000 DMCBSPRS EQU DMCBSPEC 01184000 DMCBSPRN EQU DMCBSPEC 01185000 DMCBSPCT EQU DMCBSPEC 01186000 DMCBSPRL EQU DMCBSPEC 01187000 DMCBSPSE EQU DMCB+376 01188000 DMCBSPPR EQU DMCB+372 01189000 DMCBSPTY EQU DMCB+369 01190000 DMCBODIS EQU DMCB+368 01191000 DMCBDISP EQU DMCB+367 01192000 DMCBSTAT EQU DMCB+366 01193000 DMCBRES3 EQU DMCB+364 01194000 DMCBMEMB EQU DMCB+356 01195000 DMCBMODL EQU DMCB+348 01196000 DMCBRES9 EQU DMCB+340 01197000 DMCBPID EQU DMCB+332 01198000 DMCBTYPE EQU DMCB+328 01199000 DMCBDSN EQU DMCB+284 01200000 DMCBUNIT EQU DMCB+276 01201000 DMCBDSOR EQU DMCB+274 01202000 DMCBVOL EQU DMCB+268 01203000 DMCBDDNM EQU DMCB+260 01204000 DMCBSYNM EQU DMCB+132 01205000 DMCBRPLF EQU DMCB+128 01206000 DMCBDCBE EQU DMCBACBE 01207000 DMCBARC EQU DMCB+120 01208000 DMCBCPC EQU DMCB+116 01209000 DMCBRET EQU DMCB+112 01210000 DMCBSTL EQU DMCB+96 01211000 DMCBEOB EQU DMCB+92 01212000 DMCBFRE EQU DMCB+88 01213000 DMCBRES2 EQU DMCB+85 01214000 DMCBSPID EQU DMCB+84 01215000 DMCBRESC EQU DMCB+80 01216000 DMCBZZ1P EQU DMCB+76 01217000 DMCBMSGS EQU DMCB+72 01218000 DMCBMSG0 EQU DMCB+68 01219000 DMCBRRL EQU DMCB+60 01220000 DMCBRBA EQU DMCB+56 01221000 DMCBMSG EQU DMCB+52 01222000 DMCBKEYL EQU DMCB+48 01223000 DMCBKPC EQU DMCBKEYP 01224000 DMCBORL EQU DMCB+40 01225000 DMCBBLEN EQU DMCB+36 01226000 DMCBBFPC EQU DMCBBUFP 01227000 DMCBRES1 EQU DMCB+31 01228000 DMCBACCM EQU DMCB+30 01229000 DMCBREJ EQU DMCB+29 01230000 DMCBRESB EQU DMCBMFLG 01231000 DMCBFMOD EQU DMCBMFLG 01232000 DMCBLOPT EQU DMCB+27 01233000 DMCBLRM EQU DMCB+26 01234000 DMCBLRQ EQU DMCB+25 01235000 DMCBOPRS EQU DMCBOPTS 01236000 DMCBLRD EQU DMCBOPTS 01237000 DMCBBWD EQU DMCBOPTS 01238000 DMCBUPD EQU DMCBOPTS 01239000 DMCBAPX EQU DMCBOPTS 01240000 DMCBRNO EQU DMCBGKY 01241000 DMCBKYD EQU DMCBOPTS 01242000 DMCBRMRS EQU DMCBRMOD 01243000 DMCBRM5 EQU DMCBRMOD 01244000 DMCBRM6 EQU DMCBRMOD 01245000 DMCBTMP EQU DMCBOUT 01246000 DMCBRQST EQU DMCB+22 01247000 DMCBRESA EQU DMCBOPN 01248000 DMCBSOUT EQU DMCBOPN 01249000 DMCBSIN EQU DMCBOPN 01250000 DMCBVSF EQU DMCBFTY 01251000 DMCBKSF EQU DMCBFTY 01252000 DMCBFTRS EQU DMCBFTY 01253000 DMCBSHF EQU DMCBFTY 01254000 DMCBIRL EQU DMCB+16 01255000 DMCBRTC EQU DMCB+12 01256000 DMCBTVP EQU DMCB+8 01257000 DMCBNEXT EQU DMCB+4 01258000 DMCBID EQU DMCB 01259000 DVT99999 EQU DVT+256 01260000 DVT0064P EQU DVT+252 01261000 DVT0063P EQU DVT+248 01262000 DVT0062P EQU DVT+244 01263000 DVT0061P EQU DVT+240 01264000 DVT0060P EQU DVT+236 01265000 DVT0059P EQU DVT+232 01266000 DVT0058P EQU DVT+228 01267000 DVT0057P EQU DVT+224 01268000 DVT0056P EQU DVT+220 01269000 DVT0055P EQU DVT+216 01270000 DVT0054P EQU DVT+212 01271000 DVT0053P EQU DVT+208 01272000 DVT0052P EQU DVT+204 01273000 DVT0051P EQU DVT+200 01274000 DVT0050P EQU DVT+196 01275000 DVT0049P EQU DVT+192 01276000 DVT0048P EQU DVT+188 01277000 DVT0047P EQU DVT+184 01278000 DVT0046P EQU DVT+180 01279000 DVT0045P EQU DVT+176 01280000 DVT0044P EQU DVT+172 01281000 DVT0043P EQU DVT+168 01282000 DVT0042P EQU DVT+164 01283000 DVT0041P EQU DVT+160 01284000 DVT0040P EQU DVT+156 01285000 DVT0039P EQU DVT+152 01286000 DVT0038P EQU DVT+148 01287000 DVT0037P EQU DVT+144 01288000 DVT0036P EQU DVT+140 01289000 DVT0035P EQU DVT+136 01290000 DVT0034P EQU DVT+132 01291000 DVT0011P EQU DVT+40 01292000 DVT0005P EQU DVT+16 01293000 DVT0002P EQU DVT+4 01294000 DVT0001P EQU DVT 01295000 BVT99999 EQU BVT+256 01296000 BVT0064P EQU BVT+252 01297000 BVT0063P EQU BVT+248 01298000 BVT0062P EQU BVT+244 01299000 BVT0061P EQU BVT+240 01300000 BVT0060P EQU BVT+236 01301000 BVT0059P EQU BVT+232 01302000 BVT0057P EQU BVT+224 01303000 BVT0056P EQU BVT+220 01304000 BVTSTBLP EQU BVT+200 01305000 BVT0045P EQU BVT+176 01306000 BVT0044P EQU BVT+172 01307000 BVT0033P EQU BVT+128 01308000 BVT0032P EQU BVT+124 01309000 BVT0031P EQU BVT+120 01310000 BVT0030P EQU BVT+116 01311000 BVT0029P EQU BVT+112 01312000 BVT0026P EQU BVT+100 01313000 BVT0025P EQU BVT+96 01314000 BVT0024P EQU BVT+92 01315000 BVT0023P EQU BVT+88 01316000 BVT0016P EQU BVT+60 01317000 BVT0015P EQU BVT+56 01318000 BVT0014P EQU BVT+52 01319000 BVT0003P EQU BVT+8 01320000 BVT0001P EQU BVT 01321000 SA99 EQU SA+72 01322000 SARC EQU SAR+56 01323000 SARB EQU SAR+52 01324000 SARA EQU SAR+48 01325000 SAR9 EQU SAR+44 01326000 SAR8 EQU SAR+40 01327000 SAR7 EQU SAR+36 01328000 SAR6 EQU SAR+32 01329000 SAR5 EQU SAR+28 01330000 SAR4 EQU SAR+24 01331000 SAR3 EQU SAR+20 01332000 SAR2 EQU SAR+16 01333000 SAR1 EQU SAR+12 01334000 SAR0 EQU SAR+8 01335000 SARF EQU SAR+4 01336000 SARE EQU SAR 01337000 SAFWD EQU SA+8 01338000 SABAK EQU SA+4 01339000 SA1L EQU SA1+1 01340000 SA1P EQU SA1 01341000 UPTPREFL EQU UPT+23 01342000 UPTPREFX EQU UPT+16 01343000 @NM00068 EQU UPT+15 01344000 UPTLDEL EQU UPT+14 01345000 UPTCDEL EQU UPT+13 01346000 UPTWTP EQU UPTSWS 01347000 UPTMODE EQU UPTSWS 01348000 UPTALD EQU UPTSWS 01349000 UPTPAUS EQU UPTSWS 01350000 UPTNCOM EQU UPTSWS 01351000 UPTMID EQU UPTSWS 01352000 UPTNPRM EQU UPTSWS 01353000 UPTRCVR EQU UPTSWS 01354000 UPTUSER EQU UPT+2 01355000 @NM00067 EQU UPT 01356000 @NM00066 EQU ECT+52 01357000 @NM00065 EQU ECT+48 01358000 @NM00064 EQU ECT+44 01359000 @NM00063 EQU ECTSWS2+1 01360000 @NM00062 EQU ECTSWS21 01361000 ECTTABND EQU ECTSWS21 01362000 ECTDEFCS EQU ECTSWS21 01363000 ECTBKPB EQU ECT+36 01364000 ECTUSER EQU ECT+32 01365000 ECTDDNUM EQU ECT+29 01366000 ECTATTN EQU ECTSWS 01367000 ECTBKGRD EQU ECTSWS 01368000 ECTNNOT EQU ECTSWS 01369000 ECTNMAL EQU ECTSWS 01370000 ECTLOGF EQU ECTSWS 01371000 ECTATRM EQU ECTSWS 01372000 @NM00061 EQU ECTSWS 01373000 ECTNOPD EQU ECTSWS 01374000 ECTSCMD EQU ECT+20 01375000 ECTPCMD EQU ECT+12 01376000 ECTSMSG EQU ECT+9 01377000 ECTMSGF EQU ECT+8 01378000 ECTIOWA EQU ECT+4 01379000 ECTRTCD EQU ECT+1 01380000 ECTRCDF EQU ECT 01381000 PSCBU EQU PSCB+64 01382000 PSCBRSZ EQU PSCB+60 01383000 PSCBLINE EQU PSCB+59 01384000 PSCBCHAR EQU PSCB+58 01385000 PSCBUPTL EQU PSCB+56 01386000 PSCBUPT EQU PSCB+52 01387000 PSCBRLGB EQU PSCB+48 01388000 PSCBDEST EQU PSCB+40 01389000 @NM00060 EQU PSCB+36 01390000 @NM00059 EQU PSCB+32 01391000 @NM00058 EQU PSCB+28 01392000 PSCBLTI2 EQU PSCB+24 01393000 PSCBLTIM EQU PSCB+20 01394000 PSCBATR2 EQU PSCB+18 01395000 @NM00057 EQU PSCBATR1 01396000 @NM00056 EQU PSCBATR1 01397000 @NM00055 EQU PSCBATR1 01398000 PSCBATTN EQU PSCBATR1 01399000 PSCBVMNT EQU PSCBATR1 01400000 PSCBJCL EQU PSCBATR1 01401000 PSCBACCT EQU PSCBATR1 01402000 PSCBCTRL EQU PSCBATR1 01403000 PSCBGPNM EQU PSCB+8 01404000 PSCBUSRL EQU PSCB+7 01405000 PSCBUSER EQU PSCB 01406000 CMDT1 EQU CMDT 01407000 CMDO EQU CMD+2 01408000 CMDL EQU CMD 01409000 ZZ299999 EQU ZZ2+8192 01410000 ZZ2AXOT1 EQU ZZ2AXOT 01411000 ZZ2AXOL EQU ZZ2AXO 01412000 @NM00054 EQU ZZ2+7288 01413000 @NM00053 EQU ZZ2AMDX+4 01414000 ZZ2AMDXC EQU ZZ2AMDX 01415000 ZZ2HSD EQU ZZ2+3056 01416000 @NM00052 EQU ZZ2ES 01417000 @NM00051 EQU ZZ2+2868 01418000 ZZ2ITSEC EQU ZZ2ITSE+1 01419000 @NM00050 EQU ZZ2ITSE 01420000 ZZ2ITSEP EQU ZZ2ITSE 01421000 ZZ2ITSEW EQU ZZ2ITSE 01422000 @NM00049 EQU ZZ2ITR+20 01423000 ZZ2ITREC EQU ZZ2ITRE+1 01424000 @NM00048 EQU ZZ2ITRE 01425000 ZZ2ITREP EQU ZZ2ITRE 01426000 ZZ2ITREW EQU ZZ2ITRE 01427000 @NM00047 EQU ZZ2ITR+9 01428000 ZZ2ITRRC EQU ZZ2ITR+8 01429000 ZZ2ITR2P EQU ZZ2ITR+4 01430000 ZZ2ITRPP EQU ZZ2ITR 01431000 @NM00046 EQU ZZ2+1544 01432000 ZZ2PGM EQU ZZ2+1536 01433000 @NM00045 EQU ZZ2+1526 01434000 ZZ2CW EQU ZZ2+1524 01435000 @NM00044 EQU ZZ2+1504 01436000 @NM00043 EQU ZZ2+1352 01437000 ZZ2FFSYP EQU ZZ2+1348 01438000 ZZ2SASYP EQU ZZ2+1344 01439000 ZZ2RDSYP EQU ZZ2+1340 01440000 ZZ2RASYP EQU ZZ2+1336 01441000 ZZ2PHSYP EQU ZZ2+1332 01442000 ZZ2ESSYP EQU ZZ2+1328 01443000 ZZ200SYP EQU ZZ2+1324 01444000 ZZ2SCWP EQU ZZ2+1320 01445000 ZZ2TTLP EQU ZZ2+1316 01446000 ZZ2LOADP EQU ZZ2+1312 01447000 ZZ2VRESP EQU ZZ2+1308 01448000 ZZ2CPPLE EQU ZZ2CPPL+12 01449000 ZZ2CPPLP EQU ZZ2CPPL+8 01450000 ZZ2CPPLU EQU ZZ2CPPL+4 01451000 ZZ2VRSAP EQU ZZ2+1288 01452000 ZZ2RVTP EQU ZZ2+1284 01453000 @NM00042 EQU ZZ2+1272 01454000 @NM00041 EQU ZZ2+1268 01455000 ZZ2RPLP EQU ZZ2+1260 01456000 ZZ2TCBP EQU ZZ2+1256 01457000 @NM00040 EQU ZZ2+1252 01458000 ZZ2ZZ2P EQU ZZ2+1248 01459000 @NM00039 EQU ZZ2+1112 01460000 @NM00038 EQU ZZ2+1080 01461000 ZZ2FT25P EQU ZZ2+1072 01462000 @NM00037 EQU ZZ2+976 01463000 ZZ2TOD EQU ZZ2+968 01464000 ZZ2STGN EQU ZZ2STG+4 01465000 ZZ2STGP EQU ZZ2STG 01466000 @NM00036 EQU ZZ2+952 01467000 ZZ2SCMDE EQU ZZ2+944 01468000 ZZ2SCMDN EQU ZZ2+936 01469000 ZZ2IDENT EQU ZZ2+928 01470000 ZZ2A9999 EQU ZZ2A+656 01471000 @NM00035 EQU ZZ2A+224 01472000 @NM00034 EQU ZZ2A+220 01473000 ZZ2AQD99 EQU ZZ2AQD+60 01474000 @NM00033 EQU ZZ2AQD+56 01475000 @NM00032 EQU ZZ2AQDF 01476000 ZZ2AQDFA EQU ZZ2AQDF 01477000 ZZ2AQDIL EQU ZZ2AQD+48 01478000 ZZ2AQDIM EQU ZZ2AQD+44 01479000 ZZ2AQDT9 EQU ZZ2AQDT+34 01480000 ZZ2AQDTE EQU ZZ2AQDT+33 01481000 ZZ2AQDTD EQU ZZ2AQDT+2 01482000 @NM00031 EQU ZZ2AQDT+1 01483000 ZZ2AQDTY EQU ZZ2AQDT 01484000 ZZ2AQDT0 EQU ZZ2AQDT 01485000 ZZ2AQDLB EQU ZZ2AQD+9 01486000 ZZ2AQDOB EQU ZZ2AQD+8 01487000 ZZ2AQDLE EQU ZZ2AQD+4 01488000 ZZ2AQDOF EQU ZZ2AQD 01489000 ZZ2AQD00 EQU ZZ2AQD 01490000 ZZ2AQAS9 EQU ZZ2AQAS+16 01491000 @NM00030 EQU ZZ2AQAS+12 01492000 ZZ2AQAS2 EQU ZZ2AQAS+8 01493000 ZZ2AQAS1 EQU ZZ2AQAS+4 01494000 @NM00029 EQU ZZ2AQAS+2 01495000 ZZ2AQAST EQU ZZ2AQAS 01496000 ZZ2AQAS0 EQU ZZ2AQAS 01497000 ZZ2AZZ6P EQU ZZ2A+140 01498000 ZZ2ADPTA EQU ZZ2ADPT 01499000 ZZ2ADPL EQU ZZ2ADP 01500000 ZZ2ADMTA EQU ZZ2ADMT 01501000 ZZ2ADML EQU ZZ2ADM 01502000 ZZ2ADDTA EQU ZZ2ADDT 01503000 ZZ2ADDL EQU ZZ2ADD 01504000 @NM00028 EQU ZZ2A+72 01505000 ZZ2APIDB EQU ZZ2APID+3 01506000 ZZ2APIDA EQU ZZ2APID 01507000 @NM00027 EQU ZZ2A+24 01508000 @NM00026 EQU ZZ2AF+5 01509000 @NM00025 EQU ZZ2AF+3 01510000 ZZ2AFS EQU ZZ2AF+2 01511000 ZZ2AFD EQU ZZ2AF+2 01512000 ZZ2AFQ EQU ZZ2AF+2 01513000 ZZ2AF$ EQU ZZ2AF+2 01514000 @NM00024 EQU ZZ2AF+2 01515000 ZZ2AFM EQU ZZ2AF+2 01516000 @NM00023 EQU ZZ2AF+2 01517000 @NM00022 EQU ZZ2AF+1 01518000 ZZ2AFV EQU ZZ2AF+1 01519000 @NM00021 EQU ZZ2AF+1 01520000 ZZ2AFC EQU ZZ2AF+1 01521000 @NM00020 EQU ZZ2AF 01522000 ZZ2AFFS EQU ZZ2AF 01523000 ZZ2AFT EQU ZZ2AF 01524000 ZZ2AFP EQU ZZ2AF 01525000 @NM00019 EQU ZZ2A+8 01526000 ZZ2ALINE EQU ZZ2A+4 01527000 @NM00018 EQU ZZ2A+3 01528000 ZZ2ASE EQU ZZ2A+2 01529000 ZZ2ACH EQU ZZ2A 01530000 @NM00017 EQU ZZ2+264 01531000 @NM00016 EQU ZZ2+263 01532000 ZZ2PRTT0 EQU ZZ2PRTT 01533000 ZZ2PRTO EQU ZZ2PRT+2 01534000 ZZ2PRTL EQU ZZ2PRT 01535000 @NM00015 EQU ZZ2AMD+56 01536000 ZZ2AMDXP EQU ZZ2AMD+52 01537000 ZZ2AMDD EQU ZZ2AMD+48 01538000 ZZ2AMDL EQU ZZ2AMD+44 01539000 ZZ2AMDU EQU ZZ2AMD+28 01540000 ZZ2AMDF EQU ZZ2AMD+24 01541000 ZZ2AMDS EQU ZZ2AMD+20 01542000 ZZ2AMDC EQU ZZ2AMD+16 01543000 ZZ2AMDP EQU ZZ2AMD+12 01544000 ZZ2AMDB EQU ZZ2AMD+8 01545000 @NM00014 EQU @NM00013 01546000 ZZ2AMD2 EQU @NM00013 01547000 ZZ2AMD1 EQU @NM00013 01548000 ZZ2AMD0 EQU ZZ2AMD+6 01549000 ZZ2AMDA EQU ZZ2AMD+4 01550000 ZZ2AMDT EQU ZZ2AMD 01551000 ZZ199999 EQU ZZ1+3072 01552000 @NM00012 EQU ZZ1+2160 01553000 ZZ1TRTAS EQU ZZ1+1904 01554000 ZZ1TRUPC EQU ZZ1+1648 01555000 ZZ1TRCTX EQU ZZ1+1392 01556000 ZZ1NASID EQU ZZ1N+274 01557000 ZZ1NSTRL EQU ZZ1N+272 01558000 ZZ1NOFF EQU ZZ1N+268 01559000 ZZ1NBDY EQU ZZ1N+264 01560000 ZZ1NADE EQU ZZ1N+260 01561000 ZZ1NADB EQU ZZ1N+256 01562000 ZZ1NSTR EQU ZZ1N 01563000 @NM00011 EQU ZZ1+1080 01564000 ZZ1TREBC EQU ZZ1+824 01565000 ZZ1TRHEX EQU ZZ1+568 01566000 @NM00010 EQU ZZ1+377 01567000 ZZ1USTAE EQU ZZ1+376 01568000 @NM00009 EQU ZZ1F+1 01569000 @NM00008 EQU ZZ1F 01570000 ZZ1FM EQU ZZ1F 01571000 ZZ1FX EQU ZZ1F 01572000 ZZ1FU EQU ZZ1F 01573000 ZZ1EVEC EQU ZZ1EVE+1 01574000 @NM00007 EQU ZZ1EVE 01575000 ZZ1EVEW EQU ZZ1EVE 01576000 ZZ1ACMP EQU ZZ1ATTN 01577000 @NM00006 EQU ZZ1+144 01578000 ZZ1FPP EQU ZZ1+140 01579000 ZZ1ZZ6P EQU ZZ1+136 01580000 @NM00005 EQU ZZ1+84 01581000 ZZ1PLINE EQU ZZ1+80 01582000 ZZ1PGSZ EQU ZZ1+76 01583000 ZZ1PCNT EQU ZZ1+72 01584000 @NM00004 EQU ZZ1+68 01585000 ZZ1TPAGE EQU ZZ1+64 01586000 ZZ1TLINE EQU ZZ1+60 01587000 @NM00003 EQU ZZ1+52 01588000 ZZ1DMCBP EQU ZZ1+48 01589000 ZZ1PDRP EQU ZZ1+40 01590000 ZZ1ZZ2P EQU ZZ1+36 01591000 ZZ1327WP EQU ZZ1+32 01592000 ZZ1ACBP EQU ZZ1+28 01593000 @NM00002 EQU ZZ1+24 01594000 ZZ1PDCBP EQU ZZ1+20 01595000 ZZ1BLRBL EQU ZZ1+16 01596000 @NM00001 EQU ZZ1+12 01597000 ZZ1PNULL EQU ZZ1+8 01598000 ZZ1NULL EQU ZZ1+4 01599000 ZZ1IDE EQU ZZ1 01600000 * END UNREFERENCED COMPONENTS 01601000 @RT00207 EQU EXITRLSA 01602000 @RF00217 EQU @RC00213 01603000 @RF00221 EQU @RC00213 01604000 @RC00240 EQU @RC00237 01605000 @RF00296 EQU @RC00286 01606000 @RF00251 EQU @RC00240 01607000 @ENDDATA EQU * 01608000 END BLSFLD00,(C'PLS1732',0701,78065) 01609000