TITLE '**************** IDCCT01: COPYT FSR **************** *00001000 ' 00002000 MACRO 00003000 GETMAIN &R,&LV= 00004000 L REG15,0(REG1) GDTTBL ADDRESS 00005000 L REG15,GDTPRL(REG15) PROL ROUTINE ADDRESS 00006000 CNOP 2,4 BOUNDARY ALIGNMENT 00007000 LA REG14,*+14 RETURN ADDRESS 00008000 BALR REG1,REG15 LINKAGE TO PROL ROUTINE 00009000 DC A(MODID) MODULE ID ADDRESS 00010000 DC A(@SIZDATD) AUTOMATIC STORAGE SIZE ADDRESS 00011000 MEND 00012000 IDCCT01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCCT01 75.287' 0002 00018000 DROP @15 00019000 @PROLOG STM @14,@12,12(@13) 0002 00020000 BALR @10,0 0002 00021000 @PSTART DS 0H 0002 00022000 USING @PSTART,@10 0002 00023000 L @00,@SIZDATD 0002 00024000 GETMAIN R,LV=(0) 00025000 LR @12,@01 0002 00026000 USING @DATD,@12 0002 00027000 ST @13,@SA00001+4 0002 00028000 LM @00,@01,20(@13) 0002 00029000 ST @12,8(,@13) 0002 00030000 LR @13,@12 0002 00031000 MVC @PC00001(12),0(@01) 0002 00032000 * 0223 00033000 * /*****************************************************************/ 00034000 * /* */ 00035000 * /* THIS IS THE MAIN AND ONLY PROCEDURE (EXCLUDING THE @Z40LB65*/ 00036000 * /* SSCMSG COMMON SUBROUTINE) OF THE COPYT FSR. @Z40LB65*/ 00037000 * /* IT VERIFIES THE SUPPLIED TOSD SSID IS A VALID MSC @Z40LB65*/ 00038000 * /* TABLES SSID AND COPIES PRIMARY MSC TABLES TO THE @Z40LB65*/ 00039000 * /* PACK RESIDING ON THE TOSD DRIVE. @Z40LB65*/ 00040000 * /* */ 00041000 * /*****************************************************************/ 00042000 * 0223 00043000 * IF GDTDBG=NULLPTR THEN 0223 00044000 L @11,@PC00001 0223 00045000 L @11,GDTDBG(,@11) 0223 00046000 LTR @11,@11 0223 00047000 BZ @RT00223 0223 00048000 * ; 0224 00049000 * ELSE 0225 00050000 * CALL IDCDB010(GDTTBL,'CTAA'); /* @Z40LB65*/ 00051000 L @11,@PC00001 0225 00052000 ST @11,@AL00001 0225 00053000 LA @15,@CC01068 0225 00054000 ST @15,@AL00001+4 0225 00055000 MVI @AL00001+4,X'80' 0225 00056000 L @15,GDTDBG(,@11) 0225 00057000 LA @01,@AL00001 0225 00058000 BALR @14,@15 0225 00059000 * OLDERID2=NEWERID2; 0226 00060000 @RT00223 L @11,@PC00001 0226 00061000 L @15,GDTTR2(,@11) 0226 00062000 MVC @TS00001(95),NEWERID2(@15) 0226 00063000 MVC OLDERID2(95,@15),@TS00001 0226 00064000 * NEWID2='CTAA'; /* @Z40LB65*/ 00065000 * 0227 00066000 MVC NEWID2(4,@15),@CC01068 0227 00067000 * /*****************************************************************/ 00068000 * /* */ 00069000 * /* INITIALIZE PARAMETER LISTS AND POINTERS FOR THE @Z40LB65*/ 00070000 * /* UPRINT AND TBLREST USSC MACROS. @Z40LB65*/ 00071000 * /* */ 00072000 * /*****************************************************************/ 00073000 * 0228 00074000 * DDSTRU=ADDR(PRINTAB); /* @Z40LB65*/ 00075000 LA @15,PRINTAB 0228 00076000 ST @15,DDSTRU 0228 00077000 * PRINTAB=''B; /* @Z40LB65*/ 00078000 XC PRINTAB(20),PRINTAB 0229 00079000 * DARGSMOD=CT0MSG; /* @Z40LB65*/ 00080000 MVC DARGSMOD(3,@15),@CC01058 0230 00081000 * COTPTR=ADDR(COTBLIST); /* @Z40LB65*/ 00082000 LA @14,COTBLIST 0231 00083000 ST @14,COTPTR 0231 00084000 * COTBLIST=''B; /* @Z40LB65*/ 00085000 * 0232 00086000 XC COTBLIST(24),COTBLIST 0232 00087000 * /*****************************************************************/ 00088000 * /* */ 00089000 * /* VERIFY THAT THE TOSD SSID SUPPLIED IS A VALID MSC @Z40LB65*/ 00090000 * /* TABLES SSID @Z40LB65*/ 00091000 * /* */ 00092000 * /*****************************************************************/ 00093000 * 0233 00094000 * IF(TOSDVAL^=SSID0&TOSDVAL^=SSID2&TOSDVAL^=SSID4&TOSDVAL^=SSID6) 00095000 * THEN 0233 00096000 L @14,@PC00001+4 0233 00097000 L @01,FDTPTR(,@14) 0233 00098000 L @14,TOSDVAL(,@01) 0233 00099000 LTR @14,@14 0233 00100000 BZ @RF00233 0233 00101000 C @14,@CF00151 0233 00102000 BE @RF00233 0233 00103000 C @14,@CF00040 0233 00104000 BE @RF00233 0233 00105000 C @14,@CF00154 0233 00106000 BE @RF00233 0233 00107000 * DO; /* @Z40LB65*/ 00108000 * DARGSENT=MSG31160; /* @Z40LB65*/ 00109000 MVI DARGSENT(@15),X'01' 0235 00110000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB65*/ 00111000 ST @11,@AL00001 0236 00112000 LA @15,@CF00113 0236 00113000 ST @15,@AL00001+4 0236 00114000 LA @15,DDSTRU 0236 00115000 ST @15,@AL00001+8 0236 00116000 MVI @AL00001+8,X'80' 0236 00117000 L @15,GDTPRT(,@11) 0236 00118000 LA @01,@AL00001 0236 00119000 BALR @14,@15 0236 00120000 * LASTCOND=LASTCC12; /* @Z40LB65*/ 00121000 L @11,@PC00001+8 0237 00122000 MVC LASTCOND(2,@11),@CH00565 0237 00123000 * END; /* @Z40LB65*/ 00124000 * 0238 00125000 * /*****************************************************************/ 00126000 * /* */ 00127000 * /* IF LASTCOND = 0, BUILD THE COTBLIST PARAMETER LIST @Z40LB65*/ 00128000 * /* WITH TOSD AS THE COPY TARGET AND ISSUE THE USSC MACRO @Z40LB65*/ 00129000 * /* WITH THE TBLREST KEYWORD TO COPY PRIMARY MSC TABLES @Z40LB65*/ 00130000 * /* TO THE TOSD VOLUME. @Z40LB65*/ 00131000 * /* */ 00132000 * /*****************************************************************/ 00133000 * 0239 00134000 * IF LASTCOND=LASTCC00 THEN 0239 00135000 @RF00233 SLR @11,@11 0239 00136000 L @15,@PC00001+8 0239 00137000 CH @11,LASTCOND(,@15) 0239 00138000 BNE @RF00239 0239 00139000 * DO; /* @Z40LB65*/ 00140000 * DCOTBTID=RESTORE; /* @Z40LB65*/ 00141000 MVC DCOTBTID(1),RESTORE 0241 00142000 * COTBVOL(5:6)=F0F0; /* @Z40LB65*/ 00143000 MVC COTBVOL+4(2),F0F0 0242 00144000 * MVN(COTBVOL(6),SSID); /* @Z40LB65*/ 00145000 * 0243 00146000 L @15,@PC00001+4 0243 00147000 L @01,FDTPTR(,@15) 0243 00148000 MVN COTBVOL+5(1),SSID(@01) 0243 00149000 * /*************************************************************/ 00150000 * /* */ 00151000 * /* ISSUE THE UDUMP MACRO TO TAKE A SYMBOLIC DUMP OF @Z40LB65*/ 00152000 * /* THE USSC PARAMETER LIST @Z40LB65*/ 00153000 * /* */ 00154000 * /*************************************************************/ 00155000 * 0244 00156000 * IF GDTDBG=NULLPTR THEN 0244 00157000 L @15,@PC00001 0244 00158000 C @11,GDTDBG(,@15) 0244 00159000 BE @RT00244 0244 00160000 * ; 0245 00161000 * ELSE 0246 00162000 * DO; 0246 00163000 * DMPINDEX=ADDR(DMPSTG); /* @Z40LB65*/ 00164000 LA DMPINDEX,DMPSTG 0247 00165000 * DMPITMNM='COTBLIST'; 0248 00166000 MVC DMPITMNM(8,DMPINDEX),@CC01071 0248 00167000 * DMPITMPT=ADDR(COTBLIST); 0249 00168000 LA @11,COTBLIST 0249 00169000 ST @11,DMPITMPT(,DMPINDEX) 0249 00170000 * DMPITMLN=LENGTH(COTBLIST); 0250 00171000 MVC DMPITMLN(2,DMPINDEX),@CH00306 0250 00172000 * DMPITMTP='H'; 0251 00173000 MVI DMPITMTP(DMPINDEX),C'H' 0251 00174000 * DMPINDEX=DMPINDEX+DMPELEMT; 0252 00175000 AL DMPINDEX,@CF00471 0252 00176000 * DMPTRM=DMPTRMVL; 0253 00177000 MVI DMPTRM(DMPINDEX),X'FF' 0253 00178000 * END; /* @Z40LB65*/ 00179000 * IF GDTDBG=NULLPTR THEN 0255 00180000 @RT00244 L @11,@PC00001 0255 00181000 L @11,GDTDBG(,@11) 0255 00182000 LTR @11,@11 0255 00183000 BZ @RT00255 0255 00184000 * ; 0256 00185000 * ELSE 0257 00186000 * CALL IDCDB010(GDTTBL,'CTAB',ADDR(DMPSTG));/* @Z40LB65*/ 00187000 L @11,@PC00001 0257 00188000 ST @11,@AL00001 0257 00189000 LA @15,@CC01073 0257 00190000 ST @15,@AL00001+4 0257 00191000 LA @15,DMPSTG 0257 00192000 ST @15,@AFTEMPS 0257 00193000 LA @15,@AFTEMPS 0257 00194000 ST @15,@AL00001+8 0257 00195000 MVI @AL00001+8,X'80' 0257 00196000 L @15,GDTDBG(,@11) 0257 00197000 LA @01,@AL00001 0257 00198000 BALR @14,@15 0257 00199000 * CALL IDCSASS0(GDTTBL,TBLREST,COTPTR,REASONCD);/* @Z40LB65*/ 00200000 @RT00255 L @11,@PC00001 0258 00201000 ST @11,@AL00001 0258 00202000 LA @02,TBLREST 0258 00203000 ST @02,@AL00001+4 0258 00204000 LA @02,COTPTR 0258 00205000 ST @02,@AL00001+8 0258 00206000 LA @02,REASONCD 0258 00207000 ST @02,@AL00001+12 0258 00208000 MVI @AL00001+12,X'80' 0258 00209000 L @15,GDTSSC(,@11) 0258 00210000 LA @01,@AL00001 0258 00211000 BALR @14,@15 0258 00212000 * RESPECIFY 0259 00213000 * RTNREG RSTD; 0259 00214000 * TESTRC=RTNREG; 0260 00215000 LR TESTRC,RTNREG 0260 00216000 * RESPECIFY 0261 00217000 * RTNREG UNRSTD; /* @Z40LB65*/ 00218000 * 0261 00219000 * /*************************************************************/ 00220000 * /* */ 00221000 * /* TEST THE RETURN CODE FROM USSC. IF THE RETURN CODE */ 00222000 * /* @Z40LB65*/ 00223000 * /* IS 4 CALL SSCMSG TO PRINT A MESSAGE TO EXPLAIN @Z40LB65*/ 00224000 * /* THE ERROR AND SET LASTCOND = 12. @Z40LB65*/ 00225000 * /* */ 00226000 * /*************************************************************/ 00227000 * 0262 00228000 * IF TESTRC=4 THEN /* @Z40LB65*/ 00229000 C TESTRC,@CF00040 0262 00230000 BNE @RF00262 0262 00231000 * DO; /* @Z40LB65*/ 00232000 * CALL SSCMSG(REASONCD); /* @Z40LB65*/ 00233000 LA @11,REASONCD 0264 00234000 ST @11,@AL00001 0264 00235000 LA @01,@AL00001 0264 00236000 BAL @14,SSCMSG 0264 00237000 * LASTCOND=LASTCC12; /* @Z40LB65*/ 00238000 L @11,@PC00001+8 0265 00239000 MVC LASTCOND(2,@11),@CH00565 0265 00240000 * END; /* @Z40LB65*/ 00241000 * END; /* @Z40LB65*/ 00242000 * 0267 00243000 @RF00262 DS 0H 0268 00244000 * /*****************************************************************/ 00245000 * /* */ 00246000 * /* THE COMPLETION CODE HAS ALREADY BEEN SET. IT WILL BE @Z40LB65*/ 00247000 * /* TESTED TO PRINT A SUMMARY MESSAGE AND RETURN. @Z40LB65*/ 00248000 * /* */ 00249000 * /*****************************************************************/ 00250000 * 0268 00251000 * DARGSMOD=UNIVMSG; /* @Z40LB65*/ 00252000 @RF00239 L @11,DDSTRU 0268 00253000 MVC DARGSMOD(3,@11),@CC01056 0268 00254000 * DARGDBP=ADDR(LASTCOND); /* @Z40LB65*/ 00255000 L @15,@PC00001+8 0269 00256000 ST @15,DARGDBP(,@11) 0269 00257000 * DARGILP=LENGTH(LASTCOND); /* @Z40LB65*/ 00258000 MVC DARGILP(2,@11),@CH00151 0270 00259000 * IF LASTCOND=LASTCC12 THEN /* @Z40LB65*/ 00260000 CLC LASTCOND(2,@15),@CH00565 0271 00261000 BNE @RF00271 0271 00262000 * DARGSENT=MSG3003; /* @Z40LB65*/ 00263000 MVI DARGSENT(@11),X'03' 0272 00264000 * ELSE /* @Z40LB65*/ 00265000 * DARGSENT=MSG0001; /* @Z40LB65*/ 00266000 B @RC00271 0273 00267000 @RF00271 L @11,DDSTRU 0273 00268000 MVI DARGSENT(@11),X'01' 0273 00269000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU);/* @Z40LB65*/ 00270000 @RC00271 L @11,@PC00001 0274 00271000 ST @11,@AL00001 0274 00272000 LA @15,@CF00113 0274 00273000 ST @15,@AL00001+4 0274 00274000 LA @15,DDSTRU 0274 00275000 ST @15,@AL00001+8 0274 00276000 MVI @AL00001+8,X'80' 0274 00277000 L @15,GDTPRT(,@11) 0274 00278000 LA @01,@AL00001 0274 00279000 BALR @14,@15 0274 00280000 * IF GDTDBG=NULLPTR THEN 0275 00281000 L @11,@PC00001 0275 00282000 L @11,GDTDBG(,@11) 0275 00283000 LTR @11,@11 0275 00284000 BZ @RT00275 0275 00285000 * ; 0276 00286000 * ELSE 0277 00287000 * CALL IDCDB010(GDTTBL,'CTAZ'); /* @Z40LB65*/ 00288000 L @11,@PC00001 0277 00289000 ST @11,@AL00001 0277 00290000 LA @15,@CC01075 0277 00291000 ST @15,@AL00001+4 0277 00292000 MVI @AL00001+4,X'80' 0277 00293000 L @15,GDTDBG(,@11) 0277 00294000 LA @01,@AL00001 0277 00295000 BALR @14,@15 0277 00296000 * CALL IDCSAEP0(GDTTBL,MODID,LASTCOND); 0278 00297000 * 0278 00298000 @RT00275 L @11,@PC00001 0278 00299000 ST @11,@AL00001 0278 00300000 LA @15,MODID 0278 00301000 ST @15,@AL00001+4 0278 00302000 L @15,@PC00001+8 0278 00303000 ST @15,@AL00001+8 0278 00304000 MVI @AL00001+8,X'80' 0278 00305000 L @15,GDTEPL(,@11) 0278 00306000 LA @01,@AL00001 0278 00307000 BALR @14,@15 0278 00308000 * /*****************************************************************/ 00309000 * /* */ 00310000 * /* @Z40LB65*/ 00311000 * /* */ 00312000 * /*****************************************************************/ 00313000 * 0279 00314000 * 0279 00315000 */***********************************************************@Y30LB39*/ 00316000 */* PROCEDURE NAME - SSCMSG @Y30LB39*/ 00317000 */* @Y30LB39*/ 00318000 */* FUNCTION - THIS ROUTINE PRINTS MESSAGES @Y30LB39*/ 00319000 */* FROM IDCTSSS0 OR IDCTSCM0 AS DICTATED BY THE MSSC @Y30LB39*/ 00320000 */* REASON CODE OR THE ECB POST CODE, EITHER ONE PASSED AS @Y30LB39*/ 00321000 */* INPUT ARGUMENTS. @Y30LB39*/ 00322000 */* @Y30LB39*/ 00323000 */* THE REASON CODE IS PASSED TO THIS ROUTINE FROM THE @Y30LB39*/ 00324000 */* CALLER IN SSRCODE, AND THE ECB POST CODE IS PASSED @Y30LB39*/ 00325000 */* IN SSECBCD. @Y30LB39*/ 00326000 */* @Y30LB39*/ 00327000 */* ONLY ONE MESSAGE IS PRINTED. IF THE REASON CODE @Y30LB39*/ 00328000 */* CONTAINS A NUMBER GREATER THAN ZERO, IT IS USED AS @Y30LB39*/ 00329000 */* THE INDICATION TO CALL UPRINT TO READ IN THE FIRST @Y30LB39*/ 00330000 */* STATIC TEXT ENTRY FROM IDCTSSS0. THAT ENTRY CONTAINS @Y30LB39*/ 00331000 */* AN ARRAY OF THE MESSAGE INDICES USED TO PRINT THE @Y30LB39*/ 00332000 */* MSSC REASON CODE MESSAGE. THE ARRAY IS SCANNED FOR THE @Y30LB39*/ 00333000 */* REASON CODE THAT WAS PASSED AS THE FIRST PARAMETER. @Y30LB39*/ 00334000 */* IF THE ARRAY CONTAINS AN ENTRY WITH THAT VALUE, THE @Y30LB39*/ 00335000 */* ARRAY INDEX IS USED TO PRINT THE MESSAGE. IF THE @Y30LB39*/ 00336000 */* REASON CODE IS NOT FOUND IN THE ARRAY, THE REASON @Y30LB39*/ 00337000 */* CODE IS USED AS BLOCK DATA WHEN PRINTING THE "LAST" @Y30LB39*/ 00338000 */* STATIC TEXT ENTRY IN THE TEXT MODULE. @Y30LB39*/ 00339000 */* @Y30LB39*/ 00340000 */* IF THE REASON CODE FIELD IS ZERO, THE ECB POST CODE @Y30LB39*/ 00341000 */* IS INSERTED AS BLOCK DATA INTO A GENERAL MESSAGE IN @Y30LB39*/ 00342000 */* STATIC TEXT MODULE IDCTSCM0. @Y30LB39*/ 00343000 */* @Y30LB39*/ 00344000 */* INPUT - REASON CODE AS FIRST ARGUMENT, OPTIONALLY THE @Y30LB39*/ 00345000 */* ECB CODE AS THE SECOND ARGUMENT. @Y30LB39*/ 00346000 */* @Y30LB39*/ 00347000 */* OUTPUT - PRINTED MESSAGE AND RETURN CODE OF ZERO. @Y30LB39*/ 00348000 */* @Y30LB39*/ 00349000 */***********************************************************@Y30LB39*/ 00350000 * 0279 00351000 * /* @Y30LB39*/ 00352000 *SSCMSG: 0279 00353000 * PROCEDURE(SSRCODE, /* SSC RETURN CODE @Y30LB39*/ 00354000 * SSECBCD); /* ECB POST CODE @Y30LB39 00355000 * @Y30LB39*/ 00356000 @EL00001 L @13,4(,@13) 0279 00357000 @EF00001 L @00,@SIZDATD 0279 00358000 LR @01,@12 0279 00359000 FREEMAIN R,LV=(0),A=(1) 00360000 @ER00001 LM @14,@12,12(@13) 0279 00361000 BR @14 0279 00362000 SSCMSG STM @14,@12,@SA00002 0279 00363000 MVC @PC00002(8),0(@01) 0279 00364000 * /* @Y30LB39*/ 00365000 * 0280 00366000 * /*****************************************************************/ 00367000 * /* */ 00368000 * /* @Y30LB39*/ 00369000 * /* DECLARATIONS FOR THE SSCMSG PROCEDURE @Y30LB39*/ 00370000 * /* @Y30LB39*/ 00371000 * /* */ 00372000 * /*****************************************************************/ 00373000 * 0280 00374000 * /* @Y30LB39 00375000 * @Y30LB39*/ 00376000 * 0280 00377000 * /*****************************************************************/ 00378000 * /* */ 00379000 * /* @Y30LB39*/ 00380000 * /* THE NEXT TWO DECLARES ARE FOR THE TWO INPUT @Y30LB39*/ 00381000 * /* ARGUMENTS. 1ST - MSSC REASON CODE OR @Y30LB39*/ 00382000 * /* 2ND - MSSC POST CODE @Y30LB39*/ 00383000 * /* @Y30LB39*/ 00384000 * /* */ 00385000 * /*****************************************************************/ 00386000 * 0280 00387000 * /* @Y30LB39*/ 00388000 * DCL 0280 00389000 * 1 SSRCODE FIXED(31), /* @Y30LB39*/ 00390000 * 3 * FIXED(15), /* @Y30LB39*/ 00391000 * 3 SSRHALF FIXED(15); /* 1ST ARG REASON CODE @Y30LB39*/ 00392000 * DCL 0281 00393000 * SSECBCD PTR(8); /* 2ND ARG POST CODE @Y30LB39 00394000 * @Y30LB39 00395000 * @Y30LB39*/ 00396000 * 0281 00397000 * /*****************************************************************/ 00398000 * /* */ 00399000 * /* @Y30LB39*/ 00400000 * /* DECLARE THE DYNAMIC AREA NEEDED TO POINT TO AND @Y30LB39*/ 00401000 * /* CONTAIN THE "LOCAL" PRINT ARGUMENT LIST @Y30LB39*/ 00402000 * /* @Y30LB39*/ 00403000 * /* */ 00404000 * /*****************************************************************/ 00405000 * 0282 00406000 * /* @Y30LB39*/ 00407000 * DCL 0282 00408000 * SSDLPTR PTR(31); /* @Y30LB39*/ 00409000 * DCL 0283 00410000 * SSDRGLT CHAR(LENGTH(DARGLIST));/* @Y30LB39 00411000 * @Y30LB39*/ 00412000 * 0283 00413000 * /*****************************************************************/ 00414000 * /* */ 00415000 * /* @Y30LB39*/ 00416000 * /* THE NEXT DECLARE IS FOR THE INDEX WHICH IS @Y30LB39*/ 00417000 * /* INCREMENTED WHILE SEARCHING THE ARRAY OF @Y30LB39*/ 00418000 * /* REASON CODES AND, UPON FINDING THE CORRECT @Y30LB39*/ 00419000 * /* REASON CODE, IS PASSED TO PRINT MODULE AS THE @Y30LB39*/ 00420000 * /* INDEX OF THE MESSAGE NUMBER TO BE PRINTED. @Y30LB39*/ 00421000 * /* @Y30LB39*/ 00422000 * /* */ 00423000 * /*****************************************************************/ 00424000 * 0284 00425000 * /* @Y30LB39*/ 00426000 * DECLARE 0284 00427000 * ENTRYNUM FIXED(8) UNSIGNED; /* @Y30LB39 00428000 * @Y30LB39*/ 00429000 * 0284 00430000 * /*****************************************************************/ 00431000 * /* */ 00432000 * /* @Y30LB39*/ 00433000 * /* THE NEXT DECLARE IS FOR THE COMMON MESSAGE @Y30LB39*/ 00434000 * /* NUMBER TO IDENTIFY THE ECB POST CODE @Y30LB39*/ 00435000 * /* MESSAGE CONTAINED IN STATIC TEXT MODULE @Y30LB39*/ 00436000 * /* IDCTSCM0. @Y30LB39*/ 00437000 * /* @Y30LB39*/ 00438000 * /* */ 00439000 * /*****************************************************************/ 00440000 * 0285 00441000 * /* @Y30LB39*/ 00442000 * DECLARE 0285 00443000 * SSMSGNUM FIXED(8) STATIC LOCAL INIT(56);/* @Y30LB39 00444000 * @Y30LB39*/ 00445000 * 0285 00446000 * /*****************************************************************/ 00447000 * /* */ 00448000 * /* @Y30LB39*/ 00449000 * /* THE NEXT DECLARE IS FOR THE ARRAY WHICH IS @Y30LB39*/ 00450000 * /* SEARCHED FOR THE REASON CODE CORRESPONDING @Y30LB39*/ 00451000 * /* TO THE MESSAGE INDEX AND ULTIMATELY, THE @Y30LB39*/ 00452000 * /* MESSAGE TEXT TO BE PRINTED TO THE USER TELLING @Y30LB39*/ 00453000 * /* HIM OF THE EXACT REASON FOR THE MSSC FAILURE. @Y30LB39*/ 00454000 * /* @Y30LB39*/ 00455000 * /* */ 00456000 * /*****************************************************************/ 00457000 * 0286 00458000 * /* @Y30LB39*/ 00459000 * DECLARE 0286 00460000 * 1 SSINXLST BDY(WORD), /* @Y30LB39*/ 00461000 * 3 SSARRAY(60) FIXED(15); /* @Y30LB39 00462000 * @Y30LB39*/ 00463000 * 0286 00464000 * /*****************************************************************/ 00465000 * /* */ 00466000 * /* @Y30LB39*/ 00467000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 00468000 * /* USED BY THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 00469000 * /* @Y30LB39*/ 00470000 * /* */ 00471000 * /*****************************************************************/ 00472000 * 0287 00473000 * /* @Y30LB39*/ 00474000 * DECLARE 0287 00475000 * SSMODSS0 CHAR(3) STATIC INIT('SS0');/* @Y30LB39 00476000 * @Y30LB39*/ 00477000 * 0287 00478000 * /*****************************************************************/ 00479000 * /* */ 00480000 * /* @Y30LB39*/ 00481000 * /* THE NEXT DECLARATION IS FOR THE MESSAGE ID @Y30LB39*/ 00482000 * /* USED BY THE STATIC TEXT MODULE - IDCTSCMO. @Y30LB39*/ 00483000 * /* @Y30LB39*/ 00484000 * /* */ 00485000 * /*****************************************************************/ 00486000 * 0288 00487000 * /* @Y30LB39*/ 00488000 * DECLARE 0288 00489000 * SSMODCM0 CHAR(3) STATIC INIT('CM0');/* @Y30LB39 00490000 * @Y30LB39*/ 00491000 * /* @Y30LB39*/ 00492000 * 0289 00493000 * /*****************************************************************/ 00494000 * /* */ 00495000 * /* ISSUE UTRACE MACRO TO PROVIDE A TRACK OF FLOW @Y30LB39*/ 00496000 * /* ON CONTROL WITHIN THE SSMSG MODULE. @Y30LB39*/ 00497000 * /* THIS WILL PLACE THE IDENTIFIER SPECIFIED IN @Y30LB39*/ 00498000 * /* A SEPARATE INTRA-MODULE TRACE TABLE. @Y30LB39*/ 00499000 * /* @Y30LB39*/ 00500000 * /* */ 00501000 * /*****************************************************************/ 00502000 * 0289 00503000 * /* @Y30LB39*/ 00504000 * OLDERID2=NEWERID2; 0289 00505000 L @11,@PC00001 0289 00506000 L @15,GDTTR2(,@11) 0289 00507000 MVC @TS00001(95),NEWERID2(@15) 0289 00508000 MVC OLDERID2(95,@15),@TS00001 0289 00509000 * NEWID2='SSAA'; /* @Y30LB39 00510000 * @Y30LB39*/ 00511000 * 0290 00512000 MVC NEWID2(4,@15),@CC01097 0290 00513000 * /*****************************************************************/ 00514000 * /* */ 00515000 * /* @Y30LB39*/ 00516000 * /* ESTABLISH ADDRESSABILITY TO THE DYNAMIC @Y30LB39*/ 00517000 * /* ARGUMENT LIST. @Y30LB39*/ 00518000 * /* @Y30LB39*/ 00519000 * /* */ 00520000 * /*****************************************************************/ 00521000 * 0291 00522000 * /* @Y30LB39*/ 00523000 * SSDLPTR=ADDR(SSDRGLT); /* @Y30LB39 00524000 * @Y30LB39*/ 00525000 * 0291 00526000 LA @15,SSDRGLT 0291 00527000 ST @15,SSDLPTR 0291 00528000 * /*****************************************************************/ 00529000 * /* */ 00530000 * /* @Y30LB39*/ 00531000 * /* IF THE REASON CODE IS NOT ZERO, READ IN THE @Y30LB39*/ 00532000 * /* ARRAY FROM THE STATIC TEXT MODULE - IDCTSSS0. @Y30LB39*/ 00533000 * /* @Y30LB39*/ 00534000 * /* */ 00535000 * /*****************************************************************/ 00536000 * 0292 00537000 * /* @Y30LB39*/ 00538000 * IF SSRCODE>0 THEN 0292 00539000 L @14,@PC00002 0292 00540000 L @14,SSRCODE(,@14) 0292 00541000 LTR @14,@14 0292 00542000 BNP @RF00292 0292 00543000 * DO; /* @Y30LB39 00544000 * @Y30LB39*/ 00545000 * 0293 00546000 * /*************************************************************/ 00547000 * /* */ 00548000 * /* @Y30LB39*/ 00549000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND @Y30LB39*/ 00550000 * /* INITIALIZE THE PRINT ARGUMENT LIST TO READ @Y30LB39*/ 00551000 * /* IN THE ARRAY WHICH CONTAINS THE MSSC REASON @Y30LB39*/ 00552000 * /* CODES. @Y30LB39*/ 00553000 * /* @Y30LB39*/ 00554000 * /* */ 00555000 * /*************************************************************/ 00556000 * 0294 00557000 * /* @Y30LB39*/ 00558000 * SSDRGLT=''B; /* @Y30LB39*/ 00559000 XC SSDRGLT(20),SSDRGLT 0294 00560000 * SSDLPTR->DARGRETP=ADDR(SSINXLST);/* @Y30LB39*/ 00561000 LA @03,SSINXLST 0295 00562000 ST @03,DARGRETP(,@15) 0295 00563000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 00564000 MVC DARGSMOD(3,@15),SSMODSS0 0296 00565000 * SSDLPTR->DARGSENT=1; /* @Y30LB39*/ 00566000 MVI DARGSENT(@15),X'01' 0297 00567000 * SSDLPTR->DARGRETL=LENGTH(SSINXLST);/* @Y30LB39 00568000 * @Y30LB39*/ 00569000 * 0298 00570000 MVC DARGRETL(2,@15),@CH01098 0298 00571000 * /*************************************************************/ 00572000 * /* */ 00573000 * /* @Y30LB39*/ 00574000 * /* ISSUE UPRINT MACRO TO READ IN THE SEARCH @Y30LB39*/ 00575000 * /* ARRAY. @Y30LB39*/ 00576000 * /* @Y30LB39*/ 00577000 * /* */ 00578000 * /*************************************************************/ 00579000 * 0299 00580000 * /* @Y30LB39*/ 00581000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 00582000 * @Y30LB39*/ 00583000 * 0299 00584000 ST @11,@AL00001 0299 00585000 LA @03,@CF00113 0299 00586000 ST @03,@AL00001+4 0299 00587000 LA @03,SSDLPTR 0299 00588000 ST @03,@AL00001+8 0299 00589000 MVI @AL00001+8,X'80' 0299 00590000 L @15,GDTPRT(,@11) 0299 00591000 LA @01,@AL00001 0299 00592000 BALR @14,@15 0299 00593000 * /*************************************************************/ 00594000 * /* */ 00595000 * /* @Y30LB39*/ 00596000 * /* BEGIN DO LOOP TO SEARCH FOR THE MESSAGE @Y30LB39*/ 00597000 * /* INDEX CORRESPONDING TO THE REASON CODE @Y30LB39*/ 00598000 * /* PASSED AS THE FIRST ARGUMENT. @Y30LB39*/ 00599000 * /* THE DO LOOP BEGINS WITH THE SECOND ARRAY @Y30LB39*/ 00600000 * /* ENTRY SINCE THE FIRST IS REQUIRED BY THE @Y30LB39*/ 00601000 * /* SEARCH ARRAY ITSELF. @Y30LB39*/ 00602000 * /* THE SEARCH CONTINUES UNTIL THE REASON CODE @Y30LB39*/ 00603000 * /* IS FOUND, AT WHICH TIME THE SEARCH INDEX @Y30LB39*/ 00604000 * /* IS PASSED TO THE PRINT MODULE TO PRINT @Y30LB39*/ 00605000 * /* THE MESSAGE ASSOCIATED WITH THAT PARTICULAR @Y30LB39*/ 00606000 * /* REASON CODE. @Y30LB39*/ 00607000 * /* IF THERE IS NO MATCH FOUND IN THE ARRAY, @Y30LB39*/ 00608000 * /* THEN THE INDEX WILL BE THE LAST POSITION IN @Y30LB39*/ 00609000 * /* ARRAY. THIS WILL BE THE INDICATION THAT @Y30LB39*/ 00610000 * /* THE REASON CODE ITSELF SHOULD BE PRINTED. @Y30LB39*/ 00611000 * /* @Y30LB39*/ 00612000 * /* */ 00613000 * /*************************************************************/ 00614000 * 0300 00615000 * /* @Y30LB39*/ 00616000 * ENTRYNUM=1; /* @Y30LB39*/ 00617000 LA ENTRYNUM,1 0300 00618000 * DO UNTIL(SSRHALF=SSARRAY(ENTRYNUM)|SSARRAY(ENTRYNUM)=0); 0301 00619000 @DL00301 DS 0H 0302 00620000 * ENTRYNUM=ENTRYNUM+1; /* @Y30LB39*/ 00621000 AL ENTRYNUM,@CF00217 0302 00622000 * END; /* @Y30LB39 00623000 * @Y30LB39*/ 00624000 * 0303 00625000 @DE00301 L @11,@PC00002 0303 00626000 LR @03,ENTRYNUM 0303 00627000 ALR @03,@03 0303 00628000 LH @03,SSARRAY-2(@03) 0303 00629000 CH @03,SSRHALF(,@11) 0303 00630000 BE @DC00301 0303 00631000 SLR @15,@15 0303 00632000 CR @03,@15 0303 00633000 BNE @DL00301 0303 00634000 @DC00301 DS 0H 0304 00635000 * /*************************************************************/ 00636000 * /* */ 00637000 * /* @Y30LB39*/ 00638000 * /* THE CORRECT INDEX HAS BEEN FOUND @Y30LB39*/ 00639000 * /* @Y30LB39*/ 00640000 * /* CLEAR THE DYNAMIC ARGUMENT LIST AND FILL @Y30LB39*/ 00641000 * /* OUT THE PRINT ARGUMENT FIELDS WITH EITHER: @Y30LB39*/ 00642000 * /* 1) THE INDEX CORRESPONDING TO THE REASON @Y30LB39*/ 00643000 * /* CODE OR @Y30LB39*/ 00644000 * /* 2) THE LAST INDEX AND THE REASON CODE @Y30LB39*/ 00645000 * /* ITSELF AS A STATIC TEXT INSERT. @Y30LB39*/ 00646000 * /* @Y30LB39*/ 00647000 * /* */ 00648000 * /*************************************************************/ 00649000 * 0304 00650000 * /* @Y30LB39*/ 00651000 * SSDRGLT=''B; /* @Y30LB39*/ 00652000 XC SSDRGLT(20),SSDRGLT 0304 00653000 * SSDLPTR->DARGSMOD=SSMODSS0; /* @Y30LB39*/ 00654000 L @14,SSDLPTR 0305 00655000 MVC DARGSMOD(3,@14),SSMODSS0 0305 00656000 * SSDLPTR->DARGSENT=ENTRYNUM; /* @Y30LB39*/ 00657000 STC ENTRYNUM,DARGSENT(,@14) 0306 00658000 * IF SSARRAY(ENTRYNUM)=0 THEN /* @Y30LB39*/ 00659000 CR @03,@15 0307 00660000 BNE @RF00307 0307 00661000 * DO; /* @Y30LB39*/ 00662000 * SSDLPTR->DARGDBP=ADDR(SSRCODE);/* @Y30LB39*/ 00663000 ST @11,DARGDBP(,@14) 0309 00664000 * SSDLPTR->DARGILP=LENGTH(SSRCODE);/* @Y30LB39*/ 00665000 MVC DARGILP(2,@14),@CH00040 0310 00666000 * END; /* @Y30LB39*/ 00667000 * END; /* @Y30LB39*/ 00668000 * /* @Y30LB39*/ 00669000 * 0313 00670000 * /*****************************************************************/ 00671000 * /* */ 00672000 * /* @Y30LB39*/ 00673000 * /* THE FIRST ARGUMENT WAS ZERO, INDICATING THAT @Y30LB39*/ 00674000 * /* THIS ROUTINE IS TO PRINT OUT THE ECB POST @Y30LB39*/ 00675000 * /* CODE. THEREFORE, CLEAR THE DYNAMIC ARGUMENT @Y30LB39*/ 00676000 * /* LIST AND FILL OUT THE PRINT ARGUMENT FIELDS @Y30LB39*/ 00677000 * /* SO THE STATIC TEXT MODULE, IDCTSCM0, WILL @Y30LB39*/ 00678000 * /* PRINT OUT THE MESSAGE ASSOCIATED WITH THE @Y30LB39*/ 00679000 * /* POST CODE. @Y30LB39*/ 00680000 * /* @Y30LB39*/ 00681000 * /* */ 00682000 * /*****************************************************************/ 00683000 * 0313 00684000 * /* @Y30LB39*/ 00685000 * ELSE /* @Y30LB39*/ 00686000 * DO; /* @Y30LB39*/ 00687000 B @RC00292 0313 00688000 @RF00292 DS 0H 0314 00689000 * SSDRGLT=''B; /* @Y30LB39*/ 00690000 XC SSDRGLT(20),SSDRGLT 0314 00691000 * SSDLPTR->DARGSMOD=SSMODCM0; /* @Y30LB39*/ 00692000 L @11,SSDLPTR 0315 00693000 MVC DARGSMOD(3,@11),SSMODCM0 0315 00694000 * SSDLPTR->DARGSENT=SSMSGNUM; /* @Y30LB39*/ 00695000 MVC DARGSENT(1,@11),SSMSGNUM 0316 00696000 * SSDLPTR->DARGDBP=ADDR(SSECBCD);/* @Y30LB39*/ 00697000 L @15,@PC00002+4 0317 00698000 ST @15,DARGDBP(,@11) 0317 00699000 * SSDLPTR->DARGILP=LENGTH(SSECBCD);/* @Y30LB39*/ 00700000 MVC DARGILP(2,@11),@CH00217 0318 00701000 * END; /* @Y30LB39 00702000 * @Y30LB39*/ 00703000 * 0319 00704000 * /*****************************************************************/ 00705000 * /* */ 00706000 * /* @Y30LB39*/ 00707000 * /* ISSUE UPRINT MACRO TO PRINT THE REASON @Y30LB39*/ 00708000 * /* CODE MESSAGE OR THE ECB POST CODE MESSAGE. @Y30LB39*/ 00709000 * /* @Y30LB39*/ 00710000 * /* */ 00711000 * /*****************************************************************/ 00712000 * 0320 00713000 * /* @Y30LB39*/ 00714000 * CALL AMSTP011(GDTTBL,PRTFILE,SSDLPTR);/* @Y30LB39 00715000 * @Y30LB39*/ 00716000 * 0320 00717000 @RC00292 L @11,@PC00001 0320 00718000 ST @11,@AL00001 0320 00719000 LA @15,@CF00113 0320 00720000 ST @15,@AL00001+4 0320 00721000 LA @15,SSDLPTR 0320 00722000 ST @15,@AL00001+8 0320 00723000 MVI @AL00001+8,X'80' 0320 00724000 L @15,GDTPRT(,@11) 0320 00725000 LA @01,@AL00001 0320 00726000 BALR @14,@15 0320 00727000 * /*****************************************************************/ 00728000 * /* */ 00729000 * /* @Y30LB39*/ 00730000 * /* RETURN TO CALLER WITH A RETURN CODE OF ZERO @Y30LB39*/ 00731000 * /* @Y30LB39*/ 00732000 * /* */ 00733000 * /*****************************************************************/ 00734000 * 0321 00735000 * /* @Y30LB39 00736000 * @Y30LB39*/ 00737000 * RETURN CODE(0); /* @Y30LB39 00738000 * @Y30LB39*/ 00739000 SLR @15,@15 0321 00740000 L @14,@SA00002 0321 00741000 LM @00,@12,@SA00002+8 0321 00742000 BR @14 0321 00743000 * END SSCMSG; /* @Y30LB39*/ 00744000 * END IDCCT01 /* @Z40LB65*/ 00745000 * 0323 00746000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00747000 */*%INCLUDE SYSLIB (AMSDF01 ) */ 00748000 */*%INCLUDE SYSLIB (AMSDF00 ) */ 00749000 */*@INCLUDE SYSLIB (AMSDF02 ) */ 00750000 */*%INCLUDE SYSLIB (IDCDF04 ) */ 00751000 */*%INCLUDE SYSLIB (IDCCSCT ) */ 00752000 */*%INCLUDE SYSLIB (IDCDF52 ) */ 00753000 * 0323 00754000 * ; 0323 00755000 @DATA DS 0H 00756000 @CH00565 DC H'12' 00757000 @CH00306 DC H'24' 00758000 @CH01098 DC H'120' 00759000 @DATD DSECT 00760000 DS 0F 00761000 @SA00001 DS 18F 00762000 @PC00001 DS 3F 00763000 @SA00002 DS 15F 00764000 @PC00002 DS 2F 00765000 @AL00001 DS 4A 00766000 @AFTEMPS DS 1F 00767000 IDCCT01 CSECT 00768000 DS 0F 00769000 @CF00113 DC F'0' 00770000 @CF00217 DC F'1' 00771000 @CH00217 EQU @CF00217+2 00772000 @CF00151 DC F'2' 00773000 @CH00151 EQU @CF00151+2 00774000 @CF00040 DC F'4' 00775000 @CH00040 EQU @CF00040+2 00776000 @CF00154 DC F'6' 00777000 @CF00471 DC F'16' 00778000 @DATD DSECT 00779000 DS 0D 00780000 LISTSCAN DS A 00781000 IOCSPTR DS A 00782000 OPNPTR DS A 00783000 DDSTRU DS A 00784000 FSADDR DS A 00785000 ERCNVADR DS A 00786000 CCMSGPTR DS A 00787000 CMMSGPTR DS A 00788000 CTMSGPTR DS A 00789000 ELEMENT DS F 00790000 REASONCD DS F 00791000 COTPTR DS A 00792000 SSDLPTR DS A 00793000 LISTPTR DS A 00794000 SETRC DS H 00795000 LISTLN DS FL1 00796000 @TS00001 DS CL95 00797000 DS CL2 00798000 COTBLIST DS CL24 00799000 ORG COTBLIST 00800000 COTBLL DS FL4 00801000 COTBOP DS FL1 00802000 @NM00084 DS CL1 00803000 COTBFLG DS BL2 00804000 ORG COTBFLG 00805000 COTBTID DS BL1 00806000 @NM00085 EQU COTBFLG+0 00807000 COTBTRX DS BL1 00808000 COTBTRY EQU COTBFLG+1 00809000 COTBTRA EQU COTBFLG+1 00810000 COTBTRI EQU COTBFLG+1 00811000 @NM00086 EQU COTBFLG+1 00812000 ORG COTBLIST+8 00813000 COTBEXTS DS CL4 00814000 COTBVOL DS CL6 00815000 COTBASID DS CL2 00816000 COTBECB DS FL4 00817000 ORG COTBLIST+24 00818000 PRINTAB DS CL20 00819000 DMPSTG DS CL17 00820000 SSDRGLT DS CL20 00821000 DS CL3 00822000 SSINXLST DS CL120 00823000 ORG SSINXLST 00824000 SSARRAY DS 60H 00825000 ORG SSINXLST+120 00826000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00827000 @ENDDATD EQU * 00828000 IDCCT01 CSECT 00829000 DS 0F 00830000 @SIZDATD DC AL1(0) 00831000 DC AL3(@ENDDATD-@DATD) 00832000 DS 0D 00833000 SSMSGNUM DC AL1(56) 00834000 @CC01071 DC C'COTBLIST' 00835000 @CC01068 DC C'CTAA' 00836000 @CC01073 DC C'CTAB' 00837000 @CC01075 DC C'CTAZ' 00838000 @CC01097 DC C'SSAA' 00839000 @CC01056 DC C'UV0' 00840000 @CC01058 DC C'CT0' 00841000 ALL DC CL3'ALL' 00842000 FORMAT DC CL4'FORM' 00843000 HSECOND DC CL4'HSEC' 00844000 CLOCK DC CL4'KLOK' 00845000 SETZERO DC CL4'ZERO' 00846000 SETBLANK DC CL4'BLNK' 00847000 NOSET DC CL4'NSET' 00848000 OVERRIDE DC CL4'OVRD' 00849000 ACQUIRE DC CL8'ACQUIRE ' 00850000 RELINQ DC CL8'RELINQ ' 00851000 MOUNT DC CL8'MOUNT ' 00852000 DEMOUNT DC CL8'DEMOUNT ' 00853000 DEFINE DC CL8'DEFINE ' 00854000 MOVE DC CL8'MOVE ' 00855000 TRACEQ DC CL8'TRACEQ ' 00856000 COPYTABL DC CL8'COPYTABL' 00857000 COPYCRTG DC CL8'COPYCRTG' 00858000 COPYVOL DC CL8'COPYVOL ' 00859000 VVIC DC CL8'VVIC ' 00860000 TUNE DC CL8'TUNE ' 00861000 NAMES DC CL4'NAME' 00862000 UNIT DC CL4'UNIT' 00863000 SHR DC CL4'SHR ' 00864000 EXCL DC CL4'EXCL' 00865000 NOWAIT DC CL4'NWAI' 00866000 WAIT DC CL4'WAIT' 00867000 SECCHECK DC CL8'SECCHECK' 00868000 SCRVTOC DC CL8'SCRVTOC ' 00869000 GETVTOC DC CL8'GETVTOC ' 00870000 PUTVTOC DC CL8'PUTVTOC ' 00871000 RECATLG DC CL8'RECATLG ' 00872000 INITVOL DC CL8'INITVOL ' 00873000 CHECK DC CL8'CHECK ' 00874000 POSTUCB DC CL8'POSTUCB ' 00875000 GET DC CL8'GET ' 00876000 PUT DC CL8'PUT ' 00877000 CLOSE DC CL8'CLOSE ' 00878000 OPEN DC CL8'OPEN ' 00879000 PUTLABEL DC CL8'PUTLABEL' 00880000 GETLABEL DC CL8'GETLABEL' 00881000 CANCEL DC CL8'CANCEL ' 00882000 SET DC CL8'SET ' 00883000 SELECTX DC CL8'SELECTX ' 00884000 CHANGEX DC CL8'CHANGEX ' 00885000 SELECTDD DC CL8'SELECTDD' 00886000 SELECTDS DC CL8'SELECTDS' 00887000 TBLREST DC CL8'TBLREST ' 00888000 NULLIFYC DC CL8'NULLIFYC' 00889000 RDMSC DC CL8'RDMSC ' 00890000 RDMSCTBL DC CL8'RDMSCTBL' 00891000 RDCARTLB DC CL8'RDCARTLB' 00892000 AUDITCEL DC CL8'AUDITCEL' 00893000 RDSTGAD DC CL8'RDSTGAD ' 00894000 FIXAREA DS CL100 00895000 ORG FIXAREA 00896000 @NM00087 DC 100X'00' 00897000 ORG FIXAREA+100 00898000 RESTORE DC X'08' 00899000 F0F0 DC X'F0F0' 00900000 MODID DC CL4'CT01' 00901000 SSMODSS0 DC CL3'SS0' 00902000 SSMODCM0 DC CL3'CM0' 00903000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00904000 @01 EQU 01 00905000 @02 EQU 02 00906000 @03 EQU 03 00907000 @04 EQU 04 00908000 @05 EQU 05 00909000 @06 EQU 06 00910000 @07 EQU 07 00911000 @08 EQU 08 00912000 @09 EQU 09 00913000 @10 EQU 10 00914000 @11 EQU 11 00915000 @12 EQU 12 00916000 @13 EQU 13 00917000 @14 EQU 14 00918000 @15 EQU 15 00919000 ENTRYNUM EQU @02 00920000 DMPINDEX EQU @02 00921000 TESTRC EQU @03 00922000 REG10 EQU @10 00923000 RTNREG EQU @15 00924000 COTBR1 EQU @01 00925000 REG0 EQU @00 00926000 REG1 EQU @01 00927000 REG11 EQU @11 00928000 REG12 EQU @12 00929000 REG13 EQU @13 00930000 REG14 EQU @14 00931000 REG15 EQU @15 00932000 REG2 EQU @02 00933000 REG3 EQU @03 00934000 REG4 EQU @04 00935000 REG5 EQU @05 00936000 REG6 EQU @06 00937000 REG7 EQU @07 00938000 REG8 EQU @08 00939000 REG9 EQU @09 00940000 IDCSAEP0 EQU 0 00941000 IDCSASS0 EQU 0 00942000 TRACE1 EQU 0 00943000 OLDERID1 EQU TRACE1 00944000 TRACE2 EQU 0 00945000 OLDERID2 EQU TRACE2 00946000 NEWID2 EQU TRACE2+95 00947000 NEWERID2 EQU 5 00948000 CIRAGL EQU 0 00949000 CIRTYPE EQU CIRAGL 00950000 ALLAGL EQU 0 00951000 ALLSTS EQU ALLAGL+24 00952000 ALLDSP EQU ALLAGL+25 00953000 ALLORG EQU ALLAGL+26 00954000 ALLOPT EQU ALLAGL+28 00955000 UNITABL EQU 0 00956000 UNITADR EQU UNITABL+4 00957000 @NM00010 EQU UNITADR 00958000 UNITSTAT EQU UNITABL+6 00959000 IOCSTR EQU 0 00960000 IOCDSO EQU IOCSTR+16 00961000 IOCRFM EQU IOCSTR+17 00962000 IOCMAC EQU IOCSTR+18 00963000 IOCMAC2 EQU IOCSTR+19 00964000 IOCCHP EQU IOCSTR+20 00965000 IOCMSG EQU IOCSTR+21 00966000 IOCRBA EQU IOCSTR+40 00967000 IOCTTR EQU IOCRBA 00968000 IOCMEM EQU IOCSTR+44 00969000 IOCNWM EQU IOCSTR+48 00970000 OPNAGL EQU 0 00971000 OPNOPT EQU OPNAGL 00972000 OPNRFM EQU OPNAGL+1 00973000 OPNTYP EQU OPNAGL+2 00974000 OPNMOD EQU OPNAGL+3 00975000 OPNDEV EQU OPNAGL+24 00976000 OPNDSO EQU OPNAGL+41 00977000 OPNOPT2 EQU OPNAGL+42 00978000 IOINFOPT EQU 0 00979000 UVOLLIST EQU 0 00980000 UVOLENT EQU UVOLLIST+2 00981000 AMSTP011 EQU 0 00982000 DARGLIST EQU 0 00983000 DARGDBP EQU DARGLIST 00984000 DARGRETP EQU DARGLIST+4 00985000 DARGSTID EQU DARGLIST+8 00986000 DARGSMOD EQU DARGSTID 00987000 DARGSENT EQU DARGSTID+3 00988000 DARGILP EQU DARGLIST+12 00989000 DARGRETL EQU DARGLIST+16 00990000 DARGARY EQU DARGLIST+20 00991000 DARGINS EQU DARGARY 00992000 DARGINL EQU DARGARY+2 00993000 FMTLIST EQU 0 00994000 FMTFLGS EQU FMTLIST 00995000 FMTSPF EQU FMTLIST+2 00996000 FMTRFNO EQU FMTSPF 00997000 FMTILEN EQU FMTRFNO 00998000 FMTIOFF EQU FMTLIST+4 00999000 FMTTRBC EQU FMTIOFF 01000000 FMTSTO EQU FMTTRBC 01001000 FMTOCOL EQU FMTLIST+6 01002000 FMTCNVF EQU FMTLIST+10 01003000 ERCNVTAB EQU 0 01004000 ERTYPE EQU ERCNVTAB 01005000 EROPER EQU ERCNVTAB+1 01006000 EROSOPER EQU ERCNVTAB+2 01007000 IDCDB010 EQU 0 01008000 DMPITM EQU 0 01009000 DMPITMNM EQU DMPITM 01010000 DMPITMPT EQU DMPITM+8 01011000 DMPITMLN EQU DMPITM+12 01012000 DMPITMTP EQU DMPITM+14 01013000 DMPARY EQU 0 01014000 DMPTRM EQU 0 01015000 CCMSG EQU 0 01016000 CMMSG EQU 0 01017000 CMVOLFLG EQU CMMSG+6 01018000 CTMSG EQU 0 01019000 CTARRAY EQU CTMSG+4 01020000 MDAGL EQU 0 01021000 MDFLAGS EQU MDAGL+30 01022000 PUAGL EQU 0 01023000 CKAGL EQU 0 01024000 CKFLAGS EQU CKAGL+28 01025000 EXCLAGL EQU 0 01026000 EXCLFLAG EQU EXCLAGL+22 01027000 EXOARG EQU 0 01028000 EXOPT EQU EXOARG+32 01029000 EXFLG EQU EXOARG+33 01030000 EXGARG EQU 0 01031000 EXPARG EQU 0 01032000 EXPDATA EQU EXPARG+12 01033000 EXPDATAB EQU 0 01034000 EXPARRAY EQU EXPDATAB+4 01035000 VS2AGL EQU 0 01036000 VSLABOPT EQU VS2AGL+28 01037000 VS2MSG EQU VS2AGL+35 01038000 VS2RESOP EQU VS2AGL+36 01039000 VS1AGL EQU 0 01040000 VSSECOPT EQU VS1AGL+68 01041000 VSVTOPT EQU VS1AGL+69 01042000 VSCATOPT EQU VS1AGL+70 01043000 VSRETURN EQU VS1AGL+71 01044000 VSMSG EQU VS1AGL+72 01045000 VSRESOPT EQU VS1AGL+73 01046000 RCTAGL EQU 0 01047000 RCTOPT EQU RCTAGL+8 01048000 STAEPARM EQU 0 01049000 STARCVY EQU STAEPARM+52 01050000 STARETRY EQU STAEPARM+53 01051000 VOLLABEL EQU 0 01052000 SV82LIST EQU 0 01053000 @NM00065 EQU SV82LIST+4 01054000 SV82DCBP EQU @NM00065 01055000 @NM00066 EQU SV82LIST+12 01056000 SV82WRKP EQU @NM00066 01057000 SRTAGL EQU 0 01058000 LCTINFO EQU 0 01059000 LCTFLAGS EQU LCTINFO+32 01060000 UCTAGL EQU 0 01061000 UCTFLAGS EQU UCTAGL+68 01062000 SELAGL EQU 0 01063000 SELFLAGS EQU SELAGL+22 01064000 DATESAGL EQU 0 01065000 DATESOPT EQU DATESAGL+20 01066000 VS3AGL EQU 0 01067000 VS3FLAGS EQU VS3AGL+58 01068000 VSDVTOC EQU 0 01069000 VSDSTAT EQU 0 01070000 VSDSFLG1 EQU VSDSTAT+16 01071000 VSDFLG2 EQU VSDSTAT+17 01072000 VSDSCR EQU 0 01073000 VSDSCRFL EQU VSDSCR+4 01074000 VSDUSAGE EQU 0 01075000 VSDDORG EQU VSDUSAGE+9 01076000 VSDALLOC EQU VSDUSAGE+10 01077000 VSDUSEF EQU VSDUSAGE+11 01078000 VSDDSORG EQU VSDUSAGE+16 01079000 VSDBLOCK EQU 0 01080000 VSDSPACE EQU VSDBLOCK+12 01081000 VSDARRAY EQU VSDBLOCK+16 01082000 VSDVARY EQU VSDARRAY+48 01083000 TOSD EQU 0 01084000 TOSDVAL EQU TOSD 01085000 AMSTP041 EQU 0 01086000 AMSTP042 EQU 0 01087000 AMSTP043 EQU 0 01088000 AMSTP044 EQU 0 01089000 IDCIOCL0 EQU 0 01090000 IDCIOCO0 EQU 0 01091000 IDCIOGT0 EQU 0 01092000 IDCIOIT0 EQU 0 01093000 IDCIOOP0 EQU 0 01094000 IDCIOPO0 EQU 0 01095000 IDCIOPT0 EQU 0 01096000 IDCIOSI0 EQU 0 01097000 IDCIOST0 EQU 0 01098000 IDCIOTM0 EQU 0 01099000 IDCIOVY0 EQU 0 01100000 IDCIO050 EQU 0 01101000 IDCSAAL0 EQU 0 01102000 IDCSACA0 EQU 0 01103000 IDCSACL0 EQU 0 01104000 IDCSACR0 EQU 0 01105000 IDCSADE0 EQU 0 01106000 IDCSADL0 EQU 0 01107000 IDCSADQ0 EQU 0 01108000 IDCSAFP0 EQU 0 01109000 IDCSAFS0 EQU 0 01110000 IDCSAGP0 EQU 0 01111000 IDCSAGS0 EQU 0 01112000 IDCSAID0 EQU 0 01113000 IDCSALC0 EQU 0 01114000 IDCSALD0 EQU 0 01115000 IDCSALK0 EQU 0 01116000 IDCSANQ0 EQU 0 01117000 IDCSAPR0 EQU 0 01118000 IDCSAPT0 EQU 0 01119000 IDCSAQL0 EQU 0 01120000 IDCSARC0 EQU 0 01121000 IDCSARV0 EQU 0 01122000 IDCSASC0 EQU 0 01123000 IDCSASI0 EQU 0 01124000 IDCSASN0 EQU 0 01125000 IDCSAST0 EQU 0 01126000 IDCSATI0 EQU 0 01127000 IDCSAUC0 EQU 0 01128000 IDCSAWO0 EQU 0 01129000 IDCSA060 EQU 0 01130000 IDCST010 EQU 0 01131000 IDCTPER0 EQU 0 01132000 LISTTEST EQU 0 01133000 NEWERID1 EQU 5 01134000 GDTTBL EQU 0 01135000 GDTTR1 EQU GDTTBL+8 01136000 GDTTR2 EQU GDTTBL+12 01137000 GDTDBG EQU GDTTBL+40 01138000 GDTSTC EQU GDTTBL+44 01139000 GDTPRT EQU GDTTBL+48 01140000 GDTESS EQU GDTTBL+52 01141000 GDTESA EQU GDTTBL+56 01142000 GDTRST EQU GDTTBL+60 01143000 GDTRES EQU GDTTBL+64 01144000 GDTCAL EQU GDTTBL+68 01145000 GDTGSP EQU GDTTBL+72 01146000 GDTFSP EQU GDTTBL+76 01147000 GDTGPL EQU GDTTBL+80 01148000 GDTFPL EQU GDTTBL+84 01149000 GDTLOD EQU GDTTBL+88 01150000 GDTDEL EQU GDTTBL+92 01151000 GDTPRL EQU GDTTBL+96 01152000 GDTEPL EQU GDTTBL+100 01153000 GDTTIM EQU GDTTBL+104 01154000 GDTIIO EQU GDTTBL+108 01155000 GDTTIO EQU GDTTBL+112 01156000 GDTOPN EQU GDTTBL+124 01157000 GDTCLS EQU GDTTBL+128 01158000 GDTGET EQU GDTTBL+132 01159000 GDTPUT EQU GDTTBL+136 01160000 GDTPOS EQU GDTTBL+140 01161000 GDTCPY EQU GDTTBL+144 01162000 GDTCAT EQU GDTTBL+148 01163000 GDTSNP EQU GDTTBL+164 01164000 GDTVFY EQU GDTTBL+172 01165000 GDTUID EQU GDTTBL+192 01166000 GDTPMT EQU GDTTBL+196 01167000 GDTCIR EQU GDTTBL+200 01168000 GDTLNK EQU GDTTBL+204 01169000 GDTALC EQU GDTTBL+208 01170000 GDTDLC EQU GDTTBL+212 01171000 GDTQAL EQU GDTTBL+216 01172000 GDTSTW EQU GDTTBL+220 01173000 GDTSSC EQU GDTTBL+224 01174000 GDTENQ EQU GDTTBL+228 01175000 GDTRSV EQU GDTTBL+232 01176000 GDTDEQ EQU GDTTBL+236 01177000 GDTSFO EQU GDTTBL+240 01178000 GDTWTO EQU GDTTBL+244 01179000 GDTSCR EQU GDTTBL+248 01180000 GDTUNT EQU GDTTBL+252 01181000 GDTRCT EQU GDTTBL+256 01182000 GDTIFO EQU GDTTBL+260 01183000 GDTEXP EQU GDTTBL+264 01184000 GDTSTA EQU GDTTBL+268 01185000 GDTERR EQU GDTTBL+272 01186000 GDTUNC EQU GDTTBL+276 01187000 GDTLOC EQU GDTTBL+280 01188000 FDTTBL EQU 0 01189000 FDTPTR EQU FDTTBL+8 01190000 LASTCOND EQU 0 01191000 SSRCODE EQU 0 01192000 SSRHALF EQU SSRCODE+2 01193000 SSECBCD EQU 0 01194000 DCOTBTID EQU COTBTID 01195000 SD EQU TOSDVAL 01196000 SSID EQU SD+3 01197000 * START UNREFERENCED COMPONENTS 01198000 @NM00088 EQU SD 01199000 @NM00089 EQU SSRCODE 01200000 FDTVERB EQU FDTTBL 01201000 GDTECT EQU GDTTBL+188 01202000 GDTPSB EQU GDTTBL+184 01203000 GDTUPT EQU GDTTBL+180 01204000 GDTCMB EQU GDTTBL+176 01205000 GDTSPR EQU GDTTBL+168 01206000 @NM00001 EQU GDTTBL+160 01207000 GDTABH EQU GDTTBL+156 01208000 GDTABT EQU GDTTBL+152 01209000 GDTTOH EQU GDTTBL+120 01210000 GDTRIP EQU GDTTBL+116 01211000 GDTIOH EQU GDTTBL+36 01212000 GDTSAH EQU GDTTBL+32 01213000 GDTTPH EQU GDTTBL+28 01214000 GDTRIH EQU GDTTBL+24 01215000 GDTSTH EQU GDTTBL+20 01216000 GDTDBH EQU GDTTBL+16 01217000 GDTPRM EQU GDTTBL+4 01218000 GDTHDR EQU GDTTBL 01219000 VSDDSN EQU VSDARRAY+4 01220000 VSDVOLCT EQU VSDARRAY 01221000 VSDFMT0 EQU VSDBLOCK+8 01222000 VSDVTOCS EQU VSDBLOCK+4 01223000 VSDELEM EQU VSDBLOCK 01224000 VSDFREE EQU VSDUSAGE+24 01225000 VSDALLC EQU VSDUSAGE+19 01226000 VSDDSOR3 EQU VSDDSORG+2 01227000 @NM00083 EQU VSDDSORG 01228000 VSDSCAL EQU VSDUSAGE+12 01229000 @NM00082 EQU VSDUSEF 01230000 VSDCALFR EQU VSDUSEF 01231000 @NM00081 EQU VSDALLOC 01232000 VSDABSTR EQU VSDALLOC 01233000 VSDABLK EQU VSDALLOC 01234000 VSDATRK EQU VSDALLOC 01235000 VSDACYL EQU VSDALLOC 01236000 @NM00080 EQU VSDDORG 01237000 VSDOU EQU VSDDORG 01238000 VSDOIS EQU VSDDORG 01239000 VSDODA EQU VSDDORG 01240000 VSDOUN EQU VSDDORG 01241000 VSDOPS EQU VSDDORG 01242000 VSDOPO EQU VSDDORG 01243000 VSDEXTS EQU VSDUSAGE+8 01244000 VSDSECAL EQU VSDUSAGE+4 01245000 VSDFTRK EQU VSDUSAGE+2 01246000 VSDTRKS EQU VSDUSAGE 01247000 @NM00079 EQU VSDSCR+5 01248000 @NM00078 EQU VSDSCRFL 01249000 VSDVSAM EQU VSDSCRFL 01250000 VSDCATLC EQU VSDSCRFL 01251000 VSDACBPT EQU VSDSCR 01252000 VSDPRTC EQU VSDSTAT+25 01253000 VSDCAT EQU VSDSTAT+22 01254000 VSDEXP EQU VSDSTAT+20 01255000 VSDCRE EQU VSDSTAT+18 01256000 @NM00077 EQU VSDFLG2 01257000 VSDERROR EQU VSDFLG2 01258000 VSDPROT EQU VSDFLG2 01259000 VSDPWW EQU VSDFLG2 01260000 VSDPWR EQU VSDFLG2 01261000 @NM00076 EQU VSDSFLG1 01262000 VSDCVSAM EQU VSDSFLG1 01263000 VSDCATLG EQU VSDSFLG1 01264000 VSDVSAME EQU VSDSFLG1 01265000 VSDVSAMC EQU VSDSFLG1 01266000 VSDVTOCE EQU VSDSFLG1 01267000 VSDVTOCC EQU VSDSFLG1 01268000 VSDOWNER EQU VSDSTAT+8 01269000 VSDEXPIR EQU VSDSTAT+4 01270000 VSDCREAT EQU VSDSTAT 01271000 VSDFRCCL EQU VSDVTOC+21 01272000 @NM00075 EQU VSDVTOC+20 01273000 VSDFREXT EQU VSDVTOC+16 01274000 @NM00074 EQU VSDVTOC+15 01275000 VSDFRTRK EQU VSDVTOC+11 01276000 @NM00073 EQU VSDVTOC+10 01277000 VSDFRCYL EQU VSDVTOC+6 01278000 @NM00072 EQU VSDVTOC 01279000 @NM00071 EQU VS3FLAGS 01280000 VS3SYSNM EQU VS3FLAGS 01281000 VS3UNCAT EQU VS3FLAGS 01282000 VS3SCR EQU VS3FLAGS 01283000 VS3USAGE EQU VS3FLAGS 01284000 VS3STAT EQU VS3FLAGS 01285000 VS3DD EQU VS3AGL+50 01286000 VS3VOL EQU VS3AGL+44 01287000 VS3POOL EQU VS3AGL+40 01288000 VS3DEV EQU VS3AGL+36 01289000 VS3UCBP EQU VS3AGL+32 01290000 VS3CREAT EQU VS3AGL+28 01291000 VS3EXPIR EQU VS3AGL+24 01292000 VS3AST EQU VS3AGL+22 01293000 VS3LEVLN EQU VS3AGL+20 01294000 VS3LEVP EQU VS3AGL+16 01295000 VS3EXDSP EQU VS3AGL+12 01296000 VS3LISTP EQU VS3AGL+8 01297000 VS3HEAD EQU VS3AGL 01298000 @NM00070 EQU DATESOPT 01299000 DATDAYOP EQU DATESOPT 01300000 DATDTEOP EQU DATESOPT 01301000 DATSUB EQU DATESOPT 01302000 DATADD EQU DATESOPT 01303000 DATRETRN EQU DATESAGL+16 01304000 DATDAYS EQU DATESAGL+12 01305000 DATDATE EQU DATESAGL+8 01306000 DATHEAD EQU DATESAGL 01307000 @NM00069 EQU SELFLAGS 01308000 SELVOL EQU SELAGL+16 01309000 SELDDNP EQU SELAGL+12 01310000 SELUCBP EQU SELAGL+8 01311000 SELHEAD EQU SELAGL 01312000 @NM00068 EQU UCTFLAGS 01313000 UCTVSCAT EQU UCTFLAGS 01314000 UCTDD EQU UCTAGL+60 01315000 UCTVOLP EQU UCTAGL+56 01316000 UCTACBP EQU UCTAGL+52 01317000 UCTDSN EQU UCTAGL+8 01318000 UCTHEAD EQU UCTAGL 01319000 @NM00067 EQU LCTFLAGS 01320000 LCTVSCAT EQU LCTFLAGS 01321000 LCTOWNER EQU LCTINFO+24 01322000 LCTEXPIR EQU LCTINFO+20 01323000 LCTCREAT EQU LCTINFO+16 01324000 LCTACBP EQU LCTINFO+12 01325000 LCTMULVC EQU LCTINFO+8 01326000 LCTHEAD EQU LCTINFO 01327000 SRTWORKP EQU SRTAGL+28 01328000 SRTFLDLN EQU SRTAGL+24 01329000 SRTPOSIT EQU SRTAGL+20 01330000 SRTLEN EQU SRTAGL+16 01331000 SRTNUM EQU SRTAGL+12 01332000 SRTADDR EQU SRTAGL+8 01333000 SRTHEAD EQU SRTAGL 01334000 SV82DEBP EQU SV82WRKP 01335000 SV82TTRP EQU SV82LIST+8 01336000 SV82VOLP EQU SV82DCBP 01337000 SV82UCBP EQU SV82LIST+1 01338000 SV82CODE EQU SV82LIST 01339000 VOLRESV3 EQU VOLLABEL+55 01340000 VOLOWNER EQU VOLLABEL+45 01341000 VOLRESV1 EQU VOLLABEL+20 01342000 VOLVTOC EQU VOLLABEL+15 01343000 VOLSECTY EQU VOLLABEL+14 01344000 VOLSERNO EQU VOLLABEL+8 01345000 VOLNO EQU VOLLABEL+7 01346000 VOLLABI EQU VOLLABEL+4 01347000 VOLKEY EQU VOLLABEL 01348000 @NM00064 EQU STARETRY 01349000 STAVTOC EQU STARETRY 01350000 STAOFF EQU STARETRY 01351000 STAIO05 EQU STARETRY 01352000 @NM00063 EQU STARCVY 01353000 STACLEAR EQU STARCVY 01354000 STAVPOST EQU STARCVY 01355000 STAVENQ EQU STARCVY 01356000 STAVDMNT EQU STARCVY 01357000 STAVMNT EQU STARCVY 01358000 STATCB EQU STAEPARM+48 01359000 STARTADD EQU STAEPARM+44 01360000 STAEXSAV EQU STAEPARM+40 01361000 STARTSAV EQU STAEPARM+36 01362000 STARTTR EQU STAEPARM+32 01363000 @NM00062 EQU STAEPARM+30 01364000 STARVOL EQU STAEPARM+24 01365000 STARUCB EQU STAEPARM+20 01366000 @NM00061 EQU STAEPARM+18 01367000 STAVVOL EQU STAEPARM+12 01368000 STAVUCB EQU STAEPARM+8 01369000 STAHEAD EQU STAEPARM 01370000 RCTDSET EQU RCTAGL+32 01371000 RCTNVOL EQU RCTAGL+26 01372000 RCTOVOL EQU RCTAGL+20 01373000 RCTNDEV EQU RCTAGL+16 01374000 RCTODEV EQU RCTAGL+12 01375000 @NM00060 EQU RCTAGL+10 01376000 @NM00059 EQU RCTOPT 01377000 RCTVOL EQU RCTOPT 01378000 RCTDEV EQU RCTOPT 01379000 RCTHEAD EQU RCTAGL 01380000 @NM00058 EQU VSRESOPT 01381000 VSREAL EQU VSRESOPT 01382000 VSRES EQU VSRESOPT 01383000 @NM00057 EQU VSMSG 01384000 VSTOV EQU VSMSG 01385000 VSFROMV EQU VSMSG 01386000 @NM00056 EQU VSRETURN 01387000 VSUCAT EQU VSRETURN 01388000 VSVSAM EQU VSRETURN 01389000 @NM00055 EQU VSCATOPT 01390000 VSLIST EQU VSCATOPT 01391000 VSSERIAL EQU VSCATOPT 01392000 VSDEVICE EQU VSCATOPT 01393000 @NM00054 EQU VSVTOPT 01394000 VSVSFLAG EQU VSVTOPT 01395000 VSALTTRK EQU VSVTOPT 01396000 VSTIME EQU VSVTOPT 01397000 VSUCMAST EQU VSSECOPT 01398000 VSOPCAT EQU VSSECOPT 01399000 VSUCTEST EQU VSSECOPT 01400000 VSWRITE EQU VSSECOPT 01401000 VSREAD EQU VSSECOPT 01402000 VSNONONV EQU VSSECOPT 01403000 VSMASTER EQU VSSECOPT 01404000 VSNOVSAM EQU VSSECOPT 01405000 VSODEVP EQU VS1AGL+64 01406000 VSOSERP EQU VS1AGL+60 01407000 VSDEVP EQU VS1AGL+56 01408000 VSSERP EQU VS1AGL+52 01409000 VSPFILEP EQU VS1AGL+48 01410000 VSPSWDP EQU VS1AGL+44 01411000 VSCATDDP EQU VS1AGL+40 01412000 VSACBP EQU VS1AGL+36 01413000 VSCATP EQU VS1AGL+32 01414000 VSNXTATP EQU VS1AGL+28 01415000 VSNUMATP EQU VS1AGL+24 01416000 VSIOP EQU VS1AGL+20 01417000 VSFILEP EQU VS1AGL+16 01418000 VSVOLP EQU VS1AGL+12 01419000 VSUCBP EQU VS1AGL+8 01420000 VSHEAD EQU VS1AGL 01421000 VSDDNAME EQU VS2AGL+37 01422000 @NM00053 EQU VS2RESOP 01423000 VS2REAL EQU VS2RESOP 01424000 VS2RES EQU VS2RESOP 01425000 @NM00052 EQU VS2MSG 01426000 VS2TOV EQU VS2MSG 01427000 VSVOLUME EQU VS2AGL+29 01428000 @NM00051 EQU VSLABOPT 01429000 VSVOLSER EQU VSLABOPT 01430000 VSOWNER EQU VSLABOPT 01431000 VSIOBKPT EQU VS2AGL+24 01432000 VSVOLPTR EQU VS2AGL+20 01433000 VSOWNPTR EQU VS2AGL+16 01434000 VSVTOCSZ EQU VS2AGL+12 01435000 VSUCBPTR EQU VS2AGL+8 01436000 VS2HEAD EQU VS2AGL 01437000 EXPDATAL EQU EXPARRAY+6 01438000 @NM00050 EQU EXPARRAY+5 01439000 EXPKEYLN EQU EXPARRAY+4 01440000 EXPDATAP EQU EXPARRAY 01441000 EXPRECNO EQU EXPDATAB 01442000 EXPCCHHR EQU EXPARG+16 01443000 EXPCTLBK EQU EXPARG+8 01444000 EXPHEAD EQU EXPARG 01445000 EXGDATAL EQU EXGARG+30 01446000 @NM00049 EQU EXGARG+29 01447000 EXGKEYLN EQU EXGARG+28 01448000 EXGDATAP EQU EXGARG+24 01449000 EXGRECNO EQU EXGARG+20 01450000 EXGCCHH2 EQU EXGARG+16 01451000 EXGCCHH1 EQU EXGARG+12 01452000 EXGCTLBK EQU EXGARG+8 01453000 EXGHEAD EQU EXGARG 01454000 @NM00048 EQU EXFLG 01455000 EXOREAD EQU EXFLG 01456000 @NM00047 EQU EXOPT 01457000 EXOVTOC EQU EXOPT 01458000 EXONEW EQU EXOPT 01459000 EXOPASS EQU EXOPT 01460000 EXOLAB EQU EXOPT 01461000 EXOTAB EQU EXOPT 01462000 EXOCTLBK EQU EXOARG+28 01463000 EXOEXT EQU EXOARG+24 01464000 EXOUCB EQU EXOARG+20 01465000 EXOVSN EQU EXOARG+16 01466000 EXODSN EQU EXOARG+12 01467000 EXODDN EQU EXOARG+8 01468000 EXOHEAD EQU EXOARG 01469000 @NM00046 EQU EXCLFLAG 01470000 EXCLMNT EQU EXCLFLAG 01471000 EXCLVOL EQU EXCLAGL+16 01472000 EXCLDDP EQU EXCLAGL+12 01473000 EXCLUCBP EQU EXCLAGL+8 01474000 EXCLHEAD EQU EXCLAGL 01475000 @NM00045 EQU CKFLAGS 01476000 CKDMTABL EQU CKFLAGS 01477000 CKRETTYP EQU CKFLAGS 01478000 CKTESTVT EQU CKFLAGS 01479000 CKLABELP EQU CKAGL+24 01480000 CKDATYPE EQU CKAGL+20 01481000 CKDDNAME EQU CKAGL+12 01482000 CKUCBPTR EQU CKAGL+8 01483000 CKHEAD EQU CKAGL 01484000 PULABELP EQU PUAGL+16 01485000 PUTTRPTR EQU PUAGL+12 01486000 PUUCBPTR EQU PUAGL+8 01487000 PUHEAD EQU PUAGL 01488000 @NM00044 EQU MDFLAGS 01489000 MDDEQ EQU MDFLAGS 01490000 MDENQ EQU MDFLAGS 01491000 MDWAIT EQU MDFLAGS 01492000 MDPOST EQU MDFLAGS 01493000 MDCLEAR EQU MDFLAGS 01494000 MDNEWVOL EQU MDFLAGS 01495000 MDLABEL EQU MDAGL+24 01496000 MDPUAGL EQU MDAGL+20 01497000 MDDDNAME EQU MDAGL+12 01498000 MDUCBPTR EQU MDAGL+8 01499000 MDHEAD EQU MDAGL 01500000 CTTBLRR EQU CTARRAY+3 01501000 CTTBLHH EQU CTARRAY+2 01502000 CTTBLCC EQU CTARRAY+1 01503000 CTTBLID EQU CTARRAY 01504000 CTREALH EQU CTMSG+3 01505000 CTREALCC EQU CTMSG+1 01506000 @NM00043 EQU CTMSG 01507000 CMCSN2 EQU CMMSG+28 01508000 CMCSN1 EQU CMMSG+16 01509000 CMNUMCRT EQU CMMSG+15 01510000 @NM00042 EQU CMMSG+14 01511000 CMNEWVOL EQU CMMSG+8 01512000 @NM00041 EQU CMMSG+7 01513000 @NM00040 EQU CMVOLFLG 01514000 CMRONLY EQU CMVOLFLG 01515000 CMBIND EQU CMVOLFLG 01516000 CMSCRCRT EQU CMVOLFLG 01517000 CMEXCL EQU CMVOLFLG 01518000 CMDERAS EQU CMVOLFLG 01519000 CMSCRVOL EQU CMVOLFLG 01520000 CMCECART EQU CMVOLFLG 01521000 CMOLDVOL EQU CMMSG 01522000 CCOLDCSN EQU CCMSG+24 01523000 CCNEWCSN EQU CCMSG+12 01524000 @NM00039 EQU CCMSG+10 01525000 CCVOL EQU CCMSG+4 01526000 @NM00038 EQU CCMSG+2 01527000 CCEJCODE EQU CCMSG+1 01528000 CCPSTCDE EQU CCMSG 01529000 @NM00037 EQU DMPARY+15 01530000 DMPARYTP EQU DMPARY+14 01531000 DMPARYEX EQU DMPARY+12 01532000 DMPARYIC EQU DMPARY+10 01533000 DMPARYSZ EQU DMPARY+8 01534000 DMPARYNM EQU DMPARY 01535000 @NM00036 EQU DMPITM+15 01536000 @NM00035 EQU ERCNVTAB+24 01537000 ERCPLPT EQU ERCNVTAB+20 01538000 ERCATRC EQU ERCNVTAB+16 01539000 ERDSNM EQU ERCNVTAB+12 01540000 @NM00034 EQU ERCNVTAB+4 01541000 @NM00033 EQU ERCNVTAB+3 01542000 @NM00032 EQU EROSOPER 01543000 EROSUCDX EQU EROSOPER 01544000 EROSCATL EQU EROSOPER 01545000 @NM00031 EQU EROPER 01546000 ERCATAL EQU EROPER 01547000 ERCATDL EQU EROPER 01548000 ERCATDE EQU EROPER 01549000 ERCATLC EQU EROPER 01550000 @NM00030 EQU ERTYPE 01551000 EROSCAT EQU ERTYPE 01552000 ERCATLG EQU ERTYPE 01553000 @NM00029 EQU FMTCNVF+1 01554000 FMTBS EQU FMTCNVF+1 01555000 FMTSS EQU FMTCNVF+1 01556000 FMTAL EQU FMTCNVF+1 01557000 FMTZS EQU FMTCNVF+1 01558000 @NM00028 EQU FMTCNVF 01559000 FMTPU EQU FMTCNVF 01560000 FMTBD EQU FMTCNVF 01561000 FMTBHD EQU FMTCNVF 01562000 FMTBHA EQU FMTCNVF 01563000 FMTBH EQU FMTCNVF 01564000 FMTOLEN EQU FMTLIST+8 01565000 FMTRIO EQU FMTOCOL 01566000 FMTSPT EQU FMTSTO 01567000 FMTSTL EQU FMTILEN 01568000 @NM00027 EQU FMTFLGS+1 01569000 FMTHDF EQU FMTFLGS 01570000 FMTDFF EQU FMTFLGS 01571000 FMTSTF EQU FMTFLGS 01572000 FMTREPF EQU FMTFLGS 01573000 FMTBDF EQU FMTFLGS 01574000 FMTIDF EQU FMTFLGS 01575000 FMTSCF EQU FMTFLGS 01576000 FMTEOLF EQU FMTFLGS 01577000 DARGDTM EQU DARGARY+4 01578000 DARGPCT EQU DARGINL 01579000 DARGREP EQU DARGINS 01580000 @NM00026 EQU DARGLIST+19 01581000 DARGIND EQU DARGLIST+18 01582000 DARGCNT EQU DARGLIST+14 01583000 UVOLVOL EQU UVOLENT+4 01584000 UVOLDEV EQU UVOLENT 01585000 UVOLCNT EQU UVOLLIST 01586000 @NM00025 EQU IOINFOPT 01587000 IOINFTMS EQU IOINFOPT 01588000 IOINFSUP EQU IOINFOPT 01589000 IOINFDSN EQU IOINFOPT 01590000 IOINFVOL EQU IOINFOPT 01591000 IOINFDVT EQU IOINFOPT 01592000 OPNVOL EQU OPNAGL+44 01593000 @NM00024 EQU OPNAGL+43 01594000 @NM00023 EQU OPNOPT2 01595000 OPNOPTJM EQU OPNOPT2 01596000 @NM00022 EQU OPNOPT2 01597000 OPNOPTAS EQU OPNOPT2 01598000 @NM00021 EQU OPNDSO 01599000 OPNDSOPO EQU OPNDSO 01600000 OPNDSOIS EQU OPNDSO 01601000 OPNDSOPS EQU OPNDSO 01602000 OPNDSOAM EQU OPNDSO 01603000 OPNKYL EQU OPNAGL+40 01604000 OPNBLK EQU OPNAGL+36 01605000 OPNREC EQU OPNAGL+32 01606000 OPNDEVIX EQU OPNDEV+4 01607000 OPNDEVDT EQU OPNDEV 01608000 OPNCBP EQU OPNAGL+20 01609000 OPNDSN EQU OPNAGL+16 01610000 OPNPWA EQU OPNAGL+12 01611000 OPNDDN EQU OPNAGL+8 01612000 OPNIOC EQU OPNAGL+4 01613000 OPNMODRP EQU OPNMOD 01614000 OPNMODUB EQU OPNMOD 01615000 OPNMODRS EQU OPNMOD 01616000 OPNMODAX EQU OPNMOD 01617000 OPNMODRR EQU OPNMOD 01618000 OPNMODRC EQU OPNMOD 01619000 OPNMODAC EQU OPNMOD 01620000 OPNMODPD EQU OPNMOD 01621000 @NM00020 EQU OPNTYP 01622000 OPNTYPRV EQU OPNTYP 01623000 OPNTYPEX EQU OPNTYP 01624000 OPNTYPRA EQU OPNTYP 01625000 OPNTYPXM EQU OPNTYP 01626000 OPNTYPCI EQU OPNTYP 01627000 OPNTYPSO EQU OPNTYP 01628000 OPNTYPSI EQU OPNTYP 01629000 @NM00019 EQU OPNRFM 01630000 OPNRFMBK EQU OPNRFM 01631000 OPNRFMSF EQU OPNRFM 01632000 OPNRFMUN EQU OPNRFM 01633000 OPNRFMVR EQU OPNRFM 01634000 OPNRFMFX EQU OPNRFM 01635000 OPNOPTSK EQU OPNOPT 01636000 OPNOPTDR EQU OPNOPT 01637000 OPNOPTCR EQU OPNOPT 01638000 OPNOPTKS EQU OPNOPT 01639000 OPNOPTBK EQU OPNOPT 01640000 OPNOPTUP EQU OPNOPT 01641000 OPNOPTOT EQU OPNOPT 01642000 OPNOPTIN EQU OPNOPT 01643000 IOCEXT EQU IOCSTR+64 01644000 IOCREL EQU IOCSTR+60 01645000 IOCWORK EQU IOCSTR+56 01646000 IOCRRN EQU IOCSTR+52 01647000 IOCPNM EQU IOCNWM+2 01648000 IOCPTL EQU IOCNWM 01649000 IOCKYA EQU IOCMEM 01650000 IOCVRC EQU IOCTTR 01651000 IOCCBP EQU IOCSTR+36 01652000 IOCDSN EQU IOCSTR+32 01653000 IOCHURBA EQU IOCSTR+28 01654000 IOCVOLSR EQU IOCSTR+22 01655000 @NM00018 EQU IOCMSG 01656000 IOCMSGAE EQU IOCMSG 01657000 IOCMSGCE EQU IOCMSG 01658000 IOCMSGOE EQU IOCMSG 01659000 IOCMSGOP EQU IOCMSG 01660000 @NM00017 EQU IOCMSG 01661000 IOCCHPSY EQU IOCCHP 01662000 IOCCHPAS EQU IOCCHP 01663000 IOCCHPBK EQU IOCCHP 01664000 IOCCHPCR EQU IOCCHP 01665000 IOCCHPKS EQU IOCCHP 01666000 IOCCHPSK EQU IOCCHP 01667000 IOCCHPDR EQU IOCCHP 01668000 IOCCHPSQ EQU IOCCHP 01669000 @NM00016 EQU IOCMAC2 01670000 IOCMACPA EQU IOCMAC2 01671000 @NM00015 EQU IOCMAC2 01672000 IOCMACCP EQU IOCMAC2 01673000 IOCMACRR EQU IOCMAC2 01674000 IOCMACAS EQU IOCMAC2 01675000 IOCMACSK EQU IOCMAC2 01676000 @NM00014 EQU IOCMAC 01677000 IOCMACCC EQU IOCMAC 01678000 IOCMACDR EQU IOCMAC 01679000 IOCMACBK EQU IOCMAC 01680000 IOCMACCR EQU IOCMAC 01681000 IOCMACUP EQU IOCMAC 01682000 IOCMACOT EQU IOCMAC 01683000 IOCMACIN EQU IOCMAC 01684000 @NM00013 EQU IOCRFM 01685000 IOCRFMBK EQU IOCRFM 01686000 IOCRFMSF EQU IOCRFM 01687000 IOCRFMUN EQU IOCRFM 01688000 IOCRFMVR EQU IOCRFM 01689000 IOCRFMFX EQU IOCRFM 01690000 @NM00012 EQU IOCDSO 01691000 IOCDSOPO EQU IOCDSO 01692000 IOCDSOIS EQU IOCDSO 01693000 IOCDSOPS EQU IOCDSO 01694000 IOCDSOAM EQU IOCDSO 01695000 IOCRKP EQU IOCSTR+13 01696000 IOCKYL EQU IOCSTR+12 01697000 IOCTRN EQU IOCSTR+8 01698000 IOCDLN EQU IOCSTR+4 01699000 IOCDAD EQU IOCSTR 01700000 UNITVTOC EQU UNITABL+7 01701000 @NM00011 EQU UNITSTAT 01702000 UNITXSHR EQU UNITSTAT 01703000 UNITISHR EQU UNITSTAT 01704000 UNITUA EQU @NM00010+1 01705000 UNITCHA EQU @NM00010 01706000 UNITUCB EQU UNITABL 01707000 ALLUNCNT EQU ALLAGL+30 01708000 ALLVLCNT EQU ALLAGL+29 01709000 @NM00009 EQU ALLOPT 01710000 ALLOPTUN EQU ALLOPT 01711000 ALLOPTPV EQU ALLOPT 01712000 ALLOPTDS EQU ALLOPT 01713000 ALLOPTVL EQU ALLOPT 01714000 @NM00008 EQU ALLORG+1 01715000 ALLORGVS EQU ALLORG+1 01716000 @NM00007 EQU ALLORG+1 01717000 ALLORGGS EQU ALLORG+1 01718000 ALLORGUN EQU ALLORG 01719000 ALLORGPO EQU ALLORG 01720000 ALLORGMQ EQU ALLORG 01721000 ALLORGCQ EQU ALLORG 01722000 ALLORGCX EQU ALLORG 01723000 ALLORGDA EQU ALLORG 01724000 ALLORGPS EQU ALLORG 01725000 ALLORGIS EQU ALLORG 01726000 ALLDSPUN EQU ALLDSP 01727000 ALLDSPCG EQU ALLDSP 01728000 ALLDSPDE EQU ALLDSP 01729000 ALLDSPKP EQU ALLDSP 01730000 @NM00006 EQU ALLDSP 01731000 ALLSTSOD EQU ALLSTS 01732000 ALLSTSMD EQU ALLSTS 01733000 ALLSTSNW EQU ALLSTS 01734000 ALLSTSSR EQU ALLSTS 01735000 @NM00005 EQU ALLSTS 01736000 ALLPWD EQU ALLAGL+20 01737000 ALLVLP EQU ALLAGL+16 01738000 ALLULP EQU ALLAGL+12 01739000 ALLDDN EQU ALLAGL+4 01740000 ALLDSN EQU ALLAGL 01741000 CIRPID EQU CIRAGL+28 01742000 CIRPWD EQU CIRAGL+24 01743000 CIRCAT EQU CIRAGL+20 01744000 CIRWKP EQU CIRAGL+16 01745000 CIRTLR EQU CIRAGL+12 01746000 CIRHDR EQU CIRAGL+8 01747000 CIRTLN EQU CIRAGL+6 01748000 CIRHLN EQU CIRAGL+4 01749000 @NM00004 EQU CIRAGL+1 01750000 @NM00003 EQU CIRTYPE 01751000 CIRTYPAQ EQU CIRTYPE 01752000 CIRTYP1Q EQU CIRTYPE 01753000 NEWID1 EQU TRACE1+95 01754000 CALLID EQU OLDERID1+90 01755000 @NM00002 EQU OLDERID1 01756000 * END UNREFERENCED COMPONENTS 01757000 @RF00307 EQU @RC00292 01758000 @PB00002 EQU @EL00001 01759000 @ENDDATA EQU * 01760000 END IDCCT01,(C'PLS1236',0603,75287) 01761000