TITLE 'BLSCPOIN -- IPCS DATA ACCESS SERVICES POINT EXECUTOR *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSCPOIN CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSCPOIN 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 * DMCBPTR=GPR01P; /* ESTABLISH ADDRESSIBILITY TO 0011 00024000 * DMCB */ 00025000 LR DMCBPTR,GPR01P 0011 00026000 * RFY 0012 00027000 * GPR01P UNRSTD; 0012 00028000 * MODNAME=LMODNMC; /* MARK AUTOMATIC AREA */ 00029000 MVC MODNAME(8),@CC00241 0013 00030000 * SUBCODE=F0C; /* SUB-ROUTINE RETURN CODE */ 00031000 SLR @10,@10 0014 00032000 ST @10,SUBCODE 0014 00033000 * DMCBREJ=F0C; /* INVALID REQUEST REJECT CODE */ 00034000 MVI DMCBREJ(DMCBPTR),X'00' 0015 00035000 * DMCBRTC=F0C; /* WE ARE SUCCESSFUL UNTIL WE 0016 00036000 * FAIL */ 00037000 * 0016 00038000 ST @10,DMCBRTC(,DMCBPTR) 0016 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* FIRST DECIDE WHETHER DMCB IS OPEN */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 0017 00045000 * IF DMCBSIN=OFF /* DMCB NOT OPEN FOR INPUT */ 00046000 * &DMCBSOUT=OFF /* OR OUTPUT */ 00047000 * THEN 0017 00048000 TM DMCBSIN(DMCBPTR),B'11000000' 0017 00049000 BNZ @RF00017 0017 00050000 * DO; 0018 00051000 * DMCBRTC=INVRQ; /* INDICATE INVALID REQUEST */ 00052000 MVC DMCBRTC(4,DMCBPTR),@CF00037 0019 00053000 * DMCBREJ=F0C; /* REQ REJECTED SINCE DMCB IS 0020 00054000 * CLOSED */ 00055000 MVI DMCBREJ(DMCBPTR),X'00' 0020 00056000 * END; 0021 00057000 * ELSE 0022 00058000 * DO; /* DMCB IS OPEN */ 00059000 B @RC00017 0022 00060000 @RF00017 DS 0H 0023 00061000 EJECT 00062000 * IF DMCBVSF=OFF THEN 0023 00063000 * 0023 00064000 TM DMCBVSF(DMCBPTR),B'00000001' 0023 00065000 BNZ @RF00023 0023 00066000 * /***********************************************************/ 00067000 * /* */ 00068000 * /* QSAM FILE */ 00069000 * /* */ 00070000 * /***********************************************************/ 00071000 * 0024 00072000 * DO; /* QSAM FILE */ 00073000 * DMCBRTC=INVRQ; /* INVALID REQUEST */ 00074000 MVC DMCBRTC(4,DMCBPTR),@CF00037 0025 00075000 * DMCBREJ=F10C; /* QSAM DOESNT SUPPORT POINT */ 00076000 MVI DMCBREJ(DMCBPTR),X'0A' 0026 00077000 * END; /* QSAM FILE */ 00078000 * ELSE 0028 00079000 * 0028 00080000 * /***********************************************************/ 00081000 * /* */ 00082000 * /* VSAM FILE */ 00083000 * /* */ 00084000 * /***********************************************************/ 00085000 * 0028 00086000 * DO; /* VSAM FILE */ 00087000 * 0028 00088000 B @RC00023 0028 00089000 @RF00023 DS 0H 0029 00090000 * /*********************************************************/ 00091000 * /* */ 00092000 * /* FOR VSAM FILES CALL BLSCSETT TO PERFORM RPL */ 00093000 * /* MODIFICATIONS */ 00094000 * /* */ 00095000 * /*********************************************************/ 00096000 * 0029 00097000 * RFY 0029 00098000 * GPR01P RSTD; 0029 00099000 * GPR01P=DMCBPTR; /* BLSCSETT INTERFACE */ 00100000 LR GPR01P,DMCBPTR 0030 00101000 * CALL BLSCSETT; /* PERFORM SET FUNCTION */ 00102000 L @15,@CV00198 0031 00103000 BALR @14,@15 0031 00104000 * RFY 0032 00105000 * GPR01P UNRSTD; 0032 00106000 * IF DMCBRTC=F0C THEN /* TEST BLSCSETT RETURN CODE */ 00107000 SLR @10,@10 0033 00108000 C @10,DMCBRTC(,DMCBPTR) 0033 00109000 BNE @RF00033 0033 00110000 * DO; /* SET IS OK */ 00111000 * 0034 00112000 * /*****************************************************/ 00113000 * /* */ 00114000 * /* DETERMINE IF ACCESS IS BY RELATIVE RECORD AND IF */ 00115000 * /* SO THEN CALCULATE EFFECTIVE RBA */ 00116000 * /* */ 00117000 * /*****************************************************/ 00118000 * 0035 00119000 * IF DMCBKYD=OFF /* NON KEYED ACCESS */ 00120000 * &DMCBRNO=ON THEN/* RELATIVE RECORD ACCESS */ 00121000 TM DMCBRNO(DMCBPTR),B'01000000' 0035 00122000 BNO @RF00035 0035 00123000 TM DMCBKYD(DMCBPTR),B'10000000' 0035 00124000 BNZ @RF00035 0035 00125000 * DO; /* RELATIVE RECORD ACCESS */ 00126000 * IF DMCBRRL=F0C THEN/* IS THIS FILE ELIGIBLE FOR 00127000 * RELATIVE RECORD ACCESS. 0037 00128000 * DMCBRRL = 0 INDICATES THAT IT 00129000 * IS NOT */ 00130000 C @10,DMCBRRL(,DMCBPTR) 0037 00131000 BNE @RF00037 0037 00132000 * DO; /* RELATIVE RECORD LENGTH ZERO */ 00133000 * DMCBRTC=INVRQ;/* REJECT THE REQUEST */ 00134000 MVC DMCBRTC(4,DMCBPTR),@CF00037 0039 00135000 * DMCBREJ=F2C;/* INDICATE INELIGIBILITY FOR 0040 00136000 * RELATIVE RECORD ACCESS */ 00137000 MVI DMCBREJ(DMCBPTR),X'02' 0040 00138000 * END; /* RELATIVE RECORD LENGTH ZERO */ 00139000 * IF RELRECNO<=F0C THEN/* RECORD NUMBER OUT OF 0042 00140000 * RANGE */ 00141000 @RF00037 L @10,DMCBKEYP(,DMCBPTR) 0042 00142000 L @10,RELRECNO(,@10) 0042 00143000 LTR @10,@10 0042 00144000 BP @RF00042 0042 00145000 * DO; /* INVALID RECORD NUMBER */ 00146000 * DMCBRTC=INVRQ;/* REJECT THE REQUEST */ 00147000 MVC DMCBRTC(4,DMCBPTR),@CF00037 0044 00148000 * DMCBREJ=F4C;/* INDICATE THE REASON */ 00149000 MVI DMCBREJ(DMCBPTR),X'04' 0045 00150000 * END; /* INVALID RECORD NUMBER */ 00151000 * IF DMCBRTC=F0C THEN/* TEST FOR VALID REQUEST */ 00152000 @RF00042 L @10,DMCBRTC(,DMCBPTR) 0047 00153000 LTR @10,@10 0047 00154000 BNZ @RF00047 0047 00155000 * DMCBRBA=(RELRECNO-F1C)*DMCBRRL;/* COMPUTE RBA 00156000 * OF RECORD */ 00157000 L @10,DMCBKEYP(,DMCBPTR) 0048 00158000 L @01,RELRECNO(,@10) 0048 00159000 BCTR @01,0 0048 00160000 M @00,DMCBRRL(,DMCBPTR) 0048 00161000 ST @01,DMCBRBA(,DMCBPTR) 0048 00162000 * END; /* RELATIVE RECORD ACCESS */ 00163000 * 0049 00164000 @RF00047 DS 0H 0050 00165000 * /*****************************************************/ 00166000 * /* */ 00167000 * /* PERFORM VSAM POINT REQUEST */ 00168000 * /* */ 00169000 * /*****************************************************/ 00170000 * 0050 00171000 * IF DMCBRTC=F0C THEN /* TEST FOR VALID REQUEST */ 00172000 @RF00035 L @10,DMCBRTC(,DMCBPTR) 0050 00173000 LTR @10,@10 0050 00174000 BNZ @RF00050 0050 00175000 * DO; /* DO POINT */ 00176000 * RFY 0052 00177000 * (GPR01P, 0052 00178000 * GPR15F) RSTD; 0052 00179000 * GPR01P=ADDR(DMCBRPL); 0053 00180000 LA GPR01P,DMCBRPL(,DMCBPTR) 0053 00181000 * GEN REFS(GPR01P) SETS(GPR15F)(POINT RPL=(GPR01P)); 00182000 POINT RPL=(GPR01P) 00183000 * DMCBSUBC=GPR15F; 0055 00184000 ST GPR15F,DMCBSUBC(,DMCBPTR) 0055 00185000 * RFY 0056 00186000 * (GPR01P, 0056 00187000 * GPR15F) UNRSTD; 0056 00188000 * IF DMCBSUBC=F8C THEN/* IF A LOGICAL ERROR */ 00189000 L @10,DMCBSUBC(,DMCBPTR) 0057 00190000 CL @10,@CF00044 0057 00191000 BNE @RF00057 0057 00192000 * CALL VSMLERR; /* THEN ANALYSE THE FDBK FIELD IN 00193000 * THE RPL */ 00194000 BAL @14,VSMLERR 0058 00195000 * ELSE 0059 00196000 * DO; /* NOT LOGICAL ERROR */ 00197000 B @RC00057 0059 00198000 @RF00057 DS 0H 0060 00199000 * IF DMCBSUBC=F12C THEN/* ELSE IF A PHYSICAL 0060 00200000 * ERROR */ 00201000 LA @10,12 0060 00202000 CL @10,DMCBSUBC(,DMCBPTR) 0060 00203000 BNE @RF00060 0060 00204000 * DMCBRTC=PERMER;/* THEN REPORT IN RETURN 0061 00205000 * CODE */ 00206000 ST @10,DMCBRTC(,DMCBPTR) 0061 00207000 * END; /* NOT LOGICAL ERROR */ 00208000 @RF00060 DS 0H 0063 00209000 * END; /* DO POINT */ 00210000 @RC00057 DS 0H 0064 00211000 * END; /* SET IS OK */ 00212000 @RF00050 DS 0H 0065 00213000 * END; /* VSAM FILE */ 00214000 @RF00033 DS 0H 0066 00215000 * END; /* DMCB IS OPEN */ 00216000 @RC00023 DS 0H 0067 00217000 * IF DMCBRTC^=F0C THEN /* TEST FOR ERROR */ 00218000 @RC00017 L @10,DMCBRTC(,DMCBPTR) 0067 00219000 LTR @10,@10 0067 00220000 BZ @RF00067 0067 00221000 * DMCBMODN=MODNAME; /* SUPPLY MODULE NAME FOR ERROR 00222000 * MESSAGE */ 00223000 MVC DMCBMODN(8,DMCBPTR),MODNAME 0068 00224000 * RETURN; 0069 00225000 @EL00001 L @13,4(,@13) 0069 00226000 @EF00001 L @00,@SIZDATD 0069 00227000 LR @01,@11 0069 00228000 BLSCFRES R,LV=(0),A=(1) 00229000 @ER00001 LM @14,@12,12(@13) 0069 00230000 BR @14 0069 00231000 EJECT 00232000 *VSMLERR: 0070 00233000 * PROCEDURE; 0070 00234000 * 0070 00235000 B @EL00001 0070 00236000 VSMLERR STM @14,@12,@SA00002 0070 00237000 * /*****************************************************************/ 00238000 * /* */ 00239000 * /* THIS ROUTINE IS ENTERED IF A VSAM LOGICAL ERROR OCCURS IT */ 00240000 * /* EXTRACTS THE FEEDBACK FIELD FROM THE REQUEST PARAMETER LIST */ 00241000 * /* AND DETERMINES THE PROPER RETURN CODE. CERTAIN LOGICAL ERRORS */ 00242000 * /* WHICH SHOULD NOT OCCUR MAY INDICATE THAT THE DATA MANAGER IS */ 00243000 * /* WORKING IMPROPERLY. IF THESE OCCUR THEN AN ABEND WILL BE */ 00244000 * /* ISSUED. */ 00245000 * /* */ 00246000 * /*****************************************************************/ 00247000 * 0071 00248000 * RFY 0071 00249000 * (GPR02P, 0071 00250000 * GPR03P, 0071 00251000 * GPR08P, 0071 00252000 * GPR15F) RSTD; 0071 00253000 * GPR08P=ADDR(DMCBRPL); /* ADDRESS RPL FOR SHOWCB MACRO */ 00254000 LA GPR08P,DMCBRPL(,DMCBPTR) 0072 00255000 * GPR02P=ADDR(SHWLIST); /* POINT TO SHOW PARAMETER LIST */ 00256000 LA GPR02P,SHWLIST 0073 00257000 * GPR03P=ADDR(DMCBRPLF); /* ADDRESS FEEDBACK FIELD */ 00258000 LA GPR03P,DMCBRPLF(,DMCBPTR) 0074 00259000 * GEN SETS(SHWLIST,DMCBRPLF,GPR15F) REFS(GPR02P,GPR03P,GPR08P); 0075 00260000 SHOWCB RPL=(GPR08P),AREA=(GPR03P),LENGTH=4, *00261000 FIELDS=(FDBK),MF=(G,(GPR02P)) 00262000 * SUBCODE=GPR15F; 0076 00263000 ST GPR15F,SUBCODE 0076 00264000 * RFY 0077 00265000 * (GPR08P, 0077 00266000 * GPR02P, 0077 00267000 * GPR03P, 0077 00268000 * GPR15F) UNRSTD; 0077 00269000 * IF SUBCODE^=F0C THEN /* IF SHOW WAS UNSUCCESSFUL */ 00270000 L @10,SUBCODE 0078 00271000 LTR @10,@10 0078 00272000 BZ @RF00078 0078 00273000 * DO; /* ABEND(F139C) DUMP */ 00274000 * RESPECIFY 0080 00275000 * (GPR01F) RESTRICTED; 0080 00276000 * GPR01F=F139C; /* COMP CODE IN REG 1 */ 00277000 LA GPR01F,139 0081 00278000 * GPR01F=GPR01F|'80000000'X; /* DUMP/STEP/DUMPOPTS FLAG */ 00279000 O GPR01F,@CF00253 0082 00280000 * SVC(13); /* ISSUE ABEND SVC */ 00281000 SVC 13 0083 00282000 * RESPECIFY 0084 00283000 * (GPR01F) UNRESTRICTED; 0084 00284000 * END; /* ABEND(F139C) DUMP SHOWCB ERROR*/ 00285000 * IF DMCBRPLF=F4C /* END OF DATA OR KEY OUT OF 0086 00286000 * RANGE */ 00287000 * |DMCBRPLF=F16C /* OR RECORD NOT FOUND */ 00288000 * |DMCBRPLF=F32C THEN /* OR RBA INVALID (FOR REL 0086 00289000 * RECORD) */ 00290000 @RF00078 L @10,DMCBRPLF(,DMCBPTR) 0086 00291000 CL @10,@CF00037 0086 00292000 BE @RT00086 0086 00293000 CL @10,@CF00105 0086 00294000 BE @RT00086 0086 00295000 CL @10,@CF00084 0086 00296000 BNE @RF00086 0086 00297000 @RT00086 DS 0H 0087 00298000 * DMCBRTC=NRF; /* INDICATE END FILE RETURN CODE */ 00299000 MVC DMCBRTC(4,DMCBPTR),@CF00044 0087 00300000 * ELSE 0088 00301000 * DO; /* PROBABLY INVALID REQUEST */ 00302000 B @RC00086 0088 00303000 @RF00086 DS 0H 0089 00304000 * DMCBRTC=INVRQ; /* REJECT THE REQUEST */ 00305000 MVC DMCBRTC(4,DMCBPTR),@CF00037 0089 00306000 * IF DMCBRPLF=F72C THEN /* WRONG ACCESS TYPE */ 00307000 CLC DMCBRPLF(4,DMCBPTR),@CF00225 0090 00308000 BNE @RF00090 0090 00309000 * DMCBREJ=F2C; 0091 00310000 MVI DMCBREJ(DMCBPTR),X'02' 0091 00311000 * ELSE 0092 00312000 * IF DMCBRPLF=F88C THEN /* POSITIONING ERROR */ 00313000 B @RC00090 0092 00314000 @RF00090 CLC DMCBRPLF(4,DMCBPTR),@CF00227 0092 00315000 BNE @RF00092 0092 00316000 * DMCBREJ=F5C; 0093 00317000 MVI DMCBREJ(DMCBPTR),X'05' 0093 00318000 * ELSE 0094 00319000 * IF DMCBRPLF=F112C THEN /* INVALID KEY LENGTH */ 00320000 B @RC00092 0094 00321000 @RF00092 CLC DMCBRPLF(4,DMCBPTR),@CF00229 0094 00322000 BNE @RF00094 0094 00323000 * DMCBREJ=F9C; 0095 00324000 MVI DMCBREJ(DMCBPTR),X'09' 0095 00325000 * ELSE 0096 00326000 * DMCBREJ=F255C; /* SEVERE ERROR EITHER VSAM OR 0096 00327000 * DATA MANAGER ERROR */ 00328000 B @RC00094 0096 00329000 @RF00094 MVI DMCBREJ(DMCBPTR),X'FF' 0096 00330000 * END; /* PROBABLY INVALID REQUEST */ 00331000 * END VSMLERR; 0098 00332000 @EL00002 DS 0H 0098 00333000 @EF00002 DS 0H 0098 00334000 @ER00002 LM @14,@12,@SA00002 0098 00335000 BR @14 0098 00336000 EJECT 00337000 * 0099 00338000 * /*****************************************************************/ 00339000 * /* */ 00340000 * /* END OF EXECUTABLE PROCEDURE STATEMENTS */ 00341000 * /* */ 00342000 * /*****************************************************************/ 00343000 * 0099 00344000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00345000 * GPR01F FIXED(31) REG(1), 0099 00346000 * GPR15F FIXED(31) REG(15), 0099 00347000 * GPR01P PTR(31) REG(1), 0099 00348000 * GPR02P PTR(31) REG(2), 0099 00349000 * GPR03P PTR(31) REG(3), 0099 00350000 * GPR08P PTR(31) REG(8); 0099 00351000 * DECLARE /* COMMON VARIABLES */ 00352000 * I256C CHAR(256) BASED, 0100 00353000 * I031F FIXED(31) BASED, 0100 00354000 * I031P PTR(31) BASED, 0100 00355000 * I015F FIXED(15) BASED, 0100 00356000 * I015P PTR(15) BASED, 0100 00357000 * I008P PTR(8) BASED, 0100 00358000 * I001C CHAR(1) BASED; 0100 00359000 * DCL 0101 00360000 * 1 DASPATCH LOCAL BDY(DWORD), /* PATCH AREA */ 00361000 * 2 DASPATA(DASPATLN) PTR INIT((DASPATLN)0); 0101 00362000 * END BLSCPOIN; 0102 00363000 @DATA DS 0H 00364000 @DATD DSECT 00365000 DS 0F 00366000 @SA00001 DS 18F 00367000 @SA00002 DS 15F 00368000 BLSCPOIN CSECT 00369000 DS 0F 00370000 @CF00037 DC F'4' 00371000 @CF00044 DC F'8' 00372000 @CF00105 DC F'16' 00373000 @CF00084 DC F'32' 00374000 @CF00225 DC F'72' 00375000 @CF00227 DC F'88' 00376000 @CF00229 DC F'112' 00377000 @CF00253 DC XL4'80000000' 00378000 @DATD DSECT 00379000 DS 0D 00380000 MODSTAT DS CL12 00381000 ORG MODSTAT 00382000 MODNAME DS CL8 00383000 SUBCODE DS FL4 00384000 ORG MODSTAT+12 00385000 DS CL4 00386000 SHWLIST DS CL28 00387000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00388000 @ENDDATD EQU * 00389000 BLSCPOIN CSECT 00390000 DS 0F 00391000 @SIZDATD DC AL1(0) 00392000 DC AL3(@ENDDATD-@DATD) 00393000 @CV00198 DC V(BLSCSETT) 00394000 DS 0D 00395000 @CC00241 DC C'BLSCPOIN' 00396000 DASPATCH DS CL80 00397000 ORG DASPATCH 00398000 DASPATA DC 20A(0) 00399000 ORG DASPATCH+80 00400000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00401000 @01 EQU 01 00402000 @02 EQU 02 00403000 @03 EQU 03 00404000 @04 EQU 04 00405000 @05 EQU 05 00406000 @06 EQU 06 00407000 @07 EQU 07 00408000 @08 EQU 08 00409000 @09 EQU 09 00410000 @10 EQU 10 00411000 @11 EQU 11 00412000 @12 EQU 12 00413000 @13 EQU 13 00414000 @14 EQU 14 00415000 @15 EQU 15 00416000 DMCBPTR EQU @05 00417000 GPR01P EQU @01 00418000 GPR15F EQU @15 00419000 GPR02P EQU @02 00420000 GPR03P EQU @03 00421000 GPR08P EQU @08 00422000 GPR01F EQU @01 00423000 DMCB EQU 0 00424000 DMCBRTC EQU DMCB+12 00425000 DMCBFTY EQU DMCB+20 00426000 DMCBVSF EQU DMCBFTY 00427000 DMCBOPN EQU DMCB+21 00428000 DMCBSIN EQU DMCBOPN 00429000 DMCBSOUT EQU DMCBOPN 00430000 DMCBRMOD EQU DMCB+23 00431000 DMCBOUT EQU DMCBRMOD 00432000 DMCBOPTS EQU DMCB+24 00433000 DMCBKYD EQU DMCBOPTS 00434000 DMCBGKY EQU DMCBOPTS 00435000 DMCBRNO EQU DMCBGKY 00436000 DMCBMFLG EQU DMCB+28 00437000 DMCBREJ EQU DMCB+29 00438000 DMCBBUFP EQU DMCB+32 00439000 DMCBKEYP EQU DMCB+44 00440000 DMCBRBA EQU DMCB+56 00441000 DMCBRRL EQU DMCB+60 00442000 DMCBFRE EQU DMCB+88 00443000 DMCBEOB EQU DMCB+92 00444000 DMCBACBE EQU DMCB+124 00445000 DMCBRPLF EQU DMCB+128 00446000 DMCBSPEC EQU DMCB+380 00447000 DMCBSUBC EQU DMCB+404 00448000 DMCBAMS EQU DMCB+416 00449000 DMCBAUDT EQU DMCB+568 00450000 DMCBLSCP EQU DMCBAUDT+16 00451000 DMCBMODN EQU DMCB+632 00452000 RELRECNO EQU 0 00453000 DMCBRQC EQU 0 00454000 I001C EQU 0 00455000 I008P EQU 0 00456000 I015F EQU 0 00457000 I015P EQU 0 00458000 I031F EQU 0 00459000 I031P EQU 0 00460000 I256C EQU 0 00461000 DMCBVSM EQU DMCBAMS 00462000 DMCBRPL EQU DMCBVSM 00463000 DMCBQSM EQU DMCBAMS 00464000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00465000 DMCBRES7 EQU DMCBQSM+96 00466000 DMCBDCB EQU DMCBQSM 00467000 DMCBACB EQU DMCBVSM+76 00468000 DMCBWRK EQU DMCB+648 00469000 DMCBRES8 EQU DMCB+640 00470000 DMCBCARY EQU DMCBAUDT+20 00471000 DMCBCLC EQU DMCBAUDT+12 00472000 DMCBOPC EQU DMCBAUDT+8 00473000 DMCBFRC EQU DMCBAUDT+4 00474000 DMCBALC EQU DMCBAUDT 00475000 DMCBFR EQU DMCB+412 00476000 DMCBRES6 EQU DMCB+410 00477000 DMCBIRSC EQU DMCB+408 00478000 DMCBDRBP EQU DMCB+400 00479000 DMCBRSZM EQU DMCB+398 00480000 DMCBRSZA EQU DMCB+396 00481000 DMCBCISZ EQU DMCB+394 00482000 DMCBDCBL EQU DMCB+392 00483000 DMCBDCLR EQU DMCB+390 00484000 DMCBDCFM EQU DMCB+389 00485000 DMCBRES5 EQU DMCB+388 00486000 DMCBLBRT EQU DMCB+386 00487000 DMCBLBSQ EQU DMCB+384 00488000 DMCBLBPS EQU DMCB+383 00489000 DMCBLBTY EQU DMCB+382 00490000 DMCBRES4 EQU DMCB+381 00491000 DMCBSPRS EQU DMCBSPEC 00492000 DMCBSPRN EQU DMCBSPEC 00493000 DMCBSPCT EQU DMCBSPEC 00494000 DMCBSPRL EQU DMCBSPEC 00495000 DMCBSPSE EQU DMCB+376 00496000 DMCBSPPR EQU DMCB+372 00497000 DMCBSPTY EQU DMCB+369 00498000 DMCBODIS EQU DMCB+368 00499000 DMCBDISP EQU DMCB+367 00500000 DMCBSTAT EQU DMCB+366 00501000 DMCBRES3 EQU DMCB+364 00502000 DMCBMEMB EQU DMCB+356 00503000 DMCBMODL EQU DMCB+348 00504000 DMCBRES9 EQU DMCB+340 00505000 DMCBPID EQU DMCB+332 00506000 DMCBTYPE EQU DMCB+328 00507000 DMCBDSN EQU DMCB+284 00508000 DMCBUNIT EQU DMCB+276 00509000 DMCBDSOR EQU DMCB+274 00510000 DMCBVOL EQU DMCB+268 00511000 DMCBDDNM EQU DMCB+260 00512000 DMCBSYNM EQU DMCB+132 00513000 DMCBDCBE EQU DMCBACBE 00514000 DMCBARC EQU DMCB+120 00515000 DMCBCPC EQU DMCB+116 00516000 DMCBRET EQU DMCB+112 00517000 DMCBSTL EQU DMCB+96 00518000 DMCBRES2 EQU DMCB+85 00519000 DMCBSPID EQU DMCB+84 00520000 DMCBRESC EQU DMCB+80 00521000 DMCBZZ1P EQU DMCB+76 00522000 DMCBMSGS EQU DMCB+72 00523000 DMCBMSG0 EQU DMCB+68 00524000 DMCBRI EQU DMCB+64 00525000 DMCBMSG EQU DMCB+52 00526000 DMCBKEYL EQU DMCB+48 00527000 DMCBKPC EQU DMCBKEYP 00528000 DMCBORL EQU DMCB+40 00529000 DMCBBLEN EQU DMCB+36 00530000 DMCBBFPC EQU DMCBBUFP 00531000 DMCBRES1 EQU DMCB+31 00532000 DMCBACCM EQU DMCB+30 00533000 DMCBRESB EQU DMCBMFLG 00534000 DMCBFMOD EQU DMCBMFLG 00535000 DMCBLOPT EQU DMCB+27 00536000 DMCBLRM EQU DMCB+26 00537000 DMCBLRQ EQU DMCB+25 00538000 DMCBOPRS EQU DMCBOPTS 00539000 DMCBLRD EQU DMCBOPTS 00540000 DMCBBWD EQU DMCBOPTS 00541000 DMCBUPD EQU DMCBOPTS 00542000 DMCBAPX EQU DMCBOPTS 00543000 DMCBRMRS EQU DMCBRMOD 00544000 DMCBRM5 EQU DMCBRMOD 00545000 DMCBRM6 EQU DMCBRMOD 00546000 DMCBTMP EQU DMCBOUT 00547000 DMCBRQST EQU DMCB+22 00548000 DMCBRESA EQU DMCBOPN 00549000 DMCBKSF EQU DMCBFTY 00550000 DMCBFTRS EQU DMCBFTY 00551000 DMCBSHF EQU DMCBFTY 00552000 DMCBIRL EQU DMCB+16 00553000 DMCBTVP EQU DMCB+8 00554000 DMCBNEXT EQU DMCB+4 00555000 DMCBID EQU DMCB 00556000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00557000 @RF00067 EQU @EL00001 00558000 @RC00086 EQU @EL00002 00559000 @RC00094 EQU @EL00002 00560000 @RC00092 EQU @EL00002 00561000 @RC00090 EQU @EL00002 00562000 @ENDDATA EQU * 00563000 END BLSCPOIN,(C'PLS1932',0701,78062) 00564000