TITLE 'EP=BLSCAINT -- IPCS DAS ALLOCATION INITIALIZATION *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSCAINT CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSCAINT 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; /* BASE THE DMCB AND DMAL */ 00024000 LR DMCBPTR,GPR01P 0024 00025000 * RFY 0025 00026000 * GPR01P UNRSTD; 0025 00027000 * DMCBID=LDMCBC; /* FILL IN THE DMCB MARKER */ 00028000 MVC DMCBID(4,DMCBPTR),@CC00300 0026 00029000 * DMALID=LDMALC; /* FILL IN THE DMAL MARKER */ 00030000 MVC DMALID(4,DMCBPTR),@CC00302 0027 00031000 * MODNAME=LMODNMC; 0028 00032000 MVC MODNAME(8),@CC00304 0028 00033000 * RETCODE=F0C; 0029 00034000 SLR @10,@10 0029 00035000 ST @10,RETCODE 0029 00036000 * SUBCODE=F0C; 0030 00037000 * 0030 00038000 ST @10,SUBCODE 0030 00039000 * /*****************************************************************/ 00040000 * /* */ 00041000 * /* VALIDATE THE USER SUPPLIED ALLOCATION MODEL NAME POINTER */ 00042000 * /* */ 00043000 * /*****************************************************************/ 00044000 * 0031 00045000 * MODELPTR=ADDR(BLSCAMOD); /* ALLOCATION MODEL MODULE ADDR */ 00046000 L MODELPTR,@CV00264 0031 00047000 * MODWKPTR=F0C; /* INIT THE TEMP MODEL ADDR PTR */ 00048000 SLR MODWKPTR,MODWKPTR 0032 00049000 * IF DMALMODA=F0C THEN /* TEST FOR INVALID MODEL NAME 0033 00050000 * POINTER */ 00051000 C @10,DMALMODA(,DMCBPTR) 0033 00052000 BNE @RF00033 0033 00053000 * DO; /* INVALID MODEL NAME POINTER */ 00054000 * DO; /* BLSDMSG 0035 00055000 * (ZZ2,F3100C,DMCBMSG,BLSDMSGS) */ 00056000 * CALL BLSDMSG0(ZZ2,F3100C,DMCBMSG,BLSDMSGS,'00000000'B,0);/* 00057000 * BUILD MESSAGE */ 00058000 L @10,DMCBTVP(,DMCBPTR) 0036 00059000 ST @10,@AL00001 0036 00060000 LA @10,@CF00294 0036 00061000 ST @10,@AL00001+4 0036 00062000 LA @10,DMCBMSG(,DMCBPTR) 0036 00063000 ST @10,@AL00001+8 0036 00064000 L @10,DMCBMSGS(,DMCBPTR) 0036 00065000 ST @10,@AL00001+12 0036 00066000 LA @10,@CB00315 0036 00067000 ST @10,@AL00001+16 0036 00068000 LA @10,@CF00190 0036 00069000 ST @10,@AL00001+20 0036 00070000 L @15,DMCBMSG0(,DMCBPTR) 0036 00071000 LA @01,@AL00001 0036 00072000 BALR @14,@15 0036 00073000 * END; /* BLSDMSG 0037 00074000 * (ZZ2,F3100C,DMCBMSG,BLSDMSGS) 00075000 * ISSUE ERROR MESSAGE */ 00076000 * RETCODE=ERROR; /* NOTIFY CALLER */ 00077000 MVC RETCODE(4),@CF00044 0038 00078000 * END; /* INVALID MODEL NAME POINTER */ 00079000 * ELSE 0040 00080000 * DO; /* VALID MODEL NAME POINTER */ 00081000 B @RC00033 0040 00082000 @RF00033 DS 0H 0041 00083000 * DMCBMODL=MODELNAM; /* INITIALIZE MODEL NAME IN DMCB */ 00084000 L @10,DMALMODA(,DMCBPTR) 0041 00085000 MVC DMCBMODL(8,DMCBPTR),MODELNAM(@10) 0041 00086000 * CALL LOCATE; /* LOCATE THE ALLOCATION MODEL */ 00087000 BAL @14,LOCATE 0042 00088000 * END; /* VALID MODEL NAME POINTER */ 00089000 * RETURN CODE(RETCODE); 0044 00090000 @RC00033 L @10,RETCODE 0044 00091000 L @13,4(,@13) 0044 00092000 L @00,@SIZDATD 0044 00093000 LR @01,@11 0044 00094000 BLSCFRES R,LV=(0),A=(1) 00095000 LR @15,@10 0044 00096000 L @14,12(,@13) 0044 00097000 LM @00,@12,20(@13) 0044 00098000 BR @14 0044 00099000 EJECT 00100000 * 0045 00101000 * /*****************************************************************/ 00102000 * /* */ 00103000 * /* PROCEDURE TO LOCATE THE ALLOCATION MODEL */ 00104000 * /* */ 00105000 * /*****************************************************************/ 00106000 * 0045 00107000 *LOCATE: 0045 00108000 * PROCEDURE; /* LOCATE THE ALLOCATION MODEL */ 00109000 LOCATE STM @14,@12,@SA00002 0045 00110000 * DO WHILE(MODELPTR^=0); /* LOOP THROUGH MODELS TO THE END*/ 00111000 B @DE00046 0046 00112000 @DL00046 DS 0H 0047 00113000 * IF MMNAME=DMCBMODL THEN /* TEST FOR NAME MATCH */ 00114000 CLC MMNAME(8,MODELPTR),DMCBMODL(DMCBPTR) 0047 00115000 BNE @RF00047 0047 00116000 * DO; /* MODEL NAME MATCHES */ 00117000 * MODWKPTR=MODELPTR; /* SAVE MODEL POINTER */ 00118000 LR MODWKPTR,MODELPTR 0049 00119000 * MODELPTR=F0C; /* FORCE LOOP END */ 00120000 SLR MODELPTR,MODELPTR 0050 00121000 * END; /* MODEL NAME MATCHES */ 00122000 * ELSE 0052 00123000 * MODELPTR=MMNXMOD; /* KEEP LOOKING */ 00124000 B @RC00047 0052 00125000 @RF00047 L MODELPTR,MMNXMOD(,MODELPTR) 0052 00126000 * END; /* LOOP THROUGH MODELS TO THE END*/ 00127000 @RC00047 DS 0H 0053 00128000 @DE00046 SLR @10,@10 0053 00129000 CR MODELPTR,@10 0053 00130000 BNE @DL00046 0053 00131000 * IF MODWKPTR=F0C THEN /* TEST FOR MODEL NOT FOUND */ 00132000 CR MODWKPTR,@10 0054 00133000 BNE @RF00054 0054 00134000 * DO; /* MODEL NOT FOUND */ 00135000 * DO; /* BLSDMSG 0056 00136000 * (ZZ2,F3101C,DMCBMSG,BLSDMSGS) 00137000 * INSERT(DMCBMODL) */ 00138000 * IOPTLIST(1)=0; /* LAST INSERT */ 00139000 ST @10,IOPTLIST 0057 00140000 * IOPTLIST(2)=ADDR(DMCBMODL);/* INSERT NAME POINTER */ 00141000 LA @02,DMCBMODL(,DMCBPTR) 0058 00142000 ST @02,IOPTLIST+4 0058 00143000 * IOPTLIST(3)=0; /* ZERO RESERVED FIELD */ 00144000 ST @10,IOPTLIST+8 0059 00145000 * RFY 0060 00146000 * I015F BASED(ADDR(IOPTLIST(3)));/* ACCESS BYTES 1-2 */ 00147000 * I015F=LENGTH(DMCBMODL); /* INSERT LENGTH */ 00148000 LA @10,IOPTLIST+8 0061 00149000 MVC I015F(2,@10),@CH00044 0061 00150000 * CALL BLSDMSG0(ZZ2,F3101C,DMCBMSG,BLSDMSGS,'00000000'B,ADDR( 00151000 * IOPTLIST)); /* BUILD MESSAGE */ 00152000 L @10,DMCBTVP(,DMCBPTR) 0062 00153000 ST @10,@AL00001 0062 00154000 LA @10,@CF00296 0062 00155000 ST @10,@AL00001+4 0062 00156000 LA @10,DMCBMSG(,DMCBPTR) 0062 00157000 ST @10,@AL00001+8 0062 00158000 L @10,DMCBMSGS(,DMCBPTR) 0062 00159000 ST @10,@AL00001+12 0062 00160000 LA @10,@CB00315 0062 00161000 ST @10,@AL00001+16 0062 00162000 LA @10,IOPTLIST 0062 00163000 ST @10,@AFTEMPS 0062 00164000 LA @10,@AFTEMPS 0062 00165000 ST @10,@AL00001+20 0062 00166000 L @15,DMCBMSG0(,DMCBPTR) 0062 00167000 LA @01,@AL00001 0062 00168000 BALR @14,@15 0062 00169000 * END; /* BLSDMSG 0063 00170000 * (ZZ2,F3101C,DMCBMSG,BLSDMSGS) 00171000 * INSERT(DMCBMODL) ISSUE ERROR 00172000 * MESSAGE */ 00173000 * RETCODE=ERROR; /* NOTIFY CALLER */ 00174000 MVC RETCODE(4),@CF00044 0064 00175000 * END; /* MODEL NOT FOUND */ 00176000 * ELSE 0066 00177000 * DO; /* MODEL FOUND */ 00178000 B @RC00054 0066 00179000 @RF00054 DS 0H 0067 00180000 * MODELPTR=MODWKPTR; /* RESTORE MODEL BASE ADDRESS */ 00181000 LR MODELPTR,MODWKPTR 0067 00182000 * CALL INIT; /* INITIALIZE THE DMCB AND DMAL */ 00183000 BAL @14,INIT 0068 00184000 * END; /* MODEL FOUND */ 00185000 * END LOCATE; /* LOCATE THE ALLOCATION MODEL */ 00186000 @EL00002 DS 0H 0070 00187000 @EF00002 DS 0H 0070 00188000 @ER00002 LM @14,@12,@SA00002 0070 00189000 BR @14 0070 00190000 EJECT 00191000 * 0071 00192000 * /*****************************************************************/ 00193000 * /* */ 00194000 * /* PROCEDURE TO INITALIZE THE DMCB AND DMAL */ 00195000 * /* */ 00196000 * /*****************************************************************/ 00197000 * 0071 00198000 *INIT: 0071 00199000 * PROCEDURE; /* INITIALIZE THE DMCB AND DMAL */ 00200000 INIT STM @14,@12,12(@13) 0071 00201000 * DMALMODP=MODELPTR; /* SAVE THE MODEL BASE ADDRESS */ 00202000 ST MODELPTR,DMALMODP(,DMCBPTR) 0072 00203000 * IF MMACBID=LHEXA0C THEN /* TEST FOR VSAM DATA SET */ 00204000 L @10,MMACBDCB(,MODELPTR) 0073 00205000 CLI MMACBID(@10),X'A0' 0073 00206000 BNE @RF00073 0073 00207000 * DO; /* INITIALIZE FOR VSAM DATA SET */ 00208000 * DMCBACB=MMACB; /* MOVE IN THE MODEL VSAM ACB */ 00209000 MVC DMCBACB(76,DMCBPTR),MMACB(@10) 0075 00210000 * DMCBRPL=MMRPL; /* MOVE IN THE MODEL VSAM RPL */ 00211000 L @05,MMRPLP(,MODELPTR) 0076 00212000 MVC DMCBRPL(76,DMCBPTR),MMRPL(@05) 0076 00213000 * DMCBRRL=MMRRL; /* ESDS PSEUDO REL REC RECLEN */ 00214000 L @05,MMRRL(,MODELPTR) 0077 00215000 ST @05,DMCBRRL(,DMCBPTR) 0077 00216000 * DMCBVSF=ON; /* MARK THE DATA SET AS VSAM */ 00217000 OI DMCBVSF(DMCBPTR),B'00000001' 0078 00218000 * DMCBBUFP=VLEND; /* MARK DATA BUFFER ADDR INVALID */ 00219000 L @05,@CF00287 0079 00220000 ST @05,DMCBBUFP(,DMCBPTR) 0079 00221000 * DMCBBLEN=VLEND; /* MARK DATA BUFFER LNTH INVALID */ 00222000 ST @05,DMCBBLEN(,DMCBPTR) 0080 00223000 * DMCBORL=VLEND; /* MARK OUTPUT RECORD LEN INVALID*/ 00224000 ST @05,DMCBORL(,DMCBPTR) 0081 00225000 * DMCBKEYP=VLEND; /* MARK KEY POINTER INVALID */ 00226000 ST @05,DMCBKEYP(,DMCBPTR) 0082 00227000 * DMCBKEYL=VLEND; /* MARK KEY LENGTH INVALID */ 00228000 ST @05,DMCBKEYL(,DMCBPTR) 0083 00229000 * RPLDACB=ADDR(DMCBACB); /* FILL IN ACB ADDRESS IN RPL */ 00230000 LA @05,DMCBACB(,DMCBPTR) 0084 00231000 ST @05,RPLDACB(,DMCBPTR) 0084 00232000 * IF MMACBKEY=ON THEN /* TEST FOR KEY SEQUENCE DATA SET*/ 00233000 TM MMACBKEY(@10),B'10000000' 0085 00234000 BNO @RF00085 0085 00235000 * DMCBKSF=ON; /* MARK DATA SET KEY SEQUENCED */ 00236000 OI DMCBKSF(DMCBPTR),B'00000010' 0086 00237000 * END; /* INITIALIZE FOR VSAM DATA SET */ 00238000 * ELSE 0088 00239000 * DO; /* INITIALIZE FOR QSAM DATA SET */ 00240000 B @RC00073 0088 00241000 @RF00073 DS 0H 0089 00242000 * DMCBVSF=OFF; /* MARK DMCB AS NON-VSAM */ 00243000 NI DMCBVSF(DMCBPTR),B'11111110' 0089 00244000 * DMCBDCB=MMDCB; /* MOVE IN MODEL QSAM DCB */ 00245000 L @10,MMACBDCB(,MODELPTR) 0090 00246000 MVC DMCBDCB(96,DMCBPTR),MMDCB(@10) 0090 00247000 * END; /* INITIALIZE FOR QSAM DATA SET */ 00248000 * DMCBMODN=LDASFC; /* INIT DEFAULT ERROR MODULE NAME*/ 00249000 @RC00073 MVC DMCBMODN(8,DMCBPTR),@CC00306 0092 00250000 * DMCBSPT1=LBLNKC; /* INIT DATASET SPACE TYPE NULL */ 00251000 MVI DMCBSPT1(DMCBPTR),C' ' 0093 00252000 * DMCBSPPR=VLEND; /* INIT DSET PRI SPAC QUANT NULL */ 00253000 L @10,@CF00287 0094 00254000 ST @10,DMCBSPPR(,DMCBPTR) 0094 00255000 * DMCBSPSE=VLEND; /* INIT DSET SEC SPAC QUANT NULL */ 00256000 ST @10,DMCBSPSE(,DMCBPTR) 0095 00257000 * DMCBLBSQ=VLEND; /* INIT DSET SEQUENCE NUMBR NULL */ 00258000 STH @10,DMCBLBSQ(,DMCBPTR) 0096 00259000 * DMCBMSG=F0C; /* MARK MESSAGE AREA ADDR INVALID*/ 00260000 SLR @05,@05 0097 00261000 ST @05,DMCBMSG(,DMCBPTR) 0097 00262000 * DMCBSTL=ELIST; /* MOVE IN THE ESTAE PARM LIST */ 00263000 MVI DMCBSTL+12(DMCBPTR),C' ' 0098 00264000 MVC DMCBSTL+13(3,DMCBPTR),DMCBSTL+12(DMCBPTR) 0098 00265000 MVC DMCBSTL(12,DMCBPTR),ELIST 0098 00266000 * RFY 0099 00267000 * ESTENT BASED(ADDR(DMCBSTL)); /* BASE THE ESTAE SVC PLIST MAP */ 00268000 * ESTEXIT=ADDR(BLSCRECV); /* INIT THE ESTAE EXIT ADDRESS */ 00269000 LA @05,96 0100 00270000 ALR @05,DMCBPTR 0100 00271000 L @02,@CV00267 0100 00272000 STCM @02,7,ESTEXIT(@05) 0100 00273000 * ESTEPL=DMCBPTR; /* INIT THE ESTAE EXIT PLIST ADDR*/ 00274000 ST DMCBPTR,ESTEPL(,@05) 0101 00275000 * DMCBDRBP=ADDR(DMALDYRB)|VLEND; /* INIT THE DYNALLOC REQUEST 0102 00276000 * BLOCK POINTER */ 00277000 LA @05,DMALDYRB(,DMCBPTR) 0102 00278000 OR @05,@10 0102 00279000 ST @05,DMCBDRBP(,DMCBPTR) 0102 00280000 * DMALDYRB=MMDYRB; /* MOVE IN THE MODEL DYNALLOC 0103 00281000 * REQUEST BLOCK */ 00282000 L @10,MMDYRBP(,MODELPTR) 0103 00283000 MVC DMALDYRB(20,DMCBPTR),MMDYRB(@10) 0103 00284000 * DMCBRI=ADDR(BLSCRQST); /* I/O EXECUTION ENTRY POINT ADDR*/ 00285000 L @10,@CV00266 0104 00286000 ST @10,DMCBRI(,DMCBPTR) 0104 00287000 * DMCBFR=ADDR(BLSCFREE); /* DATA SET FREE ENTRY POINT ADDR*/ 00288000 L @10,@CV00265 0105 00289000 ST @10,DMCBFR(,DMCBPTR) 0105 00290000 * DMCBLSCP=ADDR(DMCBCARY(DIM(DMCBCARY)));/* INIT AUDIT TRAIL PNTR */ 00291000 LA @10,DMCBCARY+40(,DMCBPTR) 0106 00292000 ST @10,DMCBLSCP(,DMCBPTR) 0106 00293000 * END INIT; /* INITIALIZE THE DMCB AND DMAL */ 00294000 @EL00003 DS 0H 0107 00295000 @EF00003 DS 0H 0107 00296000 @ER00003 LM @14,@12,12(@13) 0107 00297000 BR @14 0107 00298000 EJECT 00299000 * 0108 00300000 * /*****************************************************************/ 00301000 * /* */ 00302000 * /* PROCEDURE STATEMENTS END */ 00303000 * /* */ 00304000 * /*****************************************************************/ 00305000 * 0108 00306000 * DECLARE /* GENERAL PURPOSE REGISTERS */ 00307000 * GPR01P PTR(31) REG(1); 0108 00308000 * DECLARE /* COMMON VARIABLES */ 00309000 * I256C CHAR(256) BASED, 0109 00310000 * I031F FIXED(31) BASED, 0109 00311000 * I031P PTR(31) BASED, 0109 00312000 * I015F FIXED(15) BASED, 0109 00313000 * I015P PTR(15) BASED, 0109 00314000 * I008P PTR(8) BASED, 0109 00315000 * I001C CHAR(1) BASED; 0109 00316000 * DECLARE 0110 00317000 * IOPTLIST(3) PTR(31) BDY(WORD);/* OPTION LIST ARRAY */ 00318000 * GENERATE DATA DEFS(ELIST); 0111 00319000 * DCL 0112 00320000 * 1 DASPATCH LOCAL BDY(DWORD), /* PATCH AREA */ 00321000 * 2 DASPATA(DASPATLN) PTR INIT((DASPATLN)0); 0112 00322000 * END BLSCAINT 0113 00323000 * 0113 00324000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00325000 */*%INCLUDE SYSLIB (BLSCAMOM) */ 00326000 * 0113 00327000 * ; 0113 00328000 @EL00001 L @13,4(,@13) 0113 00329000 @EF00001 L @00,@SIZDATD 0113 00330000 LR @01,@11 0113 00331000 BLSCFRES R,LV=(0),A=(1) 00332000 @ER00001 LM @14,@12,12(@13) 0113 00333000 BR @14 0113 00334000 @DATA DS 0H 00335000 @DATD DSECT 00336000 DS 0F 00337000 @SA00001 DS 18F 00338000 @SA00002 DS 15F 00339000 @AL00001 DS 6A 00340000 @AFTEMPS DS 1F 00341000 BLSCAINT CSECT 00342000 DS 0F 00343000 @CF00190 DC F'0' 00344000 @CF00044 DC F'8' 00345000 @CH00044 EQU @CF00044+2 00346000 @CF00294 DC F'3100' 00347000 @CF00296 DC F'3101' 00348000 @CF00287 DC XL4'80000000' 00349000 @DATD DSECT 00350000 DS 0D 00351000 MMTUP DS AL4 00352000 ORG MMTUP 00353000 MMTUPND DS BL1 00354000 ORG MMTUP+4 00355000 MODSTAT DS CL16 00356000 ORG MODSTAT 00357000 MODNAME DS CL8 00358000 RETCODE DS FL4 00359000 SUBCODE DS FL4 00360000 ORG MODSTAT+16 00361000 IOPTLIST DS 3A 00362000 BLSCAINT CSECT 00363000 DS 0F 00364000 @SIZDATD DC AL1(0) 00365000 DC AL3(@ENDDATD-@DATD) 00366000 @CV00264 DC V(BLSCAMOD) 00367000 @CV00265 DC V(BLSCFREE) 00368000 @CV00266 DC V(BLSCRQST) 00369000 @CV00267 DC V(BLSCRECV) 00370000 DS 0D 00371000 @CC00304 DC C'BLSCAINT' 00372000 @CC00306 DC C'DASFUNCT' 00373000 @CC00300 DC C'DMCB' 00374000 @CC00302 DC C'DMAL' 00375000 @CB00315 DC B'00000000' 00376000 DS CL7 00377000 DASPATCH DS CL80 00378000 ORG DASPATCH 00379000 DASPATA DC 20A(0) 00380000 ORG DASPATCH+80 00381000 BLSCAINT CSECT 00382000 * /* 00383000 ELIST ESTAE 0,MF=L 00384000 @DATD DSECT 00385000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00386000 @ENDDATD EQU * 00387000 BLSCAINT CSECT 00388000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00389000 @01 EQU 01 00390000 @02 EQU 02 00391000 @03 EQU 03 00392000 @04 EQU 04 00393000 @05 EQU 05 00394000 @06 EQU 06 00395000 @07 EQU 07 00396000 @08 EQU 08 00397000 @09 EQU 09 00398000 @10 EQU 10 00399000 @11 EQU 11 00400000 @12 EQU 12 00401000 @13 EQU 13 00402000 @14 EQU 14 00403000 @15 EQU 15 00404000 MODWKPTR EQU @05 00405000 MODELPTR EQU @04 00406000 DMCBPTR EQU @03 00407000 GPR01P EQU @01 00408000 DMCB EQU 0 00409000 DMCBID EQU DMCB 00410000 DMCBTVP EQU DMCB+8 00411000 DMCBFTY EQU DMCB+20 00412000 DMCBKSF EQU DMCBFTY 00413000 DMCBVSF EQU DMCBFTY 00414000 DMCBOPN EQU DMCB+21 00415000 DMCBRMOD EQU DMCB+23 00416000 DMCBOUT EQU DMCBRMOD 00417000 DMCBOPTS EQU DMCB+24 00418000 DMCBGKY EQU DMCBOPTS 00419000 DMCBMFLG EQU DMCB+28 00420000 DMCBBUFP EQU DMCB+32 00421000 DMCBBLEN EQU DMCB+36 00422000 DMCBORL EQU DMCB+40 00423000 DMCBKEYP EQU DMCB+44 00424000 DMCBKEYL EQU DMCB+48 00425000 DMCBMSG EQU DMCB+52 00426000 DMCBRRL EQU DMCB+60 00427000 DMCBRI EQU DMCB+64 00428000 DMCBMSG0 EQU DMCB+68 00429000 DMCBMSGS EQU DMCB+72 00430000 DMCBFRE EQU DMCB+88 00431000 DMCBEOB EQU DMCB+92 00432000 DMCBSTL EQU DMCB+96 00433000 DMCBACBE EQU DMCB+124 00434000 DMCBMODL EQU DMCB+348 00435000 DMCBSPTY EQU DMCB+369 00436000 DMCBSPPR EQU DMCB+372 00437000 DMCBSPSE EQU DMCB+376 00438000 DMCBSPEC EQU DMCB+380 00439000 DMCBLBSQ EQU DMCB+384 00440000 DMCBDRBP EQU DMCB+400 00441000 DMCBFR EQU DMCB+412 00442000 DMCBAMS EQU DMCB+416 00443000 DMCBAUDT EQU DMCB+568 00444000 DMCBLSCP EQU DMCBAUDT+16 00445000 DMCBCARY EQU DMCBAUDT+20 00446000 DMCBMODN EQU DMCB+632 00447000 DMCBWRK EQU DMCB+648 00448000 MODELNAM EQU 0 00449000 MODLMAP EQU 0 00450000 MMNXMOD EQU MODLMAP 00451000 MMNAME EQU MODLMAP+8 00452000 MMACBDCB EQU MODLMAP+16 00453000 MMRPLP EQU MODLMAP+20 00454000 MMOPCLP EQU MODLMAP+24 00455000 MMDYRBP EQU MODLMAP+28 00456000 MMAMSLP EQU MODLMAP+32 00457000 MMRRL EQU MODLMAP+36 00458000 MMACB EQU 0 00459000 MMACBID EQU MMACB 00460000 MMRPL EQU 0 00461000 MMDCB EQU 0 00462000 MMDYRB EQU 0 00463000 MMAMSREC EQU 0 00464000 MMTUPL EQU 0 00465000 MMTUPTR EQU MMTUPL 00466000 MMTUNIT EQU 0 00467000 MMTUENT EQU MMTUNIT+4 00468000 BLSDMSGS EQU 0 00469000 BLSDMSG0 EQU 0 00470000 ZZ2 EQU 0 00471000 ESTENT EQU 0 00472000 ESTEXIT EQU ESTENT+1 00473000 ESTEPL EQU ESTENT+4 00474000 I015F EQU 0 00475000 DMCBDMGR EQU 0 00476000 DMCBRQC EQU 0 00477000 I001C EQU 0 00478000 I008P EQU 0 00479000 I015P EQU 0 00480000 I031F EQU 0 00481000 I031P EQU 0 00482000 I256C EQU 0 00483000 MMAMSL EQU 0 00484000 MMOPCL EQU 0 00485000 DMCBVSM EQU DMCBAMS 00486000 DMCBRPL EQU DMCBVSM 00487000 DMCBACB EQU DMCBVSM+76 00488000 DMCBQSM EQU DMCBAMS 00489000 DMCBDCB EQU DMCBQSM 00490000 DMAL EQU DMCBWRK 00491000 DMALID EQU DMAL 00492000 DMALMODA EQU DMAL+4 00493000 DMALMODP EQU DMAL+12 00494000 DMALDYRB EQU DMAL+16 00495000 DMCBSPT1 EQU DMCBSPTY 00496000 RPLDACB EQU DMCBRPL+24 00497000 MMACBMCF EQU MMACB+12 00498000 MMACBMC1 EQU MMACBMCF 00499000 MMACBKEY EQU MMACBMC1 00500000 MMRB EQU MMDYRB 00501000 MMRSC EQU MMRB+4 00502000 MMTXTPP EQU MMRB+8 00503000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00504000 MMFLAG2 EQU MMRB+16 00505000 MMRSV01 EQU MMRB+12 00506000 MMINFO EQU MMRSC+2 00507000 MMERROR EQU MMRSC 00508000 MMFLAG1 EQU MMRB+2 00509000 MMVERB EQU MMRB+1 00510000 MMRBLN EQU MMRB 00511000 DMALEND EQU DMAL+1196 00512000 DMALTUS EQU DMAL+172 00513000 DMALTUPL EQU DMAL+44 00514000 DMALTUBS EQU DMAL+40 00515000 DMALTUPM EQU DMAL+36 00516000 DMALPRMP EQU DMAL+8 00517000 DMCBRES7 EQU DMCBQSM+96 00518000 ESTRESV EQU ESTENT+13 00519000 ESTFLG2 EQU ESTENT+12 00520000 ESTTCB EQU ESTENT+8 00521000 ESTFLGS EQU ESTENT 00522000 MMTUPAR EQU MMTUENT+2 00523000 MMTULNG EQU MMTUENT 00524000 MMTUNUM EQU MMTUNIT+2 00525000 MMTUKEY EQU MMTUNIT 00526000 MMTUPLN EQU MMTUPTR 00527000 MMAMSTXT EQU MMAMSREC+4 00528000 MMAMSPAD EQU MMAMSREC+2 00529000 MMAMSLEN EQU MMAMSREC 00530000 MMRESV1 EQU MODLMAP+4 00531000 DMCBRES8 EQU DMCB+640 00532000 DMCBCLC EQU DMCBAUDT+12 00533000 DMCBOPC EQU DMCBAUDT+8 00534000 DMCBFRC EQU DMCBAUDT+4 00535000 DMCBALC EQU DMCBAUDT 00536000 DMCBRES6 EQU DMCB+410 00537000 DMCBIRSC EQU DMCB+408 00538000 DMCBSUBC EQU DMCB+404 00539000 DMCBRSZM EQU DMCB+398 00540000 DMCBRSZA EQU DMCB+396 00541000 DMCBCISZ EQU DMCB+394 00542000 DMCBDCBL EQU DMCB+392 00543000 DMCBDCLR EQU DMCB+390 00544000 DMCBDCFM EQU DMCB+389 00545000 DMCBRES5 EQU DMCB+388 00546000 DMCBLBRT EQU DMCB+386 00547000 DMCBLBPS EQU DMCB+383 00548000 DMCBLBTY EQU DMCB+382 00549000 DMCBRES4 EQU DMCB+381 00550000 DMCBSPRS EQU DMCBSPEC 00551000 DMCBSPRN EQU DMCBSPEC 00552000 DMCBSPCT EQU DMCBSPEC 00553000 DMCBSPRL EQU DMCBSPEC 00554000 DMCBODIS EQU DMCB+368 00555000 DMCBDISP EQU DMCB+367 00556000 DMCBSTAT EQU DMCB+366 00557000 DMCBRES3 EQU DMCB+364 00558000 DMCBMEMB EQU DMCB+356 00559000 DMCBRES9 EQU DMCB+340 00560000 DMCBPID EQU DMCB+332 00561000 DMCBTYPE EQU DMCB+328 00562000 DMCBDSN EQU DMCB+284 00563000 DMCBUNIT EQU DMCB+276 00564000 DMCBDSOR EQU DMCB+274 00565000 DMCBVOL EQU DMCB+268 00566000 DMCBDDNM EQU DMCB+260 00567000 DMCBSYNM EQU DMCB+132 00568000 DMCBRPLF EQU DMCB+128 00569000 DMCBDCBE EQU DMCBACBE 00570000 DMCBARC EQU DMCB+120 00571000 DMCBCPC EQU DMCB+116 00572000 DMCBRET EQU DMCB+112 00573000 DMCBRES2 EQU DMCB+85 00574000 DMCBSPID EQU DMCB+84 00575000 DMCBRESC EQU DMCB+80 00576000 DMCBZZ1P EQU DMCB+76 00577000 DMCBRBA EQU DMCB+56 00578000 DMCBKPC EQU DMCBKEYP 00579000 DMCBBFPC EQU DMCBBUFP 00580000 DMCBRES1 EQU DMCB+31 00581000 DMCBACCM EQU DMCB+30 00582000 DMCBREJ EQU DMCB+29 00583000 DMCBRESB EQU DMCBMFLG 00584000 DMCBFMOD EQU DMCBMFLG 00585000 DMCBLOPT EQU DMCB+27 00586000 DMCBLRM EQU DMCB+26 00587000 DMCBLRQ EQU DMCB+25 00588000 DMCBOPRS EQU DMCBOPTS 00589000 DMCBLRD EQU DMCBOPTS 00590000 DMCBBWD EQU DMCBOPTS 00591000 DMCBUPD EQU DMCBOPTS 00592000 DMCBAPX EQU DMCBOPTS 00593000 DMCBRNO EQU DMCBGKY 00594000 DMCBKYD EQU DMCBOPTS 00595000 DMCBRMRS EQU DMCBRMOD 00596000 DMCBRM5 EQU DMCBRMOD 00597000 DMCBRM6 EQU DMCBRMOD 00598000 DMCBTMP EQU DMCBOUT 00599000 DMCBRQST EQU DMCB+22 00600000 DMCBRESA EQU DMCBOPN 00601000 DMCBSOUT EQU DMCBOPN 00602000 DMCBSIN EQU DMCBOPN 00603000 DMCBFTRS EQU DMCBFTY 00604000 DMCBSHF EQU DMCBFTY 00605000 DMCBIRL EQU DMCB+16 00606000 DMCBRTC EQU DMCB+12 00607000 DMCBNEXT EQU DMCB+4 00608000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00609000 @RC00054 EQU @EL00002 00610000 @RF00085 EQU @RC00073 00611000 @ENDDATA EQU * 00612000 END BLSCAINT,(C'PLS1814',0701,78062) 00613000