TITLE 'EP=BLSCVALT -- IPCS DAS OPEN REQUEST VALIDATION *00001000 ' 00002000 * /* CHANGE ACTIVITY 00003000 * THIS MODULE IS WRITTEN FOR @G57LPSR 00004000 BLSCVALT CSECT , 0002 00005000 @MAINENT DS 0H 0002 00006000 USING *,@15 0002 00007000 B @PROLOG 0002 00008000 DC AL1(16) 0002 00009000 DC C'BLSCVALT 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 BLSCGETF 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(4),0(@01) 0002 00024000 EJECT 00025000 * 0119 00026000 * /*****************************************************************/ 00027000 * /* */ 00028000 * /* INITIALIZE MODULE STATUS */ 00029000 * /* */ 00030000 * /*****************************************************************/ 00031000 * 0119 00032000 * DMCBPTR=ADDR(DMCBPARM); /* BASE THE DMCB */ 00033000 L DMCBPTR,@PC00001 0119 00034000 * MODNAME=LMODNMC; 0120 00035000 MVC MODNAME(8),@CC00933 0120 00036000 * RETCODE=F0C; 0121 00037000 SLR @10,@10 0121 00038000 ST @10,RETCODE 0121 00039000 * IF DMCBDSN=FPPDDS& /* TEST IF PDR IS BEING OPENED */ 00040000 * ZZ1DSDP->DMCBOPN^=LHEX0C THEN/* AND THE DSD IS OPEN */ 00041000 L @10,DMCBTVP(,DMCBPTR) 0122 00042000 L @10,ZZ2ZZ1P(,@10) 0122 00043000 L @03,ZZ1FPP(,@10) 0122 00044000 CLC DMCBDSN(44,DMCBPTR),FPPDDS(@03) 0122 00045000 BNE @RF00122 0122 00046000 L @10,ZZ1DSDP(,@10) 0122 00047000 CLI DMCBOPN(@10),X'00' 0122 00048000 BE @RF00122 0122 00049000 * RETCODE=ERROR; /* USER MUST NOT HAVE DSD OPEN 0123 00050000 * WHEN OPENING THE PDR */ 00051000 MVC RETCODE(4),@CF00048 0123 00052000 * RETURN CODE(RETCODE); 0124 00053000 @RF00122 L @10,RETCODE 0124 00054000 L @13,4(,@13) 0124 00055000 L @00,@SIZDATD 0124 00056000 LR @01,@11 0124 00057000 BLSCFREF R,LV=(0),A=(1) 00058000 LR @15,@10 0124 00059000 L @14,12(,@13) 0124 00060000 LM @00,@12,20(@13) 0124 00061000 BR @14 0124 00062000 EJECT 00063000 * 0125 00064000 * /*****************************************************************/ 00065000 * /* */ 00066000 * /* PROCEDURE STATEMENTS END */ 00067000 * /* */ 00068000 * /*****************************************************************/ 00069000 * 0125 00070000 */*BLSUPEND--MVS IPCS MODULE */ 00071000 * 0125 00072000 * DECLARE /* COMMON VARIABLES */ 00073000 * I256C CHAR(256) BASED, 0125 00074000 * I031F FIXED(31) BASED, 0125 00075000 * I031P PTR(31) BASED, 0125 00076000 * I015F FIXED(15) BASED, 0125 00077000 * I015P PTR(15) BASED, 0125 00078000 * I008P PTR(8) BASED, 0125 00079000 * I001C CHAR(1) BASED; 0125 00080000 * GENERATE NODEFS NOREFS DATA; 0126 00081000 * END /* BLRPEND */ 00082000 * 0127 00083000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00084000 */*%INCLUDE SYSLIB (BLSUZZZ ) */ 00085000 */*%INCLUDE SYSLIB (BLRFULL ) */ 00086000 */*%INCLUDE SYSLIB (IKJCPPL ) */ 00087000 */*%INCLUDE SYSLIB (IKJPSCB ) */ 00088000 */*%INCLUDE SYSLIB (IKJECT ) */ 00089000 */*%INCLUDE SYSLIB (IKJUPT ) */ 00090000 */*%INCLUDE SYSLIB (BLSUSERV) */ 00091000 */*%INCLUDE SYSLIB (BLRSERV ) */ 00092000 */*%INCLUDE SYSLIB (BLRSERVD) */ 00093000 */*%INCLUDE SYSLIB (BLSDSERV) */ 00094000 */*%INCLUDE SYSLIB (BLSFP ) */ 00095000 * 0127 00096000 * ; 0127 00097000 @EL00001 L @13,4(,@13) 0127 00098000 @EF00001 L @00,@SIZDATD 0127 00099000 LR @01,@11 0127 00100000 BLSCFREF R,LV=(0),A=(1) 00101000 @ER00001 LM @14,@12,12(@13) 0127 00102000 BR @14 0127 00103000 @DATA DS 0H 00104000 @DATD DSECT 00105000 DS 0F 00106000 @SA00001 DS 18F 00107000 @PC00001 DS 1F 00108000 BLSCVALT CSECT 00109000 DS 0F 00110000 @CF00048 DC F'8' 00111000 @DATD DSECT 00112000 DS 0D 00113000 MODSTAT DS CL12 00114000 ORG MODSTAT 00115000 MODNAME DS CL8 00116000 RETCODE DS FL4 00117000 ORG MODSTAT+12 00118000 BLSCVALT CSECT 00119000 DS 0F 00120000 @SIZDATD DC AL1(0) 00121000 DC AL3(@ENDDATD-@DATD) 00122000 DS 0D 00123000 @CC00933 DC C'BLSCVALT' 00124000 @DATD DSECT 00125000 SPACE 2 00126000 *********************************************************************** 00127000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00128000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00129000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00130000 *********************************************************************** 00131000 SPACE 00132000 BLSCVALT CSECT 00133000 ORG 00134000 DS 0D 00135000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSCVALT+19)/20+7)/8)CL8'BLSCVALT' 00136000 @DATD DSECT 00137000 SPACE 2 00138000 *********************************************************************** 00139000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00140000 *********************************************************************** 00141000 SPACE 00142000 DS 0D 00143000 @DATD DSECT 00144000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00145000 @ENDDATD EQU * 00146000 BLSCVALT CSECT 00147000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00148000 @01 EQU 01 00149000 @02 EQU 02 00150000 @03 EQU 03 00151000 @04 EQU 04 00152000 @05 EQU 05 00153000 @06 EQU 06 00154000 @07 EQU 07 00155000 @08 EQU 08 00156000 @09 EQU 09 00157000 @10 EQU 10 00158000 @11 EQU 11 00159000 @12 EQU 12 00160000 @13 EQU 13 00161000 @14 EQU 14 00162000 @15 EQU 15 00163000 DMCBPTR EQU @02 00164000 R0 EQU @00 00165000 R1 EQU @01 00166000 R2 EQU @02 00167000 R3 EQU @03 00168000 R4 EQU @04 00169000 R5 EQU @05 00170000 R9 EQU @09 00171000 RB EQU @11 00172000 RD EQU @13 00173000 RE EQU @14 00174000 RF EQU @15 00175000 RA EQU @10 00176000 RC EQU @12 00177000 R6 EQU @06 00178000 R7 EQU @07 00179000 R8 EQU @08 00180000 ZZ1 EQU 0 00181000 ZZ1DSDP EQU ZZ1+44 00182000 ZZ1FPP EQU ZZ1+140 00183000 ZZ1ATTN EQU ZZ1+360 00184000 ZZ1EVE EQU ZZ1ATTN+4 00185000 ZZ1F EQU ZZ1+368 00186000 ZZ1N EQU ZZ1+1116 00187000 ZZ2 EQU 0 00188000 ZZ2AMD EQU ZZ2 00189000 @NM00013 EQU ZZ2AMD+7 00190000 ZZ2PRT EQU ZZ2+138 00191000 ZZ2PRTT EQU ZZ2PRT+4 00192000 ZZ2PRTT1 EQU ZZ2PRTT+1 00193000 ZZ2A EQU ZZ2+272 00194000 ZZ2AF EQU ZZ2A+16 00195000 ZZ2APID EQU ZZ2A+64 00196000 ZZ2AD EQU ZZ2A+74 00197000 ZZ2ADD EQU ZZ2AD 00198000 ZZ2ADDT EQU ZZ2ADD+2 00199000 ZZ2ADM EQU ZZ2AD+46 00200000 ZZ2ADMT EQU ZZ2ADM+2 00201000 ZZ2ADP EQU ZZ2AD+56 00202000 ZZ2ADPT EQU ZZ2ADP+2 00203000 ZZ2AQAS EQU ZZ2A+144 00204000 ZZ2AQD EQU ZZ2A+160 00205000 ZZ2AQDT EQU ZZ2AQD+10 00206000 ZZ2AQDF EQU ZZ2AQD+52 00207000 ZZ2STG EQU ZZ2+960 00208000 ZZ2ALLOP EQU ZZ2+992 00209000 ZZ2FREEP EQU ZZ2+996 00210000 ZZ2FF19P EQU ZZ2+1000 00211000 ZZ2FRE1P EQU ZZ2+1004 00212000 ZZ2FF18P EQU ZZ2+1008 00213000 ZZ2DYNAP EQU ZZ2+1012 00214000 ZZ2ZZ2CP EQU ZZ2+1016 00215000 ZZ2ZZ2DP EQU ZZ2+1020 00216000 ZZ2STAIP EQU ZZ2+1024 00217000 ZZ2FF02P EQU ZZ2+1028 00218000 ZZ2GETLP EQU ZZ2+1032 00219000 ZZ2PARSP EQU ZZ2+1036 00220000 ZZ2PTGTP EQU ZZ2+1040 00221000 ZZ2PUTLP EQU ZZ2+1044 00222000 ZZ2SCANP EQU ZZ2+1048 00223000 ZZ2STCKP EQU ZZ2+1052 00224000 ZZ2ALOCP EQU ZZ2+1056 00225000 ZZ2MSGSP EQU ZZ2+1060 00226000 ZZ2TRMOP EQU ZZ2+1064 00227000 ZZ2TRMVP EQU ZZ2+1068 00228000 ZZ2MSG0P EQU ZZ2+1076 00229000 ZZ2PUTNP EQU ZZ2+1084 00230000 ZZ2TRMNP EQU ZZ2+1088 00231000 ZZ2ENQ0P EQU ZZ2+1092 00232000 ZZ2ADSDP EQU ZZ2+1096 00233000 ZZ2APDRP EQU ZZ2+1100 00234000 ZZ2FDSDP EQU ZZ2+1104 00235000 ZZ2FPDRP EQU ZZ2+1108 00236000 ZZ2ZZ1P EQU ZZ2+1264 00237000 ZZ2DVTP EQU ZZ2+1276 00238000 ZZ2BVTP EQU ZZ2+1280 00239000 ZZ2CPPL EQU ZZ2+1292 00240000 ZZ2CPPLC EQU ZZ2CPPL 00241000 ZZ2ITR EQU ZZ2+2840 00242000 ZZ2ITRE EQU ZZ2ITR+16 00243000 ZZ2ITSE EQU ZZ2+2864 00244000 ZZ2ES EQU ZZ2+2872 00245000 ZZ2AMDX EQU ZZ2+7160 00246000 ZZ2AXO EQU ZZ2+7934 00247000 ZZ2AXOT EQU ZZ2AXO+2 00248000 CMD EQU 0 00249000 CMDT EQU CMD+4 00250000 PSCB EQU 0 00251000 PSCBATR1 EQU PSCB+16 00252000 ECT EQU 0 00253000 ECTSWS EQU ECT+28 00254000 ECTSWS2 EQU ECT+40 00255000 ECTSWS21 EQU ECTSWS2 00256000 UPT EQU 0 00257000 UPTSWS EQU UPT+12 00258000 SA EQU 0 00259000 SA1 EQU SA 00260000 SAR EQU SA+12 00261000 BVT EQU 0 00262000 BVTPUTLP EQU BVT+4 00263000 BVTPUTOP EQU BVT+12 00264000 BVTPUTTP EQU BVT+16 00265000 BVTPUTVP EQU BVT+20 00266000 BVTPUTAP EQU BVT+24 00267000 BVTPRTTP EQU BVT+28 00268000 BVTPRTAP EQU BVT+32 00269000 BVTPUTDP EQU BVT+36 00270000 BVTMONP EQU BVT+40 00271000 BVTMON2P EQU BVT+44 00272000 BVTVSARP EQU BVT+48 00273000 BVTVSENP EQU BVT+64 00274000 BVTVSERP EQU BVT+68 00275000 BVTVSGEP EQU BVT+72 00276000 BVTVSGUP EQU BVT+76 00277000 BVTVSPOP EQU BVT+80 00278000 BVTVSPUP EQU BVT+84 00279000 BVTMPKNP EQU BVT+104 00280000 BVTMONLP EQU BVT+108 00281000 BVTPUTCP EQU BVT+132 00282000 BVTMPK1P EQU BVT+136 00283000 BVTZZ2RP EQU BVT+140 00284000 BVTPGMRP EQU BVT+144 00285000 BVTMONAP EQU BVT+148 00286000 BVTBLDDP EQU BVT+152 00287000 BVTBLDLP EQU BVT+156 00288000 BVTPGMCP EQU BVT+160 00289000 BVTPGMDP EQU BVT+164 00290000 BVTPGMLP EQU BVT+168 00291000 BVTMONCP EQU BVT+180 00292000 BVTMONDP EQU BVT+184 00293000 BVTMONTP EQU BVT+188 00294000 BVTPARIP EQU BVT+192 00295000 BVTPARUP EQU BVT+196 00296000 BVTPRTNP EQU BVT+204 00297000 BVTVSCRP EQU BVT+208 00298000 BVTVSMRP EQU BVT+212 00299000 BVTMONXP EQU BVT+216 00300000 BVTTRMAP EQU BVT+228 00301000 DVT EQU 0 00302000 DVTDEQPP EQU DVT+8 00303000 DVTENQPP EQU DVT+12 00304000 DVTAUTHP EQU DVT+20 00305000 DVTLPCLP EQU DVT+24 00306000 DVTBP00P EQU DVT+28 00307000 DVTCN00P EQU DVT+32 00308000 DVTDF00P EQU DVT+36 00309000 DVTDS00P EQU DVT+44 00310000 DVTFL00P EQU DVT+48 00311000 DVTFP00P EQU DVT+52 00312000 DVTGD00P EQU DVT+56 00313000 DVTGG00P EQU DVT+60 00314000 DVTGP00P EQU DVT+64 00315000 DVTND00P EQU DVT+68 00316000 DVTND01P EQU DVT+72 00317000 DVTOD00P EQU DVT+76 00318000 DVTPS00P EQU DVT+80 00319000 DVTSD00P EQU DVT+84 00320000 DVTSL00P EQU DVT+88 00321000 DVTTL00P EQU DVT+92 00322000 DVTUD00P EQU DVT+96 00323000 DVTUP00P EQU DVT+100 00324000 DVTLP00P EQU DVT+104 00325000 DVTLALLP EQU DVT+108 00326000 DVTLPFMP EQU DVT+112 00327000 DVTCLOSP EQU DVT+116 00328000 DVTOPENP EQU DVT+120 00329000 DVTPERAP EQU DVT+124 00330000 DVTDALLP EQU DVT+128 00331000 FPBLOK EQU 0 00332000 FPPDDS EQU FPBLOK 00333000 FPADMNM EQU FPBLOK+120 00334000 FPDELNM EQU FPBLOK+128 00335000 DMCB EQU 0 00336000 DMCBTVP EQU DMCB+8 00337000 DMCBFTY EQU DMCB+20 00338000 DMCBOPN EQU DMCB+21 00339000 DMCBRMOD EQU DMCB+23 00340000 DMCBOUT EQU DMCBRMOD 00341000 DMCBOPTS EQU DMCB+24 00342000 DMCBGKY EQU DMCBOPTS 00343000 DMCBMFLG EQU DMCB+28 00344000 DMCBBUFP EQU DMCB+32 00345000 DMCBKEYP EQU DMCB+44 00346000 DMCBRI EQU DMCB+64 00347000 DMCBFRE EQU DMCB+88 00348000 DMCBEOB EQU DMCB+92 00349000 DMCBACBE EQU DMCB+124 00350000 DMCBDSN EQU DMCB+284 00351000 DMCBSPEC EQU DMCB+380 00352000 DMCBAMS EQU DMCB+416 00353000 DMCBAUDT EQU DMCB+568 00354000 DMCBLSCP EQU DMCBAUDT+16 00355000 BLSCALOC EQU 0 00356000 BLSDADSD EQU 0 00357000 BLSDAPDR EQU 0 00358000 BLSDDEQP EQU 0 00359000 BLSDENQP EQU 0 00360000 BLSDENQ0 EQU 0 00361000 BLSDFDSD EQU 0 00362000 BLSDFPDR EQU 0 00363000 BLSDMSGS EQU 0 00364000 BLSDMSG0 EQU 0 00365000 BLSEAUTH EQU 0 00366000 BLSELPCL EQU 0 00367000 BLSELPFM EQU 0 00368000 BLSFBP00 EQU 0 00369000 BLSFCLOS EQU 0 00370000 BLSFCN00 EQU 0 00371000 BLSFDALL EQU 0 00372000 BLSFDF00 EQU 0 00373000 BLSFDS00 EQU 0 00374000 BLSFFL00 EQU 0 00375000 BLSFFP00 EQU 0 00376000 BLSFGD00 EQU 0 00377000 BLSFGG00 EQU 0 00378000 BLSFGP00 EQU 0 00379000 BLSFLALL EQU 0 00380000 BLSFLP00 EQU 0 00381000 BLSFND00 EQU 0 00382000 BLSFND01 EQU 0 00383000 BLSFOD00 EQU 0 00384000 BLSFOPEN EQU 0 00385000 BLSFPERA EQU 0 00386000 BLSFPS00 EQU 0 00387000 BLSFSD00 EQU 0 00388000 BLSFSL00 EQU 0 00389000 BLSFTL00 EQU 0 00390000 BLSFUD00 EQU 0 00391000 BLSFUP00 EQU 0 00392000 BLSUALLO EQU 0 00393000 BLSUBLDD EQU 0 00394000 BLSUBLDL EQU 0 00395000 BLSUDYNA EQU 0 00396000 BLSUFREE EQU 0 00397000 BLSUFRE1 EQU 0 00398000 BLSUMON EQU 0 00399000 BLSUMONA EQU 0 00400000 BLSUMONC EQU 0 00401000 BLSUMOND EQU 0 00402000 BLSUMONL EQU 0 00403000 BLSUMONT EQU 0 00404000 BLSUMONX EQU 0 00405000 BLSUMON2 EQU 0 00406000 BLSUMPKN EQU 0 00407000 BLSUMPK1 EQU 0 00408000 BLSUPARI EQU 0 00409000 BLSUPARU EQU 0 00410000 BLSUPGMC EQU 0 00411000 BLSUPGMD EQU 0 00412000 BLSUPGML EQU 0 00413000 BLSUPGMR EQU 0 00414000 BLSUPRTA EQU 0 00415000 BLSUPRTN EQU 0 00416000 BLSUPRTT EQU 0 00417000 BLSUPUTA EQU 0 00418000 BLSUPUTC EQU 0 00419000 BLSUPUTD EQU 0 00420000 BLSUPUTL EQU 0 00421000 BLSUPUTN EQU 0 00422000 BLSUPUTO EQU 0 00423000 BLSUPUTT EQU 0 00424000 BLSUPUTV EQU 0 00425000 BLSUSTAI EQU 0 00426000 BLSUTRMA EQU 0 00427000 BLSUTRMN EQU 0 00428000 BLSUTRMO EQU 0 00429000 BLSUTRMV EQU 0 00430000 BLSUVSAR EQU 0 00431000 BLSUVSCR EQU 0 00432000 BLSUVSEN EQU 0 00433000 BLSUVSER EQU 0 00434000 BLSUVSGE EQU 0 00435000 BLSUVSGU EQU 0 00436000 BLSUVSMR EQU 0 00437000 BLSUVSPO EQU 0 00438000 BLSUVSPU EQU 0 00439000 BLSUZZ2C EQU 0 00440000 BLSUZZ2D EQU 0 00441000 BLSUZZ2R EQU 0 00442000 DMCBDMGR EQU 0 00443000 DMCBRQC EQU 0 00444000 IKJEFF02 EQU 0 00445000 IKJEFF18 EQU 0 00446000 IKJEFF19 EQU 0 00447000 IKJGETL EQU 0 00448000 IKJPARS EQU 0 00449000 IKJPTGT EQU 0 00450000 IKJPUTL EQU 0 00451000 IKJSCAN EQU 0 00452000 IKJSTCK EQU 0 00453000 I001C EQU 0 00454000 I008P EQU 0 00455000 I015F EQU 0 00456000 I015P EQU 0 00457000 I031F EQU 0 00458000 I031P EQU 0 00459000 I256C EQU 0 00460000 DMCBPARM EQU 0 00461000 CPPL EQU ZZ2CPPL 00462000 CPPLUPT EQU CPPL+4 00463000 CPPLPSCB EQU CPPL+8 00464000 CPPLECT EQU CPPL+12 00465000 DMCBVSM EQU DMCBAMS 00466000 DMCBQSM EQU DMCBAMS 00467000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00468000 DMCBRES7 EQU DMCBQSM+96 00469000 DMCBDCB EQU DMCBQSM 00470000 DMCBACB EQU DMCBVSM+76 00471000 DMCBRPL EQU DMCBVSM 00472000 CPPLCBUF EQU CPPL 00473000 DMCBWRK EQU DMCB+648 00474000 DMCBRES8 EQU DMCB+640 00475000 DMCBMODN EQU DMCB+632 00476000 DMCBCARY EQU DMCBAUDT+20 00477000 DMCBCLC EQU DMCBAUDT+12 00478000 DMCBOPC EQU DMCBAUDT+8 00479000 DMCBFRC EQU DMCBAUDT+4 00480000 DMCBALC EQU DMCBAUDT 00481000 DMCBFR EQU DMCB+412 00482000 DMCBRES6 EQU DMCB+410 00483000 DMCBIRSC EQU DMCB+408 00484000 DMCBSUBC EQU DMCB+404 00485000 DMCBDRBP EQU DMCB+400 00486000 DMCBRSZM EQU DMCB+398 00487000 DMCBRSZA EQU DMCB+396 00488000 DMCBCISZ EQU DMCB+394 00489000 DMCBDCBL EQU DMCB+392 00490000 DMCBDCLR EQU DMCB+390 00491000 DMCBDCFM EQU DMCB+389 00492000 DMCBRES5 EQU DMCB+388 00493000 DMCBLBRT EQU DMCB+386 00494000 DMCBLBSQ EQU DMCB+384 00495000 DMCBLBPS EQU DMCB+383 00496000 DMCBLBTY EQU DMCB+382 00497000 DMCBRES4 EQU DMCB+381 00498000 DMCBSPRS EQU DMCBSPEC 00499000 DMCBSPRN EQU DMCBSPEC 00500000 DMCBSPCT EQU DMCBSPEC 00501000 DMCBSPRL EQU DMCBSPEC 00502000 DMCBSPSE EQU DMCB+376 00503000 DMCBSPPR EQU DMCB+372 00504000 DMCBSPTY EQU DMCB+369 00505000 DMCBODIS EQU DMCB+368 00506000 DMCBDISP EQU DMCB+367 00507000 DMCBSTAT EQU DMCB+366 00508000 DMCBRES3 EQU DMCB+364 00509000 DMCBMEMB EQU DMCB+356 00510000 DMCBMODL EQU DMCB+348 00511000 DMCBRES9 EQU DMCB+340 00512000 DMCBPID EQU DMCB+332 00513000 DMCBTYPE EQU DMCB+328 00514000 DMCBUNIT EQU DMCB+276 00515000 DMCBDSOR EQU DMCB+274 00516000 DMCBVOL EQU DMCB+268 00517000 DMCBDDNM EQU DMCB+260 00518000 DMCBSYNM EQU DMCB+132 00519000 DMCBRPLF EQU DMCB+128 00520000 DMCBDCBE EQU DMCBACBE 00521000 DMCBARC EQU DMCB+120 00522000 DMCBCPC EQU DMCB+116 00523000 DMCBRET EQU DMCB+112 00524000 DMCBSTL EQU DMCB+96 00525000 DMCBRES2 EQU DMCB+85 00526000 DMCBSPID EQU DMCB+84 00527000 DMCBRESC EQU DMCB+80 00528000 DMCBZZ1P EQU DMCB+76 00529000 DMCBMSGS EQU DMCB+72 00530000 DMCBMSG0 EQU DMCB+68 00531000 DMCBRRL EQU DMCB+60 00532000 DMCBRBA EQU DMCB+56 00533000 DMCBMSG EQU DMCB+52 00534000 DMCBKEYL EQU DMCB+48 00535000 DMCBKPC EQU DMCBKEYP 00536000 DMCBORL EQU DMCB+40 00537000 DMCBBLEN EQU DMCB+36 00538000 DMCBBFPC EQU DMCBBUFP 00539000 DMCBRES1 EQU DMCB+31 00540000 DMCBACCM EQU DMCB+30 00541000 DMCBREJ EQU DMCB+29 00542000 DMCBRESB EQU DMCBMFLG 00543000 DMCBFMOD EQU DMCBMFLG 00544000 DMCBLOPT EQU DMCB+27 00545000 DMCBLRM EQU DMCB+26 00546000 DMCBLRQ EQU DMCB+25 00547000 DMCBOPRS EQU DMCBOPTS 00548000 DMCBLRD EQU DMCBOPTS 00549000 DMCBBWD EQU DMCBOPTS 00550000 DMCBUPD EQU DMCBOPTS 00551000 DMCBAPX EQU DMCBOPTS 00552000 DMCBRNO EQU DMCBGKY 00553000 DMCBKYD EQU DMCBOPTS 00554000 DMCBRMRS EQU DMCBRMOD 00555000 DMCBRM5 EQU DMCBRMOD 00556000 DMCBRM6 EQU DMCBRMOD 00557000 DMCBTMP EQU DMCBOUT 00558000 DMCBRQST EQU DMCB+22 00559000 DMCBRESA EQU DMCBOPN 00560000 DMCBSOUT EQU DMCBOPN 00561000 DMCBSIN EQU DMCBOPN 00562000 DMCBVSF EQU DMCBFTY 00563000 DMCBKSF EQU DMCBFTY 00564000 DMCBFTRS EQU DMCBFTY 00565000 DMCBSHF EQU DMCBFTY 00566000 DMCBIRL EQU DMCB+16 00567000 DMCBRTC EQU DMCB+12 00568000 DMCBNEXT EQU DMCB+4 00569000 DMCBID EQU DMCB 00570000 FPRES6 EQU FPBLOK+136 00571000 FPDELLN EQU FPDELNM+7 00572000 FPDELID EQU FPDELNM 00573000 FPADMLN EQU FPADMNM+7 00574000 FPADMID EQU FPADMNM 00575000 FPGRPID EQU FPBLOK+112 00576000 FPSYSID EQU FPBLOK+104 00577000 FPRES4 EQU FPBLOK+103 00578000 FPDBPIDP EQU FPBLOK+100 00579000 FPRES3 EQU FPBLOK+99 00580000 FPPIDP EQU FPBLOK+96 00581000 FPRES2 EQU FPBLOK+92 00582000 FPDSDS EQU FPBLOK+48 00583000 FPRES1 EQU FPBLOK+44 00584000 DVT99999 EQU DVT+256 00585000 DVT0064P EQU DVT+252 00586000 DVT0063P EQU DVT+248 00587000 DVT0062P EQU DVT+244 00588000 DVT0061P EQU DVT+240 00589000 DVT0060P EQU DVT+236 00590000 DVT0059P EQU DVT+232 00591000 DVT0058P EQU DVT+228 00592000 DVT0057P EQU DVT+224 00593000 DVT0056P EQU DVT+220 00594000 DVT0055P EQU DVT+216 00595000 DVT0054P EQU DVT+212 00596000 DVT0053P EQU DVT+208 00597000 DVT0052P EQU DVT+204 00598000 DVT0051P EQU DVT+200 00599000 DVT0050P EQU DVT+196 00600000 DVT0049P EQU DVT+192 00601000 DVT0048P EQU DVT+188 00602000 DVT0047P EQU DVT+184 00603000 DVT0046P EQU DVT+180 00604000 DVT0045P EQU DVT+176 00605000 DVT0044P EQU DVT+172 00606000 DVT0043P EQU DVT+168 00607000 DVT0042P EQU DVT+164 00608000 DVT0041P EQU DVT+160 00609000 DVT0040P EQU DVT+156 00610000 DVT0039P EQU DVT+152 00611000 DVT0038P EQU DVT+148 00612000 DVT0037P EQU DVT+144 00613000 DVT0036P EQU DVT+140 00614000 DVT0035P EQU DVT+136 00615000 DVT0034P EQU DVT+132 00616000 DVT0011P EQU DVT+40 00617000 DVT0005P EQU DVT+16 00618000 DVT0002P EQU DVT+4 00619000 DVT0001P EQU DVT 00620000 BVT99999 EQU BVT+256 00621000 BVT0064P EQU BVT+252 00622000 BVT0063P EQU BVT+248 00623000 BVT0062P EQU BVT+244 00624000 BVT0061P EQU BVT+240 00625000 BVT0060P EQU BVT+236 00626000 BVT0059P EQU BVT+232 00627000 BVT0057P EQU BVT+224 00628000 BVT0056P EQU BVT+220 00629000 BVTSTBLP EQU BVT+200 00630000 BVT0045P EQU BVT+176 00631000 BVT0044P EQU BVT+172 00632000 BVT0033P EQU BVT+128 00633000 BVT0032P EQU BVT+124 00634000 BVT0031P EQU BVT+120 00635000 BVT0030P EQU BVT+116 00636000 BVT0029P EQU BVT+112 00637000 BVT0026P EQU BVT+100 00638000 BVT0025P EQU BVT+96 00639000 BVT0024P EQU BVT+92 00640000 BVT0023P EQU BVT+88 00641000 BVT0016P EQU BVT+60 00642000 BVT0015P EQU BVT+56 00643000 BVT0014P EQU BVT+52 00644000 BVT0003P EQU BVT+8 00645000 BVT0001P EQU BVT 00646000 SA99 EQU SA+72 00647000 SARC EQU SAR+56 00648000 SARB EQU SAR+52 00649000 SARA EQU SAR+48 00650000 SAR9 EQU SAR+44 00651000 SAR8 EQU SAR+40 00652000 SAR7 EQU SAR+36 00653000 SAR6 EQU SAR+32 00654000 SAR5 EQU SAR+28 00655000 SAR4 EQU SAR+24 00656000 SAR3 EQU SAR+20 00657000 SAR2 EQU SAR+16 00658000 SAR1 EQU SAR+12 00659000 SAR0 EQU SAR+8 00660000 SARF EQU SAR+4 00661000 SARE EQU SAR 00662000 SAFWD EQU SA+8 00663000 SABAK EQU SA+4 00664000 SA1L EQU SA1+1 00665000 SA1P EQU SA1 00666000 UPTPREFL EQU UPT+23 00667000 UPTPREFX EQU UPT+16 00668000 @NM00068 EQU UPT+15 00669000 UPTLDEL EQU UPT+14 00670000 UPTCDEL EQU UPT+13 00671000 UPTWTP EQU UPTSWS 00672000 UPTMODE EQU UPTSWS 00673000 UPTALD EQU UPTSWS 00674000 UPTPAUS EQU UPTSWS 00675000 UPTNCOM EQU UPTSWS 00676000 UPTMID EQU UPTSWS 00677000 UPTNPRM EQU UPTSWS 00678000 UPTRCVR EQU UPTSWS 00679000 UPTUSER EQU UPT+2 00680000 @NM00067 EQU UPT 00681000 @NM00066 EQU ECT+52 00682000 @NM00065 EQU ECT+48 00683000 @NM00064 EQU ECT+44 00684000 @NM00063 EQU ECTSWS2+1 00685000 @NM00062 EQU ECTSWS21 00686000 ECTTABND EQU ECTSWS21 00687000 ECTDEFCS EQU ECTSWS21 00688000 ECTBKPB EQU ECT+36 00689000 ECTUSER EQU ECT+32 00690000 ECTDDNUM EQU ECT+29 00691000 ECTATTN EQU ECTSWS 00692000 ECTBKGRD EQU ECTSWS 00693000 ECTNNOT EQU ECTSWS 00694000 ECTNMAL EQU ECTSWS 00695000 ECTLOGF EQU ECTSWS 00696000 ECTATRM EQU ECTSWS 00697000 @NM00061 EQU ECTSWS 00698000 ECTNOPD EQU ECTSWS 00699000 ECTSCMD EQU ECT+20 00700000 ECTPCMD EQU ECT+12 00701000 ECTSMSG EQU ECT+9 00702000 ECTMSGF EQU ECT+8 00703000 ECTIOWA EQU ECT+4 00704000 ECTRTCD EQU ECT+1 00705000 ECTRCDF EQU ECT 00706000 PSCBU EQU PSCB+64 00707000 PSCBRSZ EQU PSCB+60 00708000 PSCBLINE EQU PSCB+59 00709000 PSCBCHAR EQU PSCB+58 00710000 PSCBUPTL EQU PSCB+56 00711000 PSCBUPT EQU PSCB+52 00712000 PSCBRLGB EQU PSCB+48 00713000 PSCBDEST EQU PSCB+40 00714000 @NM00060 EQU PSCB+36 00715000 @NM00059 EQU PSCB+32 00716000 @NM00058 EQU PSCB+28 00717000 PSCBLTI2 EQU PSCB+24 00718000 PSCBLTIM EQU PSCB+20 00719000 PSCBATR2 EQU PSCB+18 00720000 @NM00057 EQU PSCBATR1 00721000 @NM00056 EQU PSCBATR1 00722000 @NM00055 EQU PSCBATR1 00723000 PSCBATTN EQU PSCBATR1 00724000 PSCBVMNT EQU PSCBATR1 00725000 PSCBJCL EQU PSCBATR1 00726000 PSCBACCT EQU PSCBATR1 00727000 PSCBCTRL EQU PSCBATR1 00728000 PSCBGPNM EQU PSCB+8 00729000 PSCBUSRL EQU PSCB+7 00730000 PSCBUSER EQU PSCB 00731000 CMDT1 EQU CMDT 00732000 CMDO EQU CMD+2 00733000 CMDL EQU CMD 00734000 ZZ299999 EQU ZZ2+8192 00735000 ZZ2AXOT1 EQU ZZ2AXOT 00736000 ZZ2AXOL EQU ZZ2AXO 00737000 @NM00054 EQU ZZ2+7288 00738000 @NM00053 EQU ZZ2AMDX+4 00739000 ZZ2AMDXC EQU ZZ2AMDX 00740000 ZZ2HSD EQU ZZ2+3056 00741000 @NM00052 EQU ZZ2ES 00742000 @NM00051 EQU ZZ2+2868 00743000 ZZ2ITSEC EQU ZZ2ITSE+1 00744000 @NM00050 EQU ZZ2ITSE 00745000 ZZ2ITSEP EQU ZZ2ITSE 00746000 ZZ2ITSEW EQU ZZ2ITSE 00747000 @NM00049 EQU ZZ2ITR+20 00748000 ZZ2ITREC EQU ZZ2ITRE+1 00749000 @NM00048 EQU ZZ2ITRE 00750000 ZZ2ITREP EQU ZZ2ITRE 00751000 ZZ2ITREW EQU ZZ2ITRE 00752000 @NM00047 EQU ZZ2ITR+9 00753000 ZZ2ITRRC EQU ZZ2ITR+8 00754000 ZZ2ITR2P EQU ZZ2ITR+4 00755000 ZZ2ITRPP EQU ZZ2ITR 00756000 @NM00046 EQU ZZ2+1544 00757000 ZZ2PGM EQU ZZ2+1536 00758000 @NM00045 EQU ZZ2+1526 00759000 ZZ2CW EQU ZZ2+1524 00760000 @NM00044 EQU ZZ2+1504 00761000 @NM00043 EQU ZZ2+1352 00762000 ZZ2FFSYP EQU ZZ2+1348 00763000 ZZ2SASYP EQU ZZ2+1344 00764000 ZZ2RDSYP EQU ZZ2+1340 00765000 ZZ2RASYP EQU ZZ2+1336 00766000 ZZ2PHSYP EQU ZZ2+1332 00767000 ZZ2ESSYP EQU ZZ2+1328 00768000 ZZ200SYP EQU ZZ2+1324 00769000 ZZ2SCWP EQU ZZ2+1320 00770000 ZZ2TTLP EQU ZZ2+1316 00771000 ZZ2LOADP EQU ZZ2+1312 00772000 ZZ2VRESP EQU ZZ2+1308 00773000 ZZ2CPPLE EQU ZZ2CPPL+12 00774000 ZZ2CPPLP EQU ZZ2CPPL+8 00775000 ZZ2CPPLU EQU ZZ2CPPL+4 00776000 ZZ2VRSAP EQU ZZ2+1288 00777000 ZZ2RVTP EQU ZZ2+1284 00778000 @NM00042 EQU ZZ2+1272 00779000 @NM00041 EQU ZZ2+1268 00780000 ZZ2RPLP EQU ZZ2+1260 00781000 ZZ2TCBP EQU ZZ2+1256 00782000 @NM00040 EQU ZZ2+1252 00783000 ZZ2ZZ2P EQU ZZ2+1248 00784000 @NM00039 EQU ZZ2+1112 00785000 @NM00038 EQU ZZ2+1080 00786000 ZZ2FT25P EQU ZZ2+1072 00787000 @NM00037 EQU ZZ2+976 00788000 ZZ2TOD EQU ZZ2+968 00789000 ZZ2STGN EQU ZZ2STG+4 00790000 ZZ2STGP EQU ZZ2STG 00791000 @NM00036 EQU ZZ2+952 00792000 ZZ2SCMDE EQU ZZ2+944 00793000 ZZ2SCMDN EQU ZZ2+936 00794000 ZZ2IDENT EQU ZZ2+928 00795000 ZZ2A9999 EQU ZZ2A+656 00796000 @NM00035 EQU ZZ2A+224 00797000 @NM00034 EQU ZZ2A+220 00798000 ZZ2AQD99 EQU ZZ2AQD+60 00799000 @NM00033 EQU ZZ2AQD+56 00800000 @NM00032 EQU ZZ2AQDF 00801000 ZZ2AQDFA EQU ZZ2AQDF 00802000 ZZ2AQDIL EQU ZZ2AQD+48 00803000 ZZ2AQDIM EQU ZZ2AQD+44 00804000 ZZ2AQDT9 EQU ZZ2AQDT+34 00805000 ZZ2AQDTE EQU ZZ2AQDT+33 00806000 ZZ2AQDTD EQU ZZ2AQDT+2 00807000 @NM00031 EQU ZZ2AQDT+1 00808000 ZZ2AQDTY EQU ZZ2AQDT 00809000 ZZ2AQDT0 EQU ZZ2AQDT 00810000 ZZ2AQDLB EQU ZZ2AQD+9 00811000 ZZ2AQDOB EQU ZZ2AQD+8 00812000 ZZ2AQDLE EQU ZZ2AQD+4 00813000 ZZ2AQDOF EQU ZZ2AQD 00814000 ZZ2AQD00 EQU ZZ2AQD 00815000 ZZ2AQAS9 EQU ZZ2AQAS+16 00816000 @NM00030 EQU ZZ2AQAS+12 00817000 ZZ2AQAS2 EQU ZZ2AQAS+8 00818000 ZZ2AQAS1 EQU ZZ2AQAS+4 00819000 @NM00029 EQU ZZ2AQAS+2 00820000 ZZ2AQAST EQU ZZ2AQAS 00821000 ZZ2AQAS0 EQU ZZ2AQAS 00822000 ZZ2AZZ6P EQU ZZ2A+140 00823000 ZZ2ADPTA EQU ZZ2ADPT 00824000 ZZ2ADPL EQU ZZ2ADP 00825000 ZZ2ADMTA EQU ZZ2ADMT 00826000 ZZ2ADML EQU ZZ2ADM 00827000 ZZ2ADDTA EQU ZZ2ADDT 00828000 ZZ2ADDL EQU ZZ2ADD 00829000 @NM00028 EQU ZZ2A+72 00830000 ZZ2APIDB EQU ZZ2APID+3 00831000 ZZ2APIDA EQU ZZ2APID 00832000 @NM00027 EQU ZZ2A+24 00833000 @NM00026 EQU ZZ2AF+5 00834000 ZZ2AFX EQU ZZ2AF+5 00835000 @NM00025 EQU ZZ2AF+3 00836000 ZZ2AFS EQU ZZ2AF+2 00837000 ZZ2AFD EQU ZZ2AF+2 00838000 ZZ2AFQ EQU ZZ2AF+2 00839000 ZZ2AF$ EQU ZZ2AF+2 00840000 @NM00024 EQU ZZ2AF+2 00841000 ZZ2AFM EQU ZZ2AF+2 00842000 @NM00023 EQU ZZ2AF+2 00843000 @NM00022 EQU ZZ2AF+1 00844000 ZZ2AFV EQU ZZ2AF+1 00845000 @NM00021 EQU ZZ2AF+1 00846000 ZZ2AFC EQU ZZ2AF+1 00847000 @NM00020 EQU ZZ2AF 00848000 ZZ2AFFS EQU ZZ2AF 00849000 ZZ2AFT EQU ZZ2AF 00850000 ZZ2AFP EQU ZZ2AF 00851000 @NM00019 EQU ZZ2A+8 00852000 ZZ2ALINE EQU ZZ2A+4 00853000 @NM00018 EQU ZZ2A+3 00854000 ZZ2ASE EQU ZZ2A+2 00855000 ZZ2ACH EQU ZZ2A 00856000 @NM00017 EQU ZZ2+264 00857000 @NM00016 EQU ZZ2+263 00858000 ZZ2PRTT0 EQU ZZ2PRTT 00859000 ZZ2PRTO EQU ZZ2PRT+2 00860000 ZZ2PRTL EQU ZZ2PRT 00861000 @NM00015 EQU ZZ2AMD+56 00862000 ZZ2AMDXP EQU ZZ2AMD+52 00863000 ZZ2AMDD EQU ZZ2AMD+48 00864000 ZZ2AMDL EQU ZZ2AMD+44 00865000 ZZ2AMDU EQU ZZ2AMD+28 00866000 ZZ2AMDF EQU ZZ2AMD+24 00867000 ZZ2AMDS EQU ZZ2AMD+20 00868000 ZZ2AMDC EQU ZZ2AMD+16 00869000 ZZ2AMDP EQU ZZ2AMD+12 00870000 ZZ2AMDB EQU ZZ2AMD+8 00871000 @NM00014 EQU @NM00013 00872000 ZZ2AMD2 EQU @NM00013 00873000 ZZ2AMD1 EQU @NM00013 00874000 ZZ2AMD0 EQU ZZ2AMD+6 00875000 ZZ2AMDA EQU ZZ2AMD+4 00876000 ZZ2AMDT EQU ZZ2AMD 00877000 ZZ199999 EQU ZZ1+3072 00878000 @NM00012 EQU ZZ1+2160 00879000 ZZ1TRTAS EQU ZZ1+1904 00880000 ZZ1TRUPC EQU ZZ1+1648 00881000 ZZ1TRCTX EQU ZZ1+1392 00882000 ZZ1NASID EQU ZZ1N+274 00883000 ZZ1NSTRL EQU ZZ1N+272 00884000 ZZ1NOFF EQU ZZ1N+268 00885000 ZZ1NBDY EQU ZZ1N+264 00886000 ZZ1NADE EQU ZZ1N+260 00887000 ZZ1NADB EQU ZZ1N+256 00888000 ZZ1NSTR EQU ZZ1N 00889000 @NM00011 EQU ZZ1+1080 00890000 ZZ1TREBC EQU ZZ1+824 00891000 ZZ1TRHEX EQU ZZ1+568 00892000 @NM00010 EQU ZZ1+377 00893000 ZZ1USTAE EQU ZZ1+376 00894000 @NM00009 EQU ZZ1F+1 00895000 @NM00008 EQU ZZ1F 00896000 ZZ1FM EQU ZZ1F 00897000 ZZ1FX EQU ZZ1F 00898000 ZZ1FU EQU ZZ1F 00899000 ZZ1EVEC EQU ZZ1EVE+1 00900000 @NM00007 EQU ZZ1EVE 00901000 ZZ1EVEP EQU ZZ1EVE 00902000 ZZ1EVEW EQU ZZ1EVE 00903000 ZZ1ACMP EQU ZZ1ATTN 00904000 @NM00006 EQU ZZ1+144 00905000 ZZ1ZZ6P EQU ZZ1+136 00906000 @NM00005 EQU ZZ1+84 00907000 ZZ1PLINE EQU ZZ1+80 00908000 ZZ1PGSZ EQU ZZ1+76 00909000 ZZ1PCNT EQU ZZ1+72 00910000 @NM00004 EQU ZZ1+68 00911000 ZZ1TPAGE EQU ZZ1+64 00912000 ZZ1TLINE EQU ZZ1+60 00913000 @NM00003 EQU ZZ1+52 00914000 ZZ1DMCBP EQU ZZ1+48 00915000 ZZ1PDRP EQU ZZ1+40 00916000 ZZ1ZZ2P EQU ZZ1+36 00917000 ZZ1327WP EQU ZZ1+32 00918000 ZZ1ACBP EQU ZZ1+28 00919000 @NM00002 EQU ZZ1+24 00920000 ZZ1PDCBP EQU ZZ1+20 00921000 ZZ1BLRBL EQU ZZ1+16 00922000 @NM00001 EQU ZZ1+12 00923000 ZZ1PNULL EQU ZZ1+8 00924000 ZZ1NULL EQU ZZ1+4 00925000 ZZ1IDE EQU ZZ1 00926000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00927000 @ENDDATA EQU * 00928000 END BLSCVALT,(C'PLS2005',0701,78062) 00929000