TITLE '***** ICKRI02: READER/INTERPRETER COMMAND SETUP MODULE *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 ICKRI02 CSECT , 0002 00013000 @MAINENT DS 0H 0002 00014000 USING *,@15 0002 00015000 B @PROLOG 0002 00016000 DC AL1(16) 0002 00017000 DC C'ICKRI02 78.192' 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 XC @ZTEMPS(@ZLEN),@ZTEMPS 00032000 MVC @PC00001(8),0(@01) 0002 00033000 * /************************************************************/ 00034000 * /* */ 00035000 * /* ** ICKRI02 ** SET UP DESCRIPTOR & INITIAL FDT AREA */ 00036000 * /* */ 00037000 * /************************************************************/ 00038000 * IF GDTDBG = NULLPTR 0220 00039000 * THEN; 0220 00040000 L @10,@PC00001 0220 00041000 L @10,GDTDBG(,@10) 0220 00042000 LTR @10,@10 0220 00043000 BZ @RT00220 0220 00044000 * ELSE 0222 00045000 * CALL ICKDB010(GDTTBL,'RISD'); 0222 00046000 * 0222 00047000 L @10,@PC00001 0222 00048000 ST @10,@AL00001 0222 00049000 LA @15,@CC00635 0222 00050000 ST @15,@AL00001+4 0222 00051000 MVI @AL00001+4,X'80' 0222 00052000 L @15,GDTDBG(,@10) 0222 00053000 LA @01,@AL00001 0222 00054000 BALR @14,@15 0222 00055000 * VLISTID1='RI'; 0223 00056000 @RT00220 MVC VLISTID1(2),@CC00636 0223 00057000 * FOUND=NO; 0224 00058000 * 0224 00059000 NI FOUND,B'01111111' 0224 00060000 * /************************************************************/ 00061000 * /* */ 00062000 * /* SEARCH DESCRIPTOR LOAD NAME TABLE FOR VERB MATCHING THE */ 00063000 * /* EXTRACTED COMMAND VERB */ 00064000 * /* */ 00065000 * /************************************************************/ 00066000 * DO INDEX=1 BY 1 0225 00067000 * WHILE(FOUND=NO & TBLVERB(INDEX) ^= TBLEND); 0225 00068000 LA INDEX,1 0225 00069000 B @DE00225 0225 00070000 @DL00225 DS 0H 0226 00071000 * IF TBLVERB(INDEX) = VERBNAME 0226 00072000 * THEN 0226 00073000 * 0226 00074000 LR @10,INDEX 0226 00075000 SLA @10,4 0226 00076000 L @02,@PC00001 0226 00077000 L @01,GDTRIH(,@02) 0226 00078000 L @15,LOADTPTR(,@01) 0226 00079000 L @14,@PC00001+4 0226 00080000 ST @10,@TF00001 0226 00081000 ALR @10,@15 0226 00082000 AL @10,@CF00655 0226 00083000 CLC TBLVERB(8,@10),VERBNAME(@14) 0226 00084000 BNE @RF00226 0226 00085000 * /******************************************************/ 00086000 * /* */ 00087000 * /* WHEN A MATCH, USE THE CORRESPONDING LOAD NAME TO */ 00088000 * /* LOAD THE COMMAND DESCRIPTOR -- THEN EXTRACT THE */ 00089000 * /* FSR LOAD MODULE NAME FROM THE DESCRIPTOR */ 00090000 * /* */ 00091000 * /******************************************************/ 00092000 * DO; 0227 00093000 * OLDERID2 = NEWERID2; 0228 00094000 L @10,GDTTR2(,@02) 0228 00095000 MVC @TS00001(95),NEWERID2(@10) 0228 00096000 MVC OLDERID2(95,@10),@TS00001 0228 00097000 * NEWID2='RI16'; 0229 00098000 MVC NEWID2(4,@10),@CC00637 0229 00099000 * FOUND=YES; 0230 00100000 OI FOUND,B'10000000' 0230 00101000 * DESCNAME=TBLLNAME(INDEX); 0231 00102000 * 0231 00103000 AL @15,@TF00001 0231 00104000 AL @15,@CF00657 0231 00105000 MVC DESCNAME(8,@14),TBLLNAME-8(@15) 0231 00106000 * CALL ICKSALD0(GDTTBL,DESCNAME,DESCPTR); 0232 00107000 * 0232 00108000 ST @02,@AL00001 0232 00109000 LA @10,DESCNAME(,@14) 0232 00110000 ST @10,@AL00001+4 0232 00111000 LA @10,DESCPTR(,@14) 0232 00112000 ST @10,@AL00001+8 0232 00113000 L @15,GDTLOD(,@02) 0232 00114000 LA @01,@AL00001 0232 00115000 BALR @14,@15 0232 00116000 * FSRLNAME=LOADNAME; 0233 00117000 L @10,@PC00001+4 0233 00118000 L @02,DESCPTR(,@10) 0233 00119000 MVC FSRLNAME(8,@10),LOADNAME(@02) 0233 00120000 * END; 0234 00121000 * END; 0235 00122000 * 0235 00123000 @RF00226 AH INDEX,@CH00158 0235 00124000 @DE00225 TM FOUND,B'10000000' 0235 00125000 BNZ @DC00225 0235 00126000 LR @10,INDEX 0235 00127000 SLA @10,4 0235 00128000 L @02,@PC00001 0235 00129000 L @02,GDTRIH(,@02) 0235 00130000 L @02,LOADTPTR(,@02) 0235 00131000 ALR @02,@10 0235 00132000 AL @02,@CF00655 0235 00133000 CLC TBLVERB(8,@02),TBLEND 0235 00134000 BNE @DL00225 0235 00135000 @DC00225 DS 0H 0236 00136000 * /************************************************************/ 00137000 * /* */ 00138000 * /* IF NO MATCH , SET AN APPROPRIATE CONDITION CODE */ 00139000 * /* */ 00140000 * /************************************************************/ 00141000 * IF FOUND=NO 0236 00142000 * THEN 0236 00143000 TM FOUND,B'10000000' 0236 00144000 BNZ @RF00236 0236 00145000 * RISTATUS=BADVERB2; 0237 00146000 L @10,@PC00001+4 0237 00147000 MVC RISTATUS(2,@10),@CH00273 0237 00148000 * ELSE 0238 00149000 * 0238 00150000 * /********************************************************/ 00151000 * /* */ 00152000 * /* IF THE DESCRIPTOR INDICATES COMMAND PARAMETERS, THEN */ 00153000 * /* OBTAIN SPACE FOR WORKING WITH THE DESCRIPTOR AND */ 00154000 * /* STEP THROUGH THE DESCRIPTOR, SETTING UP POINTERS TO */ 00155000 * /* EACH SECTION OF PARAMETER DATA. */ 00156000 * /* */ 00157000 * /********************************************************/ 00158000 *DOGRP1: DO; 0238 00159000 B @RC00236 0238 00160000 @RF00236 DS 0H 0238 00161000 DOGRP1 DS 0H 0239 00162000 * IF MAXID > 0 0239 00163000 * THEN 0239 00164000 L @10,@PC00001+4 0239 00165000 L @01,DESCPTR(,@10) 0239 00166000 LH @15,MAXID(,@01) 0239 00167000 LTR @15,@15 0239 00168000 BNP @RF00239 0239 00169000 * DO; 0240 00170000 * SPACEAMT=MAXID*(LENGTH(PARMINFO)); 0241 00171000 * 0241 00172000 MH @15,@CH00258 0241 00173000 ST @15,SPACEAMT 0241 00174000 * CALL ICKSAGP0(GDTTBL,SPACEAMT,WORKPTR,POOLID,SETZERO 00175000 *; 0242 00176000 L @02,@PC00001 0242 00177000 ST @02,@AL00001 0242 00178000 LA @15,SPACEAMT 0242 00179000 ST @15,@AL00001+4 0242 00180000 LA @15,WORKPTR(,@10) 0242 00181000 ST @15,@AL00001+8 0242 00182000 LA @10,POOLID(,@10) 0242 00183000 ST @10,@AL00001+12 0242 00184000 LA @10,@CC00138 0242 00185000 ST @10,@AL00001+16 0242 00186000 MVI @AL00001+16,X'80' 0242 00187000 L @15,GDTGPL(,@02) 0242 00188000 LA @01,@AL00001 0242 00189000 BALR @14,@15 0242 00190000 * RESPECIFY RTNREG RSTD; 0243 00191000 * TESTRC = RTNREG; 0244 00192000 LR TESTRC,RTNREG 0244 00193000 * RESPECIFY RTNREG UNRSTD; 0245 00194000 * 0245 00195000 * END; 0246 00196000 * ELSE 0247 00197000 * TESTRC=0; 0247 00198000 B @RC00239 0247 00199000 @RF00239 SLR TESTRC,TESTRC 0247 00200000 * IF TESTRC^=0 0248 00201000 * THEN 0248 00202000 @RC00239 LTR TESTRC,TESTRC 0248 00203000 BZ @RF00248 0248 00204000 * RISTATUS=NOSPACE; 0249 00205000 L @10,@PC00001+4 0249 00206000 MVC RISTATUS(2,@10),@CH00269 0249 00207000 * ELSE 0250 00208000 *DOGRP2: DO; 0250 00209000 B @RC00248 0250 00210000 @RF00248 DS 0H 0250 00211000 DOGRP2 DS 0H 0251 00212000 * OLDERID2 = NEWERID2; 0251 00213000 L @10,@PC00001 0251 00214000 L @10,GDTTR2(,@10) 0251 00215000 MVC @TS00001(95),NEWERID2(@10) 0251 00216000 MVC OLDERID2(95,@10),@TS00001 0251 00217000 * NEWID2='RI17'; 0252 00218000 MVC NEWID2(4,@10),@CC00642 0252 00219000 * SETUPPTR=DESCPTR+2*VDATALEN; 0253 00220000 L @10,@PC00001+4 0253 00221000 L @10,DESCPTR(,@10) 0253 00222000 LH SETUPPTR,VDATALEN(,@10) 0253 00223000 ALR SETUPPTR,SETUPPTR 0253 00224000 ALR @10,SETUPPTR 0253 00225000 LR SETUPPTR,@10 0253 00226000 * RESPECIFY(PARMDATA) BASED(SETUPPTR); 0254 00227000 * DO INDEX=1 TO PARMCNT; 0255 00228000 LA INDEX,1 0255 00229000 B @DE00255 0255 00230000 @DL00255 DS 0H 0256 00231000 * TEMPPTR=SETUPPTR+2*IDDSPL; 0256 00232000 SLR TEMPPTR,TEMPPTR 0256 00233000 IC TEMPPTR,IDDSPL(,SETUPPTR) 0256 00234000 ALR TEMPPTR,TEMPPTR 0256 00235000 ALR TEMPPTR,SETUPPTR 0256 00236000 * DO INDEX2=1 TO TEMPPTR->ICKOUNT; 0257 00237000 LA INDEX2,1 0257 00238000 B @DE00257 0257 00239000 @DL00257 DS 0H 0258 00240000 * PARMPTR(TEMPPTR->IDNUM(INDEX2))=SETUPPTR; 0258 00241000 LR @10,INDEX2 0258 00242000 SLA @10,2 0258 00243000 BCTR @10,0 0258 00244000 BCTR @10,0 0258 00245000 LH @10,IDNUM-2(@10,TEMPPTR) 0258 00246000 MH @10,@CH00258 0258 00247000 L @15,@PC00001+4 0258 00248000 L @01,WORKPTR(,@15) 0258 00249000 AL @01,@CF00658 0258 00250000 ST SETUPPTR,PARMPTR(@10,@01) 0258 00251000 * END; 0259 00252000 AH INDEX2,@CH00158 0259 00253000 @DE00257 CH INDEX2,ICKOUNT(,TEMPPTR) 0259 00254000 BNH @DL00257 0259 00255000 * SETUPPTR=SETUPPTR+2*PDEFLEN; 0260 00256000 SLR @10,@10 0260 00257000 IC @10,PDEFLEN(,SETUPPTR) 0260 00258000 ALR @10,@10 0260 00259000 ALR SETUPPTR,@10 0260 00260000 * END; 0261 00261000 AH INDEX,@CH00158 0261 00262000 @DE00255 L @10,@PC00001+4 0261 00263000 L @10,DESCPTR(,@10) 0261 00264000 CH INDEX,PARMCNT(,@10) 0261 00265000 BNH @DL00255 0261 00266000 * RESPECIFY(PARMDATA) BASED(PARMPTR(PARMID)); 0262 00267000 * 0262 00268000 * /************************************************/ 00269000 * /* */ 00270000 * /* DETERMINE THE SUPERPARAMETER ID# OF EACH */ 00271000 * /* PARAMETER AND PLACE IT IN THE TABLE. */ 00272000 * /* */ 00273000 * /************************************************/ 00274000 * DO PARMID=1 TO MAXID; 0263 00275000 LA PARMID,1 0263 00276000 B @DE00263 0263 00277000 @DL00263 DS 0H 0264 00278000 * IF PARMPTR(PARMID) ^= NULLPTR 0264 00279000 * THEN 0264 00280000 LR @10,PARMID 0264 00281000 MH @10,@CH00258 0264 00282000 L @03,@PC00001+4 0264 00283000 L @03,WORKPTR(,@03) 0264 00284000 AL @03,@CF00658 0264 00285000 L @10,PARMPTR(@10,@03) 0264 00286000 LTR @10,@10 0264 00287000 BZ @RF00264 0264 00288000 * IF SUBLIST = YES 0265 00289000 * THEN 0265 00290000 TM SUBLIST(@10),B'00000010' 0265 00291000 BNO @RF00265 0265 00292000 * DO INDEX=1 TO SUBCOUNT; 0266 00293000 LA INDEX,1 0266 00294000 B @DE00266 0266 00295000 @DL00266 DS 0H 0267 00296000 * SUPRPARM(SUBID(INDEX))=PARMID; 0267 00297000 LA @10,12 0267 00298000 LR @15,INDEX 0267 00299000 SLA @15,2 0267 00300000 LR @01,PARMID 0267 00301000 MR @00,@10 0267 00302000 L @14,@PC00001+4 0267 00303000 L @14,WORKPTR(,@14) 0267 00304000 AL @01,@CF00658 0267 00305000 L @09,PARMPTR(@01,@14) 0267 00306000 LR @08,@09 0267 00307000 ALR @08,@10 0267 00308000 SLR @07,@07 0267 00309000 IC @07,SUBDSPL(,@08) 0267 00310000 ALR @07,@07 0267 00311000 ALR @09,@07 0267 00312000 MH @10,SUBID-4(@15,@09) 0267 00313000 AL @14,@CF00659 0267 00314000 STH PARMID,SUPRPARM-8(@10,@14) 0267 00315000 * END; 0268 00316000 AH INDEX,@CH00158 0268 00317000 @DE00266 LR @10,PARMID 0268 00318000 MH @10,@CH00258 0268 00319000 L @15,@PC00001+4 0268 00320000 L @01,WORKPTR(,@15) 0268 00321000 LR @15,PARMID 0268 00322000 MH @15,@CH00258 0268 00323000 L @14,@PC00001+4 0268 00324000 L @14,WORKPTR(,@14) 0268 00325000 AL @14,@CF00658 0268 00326000 L @15,PARMPTR(@15,@14) 0268 00327000 SLR @14,@14 0268 00328000 IC @14,SUBDSPL+12(,@15) 0268 00329000 ALR @14,@14 0268 00330000 AL @01,@CF00658 0268 00331000 AL @14,PARMPTR(@10,@01) 0268 00332000 CH INDEX,SUBCOUNT(,@14) 0268 00333000 BNH @DL00266 0268 00334000 * END; 0269 00335000 * 0269 00336000 @RF00265 DS 0H 0269 00337000 @RF00264 AH PARMID,@CH00158 0269 00338000 @DE00263 L @10,@PC00001+4 0269 00339000 L @10,DESCPTR(,@10) 0269 00340000 CH PARMID,MAXID(,@10) 0269 00341000 BNH @DL00263 0269 00342000 * /************************************************/ 00343000 * /* */ 00344000 * /* FOR EACH PARAMETER, CHECK IF IT IS */ 00345000 * /* LOCATED IN A 'NOT GROUP' SUBLIST, */ 00346000 * /* AND IF SO NOTE THE SUBLIST ADDRESS */ 00347000 * /* */ 00348000 * /************************************************/ 00349000 * IF NTGRPDSP > 0 0270 00350000 * THEN 0270 00351000 L @10,@PC00001+4 0270 00352000 L @10,DESCPTR(,@10) 0270 00353000 CLI NTGRPDSP(@10),0 0270 00354000 BNH @RF00270 0270 00355000 *DOGRP25: DO; 0271 00356000 DOGRP25 DS 0H 0272 00357000 * GRPPTR=ADDR(NTGRPTOT) + 0272 00358000 * LENGTH(NTGRPTOT); 0272 00359000 * 0272 00360000 L @10,@PC00001+4 0272 00361000 L @10,DESCPTR(,@10) 0272 00362000 SLR GRPPTR,GRPPTR 0272 00363000 IC GRPPTR,NTGRPDSP(,@10) 0272 00364000 ALR GRPPTR,GRPPTR 0272 00365000 ALR @10,GRPPTR 0272 00366000 AH @10,@CH00109 0272 00367000 LR GRPPTR,@10 0272 00368000 * DO INDEX=1 TO NTGRPTOT; 0273 00369000 * 0273 00370000 LA INDEX,1 0273 00371000 B @DE00273 0273 00372000 @DL00273 DS 0H 0274 00373000 * /****************************************/ 00374000 * /* */ 00375000 * /* FOR EACH ID# IN A 'NOT */ 00376000 * /* GROUP' SUBLIST, SAVE THE */ 00377000 * /* ADDRESS OF THE SUBLIST. */ 00378000 * /* */ 00379000 * /****************************************/ 00380000 * DO INDEX2=1 TO NTGRPCNT; 0274 00381000 LA INDEX2,1 0274 00382000 B @DE00274 0274 00383000 @DL00274 DS 0H 0275 00384000 * NTGRPPTR(NTGRPID(INDEX2))= 0275 00385000 * GRPPTR; 0275 00386000 LR @10,INDEX2 0275 00387000 ALR @10,@10 0275 00388000 LH @10,NTGRPID-2(@10,GRPPTR) 0275 00389000 MH @10,@CH00258 0275 00390000 L @05,@PC00001+4 0275 00391000 L @05,WORKPTR(,@05) 0275 00392000 AL @05,@CF00657 0275 00393000 ST GRPPTR,NTGRPPTR-4(@10,@05) 0275 00394000 * END; 0276 00395000 AH INDEX2,@CH00158 0276 00396000 @DE00274 CH INDEX2,NTGRPCNT(,GRPPTR) 0276 00397000 BNH @DL00274 0276 00398000 * GRPPTR=GRPPTR+LENGTH(NTGRPCNT)+ 0277 00399000 * NTGRPCNT*LENGTH(NTGRPID); 0277 00400000 LA @10,2 0277 00401000 ALR @10,GRPPTR 0277 00402000 LH @15,NTGRPCNT(,GRPPTR) 0277 00403000 ALR @15,@15 0277 00404000 ALR @10,@15 0277 00405000 LR GRPPTR,@10 0277 00406000 * END; 0278 00407000 AH INDEX,@CH00158 0278 00408000 @DE00273 L @10,@PC00001+4 0278 00409000 L @15,@PC00001+4 0278 00410000 L @01,DESCPTR(,@15) 0278 00411000 SLR @15,@15 0278 00412000 IC @15,NTGRPDSP(,@01) 0278 00413000 ALR @15,@15 0278 00414000 AL @15,DESCPTR(,@10) 0278 00415000 CH INDEX,NTGRPTOT(,@15) 0278 00416000 BNH @DL00273 0278 00417000 * END DOGRP25; 0279 00418000 * 0279 00419000 * /************************************************/ 00420000 * /* */ 00421000 * /* OBTAIN SPACE FOR THE INITIAL SECTION OF THE */ 00422000 * /* FDT (DATA POINTERS AND VERB NAME) AND */ 00423000 * /* INITIALIZE THIS SPACE. */ 00424000 * /* */ 00425000 * /************************************************/ 00426000 * SPACEAMT=MAXID*PTRLNGTH+LENGTH(FDTVERB); 0280 00427000 * 0280 00428000 @RF00270 L @10,@PC00001+4 0280 00429000 L @02,DESCPTR(,@10) 0280 00430000 LH @02,MAXID(,@02) 0280 00431000 SLA @02,2 0280 00432000 AH @02,@CH00154 0280 00433000 ST @02,SPACEAMT 0280 00434000 * CALL ICKSAGP0(GDTTBL,SPACEAMT,FDTADDR,POOLID,SETZE 00435000 *O); 0281 00436000 L @02,@PC00001 0281 00437000 ST @02,@AL00001 0281 00438000 LA @15,SPACEAMT 0281 00439000 ST @15,@AL00001+4 0281 00440000 LA @15,FDTADDR(,@10) 0281 00441000 ST @15,@AL00001+8 0281 00442000 LA @10,POOLID(,@10) 0281 00443000 ST @10,@AL00001+12 0281 00444000 LA @10,@CC00138 0281 00445000 ST @10,@AL00001+16 0281 00446000 MVI @AL00001+16,X'80' 0281 00447000 L @15,GDTGPL(,@02) 0281 00448000 LA @01,@AL00001 0281 00449000 BALR @14,@15 0281 00450000 * RESPECIFY RTNREG RSTD; 0282 00451000 * TESTRC = RTNREG; 0283 00452000 LR TESTRC,RTNREG 0283 00453000 * RESPECIFY RTNREG UNRSTD; 0284 00454000 * 0284 00455000 * IF TESTRC^=0 0285 00456000 * THEN 0285 00457000 LTR TESTRC,TESTRC 0285 00458000 BZ @RF00285 0285 00459000 * RISTATUS=NOSPACE; 0286 00460000 L @10,@PC00001+4 0286 00461000 MVC RISTATUS(2,@10),@CH00269 0286 00462000 * ELSE 0287 00463000 *DOGRP3: DO; 0287 00464000 B @RC00285 0287 00465000 @RF00285 DS 0H 0287 00466000 DOGRP3 DS 0H 0288 00467000 * FDTVERB=VERBNAME; 0288 00468000 * 0288 00469000 L @10,@PC00001+4 0288 00470000 L @01,FDTADDR(,@10) 0288 00471000 MVC FDTVERB(8,@01),VERBNAME(@10) 0288 00472000 * /******************************************/ 00473000 * /* */ 00474000 * /* SET UP DATA POINTERS TO BE USED FOR */ 00475000 * /* REPEATED LIST DATA. FOR A PARAMETER */ 00476000 * /* THE FIRST LEVEL OF REPEATED NESTING, */ 00477000 * /* ALLOCATE JUST THE FIRST SEGMENT OF A */ 00478000 * /* LIST OF SEGMENTS WHICH WILL MAKE UP THE*/ 00479000 * /* FINAL VECTOR OF POINTERS. EACH LIST */ 00480000 * /* (ONE PER PARM) IS GIVEN A SEPARATE */ 00481000 * /* POOL ID NUMBER. */ 00482000 * /* */ 00483000 * /******************************************/ 00484000 * DO PARMID=1 TO MAXID WHILE(RISTATUS=0); 0289 00485000 LA PARMID,1 0289 00486000 B @DE00289 0289 00487000 @DL00289 SLR @10,@10 0289 00488000 L @03,@PC00001+4 0289 00489000 CH @10,RISTATUS(,@03) 0289 00490000 BNE @DC00289 0289 00491000 * SPACEAMT=0; 0290 00492000 ST @10,SPACEAMT 0290 00493000 * IF PARMPTR(PARMID) ^= NULLPTR 0291 00494000 * THEN 0291 00495000 LR @15,PARMID 0291 00496000 MH @15,@CH00258 0291 00497000 L @03,WORKPTR(,@03) 0291 00498000 AL @03,@CF00658 0291 00499000 L @03,PARMPTR(@15,@03) 0291 00500000 CR @03,@10 0291 00501000 BE @RF00291 0291 00502000 * IF OCCURNUM > 1 0292 00503000 * THEN 0292 00504000 CLC OCCURNUM(3,@03),@CF00158+1 0292 00505000 BNH @RF00292 0292 00506000 *DOGRP4: DO; 0293 00507000 DOGRP4 DS 0H 0294 00508000 * REPNEST=0; 0294 00509000 SLR REPNEST,REPNEST 0294 00510000 * VLISTID=PARMID; 0295 00511000 * 0295 00512000 STH PARMID,VLISTID 0295 00513000 * /******************************/ 00514000 * /* */ 00515000 * /* COMPUTE THE NESTING LEVEL */ 00516000 * /* OF REPEATEDNESS AT WHICH */ 00517000 * /* THIS PARAMETER OCCURS. */ 00518000 * /* */ 00519000 * /******************************/ 00520000 * PARMID=SUPRPARM(PARMID); 0296 00521000 LR @10,PARMID 0296 00522000 MH @10,@CH00258 0296 00523000 L @15,@PC00001+4 0296 00524000 L @01,WORKPTR(,@15) 0296 00525000 AL @01,@CF00659 0296 00526000 LH @10,SUPRPARM-8(@10,@01) 0296 00527000 LR PARMID,@10 0296 00528000 * DO WHILE(PARMID ^= 0); 0297 00529000 B @DE00297 0297 00530000 @DL00297 DS 0H 0298 00531000 * IF REPEATED=YES 0298 00532000 * THEN 0298 00533000 LR @10,PARMID 0298 00534000 MH @10,@CH00258 0298 00535000 L @15,@PC00001+4 0298 00536000 L @01,WORKPTR(,@15) 0298 00537000 AL @01,@CF00658 0298 00538000 L @10,PARMPTR(@10,@01) 0298 00539000 TM REPEATED(@10),B'00100000' 0298 00540000 BNO @RF00298 0298 00541000 * REPNEST=REPNEST+1; 0299 00542000 AL REPNEST,@CF00158 0299 00543000 * PARMID=SUPRPARM(PARMID); 0300 00544000 @RF00298 LR @10,PARMID 0300 00545000 MH @10,@CH00258 0300 00546000 L @15,@PC00001+4 0300 00547000 L @01,WORKPTR(,@15) 0300 00548000 AL @01,@CF00659 0300 00549000 LH @10,SUPRPARM-8(@10,@01) 0300 00550000 LR PARMID,@10 0300 00551000 * END; 0301 00552000 @DE00297 LTR PARMID,PARMID 0301 00553000 BNZ @DL00297 0301 00554000 * PARMID=VLISTID; 0302 00555000 * 0302 00556000 LH PARMID,VLISTID 0302 00557000 * /******************************/ 00558000 * /* */ 00559000 * /* IF THIS PARAMETER OCCURS AT*/ 00560000 * /* THE 1ST REPEATED LEVEL, */ 00561000 * /* ALLOCATE JUST PART OF THE */ 00562000 * /* PTR VECTOR; OTHERWISE, */ 00563000 * /* ALLOCATE THE WHOLE VECTOR. */ 00564000 * /* */ 00565000 * /******************************/ 00566000 * IF REPNEST=1 0303 00567000 * THEN 0303 00568000 CH REPNEST,@CH00158 0303 00569000 BNE @RF00303 0303 00570000 * DO; 0304 00571000 * FDTPOOL=RIPOOLID; 0305 00572000 MVC FDTPOOL(4),RIPOOLID 0305 00573000 * SPACEAMT=PTRLNGTH*VECTRSIZ; 00574000 MVC SPACEAMT(4),@CF00653 0306 00575000 * END; 0307 00576000 * ELSE 0308 00577000 * DO; 0308 00578000 B @RC00303 0308 00579000 @RF00303 DS 0H 0309 00580000 * FDTPOOL=POOLID; 0309 00581000 L @10,@PC00001+4 0309 00582000 MVC FDTPOOL(4),POOLID(@10) 0309 00583000 * SPACEAMT=OCCURNUM*PTRLNGTH; 00584000 LR @03,PARMID 0310 00585000 MH @03,@CH00258 0310 00586000 L @10,WORKPTR(,@10) 0310 00587000 AL @10,@CF00658 0310 00588000 L @10,PARMPTR(@03,@10) 0310 00589000 L @10,OCCURNUM-1(,@10) 0310 00590000 LA @10,0(,@10) 0310 00591000 SLA @10,2 0310 00592000 ST @10,SPACEAMT 0310 00593000 * END; 0311 00594000 * END DOGRP4; 0312 00595000 @RC00303 DS 0H 0313 00596000 * IF SPACEAMT > 0 0313 00597000 * THEN 0313 00598000 @RF00292 DS 0H 0313 00599000 @RF00291 L @10,SPACEAMT 0313 00600000 LTR @10,@10 0313 00601000 BNP @RF00313 0313 00602000 * DO; 0314 00603000 * 0314 00604000 * CALL ICKSAGP0(GDTTBL,SPACEAMT,FDTPTR(P 00605000 *RMID), 0315 00606000 * FDTPOOL,SETZERO); 0315 00607000 L @10,@PC00001 0315 00608000 ST @10,@AL00001 0315 00609000 LA @15,SPACEAMT 0315 00610000 ST @15,@AL00001+4 0315 00611000 LR @15,PARMID 0315 00612000 SLA @15,2 0315 00613000 L @14,@PC00001+4 0315 00614000 L @01,FDTADDR(,@14) 0315 00615000 LA @15,FDTPTR-4(@15,@01) 0315 00616000 ST @15,@AL00001+8 0315 00617000 LA @15,FDTPOOL 0315 00618000 ST @15,@AL00001+12 0315 00619000 LA @15,@CC00138 0315 00620000 ST @15,@AL00001+16 0315 00621000 MVI @AL00001+16,X'80' 0315 00622000 L @15,GDTGPL(,@10) 0315 00623000 LA @01,@AL00001 0315 00624000 BALR @14,@15 0315 00625000 * RESPECIFY RTNREG RSTD; 0316 00626000 * TESTRC = RTNREG; 0317 00627000 LR TESTRC,RTNREG 0317 00628000 * RESPECIFY RTNREG UNRSTD; 0318 00629000 * 0318 00630000 * IF TESTRC ^= 0 0319 00631000 * THEN 0319 00632000 LTR TESTRC,TESTRC 0319 00633000 BZ @RF00319 0319 00634000 * RISTATUS=NOSPACE; 0320 00635000 L @10,@PC00001+4 0320 00636000 MVC RISTATUS(2,@10),@CH00269 0320 00637000 * END; 0321 00638000 @RF00319 DS 0H 0322 00639000 * END; 0322 00640000 @RF00313 AL PARMID,@CF00158 0322 00641000 @DE00289 L @10,@PC00001+4 0322 00642000 L @10,DESCPTR(,@10) 0322 00643000 CH PARMID,MAXID(,@10) 0322 00644000 BNH @DL00289 0322 00645000 @DC00289 DS 0H 0323 00646000 * END DOGRP3; 0323 00647000 * END DOGRP2; 0324 00648000 @RC00285 DS 0H 0325 00649000 * END DOGRP1; 0325 00650000 @RC00248 DS 0H 0326 00651000 * IF RISTATUS^=0 0326 00652000 * THEN 0326 00653000 @RC00236 L @10,@PC00001+4 0326 00654000 LH @15,RISTATUS(,@10) 0326 00655000 LTR @15,@15 0326 00656000 BZ @RF00326 0326 00657000 * LASTCC=BADERROR; 0327 00658000 * 0327 00659000 * 0327 00660000 MVC LASTCC(2,@10),@CH00258 0327 00661000 * CALL ICKSAEP0(GDTTBL,MODID); 0328 00662000 @RF00326 L @10,@PC00001 0328 00663000 ST @10,@AL00001 0328 00664000 LA @15,MODID 0328 00665000 ST @15,@AL00001+4 0328 00666000 MVI @AL00001+4,X'80' 0328 00667000 L @15,GDTEPL(,@10) 0328 00668000 LA @01,@AL00001 0328 00669000 BALR @14,@15 0328 00670000 * END ICKRI02 0329 00671000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00672000 */*%INCLUDE SYSLIB (DMSDF01 ) * 00673000 */*%INCLUDE SYSLIB (DMSDF00 ) * 00674000 */*@INCLUDE SYSLIB (DMSDF02 ) * 00675000 */*%INCLUDE SYSLIB (DMSDF05 ) * 00676000 */*%INCLUDE SYSLIB (DMSDF06 ) * 00677000 *; 0329 00678000 @EL00001 L @13,4(,@13) 0329 00679000 @EF00001 L @00,@SIZDATD 0329 00680000 LR @01,@11 0329 00681000 FREEMAIN R,LV=(0),A=(1) 00682000 @ER00001 LM @14,@12,12(@13) 0329 00683000 BR @14 0329 00684000 @DATA DS 0H 00685000 @CH00109 DC H'2' 00686000 @CH00154 DC H'8' 00687000 @CH00258 DC H'12' 00688000 @CH00269 DC H'18' 00689000 @CH00273 DC H'20' 00690000 @DATD DSECT 00691000 DS 0F 00692000 @SA00001 DS 18F 00693000 @PC00001 DS 2F 00694000 @AL00001 DS 5A 00695000 @TF00001 DS F 00696000 @ZTEMPS DS C 00697000 @ZTEMPND EQU * 00698000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00699000 ICKRI02 CSECT 00700000 DS 0F 00701000 @CF00158 DC F'1' 00702000 @CH00158 EQU @CF00158+2 00703000 @CF00653 DC F'36' 00704000 @CF00655 DC F'-16' 00705000 @CF00658 DC F'-12' 00706000 @CF00657 DC F'-8' 00707000 @CF00659 DC F'-4' 00708000 @DATD DSECT 00709000 DS 0D 00710000 LISTSCAN DS A 00711000 IOCSPTR DS A 00712000 OPNPTR DS A 00713000 DDSTRU DS A 00714000 FSADDR DS A 00715000 DMPINDEX DS A 00716000 KWDPTR DS A 00717000 SPACEAMT DS F 00718000 LISTPTR DS A 00719000 SETRC DS H 00720000 LISTLN DS FL1 00721000 @TS00001 DS CL95 00722000 FOUND DS BL1 00723000 DS CL1 00724000 RIPOOLID DS CL4 00725000 ORG RIPOOLID 00726000 VLISTID1 DS CL2 00727000 VLISTID DS FL2 00728000 ORG RIPOOLID+4 00729000 FDTPOOL DS CL4 00730000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00731000 @ENDDATD EQU * 00732000 ICKRI02 CSECT 00733000 DS 0F 00734000 @SIZDATD DC AL1(0) 00735000 DC AL3(@ENDDATD-@DATD) 00736000 DS 0D 00737000 @CC00138 DC C'ZERO' 00738000 @CC00635 DC C'RISD' 00739000 @CC00637 DC C'RI16' 00740000 @CC00642 DC C'RI17' 00741000 @CC00636 EQU @CC00635 00742000 MODID DC CL4'RI02' 00743000 TBLEND DC CL8'FFFFFFFF' 00744000 FIXAREA DS CL100 00745000 ORG FIXAREA 00746000 @NM00039 DC 100X'00' 00747000 ORG FIXAREA+100 00748000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00749000 @01 EQU 01 00750000 @02 EQU 02 00751000 @03 EQU 03 00752000 @04 EQU 04 00753000 @05 EQU 05 00754000 @06 EQU 06 00755000 @07 EQU 07 00756000 @08 EQU 08 00757000 @09 EQU 09 00758000 @10 EQU 10 00759000 @11 EQU 11 00760000 @12 EQU 12 00761000 @13 EQU 13 00762000 @14 EQU 14 00763000 @15 EQU 15 00764000 REPNEST EQU @03 00765000 TEMPPTR EQU @05 00766000 INDEX2 EQU @04 00767000 INDEX EQU @03 00768000 SETUPPTR EQU @02 00769000 PARMID EQU @02 00770000 GRPPTR EQU @02 00771000 TESTRC EQU @03 00772000 RTNREG EQU @15 00773000 REG0 EQU @00 00774000 REG1 EQU @01 00775000 REG10 EQU @10 00776000 REG11 EQU @11 00777000 REG12 EQU @12 00778000 REG13 EQU @13 00779000 REG14 EQU @14 00780000 REG15 EQU @15 00781000 REG2 EQU @02 00782000 REG3 EQU @03 00783000 REG4 EQU @04 00784000 REG5 EQU @05 00785000 REG6 EQU @06 00786000 REG7 EQU @07 00787000 REG8 EQU @08 00788000 REG9 EQU @09 00789000 ICKSALD0 EQU 0 00790000 ICKSAEP0 EQU 0 00791000 ICKSAGP0 EQU 0 00792000 TRACE1 EQU 0 00793000 OLDERID1 EQU TRACE1 00794000 TRACE2 EQU 0 00795000 OLDERID2 EQU TRACE2 00796000 NEWID2 EQU TRACE2+95 00797000 NEWERID2 EQU 5 00798000 STAEPARM EQU 0 00799000 STAEPFX EQU STAEPARM 00800000 IOCSTR EQU 0 00801000 IOCDSO EQU IOCSTR+13 00802000 IOCRFM EQU IOCSTR+14 00803000 IOCMAC EQU IOCSTR+15 00804000 IOCMSG EQU IOCSTR+16 00805000 OPNAGL EQU 0 00806000 OPNOPT EQU OPNAGL 00807000 OPNRFM EQU OPNAGL+1 00808000 OPNTYP EQU OPNAGL+2 00809000 OPNMOD EQU OPNAGL+3 00810000 UVOLLIST EQU 0 00811000 UVOLENT EQU UVOLLIST+2 00812000 DARGLIST EQU 0 00813000 DARGSTID EQU DARGLIST+8 00814000 DARGARY EQU DARGLIST+20 00815000 DARGINS EQU DARGARY 00816000 DARGINL EQU DARGARY+2 00817000 FMTLIST EQU 0 00818000 FMTFLGS EQU FMTLIST 00819000 FMTSPF EQU FMTLIST+2 00820000 FMTRFNO EQU FMTSPF 00821000 FMTILEN EQU FMTRFNO 00822000 FMTIOFF EQU FMTLIST+4 00823000 FMTTRBC EQU FMTIOFF 00824000 FMTSTO EQU FMTTRBC 00825000 FMTOCOL EQU FMTLIST+6 00826000 FMTCNVF EQU FMTLIST+10 00827000 ICKDB010 EQU 0 00828000 DMPITM EQU 0 00829000 DMPARY EQU 0 00830000 HDAREA EQU 0 00831000 LOADTPTR EQU HDAREA+4 00832000 MODLFLGS EQU HDAREA+18 00833000 VERBDATA EQU 0 00834000 VDATALEN EQU VERBDATA+6 00835000 PARMCNT EQU VERBDATA+8 00836000 MAXID EQU VERBDATA+10 00837000 LOADNAME EQU VERBDATA+12 00838000 POSDSPL EQU VERBDATA+20 00839000 DGRPDSPL EQU VERBDATA+21 00840000 VNGRPDSP EQU VERBDATA+22 00841000 NTGRPDSP EQU VERBDATA+23 00842000 @NM00020 EQU 0 00843000 @NM00021 EQU 0 00844000 @NM00022 EQU 0 00845000 NTGRPTOT EQU 0 00846000 @NM00023 EQU 0 00847000 NTGRPCNT EQU @NM00023 00848000 NTGRPID EQU @NM00023+2 00849000 PARMDATA EQU 0 00850000 PDEFLEN EQU PARMDATA 00851000 OCCURNUM EQU PARMDATA+1 00852000 IDDSPL EQU PARMDATA+4 00853000 KWDDSPL EQU PARMDATA+5 00854000 NOTDSPL EQU PARMDATA+6 00855000 NGRPDSPL EQU PARMDATA+7 00856000 PDEDSPL EQU PARMDATA+8 00857000 REPEATED EQU PARMDATA+11 00858000 SUBLIST EQU PARMDATA+11 00859000 DSCRPTR1 EQU 0 00860000 SUBDSPL EQU DSCRPTR1+2 00861000 DSCRPTR2 EQU 0 00862000 DEFLT EQU 0 00863000 @NM00028 EQU 0 00864000 ICKOUNT EQU @NM00028 00865000 @NM00029 EQU @NM00028+2 00866000 IDNUM EQU @NM00029 00867000 @NM00030 EQU 0 00868000 @NM00031 EQU 0 00869000 SUBCOUNT EQU @NM00031 00870000 @NM00032 EQU @NM00031+2 00871000 SUBID EQU @NM00032+2 00872000 @NM00033 EQU 0 00873000 @NM00034 EQU 0 00874000 @NM00035 EQU 0 00875000 @NM00036 EQU @NM00035+2 00876000 FDTTBL EQU 0 00877000 FDTVERB EQU FDTTBL 00878000 FDTPTR EQU FDTTBL+8 00879000 PARMINFO EQU 0 00880000 PARMPTR EQU PARMINFO 00881000 NTGRPPTR EQU PARMINFO+4 00882000 SUPRPARM EQU PARMINFO+8 00883000 RILT EQU 0 00884000 @NM00038 EQU RILT 00885000 TBLVERB EQU @NM00038 00886000 TBLLNAME EQU @NM00038+8 00887000 DGRPTOT EQU 0 00888000 DMPTRM EQU 0 00889000 ICKDVCL0 EQU 0 00890000 ICKDVIN0 EQU 0 00891000 ICKDVON0 EQU 0 00892000 ICKDVOP0 EQU 0 00893000 ICKIOCL0 EQU 0 00894000 ICKIOGT0 EQU 0 00895000 ICKIOIT0 EQU 0 00896000 ICKIOOP0 EQU 0 00897000 ICKIOPT0 EQU 0 00898000 ICKIOTM0 EQU 0 00899000 ICKSACL0 EQU 0 00900000 ICKSADE0 EQU 0 00901000 ICKSAFP0 EQU 0 00902000 ICKSAFS0 EQU 0 00903000 ICKSAGS0 EQU 0 00904000 ICKSAPR0 EQU 0 00905000 ICKSASC0 EQU 0 00906000 ICKSASN0 EQU 0 00907000 ICKSAST0 EQU 0 00908000 ICKSATI0 EQU 0 00909000 ICKSAVC0 EQU 0 00910000 ICKSAWO0 EQU 0 00911000 ICKTPEA0 EQU 0 00912000 ICKTPES0 EQU 0 00913000 ICKTPPR0 EQU 0 00914000 ICKTPRE0 EQU 0 00915000 ICKTPRS0 EQU 0 00916000 KWDCOUNT EQU 0 00917000 LISTTEST EQU 0 00918000 NEWERID1 EQU 5 00919000 NGRPTOT EQU 0 00920000 VNGRPTOT EQU 0 00921000 GDTTBL EQU 0 00922000 GDTTR1 EQU GDTTBL+8 00923000 GDTTR2 EQU GDTTBL+12 00924000 GDTRIH EQU GDTTBL+24 00925000 GDTDIN EQU GDTTBL+44 00926000 GDTDOP EQU GDTTBL+48 00927000 GDTDBG EQU GDTTBL+52 00928000 GDTDVO EQU GDTTBL+56 00929000 GDTPRT EQU GDTTBL+60 00930000 GDTESS EQU GDTTBL+64 00931000 GDTESA EQU GDTTBL+68 00932000 GDTRST EQU GDTTBL+72 00933000 GDTRES EQU GDTTBL+76 00934000 GDTCAL EQU GDTTBL+80 00935000 GDTGSP EQU GDTTBL+84 00936000 GDTFSP EQU GDTTBL+88 00937000 GDTGPL EQU GDTTBL+92 00938000 GDTFPL EQU GDTTBL+96 00939000 GDTLOD EQU GDTTBL+100 00940000 GDTDEL EQU GDTTBL+104 00941000 GDTPRL EQU GDTTBL+108 00942000 GDTEPL EQU GDTTBL+112 00943000 GDTTIM EQU GDTTBL+116 00944000 GDTIIO EQU GDTTBL+120 00945000 GDTTIO EQU GDTTBL+124 00946000 GDTOPN EQU GDTTBL+136 00947000 GDTCLS EQU GDTTBL+140 00948000 GDTGET EQU GDTTBL+144 00949000 GDTPUT EQU GDTTBL+148 00950000 GDTSNP EQU GDTTBL+160 00951000 GDTWTO EQU GDTTBL+168 00952000 GDTSCR EQU GDTTBL+172 00953000 GDTVCK EQU GDTTBL+176 00954000 GDTDVC EQU GDTTBL+180 00955000 GDTSTE EQU GDTTBL+188 00956000 COMMAREA EQU 0 00957000 FDTADDR EQU COMMAREA+4 00958000 DESCPTR EQU COMMAREA+8 00959000 WORKPTR EQU COMMAREA+12 00960000 RISTATUS EQU COMMAREA+16 00961000 LASTCC EQU COMMAREA+22 00962000 FSRLNAME EQU COMMAREA+26 00963000 POOLID EQU COMMAREA+34 00964000 VERBNAME EQU COMMAREA+38 00965000 DESCNAME EQU COMMAREA+46 00966000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00967000 @NM00018 EQU COMMAREA+54 00968000 SKIPPAST EQU COMMAREA+54 00969000 SCANONLY EQU COMMAREA+54 00970000 OPTSFLAG EQU COMMAREA+54 00971000 EOFOK EQU COMMAREA+54 00972000 GOODCMD EQU COMMAREA+54 00973000 MAXCC EQU COMMAREA+24 00974000 SCNLIMIT EQU COMMAREA+20 00975000 SCANINDX EQU COMMAREA+18 00976000 RECRDPTR EQU COMMAREA 00977000 GDTCVR EQU GDTTBL+184 00978000 GDTSPR EQU GDTTBL+164 00979000 GDTABH EQU GDTTBL+156 00980000 GDTABT EQU GDTTBL+152 00981000 GDTTOH EQU GDTTBL+132 00982000 GDTRIP EQU GDTTBL+128 00983000 GDTDVH EQU GDTTBL+40 00984000 GDTIOH EQU GDTTBL+36 00985000 GDTSAH EQU GDTTBL+32 00986000 GDTTPH EQU GDTTBL+28 00987000 GDTSTH EQU GDTTBL+20 00988000 GDTDBH EQU GDTTBL+16 00989000 GDTPRM EQU GDTTBL+4 00990000 GDTHDR EQU GDTTBL 00991000 @NM00037 EQU PARMINFO+11 00992000 PARMFLAG EQU PARMINFO+10 00993000 PDEOFST2 EQU @NM00036+4 00994000 PDEPCLID EQU @NM00036+2 00995000 PDEPRMID EQU @NM00036 00996000 PDECNT EQU @NM00035 00997000 NOTID EQU @NM00034+2 00998000 NOTCOUNT EQU @NM00034 00999000 NGRPID EQU @NM00033+2 01000000 NGRPCNT EQU @NM00033 01001000 PARMTYPE EQU @NM00032 01002000 KWDITEM EQU @NM00030+1 01003000 KWDLEN EQU @NM00030 01004000 PDEOFST1 EQU @NM00029+2 01005000 DEFLTVAL EQU DEFLT+1 01006000 DEFLTLEN EQU DEFLT 01007000 @NM00027 EQU DSCRPTR2+11 01008000 PWORDOPT EQU DSCRPTR2+11 01009000 USERID EQU DSCRPTR2+11 01010000 VOLID EQU DSCRPTR2+11 01011000 GENERIC EQU DSCRPTR2+11 01012000 DSNAM EQU DSCRPTR2+11 01013000 ANYSTRNG EQU DSCRPTR2+11 01014000 NUMBER EQU DSCRPTR2+11 01015000 @NM00026 EQU DSCRPTR2+10 01016000 LISTMAX EQU DSCRPTR2+9 01017000 MAXLNGTH EQU DSCRPTR2+8 01018000 LOWVALUE EQU DSCRPTR2+4 01019000 HIVALUE EQU DSCRPTR2 01020000 REPMAX EQU DSCRPTR1+3 01021000 PCLDSPL2 EQU DSCRPTR1 01022000 @NM00025 EQU PARMDATA+11 01023000 DEFAULT EQU PARMDATA+11 01024000 LIST EQU PARMDATA+11 01025000 SCALAR EQU PARMDATA+11 01026000 LEVEL1 EQU PARMDATA+11 01027000 SCLRDATA EQU PARMDATA+11 01028000 @NM00024 EQU PARMDATA+10 01029000 KWDGRPID EQU PARMDATA+9 01030000 VNGRPID EQU @NM00022+2 01031000 VNGRPCNT EQU @NM00022 01032000 DGRPID EQU @NM00021+2 01033000 DGRPCNT EQU @NM00021 01034000 VPOSID EQU @NM00020+2 01035000 VPOSCNT EQU @NM00020 01036000 PCLDSPL1 EQU VERBDATA+4 01037000 DESCID EQU VERBDATA 01038000 @NM00019 EQU MODLFLGS+1 01039000 SKIPFLAG EQU MODLFLGS+1 01040000 ELSEFLAG EQU MODLFLGS+1 01041000 THENFLAG EQU MODLFLGS+1 01042000 DOFLAG EQU MODLFLGS+1 01043000 NULLDO EQU MODLFLGS 01044000 NESTLVL EQU HDAREA+16 01045000 ADDRIOCS EQU HDAREA+12 01046000 KWTBLPTR EQU HDAREA+8 01047000 RIGHTMGN EQU HDAREA+2 01048000 LEFTMGN EQU HDAREA 01049000 @NM00017 EQU DMPARY+15 01050000 DMPARYTP EQU DMPARY+14 01051000 DMPARYEX EQU DMPARY+12 01052000 DMPARYIC EQU DMPARY+10 01053000 DMPARYSZ EQU DMPARY+8 01054000 DMPARYNM EQU DMPARY 01055000 @NM00016 EQU DMPITM+15 01056000 DMPITMTP EQU DMPITM+14 01057000 DMPITMLN EQU DMPITM+12 01058000 DMPITMPT EQU DMPITM+8 01059000 DMPITMNM EQU DMPITM 01060000 @NM00015 EQU FMTCNVF+1 01061000 FMTBS EQU FMTCNVF+1 01062000 FMTSS EQU FMTCNVF+1 01063000 FMTAL EQU FMTCNVF+1 01064000 FMTZS EQU FMTCNVF+1 01065000 @NM00014 EQU FMTCNVF 01066000 FMTPU EQU FMTCNVF 01067000 FMTBD EQU FMTCNVF 01068000 FMTBHD EQU FMTCNVF 01069000 FMTBHA EQU FMTCNVF 01070000 FMTBH EQU FMTCNVF 01071000 FMTOLEN EQU FMTLIST+8 01072000 FMTRIO EQU FMTOCOL 01073000 FMTSPT EQU FMTSTO 01074000 FMTSTL EQU FMTILEN 01075000 @NM00013 EQU FMTFLGS+1 01076000 FMTHDF EQU FMTFLGS 01077000 FMTDFF EQU FMTFLGS 01078000 FMTSTF EQU FMTFLGS 01079000 FMTREPF EQU FMTFLGS 01080000 FMTBDF EQU FMTFLGS 01081000 FMTIDF EQU FMTFLGS 01082000 FMTSCF EQU FMTFLGS 01083000 FMTEOLF EQU FMTFLGS 01084000 DARGDTM EQU DARGARY+4 01085000 DARGPCT EQU DARGINL 01086000 DARGREP EQU DARGINS 01087000 @NM00012 EQU DARGLIST+19 01088000 DARGIND EQU DARGLIST+18 01089000 DARGRETL EQU DARGLIST+16 01090000 DARGCNT EQU DARGLIST+14 01091000 DARGILP EQU DARGLIST+12 01092000 DARGSENT EQU DARGSTID+3 01093000 DARGSMOD EQU DARGSTID 01094000 DARGRETP EQU DARGLIST+4 01095000 DARGDBP EQU DARGLIST 01096000 UVOLVOL EQU UVOLENT+4 01097000 UVOLDEV EQU UVOLENT 01098000 UVOLCNT EQU UVOLLIST 01099000 OPNRSVD EQU OPNAGL+28 01100000 OPNVOL EQU OPNAGL+24 01101000 OPNBLK EQU OPNAGL+20 01102000 OPNREC EQU OPNAGL+16 01103000 OPNDSN EQU OPNAGL+12 01104000 OPNDDN EQU OPNAGL+8 01105000 OPNIOC EQU OPNAGL+4 01106000 @NM00011 EQU OPNMOD 01107000 OPNMODRC EQU OPNMOD 01108000 OPNMODAC EQU OPNMOD 01109000 @NM00010 EQU OPNTYP 01110000 OPNTYPSO EQU OPNTYP 01111000 OPNTYPSI EQU OPNTYP 01112000 @NM00009 EQU OPNRFM 01113000 OPNRFMBK EQU OPNRFM 01114000 OPNRFMSF EQU OPNRFM 01115000 OPNRFMUN EQU OPNRFM 01116000 OPNRFMVR EQU OPNRFM 01117000 OPNRFMFX EQU OPNRFM 01118000 @NM00008 EQU OPNOPT 01119000 OPNOPTJM EQU OPNOPT 01120000 OPNOPTKS EQU OPNOPT 01121000 OPNOPTBK EQU OPNOPT 01122000 OPNOPTUP EQU OPNOPT 01123000 OPNOPTOT EQU OPNOPT 01124000 OPNOPTIN EQU OPNOPT 01125000 IOCEXT EQU IOCSTR+36 01126000 IOCRRN EQU IOCSTR+32 01127000 @NM00007 EQU IOCSTR+30 01128000 IOCPNM EQU IOCSTR+28 01129000 IOCCBP EQU IOCSTR+24 01130000 IOCDSN EQU IOCSTR+20 01131000 @NM00006 EQU IOCSTR+17 01132000 @NM00005 EQU IOCMSG 01133000 IOCMSGOP EQU IOCMSG 01134000 IOCMACPA EQU IOCMAC 01135000 @NM00004 EQU IOCMAC 01136000 IOCMACBK EQU IOCMAC 01137000 IOCMACUP EQU IOCMAC 01138000 IOCMACOT EQU IOCMAC 01139000 IOCMACIN EQU IOCMAC 01140000 @NM00003 EQU IOCRFM 01141000 IOCRFMBK EQU IOCRFM 01142000 IOCRFMSF EQU IOCRFM 01143000 IOCRFMUN EQU IOCRFM 01144000 IOCRFMVR EQU IOCRFM 01145000 IOCRFMFX EQU IOCRFM 01146000 @NM00002 EQU IOCDSO 01147000 IOCDSOPS EQU IOCDSO 01148000 IOCKYL EQU IOCSTR+12 01149000 IOCTRN EQU IOCSTR+8 01150000 IOCDLN EQU IOCSTR+4 01151000 IOCDAD EQU IOCSTR 01152000 STAEWORK EQU STAEPARM+32 01153000 STARPTR EQU STAEPFX+28 01154000 STASPTR EQU STAEPFX+24 01155000 STALEN EQU STAEPFX+20 01156000 STAID EQU STAEPFX+16 01157000 STAEPA EQU STAEPFX+12 01158000 STAGDT EQU STAEPFX+8 01159000 STABPTR EQU STAEPFX+4 01160000 STAFPTR EQU STAEPFX 01161000 NEWID1 EQU TRACE1+95 01162000 CALLID EQU OLDERID1+90 01163000 @NM00001 EQU OLDERID1 01164000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01165000 @ENDDATA EQU * 01166000 END ICKRI02,(C'PLS1727',0701,78192) 01167000