TITLE '***************** IDCEX03: AMS TERMINATION **********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 IDCEX03 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCEX03 75.077' 0002 00018000 DROP @15 00019000 @PROLOG STM @14,@12,12(@13) 0002 00020000 BALR @12,0 0002 00021000 @PSTART DS 0H 0002 00022000 USING @PSTART,@12 0002 00023000 L @00,@SIZDATD 0002 00024000 GETMAIN R,LV=(0) 00025000 LR @11,@01 0002 00026000 USING @DATD,@11 0002 00027000 ST @13,@SA00001+4 0002 00028000 LM @00,@01,20(@13) 0002 00029000 ST @11,8(,@13) 0002 00030000 LR @13,@11 0002 00031000 MVC @PC00001(8),0(@01) 0002 00032000 * /*PATCH AREA FOR MAINTENANCE */ 00033000 * /************************************************************/ 00034000 * /* */ 00035000 * /* SUMMARIZE AND PRINT THE STORAGE AND PERFORMANCE */ 00036000 * /* MEASUREMENTS OBTAINED IF THE IDCAMS STATISTICS OPTION */ 00037000 * /* IS 'ON' */ 00038000 * /* */ 00039000 * /************************************************************/ 00040000 * 0146 00041000 * /* 'USTATS' CALL GENERATED HERE IF STATISTICS OPTION 'ON' */ 00042000 * 0146 00043000 * 0146 00044000 * 0146 00045000 * /************************************************************/ 00046000 * /* */ 00047000 * /* ISSUE IDCAMS TERMINATION MESSAGE */ 00048000 * /* */ 00049000 * /************************************************************/ 00050000 * 0146 00051000 * DDSTRU = ADDR(PRNTLIST); 0146 00052000 LA @10,PRNTLIST 0146 00053000 ST @10,DDSTRU 0146 00054000 * PRNTLIST = '00'X; 0147 00055000 XC PRNTLIST+1(19),PRNTLIST+1 0147 00056000 MVI PRNTLIST,X'00' 0147 00057000 * DARGSMOD = LASTMSG; 0148 00058000 MVC DARGSMOD(3,@10),@CC00573 0148 00059000 * DARGSENT = LASTMSG#; 0149 00060000 MVI DARGSENT(@10),X'02' 0149 00061000 * DARGDBP = ADDR(MAXCOND); 0150 00062000 L @15,@PC00001+4 0150 00063000 ST @15,DARGDBP(,@10) 0150 00064000 * DARGILP = 2; 0151 00065000 * 0151 00066000 MVC DARGILP(2,@10),@CH00144 0151 00067000 * CALL AMSTP011(GDTTBL,PRTFILE,DDSTRU); 0152 00068000 * 0152 00069000 L @10,@PC00001 0152 00070000 ST @10,@AL00001 0152 00071000 LA @15,@CF00108 0152 00072000 ST @15,@AL00001+4 0152 00073000 LA @15,DDSTRU 0152 00074000 ST @15,@AL00001+8 0152 00075000 MVI @AL00001+8,X'80' 0152 00076000 L @15,GDTPRT(,@10) 0152 00077000 LA @01,@AL00001 0152 00078000 BALR @14,@15 0152 00079000 * /************************************************************/ 00080000 * /* */ 00081000 * /* TURN OFF IDCAMS TEST OPTION (IF TEST OPTION 'ON') */ 00082000 * /* */ 00083000 * /************************************************************/ 00084000 * 0153 00085000 * IF GDTDBH ^= NULLPTR 0153 00086000 * THEN 0153 00087000 L @10,@PC00001 0153 00088000 L @15,GDTDBH(,@10) 0153 00089000 LTR @15,@15 0153 00090000 BZ @RF00153 0153 00091000 * DO; 0154 00092000 * /******************************************************/ 00093000 * /* */ 00094000 * /* FREE STORAGE HELD BY 'TEST OPTION DATA AREA' */ 00095000 * /* */ 00096000 * /******************************************************/ 00097000 * 0155 00098000 * CALL IDCSAFS0(GDTTBL,GDTDBH); 0155 00099000 * 0155 00100000 ST @10,@AL00001 0155 00101000 LA @15,GDTDBH(,@10) 0155 00102000 ST @15,@AL00001+4 0155 00103000 L @15,GDTFSP(,@10) 0155 00104000 LA @01,@AL00001 0155 00105000 BALR @14,@15 0155 00106000 * GDTDBH = NULLPTR; 0156 00107000 L @10,@PC00001 0156 00108000 SLR @15,@15 0156 00109000 ST @15,GDTDBH(,@10) 0156 00110000 * END; 0157 00111000 * 0157 00112000 * IF GDTDBG ^= NULLPTR 0158 00113000 * THEN 0158 00114000 @RF00153 L @10,@PC00001 0158 00115000 L @15,GDTDBG(,@10) 0158 00116000 LTR @15,@15 0158 00117000 BZ @RF00158 0158 00118000 * DO; 0159 00119000 * /******************************************************/ 00120000 * /* */ 00121000 * /* DELETE THE IDCAMS DUMP ROUTINE (IDCDB01) */ 00122000 * /* */ 00123000 * /******************************************************/ 00124000 * 0160 00125000 * CALL IDCSADE0(GDTTBL,'IDCDB01 '); 0160 00126000 * 0160 00127000 ST @10,@AL00001 0160 00128000 LA @15,@CC00580 0160 00129000 ST @15,@AL00001+4 0160 00130000 L @15,GDTDEL(,@10) 0160 00131000 LA @01,@AL00001 0160 00132000 BALR @14,@15 0160 00133000 * GDTDBG = NULLPTR; 0161 00134000 L @10,@PC00001 0161 00135000 SLR @15,@15 0161 00136000 ST @15,GDTDBG(,@10) 0161 00137000 * END; 0162 00138000 * 0162 00139000 * /************************************************************/ 00140000 * /* */ 00141000 * /* OBTAIN IDCAMS INVOKER'S PAGE NUMBER PARAMETER ADDRESS */ 00142000 * /* */ 00143000 * /************************************************************/ 00144000 * 0163 00145000 * PAGEPTR = NULLPTR; 0163 00146000 * 0163 00147000 @RF00158 SLR @10,@10 0163 00148000 ST @10,PAGEPTR 0163 00149000 * CALL SCANPARM; 0164 00150000 * 0164 00151000 BAL @14,SCANPARM 0164 00152000 * /************************************************************/ 00153000 * /* */ 00154000 * /* TERMINATE THE TEXT PROCESSING FACILITY */ 00155000 * /* AND UPDATE THE NEXT AVAILABLE PAGE NUMBER (IF SUPPLIED) */ 00156000 * /* IN THE IDCAMS INVOKER'S PARAMETER LIST (URESET MACRO) */ 00157000 * /* */ 00158000 * /************************************************************/ 00159000 * 0165 00160000 * CALL AMSTP044(GDTTBL,PRTFILE,PAGEPTR); 0165 00161000 * 0165 00162000 L @10,@PC00001 0165 00163000 ST @10,@AL00001 0165 00164000 LA @15,@CF00108 0165 00165000 ST @15,@AL00001+4 0165 00166000 LA @15,PAGEPTR 0165 00167000 ST @15,@AL00001+8 0165 00168000 MVI @AL00001+8,X'80' 0165 00169000 L @15,GDTRES(,@10) 0165 00170000 LA @01,@AL00001 0165 00171000 BALR @14,@15 0165 00172000 * /************************************************************/ 00173000 * /* */ 00174000 * /* TERMINATE THE INPUT/OUTPUT ADAPTER FACILITY */ 00175000 * /* */ 00176000 * /************************************************************/ 00177000 * 0166 00178000 * CALL IDCIOTM0(GDTTBL); 0166 00179000 * 0166 00180000 L @10,@PC00001 0166 00181000 ST @10,@AL00001 0166 00182000 MVI @AL00001,X'80' 0166 00183000 L @15,GDTTIO(,@10) 0166 00184000 LA @01,@AL00001 0166 00185000 BALR @14,@15 0166 00186000 * /************************************************************/ 00187000 * /* */ 00188000 * /* RETURN TO THE IDCAMS EXECUTIVE (IDCEX01) */ 00189000 * /* */ 00190000 * /************************************************************/ 00191000 * 0167 00192000 * CALL IDCSAEP0(GDTTBL,MODID); 0167 00193000 L @10,@PC00001 0167 00194000 ST @10,@AL00001 0167 00195000 LA @15,MODID 0167 00196000 ST @15,@AL00001+4 0167 00197000 MVI @AL00001+4,X'80' 0167 00198000 L @15,GDTEPL(,@10) 0167 00199000 LA @01,@AL00001 0167 00200000 BALR @14,@15 0167 00201000 */********************************************************************/ 00202000 */* */ 00203000 */* PROCEDURE NAME - SCANPARM */ 00204000 */* */ 00205000 */* FUNCTION - SCAN INVOKER'S PARAMETER LIST AND OBTAIN THE ADDRESS */ 00206000 */* OF THE PAGE NUMBER PARAMETER, IF SUPPLIED BY THE */ 00207000 */* IDCAMS INVOKER. CHECK FOR THE END OF THE VARIABLE */ 00208000 */* LENGTH LIST INDICATED BY A '1' IN THE SIGN BIT OF */ 00209000 */* THE FINAL PARAMETER */ 00210000 */* */ 00211000 */* INPUT - INVOKER'S PARAMETER LIST - ADDRESS CONTAINED IN THE */ 00212000 */* GDT 'GDTPRM' FIELD */ 00213000 */* */ 00214000 */* OUTPUT - ADDRESS OF THE PAGE NUMBER PARAMETER IN THE IDCAMS */ 00215000 */* INVOKER'S PARAMETER LIST (IF PROVIDED TO IDCAMS) */ 00216000 */* */ 00217000 */********************************************************************/ 00218000 * 0168 00219000 *SCANPARM: PROCEDURE; 0168 00220000 @EL00001 L @13,4(,@13) 0168 00221000 @EF00001 L @00,@SIZDATD 0168 00222000 LR @01,@11 0168 00223000 FREEMAIN R,LV=(0),A=(1) 00224000 @ER00001 LM @14,@12,12(@13) 0168 00225000 BR @14 0168 00226000 SCANPARM STM @14,@12,12(@13) 0168 00227000 * /************************************************************/ 00228000 * /* */ 00229000 * /* DECLARES FOR OBTAINING INVOKER'S PAGE NUMBER */ 00230000 * /* PARAMETER ADDRESS (SCANPARM) */ 00231000 * /* */ 00232000 * /************************************************************/ 00233000 * 0169 00234000 * /*IDCAMS INVOKER'S PARAMETER LIST */ 00235000 * DCL 1 PARMLIST BOUNDARY(WORD) BASED(GDTPRM), 0169 00236000 * 2 OPTPARM PTR(31), /*SYSTEM OPTIONS PARAMETER */ 00237000 * 3 OPTLAST BIT(1), /*OPTIONS PARM LIST END FLAG */ 00238000 * 2 DDPARM PTR(31), /*DDNAME LIST PARAMETER */ 00239000 * 3 DDLAST BIT(1), /*DDNAME PARM LIST END FLAG */ 00240000 * 2 PAGEPARM PTR(31), /*PAGE NUMBER PARAMETER */ 00241000 * 3 PAGELAST BIT(1), /*PAGENO PARM LIST END FLAG */ 00242000 * 2 IOPARM PTR(31), /*IOLIST PARAMETER */ 00243000 * 3 IOLAST BIT(1); /*IOLIST PARM LIST END FLAG */ 00244000 * 0169 00245000 * DCL PARMEND BIT(1) CONSTANT('1'B); 0170 00246000 * /*PARAMETER LIST END INDICATOR*/ 00247000 * OLDERID2 = NEWERID2; 0171 00248000 L @10,@PC00001 0171 00249000 L @15,GDTTR2(,@10) 0171 00250000 MVC @TS00001(95),NEWERID2(@15) 0171 00251000 MVC OLDERID2(95,@15),@TS00001 0171 00252000 * NEWID2 = 'EX3S'; 0172 00253000 * 0172 00254000 MVC NEWID2(4,@15),@CC00595 0172 00255000 * /************************************************************/ 00256000 * /* */ 00257000 * /* DETERMINE IF THE PARAMETER LIST POINTER IS IN THE GDT */ 00258000 * /* */ 00259000 * /************************************************************/ 00260000 * 0173 00261000 * IF GDTPRM ^= NULLPTR 0173 00262000 * THEN 0173 00263000 L @10,GDTPRM(,@10) 0173 00264000 LTR @10,@10 0173 00265000 BZ @RF00173 0173 00266000 * DO; 0174 00267000 * /******************************************************/ 00268000 * /* */ 00269000 * /* DETERMINE IF THE PAGE NUMBER PARAMETER IS PRESENT */ 00270000 * /* */ 00271000 * /******************************************************/ 00272000 * 0175 00273000 * IF OPTLAST ^= PARMEND & DDLAST ^= PARMEND 0175 00274000 * THEN 0175 00275000 TM OPTLAST(@10),B'10000000' 0175 00276000 BO @RF00175 0175 00277000 TM DDLAST(@10),B'10000000' 0175 00278000 BO @RF00175 0175 00279000 * /**************************************************/ 00280000 * /* */ 00281000 * /* OBTAIN ADDRESS OF THE PAGE NUMBER PARAMETER */ 00282000 * /* */ 00283000 * /**************************************************/ 00284000 * 0176 00285000 * PAGEPTR = PAGEPARM; 0176 00286000 * 0176 00287000 L @10,PAGEPARM(,@10) 0176 00288000 ST @10,PAGEPTR 0176 00289000 * END; 0177 00290000 * 0177 00291000 * RETURN; 0178 00292000 * 0178 00293000 @EL00002 DS 0H 0178 00294000 @EF00002 DS 0H 0178 00295000 @ER00002 LM @14,@12,12(@13) 0178 00296000 BR @14 0178 00297000 * END SCANPARM; 0179 00298000 * 0179 00299000 * 0179 00300000 B @EL00002 0179 00301000 * END IDCEX03 0180 00302000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00303000 */*%INCLUDE SYSLIB (AMSDF01 ) * 00304000 */*%INCLUDE SYSLIB (AMSDF00 ) * 00305000 */*@INCLUDE SYSLIB (AMSDF02 ) * 00306000 *; 0180 00307000 @DATA DS 0H 00308000 @CH00144 DC H'2' 00309000 @DATD DSECT 00310000 DS 0F 00311000 @SA00001 DS 18F 00312000 @PC00001 DS 2F 00313000 @AL00001 DS 3A 00314000 IDCEX03 CSECT 00315000 DS 0F 00316000 @CF00108 DC F'0' 00317000 @DATD DSECT 00318000 DS 0D 00319000 LISTSCAN DS A 00320000 IOCSPTR DS A 00321000 OPNPTR DS A 00322000 DDSTRU DS A 00323000 FSADDR DS A 00324000 ERCNVADR DS A 00325000 DMPINDEX DS A 00326000 PAGEPTR DS A 00327000 LISTPTR DS A 00328000 SETRC DS H 00329000 TESTRC DS H 00330000 LISTLN DS FL1 00331000 @TS00001 DS CL95 00332000 PRNTLIST DS CL20 00333000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00334000 @ENDDATD EQU * 00335000 IDCEX03 CSECT 00336000 DS 0F 00337000 @SIZDATD DC AL1(0) 00338000 DC AL3(@ENDDATD-@DATD) 00339000 DS 0D 00340000 @CC00580 DC C'IDCDB01 ' 00341000 @CC00595 DC C'EX3S' 00342000 @CC00573 DC C'UV0' 00343000 ALL DC CL3'ALL' 00344000 FORMAT DC CL4'FORM' 00345000 HSECOND DC CL4'HSEC' 00346000 CLOCK DC CL4'KLOK' 00347000 SETZERO DC CL4'ZERO' 00348000 SETBLANK DC CL4'BLNK' 00349000 NOSET DC CL4'NSET' 00350000 OVERRIDE DC CL4'OVRD' 00351000 ACQUIRE DC CL8'ACQUIRE ' 00352000 RELINQ DC CL8'RELINQ ' 00353000 MOUNT DC CL8'MOUNT ' 00354000 DEMOUNT DC CL8'DEMOUNT ' 00355000 DEFINE DC CL8'DEFINE ' 00356000 MOVE DC CL8'MOVE ' 00357000 TRACEQ DC CL8'TRACEQ ' 00358000 COPYTABL DC CL8'COPYTABL' 00359000 COPYCRTG DC CL8'COPYCRTG' 00360000 COPYVOL DC CL8'COPYVOL ' 00361000 VVIC DC CL8'VVIC ' 00362000 TUNE DC CL8'TUNE ' 00363000 NAMES DC CL4'NAME' 00364000 UNIT DC CL4'UNIT' 00365000 SHR DC CL4'SHR ' 00366000 EXCL DC CL4'EXCL' 00367000 NOWAIT DC CL4'NWAI' 00368000 WAIT DC CL4'WAIT' 00369000 MODID DC CL4'EX03' 00370000 FIXAREA DS CL50 00371000 ORG FIXAREA 00372000 @NM00037 DC 50X'00' 00373000 ORG FIXAREA+50 00374000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00375000 @01 EQU 01 00376000 @02 EQU 02 00377000 @03 EQU 03 00378000 @04 EQU 04 00379000 @05 EQU 05 00380000 @06 EQU 06 00381000 @07 EQU 07 00382000 @08 EQU 08 00383000 @09 EQU 09 00384000 @10 EQU 10 00385000 @11 EQU 11 00386000 @12 EQU 12 00387000 @13 EQU 13 00388000 @14 EQU 14 00389000 @15 EQU 15 00390000 REG0 EQU @00 00391000 REG1 EQU @01 00392000 REG10 EQU @10 00393000 REG11 EQU @11 00394000 REG12 EQU @12 00395000 REG13 EQU @13 00396000 REG14 EQU @14 00397000 REG15 EQU @15 00398000 REG2 EQU @02 00399000 REG3 EQU @03 00400000 REG4 EQU @04 00401000 REG5 EQU @05 00402000 REG6 EQU @06 00403000 REG7 EQU @07 00404000 REG8 EQU @08 00405000 REG9 EQU @09 00406000 RTNREG EQU @15 00407000 IDCSADE0 EQU 0 00408000 IDCSAEP0 EQU 0 00409000 IDCSAFS0 EQU 0 00410000 TRACE1 EQU 0 00411000 OLDERID1 EQU TRACE1 00412000 TRACE2 EQU 0 00413000 OLDERID2 EQU TRACE2 00414000 NEWID2 EQU TRACE2+95 00415000 NEWERID2 EQU 5 00416000 CIRAGL EQU 0 00417000 CIRTYPE EQU CIRAGL 00418000 ALLAGL EQU 0 00419000 ALLSTS EQU ALLAGL+24 00420000 ALLDSP EQU ALLAGL+25 00421000 ALLORG EQU ALLAGL+26 00422000 ALLOPT EQU ALLAGL+28 00423000 UNITABL EQU 0 00424000 UNITADR EQU UNITABL+4 00425000 @NM00010 EQU UNITADR 00426000 UNITSTAT EQU UNITABL+6 00427000 IDCIOTM0 EQU 0 00428000 IOCSTR EQU 0 00429000 IOCDSO EQU IOCSTR+16 00430000 IOCRFM EQU IOCSTR+17 00431000 IOCMAC EQU IOCSTR+18 00432000 IOCMAC2 EQU IOCSTR+19 00433000 IOCCHP EQU IOCSTR+20 00434000 IOCMSG EQU IOCSTR+21 00435000 IOCRBA EQU IOCSTR+40 00436000 IOCTTR EQU IOCRBA 00437000 IOCMEM EQU IOCSTR+44 00438000 IOCNWM EQU IOCSTR+48 00439000 OPNAGL EQU 0 00440000 OPNOPT EQU OPNAGL 00441000 OPNRFM EQU OPNAGL+1 00442000 OPNTYP EQU OPNAGL+2 00443000 OPNMOD EQU OPNAGL+3 00444000 OPNDEV EQU OPNAGL+24 00445000 OPNDSO EQU OPNAGL+41 00446000 OPNOPT2 EQU OPNAGL+42 00447000 IOINFOPT EQU 0 00448000 UVOLLIST EQU 0 00449000 UVOLENT EQU UVOLLIST+2 00450000 AMSTP011 EQU 0 00451000 AMSTP044 EQU 0 00452000 DARGLIST EQU 0 00453000 DARGDBP EQU DARGLIST 00454000 DARGSTID EQU DARGLIST+8 00455000 DARGSMOD EQU DARGSTID 00456000 DARGSENT EQU DARGSTID+3 00457000 DARGILP EQU DARGLIST+12 00458000 DARGARY EQU DARGLIST+20 00459000 DARGINS EQU DARGARY 00460000 DARGINL EQU DARGARY+2 00461000 FMTLIST EQU 0 00462000 FMTFLGS EQU FMTLIST 00463000 FMTSPF EQU FMTLIST+2 00464000 FMTRFNO EQU FMTSPF 00465000 FMTILEN EQU FMTRFNO 00466000 FMTIOFF EQU FMTLIST+4 00467000 FMTTRBC EQU FMTIOFF 00468000 FMTSTO EQU FMTTRBC 00469000 FMTOCOL EQU FMTLIST+6 00470000 FMTCNVF EQU FMTLIST+10 00471000 ERCNVTAB EQU 0 00472000 ERTYPE EQU ERCNVTAB 00473000 EROPER EQU ERCNVTAB+1 00474000 DMPITM EQU 0 00475000 DMPARY EQU 0 00476000 PARMLIST EQU 0 00477000 OPTPARM EQU PARMLIST 00478000 OPTLAST EQU OPTPARM 00479000 DDPARM EQU PARMLIST+4 00480000 DDLAST EQU DDPARM 00481000 PAGEPARM EQU PARMLIST+8 00482000 IOPARM EQU PARMLIST+12 00483000 AMSTP041 EQU 0 00484000 AMSTP042 EQU 0 00485000 AMSTP043 EQU 0 00486000 DMPTRM EQU 0 00487000 IDCDB010 EQU 0 00488000 IDCIOCL0 EQU 0 00489000 IDCIOCO0 EQU 0 00490000 IDCIOGT0 EQU 0 00491000 IDCIOIT0 EQU 0 00492000 IDCIOOP0 EQU 0 00493000 IDCIOPO0 EQU 0 00494000 IDCIOPT0 EQU 0 00495000 IDCIOSI0 EQU 0 00496000 IDCIOST0 EQU 0 00497000 IDCIOVY0 EQU 0 00498000 IDCIO050 EQU 0 00499000 IDCSAAL0 EQU 0 00500000 IDCSACA0 EQU 0 00501000 IDCSACL0 EQU 0 00502000 IDCSACR0 EQU 0 00503000 IDCSADL0 EQU 0 00504000 IDCSADQ0 EQU 0 00505000 IDCSAFP0 EQU 0 00506000 IDCSAGP0 EQU 0 00507000 IDCSAGS0 EQU 0 00508000 IDCSAID0 EQU 0 00509000 IDCSALD0 EQU 0 00510000 IDCSALK0 EQU 0 00511000 IDCSANQ0 EQU 0 00512000 IDCSAPR0 EQU 0 00513000 IDCSAPT0 EQU 0 00514000 IDCSAQL0 EQU 0 00515000 IDCSARC0 EQU 0 00516000 IDCSARV0 EQU 0 00517000 IDCSASC0 EQU 0 00518000 IDCSASI0 EQU 0 00519000 IDCSASN0 EQU 0 00520000 IDCSASS0 EQU 0 00521000 IDCSAST0 EQU 0 00522000 IDCSATI0 EQU 0 00523000 IDCSAWO0 EQU 0 00524000 IDCSA060 EQU 0 00525000 IDCST010 EQU 0 00526000 IDCTPER0 EQU 0 00527000 LISTTEST EQU 0 00528000 NEWERID1 EQU 5 00529000 GDTTBL EQU 0 00530000 GDTPRM EQU GDTTBL+4 00531000 GDTTR1 EQU GDTTBL+8 00532000 GDTTR2 EQU GDTTBL+12 00533000 GDTDBH EQU GDTTBL+16 00534000 GDTDBG EQU GDTTBL+40 00535000 GDTSTC EQU GDTTBL+44 00536000 GDTPRT EQU GDTTBL+48 00537000 GDTESS EQU GDTTBL+52 00538000 GDTESA EQU GDTTBL+56 00539000 GDTRST EQU GDTTBL+60 00540000 GDTRES EQU GDTTBL+64 00541000 GDTCAL EQU GDTTBL+68 00542000 GDTGSP EQU GDTTBL+72 00543000 GDTFSP EQU GDTTBL+76 00544000 GDTGPL EQU GDTTBL+80 00545000 GDTFPL EQU GDTTBL+84 00546000 GDTLOD EQU GDTTBL+88 00547000 GDTDEL EQU GDTTBL+92 00548000 GDTPRL EQU GDTTBL+96 00549000 GDTEPL EQU GDTTBL+100 00550000 GDTTIM EQU GDTTBL+104 00551000 GDTIIO EQU GDTTBL+108 00552000 GDTTIO EQU GDTTBL+112 00553000 GDTOPN EQU GDTTBL+124 00554000 GDTCLS EQU GDTTBL+128 00555000 GDTGET EQU GDTTBL+132 00556000 GDTPUT EQU GDTTBL+136 00557000 GDTPOS EQU GDTTBL+140 00558000 GDTCPY EQU GDTTBL+144 00559000 GDTCAT EQU GDTTBL+148 00560000 GDTSNP EQU GDTTBL+164 00561000 GDTVFY EQU GDTTBL+172 00562000 GDTUID EQU GDTTBL+192 00563000 GDTPMT EQU GDTTBL+196 00564000 GDTCIR EQU GDTTBL+200 00565000 GDTLNK EQU GDTTBL+204 00566000 GDTALC EQU GDTTBL+208 00567000 GDTDLC EQU GDTTBL+212 00568000 GDTQAL EQU GDTTBL+216 00569000 GDTSTW EQU GDTTBL+220 00570000 GDTSSC EQU GDTTBL+224 00571000 GDTENQ EQU GDTTBL+228 00572000 GDTRSV EQU GDTTBL+232 00573000 GDTDEQ EQU GDTTBL+236 00574000 GDTSFO EQU GDTTBL+240 00575000 GDTWTO EQU GDTTBL+244 00576000 GDTSCR EQU GDTTBL+248 00577000 GDTUNT EQU GDTTBL+252 00578000 GDTRCT EQU GDTTBL+256 00579000 GDTIFO EQU GDTTBL+260 00580000 GDTEXP EQU GDTTBL+264 00581000 GDTSTA EQU GDTTBL+268 00582000 GDTERR EQU GDTTBL+272 00583000 MAXCOND EQU 0 00584000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00585000 GDTECT EQU GDTTBL+188 00586000 GDTPSB EQU GDTTBL+184 00587000 GDTUPT EQU GDTTBL+180 00588000 GDTCMB EQU GDTTBL+176 00589000 GDTSPR EQU GDTTBL+168 00590000 @NM00001 EQU GDTTBL+160 00591000 GDTABH EQU GDTTBL+156 00592000 GDTABT EQU GDTTBL+152 00593000 GDTTOH EQU GDTTBL+120 00594000 GDTRIP EQU GDTTBL+116 00595000 GDTIOH EQU GDTTBL+36 00596000 GDTSAH EQU GDTTBL+32 00597000 GDTTPH EQU GDTTBL+28 00598000 GDTRIH EQU GDTTBL+24 00599000 GDTSTH EQU GDTTBL+20 00600000 GDTHDR EQU GDTTBL 00601000 IOLAST EQU IOPARM 00602000 PAGELAST EQU PAGEPARM 00603000 @NM00036 EQU DMPARY+15 00604000 DMPARYTP EQU DMPARY+14 00605000 DMPARYEX EQU DMPARY+12 00606000 DMPARYIC EQU DMPARY+10 00607000 DMPARYSZ EQU DMPARY+8 00608000 DMPARYNM EQU DMPARY 00609000 @NM00035 EQU DMPITM+15 00610000 DMPITMTP EQU DMPITM+14 00611000 DMPITMLN EQU DMPITM+12 00612000 DMPITMPT EQU DMPITM+8 00613000 DMPITMNM EQU DMPITM 00614000 @NM00034 EQU ERCNVTAB+24 00615000 ERCPLPT EQU ERCNVTAB+20 00616000 ERCATRC EQU ERCNVTAB+16 00617000 ERDSNM EQU ERCNVTAB+12 00618000 @NM00033 EQU ERCNVTAB+4 00619000 @NM00032 EQU ERCNVTAB+2 00620000 @NM00031 EQU EROPER 00621000 ERCATAL EQU EROPER 00622000 ERCATDL EQU EROPER 00623000 ERCATDE EQU EROPER 00624000 ERCATLC EQU EROPER 00625000 @NM00030 EQU ERTYPE 00626000 ERCATLG EQU ERTYPE 00627000 @NM00029 EQU FMTCNVF+1 00628000 FMTBS EQU FMTCNVF+1 00629000 FMTSS EQU FMTCNVF+1 00630000 FMTAL EQU FMTCNVF+1 00631000 FMTZS EQU FMTCNVF+1 00632000 @NM00028 EQU FMTCNVF 00633000 FMTPU EQU FMTCNVF 00634000 FMTBD EQU FMTCNVF 00635000 FMTBHD EQU FMTCNVF 00636000 FMTBHA EQU FMTCNVF 00637000 FMTBH EQU FMTCNVF 00638000 FMTOLEN EQU FMTLIST+8 00639000 FMTRIO EQU FMTOCOL 00640000 FMTSPT EQU FMTSTO 00641000 FMTSTL EQU FMTILEN 00642000 @NM00027 EQU FMTFLGS+1 00643000 FMTHDF EQU FMTFLGS 00644000 FMTDFF EQU FMTFLGS 00645000 FMTSTF EQU FMTFLGS 00646000 FMTREPF EQU FMTFLGS 00647000 FMTBDF EQU FMTFLGS 00648000 FMTIDF EQU FMTFLGS 00649000 FMTSCF EQU FMTFLGS 00650000 FMTEOLF EQU FMTFLGS 00651000 DARGDTM EQU DARGARY+4 00652000 DARGPCT EQU DARGINL 00653000 DARGREP EQU DARGINS 00654000 @NM00026 EQU DARGLIST+19 00655000 DARGIND EQU DARGLIST+18 00656000 DARGRETL EQU DARGLIST+16 00657000 DARGCNT EQU DARGLIST+14 00658000 DARGRETP EQU DARGLIST+4 00659000 UVOLVOL EQU UVOLENT+4 00660000 UVOLDEV EQU UVOLENT 00661000 UVOLCNT EQU UVOLLIST 00662000 @NM00025 EQU IOINFOPT 00663000 IOINFTMS EQU IOINFOPT 00664000 IOINFSUP EQU IOINFOPT 00665000 IOINFDSN EQU IOINFOPT 00666000 IOINFVOL EQU IOINFOPT 00667000 IOINFDVT EQU IOINFOPT 00668000 OPNVOL EQU OPNAGL+44 00669000 @NM00024 EQU OPNAGL+43 00670000 @NM00023 EQU OPNOPT2 00671000 OPNOPTJM EQU OPNOPT2 00672000 @NM00022 EQU OPNOPT2 00673000 OPNOPTAS EQU OPNOPT2 00674000 @NM00021 EQU OPNDSO 00675000 OPNDSOPO EQU OPNDSO 00676000 OPNDSOIS EQU OPNDSO 00677000 OPNDSOPS EQU OPNDSO 00678000 OPNDSOAM EQU OPNDSO 00679000 OPNKYL EQU OPNAGL+40 00680000 OPNBLK EQU OPNAGL+36 00681000 OPNREC EQU OPNAGL+32 00682000 OPNDEVIX EQU OPNDEV+4 00683000 OPNDEVDT EQU OPNDEV 00684000 OPNCBP EQU OPNAGL+20 00685000 OPNDSN EQU OPNAGL+16 00686000 OPNPWA EQU OPNAGL+12 00687000 OPNDDN EQU OPNAGL+8 00688000 OPNIOC EQU OPNAGL+4 00689000 OPNMODRP EQU OPNMOD 00690000 OPNMODUB EQU OPNMOD 00691000 OPNMODRS EQU OPNMOD 00692000 OPNMODAX EQU OPNMOD 00693000 OPNMODRR EQU OPNMOD 00694000 OPNMODRC EQU OPNMOD 00695000 OPNMODAC EQU OPNMOD 00696000 OPNMODPD EQU OPNMOD 00697000 @NM00020 EQU OPNTYP 00698000 OPNTYPRV EQU OPNTYP 00699000 OPNTYPEX EQU OPNTYP 00700000 OPNTYPRA EQU OPNTYP 00701000 OPNTYPXM EQU OPNTYP 00702000 OPNTYPCI EQU OPNTYP 00703000 OPNTYPSO EQU OPNTYP 00704000 OPNTYPSI EQU OPNTYP 00705000 @NM00019 EQU OPNRFM 00706000 OPNRFMBK EQU OPNRFM 00707000 OPNRFMSF EQU OPNRFM 00708000 OPNRFMUN EQU OPNRFM 00709000 OPNRFMVR EQU OPNRFM 00710000 OPNRFMFX EQU OPNRFM 00711000 OPNOPTSK EQU OPNOPT 00712000 OPNOPTDR EQU OPNOPT 00713000 OPNOPTCR EQU OPNOPT 00714000 OPNOPTKS EQU OPNOPT 00715000 OPNOPTBK EQU OPNOPT 00716000 OPNOPTUP EQU OPNOPT 00717000 OPNOPTOT EQU OPNOPT 00718000 OPNOPTIN EQU OPNOPT 00719000 IOCEXT EQU IOCSTR+64 00720000 IOCREL EQU IOCSTR+60 00721000 IOCWORK EQU IOCSTR+56 00722000 IOCRRN EQU IOCSTR+52 00723000 IOCPNM EQU IOCNWM+2 00724000 IOCPTL EQU IOCNWM 00725000 IOCKYA EQU IOCMEM 00726000 IOCVRC EQU IOCTTR 00727000 IOCCBP EQU IOCSTR+36 00728000 IOCDSN EQU IOCSTR+32 00729000 IOCHURBA EQU IOCSTR+28 00730000 IOCVOLSR EQU IOCSTR+22 00731000 @NM00018 EQU IOCMSG 00732000 IOCMSGAE EQU IOCMSG 00733000 IOCMSGCE EQU IOCMSG 00734000 IOCMSGOE EQU IOCMSG 00735000 IOCMSGOP EQU IOCMSG 00736000 @NM00017 EQU IOCMSG 00737000 IOCCHPSY EQU IOCCHP 00738000 IOCCHPAS EQU IOCCHP 00739000 IOCCHPBK EQU IOCCHP 00740000 IOCCHPCR EQU IOCCHP 00741000 IOCCHPKS EQU IOCCHP 00742000 IOCCHPSK EQU IOCCHP 00743000 IOCCHPDR EQU IOCCHP 00744000 IOCCHPSQ EQU IOCCHP 00745000 @NM00016 EQU IOCMAC2 00746000 IOCMACPA EQU IOCMAC2 00747000 @NM00015 EQU IOCMAC2 00748000 IOCMACCP EQU IOCMAC2 00749000 IOCMACRR EQU IOCMAC2 00750000 IOCMACAS EQU IOCMAC2 00751000 IOCMACSK EQU IOCMAC2 00752000 @NM00014 EQU IOCMAC 00753000 IOCMACCC EQU IOCMAC 00754000 IOCMACDR EQU IOCMAC 00755000 IOCMACBK EQU IOCMAC 00756000 IOCMACCR EQU IOCMAC 00757000 IOCMACUP EQU IOCMAC 00758000 IOCMACOT EQU IOCMAC 00759000 IOCMACIN EQU IOCMAC 00760000 @NM00013 EQU IOCRFM 00761000 IOCRFMBK EQU IOCRFM 00762000 IOCRFMSF EQU IOCRFM 00763000 IOCRFMUN EQU IOCRFM 00764000 IOCRFMVR EQU IOCRFM 00765000 IOCRFMFX EQU IOCRFM 00766000 @NM00012 EQU IOCDSO 00767000 IOCDSOPO EQU IOCDSO 00768000 IOCDSOIS EQU IOCDSO 00769000 IOCDSOPS EQU IOCDSO 00770000 IOCDSOAM EQU IOCDSO 00771000 IOCRKP EQU IOCSTR+13 00772000 IOCKYL EQU IOCSTR+12 00773000 IOCTRN EQU IOCSTR+8 00774000 IOCDLN EQU IOCSTR+4 00775000 IOCDAD EQU IOCSTR 00776000 UNITVTOC EQU UNITABL+7 00777000 @NM00011 EQU UNITSTAT 00778000 UNITXSHR EQU UNITSTAT 00779000 UNITISHR EQU UNITSTAT 00780000 UNITUA EQU @NM00010+1 00781000 UNITCHA EQU @NM00010 00782000 UNITUCB EQU UNITABL 00783000 ALLUNCNT EQU ALLAGL+30 00784000 ALLVLCNT EQU ALLAGL+29 00785000 @NM00009 EQU ALLOPT 00786000 ALLOPTUN EQU ALLOPT 00787000 ALLOPTPV EQU ALLOPT 00788000 ALLOPTDS EQU ALLOPT 00789000 ALLOPTVL EQU ALLOPT 00790000 @NM00008 EQU ALLORG+1 00791000 ALLORGVS EQU ALLORG+1 00792000 @NM00007 EQU ALLORG+1 00793000 ALLORGGS EQU ALLORG+1 00794000 ALLORGUN EQU ALLORG 00795000 ALLORGPO EQU ALLORG 00796000 ALLORGMQ EQU ALLORG 00797000 ALLORGCQ EQU ALLORG 00798000 ALLORGCX EQU ALLORG 00799000 ALLORGDA EQU ALLORG 00800000 ALLORGPS EQU ALLORG 00801000 ALLORGIS EQU ALLORG 00802000 ALLDSPUN EQU ALLDSP 00803000 ALLDSPCG EQU ALLDSP 00804000 ALLDSPDE EQU ALLDSP 00805000 ALLDSPKP EQU ALLDSP 00806000 @NM00006 EQU ALLDSP 00807000 ALLSTSOD EQU ALLSTS 00808000 ALLSTSMD EQU ALLSTS 00809000 ALLSTSNW EQU ALLSTS 00810000 ALLSTSSR EQU ALLSTS 00811000 @NM00005 EQU ALLSTS 00812000 ALLPWD EQU ALLAGL+20 00813000 ALLVLP EQU ALLAGL+16 00814000 ALLULP EQU ALLAGL+12 00815000 ALLDDN EQU ALLAGL+4 00816000 ALLDSN EQU ALLAGL 00817000 CIRPID EQU CIRAGL+28 00818000 CIRPWD EQU CIRAGL+24 00819000 CIRCAT EQU CIRAGL+20 00820000 CIRWKP EQU CIRAGL+16 00821000 CIRTLR EQU CIRAGL+12 00822000 CIRHDR EQU CIRAGL+8 00823000 CIRTLN EQU CIRAGL+6 00824000 CIRHLN EQU CIRAGL+4 00825000 @NM00004 EQU CIRAGL+1 00826000 @NM00003 EQU CIRTYPE 00827000 CIRTYPAQ EQU CIRTYPE 00828000 CIRTYP1Q EQU CIRTYPE 00829000 NEWID1 EQU TRACE1+95 00830000 CALLID EQU OLDERID1+90 00831000 @NM00002 EQU OLDERID1 00832000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00833000 @RF00173 EQU @EL00002 00834000 @RF00175 EQU @EL00002 00835000 @PB00002 EQU @EL00001 00836000 @ENDDATA EQU * 00837000 END IDCEX03,(C'PLS2048',0602,75077) 00838000