TITLE '****************** IDCEX01: AMS EXECUTIVE ***********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 IDCEX01 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'IDCEX01 74.284' 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 * /************************************************************/ 00034000 * /* */ 00035000 * /* CALL IDCAMS INITIALIZATION ROUTINE - SCANS INVOKER'S */ 00036000 * /* PARAMETER LIST AND PERFORMS SYSTEM INITIALIZATION */ 00037000 * /* FOR THE TEXT PROCESSOR AND THE INPUT/OUTPUT ADAPTER. */ 00038000 * /* (SYSTEM ADAPTER INITIALIZATION HAS BEEN COMPLETED */ 00039000 * /* BEFORE THE EXECUTIVE RECEIVES CONTROL). */ 00040000 * /* */ 00041000 * /************************************************************/ 00042000 * 0153 00043000 * CALL IDCEX02(GDTTBL); /*@YL026UD*/ 00044000 L @10,@PC00001 0153 00045000 ST @10,@AL00001 0153 00046000 L @15,@CV00550 0153 00047000 LA @01,@AL00001 0153 00048000 BALR @14,@15 0153 00049000 * RESPECIFY RTNREG RSTD; 0154 00050000 * TESTRC = RTNREG; 0155 00051000 LR TESTRC,RTNREG 0155 00052000 * RESPECIFY RTNREG UNRSTD; 0156 00053000 * 0156 00054000 * /************************************************************/ 00055000 * /* */ 00056000 * /* SET THE IDCAMS SYSTEM CONDITION CODES - */ 00057000 * /* MAXIMUM COND CODE FOR ALL IDCAMS FUNCTION PROCESSING */ 00058000 * /* LAST FUNCTION COND CODE FOR THE CURRENT FUNCTION */ 00059000 * /* */ 00060000 * /************************************************************/ 00061000 * 0157 00062000 * MAXCOND = TESTRC; 0157 00063000 STH TESTRC,MAXCOND 0157 00064000 * LASTCOND = TESTRC; 0158 00065000 * 0158 00066000 STH TESTRC,LASTCOND 0158 00067000 * /************************************************************/ 00068000 * /* */ 00069000 * /* ROUTE CONTROL BETWEEN THE READER/INTERPRETER (PROCESS */ 00070000 * /* THE IDCAMS COMMAND INPUT AND BUILD THE FDT) AND THE */ 00071000 * /* SPECIFIED FUNCTION SUPPORT ROUTINE (THE FSR NAME IS */ 00072000 * /* RETURNED FROM THE READER/INTERPRETER) UNTIL SYSIN */ 00073000 * /* END-OF-FILE HAS BEEN ENCOUNTERED. */ 00074000 * /* */ 00075000 * /************************************************************/ 00076000 * 0159 00077000 * CALL MAIN; 0159 00078000 * 0159 00079000 BAL @14,MAIN 0159 00080000 * IF GDTDBG = NULLPTR 0160 00081000 * THEN; 0160 00082000 L @10,@PC00001 0160 00083000 L @10,GDTDBG(,@10) 0160 00084000 LTR @10,@10 0160 00085000 BZ @RT00160 0160 00086000 * ELSE 0162 00087000 * CALL IDCDB010(GDTTBL,'EXMN'); 0162 00088000 * 0162 00089000 L @10,@PC00001 0162 00090000 ST @10,@AL00001 0162 00091000 LA @15,@CC00566 0162 00092000 ST @15,@AL00001+4 0162 00093000 MVI @AL00001+4,X'80' 0162 00094000 L @15,GDTDBG(,@10) 0162 00095000 LA @01,@AL00001 0162 00096000 BALR @14,@15 0162 00097000 * /************************************************************/ 00098000 * /* */ 00099000 * /* CALL IDCAMS TERMINATION ROUTINE - PERFORMS TERMINATION */ 00100000 * /* FOR THE TEXT PROCESSOR AND THE INPUT/OUTPUT ADAPTER, */ 00101000 * /* AND UPDATES THE INVOKER'S PARAMETER LIST. */ 00102000 * /* */ 00103000 * /************************************************************/ 00104000 * 0163 00105000 * CALL IDCEX03(GDTTBL,MAXCOND); /*@YL026UD*/ 00106000 @RT00160 L @10,@PC00001 0163 00107000 ST @10,@AL00001 0163 00108000 LA @10,MAXCOND 0163 00109000 ST @10,@AL00001+4 0163 00110000 L @15,@CV00551 0163 00111000 LA @01,@AL00001 0163 00112000 BALR @14,@15 0163 00113000 * RESPECIFY RTNREG RSTD; 0164 00114000 * TESTRC = RTNREG; 0165 00115000 LR TESTRC,RTNREG 0165 00116000 * RESPECIFY RTNREG UNRSTD; 0166 00117000 * 0166 00118000 * /************************************************************/ 00119000 * /* */ 00120000 * /* RETURN TO THE SYSTEM ADAPTER TO COMPLETE PROCESSING */ 00121000 * /* */ 00122000 * /************************************************************/ 00123000 * 0167 00124000 * CALL IDCSAEP0(GDTTBL,MODID,MAXCOND); 0167 00125000 L @10,@PC00001 0167 00126000 ST @10,@AL00001 0167 00127000 LA @15,MODID 0167 00128000 ST @15,@AL00001+4 0167 00129000 LA @15,MAXCOND 0167 00130000 ST @15,@AL00001+8 0167 00131000 MVI @AL00001+8,X'80' 0167 00132000 L @15,GDTEPL(,@10) 0167 00133000 LA @01,@AL00001 0167 00134000 BALR @14,@15 0167 00135000 */********************************************************************/ 00136000 */* */ 00137000 */* PROCEDURE NAME - MAIN */ 00138000 */* */ 00139000 */* FUNCTION - ROUTE CONTROL BETWEEN THE READER/INTERPRETER (TO */ 00140000 */* PROCESS THE IDCAMS INPUT COMMANDS AND BUILD THE */ 00141000 */* FDT) AND THE SPECIFIED FUNCTION SUPPORT ROUTINE (THE */ 00142000 */* FSR NAME IS RETURNED FROM THE READER/INTERPRETER) */ 00143000 */* */ 00144000 */* ROUTING IS CONTROLLED BY THE 'SWITCH' SWITCH WHICH */ 00145000 */* IS INITIALIZED TO 'SWITCHRI' (R/I NEXT TO RECEIVE */ 00146000 */* CONTROL) AND FOLLOWING THE CALLS TO THE READER/ */ 00147000 */* INTERPRETER AND FUNCTION ROUTINES IS UPDATED TO */ 00148000 */* 'SWITCHFS' AND 'SWITCHRI', RESPECITIVELY */ 00149000 */* */ 00150000 */* THE SYSTEM CONDITION CODES ARE UPDATED BY THE */ 00151000 */* READER/INTERPRETER AND FOLLOWING EACH CALL TO THE */ 00152000 */* FUNCTION SUPPORT ROUTINE */ 00153000 */* */ 00154000 */* INPUT - MAXIMUM SYSTEM CONDITION CODE - INITIALIZED TO ZERO */ 00155000 */* (NO EXCEPTIONAL CONDITIONS) */ 00156000 */* */ 00157000 */* OUTPUT - MAXIMUM SYSTEM CONDITION CODE - UPDATED AS A RESULT OF */ 00158000 */* READER/INTERPRETER AND FUNCTION ROUTINE PROCESSING */ 00159000 */* */ 00160000 */********************************************************************/ 00161000 * 0168 00162000 *MAIN: PROCEDURE; 0168 00163000 @EL00001 L @13,4(,@13) 0168 00164000 @EF00001 L @00,@SIZDATD 0168 00165000 LR @01,@11 0168 00166000 FREEMAIN R,LV=(0),A=(1) 00167000 @ER00001 LM @14,@12,12(@13) 0168 00168000 BR @14 0168 00169000 MAIN STM @14,@12,@SA00002 0168 00170000 * OLDERID2 = NEWERID2; 0169 00171000 L @10,@PC00001 0169 00172000 L @10,GDTTR2(,@10) 0169 00173000 MVC @TS00001(95),NEWERID2(@10) 0169 00174000 MVC OLDERID2(95,@10),@TS00001 0169 00175000 * NEWID2 = 'EX1M'; 0170 00176000 * 0170 00177000 MVC NEWID2(4,@10),@CC00570 0170 00178000 * SWITCH = SWITCHRI; 0171 00179000 NI SWITCH,B'01111111' 0171 00180000 * EOFCOND = NOEOF; 0172 00181000 * 0172 00182000 SLR EOFCOND,EOFCOND 0172 00183000 * /************************************************************/ 00184000 * /* */ 00185000 * /* LOOP THROUGH READER/INTERPRETER AND FUNCTION SUPPORT */ 00186000 * /* ROUTINES UNTIL SYSTEM CONDITION CODES = 16 (TERMINATING */ 00187000 * /* CONDITION), OR UNTIL SYSIN END-OF-FILE HAS BEEN FOUND */ 00188000 * /* BY THE READER/INTERPRETER (END-OF-FILE RETURN CODE) */ 00189000 * /* */ 00190000 * /************************************************************/ 00191000 * 0173 00192000 * DO WHILE (MAXCOND < CONDTERM & EOFCOND = NOEOF); 0173 00193000 * 0173 00194000 B @DE00173 0173 00195000 @DL00173 DS 0H 0174 00196000 * /**********************************************************/ 00197000 * /* */ 00198000 * /* TEST SWITCH TO DETERMINE WHETHER READER/INTERPRETER */ 00199000 * /* OR FUNCTION SUPPORT ROUTINE RECEIVES CONTROL */ 00200000 * /* */ 00201000 * /**********************************************************/ 00202000 * 0174 00203000 * IF SWITCH = SWITCHRI 0174 00204000 * THEN 0174 00205000 TM SWITCH,B'10000000' 0174 00206000 BNZ @RF00174 0174 00207000 * DO; 0175 00208000 * /******************************************************/ 00209000 * /* */ 00210000 * /* READER/INTERPRETER PROCESSING NEXT */ 00211000 * /* */ 00212000 * /******************************************************/ 00213000 * 0176 00214000 * CALL CALLRI; 0176 00215000 * 0176 00216000 BAL @14,CALLRI 0176 00217000 * SWITCH = SWITCHFS; 0177 00218000 OI SWITCH,B'10000000' 0177 00219000 * END; 0178 00220000 * 0178 00221000 * ELSE 0179 00222000 * DO; 0179 00223000 B @RC00174 0179 00224000 @RF00174 DS 0H 0180 00225000 * /******************************************************/ 00226000 * /* */ 00227000 * /* FUNCTION SUPPORT ROUTINE (FSR) PROCESSING NEXT */ 00228000 * /* */ 00229000 * /******************************************************/ 00230000 * 0180 00231000 * CALL CALLFSR; 0180 00232000 * 0180 00233000 BAL @14,CALLFSR 0180 00234000 * SWITCH = SWITCHRI; 0181 00235000 NI SWITCH,B'01111111' 0181 00236000 * END; 0182 00237000 * 0182 00238000 * END; 0183 00239000 * 0183 00240000 @RC00174 DS 0H 0183 00241000 @DE00173 LH @10,MAXCOND 0183 00242000 C @10,@CF00459 0183 00243000 BNL @DC00173 0183 00244000 LTR EOFCOND,EOFCOND 0183 00245000 BZ @DL00173 0183 00246000 @DC00173 DS 0H 0184 00247000 * RETURN; 0184 00248000 @EL00002 DS 0H 0184 00249000 @EF00002 DS 0H 0184 00250000 @ER00002 LM @14,@12,@SA00002 0184 00251000 BR @14 0184 00252000 */********************************************************************/ 00253000 */* */ 00254000 */* PROCEDURE NAME - CALLRI */ 00255000 */* */ 00256000 */* FUNCTION - INVOKE THE READER/INTERPRETER TO PROCESS THE NEXT */ 00257000 */* INPUT IDCAMS COMMAND. THE POOL AREA NAME IN WHICH */ 00258000 */* THE FDT WILL BE BUILT IS PASSED TO THE READER/ */ 00259000 */* INTERPRETER. (THIS POOL AREA WILL BE RELEASED BY */ 00260000 */* THE EXECUTIVE FOLLOWING FUNCTION PROCESSING) */ 00261000 */* @YL026UD*/ 00262000 */* ONE OF TWO AMS READER/INTERPRETERS WILL BE @YL026UD*/ 00263000 */* CALLED, DEPENDING UPON HOW AMS WAS INVOKED - @YL026UD*/ 00264000 */* AS A PROCESSOR OR SUBROUTINE, OR AS A TSO @YL026UD*/ 00265000 */* COMMAND PROCESSOR. THE SYSTEM ADAPTER HAS @YL026UD*/ 00266000 */* PLACED THE NAME OF THE PROPER READER/ @YL026UD*/ 00267000 */* INTERPRETER IN THE 8-BYTE FIELD ADDRESSED @YL026UD*/ 00268000 */* BY 'GDTRIP' @YL026UD*/ 00269000 */* */ 00270000 */* INPUT - MAXIMUM AND LAST FUNCTION CONDITION CODES - TO CONTROL */ 00271000 */* READER/INTERPRETER PROCESSING */ 00272000 */* */ 00273000 */* OUTPUT - FUNCTION SUPPORT ROUTINE NAME (RETURNED BY THE */ 00274000 */* READER/INTERPRETER) */ 00275000 */* FUNCTION DATA TABLE (BUILT BY THE READER/INTERPRETER) */ 00276000 */* */ 00277000 */********************************************************************/ 00278000 * 0185 00279000 *CALLRI: PROCEDURE; 0185 00280000 * 0185 00281000 CALLRI STM @14,@03,@SA00003 0185 00282000 STM @05,@12,@SA00003+24 0185 00283000 * OLDERID2 = NEWERID2; 0186 00284000 L @10,@PC00001 0186 00285000 L @15,GDTTR2(,@10) 0186 00286000 MVC @TS00001(95),NEWERID2(@15) 0186 00287000 MVC OLDERID2(95,@15),@TS00001 0186 00288000 * NEWID2 = 'EX1R'; 0187 00289000 * 0187 00290000 MVC NEWID2(4,@15),@CC00576 0187 00291000 * IF GDTDBG = NULLPTR 0188 00292000 * THEN; 0188 00293000 L @10,GDTDBG(,@10) 0188 00294000 LTR @10,@10 0188 00295000 BZ @RT00188 0188 00296000 * ELSE 0190 00297000 * CALL IDCDB010(GDTTBL,'EXRI'); 0190 00298000 * 0190 00299000 L @10,@PC00001 0190 00300000 ST @10,@AL00001 0190 00301000 LA @15,@CC00577 0190 00302000 ST @15,@AL00001+4 0190 00303000 MVI @AL00001+4,X'80' 0190 00304000 L @15,GDTDBG(,@10) 0190 00305000 LA @01,@AL00001 0190 00306000 BALR @14,@15 0190 00307000 * /************************************************************/ 00308000 * /* */ 00309000 * /* CALL THE READER/INTERPRETER */ 00310000 * /* */ 00311000 * /************************************************************/ 00312000 * 0191 00313000 * CALL IDCSACL0(GDTTBL,RINAME,FTABPTR,AREANAME,MAXCOND,LASTCOND, 00314000 *SRNAME); 0191 00315000 * 0191 00316000 @RT00188 L @10,@PC00001 0191 00317000 ST @10,@AL00001 0191 00318000 L @05,GDTRIP(,@10) 0191 00319000 ST @05,@AL00001+4 0191 00320000 LA @05,FTABPTR 0191 00321000 ST @05,@AL00001+8 0191 00322000 LA @05,@CC00556 0191 00323000 ST @05,@AL00001+12 0191 00324000 LA @05,MAXCOND 0191 00325000 ST @05,@AL00001+16 0191 00326000 LA @05,LASTCOND 0191 00327000 ST @05,@AL00001+20 0191 00328000 LA @05,FSRNAME 0191 00329000 ST @05,@AL00001+24 0191 00330000 MVI @AL00001+24,X'80' 0191 00331000 L @15,GDTCAL(,@10) 0191 00332000 LA @01,@AL00001 0191 00333000 BALR @14,@15 0191 00334000 * /************************************************************/ 00335000 * /* */ 00336000 * /* OBTAIN THE READER/INTERPRETER (END-OF-FILE) RETURN CODE */ 00337000 * /* */ 00338000 * /************************************************************/ 00339000 * 0192 00340000 * RESPECIFY RTNREG RSTD; 0192 00341000 * TESTRC = RTNREG; 0193 00342000 LR TESTRC,RTNREG 0193 00343000 * RESPECIFY RTNREG UNRSTD; 0194 00344000 * 0194 00345000 * EOFCOND = TESTRC; 0195 00346000 * 0195 00347000 LR EOFCOND,TESTRC 0195 00348000 * RETURN; 0196 00349000 * 0196 00350000 @EL00003 DS 0H 0196 00351000 @EF00003 DS 0H 0196 00352000 @ER00003 LM @14,@03,@SA00003 0196 00353000 LM @05,@12,@SA00003+24 0196 00354000 BR @14 0196 00355000 * END CALLRI; 0197 00356000 */********************************************************************/ 00357000 */* */ 00358000 */* PROCEDURE NAME - CALLFSR */ 00359000 */* */ 00360000 */* FUNCTION - INVOKE THE FUNCTION SUPPORT ROUTINE (FSR) TO PROCESS */ 00361000 */* THE UTILITY FUNCTION DESIRED. FOLLOWING FUNCTION */ 00362000 */* PROCESSING, FREE THE AREA HELD BY THE FUNCTION DATA */ 00363000 */* TABLE (UFPOOL MACRO), AND RESET THE TEXT PROCESSING */ 00364000 */* OPTIONS TO THEIR DEFAULT VALUES (URESET MACRO) */ 00365000 */* */ 00366000 */* THE LAST FUNCTION CONDITION CODE IS SET BY THE */ 00367000 */* FUNCTION SUPPORT ROUTINE. THE MAXIMUM CONDITION */ 00368000 */* CODE IS UPDATED IF THE LAST FUNCTION CONDITION CODE */ 00369000 */* IS GREATER THAN THE MAXIMUM CONDITION CODE */ 00370000 */* */ 00371000 */* INPUT - FSR NAME (RETURNED FROM READER/INTERPRETER) */ 00372000 */* FUNCTION DATA TABLE (FDT) (BUILT BY READER/INTERPRETER) */ 00373000 */* */ 00374000 */* OUTPUT - FUNCTION SUPPORT ROUTINE CONDITION CODE */ 00375000 */* UPDATED MAXIMUM SYSTEM CONDITION CODE */ 00376000 */* */ 00377000 */********************************************************************/ 00378000 * 0198 00379000 *CALLFSR: PROCEDURE; 0198 00380000 * 0198 00381000 CALLFSR STM @14,@12,@SA00004 0198 00382000 * OLDERID2 = NEWERID2; 0199 00383000 L @10,@PC00001 0199 00384000 L @15,GDTTR2(,@10) 0199 00385000 MVC @TS00001(95),NEWERID2(@15) 0199 00386000 MVC OLDERID2(95,@15),@TS00001 0199 00387000 * NEWID2 = 'EX1F'; 0200 00388000 * 0200 00389000 MVC NEWID2(4,@15),@CC00581 0200 00390000 * IF GDTDBG = NULLPTR 0201 00391000 * THEN; 0201 00392000 L @10,GDTDBG(,@10) 0201 00393000 LTR @10,@10 0201 00394000 BZ @RT00201 0201 00395000 * ELSE 0203 00396000 * CALL IDCDB010(GDTTBL,'EXFS'); 0203 00397000 * 0203 00398000 L @10,@PC00001 0203 00399000 ST @10,@AL00001 0203 00400000 LA @15,@CC00582 0203 00401000 ST @15,@AL00001+4 0203 00402000 MVI @AL00001+4,X'80' 0203 00403000 L @15,GDTDBG(,@10) 0203 00404000 LA @01,@AL00001 0203 00405000 BALR @14,@15 0203 00406000 * /************************************************************/ 00407000 * /* */ 00408000 * /* RESET THE LAST FUNCTION CONDITION CODE FOR CURRENT FSR */ 00409000 * /* */ 00410000 * /************************************************************/ 00411000 * 0204 00412000 * LASTCOND = CONDNONE; 0204 00413000 * 0204 00414000 @RT00201 SLR @10,@10 0204 00415000 STH @10,LASTCOND 0204 00416000 * /************************************************************/ 00417000 * /* */ 00418000 * /* CALL THE FUNCTION SUPPORT ROUTINE (FSR) */ 00419000 * /* */ 00420000 * /************************************************************/ 00421000 * 0205 00422000 * CALL IDCSACL0(GDTTBL,FSRNAME,FTABLE,LASTCOND); 0205 00423000 * 0205 00424000 L @10,@PC00001 0205 00425000 ST @10,@AL00001 0205 00426000 LA @15,FSRNAME 0205 00427000 ST @15,@AL00001+4 0205 00428000 L @01,FTABPTR 0205 00429000 ST @01,@AL00001+8 0205 00430000 LA @15,LASTCOND 0205 00431000 ST @15,@AL00001+12 0205 00432000 MVI @AL00001+12,X'80' 0205 00433000 L @15,GDTCAL(,@10) 0205 00434000 LA @01,@AL00001 0205 00435000 BALR @14,@15 0205 00436000 * /************************************************************/ 00437000 * /* */ 00438000 * /* UPDATE THE MAXIMUM SYSTEM CONDITION CODE */ 00439000 * /* */ 00440000 * /************************************************************/ 00441000 * 0206 00442000 * MAXCOND = MAX(MAXCOND,LASTCOND); 0206 00443000 * 0206 00444000 LH @10,MAXCOND 0206 00445000 LH @15,LASTCOND 0206 00446000 CR @10,@15 0206 00447000 BNL *+6 00448000 LR @10,@15 0206 00449000 STH @10,MAXCOND 0206 00450000 * /************************************************************/ 00451000 * /* */ 00452000 * /* FREE THE POOL AREA CONTAINING THE FUNCTION DATA TABLE */ 00453000 * /* BUILT FOR THE JUST-COMPLETED FUNCTION SUPPORT ROUTINE */ 00454000 * /* */ 00455000 * /************************************************************/ 00456000 * 0207 00457000 * CALL IDCSAFP0(GDTTBL,AREANAME,ALL); 0207 00458000 * 0207 00459000 MVC @AL00001+4(8),@AL00207 0207 00460000 L @10,@PC00001 0207 00461000 ST @10,@AL00001 0207 00462000 L @15,GDTFPL(,@10) 0207 00463000 LA @01,@AL00001 0207 00464000 BALR @14,@15 0207 00465000 * /************************************************************/ 00466000 * /* */ 00467000 * /* RESET THE TEXT PROCESSING AREA BACK TO INITIAL DEFAULTS */ 00468000 * /* (DEFAULT PARAMETERS MAY HAVE BEEN OVERRIDDEN BY THE FSR)*/ 00469000 * /* */ 00470000 * /************************************************************/ 00471000 * 0208 00472000 * CALL AMSTP044(GDTTBL,PRTFILE); 0208 00473000 * 0208 00474000 L @10,@PC00001 0208 00475000 ST @10,@AL00001 0208 00476000 LA @15,@CF00105 0208 00477000 ST @15,@AL00001+4 0208 00478000 MVI @AL00001+4,X'80' 0208 00479000 L @15,GDTRES(,@10) 0208 00480000 LA @01,@AL00001 0208 00481000 BALR @14,@15 0208 00482000 * RETURN; 0209 00483000 * 0209 00484000 @EL00004 DS 0H 0209 00485000 @EF00004 DS 0H 0209 00486000 @ER00004 LM @14,@12,@SA00004 0209 00487000 BR @14 0209 00488000 * END CALLFSR; 0210 00489000 * 0210 00490000 * 0210 00491000 * END MAIN; 0211 00492000 * 0211 00493000 * 0211 00494000 * END IDCEX01 0212 00495000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00496000 */*%INCLUDE SYSLIB (AMSDF01 ) * 00497000 */*%INCLUDE SYSLIB (AMSDF00 ) * 00498000 */*@INCLUDE SYSLIB (AMSDF02 ) * 00499000 *; 0212 00500000 @DATA DS 0H 00501000 DS 0F 00502000 @AL00207 DC A(@CC00556) LIST WITH 2 ARGUMENT(S) 00503000 DC AL1(X'80') 00504000 DC AL3(ALL) 00505000 @DATD DSECT 00506000 DS 0F 00507000 @SA00001 DS 18F 00508000 @PC00001 DS 1F 00509000 @SA00002 DS 15F 00510000 @SA00003 DS 14F 00511000 @SA00004 DS 15F 00512000 @AL00001 DS 7A 00513000 IDCEX01 CSECT 00514000 DS 0F 00515000 @CF00105 DC F'0' 00516000 @CF00459 DC F'16' 00517000 @DATD DSECT 00518000 DS 0D 00519000 LISTSCAN DS A 00520000 IOCSPTR DS A 00521000 OPNPTR DS A 00522000 DDSTRU DS A 00523000 FSADDR DS A 00524000 DMPINDEX DS A 00525000 FTABPTR DS A 00526000 LISTPTR DS A 00527000 MAXCOND DS H 00528000 LASTCOND DS H 00529000 SETRC DS H 00530000 LISTLN DS FL1 00531000 @TS00001 DS CL95 00532000 SWITCH DS BL1 00533000 FSRNAME DS CL8 00534000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00535000 @ENDDATD EQU * 00536000 IDCEX01 CSECT 00537000 DS 0F 00538000 @SIZDATD DC AL1(0) 00539000 DC AL3(@ENDDATD-@DATD) 00540000 @CV00550 DC V(IDCEX02) 00541000 @CV00551 DC V(IDCEX03) 00542000 DS 0D 00543000 @CC00556 DC C'EX00' 00544000 @CC00566 DC C'EXMN' 00545000 @CC00570 DC C'EX1M' 00546000 @CC00576 DC C'EX1R' 00547000 @CC00577 DC C'EXRI' 00548000 @CC00581 DC C'EX1F' 00549000 @CC00582 DC C'EXFS' 00550000 ALL DC CL3'ALL' 00551000 FORMAT DC CL4'FORM' 00552000 HSECOND DC CL4'HSEC' 00553000 CLOCK DC CL4'KLOK' 00554000 SETZERO DC CL4'ZERO' 00555000 SETBLANK DC CL4'BLNK' 00556000 NOSET DC CL4'NSET' 00557000 OVERRIDE DC CL4'OVRD' 00558000 ACQUIRE DC CL8'ACQUIRE ' 00559000 RELINQ DC CL8'RELINQ ' 00560000 MOUNT DC CL8'MOUNT ' 00561000 DEMOUNT DC CL8'DEMOUNT ' 00562000 DEFINE DC CL8'DEFINE ' 00563000 MOVE DC CL8'MOVE ' 00564000 TRACEQ DC CL8'TRACEQ ' 00565000 COPYTABL DC CL8'COPYTABL' 00566000 COPYCRTG DC CL8'COPYCRTG' 00567000 COPYVOL DC CL8'COPYVOL ' 00568000 VVIC DC CL8'VVIC ' 00569000 TUNE DC CL8'TUNE ' 00570000 NAMES DC CL4'NAME' 00571000 UNIT DC CL4'UNIT' 00572000 SHR DC CL4'SHR ' 00573000 EXCL DC CL4'EXCL' 00574000 NOWAIT DC CL4'NWAI' 00575000 WAIT DC CL4'WAIT' 00576000 MODID DC CL4'EX01' 00577000 FIXAREA DS CL50 00578000 ORG FIXAREA 00579000 @NM00032 DC 50X'00' 00580000 ORG FIXAREA+50 00581000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00582000 @01 EQU 01 00583000 @02 EQU 02 00584000 @03 EQU 03 00585000 @04 EQU 04 00586000 @05 EQU 05 00587000 @06 EQU 06 00588000 @07 EQU 07 00589000 @08 EQU 08 00590000 @09 EQU 09 00591000 @10 EQU 10 00592000 @11 EQU 11 00593000 @12 EQU 12 00594000 @13 EQU 13 00595000 @14 EQU 14 00596000 @15 EQU 15 00597000 EOFCOND EQU @04 00598000 TESTRC EQU @03 00599000 RTNREG EQU @15 00600000 REG0 EQU @00 00601000 REG1 EQU @01 00602000 REG10 EQU @10 00603000 REG11 EQU @11 00604000 REG12 EQU @12 00605000 REG13 EQU @13 00606000 REG14 EQU @14 00607000 REG15 EQU @15 00608000 REG2 EQU @02 00609000 REG3 EQU @03 00610000 REG4 EQU @04 00611000 REG5 EQU @05 00612000 REG6 EQU @06 00613000 REG7 EQU @07 00614000 REG8 EQU @08 00615000 REG9 EQU @09 00616000 IDCSACL0 EQU 0 00617000 IDCSAEP0 EQU 0 00618000 IDCSAFP0 EQU 0 00619000 TRACE1 EQU 0 00620000 OLDERID1 EQU TRACE1 00621000 TRACE2 EQU 0 00622000 OLDERID2 EQU TRACE2 00623000 NEWID2 EQU TRACE2+95 00624000 NEWERID2 EQU 5 00625000 CIRAGL EQU 0 00626000 CIRTYPE EQU CIRAGL 00627000 ALLAGL EQU 0 00628000 ALLSTS EQU ALLAGL+24 00629000 ALLDSP EQU ALLAGL+25 00630000 ALLORG EQU ALLAGL+26 00631000 ALLOPT EQU ALLAGL+28 00632000 UNITABL EQU 0 00633000 UNITADR EQU UNITABL+4 00634000 @NM00010 EQU UNITADR 00635000 UNITSTAT EQU UNITABL+6 00636000 IOCSTR EQU 0 00637000 IOCDSO EQU IOCSTR+16 00638000 IOCRFM EQU IOCSTR+17 00639000 IOCMAC EQU IOCSTR+18 00640000 IOCMAC2 EQU IOCSTR+19 00641000 IOCCHP EQU IOCSTR+20 00642000 IOCMSG EQU IOCSTR+21 00643000 IOCRBA EQU IOCSTR+40 00644000 IOCTTR EQU IOCRBA 00645000 IOCMEM EQU IOCSTR+44 00646000 IOCNWM EQU IOCSTR+48 00647000 OPNAGL EQU 0 00648000 OPNOPT EQU OPNAGL 00649000 OPNRFM EQU OPNAGL+1 00650000 OPNTYP EQU OPNAGL+2 00651000 OPNMOD EQU OPNAGL+3 00652000 OPNDEV EQU OPNAGL+24 00653000 OPNDSO EQU OPNAGL+41 00654000 OPNOPT2 EQU OPNAGL+42 00655000 IOINFOPT EQU 0 00656000 UVOLLIST EQU 0 00657000 UVOLENT EQU UVOLLIST+2 00658000 AMSTP044 EQU 0 00659000 DARGLIST EQU 0 00660000 DARGSTID EQU DARGLIST+8 00661000 DARGARY EQU DARGLIST+20 00662000 DARGINS EQU DARGARY 00663000 DARGINL EQU DARGARY+2 00664000 FMTLIST EQU 0 00665000 FMTFLGS EQU FMTLIST 00666000 FMTSPF EQU FMTLIST+2 00667000 FMTRFNO EQU FMTSPF 00668000 FMTILEN EQU FMTRFNO 00669000 FMTIOFF EQU FMTLIST+4 00670000 FMTTRBC EQU FMTIOFF 00671000 FMTSTO EQU FMTTRBC 00672000 FMTOCOL EQU FMTLIST+6 00673000 FMTCNVF EQU FMTLIST+10 00674000 IDCDB010 EQU 0 00675000 DMPITM EQU 0 00676000 DMPARY EQU 0 00677000 FTABLE EQU 0 00678000 RINAME EQU 0 00679000 AMSTP011 EQU 0 00680000 AMSTP041 EQU 0 00681000 AMSTP042 EQU 0 00682000 AMSTP043 EQU 0 00683000 DMPTRM EQU 0 00684000 IDCIOCL0 EQU 0 00685000 IDCIOCO0 EQU 0 00686000 IDCIOGT0 EQU 0 00687000 IDCIOIT0 EQU 0 00688000 IDCIOOP0 EQU 0 00689000 IDCIOPO0 EQU 0 00690000 IDCIOPT0 EQU 0 00691000 IDCIOSI0 EQU 0 00692000 IDCIOST0 EQU 0 00693000 IDCIOTM0 EQU 0 00694000 IDCIOVY0 EQU 0 00695000 IDCIO050 EQU 0 00696000 IDCSAAL0 EQU 0 00697000 IDCSACA0 EQU 0 00698000 IDCSACR0 EQU 0 00699000 IDCSADE0 EQU 0 00700000 IDCSADL0 EQU 0 00701000 IDCSADQ0 EQU 0 00702000 IDCSAFS0 EQU 0 00703000 IDCSAGP0 EQU 0 00704000 IDCSAGS0 EQU 0 00705000 IDCSAID0 EQU 0 00706000 IDCSALD0 EQU 0 00707000 IDCSALK0 EQU 0 00708000 IDCSANQ0 EQU 0 00709000 IDCSAPR0 EQU 0 00710000 IDCSAPT0 EQU 0 00711000 IDCSAQL0 EQU 0 00712000 IDCSARC0 EQU 0 00713000 IDCSARV0 EQU 0 00714000 IDCSASC0 EQU 0 00715000 IDCSASI0 EQU 0 00716000 IDCSASN0 EQU 0 00717000 IDCSASS0 EQU 0 00718000 IDCSAST0 EQU 0 00719000 IDCSATI0 EQU 0 00720000 IDCSAWO0 EQU 0 00721000 IDCSA060 EQU 0 00722000 IDCST010 EQU 0 00723000 LISTTEST EQU 0 00724000 NEWERID1 EQU 5 00725000 GDTTBL EQU 0 00726000 GDTTR1 EQU GDTTBL+8 00727000 GDTTR2 EQU GDTTBL+12 00728000 GDTDBG EQU GDTTBL+40 00729000 GDTSTC EQU GDTTBL+44 00730000 GDTPRT EQU GDTTBL+48 00731000 GDTESS EQU GDTTBL+52 00732000 GDTESA EQU GDTTBL+56 00733000 GDTRST EQU GDTTBL+60 00734000 GDTRES EQU GDTTBL+64 00735000 GDTCAL EQU GDTTBL+68 00736000 GDTGSP EQU GDTTBL+72 00737000 GDTFSP EQU GDTTBL+76 00738000 GDTGPL EQU GDTTBL+80 00739000 GDTFPL EQU GDTTBL+84 00740000 GDTLOD EQU GDTTBL+88 00741000 GDTDEL EQU GDTTBL+92 00742000 GDTPRL EQU GDTTBL+96 00743000 GDTEPL EQU GDTTBL+100 00744000 GDTTIM EQU GDTTBL+104 00745000 GDTIIO EQU GDTTBL+108 00746000 GDTTIO EQU GDTTBL+112 00747000 GDTRIP EQU GDTTBL+116 00748000 GDTOPN EQU GDTTBL+124 00749000 GDTCLS EQU GDTTBL+128 00750000 GDTGET EQU GDTTBL+132 00751000 GDTPUT EQU GDTTBL+136 00752000 GDTPOS EQU GDTTBL+140 00753000 GDTCPY EQU GDTTBL+144 00754000 GDTCAT EQU GDTTBL+148 00755000 GDTSNP EQU GDTTBL+164 00756000 GDTVFY EQU GDTTBL+172 00757000 GDTUID EQU GDTTBL+192 00758000 GDTPMT EQU GDTTBL+196 00759000 GDTCIR EQU GDTTBL+200 00760000 GDTLNK EQU GDTTBL+204 00761000 GDTALC EQU GDTTBL+208 00762000 GDTDLC EQU GDTTBL+212 00763000 GDTQAL EQU GDTTBL+216 00764000 GDTSTW EQU GDTTBL+220 00765000 GDTSSC EQU GDTTBL+224 00766000 GDTENQ EQU GDTTBL+228 00767000 GDTRSV EQU GDTTBL+232 00768000 GDTDEQ EQU GDTTBL+236 00769000 GDTSFO EQU GDTTBL+240 00770000 GDTWTO EQU GDTTBL+244 00771000 GDTSCR EQU GDTTBL+248 00772000 GDTUNT EQU GDTTBL+252 00773000 GDTRCT EQU GDTTBL+256 00774000 GDTIFO EQU GDTTBL+260 00775000 GDTEXP EQU GDTTBL+264 00776000 GDTSTA EQU GDTTBL+268 00777000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00778000 GDTECT EQU GDTTBL+188 00779000 GDTPSB EQU GDTTBL+184 00780000 GDTUPT EQU GDTTBL+180 00781000 GDTCMB EQU GDTTBL+176 00782000 GDTSPR EQU GDTTBL+168 00783000 @NM00001 EQU GDTTBL+160 00784000 GDTABH EQU GDTTBL+156 00785000 GDTABT EQU GDTTBL+152 00786000 GDTTOH EQU GDTTBL+120 00787000 GDTIOH EQU GDTTBL+36 00788000 GDTSAH EQU GDTTBL+32 00789000 GDTTPH EQU GDTTBL+28 00790000 GDTRIH EQU GDTTBL+24 00791000 GDTSTH EQU GDTTBL+20 00792000 GDTDBH EQU GDTTBL+16 00793000 GDTPRM EQU GDTTBL+4 00794000 GDTHDR EQU GDTTBL 00795000 @NM00031 EQU DMPARY+15 00796000 DMPARYTP EQU DMPARY+14 00797000 DMPARYEX EQU DMPARY+12 00798000 DMPARYIC EQU DMPARY+10 00799000 DMPARYSZ EQU DMPARY+8 00800000 DMPARYNM EQU DMPARY 00801000 @NM00030 EQU DMPITM+15 00802000 DMPITMTP EQU DMPITM+14 00803000 DMPITMLN EQU DMPITM+12 00804000 DMPITMPT EQU DMPITM+8 00805000 DMPITMNM EQU DMPITM 00806000 @NM00029 EQU FMTCNVF+1 00807000 FMTBS EQU FMTCNVF+1 00808000 FMTSS EQU FMTCNVF+1 00809000 FMTAL EQU FMTCNVF+1 00810000 FMTZS EQU FMTCNVF+1 00811000 @NM00028 EQU FMTCNVF 00812000 FMTPU EQU FMTCNVF 00813000 FMTBD EQU FMTCNVF 00814000 FMTBHD EQU FMTCNVF 00815000 FMTBHA EQU FMTCNVF 00816000 FMTBH EQU FMTCNVF 00817000 FMTOLEN EQU FMTLIST+8 00818000 FMTRIO EQU FMTOCOL 00819000 FMTSPT EQU FMTSTO 00820000 FMTSTL EQU FMTILEN 00821000 @NM00027 EQU FMTFLGS+1 00822000 FMTHDF EQU FMTFLGS 00823000 FMTDFF EQU FMTFLGS 00824000 FMTSTF EQU FMTFLGS 00825000 FMTREPF EQU FMTFLGS 00826000 FMTBDF EQU FMTFLGS 00827000 FMTIDF EQU FMTFLGS 00828000 FMTSCF EQU FMTFLGS 00829000 FMTEOLF EQU FMTFLGS 00830000 DARGDTM EQU DARGARY+4 00831000 DARGPCT EQU DARGINL 00832000 DARGREP EQU DARGINS 00833000 @NM00026 EQU DARGLIST+19 00834000 DARGIND EQU DARGLIST+18 00835000 DARGRETL EQU DARGLIST+16 00836000 DARGCNT EQU DARGLIST+14 00837000 DARGILP EQU DARGLIST+12 00838000 DARGSENT EQU DARGSTID+3 00839000 DARGSMOD EQU DARGSTID 00840000 DARGRETP EQU DARGLIST+4 00841000 DARGDBP EQU DARGLIST 00842000 UVOLVOL EQU UVOLENT+4 00843000 UVOLDEV EQU UVOLENT 00844000 UVOLCNT EQU UVOLLIST 00845000 @NM00025 EQU IOINFOPT 00846000 IOINFTMS EQU IOINFOPT 00847000 IOINFSUP EQU IOINFOPT 00848000 IOINFDSN EQU IOINFOPT 00849000 IOINFVOL EQU IOINFOPT 00850000 IOINFDVT EQU IOINFOPT 00851000 OPNVOL EQU OPNAGL+44 00852000 @NM00024 EQU OPNAGL+43 00853000 @NM00023 EQU OPNOPT2 00854000 OPNOPTJM EQU OPNOPT2 00855000 @NM00022 EQU OPNOPT2 00856000 OPNOPTAS EQU OPNOPT2 00857000 @NM00021 EQU OPNDSO 00858000 OPNDSOPO EQU OPNDSO 00859000 OPNDSOIS EQU OPNDSO 00860000 OPNDSOPS EQU OPNDSO 00861000 OPNDSOAM EQU OPNDSO 00862000 OPNKYL EQU OPNAGL+40 00863000 OPNBLK EQU OPNAGL+36 00864000 OPNREC EQU OPNAGL+32 00865000 OPNDEVIX EQU OPNDEV+4 00866000 OPNDEVDT EQU OPNDEV 00867000 OPNCBP EQU OPNAGL+20 00868000 OPNDSN EQU OPNAGL+16 00869000 OPNPWA EQU OPNAGL+12 00870000 OPNDDN EQU OPNAGL+8 00871000 OPNIOC EQU OPNAGL+4 00872000 OPNMODRP EQU OPNMOD 00873000 OPNMODUB EQU OPNMOD 00874000 OPNMODRS EQU OPNMOD 00875000 OPNMODAX EQU OPNMOD 00876000 OPNMODRR EQU OPNMOD 00877000 OPNMODRC EQU OPNMOD 00878000 OPNMODAC EQU OPNMOD 00879000 OPNMODPD EQU OPNMOD 00880000 @NM00020 EQU OPNTYP 00881000 OPNTYPRV EQU OPNTYP 00882000 OPNTYPEX EQU OPNTYP 00883000 OPNTYPRA EQU OPNTYP 00884000 OPNTYPXM EQU OPNTYP 00885000 OPNTYPCI EQU OPNTYP 00886000 OPNTYPSO EQU OPNTYP 00887000 OPNTYPSI EQU OPNTYP 00888000 @NM00019 EQU OPNRFM 00889000 OPNRFMBK EQU OPNRFM 00890000 OPNRFMSF EQU OPNRFM 00891000 OPNRFMUN EQU OPNRFM 00892000 OPNRFMVR EQU OPNRFM 00893000 OPNRFMFX EQU OPNRFM 00894000 OPNOPTSK EQU OPNOPT 00895000 OPNOPTDR EQU OPNOPT 00896000 OPNOPTCR EQU OPNOPT 00897000 OPNOPTKS EQU OPNOPT 00898000 OPNOPTBK EQU OPNOPT 00899000 OPNOPTUP EQU OPNOPT 00900000 OPNOPTOT EQU OPNOPT 00901000 OPNOPTIN EQU OPNOPT 00902000 IOCEXT EQU IOCSTR+64 00903000 IOCREL EQU IOCSTR+60 00904000 IOCWORK EQU IOCSTR+56 00905000 IOCRRN EQU IOCSTR+52 00906000 IOCPNM EQU IOCNWM+2 00907000 IOCPTL EQU IOCNWM 00908000 IOCKYA EQU IOCMEM 00909000 IOCVRC EQU IOCTTR 00910000 IOCCBP EQU IOCSTR+36 00911000 IOCDSN EQU IOCSTR+32 00912000 IOCHURBA EQU IOCSTR+28 00913000 IOCVOLSR EQU IOCSTR+22 00914000 @NM00018 EQU IOCMSG 00915000 IOCMSGAE EQU IOCMSG 00916000 IOCMSGCE EQU IOCMSG 00917000 IOCMSGOE EQU IOCMSG 00918000 IOCMSGOP EQU IOCMSG 00919000 @NM00017 EQU IOCMSG 00920000 IOCCHPSY EQU IOCCHP 00921000 IOCCHPAS EQU IOCCHP 00922000 IOCCHPBK EQU IOCCHP 00923000 IOCCHPCR EQU IOCCHP 00924000 IOCCHPKS EQU IOCCHP 00925000 IOCCHPSK EQU IOCCHP 00926000 IOCCHPDR EQU IOCCHP 00927000 IOCCHPSQ EQU IOCCHP 00928000 @NM00016 EQU IOCMAC2 00929000 IOCMACPA EQU IOCMAC2 00930000 @NM00015 EQU IOCMAC2 00931000 IOCMACCP EQU IOCMAC2 00932000 IOCMACRR EQU IOCMAC2 00933000 IOCMACAS EQU IOCMAC2 00934000 IOCMACSK EQU IOCMAC2 00935000 @NM00014 EQU IOCMAC 00936000 IOCMACCC EQU IOCMAC 00937000 IOCMACDR EQU IOCMAC 00938000 IOCMACBK EQU IOCMAC 00939000 IOCMACCR EQU IOCMAC 00940000 IOCMACUP EQU IOCMAC 00941000 IOCMACOT EQU IOCMAC 00942000 IOCMACIN EQU IOCMAC 00943000 @NM00013 EQU IOCRFM 00944000 IOCRFMBK EQU IOCRFM 00945000 IOCRFMSF EQU IOCRFM 00946000 IOCRFMUN EQU IOCRFM 00947000 IOCRFMVR EQU IOCRFM 00948000 IOCRFMFX EQU IOCRFM 00949000 @NM00012 EQU IOCDSO 00950000 IOCDSOPO EQU IOCDSO 00951000 IOCDSOIS EQU IOCDSO 00952000 IOCDSOPS EQU IOCDSO 00953000 IOCDSOAM EQU IOCDSO 00954000 IOCRKP EQU IOCSTR+13 00955000 IOCKYL EQU IOCSTR+12 00956000 IOCTRN EQU IOCSTR+8 00957000 IOCDLN EQU IOCSTR+4 00958000 IOCDAD EQU IOCSTR 00959000 UNITVTOC EQU UNITABL+7 00960000 @NM00011 EQU UNITSTAT 00961000 UNITXSHR EQU UNITSTAT 00962000 UNITISHR EQU UNITSTAT 00963000 UNITUA EQU @NM00010+1 00964000 UNITCHA EQU @NM00010 00965000 UNITUCB EQU UNITABL 00966000 ALLUNCNT EQU ALLAGL+30 00967000 ALLVLCNT EQU ALLAGL+29 00968000 @NM00009 EQU ALLOPT 00969000 ALLOPTPV EQU ALLOPT 00970000 ALLOPTDS EQU ALLOPT 00971000 ALLOPTVL EQU ALLOPT 00972000 @NM00008 EQU ALLORG+1 00973000 ALLORGVS EQU ALLORG+1 00974000 @NM00007 EQU ALLORG+1 00975000 ALLORGGS EQU ALLORG+1 00976000 ALLORGUN EQU ALLORG 00977000 ALLORGPO EQU ALLORG 00978000 ALLORGMQ EQU ALLORG 00979000 ALLORGCQ EQU ALLORG 00980000 ALLORGCX EQU ALLORG 00981000 ALLORGDA EQU ALLORG 00982000 ALLORGPS EQU ALLORG 00983000 ALLORGIS EQU ALLORG 00984000 ALLDSPUN EQU ALLDSP 00985000 ALLDSPCG EQU ALLDSP 00986000 ALLDSPDE EQU ALLDSP 00987000 ALLDSPKP EQU ALLDSP 00988000 @NM00006 EQU ALLDSP 00989000 ALLSTSOD EQU ALLSTS 00990000 ALLSTSMD EQU ALLSTS 00991000 ALLSTSNW EQU ALLSTS 00992000 ALLSTSSR EQU ALLSTS 00993000 @NM00005 EQU ALLSTS 00994000 ALLPWD EQU ALLAGL+20 00995000 ALLVLP EQU ALLAGL+16 00996000 ALLULP EQU ALLAGL+12 00997000 ALLDDN EQU ALLAGL+4 00998000 ALLDSN EQU ALLAGL 00999000 CIRPID EQU CIRAGL+28 01000000 CIRPWD EQU CIRAGL+24 01001000 CIRCAT EQU CIRAGL+20 01002000 CIRWKP EQU CIRAGL+16 01003000 CIRTLR EQU CIRAGL+12 01004000 CIRHDR EQU CIRAGL+8 01005000 CIRTLN EQU CIRAGL+6 01006000 CIRHLN EQU CIRAGL+4 01007000 @NM00004 EQU CIRAGL+1 01008000 @NM00003 EQU CIRTYPE 01009000 CIRTYPAQ EQU CIRTYPE 01010000 CIRTYP1Q EQU CIRTYPE 01011000 NEWID1 EQU TRACE1+95 01012000 CALLID EQU OLDERID1+90 01013000 @NM00002 EQU OLDERID1 01014000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01015000 @PB00002 EQU @EL00001 01016000 @ENDDATA EQU * 01017000 END IDCEX01,(C'PLS0605',0700,74284) 01018000