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