TITLE 'IPCS LIST DSN ATTRIBUTES SUBROUTINE OF LIST PROB *00001000 ' 00002000 * /* CHANGE ACTIVITY */ 00003000 *THIS MODULE WRITTEN FOR @G57LPGS 00004000 BLSFLP00 CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSFLP00 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(16),0(@01) 0002 00024000 * ZZ2PTR=ADDR(BLSUTV); /* SAVE PTR TO ZZ2 CTRL BLK */ 00025000 L ZZ2PTR,@PC00001 0142 00026000 * RESPECIFY 0143 00027000 * DSDREC BASED(ADDR(DSDBUF)); /* SET DSD BASING EXPRESSION */ 00028000 * RETC=ZERO; /* INITIALIZE THE RETURN CODE */ 00029000 SLR RETC,RETC 0144 00030000 * MSGPTR=ZERO; /* INITIALIZE THE MESSAGE POINTER*/ 00031000 SLR @14,@14 0145 00032000 ST @14,MSGPTR 0145 00033000 * DSNKEYTY=DSDRBTYC; /* INDICATE BASE RECORD TYPE */ 00034000 MVI DSNKEYTY,C'B' 0146 00035000 * DSNKEYPN=DSDBRECC; /* INDICATE BASE RECORD DESIRED */ 00036000 MVC DSNKEYPN(8),@CC00942 0147 00037000 * DSNKEYDS=DSN; /* FILL IN DSN */ 00038000 L @14,@PC00001+4 0148 00039000 MVC DSNKEYDS(52),DSN(@14) 0148 00040000 * CALL BLSFGD00(ZZ2,DSNKEY,DSDBUF); 0149 00041000 * 0149 00042000 ST ZZ2PTR,@AL00001 0149 00043000 LA @14,DSNKEY 0149 00044000 ST @14,@AL00001+4 0149 00045000 LA @14,DSDBUF 0149 00046000 ST @14,@AL00001+8 0149 00047000 L @10,ZZ2DVTP(,ZZ2PTR) 0149 00048000 L @15,DVTGD00P(,@10) 0149 00049000 LA @01,@AL00001 0149 00050000 BALR @14,@15 0149 00051000 * /*****************************************************************/ 00052000 * /* */ 00053000 * /* GET THE DSD BASE REC THIS DSN */ 00054000 * /* */ 00055000 * /*****************************************************************/ 00056000 * 0150 00057000 * RETC=RF; /* SAVE THE RETURN CODE */ 00058000 LR RETC,RF 0150 00059000 * IF RETC^=ZERO THEN /* ALL NON ZERO RET CODE */ 00060000 LTR RETC,RETC 0151 00061000 BZ @RF00151 0151 00062000 * DO; /* GO GET ASSOC RECORD */ 00063000 * IF RETC=EIGHT THEN /* NO RECORD FOUND ? */ 00064000 C RETC,@CF00056 0153 00065000 BNE @RF00153 0153 00066000 * DO; /* YES, MSG INVALID PROB NUM */ 00067000 * DO DSNLEN=ONE TO FORTFOUR WHILE(DSN(DSNLEN))^=BLANK;/* 0155 00068000 * FRST */ 00069000 LA DSNLEN,1 0155 00070000 @DL00155 L @14,@PC00001+4 0155 00071000 ALR @14,DSNLEN 0155 00072000 BCTR @14,0 0155 00073000 CLI DSN(@14),C' ' 0155 00074000 BE @DC00155 0155 00075000 * END; /* END FIND FIRST BLSNK IN DSN */ 00076000 AL DSNLEN,@CF00048 0156 00077000 C DSNLEN,@CF00093 0156 00078000 BNH @DL00155 0156 00079000 @DC00155 DS 0H 0157 00080000 * DSNLEN=DSNLEN-ONE; /* MINUS ONE TO GET TRUE LENGTH */ 00081000 BCTR DSNLEN,0 0157 00082000 * IF DSN(FORTFIVE:FIFTWO)^=BLANKS THEN/* MEMBER NAME BLANK */ 00083000 L @14,@PC00001+4 0158 00084000 CLC DSN+44(8,@14),@CC00107 0158 00085000 BE @RF00158 0158 00086000 * DO; /* NO, FILL IN MEMBER NAME */ 00087000 * MEMNMLP=LEFTPARN; /* FILL IN LEFT PAREN MEM NAME */ 00088000 MVI MEMNMLP,C'(' 0160 00089000 * MEMNM=BLANK; /* BLANK THE MEMBER NAME */ 00090000 MVI MEMNM+1,C' ' 0161 00091000 MVC MEMNM+2(7),MEMNM+1 0161 00092000 MVI MEMNM,C' ' 0161 00093000 * MEMNM=DSNKEYDS(FORTFIVE:FIFTWO);/* FILL IN MEMBER 0162 00094000 * NAME */ 00095000 MVI MEMNM+8,C' ' 0162 00096000 MVC MEMNM(8),DSNKEYDS+44 0162 00097000 * DO I=ONE TO EIGHT WHILE(MEMNM(I))^=BLANK;/* FIND 1ST 00098000 * BLAN */ 00099000 LA I,1 0163 00100000 @DL00163 LA @14,MEMNM-1(I) 0163 00101000 CLI 0(@14),C' ' 0163 00102000 BE @DC00163 0163 00103000 * END; /* END FIND FIRST BLANK MEM NAME */ 00104000 AL I,@CF00048 0164 00105000 C I,@CF00056 0164 00106000 BNH @DL00163 0164 00107000 @DC00163 DS 0H 0165 00108000 * MEMNM(I)=RITEPARN; /* CLOSE MEMBER NAME */ 00109000 LA @14,MEMNM-1(I) 0165 00110000 MVI 0(@14),C')' 0165 00111000 * END; /* END MEMBER NAME PRESENT */ 00112000 * ELSE /* MEMBER NAME IS BLANK */ 00113000 * DO; /* PROCESS BLANK MEMBER NAME */ 00114000 B @RC00158 0167 00115000 @RF00158 DS 0H 0168 00116000 * MEMNAME=BLANK; /* BLANK THE MEMBER NAME INSERT */ 00117000 MVI MEMNAME+1,C' ' 0168 00118000 MVC MEMNAME+2(8),MEMNAME+1 0168 00119000 MVI MEMNAME,C' ' 0168 00120000 * I=ONE; /* SET I FOR MSG BADDSN */ 00121000 LA I,1 0169 00122000 * END; /* END MEMBER NAME BLANK */ 00123000 * DO; /* BLSDMSG 0171 00124000 * (ZZ2,DSNMSGNO,OUTPTR,BLSDMSGS) 00125000 * FIFO NOCOMP 0171 00126000 * INSERT((DSN,DSNLEN),MEMNAME) */ 00127000 @RC00158 DS 0H 0172 00128000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00129000 LA @14,IOPTLIST+12 0172 00130000 ST @14,IOPTLIST 0172 00131000 * IOPTLIST(2)=ADDR(DSN);/* INSERT NAME POINTER */ 00132000 L @14,@PC00001+4 0173 00133000 ST @14,IOPTLIST+4 0173 00134000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00135000 SLR @14,@14 0174 00136000 ST @14,IOPTLIST+8 0174 00137000 * RFY 0175 00138000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00139000 * I015F=DSNLEN; /* INSERT LENGTH */ 00140000 LA @10,IOPTLIST+8 0176 00141000 STH DSNLEN,I015F(,@10) 0176 00142000 * IOPTLIST(4)=0; /* LAST INSERT */ 00143000 ST @14,IOPTLIST+12 0177 00144000 * IOPTLIST(5)=ADDR(MEMNAME);/* INSERT NAME POINTER */ 00145000 LA @10,MEMNAME 0178 00146000 ST @10,IOPTLIST+16 0178 00147000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00148000 ST @14,IOPTLIST+20 0179 00149000 * RFY 0180 00150000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00151000 * I015F=LENGTH(MEMNAME);/* INSERT LENGTH */ 00152000 LA @14,IOPTLIST+20 0181 00153000 MVC I015F(2,@14),@CH00482 0181 00154000 * CALL BLSDMSG0(ZZ2,DSNMSGNO,OUTPTR,BLSDMSGS,'01000000'B, 00155000 * ADDR(IOPTLIST)); /* BUILD MESSAGE */ 00156000 ST ZZ2PTR,@AL00001 0182 00157000 LA @14,@CF00965 0182 00158000 ST @14,@AL00001+4 0182 00159000 L @14,@PC00001+12 0182 00160000 ST @14,@AL00001+8 0182 00161000 L @14,ZZ2MSGSP(,ZZ2PTR) 0182 00162000 ST @14,@AL00001+12 0182 00163000 LA @14,@CB00997 0182 00164000 ST @14,@AL00001+16 0182 00165000 LA @14,IOPTLIST 0182 00166000 ST @14,@AFTEMPS 0182 00167000 LA @14,@AFTEMPS 0182 00168000 ST @14,@AL00001+20 0182 00169000 L @15,ZZ2MSG0P(,ZZ2PTR) 0182 00170000 LA @01,@AL00001 0182 00171000 BALR @14,@15 0182 00172000 * END; /* BLSDMSG 0183 00173000 * (ZZ2,DSNMSGNO,OUTPTR,BLSDMSGS) 00174000 * FIFO NOCOMP 0183 00175000 * INSERT((DSN,DSNLEN),MEMNAME) 00176000 * ADDSN TO REPORT */ 00177000 * DO; /* BLSDMSG 0184 00178000 * (ZZ2,BADDSN,OUTPTR,BLSDMSGS) 00179000 * FIFO COMP INSERT(DSN(ONE:FORTF 00180000 * OUR),MEMNMLP,(MEMNM,I-ONE),MEM 00181000 * NM(I)) */ 00182000 * IOPTLIST(1)=ADDR(IOPTLIST(4));/* CHAIN TO NEXT INSERT */ 00183000 LA @14,IOPTLIST+12 0185 00184000 ST @14,IOPTLIST 0185 00185000 * IOPTLIST(2)=ADDR(DSN(ONE:FORTFOUR));/* INSERT NAME 0186 00186000 * POINTER */ 00187000 L @14,@PC00001+4 0186 00188000 ST @14,IOPTLIST+4 0186 00189000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00190000 SLR @14,@14 0187 00191000 ST @14,IOPTLIST+8 0187 00192000 * RFY 0188 00193000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00194000 * I015F=LENGTH(DSN(ONE:FORTFOUR));/* INSERT LENGTH */ 00195000 LA @10,IOPTLIST+8 0189 00196000 MVC I015F(2,@10),@CH00093 0189 00197000 * IOPTLIST(4)=ADDR(IOPTLIST(7));/* CHAIN TO NEXT INSERT */ 00198000 LA @10,IOPTLIST+24 0190 00199000 ST @10,IOPTLIST+12 0190 00200000 * IOPTLIST(5)=ADDR(MEMNMLP);/* INSERT NAME POINTER */ 00201000 LA @10,MEMNMLP 0191 00202000 ST @10,IOPTLIST+16 0191 00203000 * IOPTLIST(6)=0; /* ZERO RESERVED FIELD */ 00204000 ST @14,IOPTLIST+20 0192 00205000 * RFY 0193 00206000 * I015F BASED(ADDR(IOPTLIST(6)));/* ACCESS BYTES 1-2 */ 00207000 * I015F=LENGTH(MEMNMLP);/* INSERT LENGTH */ 00208000 LA @10,1 0194 00209000 LA @02,IOPTLIST+20 0194 00210000 STH @10,I015F(,@02) 0194 00211000 * IOPTLIST(7)=ADDR(IOPTLIST(10));/* CHAIN TO NEXT INSERT */ 00212000 LA @02,IOPTLIST+36 0195 00213000 ST @02,IOPTLIST+24 0195 00214000 * IOPTLIST(8)=ADDR(MEMNM);/* INSERT NAME POINTER */ 00215000 LA @02,MEMNM 0196 00216000 ST @02,IOPTLIST+28 0196 00217000 * IOPTLIST(9)=0; /* ZERO RESERVED FIELD */ 00218000 ST @14,IOPTLIST+32 0197 00219000 * RFY 0198 00220000 * I015F BASED(ADDR(IOPTLIST(9)));/* ACCESS BYTES 1-2 */ 00221000 * I015F=I-ONE; /* INSERT LENGTH */ 00222000 LA @02,IOPTLIST+32 0199 00223000 LR @09,I 0199 00224000 BCTR @09,0 0199 00225000 STH @09,I015F(,@02) 0199 00226000 * IOPTLIST(10)=0; /* LAST INSERT */ 00227000 ST @14,IOPTLIST+36 0200 00228000 * IOPTLIST(11)=ADDR(MEMNM(I));/* INSERT NAME POINTER */ 00229000 LA @02,MEMNM-1(I) 0201 00230000 ST @02,IOPTLIST+40 0201 00231000 * IOPTLIST(12)=0; /* ZERO RESERVED FIELD */ 00232000 ST @14,IOPTLIST+44 0202 00233000 * RFY 0203 00234000 * I015F BASED(ADDR(IOPTLIST(12)));/* ACCESS BYTES 1-2 */ 00235000 * I015F=LENGTH(MEMNM(I));/* INSERT LENGTH */ 00236000 LA @14,IOPTLIST+44 0204 00237000 STH @10,I015F(,@14) 0204 00238000 * CALL BLSDMSG0(ZZ2,BADDSN,OUTPTR,BLSDMSGS,'00000000'B,ADDR 00239000 * (IOPTLIST)); /* BUILD MESSAGE */ 00240000 ST ZZ2PTR,@AL00001 0205 00241000 LA @14,@CF00961 0205 00242000 ST @14,@AL00001+4 0205 00243000 L @14,@PC00001+12 0205 00244000 ST @14,@AL00001+8 0205 00245000 L @14,ZZ2MSGSP(,ZZ2PTR) 0205 00246000 ST @14,@AL00001+12 0205 00247000 LA @14,@CB01006 0205 00248000 ST @14,@AL00001+16 0205 00249000 LA @14,IOPTLIST 0205 00250000 ST @14,@AFTEMPS 0205 00251000 LA @14,@AFTEMPS 0205 00252000 ST @14,@AL00001+20 0205 00253000 L @15,ZZ2MSG0P(,ZZ2PTR) 0205 00254000 LA @01,@AL00001 0205 00255000 BALR @14,@15 0205 00256000 * END; /* BLSDMSG 0206 00257000 * (ZZ2,BADDSN,OUTPTR,BLSDMSGS) 00258000 * FIFO COMP INSERT(DSN(ONE:FORTF 00259000 * OUR),MEMNMLP,(MEMNM,I-ONE),MEM 00260000 * NM(I)) MSG USER OF ERROR */ 00261000 * END; /* END NOREC FOUND */ 00262000 * ELSE /* BAD ERROR */ 00263000 * DO; /* SEND FOR HELP */ 00264000 B @RC00153 0208 00265000 @RF00153 DS 0H 0209 00266000 * DO; /* BLSDMSG 0209 00267000 * (ZZ2,BADDSDAC,MSGPTR,BLSDMSGS) 00268000 * ROUTE(TERM)LIFO */ 00269000 * CALL BLSDMSG0(ZZ2,BADDSDAC,MSGPTR,BLSDMSGS,'10010000'B,0) 00270000 * ; /* BUILD MESSAGE */ 00271000 ST ZZ2PTR,@AL00001 0210 00272000 LA @14,@CF00963 0210 00273000 ST @14,@AL00001+4 0210 00274000 LA @14,MSGPTR 0210 00275000 ST @14,@AL00001+8 0210 00276000 L @14,ZZ2MSGSP(,ZZ2PTR) 0210 00277000 ST @14,@AL00001+12 0210 00278000 LA @14,@CB01007 0210 00279000 ST @14,@AL00001+16 0210 00280000 LA @14,@CF00053 0210 00281000 ST @14,@AL00001+20 0210 00282000 L @15,ZZ2MSG0P(,ZZ2PTR) 0210 00283000 LA @01,@AL00001 0210 00284000 BALR @14,@15 0210 00285000 * END; /* BLSDMSG 0211 00286000 * (ZZ2,BADDSDAC,MSGPTR,BLSDMSGS) 00287000 * ROUTE(TERM)LIFO */ 00288000 * RETC=MAX(RETC,TWELVE); /* SET RETURN CODE */ 00289000 LA @14,12 0212 00290000 CR RETC,@14 0212 00291000 BNL *+6 00292000 LR RETC,@14 0212 00293000 * END; /* END BAD PDR ACCESS */ 00294000 * END; /* END BAD DSD GET */ 00295000 * ELSE /* GET OF BASE RECORD OK */ 00296000 * DO; /* GET WORKED */ 00297000 B @RC00151 0215 00298000 @RF00151 DS 0H 0216 00299000 * CALL BLSFFL00(ZZ2,DSDBUF,OUTPTR);/* FORMAT 1 ST LINE */ 00300000 ST ZZ2PTR,@AL00001 0216 00301000 LA @14,DSDBUF 0216 00302000 ST @14,@AL00001+4 0216 00303000 L @14,@PC00001+12 0216 00304000 ST @14,@AL00001+8 0216 00305000 L @10,ZZ2DVTP(,ZZ2PTR) 0216 00306000 L @15,DVTFL00P(,@10) 0216 00307000 LA @01,@AL00001 0216 00308000 BALR @14,@15 0216 00309000 * RESPECIFY 0217 00310000 * RF RESTRICTED; /* RESTRICT REG F */ 00311000 * RETC=RF; /* SAVE THE RETURN CODE */ 00312000 LR RETC,RF 0218 00313000 * RESPECIFY 0219 00314000 * RF UNRESTRICTED; /* FREE REG 15 TO COMPILER */ 00315000 * IF RETC=ZERO&YESNO=YES THEN /* FIRST LINE WORK AND SECOND RQ */ 00316000 LTR RETC,RETC 0220 00317000 BNZ @RF00220 0220 00318000 L @10,@PC00001+8 0220 00319000 CLC YESNO(3,@10),@CC00974 0220 00320000 BNE @RF00220 0220 00321000 * DO; /* YES, GO HANDLE */ 00322000 * CALL BLSFSL00(ZZ2,DSDBUF,OUTPTR);/* GO FORMAT THE SECOND 00323000 * LINE */ 00324000 ST ZZ2PTR,@AL00001 0222 00325000 LA @10,DSDBUF 0222 00326000 ST @10,@AL00001+4 0222 00327000 L @10,@PC00001+12 0222 00328000 ST @10,@AL00001+8 0222 00329000 L @10,ZZ2DVTP(,ZZ2PTR) 0222 00330000 L @15,DVTSL00P(,@10) 0222 00331000 LA @01,@AL00001 0222 00332000 BALR @14,@15 0222 00333000 * RESPECIFY 0223 00334000 * RF RESTRICTED; /* RESTRICT REG F */ 00335000 * RETC=RF; /* SAVE THE RETURN CODE SECOND LN*/ 00336000 LR RETC,RF 0224 00337000 * END; /* END ZERO RETC 1ST LN & 2ND REQ*/ 00338000 * END; /* END GET DSD WORKED */ 00339000 @RF00220 DS 0H 0227 00340000 * RETURN CODE(RETC); /* RETURN WITH RETURN CODE */ 00341000 @RC00151 L @13,4(,@13) 0227 00342000 L @00,@SIZDATD 0227 00343000 LR @01,@11 0227 00344000 BLSUFRES R,LV=(0),A=(1) 00345000 LR @15,@04 0227 00346000 L @14,12(,@13) 0227 00347000 LM @00,@12,20(@13) 0227 00348000 BR @14 0227 00349000 */*BLSUPEND--MVS IPCS MODULE */ 00350000 * 0228 00351000 * DECLARE /* COMMON VARIABLES */ 00352000 * I256C CHAR(256) BASED, 0228 00353000 * I031F FIXED(31) BASED, 0228 00354000 * I031P PTR(31) BASED, 0228 00355000 * I015F FIXED(15) BASED, 0228 00356000 * I015P PTR(15) BASED, 0228 00357000 * I008P PTR(8) BASED, 0228 00358000 * I001C CHAR(1) BASED; 0228 00359000 * DECLARE 0229 00360000 * IOPTLIST(12) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00361000 * GENERATE NODEFS NOREFS DATA; 0230 00362000 * END /* BLRPEND END OF PROCESSING 0231 00363000 * MODDSN */ 00364000 * 0231 00365000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00366000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00367000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00368000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00369000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00370000 */*%INCLUDE SYSLIB (IKJECT ) */ 00371000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00372000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00373000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00374000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00375000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00376000 */*%INCLUDE SYSLIB (BLSDSD ) */ 00377000 * 0231 00378000 * ; 0231 00379000 @EL00001 L @13,4(,@13) 0231 00380000 @EF00001 L @00,@SIZDATD 0231 00381000 LR @01,@11 0231 00382000 BLSUFRES R,LV=(0),A=(1) 00383000 @ER00001 LM @14,@12,12(@13) 0231 00384000 BR @14 0231 00385000 @DATA DS 0H 00386000 @CH00482 DC H'10' 00387000 @DATD DSECT 00388000 DS 0F 00389000 @SA00001 DS 18F 00390000 @PC00001 DS 4F 00391000 @AL00001 DS 6A 00392000 @AFTEMPS DS 1F 00393000 BLSFLP00 CSECT 00394000 DS 0F 00395000 @CF00053 DC F'0' 00396000 @CF00048 DC F'1' 00397000 @CF00056 DC F'8' 00398000 @CF00093 DC F'44' 00399000 @CH00093 EQU @CF00093+2 00400000 @CF00963 DC F'4051' 00401000 @CF00961 DC F'4091' 00402000 @CF00965 DC F'40020' 00403000 @DATD DSECT 00404000 DS 0D 00405000 MSGPTR DS A 00406000 DSDBUF DS CL144 00407000 MEMNAME DS CL10 00408000 ORG MEMNAME 00409000 MEMNMLP DS CL1 00410000 MEMNM DS CL9 00411000 ORG MEMNAME+10 00412000 DSNKEY DS CL61 00413000 ORG DSNKEY 00414000 DSNKEYTY DS CL1 00415000 DSNKEYDS DS CL52 00416000 DSNKEYPN DS CL8 00417000 ORG DSNKEY+61 00418000 DS CL1 00419000 IOPTLIST DS 12A 00420000 BLSFLP00 CSECT 00421000 DS 0F 00422000 @SIZDATD DC AL1(0) 00423000 DC AL3(@ENDDATD-@DATD) 00424000 DS 0D 00425000 @CC00107 DC C' ' 00426000 @CC00942 DC C'DSN BASE' 00427000 @CC00974 DC C'YES' 00428000 @CB00997 DC B'01000000' 00429000 @CB01006 DC B'00000000' 00430000 @CB01007 DC B'10010000' 00431000 @DATD DSECT 00432000 SPACE 2 00433000 *********************************************************************** 00434000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00435000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00436000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00437000 *********************************************************************** 00438000 SPACE 00439000 BLSFLP00 CSECT 00440000 ORG 00441000 DS 0D 00442000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSFLP00+19)/20+7)/8)CL8'BLSFLP00' 00443000 @DATD DSECT 00444000 SPACE 2 00445000 *********************************************************************** 00446000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00447000 *********************************************************************** 00448000 SPACE 00449000 DS 0D 00450000 @DATD DSECT 00451000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00452000 @ENDDATD EQU * 00453000 BLSFLP00 CSECT 00454000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00455000 @01 EQU 01 00456000 @02 EQU 02 00457000 @03 EQU 03 00458000 @04 EQU 04 00459000 @05 EQU 05 00460000 @06 EQU 06 00461000 @07 EQU 07 00462000 @08 EQU 08 00463000 @09 EQU 09 00464000 @10 EQU 10 00465000 @11 EQU 11 00466000 @12 EQU 12 00467000 @13 EQU 13 00468000 @14 EQU 14 00469000 @15 EQU 15 00470000 I EQU @05 00471000 DSNLEN EQU @06 00472000 RETC EQU @04 00473000 ZZ2PTR EQU @03 00474000 R0 EQU @00 00475000 R1 EQU @01 00476000 R2 EQU @02 00477000 R3 EQU @03 00478000 R4 EQU @04 00479000 R5 EQU @05 00480000 R9 EQU @09 00481000 RB EQU @11 00482000 RD EQU @13 00483000 RE EQU @14 00484000 RF EQU @15 00485000 RA EQU @10 00486000 RC EQU @12 00487000 R6 EQU @06 00488000 R7 EQU @07 00489000 R8 EQU @08 00490000 ZZ1 EQU 0 00491000 ZZ1DSDP EQU ZZ1+44 00492000 ZZ1ATTN EQU ZZ1+360 00493000 ZZ1EVE EQU ZZ1ATTN+4 00494000 ZZ1F EQU ZZ1+368 00495000 ZZ1N EQU ZZ1+1116 00496000 ZZ2 EQU 0 00497000 ZZ2AMD EQU ZZ2 00498000 @NM00013 EQU ZZ2AMD+7 00499000 ZZ2PRT EQU ZZ2+138 00500000 ZZ2PRTT EQU ZZ2PRT+4 00501000 ZZ2PRTT1 EQU ZZ2PRTT+1 00502000 ZZ2A EQU ZZ2+272 00503000 ZZ2AF EQU ZZ2A+16 00504000 ZZ2APID EQU ZZ2A+64 00505000 ZZ2AD EQU ZZ2A+74 00506000 ZZ2ADD EQU ZZ2AD 00507000 ZZ2ADDT EQU ZZ2ADD+2 00508000 ZZ2ADM EQU ZZ2AD+46 00509000 ZZ2ADMT EQU ZZ2ADM+2 00510000 ZZ2ADP EQU ZZ2AD+56 00511000 ZZ2ADPT EQU ZZ2ADP+2 00512000 ZZ2AQAS EQU ZZ2A+144 00513000 ZZ2AQD EQU ZZ2A+160 00514000 ZZ2AQDT EQU ZZ2AQD+10 00515000 ZZ2AQDF EQU ZZ2AQD+52 00516000 ZZ2STG EQU ZZ2+960 00517000 ZZ2ALLOP EQU ZZ2+992 00518000 ZZ2FREEP EQU ZZ2+996 00519000 ZZ2FF19P EQU ZZ2+1000 00520000 ZZ2FRE1P EQU ZZ2+1004 00521000 ZZ2FF18P EQU ZZ2+1008 00522000 ZZ2DYNAP EQU ZZ2+1012 00523000 ZZ2ZZ2CP EQU ZZ2+1016 00524000 ZZ2ZZ2DP EQU ZZ2+1020 00525000 ZZ2STAIP EQU ZZ2+1024 00526000 ZZ2FF02P EQU ZZ2+1028 00527000 ZZ2GETLP EQU ZZ2+1032 00528000 ZZ2PARSP EQU ZZ2+1036 00529000 ZZ2PTGTP EQU ZZ2+1040 00530000 ZZ2PUTLP EQU ZZ2+1044 00531000 ZZ2SCANP EQU ZZ2+1048 00532000 ZZ2STCKP EQU ZZ2+1052 00533000 ZZ2ALOCP EQU ZZ2+1056 00534000 ZZ2MSGSP EQU ZZ2+1060 00535000 ZZ2TRMOP EQU ZZ2+1064 00536000 ZZ2TRMVP EQU ZZ2+1068 00537000 ZZ2MSG0P EQU ZZ2+1076 00538000 ZZ2PUTNP EQU ZZ2+1084 00539000 ZZ2TRMNP EQU ZZ2+1088 00540000 ZZ2ENQ0P EQU ZZ2+1092 00541000 ZZ2ADSDP EQU ZZ2+1096 00542000 ZZ2APDRP EQU ZZ2+1100 00543000 ZZ2FDSDP EQU ZZ2+1104 00544000 ZZ2FPDRP EQU ZZ2+1108 00545000 ZZ2ZZ1P EQU ZZ2+1264 00546000 ZZ2DVTP EQU ZZ2+1276 00547000 ZZ2BVTP EQU ZZ2+1280 00548000 ZZ2CPPL EQU ZZ2+1292 00549000 ZZ2CPPLC EQU ZZ2CPPL 00550000 ZZ2ITR EQU ZZ2+2840 00551000 ZZ2ITRE EQU ZZ2ITR+16 00552000 ZZ2ITSE EQU ZZ2+2864 00553000 ZZ2ES EQU ZZ2+2872 00554000 ZZ2AMDX EQU ZZ2+7160 00555000 ZZ2AXO EQU ZZ2+7934 00556000 ZZ2AXOT EQU ZZ2AXO+2 00557000 CMD EQU 0 00558000 CMDT EQU CMD+4 00559000 PSCB EQU 0 00560000 PSCBATR1 EQU PSCB+16 00561000 ECT EQU 0 00562000 ECTSWS EQU ECT+28 00563000 ECTSWS2 EQU ECT+40 00564000 ECTSWS21 EQU ECTSWS2 00565000 UPT EQU 0 00566000 UPTSWS EQU UPT+12 00567000 SA EQU 0 00568000 SA1 EQU SA 00569000 SAR EQU SA+12 00570000 BVT EQU 0 00571000 BVTPUTLP EQU BVT+4 00572000 BVTPUTOP EQU BVT+12 00573000 BVTPUTTP EQU BVT+16 00574000 BVTPUTVP EQU BVT+20 00575000 BVTPUTAP EQU BVT+24 00576000 BVTPRTTP EQU BVT+28 00577000 BVTPRTAP EQU BVT+32 00578000 BVTPUTDP EQU BVT+36 00579000 BVTMONP EQU BVT+40 00580000 BVTMON2P EQU BVT+44 00581000 BVTVSARP EQU BVT+48 00582000 BVTVSENP EQU BVT+64 00583000 BVTVSERP EQU BVT+68 00584000 BVTVSGEP EQU BVT+72 00585000 BVTVSGUP EQU BVT+76 00586000 BVTVSPOP EQU BVT+80 00587000 BVTVSPUP EQU BVT+84 00588000 BVTMPKNP EQU BVT+104 00589000 BVTMONLP EQU BVT+108 00590000 BVTPUTCP EQU BVT+132 00591000 BVTMPK1P EQU BVT+136 00592000 BVTZZ2RP EQU BVT+140 00593000 BVTPGMRP EQU BVT+144 00594000 BVTMONAP EQU BVT+148 00595000 BVTBLDDP EQU BVT+152 00596000 BVTBLDLP EQU BVT+156 00597000 BVTPGMCP EQU BVT+160 00598000 BVTPGMDP EQU BVT+164 00599000 BVTPGMLP EQU BVT+168 00600000 BVTMONCP EQU BVT+180 00601000 BVTMONDP EQU BVT+184 00602000 BVTMONTP EQU BVT+188 00603000 BVTPARIP EQU BVT+192 00604000 BVTPARUP EQU BVT+196 00605000 BVTPRTNP EQU BVT+204 00606000 BVTVSCRP EQU BVT+208 00607000 BVTVSMRP EQU BVT+212 00608000 BVTMONXP EQU BVT+216 00609000 BVTTRMAP EQU BVT+228 00610000 BLSDMSGS EQU 0 00611000 BLSDMSG0 EQU 0 00612000 BLSFFL00 EQU 0 00613000 BLSFGD00 EQU 0 00614000 BLSFSL00 EQU 0 00615000 DVT EQU 0 00616000 DVTDEQPP EQU DVT+8 00617000 DVTENQPP EQU DVT+12 00618000 DVTAUTHP EQU DVT+20 00619000 DVTLPCLP EQU DVT+24 00620000 DVTBP00P EQU DVT+28 00621000 DVTCN00P EQU DVT+32 00622000 DVTDF00P EQU DVT+36 00623000 DVTDS00P EQU DVT+44 00624000 DVTFL00P EQU DVT+48 00625000 DVTFP00P EQU DVT+52 00626000 DVTGD00P EQU DVT+56 00627000 DVTGG00P EQU DVT+60 00628000 DVTGP00P EQU DVT+64 00629000 DVTND00P EQU DVT+68 00630000 DVTND01P EQU DVT+72 00631000 DVTOD00P EQU DVT+76 00632000 DVTPS00P EQU DVT+80 00633000 DVTSD00P EQU DVT+84 00634000 DVTSL00P EQU DVT+88 00635000 DVTTL00P EQU DVT+92 00636000 DVTUD00P EQU DVT+96 00637000 DVTUP00P EQU DVT+100 00638000 DVTLALLP EQU DVT+108 00639000 DVTLPFMP EQU DVT+112 00640000 DVTCLOSP EQU DVT+116 00641000 DVTOPENP EQU DVT+120 00642000 DVTPERAP EQU DVT+124 00643000 DVTDALLP EQU DVT+128 00644000 DMCB EQU 0 00645000 DMCBFTY EQU DMCB+20 00646000 DMCBOPN EQU DMCB+21 00647000 DMCBRMOD EQU DMCB+23 00648000 DMCBOUT EQU DMCBRMOD 00649000 DMCBOPTS EQU DMCB+24 00650000 DMCBGKY EQU DMCBOPTS 00651000 DMCBMFLG EQU DMCB+28 00652000 DMCBBUFP EQU DMCB+32 00653000 DMCBKEYP EQU DMCB+44 00654000 DMCBRI EQU DMCB+64 00655000 DMCBACBE EQU DMCB+124 00656000 DMCBSPEC EQU DMCB+380 00657000 DMCBAMS EQU DMCB+416 00658000 DMCBAUDT EQU DMCB+568 00659000 DMCBLSCP EQU DMCBAUDT+16 00660000 DSDREC EQU 0 00661000 DSDKEY EQU DSDREC 00662000 DSDKGRP EQU DSDKEY 00663000 DSDKDSNM EQU DSDKGRP+1 00664000 DSDKBSID EQU DSDKEY+53 00665000 DSDKPID EQU DSDKBSID 00666000 DSDINFO EQU DSDREC+64 00667000 I015F EQU 0 00668000 BLSCALOC EQU 0 00669000 BLSDADSD EQU 0 00670000 BLSDAPDR EQU 0 00671000 BLSDDEQP EQU 0 00672000 BLSDENQP EQU 0 00673000 BLSDENQ0 EQU 0 00674000 BLSDFDSD EQU 0 00675000 BLSDFPDR EQU 0 00676000 BLSEAUTH EQU 0 00677000 BLSELPCL EQU 0 00678000 BLSELPFM EQU 0 00679000 BLSFBP00 EQU 0 00680000 BLSFCLOS EQU 0 00681000 BLSFCN00 EQU 0 00682000 BLSFDALL EQU 0 00683000 BLSFDF00 EQU 0 00684000 BLSFDS00 EQU 0 00685000 BLSFFP00 EQU 0 00686000 BLSFGG00 EQU 0 00687000 BLSFGP00 EQU 0 00688000 BLSFLALL EQU 0 00689000 BLSFND00 EQU 0 00690000 BLSFND01 EQU 0 00691000 BLSFOD00 EQU 0 00692000 BLSFOPEN EQU 0 00693000 BLSFPERA EQU 0 00694000 BLSFPS00 EQU 0 00695000 BLSFSD00 EQU 0 00696000 BLSFTL00 EQU 0 00697000 BLSFUD00 EQU 0 00698000 BLSFUP00 EQU 0 00699000 BLSUALLO EQU 0 00700000 BLSUBLDD EQU 0 00701000 BLSUBLDL EQU 0 00702000 BLSUDYNA EQU 0 00703000 BLSUFREE EQU 0 00704000 BLSUFRE1 EQU 0 00705000 BLSUMON EQU 0 00706000 BLSUMONA EQU 0 00707000 BLSUMONC EQU 0 00708000 BLSUMOND EQU 0 00709000 BLSUMONL EQU 0 00710000 BLSUMONT EQU 0 00711000 BLSUMONX EQU 0 00712000 BLSUMON2 EQU 0 00713000 BLSUMPKN EQU 0 00714000 BLSUMPK1 EQU 0 00715000 BLSUPARI EQU 0 00716000 BLSUPARU EQU 0 00717000 BLSUPGMC EQU 0 00718000 BLSUPGMD EQU 0 00719000 BLSUPGML EQU 0 00720000 BLSUPGMR EQU 0 00721000 BLSUPRTA EQU 0 00722000 BLSUPRTN EQU 0 00723000 BLSUPRTT EQU 0 00724000 BLSUPUTA EQU 0 00725000 BLSUPUTC EQU 0 00726000 BLSUPUTD EQU 0 00727000 BLSUPUTL EQU 0 00728000 BLSUPUTN EQU 0 00729000 BLSUPUTO EQU 0 00730000 BLSUPUTT EQU 0 00731000 BLSUPUTV EQU 0 00732000 BLSUSTAI EQU 0 00733000 BLSUTRMA EQU 0 00734000 BLSUTRMN EQU 0 00735000 BLSUTRMO EQU 0 00736000 BLSUTRMV EQU 0 00737000 BLSUVSAR EQU 0 00738000 BLSUVSCR EQU 0 00739000 BLSUVSEN EQU 0 00740000 BLSUVSER EQU 0 00741000 BLSUVSGE EQU 0 00742000 BLSUVSGU EQU 0 00743000 BLSUVSMR EQU 0 00744000 BLSUVSPO EQU 0 00745000 BLSUVSPU EQU 0 00746000 BLSUZZ2C EQU 0 00747000 BLSUZZ2D EQU 0 00748000 BLSUZZ2R EQU 0 00749000 DMCBDMGR EQU 0 00750000 DMCBRQC EQU 0 00751000 IKJEFF02 EQU 0 00752000 IKJEFF18 EQU 0 00753000 IKJEFF19 EQU 0 00754000 IKJGETL EQU 0 00755000 IKJPARS EQU 0 00756000 IKJPTGT EQU 0 00757000 IKJPUTL EQU 0 00758000 IKJSCAN EQU 0 00759000 IKJSTCK EQU 0 00760000 I001C EQU 0 00761000 I008P EQU 0 00762000 I015P EQU 0 00763000 I031F EQU 0 00764000 I031P EQU 0 00765000 I256C EQU 0 00766000 BLSUTV EQU 0 00767000 DSN EQU 0 00768000 YESNO EQU 0 00769000 OUTPTR EQU 0 00770000 CPPL EQU ZZ2CPPL 00771000 CPPLUPT EQU CPPL+4 00772000 CPPLPSCB EQU CPPL+8 00773000 CPPLECT EQU CPPL+12 00774000 DMCBVSM EQU DMCBAMS 00775000 DMCBQSM EQU DMCBAMS 00776000 DSDBASRC EQU DSDINFO 00777000 DSDDSATR EQU DSDBASRC+8 00778000 DSDPRASR EQU DSDINFO 00779000 * START UNREFERENCED COMPONENTS 00780000 DSDPRSQN EQU DSDPRASR 00781000 DSDBRES1 EQU DSDBASRC+76 00782000 DSDDESC EQU DSDBASRC+16 00783000 DSDSLOWN EQU DSDDSATR 00784000 DSDDSNTY EQU DSDBASRC 00785000 DMCBRES7 EQU DMCBQSM+96 00786000 DMCBDCB EQU DMCBQSM 00787000 DMCBACB EQU DMCBVSM+76 00788000 DMCBRPL EQU DMCBVSM 00789000 CPPLCBUF EQU CPPL 00790000 DSDRES1 EQU DSDREC+61 00791000 DSDKPNUM EQU DSDKPID+3 00792000 DSDKPREF EQU DSDKPID 00793000 DSDKMEMN EQU DSDKDSNM+44 00794000 DSDKDSN EQU DSDKDSNM 00795000 DSDKTYP EQU DSDKGRP 00796000 DMCBWRK EQU DMCB+648 00797000 DMCBRES8 EQU DMCB+640 00798000 DMCBMODN EQU DMCB+632 00799000 DMCBCARY EQU DMCBAUDT+20 00800000 DMCBCLC EQU DMCBAUDT+12 00801000 DMCBOPC EQU DMCBAUDT+8 00802000 DMCBFRC EQU DMCBAUDT+4 00803000 DMCBALC EQU DMCBAUDT 00804000 DMCBFR EQU DMCB+412 00805000 DMCBRES6 EQU DMCB+410 00806000 DMCBIRSC EQU DMCB+408 00807000 DMCBSUBC EQU DMCB+404 00808000 DMCBDRBP EQU DMCB+400 00809000 DMCBRSZM EQU DMCB+398 00810000 DMCBRSZA EQU DMCB+396 00811000 DMCBCISZ EQU DMCB+394 00812000 DMCBDCBL EQU DMCB+392 00813000 DMCBDCLR EQU DMCB+390 00814000 DMCBDCFM EQU DMCB+389 00815000 DMCBRES5 EQU DMCB+388 00816000 DMCBLBRT EQU DMCB+386 00817000 DMCBLBSQ EQU DMCB+384 00818000 DMCBLBPS EQU DMCB+383 00819000 DMCBLBTY EQU DMCB+382 00820000 DMCBRES4 EQU DMCB+381 00821000 DMCBSPRS EQU DMCBSPEC 00822000 DMCBSPRN EQU DMCBSPEC 00823000 DMCBSPCT EQU DMCBSPEC 00824000 DMCBSPRL EQU DMCBSPEC 00825000 DMCBSPSE EQU DMCB+376 00826000 DMCBSPPR EQU DMCB+372 00827000 DMCBSPTY EQU DMCB+369 00828000 DMCBODIS EQU DMCB+368 00829000 DMCBDISP EQU DMCB+367 00830000 DMCBSTAT EQU DMCB+366 00831000 DMCBRES3 EQU DMCB+364 00832000 DMCBMEMB EQU DMCB+356 00833000 DMCBMODL EQU DMCB+348 00834000 DMCBRES9 EQU DMCB+340 00835000 DMCBPID EQU DMCB+332 00836000 DMCBTYPE EQU DMCB+328 00837000 DMCBDSN EQU DMCB+284 00838000 DMCBUNIT EQU DMCB+276 00839000 DMCBDSOR EQU DMCB+274 00840000 DMCBVOL EQU DMCB+268 00841000 DMCBDDNM EQU DMCB+260 00842000 DMCBSYNM EQU DMCB+132 00843000 DMCBRPLF EQU DMCB+128 00844000 DMCBDCBE EQU DMCBACBE 00845000 DMCBARC EQU DMCB+120 00846000 DMCBCPC EQU DMCB+116 00847000 DMCBRET EQU DMCB+112 00848000 DMCBSTL EQU DMCB+96 00849000 DMCBEOB EQU DMCB+92 00850000 DMCBFRE EQU DMCB+88 00851000 DMCBRES2 EQU DMCB+85 00852000 DMCBSPID EQU DMCB+84 00853000 DMCBRESC EQU DMCB+80 00854000 DMCBZZ1P EQU DMCB+76 00855000 DMCBMSGS EQU DMCB+72 00856000 DMCBMSG0 EQU DMCB+68 00857000 DMCBRRL EQU DMCB+60 00858000 DMCBRBA EQU DMCB+56 00859000 DMCBMSG EQU DMCB+52 00860000 DMCBKEYL EQU DMCB+48 00861000 DMCBKPC EQU DMCBKEYP 00862000 DMCBORL EQU DMCB+40 00863000 DMCBBLEN EQU DMCB+36 00864000 DMCBBFPC EQU DMCBBUFP 00865000 DMCBRES1 EQU DMCB+31 00866000 DMCBACCM EQU DMCB+30 00867000 DMCBREJ EQU DMCB+29 00868000 DMCBRESB EQU DMCBMFLG 00869000 DMCBFMOD EQU DMCBMFLG 00870000 DMCBLOPT EQU DMCB+27 00871000 DMCBLRM EQU DMCB+26 00872000 DMCBLRQ EQU DMCB+25 00873000 DMCBOPRS EQU DMCBOPTS 00874000 DMCBLRD EQU DMCBOPTS 00875000 DMCBBWD EQU DMCBOPTS 00876000 DMCBUPD EQU DMCBOPTS 00877000 DMCBAPX EQU DMCBOPTS 00878000 DMCBRNO EQU DMCBGKY 00879000 DMCBKYD EQU DMCBOPTS 00880000 DMCBRMRS EQU DMCBRMOD 00881000 DMCBRM5 EQU DMCBRMOD 00882000 DMCBRM6 EQU DMCBRMOD 00883000 DMCBTMP EQU DMCBOUT 00884000 DMCBRQST EQU DMCB+22 00885000 DMCBRESA EQU DMCBOPN 00886000 DMCBSOUT EQU DMCBOPN 00887000 DMCBSIN EQU DMCBOPN 00888000 DMCBVSF EQU DMCBFTY 00889000 DMCBKSF EQU DMCBFTY 00890000 DMCBFTRS EQU DMCBFTY 00891000 DMCBSHF EQU DMCBFTY 00892000 DMCBIRL EQU DMCB+16 00893000 DMCBRTC EQU DMCB+12 00894000 DMCBTVP EQU DMCB+8 00895000 DMCBNEXT EQU DMCB+4 00896000 DMCBID EQU DMCB 00897000 DVT99999 EQU DVT+256 00898000 DVT0064P EQU DVT+252 00899000 DVT0063P EQU DVT+248 00900000 DVT0062P EQU DVT+244 00901000 DVT0061P EQU DVT+240 00902000 DVT0060P EQU DVT+236 00903000 DVT0059P EQU DVT+232 00904000 DVT0058P EQU DVT+228 00905000 DVT0057P EQU DVT+224 00906000 DVT0056P EQU DVT+220 00907000 DVT0055P EQU DVT+216 00908000 DVT0054P EQU DVT+212 00909000 DVT0053P EQU DVT+208 00910000 DVT0052P EQU DVT+204 00911000 DVT0051P EQU DVT+200 00912000 DVT0050P EQU DVT+196 00913000 DVT0049P EQU DVT+192 00914000 DVT0048P EQU DVT+188 00915000 DVT0047P EQU DVT+184 00916000 DVT0046P EQU DVT+180 00917000 DVT0045P EQU DVT+176 00918000 DVT0044P EQU DVT+172 00919000 DVT0043P EQU DVT+168 00920000 DVT0042P EQU DVT+164 00921000 DVT0041P EQU DVT+160 00922000 DVT0040P EQU DVT+156 00923000 DVT0039P EQU DVT+152 00924000 DVT0038P EQU DVT+148 00925000 DVT0037P EQU DVT+144 00926000 DVT0036P EQU DVT+140 00927000 DVT0035P EQU DVT+136 00928000 DVT0034P EQU DVT+132 00929000 DVTLP00P EQU DVT+104 00930000 DVT0011P EQU DVT+40 00931000 DVT0005P EQU DVT+16 00932000 DVT0002P EQU DVT+4 00933000 DVT0001P EQU DVT 00934000 BVT99999 EQU BVT+256 00935000 BVT0064P EQU BVT+252 00936000 BVT0063P EQU BVT+248 00937000 BVT0062P EQU BVT+244 00938000 BVT0061P EQU BVT+240 00939000 BVT0060P EQU BVT+236 00940000 BVT0059P EQU BVT+232 00941000 BVT0057P EQU BVT+224 00942000 BVT0056P EQU BVT+220 00943000 BVTSTBLP EQU BVT+200 00944000 BVT0045P EQU BVT+176 00945000 BVT0044P EQU BVT+172 00946000 BVT0033P EQU BVT+128 00947000 BVT0032P EQU BVT+124 00948000 BVT0031P EQU BVT+120 00949000 BVT0030P EQU BVT+116 00950000 BVT0029P EQU BVT+112 00951000 BVT0026P EQU BVT+100 00952000 BVT0025P EQU BVT+96 00953000 BVT0024P EQU BVT+92 00954000 BVT0023P EQU BVT+88 00955000 BVT0016P EQU BVT+60 00956000 BVT0015P EQU BVT+56 00957000 BVT0014P EQU BVT+52 00958000 BVT0003P EQU BVT+8 00959000 BVT0001P EQU BVT 00960000 SA99 EQU SA+72 00961000 SARC EQU SAR+56 00962000 SARB EQU SAR+52 00963000 SARA EQU SAR+48 00964000 SAR9 EQU SAR+44 00965000 SAR8 EQU SAR+40 00966000 SAR7 EQU SAR+36 00967000 SAR6 EQU SAR+32 00968000 SAR5 EQU SAR+28 00969000 SAR4 EQU SAR+24 00970000 SAR3 EQU SAR+20 00971000 SAR2 EQU SAR+16 00972000 SAR1 EQU SAR+12 00973000 SAR0 EQU SAR+8 00974000 SARF EQU SAR+4 00975000 SARE EQU SAR 00976000 SAFWD EQU SA+8 00977000 SABAK EQU SA+4 00978000 SA1L EQU SA1+1 00979000 SA1P EQU SA1 00980000 UPTPREFL EQU UPT+23 00981000 UPTPREFX EQU UPT+16 00982000 @NM00068 EQU UPT+15 00983000 UPTLDEL EQU UPT+14 00984000 UPTCDEL EQU UPT+13 00985000 UPTWTP EQU UPTSWS 00986000 UPTMODE EQU UPTSWS 00987000 UPTALD EQU UPTSWS 00988000 UPTPAUS EQU UPTSWS 00989000 UPTNCOM EQU UPTSWS 00990000 UPTMID EQU UPTSWS 00991000 UPTNPRM EQU UPTSWS 00992000 UPTRCVR EQU UPTSWS 00993000 UPTUSER EQU UPT+2 00994000 @NM00067 EQU UPT 00995000 @NM00066 EQU ECT+52 00996000 @NM00065 EQU ECT+48 00997000 @NM00064 EQU ECT+44 00998000 @NM00063 EQU ECTSWS2+1 00999000 @NM00062 EQU ECTSWS21 01000000 ECTTABND EQU ECTSWS21 01001000 ECTDEFCS EQU ECTSWS21 01002000 ECTBKPB EQU ECT+36 01003000 ECTUSER EQU ECT+32 01004000 ECTDDNUM EQU ECT+29 01005000 ECTATTN EQU ECTSWS 01006000 ECTBKGRD EQU ECTSWS 01007000 ECTNNOT EQU ECTSWS 01008000 ECTNMAL EQU ECTSWS 01009000 ECTLOGF EQU ECTSWS 01010000 ECTATRM EQU ECTSWS 01011000 @NM00061 EQU ECTSWS 01012000 ECTNOPD EQU ECTSWS 01013000 ECTSCMD EQU ECT+20 01014000 ECTPCMD EQU ECT+12 01015000 ECTSMSG EQU ECT+9 01016000 ECTMSGF EQU ECT+8 01017000 ECTIOWA EQU ECT+4 01018000 ECTRTCD EQU ECT+1 01019000 ECTRCDF EQU ECT 01020000 PSCBU EQU PSCB+64 01021000 PSCBRSZ EQU PSCB+60 01022000 PSCBLINE EQU PSCB+59 01023000 PSCBCHAR EQU PSCB+58 01024000 PSCBUPTL EQU PSCB+56 01025000 PSCBUPT EQU PSCB+52 01026000 PSCBRLGB EQU PSCB+48 01027000 PSCBDEST EQU PSCB+40 01028000 @NM00060 EQU PSCB+36 01029000 @NM00059 EQU PSCB+32 01030000 @NM00058 EQU PSCB+28 01031000 PSCBLTI2 EQU PSCB+24 01032000 PSCBLTIM EQU PSCB+20 01033000 PSCBATR2 EQU PSCB+18 01034000 @NM00057 EQU PSCBATR1 01035000 @NM00056 EQU PSCBATR1 01036000 @NM00055 EQU PSCBATR1 01037000 PSCBATTN EQU PSCBATR1 01038000 PSCBVMNT EQU PSCBATR1 01039000 PSCBJCL EQU PSCBATR1 01040000 PSCBACCT EQU PSCBATR1 01041000 PSCBCTRL EQU PSCBATR1 01042000 PSCBGPNM EQU PSCB+8 01043000 PSCBUSRL EQU PSCB+7 01044000 PSCBUSER EQU PSCB 01045000 CMDT1 EQU CMDT 01046000 CMDO EQU CMD+2 01047000 CMDL EQU CMD 01048000 ZZ299999 EQU ZZ2+8192 01049000 ZZ2AXOT1 EQU ZZ2AXOT 01050000 ZZ2AXOL EQU ZZ2AXO 01051000 @NM00054 EQU ZZ2+7288 01052000 @NM00053 EQU ZZ2AMDX+4 01053000 ZZ2AMDXC EQU ZZ2AMDX 01054000 ZZ2HSD EQU ZZ2+3056 01055000 @NM00052 EQU ZZ2ES 01056000 @NM00051 EQU ZZ2+2868 01057000 ZZ2ITSEC EQU ZZ2ITSE+1 01058000 @NM00050 EQU ZZ2ITSE 01059000 ZZ2ITSEP EQU ZZ2ITSE 01060000 ZZ2ITSEW EQU ZZ2ITSE 01061000 @NM00049 EQU ZZ2ITR+20 01062000 ZZ2ITREC EQU ZZ2ITRE+1 01063000 @NM00048 EQU ZZ2ITRE 01064000 ZZ2ITREP EQU ZZ2ITRE 01065000 ZZ2ITREW EQU ZZ2ITRE 01066000 @NM00047 EQU ZZ2ITR+9 01067000 ZZ2ITRRC EQU ZZ2ITR+8 01068000 ZZ2ITR2P EQU ZZ2ITR+4 01069000 ZZ2ITRPP EQU ZZ2ITR 01070000 @NM00046 EQU ZZ2+1544 01071000 ZZ2PGM EQU ZZ2+1536 01072000 @NM00045 EQU ZZ2+1526 01073000 ZZ2CW EQU ZZ2+1524 01074000 @NM00044 EQU ZZ2+1504 01075000 @NM00043 EQU ZZ2+1352 01076000 ZZ2FFSYP EQU ZZ2+1348 01077000 ZZ2SASYP EQU ZZ2+1344 01078000 ZZ2RDSYP EQU ZZ2+1340 01079000 ZZ2RASYP EQU ZZ2+1336 01080000 ZZ2PHSYP EQU ZZ2+1332 01081000 ZZ2ESSYP EQU ZZ2+1328 01082000 ZZ200SYP EQU ZZ2+1324 01083000 ZZ2SCWP EQU ZZ2+1320 01084000 ZZ2TTLP EQU ZZ2+1316 01085000 ZZ2LOADP EQU ZZ2+1312 01086000 ZZ2VRESP EQU ZZ2+1308 01087000 ZZ2CPPLE EQU ZZ2CPPL+12 01088000 ZZ2CPPLP EQU ZZ2CPPL+8 01089000 ZZ2CPPLU EQU ZZ2CPPL+4 01090000 ZZ2VRSAP EQU ZZ2+1288 01091000 ZZ2RVTP EQU ZZ2+1284 01092000 @NM00042 EQU ZZ2+1272 01093000 @NM00041 EQU ZZ2+1268 01094000 ZZ2RPLP EQU ZZ2+1260 01095000 ZZ2TCBP EQU ZZ2+1256 01096000 @NM00040 EQU ZZ2+1252 01097000 ZZ2ZZ2P EQU ZZ2+1248 01098000 @NM00039 EQU ZZ2+1112 01099000 @NM00038 EQU ZZ2+1080 01100000 ZZ2FT25P EQU ZZ2+1072 01101000 @NM00037 EQU ZZ2+976 01102000 ZZ2TOD EQU ZZ2+968 01103000 ZZ2STGN EQU ZZ2STG+4 01104000 ZZ2STGP EQU ZZ2STG 01105000 @NM00036 EQU ZZ2+952 01106000 ZZ2SCMDE EQU ZZ2+944 01107000 ZZ2SCMDN EQU ZZ2+936 01108000 ZZ2IDENT EQU ZZ2+928 01109000 ZZ2A9999 EQU ZZ2A+656 01110000 @NM00035 EQU ZZ2A+224 01111000 @NM00034 EQU ZZ2A+220 01112000 ZZ2AQD99 EQU ZZ2AQD+60 01113000 @NM00033 EQU ZZ2AQD+56 01114000 @NM00032 EQU ZZ2AQDF 01115000 ZZ2AQDFA EQU ZZ2AQDF 01116000 ZZ2AQDIL EQU ZZ2AQD+48 01117000 ZZ2AQDIM EQU ZZ2AQD+44 01118000 ZZ2AQDT9 EQU ZZ2AQDT+34 01119000 ZZ2AQDTE EQU ZZ2AQDT+33 01120000 ZZ2AQDTD EQU ZZ2AQDT+2 01121000 @NM00031 EQU ZZ2AQDT+1 01122000 ZZ2AQDTY EQU ZZ2AQDT 01123000 ZZ2AQDT0 EQU ZZ2AQDT 01124000 ZZ2AQDLB EQU ZZ2AQD+9 01125000 ZZ2AQDOB EQU ZZ2AQD+8 01126000 ZZ2AQDLE EQU ZZ2AQD+4 01127000 ZZ2AQDOF EQU ZZ2AQD 01128000 ZZ2AQD00 EQU ZZ2AQD 01129000 ZZ2AQAS9 EQU ZZ2AQAS+16 01130000 @NM00030 EQU ZZ2AQAS+12 01131000 ZZ2AQAS2 EQU ZZ2AQAS+8 01132000 ZZ2AQAS1 EQU ZZ2AQAS+4 01133000 @NM00029 EQU ZZ2AQAS+2 01134000 ZZ2AQAST EQU ZZ2AQAS 01135000 ZZ2AQAS0 EQU ZZ2AQAS 01136000 ZZ2AZZ6P EQU ZZ2A+140 01137000 ZZ2ADPTA EQU ZZ2ADPT 01138000 ZZ2ADPL EQU ZZ2ADP 01139000 ZZ2ADMTA EQU ZZ2ADMT 01140000 ZZ2ADML EQU ZZ2ADM 01141000 ZZ2ADDTA EQU ZZ2ADDT 01142000 ZZ2ADDL EQU ZZ2ADD 01143000 @NM00028 EQU ZZ2A+72 01144000 ZZ2APIDB EQU ZZ2APID+3 01145000 ZZ2APIDA EQU ZZ2APID 01146000 @NM00027 EQU ZZ2A+24 01147000 @NM00026 EQU ZZ2AF+5 01148000 ZZ2AFX EQU ZZ2AF+5 01149000 @NM00025 EQU ZZ2AF+3 01150000 ZZ2AFS EQU ZZ2AF+2 01151000 ZZ2AFD EQU ZZ2AF+2 01152000 ZZ2AFQ EQU ZZ2AF+2 01153000 ZZ2AF$ EQU ZZ2AF+2 01154000 @NM00024 EQU ZZ2AF+2 01155000 ZZ2AFM EQU ZZ2AF+2 01156000 @NM00023 EQU ZZ2AF+2 01157000 @NM00022 EQU ZZ2AF+1 01158000 ZZ2AFV EQU ZZ2AF+1 01159000 @NM00021 EQU ZZ2AF+1 01160000 ZZ2AFC EQU ZZ2AF+1 01161000 @NM00020 EQU ZZ2AF 01162000 ZZ2AFFS EQU ZZ2AF 01163000 ZZ2AFT EQU ZZ2AF 01164000 ZZ2AFP EQU ZZ2AF 01165000 @NM00019 EQU ZZ2A+8 01166000 ZZ2ALINE EQU ZZ2A+4 01167000 @NM00018 EQU ZZ2A+3 01168000 ZZ2ASE EQU ZZ2A+2 01169000 ZZ2ACH EQU ZZ2A 01170000 @NM00017 EQU ZZ2+264 01171000 @NM00016 EQU ZZ2+263 01172000 ZZ2PRTT0 EQU ZZ2PRTT 01173000 ZZ2PRTO EQU ZZ2PRT+2 01174000 ZZ2PRTL EQU ZZ2PRT 01175000 @NM00015 EQU ZZ2AMD+56 01176000 ZZ2AMDXP EQU ZZ2AMD+52 01177000 ZZ2AMDD EQU ZZ2AMD+48 01178000 ZZ2AMDL EQU ZZ2AMD+44 01179000 ZZ2AMDU EQU ZZ2AMD+28 01180000 ZZ2AMDF EQU ZZ2AMD+24 01181000 ZZ2AMDS EQU ZZ2AMD+20 01182000 ZZ2AMDC EQU ZZ2AMD+16 01183000 ZZ2AMDP EQU ZZ2AMD+12 01184000 ZZ2AMDB EQU ZZ2AMD+8 01185000 @NM00014 EQU @NM00013 01186000 ZZ2AMD2 EQU @NM00013 01187000 ZZ2AMD1 EQU @NM00013 01188000 ZZ2AMD0 EQU ZZ2AMD+6 01189000 ZZ2AMDA EQU ZZ2AMD+4 01190000 ZZ2AMDT EQU ZZ2AMD 01191000 ZZ199999 EQU ZZ1+3072 01192000 @NM00012 EQU ZZ1+2160 01193000 ZZ1TRTAS EQU ZZ1+1904 01194000 ZZ1TRUPC EQU ZZ1+1648 01195000 ZZ1TRCTX EQU ZZ1+1392 01196000 ZZ1NASID EQU ZZ1N+274 01197000 ZZ1NSTRL EQU ZZ1N+272 01198000 ZZ1NOFF EQU ZZ1N+268 01199000 ZZ1NBDY EQU ZZ1N+264 01200000 ZZ1NADE EQU ZZ1N+260 01201000 ZZ1NADB EQU ZZ1N+256 01202000 ZZ1NSTR EQU ZZ1N 01203000 @NM00011 EQU ZZ1+1080 01204000 ZZ1TREBC EQU ZZ1+824 01205000 ZZ1TRHEX EQU ZZ1+568 01206000 @NM00010 EQU ZZ1+377 01207000 ZZ1USTAE EQU ZZ1+376 01208000 @NM00009 EQU ZZ1F+1 01209000 @NM00008 EQU ZZ1F 01210000 ZZ1FM EQU ZZ1F 01211000 ZZ1FX EQU ZZ1F 01212000 ZZ1FU EQU ZZ1F 01213000 ZZ1EVEC EQU ZZ1EVE+1 01214000 @NM00007 EQU ZZ1EVE 01215000 ZZ1EVEP EQU ZZ1EVE 01216000 ZZ1EVEW EQU ZZ1EVE 01217000 ZZ1ACMP EQU ZZ1ATTN 01218000 @NM00006 EQU ZZ1+144 01219000 ZZ1FPP EQU ZZ1+140 01220000 ZZ1ZZ6P EQU ZZ1+136 01221000 @NM00005 EQU ZZ1+84 01222000 ZZ1PLINE EQU ZZ1+80 01223000 ZZ1PGSZ EQU ZZ1+76 01224000 ZZ1PCNT EQU ZZ1+72 01225000 @NM00004 EQU ZZ1+68 01226000 ZZ1TPAGE EQU ZZ1+64 01227000 ZZ1TLINE EQU ZZ1+60 01228000 @NM00003 EQU ZZ1+52 01229000 ZZ1DMCBP EQU ZZ1+48 01230000 ZZ1PDRP EQU ZZ1+40 01231000 ZZ1ZZ2P EQU ZZ1+36 01232000 ZZ1327WP EQU ZZ1+32 01233000 ZZ1ACBP EQU ZZ1+28 01234000 @NM00002 EQU ZZ1+24 01235000 ZZ1PDCBP EQU ZZ1+20 01236000 ZZ1BLRBL EQU ZZ1+16 01237000 @NM00001 EQU ZZ1+12 01238000 ZZ1PNULL EQU ZZ1+8 01239000 ZZ1NULL EQU ZZ1+4 01240000 ZZ1IDE EQU ZZ1 01241000 * END UNREFERENCED COMPONENTS 01242000 @RC00153 EQU @RC00151 01243000 @ENDDATA EQU * 01244000 END BLSFLP00,(C'PLS2048',0701,78065) 01245000