TITLE 'BLSCCLSE -- IPCS DATA ACCESS SERVICES CLOSE EXECUTOR *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSCCLSE CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSCCLSE 78.062' 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 BLSCGETS 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 * CBPTR=GPR01P; /* GET ADDRESSABILITY TO THE DMCB*/ 00024000 LR CBPTR,GPR01P 0015 00025000 * RFY 0016 00026000 * GPR01P UNRSTD; 0016 00027000 * MODNAME=LMODNMC; /* MARK AUTOMATIC AREA */ 00028000 MVC MODNAME(8),@CC00339 0017 00029000 * DMCBRTC=F0C; /* INIT THE RETURN CODE */ 00030000 SLR @10,@10 0018 00031000 ST @10,DMCBRTC(,CBPTR) 0018 00032000 * DMCBREJ=F0C; /* REJECT REASON */ 00033000 MVI DMCBREJ(CBPTR),X'00' 0019 00034000 * DMCBACBE=F0C; /* ACB ERROR REASON FIELD */ 00035000 ST @10,DMCBACBE(,CBPTR) 0020 00036000 * DMCBOPTS=LHEX0C; /* CLOSE DOESNT USE THE OPTIONS 00037000 * SO RESET THEM */ 00038000 MVI DMCBOPTS(CBPTR),X'00' 0021 00039000 * IF DMCBOPN^=LHEX0C THEN /* ONLY CLOSE THE DMCB IF IT IS 00040000 * OPEN */ 00041000 CLI DMCBOPN(CBPTR),X'00' 0022 00042000 BE @RF00022 0022 00043000 * DO; /* DATA SET IS OPEN */ 00044000 * DMCBCPC=F0C; /* CLEAR THE ABEND COMPLETION 0024 00045000 * CODE */ 00046000 * 0024 00047000 ST @10,DMCBCPC(,CBPTR) 0024 00048000 * /*************************************************************/ 00049000 * /* */ 00050000 * /* DETERMINE WHICH CLOSE LIST TO USE */ 00051000 * /* */ 00052000 * /*************************************************************/ 00053000 * 0025 00054000 * IF DMCBRM6=ON THEN /* REWIND OR REREAD */ 00055000 TM DMCBRM6(CBPTR),B'01000000' 0025 00056000 BNO @RF00025 0025 00057000 * DO; /* REWIND OR REREAD */ 00058000 * IF DMCBRM5=ON THEN 0027 00059000 TM DMCBRM5(CBPTR),B'00100000' 0027 00060000 BNO @RF00027 0027 00061000 * CLOSELST=CLOSERRD; /* REREAD */ 00062000 L @10,CLOSERRD 0028 00063000 ST @10,CLOSELST 0028 00064000 * ELSE 0029 00065000 * CLOSELST=CLOSERWD; /* REWIND */ 00066000 B @RC00027 0029 00067000 @RF00027 L @10,CLOSERWD 0029 00068000 ST @10,CLOSELST 0029 00069000 * END; /* REWIND OR REREAD */ 00070000 * ELSE 0031 00071000 * DO; /* LEAVE OR DISP */ 00072000 B @RC00025 0031 00073000 @RF00025 DS 0H 0032 00074000 * IF DMCBRM5=ON THEN 0032 00075000 TM DMCBRM5(CBPTR),B'00100000' 0032 00076000 BNO @RF00032 0032 00077000 * CLOSELST=CLOSELVE; /* LEAVE */ 00078000 L @10,CLOSELVE 0033 00079000 ST @10,CLOSELST 0033 00080000 * ELSE 0034 00081000 * CLOSELST=CLOSEDSP; /* DISP */ 00082000 B @RC00032 0034 00083000 @RF00032 L @10,CLOSEDSP 0034 00084000 ST @10,CLOSELST 0034 00085000 * END; /* LEAVE OR DISP */ 00086000 * 0035 00087000 @RC00032 DS 0H 0036 00088000 * /*************************************************************/ 00089000 * /* */ 00090000 * /* IF VSAM FILE, ISSUE ENDREQ AND IGNORE ERRORS */ 00091000 * /* */ 00092000 * /*************************************************************/ 00093000 * 0036 00094000 * IF DMCBVSF=ON THEN /* CHECK VSAM BIT OF FTY */ 00095000 @RC00025 TM DMCBVSF(CBPTR),B'00000001' 0036 00096000 BNO @RF00036 0036 00097000 * DO; /* VSAM FILE, ISSUE ENDREQ MACRO */ 00098000 * RFY 0038 00099000 * (GPR01P, 0038 00100000 * GPR15F) RSTD; 0038 00101000 * GPR01P=ADDR(DMCBRPL); 0039 00102000 LA GPR01P,DMCBRPL(,CBPTR) 0039 00103000 * GEN REFS(GPR01P) SETS(GPR15F)(ENDREQ RPL=(1)); 0040 00104000 ENDREQ RPL=(1) 00105000 * RFY 0041 00106000 * (GPR01P, 0041 00107000 * GPR15F) UNRSTD; 0041 00108000 * END; /* VSAM FILE, ISSUE ENDREQ MACRO */ 00109000 * 0042 00110000 * /*************************************************************/ 00111000 * /* */ 00112000 * /* SET AN ESTAE ROUTINE TO COVER ANY POSSIBILITY OF ABEND */ 00113000 * /* */ 00114000 * /*************************************************************/ 00115000 * 0043 00116000 * ESTAEPRM=ESTAELST; 0043 00117000 @RF00036 MVC ESTAEPRM(16),ESTAELST 0043 00118000 * RFY 0044 00119000 * (GPR02P, 0044 00120000 * GPR03P, 0044 00121000 * GPR04P) RSTD; 0044 00122000 * GPR02P=ADDR(ESTAEPRM); /* POINT TO ESTAE PARM LIST */ 00123000 LA GPR02P,ESTAEPRM 0045 00124000 * GPR03P=ADDR(BLSCRECV); /* ADDRESS ESTAE EXIT ROUTINE */ 00125000 L GPR03P,@CV00308 0046 00126000 * GPR04P=CBPTR; /* DMCB WILL BE PARM LIST FOR 0047 00127000 * ESTAE */ 00128000 LR GPR04P,CBPTR 0047 00129000 * GEN REFS(GPR02P,GPR03P,GPR04P) 0048 00130000 * (ESTAE (GPR03P),PARAM=(GPR04P),MF=(E,(GPR02P))); 0048 00131000 ESTAE (GPR03P),PARAM=(GPR04P),MF=(E,(GPR02P)) 00132000 * RFY 0049 00133000 * (GPR02P, 0049 00134000 * GPR03P, 0049 00135000 * GPR04P) UNRSTD; 0049 00136000 * DMCBARC=PERMER; /* SET THE RETURN CODE SHOULD THE 00137000 * CLOSE REQUEST ABEND */ 00138000 * 0050 00139000 MVC DMCBARC(4,CBPTR),@CF00037 0050 00140000 * /*************************************************************/ 00141000 * /* */ 00142000 * /* DETERMINE WHETHER THE ACCESS METHOD IS VSAM OR QSAM AND */ 00143000 * /* POINT AT THE PROPER CONTROL BLOCK */ 00144000 * /* */ 00145000 * /*************************************************************/ 00146000 * 0051 00147000 * RFY 0051 00148000 * GPR02P RSTD; 0051 00149000 * IF DMCBVSF=ON THEN /* CHECK VSAM BIT OF FTY */ 00150000 TM DMCBVSF(CBPTR),B'00000001' 0052 00151000 BNO @RF00052 0052 00152000 * GPR02P=ADDR(DMCBACB); /* VSAM SO POINT AT ACB */ 00153000 LA GPR02P,DMCBACB(,CBPTR) 0053 00154000 * ELSE 0054 00155000 * GPR02P=ADDR(DMCBDCB); /* QSAM SO POINT AT DCB */ 00156000 * 0054 00157000 B @RC00052 0054 00158000 @RF00052 LA GPR02P,DMCBDCB(,CBPTR) 0054 00159000 * /*************************************************************/ 00160000 * /* */ 00161000 * /* DO THE PROPER FORM OF CLOSE DEPENDING ON TEMP OPTION */ 00162000 * /* */ 00163000 * /*************************************************************/ 00164000 * 0055 00165000 * IF DMCBTMP=ON THEN /* CHECK TEMP BIT OF RMOD */ 00166000 @RC00052 TM DMCBTMP(CBPTR),B'10000000' 0055 00167000 BNO @RF00055 0055 00168000 * DO; /* TEMPORARY CLOSE */ 00169000 * DMCBRET=ADDR(RECOV1); /* SET RECOVERY ADDRESS */ 00170000 LA @10,RECOV1 0057 00171000 ST @10,DMCBRET(,CBPTR) 0057 00172000 * GEN(CLOSE ((GPR02P)),TYPE=T,MF=(E,CLOSELST)) 0058 00173000 * REFS(GPR02P,CLOSELST); 0058 00174000 CLOSE ((GPR02P)),TYPE=T,MF=(E,CLOSELST) 00175000 *RECOV1: 0059 00176000 * END; /* TEMPORARY CLOSE */ 00177000 * ELSE 0060 00178000 * DO; /* PERMANENT CLOSE */ 00179000 B @RC00055 0060 00180000 @RF00055 DS 0H 0061 00181000 * DMCBRET=ADDR(RECOV2); /* SET RECOVERY ADDRESS */ 00182000 LA @10,RECOV2 0061 00183000 ST @10,DMCBRET(,CBPTR) 0061 00184000 * GEN(CLOSE ((GPR02P)),MF=(E,CLOSELST)) 0062 00185000 * REFS(GPR02P,CLOSELST); 0062 00186000 CLOSE ((GPR02P)),MF=(E,CLOSELST) 00187000 * DMCBOPN=LHEX0C; /* INDICATE THAT DMCB IS CLOSED */ 00188000 MVI DMCBOPN(CBPTR),X'00' 0063 00189000 *RECOV2: 0064 00190000 * END; /* PERMANENT CLOSE */ 00191000 RECOV2 DS 0H 0065 00192000 * RFY 0065 00193000 * GPR02P UNRSTD; 0065 00194000 @RC00055 DS 0H 0066 00195000 * RFY 0066 00196000 * GPR15F RSTD; 0066 00197000 * DMCBSUBC=GPR15F; /* SAVE THE RETCODE */ 00198000 ST GPR15F,DMCBSUBC(,CBPTR) 0067 00199000 * RFY 0068 00200000 * GPR15F UNRSTD; 0068 00201000 * 0068 00202000 * /*************************************************************/ 00203000 * /* */ 00204000 * /* TEST FOR CLOSE ERROR */ 00205000 * /* */ 00206000 * /*************************************************************/ 00207000 * 0069 00208000 * IF DMCBSUBC^=F0C THEN /* TEST FOR CLOSE FAILURE */ 00209000 L @10,DMCBSUBC(,CBPTR) 0069 00210000 LTR @10,@10 0069 00211000 BZ @RF00069 0069 00212000 * DO; /* CLOSE ERROR */ 00213000 * DMCBMODN=MODNAME; /* PASS MODULE NAME TO BLSCANLE */ 00214000 MVC DMCBMODN(8,CBPTR),MODNAME 0071 00215000 * DMCBRTC=PERMER; /* SET FAILURE RETURN CODE */ 00216000 MVC DMCBRTC(4,CBPTR),@CF00037 0072 00217000 * IF DMCBVSF=ON THEN /* TEST FOR VSAM */ 00218000 TM DMCBVSF(CBPTR),B'00000001' 0073 00219000 BNO @RF00073 0073 00220000 * DMCBACBE=ACBERFLG; /* SAVE THE CLOSE REASON CODE */ 00221000 SLR @10,@10 0074 00222000 IC @10,ACBERFLG+492(,CBPTR) 0074 00223000 ST @10,DMCBACBE(,CBPTR) 0074 00224000 * END; /* CLOSE ERROR */ 00225000 * 0075 00226000 @RF00073 DS 0H 0076 00227000 * /*************************************************************/ 00228000 * /* */ 00229000 * /* CANCEL THE ESTAE */ 00230000 * /* */ 00231000 * /*************************************************************/ 00232000 * 0076 00233000 * ESTAEPRM=ESTAELST; 0076 00234000 @RF00069 MVC ESTAEPRM(16),ESTAELST 0076 00235000 * RFY 0077 00236000 * GPR02P RSTD; 0077 00237000 * GPR02P=ADDR(ESTAEPRM); /* ADDRESS ESTAE PARM LIST */ 00238000 LA GPR02P,ESTAEPRM 0078 00239000 * GEN REFS(GPR02P)(ESTAE 0,MF=(E,(GPR02P))); 0079 00240000 ESTAE 0,MF=(E,(GPR02P)) 00241000 * RFY 0080 00242000 * GPR02P UNRSTD; 0080 00243000 * 0080 00244000 * /*************************************************************/ 00245000 * /* */ 00246000 * /* ISSUE DEQUEUE IF REQUIRED */ 00247000 * /* */ 00248000 * /*************************************************************/ 00249000 * 0081 00250000 * IF DMCBVSF=ON& /* IF VSAM DATA SET */ 00251000 * DMCBRTC=F0C& /* AND CLOSE IS SUCCESSFUL */ 00252000 * DMCBTMP=OFF& /* AND PERMANENT CLOSE */ 00253000 * (DMCBACCM=F1C|DMCBACCM=F4C) THEN/* AND HIGH CONTENTION 0081 00254000 * DATA SET */ 00255000 TM DMCBVSF(CBPTR),B'00000001' 0081 00256000 BNO @RF00081 0081 00257000 L @10,DMCBRTC(,CBPTR) 0081 00258000 LTR @10,@10 0081 00259000 BNZ @RF00081 0081 00260000 TM DMCBTMP(CBPTR),B'10000000' 0081 00261000 BNZ @RF00081 0081 00262000 CLI DMCBACCM(CBPTR),1 0081 00263000 BE @RT00081 0081 00264000 CLI DMCBACCM(CBPTR),4 0081 00265000 BNE @RF00081 0081 00266000 @RT00081 DS 0H 0082 00267000 * DO; /* DEQ (QNAME,DMCBDSN,LENGTH(DMCB 00268000 * DSN),SYSTEMS) */ 00269000 * I048(1:20)=I048(1:20)&&I048(1:20); 0083 00270000 XC I048(20),I048 0083 00271000 * RFY 0084 00272000 * GPR01F RESTRICTED; 0084 00273000 * I04804(1)='11000000'B; /* LISTEND BYTE */ 00274000 MVI I04804,B'11000000' 0085 00275000 * I04805(1)=LENGTH(DMCBDSN);/* SET LENGTH */ 00276000 MVI I04805,X'2C' 0086 00277000 * I04806(1)='01001000'B; /* OPTIONS */ 00278000 MVI I04806,B'01001000' 0087 00279000 * I04807(1)=ADDR(QNAME); /* QNAME ADDRESS */ 00280000 LA @10,@CC00322 0088 00281000 ST @10,I04807 0088 00282000 * I04808(1)=ADDR(DMCBDSN);/* RNAME ADDRESS */ 00283000 LA @10,DMCBDSN(,CBPTR) 0089 00284000 ST @10,I04808 0089 00285000 * GPR01F=ADDR(I04802); 0090 00286000 LA GPR01F,I04802 0090 00287000 * SVC(48); 0091 00288000 SVC 48 0091 00289000 * RFY 0092 00290000 * GPR01F UNRESTRICTED; 0092 00291000 * END; /* DEQ (QNAME,DMCBDSN,LENGTH(DMCB 00292000 * DSN),SYSTEMS) ISSUE DEQUEUE */ 00293000 * END; /* DATA SET IS OPEN */ 00294000 @RF00081 DS 0H 0095 00295000 * RETURN CODE(DMCBRTC); 0095 00296000 @RF00022 L @10,DMCBRTC(,CBPTR) 0095 00297000 L @13,4(,@13) 0095 00298000 L @00,@SIZDATD 0095 00299000 LR @01,@11 0095 00300000 BLSCFRES R,LV=(0),A=(1) 00301000 LR @15,@10 0095 00302000 L @14,12(,@13) 0095 00303000 LM @00,@12,20(@13) 0095 00304000 BR @14 0095 00305000 EJECT 00306000 * 0096 00307000 * /*****************************************************************/ 00308000 * /* */ 00309000 * /* END OF EXECUTABLE PROCEDURE STATEMENTS */ 00310000 * /* */ 00311000 * /*****************************************************************/ 00312000 * 0096 00313000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00314000 * GPR01F FIXED(31) REG(1), 0096 00315000 * GPR15F FIXED(31) REG(15), 0096 00316000 * GPR01P PTR(31) REG(1), 0096 00317000 * GPR02P PTR(31) REG(2), 0096 00318000 * GPR03P PTR(31) REG(3), 0096 00319000 * GPR04P PTR(31) REG(4); 0096 00320000 * DCL 0097 00321000 * 1 I048 DEF(ILIST) CHAR(32767) BDY(WORD), 0097 00322000 * 3 I04801 PTR(31), /* TCB ADDR */ 00323000 * 3 I04802(*) CHAR(12) BDY(WORD), 0097 00324000 * 5 I04803 PTR(31), /* UCB @ IN LAST ENTRY */ 00325000 * 7 I04804 BIT(8), /* FLAGS */ 00326000 * 7 I04805 PTR(8), /* MINOR RESOURCE NAME LENGTH */ 00327000 * 7 I04806 BIT(8), /* FLAGS */ 00328000 * 7 * CHAR(1), /* CONTROL PROGRAM USE */ 00329000 * 5 I04807 PTR(31), /* MAJOR RESOURCE NAME @ */ 00330000 * 5 I04808 PTR(31); /* MINOR RESOURCE NAME @ */ 00331000 * DECLARE 0098 00332000 * ILIST CHAR(20) BDY(DWORD); /* STANDARD LIST */ 00333000 * DECLARE /* COMMON VARIABLES */ 00334000 * I256C CHAR(256) BASED, 0099 00335000 * I031F FIXED(31) BASED, 0099 00336000 * I031P PTR(31) BASED, 0099 00337000 * I015F FIXED(15) BASED, 0099 00338000 * I015P PTR(15) BASED, 0099 00339000 * I008P PTR(8) BASED, 0099 00340000 * I001C CHAR(1) BASED; 0099 00341000 * DCL 0100 00342000 * 1 DASPATCH LOCAL BDY(DWORD), /* PATCH AREA */ 00343000 * 2 DASPATA(DASPATLN) PTR INIT((DASPATLN)0); 0100 00344000 * END BLSCCLSE 0101 00345000 * 0101 00346000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00347000 */*%INCLUDE SYSLIB (IFGACB ) */ 00348000 * 0101 00349000 * ; 0101 00350000 @DATA DS 0H 00351000 @DATD DSECT 00352000 DS 0F 00353000 @SA00001 DS 18F 00354000 BLSCCLSE CSECT 00355000 DS 0F 00356000 @CF00037 DC F'4' 00357000 @DATD DSECT 00358000 DS 0D 00359000 CLOSELST DS F 00360000 DS CL4 00361000 ESTAEPRM DS CL16 00362000 MODSTAT DS CL8 00363000 ORG MODSTAT 00364000 MODNAME DS CL8 00365000 ORG MODSTAT+8 00366000 ILIST DS CL20 00367000 BLSCCLSE CSECT 00368000 DS 0F 00369000 @SIZDATD DC AL1(0) 00370000 DC AL3(@ENDDATD-@DATD) 00371000 @CV00308 DC V(BLSCRECV) 00372000 DS 0D 00373000 @CC00322 DC C'SYSBLSDS' 00374000 @CC00339 DC C'BLSCCLSE' 00375000 DASPATCH DS CL80 00376000 ORG DASPATCH 00377000 DASPATA DC 20A(0) 00378000 ORG DASPATCH+80 00379000 BLSCCLSE CSECT 00380000 CLOSEDSP CLOSE (,DISP),MF=L 00381000 CLOSERRD CLOSE (,REREAD),MF=L 00382000 CLOSELVE CLOSE (,LEAVE),MF=L 00383000 CLOSERWD CLOSE (,REWIND),MF=L 00384000 ESTAELST ESTAE 0,MF=L 00385000 @DATD DSECT 00386000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00387000 @ENDDATD EQU * 00388000 BLSCCLSE CSECT 00389000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00390000 @01 EQU 01 00391000 @02 EQU 02 00392000 @03 EQU 03 00393000 @04 EQU 04 00394000 @05 EQU 05 00395000 @06 EQU 06 00396000 @07 EQU 07 00397000 @08 EQU 08 00398000 @09 EQU 09 00399000 @10 EQU 10 00400000 @11 EQU 11 00401000 @12 EQU 12 00402000 @13 EQU 13 00403000 @14 EQU 14 00404000 @15 EQU 15 00405000 CBPTR EQU @05 00406000 GPR01P EQU @01 00407000 GPR15F EQU @15 00408000 GPR02P EQU @02 00409000 GPR03P EQU @03 00410000 GPR04P EQU @04 00411000 GPR01F EQU @01 00412000 DMCB EQU 0 00413000 DMCBRTC EQU DMCB+12 00414000 DMCBFTY EQU DMCB+20 00415000 DMCBVSF EQU DMCBFTY 00416000 DMCBOPN EQU DMCB+21 00417000 DMCBRMOD EQU DMCB+23 00418000 DMCBOUT EQU DMCBRMOD 00419000 DMCBTMP EQU DMCBOUT 00420000 DMCBRM6 EQU DMCBRMOD 00421000 DMCBRM5 EQU DMCBRMOD 00422000 DMCBOPTS EQU DMCB+24 00423000 DMCBGKY EQU DMCBOPTS 00424000 DMCBMFLG EQU DMCB+28 00425000 DMCBREJ EQU DMCB+29 00426000 DMCBACCM EQU DMCB+30 00427000 DMCBBUFP EQU DMCB+32 00428000 DMCBKEYP EQU DMCB+44 00429000 DMCBFRE EQU DMCB+88 00430000 DMCBEOB EQU DMCB+92 00431000 DMCBRET EQU DMCB+112 00432000 DMCBCPC EQU DMCB+116 00433000 DMCBARC EQU DMCB+120 00434000 DMCBACBE EQU DMCB+124 00435000 DMCBDSN EQU DMCB+284 00436000 DMCBSPEC EQU DMCB+380 00437000 DMCBSUBC EQU DMCB+404 00438000 DMCBAMS EQU DMCB+416 00439000 DMCBAUDT EQU DMCB+568 00440000 DMCBLSCP EQU DMCBAUDT+16 00441000 DMCBMODN EQU DMCB+632 00442000 IFGACB EQU 0 00443000 ACBCOMN EQU IFGACB 00444000 ACBLENG EQU ACBCOMN+2 00445000 ACBLENG2 EQU ACBLENG 00446000 ACBAMBL EQU ACBCOMN+4 00447000 ACBJWA EQU ACBAMBL 00448000 ACBMACRF EQU ACBCOMN+12 00449000 ACBMACR1 EQU ACBMACRF 00450000 ACBADR EQU ACBMACR1 00451000 ACBCNV EQU ACBMACR1 00452000 ACBMACR2 EQU ACBMACRF+1 00453000 ACBBUFPL EQU ACBCOMN+20 00454000 ACBMACR3 EQU ACBBUFPL 00455000 ACBRECFM EQU ACBCOMN+24 00456000 ACBCCTYP EQU ACBCOMN+25 00457000 ACBOPT EQU ACBCOMN+26 00458000 ACBDSORG EQU ACBOPT 00459000 ACBCROPS EQU ACBDSORG 00460000 ACBDVIND EQU ACBDSORG 00461000 ACBEXLST EQU ACBCOMN+36 00462000 ACBDDNM EQU ACBCOMN+40 00463000 ACBAMETH EQU ACBDDNM+3 00464000 ACBOFLGS EQU ACBCOMN+48 00465000 ACBEXFG EQU ACBOFLGS 00466000 ACBIOSFG EQU ACBOFLGS 00467000 ACBERFLG EQU ACBCOMN+49 00468000 ACBINFLG EQU ACBCOMN+50 00469000 ACBVVIC EQU ACBINFLG 00470000 ACBUJFCB EQU ACBCOMN+52 00471000 ACBBLKSZ EQU ACBCOMN+60 00472000 DMCBRQC EQU 0 00473000 I001C EQU 0 00474000 I008P EQU 0 00475000 I015F EQU 0 00476000 I015P EQU 0 00477000 I031F EQU 0 00478000 I031P EQU 0 00479000 I256C EQU 0 00480000 DMCBVSM EQU DMCBAMS 00481000 DMCBRPL EQU DMCBVSM 00482000 DMCBACB EQU DMCBVSM+76 00483000 DMCBQSM EQU DMCBAMS 00484000 DMCBDCB EQU DMCBQSM 00485000 I048 EQU ILIST 00486000 I04802 EQU I048+4 00487000 I04803 EQU I04802 00488000 I04804 EQU I04803 00489000 I04805 EQU I04803+1 00490000 I04806 EQU I04803+2 00491000 I04807 EQU I04802+4 00492000 I04808 EQU I04802+8 00493000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00494000 @NM00013 EQU I04803+3 00495000 I04801 EQU I048 00496000 DMCBRES7 EQU DMCBQSM+96 00497000 ACBAPID EQU ACBCOMN+72 00498000 ACBCBMWA EQU ACBCOMN+68 00499000 ACBUAPTR EQU ACBCOMN+64 00500000 ACBLRECL EQU ACBCOMN+62 00501000 ACBMSGLN EQU ACBBLKSZ 00502000 ACBBUFSP EQU ACBCOMN+56 00503000 @NM00012 EQU ACBUJFCB+1 00504000 ACBOPTN EQU ACBUJFCB 00505000 @NM00011 EQU ACBINFLG+1 00506000 ACBBYPSS EQU ACBINFLG 00507000 ACBSDS EQU ACBVVIC 00508000 ACBUCRA EQU ACBINFLG 00509000 ACBSCRA EQU ACBINFLG 00510000 ACBCAT EQU ACBINFLG 00511000 ACBIJRQE EQU ACBINFLG 00512000 ACBJEPS EQU ACBINFLG 00513000 @NM00010 EQU ACBINFLG 00514000 ACBBUSY EQU ACBIOSFG 00515000 ACBLOCK EQU ACBEXFG 00516000 @NM00009 EQU ACBOFLGS 00517000 ACBDSERR EQU ACBOFLGS 00518000 ACBOPEN EQU ACBOFLGS 00519000 ACBEOV EQU ACBOFLGS 00520000 @NM00008 EQU ACBOFLGS 00521000 ACBDEB EQU ACBDDNM+5 00522000 ACBERFL EQU ACBDDNM+4 00523000 ACBAM EQU ACBAMETH 00524000 ACBINFL EQU ACBDDNM+2 00525000 ACBTIOT EQU ACBDDNM 00526000 ACBUEL EQU ACBEXLST 00527000 ACBPASSW EQU ACBCOMN+32 00528000 ACBMSGAR EQU ACBCOMN+28 00529000 @NM00007 EQU ACBDSORG+1 00530000 ACBDORGA EQU ACBDSORG+1 00531000 @NM00006 EQU ACBDSORG 00532000 ACBOPTJ EQU ACBDVIND 00533000 ACBCRNRE EQU ACBCROPS 00534000 ACBCRNCK EQU ACBCROPS 00535000 ACBASA EQU ACBCCTYP 00536000 @NM00005 EQU ACBCCTYP 00537000 ACBTRCID EQU ACBCCTYP 00538000 @NM00004 EQU ACBRECFM 00539000 ACBRECAF EQU ACBRECFM 00540000 ACBJBUF EQU ACBBUFPL+2 00541000 ACBMACR4 EQU ACBBUFPL+1 00542000 @NM00003 EQU ACBMACR3 00543000 ACBNCFX EQU ACBMACR3 00544000 ACBSIS EQU ACBMACR3 00545000 ACBDFR EQU ACBMACR3 00546000 ACBICI EQU ACBMACR3 00547000 ACBGSR EQU ACBMACR3 00548000 ACBLSR EQU ACBMACR3 00549000 @NM00002 EQU ACBMACR3 00550000 ACBBUFNI EQU ACBCOMN+18 00551000 ACBBUFND EQU ACBCOMN+16 00552000 ACBSTRNO EQU ACBCOMN+15 00553000 ACBBSTNO EQU ACBCOMN+14 00554000 ACBAIX EQU ACBMACR2 00555000 ACBDSN EQU ACBMACR2 00556000 ACBRST EQU ACBMACR2 00557000 ACBLOGON EQU ACBMACR2 00558000 ACBSKP EQU ACBMACR2 00559000 @NM00001 EQU ACBMACR2 00560000 ACBUBF EQU ACBMACR1 00561000 ACBOUT EQU ACBMACR1 00562000 ACBIN EQU ACBMACR1 00563000 ACBDIR EQU ACBMACR1 00564000 ACBSEQ EQU ACBMACR1 00565000 ACBBLK EQU ACBCNV 00566000 ACBADD EQU ACBADR 00567000 ACBKEY EQU ACBMACR1 00568000 ACBINRTN EQU ACBCOMN+8 00569000 ACBIBCT EQU ACBJWA 00570000 ACBLEN2 EQU ACBLENG2 00571000 ACBSTYP EQU ACBCOMN+1 00572000 ACBID EQU ACBCOMN 00573000 DMCBWRK EQU DMCB+648 00574000 DMCBRES8 EQU DMCB+640 00575000 DMCBCARY EQU DMCBAUDT+20 00576000 DMCBCLC EQU DMCBAUDT+12 00577000 DMCBOPC EQU DMCBAUDT+8 00578000 DMCBFRC EQU DMCBAUDT+4 00579000 DMCBALC EQU DMCBAUDT 00580000 DMCBFR EQU DMCB+412 00581000 DMCBRES6 EQU DMCB+410 00582000 DMCBIRSC EQU DMCB+408 00583000 DMCBDRBP EQU DMCB+400 00584000 DMCBRSZM EQU DMCB+398 00585000 DMCBRSZA EQU DMCB+396 00586000 DMCBCISZ EQU DMCB+394 00587000 DMCBDCBL EQU DMCB+392 00588000 DMCBDCLR EQU DMCB+390 00589000 DMCBDCFM EQU DMCB+389 00590000 DMCBRES5 EQU DMCB+388 00591000 DMCBLBRT EQU DMCB+386 00592000 DMCBLBSQ EQU DMCB+384 00593000 DMCBLBPS EQU DMCB+383 00594000 DMCBLBTY EQU DMCB+382 00595000 DMCBRES4 EQU DMCB+381 00596000 DMCBSPRS EQU DMCBSPEC 00597000 DMCBSPRN EQU DMCBSPEC 00598000 DMCBSPCT EQU DMCBSPEC 00599000 DMCBSPRL EQU DMCBSPEC 00600000 DMCBSPSE EQU DMCB+376 00601000 DMCBSPPR EQU DMCB+372 00602000 DMCBSPTY EQU DMCB+369 00603000 DMCBODIS EQU DMCB+368 00604000 DMCBDISP EQU DMCB+367 00605000 DMCBSTAT EQU DMCB+366 00606000 DMCBRES3 EQU DMCB+364 00607000 DMCBMEMB EQU DMCB+356 00608000 DMCBMODL EQU DMCB+348 00609000 DMCBRES9 EQU DMCB+340 00610000 DMCBPID EQU DMCB+332 00611000 DMCBTYPE EQU DMCB+328 00612000 DMCBUNIT EQU DMCB+276 00613000 DMCBDSOR EQU DMCB+274 00614000 DMCBVOL EQU DMCB+268 00615000 DMCBDDNM EQU DMCB+260 00616000 DMCBSYNM EQU DMCB+132 00617000 DMCBRPLF EQU DMCB+128 00618000 DMCBDCBE EQU DMCBACBE 00619000 DMCBSTL EQU DMCB+96 00620000 DMCBRES2 EQU DMCB+85 00621000 DMCBSPID EQU DMCB+84 00622000 DMCBRESC EQU DMCB+80 00623000 DMCBZZ1P EQU DMCB+76 00624000 DMCBMSGS EQU DMCB+72 00625000 DMCBMSG0 EQU DMCB+68 00626000 DMCBRI EQU DMCB+64 00627000 DMCBRRL EQU DMCB+60 00628000 DMCBRBA EQU DMCB+56 00629000 DMCBMSG EQU DMCB+52 00630000 DMCBKEYL EQU DMCB+48 00631000 DMCBKPC EQU DMCBKEYP 00632000 DMCBORL EQU DMCB+40 00633000 DMCBBLEN EQU DMCB+36 00634000 DMCBBFPC EQU DMCBBUFP 00635000 DMCBRES1 EQU DMCB+31 00636000 DMCBRESB EQU DMCBMFLG 00637000 DMCBFMOD EQU DMCBMFLG 00638000 DMCBLOPT EQU DMCB+27 00639000 DMCBLRM EQU DMCB+26 00640000 DMCBLRQ EQU DMCB+25 00641000 DMCBOPRS EQU DMCBOPTS 00642000 DMCBLRD EQU DMCBOPTS 00643000 DMCBBWD EQU DMCBOPTS 00644000 DMCBUPD EQU DMCBOPTS 00645000 DMCBAPX EQU DMCBOPTS 00646000 DMCBRNO EQU DMCBGKY 00647000 DMCBKYD EQU DMCBOPTS 00648000 DMCBRMRS EQU DMCBRMOD 00649000 DMCBRQST EQU DMCB+22 00650000 DMCBRESA EQU DMCBOPN 00651000 DMCBSOUT EQU DMCBOPN 00652000 DMCBSIN EQU DMCBOPN 00653000 DMCBKSF EQU DMCBFTY 00654000 DMCBFTRS EQU DMCBFTY 00655000 DMCBSHF EQU DMCBFTY 00656000 DMCBIRL EQU DMCB+16 00657000 DMCBTVP EQU DMCB+8 00658000 DMCBNEXT EQU DMCB+4 00659000 DMCBID EQU DMCB 00660000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00661000 @RC00027 EQU @RC00025 00662000 RECOV1 EQU @RC00055 00663000 @ENDDATA EQU * 00664000 END BLSCCLSE,(C'PLS1900',0701,78062) 00665000