TITLE 'IGG0198L - SAM-SI OPEN EXECUTOR *00001000 ' 00002000 IGG0198L CSECT , 0001 00003000 @PROLOG BALR @12,0 0001 00004000 @PSTART DS 0H 0001 00005000 USING @PSTART,@12 0001 00006000 EJECT 00007000 EJECT 00008000 PROCESS MODESET EXTKEY=DATAMGT 00009000 * RDCB = PARCDCB; /* SET BASE FOR DCB */ 00010000 SLR RDCB,RDCB 0042 00011000 ICM RDCB,7,PARCDCB(RPARC) 0042 00012000 * RDCB = RDCB + 0; /* CLEAR HIGH ORDER BYTE */ 00013000 * RCICB = DCBCICB; /* SET BASE FOR CICB */ 00014000 L RCICB,DCBCICB(,RDCB) 0044 00015000 * RCORE = WTGCWA; /* SET BASE ADDR 4 IECDSECT */ 00016000 * 0045 00017000 SLR RCORE,RCORE 0045 00018000 ICM RCORE,7,WTGCWA(RWTGC) 0045 00019000 * /***********************************************************/ 00020000 * GEN (EJECT); /* SKIP TO A NEW PAGE */ 00021000 EJECT 00022000 * /***********************************************************/ 00023000 * /* */ 00024000 * /* HAVE LOAD PUT NECESSARY MODULES IN USER'S REGION */ 00025000 * /* */ 00026000 * /***********************************************************/ 00027000 * 0047 00028000 *LOADCIPM: 0047 00029000 * 0047 00030000 * IF DCBCIND2(8) = '0'B THEN /* DOES DCB INDICATE QSAM */ 00031000 LOADCIPM TM DCBCIND2(RDCB),B'00000001' 0047 00032000 BNZ @RF00047 0047 00033000 * DO; /* NO - LOAD BSAM MODULES */ 00034000 * 0048 00035000 * /***********************************************************/ 00036000 * /* LOAD BSAM PROCESSING MODULE */ 00037000 * /***********************************************************/ 00038000 * 0049 00039000 * R1 = CVTLINK; /* LINKLIB'S DCB PTR ZA02501*/ 00040000 L @04,CVTPTR 0049 00041000 L R1,CVTLINK(,@04) 0049 00042000 * WTGMDNAM = 'IGG019DK'; /* NAME OF MODULE TO LOAD */ 00043000 MVC WTGMDNAM(8,RWTG),@CC00381 0050 00044000 * GEN (LOAD EPLOC=(RWTG),DCB=(R1)); /* ZA02501*/ 00045000 LOAD EPLOC=(RWTG),DCB=(R1) 00046000 * WTGMDNAM = 'IGG0198L'; /* RESTORE MODULE NAME */ 00047000 MVC WTGMDNAM(8,RWTG),@CC00382 0052 00048000 * RMOD = R0; /* SET BASE FOR ENTRY PT */ 00049000 LR RMOD,R0 0053 00050000 * /* TABLE AT BEGINNING OF */ 00051000 * /* MODULE...R0 POINTS TO */ 00052000 * /* MODULE JUST LOADED */ 00053000 * 0054 00054000 * ATFBSAM = '1'B; /* SET BSAM MOD LOADED Y02144*/ 00055000 * 0054 00056000 OI ATFBSAM(RCORE),B'00000100' 0054 00057000 * /* SET CNTRL ENTRY ADDRESS */ 00058000 * 0055 00059000 * /* IS CNTRL WANTED */ 00060000 * IF DCBMACRF(7) = '1'B | DCBMACRF(15) = '1'B 0055 00061000 * THEN /* YES */ 00062000 TM DCBMACRF(RDCB),B'00000010' 0055 00063000 BO @RT00055 0055 00064000 TM DCBMACRF+1(RDCB),B'00000010' 0055 00065000 BNO @RF00055 0055 00066000 @RT00055 DS 0H 0056 00067000 * DCBCNTRL = EPCNTRL; /* ENTRY PT TO CONTROL RTN */ 00068000 MVC DCBCNTRL(3,RDCB),EPCNTRL+1(RMOD) 0056 00069000 * ELSE; /* CONTROL NOT SPECIFIED */ 00070000 * 0057 00071000 @RF00055 DS 0H 0058 00072000 * /* SET READ ENTRY ADDRESS */ 00073000 * 0058 00074000 * /* OPENED FOR IN OR INOUT */ 00075000 * IF PARCOPOP = '0000'B | PARCOPOP = '0011'B THEN 0058 00076000 TM PARCOPOP(RPARC),B'00001111' 0058 00077000 BZ @RT00058 0058 00078000 TM PARCOPOP(RPARC),B'00000011' 0058 00079000 BNO @RF00058 0058 00080000 TM PARCOPOP(RPARC),B'00001100' 0058 00081000 BNZ @RF00058 0058 00082000 @RT00058 DS 0H 0059 00083000 * DO; /* YES, DO THE FOLLOWING */ 00084000 * DCBREAD = EPREAD; /* ENTRY FOR CI READ */ 00085000 * 0060 00086000 MVC DCBREAD(3,RDCB),EPREAD+1(RMOD) 0060 00087000 * /* LOAD CHECK MODULE IF CONCATENATION NOT IN PROGRESS */ 00088000 * 0061 00089000 * IF DCBOFLGS(3) = '0'B/* 0061 00090000 * CONCATENATION INDICATOR */ 00091000 * THEN /* NOT CONCATENATED */ 00092000 TM DCBOFLGS(RDCB),B'00100000' 0061 00093000 BNZ @RF00061 0061 00094000 * DO; /* YES, DO THE FOLLOWING */ 00095000 * 0062 00096000 * /* SET NAME AND DCB ADDR OF MODULE TO LOAD */ 00097000 * R1=CVTLINK; /* LINKLIB DCB ADDR ZA02501*/ 00098000 L @04,CVTPTR 0063 00099000 L R1,CVTLINK(,@04) 0063 00100000 * WTGMDNAM = 'IGG019BB'; 0064 00101000 MVC WTGMDNAM(8,RWTG),@CC00387 0064 00102000 * GEN (LOAD EPLOC=(RWTG),DCB=(R1)); /*ZA02501*/ 00103000 * 0065 00104000 LOAD EPLOC=(RWTG),DCB=(R1) 00105000 * /* RESTORE MODULE NAME */ 00106000 * WTGMDNAM = 'IGG0198L'; 0066 00107000 * 0066 00108000 MVC WTGMDNAM(8,RWTG),@CC00382 0066 00109000 * /* ENTRY FOR BSAM CHECK */ 00110000 * DCBCHECK = R0; 0067 00111000 STCM R0,7,DCBCHECK(RDCB) 0067 00112000 * ATFCHECK = '1'B;/* 0068 00113000 * CHECK MOD IS LOADED Y02144*/ 00114000 OI ATFCHECK(RCORE),B'00000001' 0068 00115000 * END; /* END OF NOT CONCAT GROUP */ 00116000 * ELSE; /* CONCAT IS INDICATED */ 00117000 @RF00061 DS 0H 0071 00118000 * END; /* END OF IN|INOUT GROUP */ 00119000 * ELSE /* NOT INPUT OR INOUT */ 00120000 * DO; /* OPENED FOR OUT|OUTIN */ 00121000 * 0072 00122000 B @RC00058 0072 00123000 @RF00058 DS 0H 0073 00124000 * /* SET WRITE ENTRY ADDRESS */ 00125000 * 0073 00126000 * DCBWRITE = EPWRITE; /* SET WRITE ENTRY ADDR */ 00127000 * 0073 00128000 MVC DCBWRITE(3,RDCB),EPWRITE+1(RMOD) 0073 00129000 * /* SET CHECK (OUTPUT) ENTRY ADDRESS */ 00130000 * 0074 00131000 * DCBCHECK = EPCHECK; /* SET CHECK ENTRY ADDR */ 00132000 MVC DCBCHECK(3,RDCB),EPCHECK+1(RMOD) 0074 00133000 * END; /* END OF OUT|OUTIN GROUP */ 00134000 * 0075 00135000 * 0075 00136000 * END; /* END OF BSAM GROUP */ 00137000 * 0076 00138000 * ELSE DO; /* NOT BSAM DCB */ 00139000 B @RC00047 0077 00140000 @RF00047 DS 0H 0078 00141000 * GEN (EJECT); 0078 00142000 EJECT 00143000 * 0079 00144000 * /***********************************************************/ 00145000 * /* LOAD QSAM PROCESSING MODULE */ 00146000 * /***********************************************************/ 00147000 * 0079 00148000 *QSAMMOD: 0079 00149000 * R1 = CVTLINK; /* LINKLIB DCB ADDR ZA02501*/ 00150000 QSAMMOD L @04,CVTPTR 0079 00151000 L R1,CVTLINK(,@04) 0079 00152000 * WTGMDNAM = 'IGG019DJ'; /* NAME OF MOD TO LOAD */ 00153000 MVC WTGMDNAM(8,RWTG),@CC00390 0080 00154000 * GEN (LOAD EPLOC=(RWTG),DCB=(R1)); /* ZA02501*/ 00155000 LOAD EPLOC=(RWTG),DCB=(R1) 00156000 * WTGMDNAM = 'IGG0198L'; /* RESTORE MODULE NAME */ 00157000 * 0082 00158000 MVC WTGMDNAM(8,RWTG),@CC00382 0082 00159000 * RMOD = R0; /* SET BASE FOR ENTRY PT */ 00160000 LR RMOD,R0 0083 00161000 * /* TABLE AT BEGINNING OF */ 00162000 * /* MODULE...R0 POINTS TO */ 00163000 * /* MODULE JUST LOADED */ 00164000 * ATFQSAM = '1'B; /* SET QSAM MOD LOADED Y02144*/ 00165000 * 0084 00166000 OI ATFQSAM(RCORE),B'00001000' 0084 00167000 * /* SET CNTRL ENTRY ADDRESS IF REQUESTED IN DCB. */ 00168000 * 0085 00169000 * IF DCBMACRF(7) = '1'B | DCBMACRF(15) = '1'B THEN /* XM3766*/ 00170000 TM DCBMACRF(RDCB),B'00000010' 0085 00171000 BO @RT00085 0085 00172000 TM DCBMACRF+1(RDCB),B'00000010' 0085 00173000 BNO @RF00085 0085 00174000 @RT00085 DS 0H 0086 00175000 * DCBCNTRL = EPQCNTRL; /* SET CNTRL ADDRESS XM3766*/ 00176000 * 0086 00177000 MVC DCBCNTRL(3,RDCB),EPQCNTRL+1(RMOD) 0086 00178000 * /* SET GET ENTRY ADDRESS */ 00179000 * 0087 00180000 * /* OPENED FOR INPUT */ 00181000 * IF PARCOPOP = '0000'B THEN 0087 00182000 @RF00085 TM PARCOPOP(RPARC),B'00001111' 0087 00183000 BNZ @RF00087 0087 00184000 * DO; /* YES - PROCESS INPUT DCB */ 00185000 * DCBGET = EPGET; /* ENTRY FOR CI GET */ 00186000 * 0089 00187000 MVC DCBGET(3,RDCB),EPGET+1(RMOD) 0089 00188000 * /***********************************************/ 00189000 * /* */ 00190000 * /* TEST FOR CONCATENATION IN PROGRESS. IF YES, */ 00191000 * /* DO NOT LOAD QSAM SYNCHRONIZING MODULE, AS */ 00192000 * /* IT WAS LOADED FOR PREVIOUS DATA SET. */ 00193000 * /* */ 00194000 * /***********************************************/ 00195000 * 0090 00196000 * IF DCBOFLGS(3) = '0'B/* 0090 00197000 * CONCATENATION IND. ? */ 00198000 * THEN /* NOT CONCATENATION */ 00199000 TM DCBOFLGS(RDCB),B'00100000' 0090 00200000 BNZ @RF00090 0090 00201000 * DO; 0091 00202000 * 0091 00203000 * /******************************************/ 00204000 * /* LOAD QSAM SYNCHRONIZING MODULE */ 00205000 * /******************************************/ 00206000 * 0092 00207000 * /* SET NAME AND DCB ADDR OF MODULE TO LOAD*/ 00208000 * R1 = CVTLINK; /* ZA02501*/ 00209000 L @04,CVTPTR 0092 00210000 L R1,CVTLINK(,@04) 0092 00211000 * WTGMDNAM = 'IGG019AQ'; 0093 00212000 MVC WTGMDNAM(8,RWTG),@CC00391 0093 00213000 * GEN (LOAD EPLOC=(RWTG),DCB=(R1)); /*ZA02501*/ 00214000 * 0094 00215000 LOAD EPLOC=(RWTG),DCB=(R1) 00216000 * /* RESET MODULE NAME IN WTG TABLE */ 00217000 * WTGMDNAM = 'IGG0198L'; 0095 00218000 * 0095 00219000 MVC WTGMDNAM(8,RWTG),@CC00382 0095 00220000 * /* ENTRY FOR QSAM SYNCHRONIZING MODULE */ 00221000 * DCBGERR = R0; 0096 00222000 STCM R0,7,DCBGERR(RDCB) 0096 00223000 * ATFSYNC = '1'B;/* 0097 00224000 * SET SYNC MOD LOADED Y02144*/ 00225000 OI ATFSYNC(RCORE),B'00000010' 0097 00226000 * END; /* END OF NOT CONCAT GRP */ 00227000 * ELSE; /* CONCAT IS INDICATED */ 00228000 @RF00090 DS 0H 0100 00229000 * END; /* END OF INPUT GROUP */ 00230000 * ELSE /* NOT INPUT */ 00231000 * 0101 00232000 * /* SET PUT ENTRY ADDRESS */ 00233000 * 0101 00234000 * DCBPUT = EPPUT; /* SET PUT RTN ADDR */ 00235000 B @RC00087 0101 00236000 @RF00087 MVC DCBPUT(3,RDCB),EPPUT+1(RMOD) 0101 00237000 * END; /* END OF ^BSAM DCB GROUP */ 00238000 @RC00087 DS 0H 0103 00239000 * /***********************************************************/ 00240000 * GEN (EJECT); /* SKIP TO A NEW PAGE */ 00241000 @RC00047 DS 0H 0103 00242000 EJECT 00243000 * /***********************************************************/ 00244000 * /* */ 00245000 * /* PERFORM HOUSEKEEPING FUNCTIONS ON SAM DCB */ 00246000 * /* */ 00247000 * /***********************************************************/ 00248000 * 0104 00249000 * 0104 00250000 * /* SET CI BIT ON */ 00251000 * DCBCIND1(5) = '1'B; 0104 00252000 * 0104 00253000 OI DCBCIND1(RDCB),B'00001000' 0104 00254000 * /***********************************************************/ 00255000 * /* USER KEY REQUIRED TO REFRESH USER'S DCB */ 00256000 * /***********************************************************/ 00257000 * 0105 00258000 * RDCBSAVE = RDCB; /* SAVE CONTENTS OF REG 2 Y02082*/ 00259000 LR RDCBSAVE,RDCB 0105 00260000 * RUKEY = DXUKEY; /* USER KEY IN REG 2 Y02082*/ 00261000 SLR RUKEY,RUKEY 0106 00262000 IC RUKEY,DXUKEY(,RCORE) 0106 00263000 * GEN (MODESET KEYADDR=(2)); /*DCB REFRSH REQ USER KEY Y02082*/ 00264000 MODESET KEYADDR=(2) 00265000 * RDCB = RDCBSAVE; /* RESTORE DCB PTR Y02082*/ 00266000 LR RDCB,RDCBSAVE 0108 00267000 * DXUDCBAD -> IFGSDCB(21:88) = IFGSDCB(21:88); /* REFRESH REAL 00268000 * FROM PROTECTED COPY DCB ZA00623*/ 00269000 * 0109 00270000 L @04,DXUDCBAD(,RCORE) 0109 00271000 MVC IFGSDCB+20(68,@04),IFGSDCB+20(RDCB) 0109 00272000 * /***********************************************************/ 00273000 * /* REESTABLISH DATA MANAGEMENT KEY */ 00274000 * /***********************************************************/ 00275000 * 0110 00276000 * GEN (MODESET EXTKEY=DATAMGT); /* RESET TO DTAMGT KEY Y02082*/ 00277000 * 0110 00278000 MODESET EXTKEY=DATAMGT 00279000 *ZROCHAIN: 0111 00280000 * XCTLREG = ADDR (IBMCLOSE); /* ENTRY IN XCTL TABLE */ 00281000 * 0111 00282000 ZROCHAIN LA XCTLREG,IBMCLOSE 0111 00283000 * /* ZERO OUT ID OF ENTRY IN WTG TABLE */ 00284000 * WTGCID = XCTLID; 0112 00285000 * 0112 00286000 MVC WTGCID(2,RWTGC),XCTLID(XCTLREG) 0112 00287000 * /* ZERO OUT TTR OF ENTRY IN WTG TABLE */ 00288000 * WTGCTTR = XCTLTTR; 0113 00289000 * 0113 00290000 MVC WTGCTTR(3,RWTGC),XCTLTTR(XCTLREG) 0113 00291000 * /* RESET BASE FOR CICB */ 00292000 * RCICB = DCBCICB; 0114 00293000 * 0114 00294000 L RCICB,DCBCICB(,RDCB) 0114 00295000 *NEXTNTRY: 0115 00296000 * /* EXAMINE THE REMAINING ENTRIES IN THE WTG TABLE AND OPEN */ 00297000 * /* PARAMETER LIST TO DETERMINE IF THIS MODULE IS NEEDED. */ 00298000 * 0115 00299000 * RWTGC = RWTGC + 8; /* NEXT ENTRY IN WTG TABLE */ 00300000 NEXTNTRY LA RWTGC,8(,RWTGC) 0115 00301000 * RPARC = RPARC + 4; /* NEXT ENTRY IN PARM LIST */ 00302000 * 0116 00303000 LA RPARC,4(,RPARC) 0116 00304000 * /* IS THIS MODULE NEEDED */ 00305000 * 0117 00306000 * IF WTGCID = '8L' 0117 00307000 * THEN /* YES */ 00308000 CLC WTGCID(2,RWTGC),@CC00398 0117 00309000 BE @RT00117 0117 00310000 * GO TO PROCESS; /* GO PROCESS THE DCB */ 00311000 * ELSE 0119 00312000 * 0119 00313000 * /* IS THIS THE END OF THE WTG TABLE */ 00314000 * 0119 00315000 * IF WTGCID = '0S' 0119 00316000 * THEN /* YES */ 00317000 CLC WTGCID(2,RWTGC),@CC00399 0119 00318000 BE @RT00119 0119 00319000 * GO TO TRANSFER; /* GO TO TRANSFER CONTROL */ 00320000 * 0120 00321000 * ELSE /* NO */ 00322000 * GO TO NEXTNTRY; /* GO CHECK ENTRY ID */ 00323000 B NEXTNTRY 0121 00324000 * /***********************************************************/ 00325000 * GEN (EJECT); /* SKIP TO A NEW PAGE */ 00326000 EJECT 00327000 *TRANSFER: 0123 00328000 * /* RESET POINTERS IN THE WTG TABLE AND PARM LIST TO THE */ 00329000 * /* FIRST ENTRIES, AND PREPARE TO TRANSFER CONTROL TO THE */ 00330000 * /* NEXT LOAD. */ 00331000 * 0123 00332000 * /* FIRST ENTRY IN THE WTG TABLE */ 00333000 * RWTGC = RWTG + 32; 0123 00334000 * 0123 00335000 TRANSFER LA RWTGC,32(,RWTG) 0123 00336000 * /* FIRST ENTRY IN PARM LIST */ 00337000 * RPARC = RPAR; 0124 00338000 * 0124 00339000 LR RPARC,RPAR 0124 00340000 *CHECKID: 0125 00341000 * /* CHECK THE ENTRIES IN THE WTG TABLE FOR A NON-ZERO ID */ 00342000 * 0125 00343000 * /* IS ID OF CURRENT ENTRY IN WTG TABLE ZERO ? */ 00344000 * 0125 00345000 * IF WTGCID(1) = '00'X 0125 00346000 * THEN /* YES */ 00347000 CHECKID CLI WTGCID(RWTGC),X'00' 0125 00348000 BNE @RF00125 0125 00349000 * DO; /* STEP TO NEXT ENTRY */ 00350000 * RWTGC = RWTGC + 8; /* NEXT WTG-TBL ENTRY */ 00351000 LA RWTGC,8(,RWTGC) 0127 00352000 * RPARC = RPARC + 4; /* NEXT PARM-LIST ENTRY */ 00353000 LA RPARC,4(,RPARC) 0128 00354000 * GO TO CHECKID; /* GO CHECK NEXT ENTRY */ 00355000 B CHECKID 0129 00356000 * END; 0130 00357000 * 0130 00358000 * ELSE /* ID IS NOT ZERO */ 00359000 * DO; 0131 00360000 @RF00125 DS 0H 0132 00361000 * WTGID = WTGCID; /* MOVE ID TO BASIC SECTION */ 00362000 MVC WTGID(2,RWTG),WTGCID(RWTGC) 0132 00363000 * WTGTTR = WTGCTTR; /* MOVE TTR */ 00364000 MVC WTGTTR(3,RWTG),WTGCTTR(RWTGC) 0133 00365000 * END; 0134 00366000 * 0134 00367000 * R15 = ADDR (DXCCW1); /* PARM LIST ADDR Y02082*/ 00368000 LA R15,DXCCW1(,RCORE) 0135 00369000 * GEN (XCTL EPLOC=(RWTG),SF=(E,(15)),DCB=0); /* LOAD Y02082*/ 00370000 * 0136 00371000 * 0136 00372000 XCTL EPLOC=(RWTG),SF=(E,(15)),DCB=0 00373000 * END IGG0198L /* END OF MODULE */ 00374000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00375000 */*%INCLUDE SYSLIB (IECDSECT) * 00376000 */*%INCLUDE SYSLIB (IFGSDCB ) * 00377000 */*%INCLUDE SYSLIB (IFGJCICB) * 00378000 *; 0137 00379000 @EL00001 DS 0H 0137 00380000 @EF00001 DS 0H 0137 00381000 @ER00001 BR @14 0137 00382000 @DATA DS 0H 00383000 @DATD DSECT 00384000 DS 0F 00385000 @ZTEMPS DS C 00386000 @ZTEMPND EQU * 00387000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00388000 @TEMPS EQU @ZTEMPS 00389000 @L EQU @ZLEN 00390000 IGG0198L CSECT 00391000 DS 0F 00392000 @DATD DSECT 00393000 DS 0D 00394000 IGG0198L CSECT 00395000 DS 0F 00396000 @SIZDATD DC AL1(0) 00397000 DC AL3(@ENDDATD-@DATD) 00398000 @SIZ001 EQU @SIZDATD 00399000 DS 0D 00400000 @CC00381 DC C'IGG019DK' 00401000 @CC00382 DC C'IGG0198L' 00402000 @CC00387 DC C'IGG019BB' 00403000 @CC00390 DC C'IGG019DJ' 00404000 @CC00391 DC C'IGG019AQ' 00405000 @CC00398 DC C'8L' 00406000 @CC00399 DC C'0S' 00407000 @DATD DSECT 00408000 IGG0198L CSECT 00409000 ORG IGG0198L+736 START OF XCTL @ZA02890 00410000 XCTLTABL EQU * 00411000 IBMCLOSE DC X'0000' INDICATE NO NEXT LOAD 00412000 DC X'00000000' INDICATE NO NEXT LOAD 00413000 DC X'0000' END OF TABLE 00414000 DC XL4'0' PAD TO LEAVE 4 BYTES 00415000 DC C'019' SVC CODE 00416000 DC X'7E' DISPLACEMENT TO TABLE 00417000 @DATD DSECT 00418000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00419000 @ENDDATD EQU * 00420000 @DATEND EQU * 00421000 IGG0198L CSECT 00422000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00423000 @01 EQU 01 00424000 @02 EQU 02 00425000 @03 EQU 03 00426000 @04 EQU 04 00427000 @05 EQU 05 00428000 @06 EQU 06 00429000 @07 EQU 07 00430000 @08 EQU 08 00431000 @09 EQU 09 00432000 @10 EQU 10 00433000 @11 EQU 11 00434000 @12 EQU 12 00435000 @13 EQU 13 00436000 @14 EQU 14 00437000 @15 EQU 15 00438000 @0 EQU 00 00439000 @1 EQU 01 00440000 @2 EQU 02 00441000 @3 EQU 03 00442000 @4 EQU 04 00443000 @5 EQU 05 00444000 @6 EQU 06 00445000 @7 EQU 07 00446000 @8 EQU 08 00447000 @9 EQU 09 00448000 @A EQU 10 00449000 @B EQU 11 00450000 @C EQU 12 00451000 @D EQU 13 00452000 @E EQU 14 00453000 @F EQU 15 00454000 R0 EQU @00 00455000 R1 EQU @01 00456000 RDCB EQU @02 00457000 RUKEY EQU @02 00458000 RCORE EQU @03 00459000 RTIOT EQU @04 00460000 RMOD EQU @04 00461000 RPAR EQU @05 00462000 RWTG EQU @06 00463000 RPARC EQU @07 00464000 RWTGC EQU @08 00465000 RCICB EQU @09 00466000 XCTLREG EQU @09 00467000 RDCBSAVE EQU @09 00468000 R15 EQU @15 00469000 CVTPTR EQU 16 00470000 WTG EQU 0 00471000 WTGMDNAM EQU WTG 00472000 WTGID EQU WTGMDNAM+6 00473000 WTGTTR EQU WTG+14 00474000 WTGC EQU 0 00475000 WTGCID EQU WTGC 00476000 WTGCTTR EQU WTGC+2 00477000 WTGCWA EQU WTGC+5 00478000 PARCNTRY EQU 0 00479000 PARCOPT EQU PARCNTRY 00480000 PARCOPOP EQU PARCOPT 00481000 PARCDCB EQU PARCNTRY+1 00482000 XCTLNTRY EQU 0 00483000 XCTLID EQU XCTLNTRY 00484000 XCTLTTR EQU XCTLNTRY+2 00485000 CVTTCBDW EQU 0 00486000 CVTLINK EQU 8 00487000 TCBPTR EQU 4 00488000 FORCORE EQU 0 00489000 DXDSCB EQU FORCORE 00490000 DXDAADDR EQU FORCORE+312 00491000 DXDCB EQU FORCORE+320 00492000 DXCCW EQU FORCORE+368 00493000 DXCCW1 EQU DXCCW 00494000 DXVOLSR EQU FORCORE+500 00495000 DXVOLSR1 EQU DXVOLSR 00496000 DXVOLSR2 EQU DXVOLSR+6 00497000 DXVOLSR3 EQU DXVOLSR+12 00498000 DXUKEY EQU FORCORE+526 00499000 DXUCBSAV EQU FORCORE+564 00500000 DXUDCBAD EQU FORCORE+568 00501000 DXPDCBAD EQU FORCORE+572 00502000 DXATCOM1 EQU FORCORE+588 00503000 DXATGENS EQU DXATCOM1 00504000 DXATVGIV EQU DXATGENS 00505000 DXATOUTA EQU DXATCOM1+2 00506000 DXATDACC EQU DXATCOM1+3 00507000 DXATCOM2 EQU FORCORE+592 00508000 DXATEOV EQU DXATCOM2 00509000 DXATOPEN EQU DXATCOM2+1 00510000 DXATALL EQU DXATCOM2+2 00511000 DXATEXC1 EQU FORCORE+604 00512000 DXATEXB1 EQU DXATEXC1 00513000 DXATEXC2 EQU FORCORE+608 00514000 IFGSDCB EQU 0 00515000 DCBBUFCB EQU IFGSDCB+20 00516000 DCBIOBAD EQU IFGSDCB+28 00517000 @NM00017 EQU IFGSDCB+32 00518000 DCBHIARC EQU @NM00017 00519000 DCBBFTEK EQU DCBHIARC 00520000 DCBDDNAM EQU IFGSDCB+40 00521000 DCBMACRF EQU DCBDDNAM+2 00522000 DCBOFLGS EQU IFGSDCB+48 00523000 DCBREAD EQU IFGSDCB+49 00524000 DCBWRITE EQU DCBREAD 00525000 DCBGET EQU DCBWRITE 00526000 DCBPUT EQU DCBGET 00527000 DCBCHECK EQU IFGSDCB+53 00528000 DCBGERR EQU DCBCHECK 00529000 DCBCIND1 EQU IFGSDCB+60 00530000 DCBCIND2 EQU IFGSDCB+61 00531000 DCBIOBA EQU IFGSDCB+68 00532000 DCBCICB EQU DCBIOBA 00533000 DCBEOBAD EQU IFGSDCB+72 00534000 DCBLCCW EQU DCBEOBAD 00535000 DCBEOBR EQU DCBLCCW 00536000 @NM00018 EQU IFGSDCB+76 00537000 DCBEOBW EQU @NM00018 00538000 DCBRECAD EQU DCBEOBW 00539000 DCBDIRCT EQU IFGSDCB+80 00540000 @NM00019 EQU IFGSDCB+84 00541000 DCBCNTRL EQU @NM00019+1 00542000 DCBNOTE EQU DCBCNTRL 00543000 IFGJCICB EQU 0 00544000 CIDUMIOB EQU IFGJCICB 00545000 CIREGSAV EQU IFGJCICB+116 00546000 CIFLAGS EQU IFGJCICB+188 00547000 CIFLAG2 EQU CIFLAGS+1 00548000 CIFLAG3 EQU CIFLAGS+2 00549000 CIIOCNT EQU IFGJCICB+308 00550000 CISVCLST EQU IFGJCICB+336 00551000 CISYNADA EQU CISVCLST 00552000 CIBLDL EQU CISVCLST+4 00553000 CIBSP EQU CISVCLST+8 00554000 CIFEOV EQU CISVCLST+12 00555000 CISTOW EQU CISVCLST+16 00556000 BTABLE EQU 0 00557000 EPREAD EQU BTABLE 00558000 EPWRITE EQU BTABLE+4 00559000 EPCHECK EQU BTABLE+8 00560000 EPCNTRL EQU BTABLE+12 00561000 QTABLE EQU 0 00562000 EPGET EQU QTABLE 00563000 EPPUT EQU QTABLE+4 00564000 EPQCNTRL EQU QTABLE+8 00565000 TIOEDDNM EQU 0 00566000 TIOTPTR EQU 12 00567000 ATFLAGS EQU DXATEXC1 00568000 ATFOPEN EQU ATFLAGS 00569000 ATFQSAM EQU ATFOPEN 00570000 ATFBSAM EQU ATFOPEN 00571000 ATFSYNC EQU ATFOPEN 00572000 ATFCHECK EQU ATFOPEN 00573000 ATFCLOSE EQU ATFLAGS+1 00574000 DCBDEVTY EQU IFGSDCB+17 00575000 * START UNREFERENCED COMPONENTS 00576000 @NM00028 EQU ATFCLOSE 00577000 ATFCICBF EQU ATFCLOSE 00578000 ATFMDMSK EQU ATFCLOSE 00579000 @NM00027 EQU ATFOPEN 00580000 ATFABEND EQU ATFOPEN 00581000 ATFCICBG EQU ATFOPEN 00582000 EPPOINT EQU BTABLE+20 00583000 EPNOTE EQU BTABLE+16 00584000 CISTOWRC EQU CISTOW 00585000 CIFEOVRC EQU CIFEOV 00586000 CIBSPRC EQU CIBSP 00587000 CIBLDLRC EQU CIBLDL 00588000 CISYNRC EQU CISYNADA 00589000 CIWK2 EQU IFGJCICB+332 00590000 CIWK1 EQU IFGJCICB+328 00591000 CISAMWA EQU IFGJCICB+324 00592000 CIRECPTR EQU IFGJCICB+320 00593000 CIRAREA EQU IFGJCICB+316 00594000 CIBLKPTR EQU IFGJCICB+312 00595000 CISEGLEN EQU CIIOCNT 00596000 CILWAREA EQU IFGJCICB+304 00597000 CIFDBCK EQU IFGJCICB+284 00598000 CIRPLEXT EQU IFGJCICB+268 00599000 CIRPL EQU IFGJCICB+192 00600000 CIFLAG4 EQU CIFLAGS+3 00601000 @NM00026 EQU CIFLAG3 00602000 CIFPOINT EQU CIFLAG3 00603000 CIFERROR EQU CIFLAG3 00604000 CIFVSEOB EQU CIFLAG3 00605000 CIFVSRI EQU CIFLAG3 00606000 CIFRAGM EQU CIFLAG3 00607000 CIFCLOSE EQU CIFLAG3 00608000 CIFFSTP EQU CIFLAG3 00609000 @NM00025 EQU CIFLAG2 00610000 CIFMDEVT EQU CIFLAG2 00611000 CIFMDSOR EQU CIFLAG2 00612000 CIFLAG1 EQU CIFLAGS 00613000 CIREGS EQU CIREGSAV+12 00614000 CIREGFC EQU CIREGSAV+8 00615000 CIREGBC EQU CIREGSAV+4 00616000 @NM00024 EQU CIREGSAV 00617000 CISYNNAM EQU IFGJCICB+108 00618000 CIACBED EQU IFGJCICB+88 00619000 CIACBD EQU IFGJCICB+32 00620000 CIDCBPTR EQU CIDUMIOB+28 00621000 @NM00023 EQU CIDUMIOB+24 00622000 CIRESID EQU CIDUMIOB+20 00623000 @NM00022 EQU CIDUMIOB+16 00624000 CIECBPTR EQU CIDUMIOB+12 00625000 CIIOB EQU CIDUMIOB+8 00626000 @NM00021 EQU CIDUMIOB+5 00627000 CIECBCD EQU CIDUMIOB+4 00628000 CINXTIOB EQU CIDUMIOB 00629000 DCBEOB EQU IFGSDCB+92 00630000 DCBPRECL EQU IFGSDCB+90 00631000 @NM00020 EQU IFGSDCB+88 00632000 DCBPOINT EQU DCBNOTE 00633000 DCBEROPT EQU @NM00019 00634000 DCBLRECL EQU IFGSDCB+82 00635000 DCBQSWS EQU DCBDIRCT 00636000 DCBCCCW EQU DCBRECAD 00637000 DCBNCP EQU DCBEOBR 00638000 DCBOFFSW EQU IFGSDCB+67 00639000 DCBOFFSR EQU IFGSDCB+66 00640000 DCBWCPL EQU IFGSDCB+65 00641000 DCBWCPO EQU IFGSDCB+64 00642000 DCBBLKSI EQU IFGSDCB+62 00643000 DCBSYNAD EQU IFGSDCB+57 00644000 DCBIOBL EQU IFGSDCB+56 00645000 DCBPERR EQU DCBGERR 00646000 DCBOPTCD EQU IFGSDCB+52 00647000 DCBMACR EQU DCBPUT+1 00648000 DCBIFLG EQU DCBPUT 00649000 DCBDEBAD EQU DCBDDNAM+5 00650000 DCBIFLGS EQU DCBDDNAM+4 00651000 DCBTIOT EQU DCBDDNAM 00652000 DCBEXLST EQU IFGSDCB+37 00653000 DCBRECFM EQU IFGSDCB+36 00654000 DCBEODAD EQU IFGSDCB+33 00655000 DCBBFALN EQU DCBBFTEK 00656000 DCBSVCXL EQU DCBIOBAD 00657000 DCBDSORG EQU IFGSDCB+26 00658000 DCBBUFL EQU IFGSDCB+24 00659000 DCBBUFNO EQU DCBBUFCB 00660000 @NM00016 EQU IFGSDCB+16 00661000 @NM00015 EQU IFGSDCB 00662000 DSECTSIZ EQU FORCORE+612 00663000 DXATEXB2 EQU DXATEXC2 00664000 DXEXHASP EQU DXATEXB1 00665000 DXATCOM4 EQU FORCORE+600 00666000 DXATCOM3 EQU FORCORE+596 00667000 @NM00014 EQU DXATCOM2+3 00668000 @NM00013 EQU DXATALL 00669000 DXATSWAP EQU DXATALL 00670000 DXATFC EQU DXATALL 00671000 @NM00012 EQU DXATOPEN 00672000 DXATDFIN EQU DXATOPEN 00673000 DXATDSIN EQU DXATOPEN 00674000 DXATMODM EQU DXATOPEN 00675000 DXATMODE EQU DXATOPEN 00676000 DXATMODS EQU DXATOPEN 00677000 DXATIGN EQU DXATOPEN 00678000 DXATVCAT EQU DXATEOV 00679000 DXATDADM EQU DXATEOV 00680000 DXATREMT EQU DXATEOV 00681000 DXATDNEW EQU DXATEOV 00682000 DXATDFRE EQU DXATEOV 00683000 DXATDCHN EQU DXATEOV 00684000 DXATNVOL EQU DXATEOV 00685000 DXATCCAT EQU DXATEOV 00686000 DXATRDDB EQU DXATDACC 00687000 DXATEOF EQU DXATDACC 00688000 @NM00011 EQU DXATDACC 00689000 DXATSMF EQU DXATDACC 00690000 DXATUPDB EQU DXATDACC 00691000 DXATDRCT EQU DXATDACC 00692000 DXATTRAK EQU DXATDACC 00693000 DXATF1CE EQU DXATDACC 00694000 DXATNSL EQU DXATOUTA 00695000 DXATTTM2 EQU DXATOUTA 00696000 DXATTTM1 EQU DXATOUTA 00697000 DXATTRL2 EQU DXATOUTA 00698000 DXATTRL1 EQU DXATOUTA 00699000 DXATDATM EQU DXATOUTA 00700000 DXATHDTM EQU DXATOUTA 00701000 DXATVLHD EQU DXATOUTA 00702000 DXATCLOS EQU DXATCOM1+1 00703000 DXATSRET EQU DXATGENS 00704000 DXATVCIG EQU DXATVGIV 00705000 DXATVTMG EQU DXATVGIV 00706000 DXATVSMG EQU DXATVGIV 00707000 DXATJFCB EQU DXATGENS 00708000 DXATDISP EQU DXATGENS 00709000 DXATREFR EQU DXATGENS 00710000 DXATDMCT EQU DXATGENS 00711000 DXMSGADR EQU FORCORE+584 00712000 DXPRPARC EQU FORCORE+580 00713000 DXUDCBML EQU FORCORE+578 00714000 DXUDCBPL EQU FORCORE+576 00715000 DXPACBAD EQU DXPDCBAD+1 00716000 @NM00010 EQU DXPDCBAD 00717000 DXUACBAD EQU DXUDCBAD+1 00718000 @NM00009 EQU DXUDCBAD 00719000 DXUCBSVV EQU DXUCBSAV+1 00720000 @NM00008 EQU DXUCBSAV 00721000 DXUCBADR EQU FORCORE+560 00722000 DXTIOTAD EQU FORCORE+556 00723000 DXDEBXAD EQU FORCORE+552 00724000 DXDSAB EQU FORCORE+548 00725000 DXDSABAD EQU FORCORE+544 00726000 DXDSABQD EQU FORCORE+540 00727000 DXJSCBAD EQU FORCORE+536 00728000 DXTCBADR EQU FORCORE+532 00729000 DXASCBAD EQU FORCORE+528 00730000 DXEXTSW EQU FORCORE+527 00731000 DXWKEYSV EQU FORCORE+525 00732000 DXRESSW EQU FORCORE+524 00733000 DXUNITOF EQU FORCORE+522 00734000 DXNOUNIT EQU FORCORE+520 00735000 DXVOLSEQ EQU FORCORE+518 00736000 DXVOLMT3 EQU DXVOLSR3 00737000 DXVOLMT2 EQU DXVOLSR2 00738000 DXVOLMT1 EQU DXVOLSR1 00739000 DXWORK4 EQU FORCORE+496 00740000 DXWORK3 EQU FORCORE+492 00741000 DXWORK2 EQU FORCORE+488 00742000 DXWORK1 EQU FORCORE+484 00743000 DXWORK EQU FORCORE+480 00744000 DXXCTL EQU FORCORE+472 00745000 @NM00007 EQU FORCORE+464 00746000 DXCCW12 EQU DXCCW+88 00747000 DXCCW11 EQU DXCCW+80 00748000 DXCCW10 EQU DXCCW+72 00749000 DXCCW9 EQU DXCCW+64 00750000 DXCCW8 EQU DXCCW+56 00751000 DXCCW7 EQU DXCCW+48 00752000 DXCCW6 EQU DXCCW+40 00753000 DXCCW5 EQU DXCCW+32 00754000 DXCCW4 EQU DXCCW+24 00755000 DXCCW3 EQU DXCCW+16 00756000 DXCCW2 EQU DXCCW+8 00757000 DXDCBDEB EQU DXDCB+44 00758000 @NM00006 EQU DXDCB+24 00759000 DXDEBDCB EQU DXDCB+20 00760000 @NM00005 EQU DXDCB 00761000 DXDEB EQU DXDAADDR+4 00762000 @NM00004 EQU DXDAADDR 00763000 DXIOB EQU FORCORE+280 00764000 DXECB EQU FORCORE+276 00765000 DXJBF EQU FORCORE+100 00766000 DSCCORE EQU FORCORE+96 00767000 DXLBL EQU DXDSCB 00768000 @NM00003 EQU PARCOPT 00769000 @NM00002 EQU WTG+8 00770000 @NM00001 EQU WTGMDNAM 00771000 * END UNREFERENCED COMPONENTS 00772000 @RC00058 EQU @RC00047 00773000 @RT00117 EQU PROCESS 00774000 @RT00119 EQU TRANSFER 00775000 @RF00119 EQU NEXTNTRY 00776000 @EL01 EQU @EL00001 00777000 @ENDDATA EQU * 00778000 END IGG0198L,(C'PLS1819',0701,76329) 00779000