TITLE 'IEFSD102, DATA SET INTEGRITY ROUTINE *00001000 ' 00002000 IEFSD102 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IEFSD102 76.034' 0001 00008000 DROP @15 00009000 @PROLOG BALR @12,0 0001 00010000 @PSTART DS 0H 0001 00011000 USING @PSTART,@12 0001 00012000 * LCTPTR=R1; /* SAVE INPUT PARAMETER (PTR TO 00013000 * LCT) */ 00014000 LR LCTPTR,R1 0037 00015000 * IF(INCMSTS='1'B&LCTPARM1^=0) THEN 0038 00016000 L @05,LCTJCTAD(,LCTPTR) 0038 00017000 TM INCMSTS(@05),B'00000100' 0038 00018000 BNO @RF00038 0038 00019000 L @05,LCTPARM1(,LCTPTR) 0038 00020000 LTR @05,@05 0038 00021000 BZ @RF00038 0038 00022000 * DO; /* IF JOB IS FAILED, FREE D S ENQ 00023000 * LIST (IF IT EXISTS) */ 00024000 * R1=LCTPARM1; /* POINTER TO DSENQ LIST */ 00025000 LR R1,@05 0040 00026000 * R0=LCTPARM2; /* SUBPOOL AND SIZE */ 00027000 L R0,LCTPARM2(,LCTPTR) 0041 00028000 * GEN(FREEMAIN R,LV=(0),A=(1)); 0042 00029000 FREEMAIN R,LV=(0),A=(1) 00030000 * LCTPARM1=0; /* CLEAR POINTER TO DS ENQ LIST 00031000 * Y02669*/ 00032000 SLR @05,@05 0043 00033000 ST @05,LCTPARM1(,LCTPTR) 0043 00034000 * END; 0044 00035000 * IF LCTPARM1=0 /* CHECK WHETHER DS ENQ LIST 0045 00036000 * EXISTS */ 00037000 * THEN 0045 00038000 @RF00038 SLR @05,@05 0045 00039000 L @02,LCTPARM1(,LCTPTR) 0045 00040000 CR @02,@05 0045 00041000 BE @RT00045 0045 00042000 * GOTO EXIT; /* Y02669*/ 00043000 * 0046 00044000 * /*****************************************************************/ 00045000 * /* */ 00046000 * /* ENQ ON DATA SETS USED BY JOB */ 00047000 * /* */ 00048000 * /*****************************************************************/ 00049000 * 0047 00050000 * ENQPTR=LCTPARM1; /* POINT TO PREFIX OF DS ENQ LIST*/ 00051000 LR ENQPTR,@02 0047 00052000 * ENQECBPP=ADDR(ENQECB); /* SET POINTER TO ENQ ECB */ 00053000 LA @15,ENQECB(,ENQPTR) 0048 00054000 ST @15,ENQECBPP(,ENQPTR) 0048 00055000 * ENQECB=0; /* CLEAR ENQ ECB */ 00056000 ST @05,ENQECB(,ENQPTR) 0049 00057000 * R1=LCTPARM1+LENGTH(QLISTPRE); /* ISSUE ENQ */ 00058000 AH @02,@CH00037 0050 00059000 LR R1,@02 0050 00060000 * RESPECIFY 0051 00061000 * (R15) RESTRICTED; /* Y02652*/ 00062000 * GEN(ENQ ,MF=(E,(1))); 0052 00063000 ENQ ,MF=(E,(1)) 00064000 * IF R15=0 THEN 0053 00065000 LTR R15,R15 0053 00066000 BZ @RT00053 0053 00067000 * GOTO DONE; /* BRANCH IF ALL AVAILABLE */ 00068000 * RESPECIFY 0055 00069000 * (R15) UNRESTRICTED; /* Y02652*/ 00070000 */* SET UP TO ISSUE MESSAGES */ 00071000 * 0056 00072000 * R0=GETMAIN1; /* GET STORAGE FOR MESSAGES */ 00073000 L R0,GETMAIN1 0056 00074000 * GEN(GETMAIN R,LV=(0)); 0057 00075000 GETMAIN R,LV=(0) 00076000 * RESTRICT(MSGFROM,MSGTO); 0058 00077000 * RESTRICT(MSGAREA); 0059 00078000 * MSGAREA=R1; 0060 00079000 LR MSGAREA,R1 0060 00080000 * MSGTO=R1; 0061 00081000 * 0061 00082000 LR MSGTO,R1 0061 00083000 */* ISSUE MESSAGE IEF861I */ 00084000 * 0062 00085000 * MSGFROM=24+LCTIMSG; /* GET POINTER TO DISPLACEMENT OF 00086000 * MESSAGE IN IEFIB650 */ 00087000 L @08,LCTIMSG(,LCTPTR) 0062 00088000 LA MSGFROM,24(,@08) 0062 00089000 * MSGFROM=LCTIMSG+MSGFROM->MSGPTR;/* GET POINTER TO MESSAGE */ 00090000 AH @08,MSGPTR(,MSGFROM) 0063 00091000 LR MSGFROM,@08 0063 00092000 * MSGBUF(1:61)=MESSAGE; /* MOVE MESSAGE */ 00093000 MVC MSGBUF(61,MSGTO),MESSAGE(MSGFROM) 0064 00094000 * RESTRICT(BLNKCTR); 0065 00095000 * MSGTO=61+MSGTO; /* SET UP TO MOVE JOBNAME TO MSG */ 00096000 LA MSGTO,61(,MSGTO) 0066 00097000 * MSGBUF(1:8)=JCTJNAME; 0067 00098000 L @05,LCTJCTAD(,LCTPTR) 0067 00099000 MVC MSGBUF(8,MSGTO),JCTJNAME(@05) 0067 00100000 * MSGTO=8-1+MSGTO; 0068 00101000 * 0068 00102000 LA MSGTO,7(,MSGTO) 0068 00103000 */* COUNT NUMBER OF BLANKS IN JOBNAME */ 00104000 * 0069 00105000 * BLNKCTR=0; 0069 00106000 SLR BLNKCTR,BLNKCTR 0069 00107000 *BLNKLOOP: 0070 00108000 * IF MSGBUF(1)=' ' THEN 0070 00109000 BLNKLOOP CLI MSGBUF(MSGTO),C' ' 0070 00110000 BNE @RF00070 0070 00111000 * DO; 0071 00112000 * BLNKCTR=BLNKCTR+1; 0072 00113000 LA BLNKCTR,1(,BLNKCTR) 0072 00114000 * MSGTO=MSGTO-1; 0073 00115000 BCTR MSGTO,0 0073 00116000 * GOTO BLNKLOOP; /* GO CHECK FOR ANOTHER BLANK */ 00117000 B BLNKLOOP 0074 00118000 * END; 0075 00119000 * 0075 00120000 */* MOVE ROUTING AND DESC CODES IMMEDIATELY AFTER JOBNAME */ 00121000 * 0076 00122000 * MSGTO=1+MSGTO; /* POINT TO FIRST BYTE AFTER TEXT*/ 00123000 @RF00070 LA MSGTO,1(,MSGTO) 0076 00124000 * MSGFROM=MSGFROM+61+8; /* POINT TO RTING AND DESC CODES */ 00125000 LA MSGFROM,69(,MSGFROM) 0077 00126000 * MSGBUF(1:4)=MESSAGE; 0078 00127000 MVC MSGBUF(4,MSGTO),MESSAGE(MSGFROM) 0078 00128000 * MSGTO=MSGAREA; /* MOVE RTING AND DESC CODES */ 00129000 LR MSGTO,MSGAREA 0079 00130000 * MSGLEN=MSGLEN-BLNKCTR; /* ADJUST MESSAGE LENGTH */ 00131000 LH @05,MSGLEN(,MSGTO) 0080 00132000 SLR @05,BLNKCTR 0080 00133000 STH @05,MSGLEN(,MSGTO) 0080 00134000 * RELEASE(BLNKCTR); 0081 00135000 * GEN(WTO MF=(E,(MSGAREA))); /* ISSUE MSG IEF861I */ 00136000 * 0082 00137000 WTO MF=(E,(MSGAREA)) 00138000 * /*****************************************************************/ 00139000 * /* */ 00140000 * /* SCAN THE ENQ PARAMETER LIST TO CHECK RETURN CODES AND BUILD */ 00141000 * /* MESSAGE IEF863I FOR THE DS NAMES WHICH REQUIRE IT */ 00142000 * /* */ 00143000 * /*****************************************************************/ 00144000 * 0083 00145000 * ENQINDEX=LCTPARM1+LENGTH(QLISTPRE); 0083 00146000 L @08,LCTPARM1(,LCTPTR) 0083 00147000 LA @08,24(,@08) 0083 00148000 LR ENQINDEX,@08 0083 00149000 *MSGLOOP: 0084 00150000 * MSGFROM=28+LCTIMSG; /* GET POINTER TO DISPLACEMENT IN 00151000 * MESSAGE MODULE */ 00152000 MSGLOOP L @08,LCTIMSG(,LCTPTR) 0084 00153000 LA MSGFROM,28(,@08) 0084 00154000 * MSGFROM=MSGFROM->MSGPTR+LCTIMSG;/* GET POINTER TO MESSAGE */ 00155000 AH @08,MSGPTR(,MSGFROM) 0085 00156000 LR MSGFROM,@08 0085 00157000 * MSGTO=MSGAREA; /* GET POINTER TO MESSAGE BUFFER */ 00158000 LR MSGTO,MSGAREA 0086 00159000 * IF QRETCDE=4 THEN 0087 00160000 CLI QRETCDE(ENQINDEX),4 0087 00161000 BNE @RF00087 0087 00162000 * DO; 0088 00163000 * MSGBUF(1:16)=MESSAGE; /* MOVE FIRST PART OF MESSAGE */ 00164000 MVC MSGBUF(16,MSGTO),MESSAGE(MSGFROM) 0089 00165000 * MSGTO=MSGTO+16; /* SET UP TO MOVE DSNAME */ 00166000 LA MSGTO,16(,MSGTO) 0090 00167000 * MSGBUF(1:QMINLGTH)=DSNAME; 0091 00168000 SLR @08,@08 0091 00169000 IC @08,QMINLGTH(,ENQINDEX) 0091 00170000 LR @05,@08 0091 00171000 BCTR @05,0 0091 00172000 L @02,QMINOR(,ENQINDEX) 0091 00173000 EX @05,@SM00726 0091 00174000 * MSGTO=QMINLGTH+MSGTO; 0092 00175000 ALR MSGTO,@08 0092 00176000 * MSGFROM=74+MSGFROM; /* POINT TO ROUTING AND 0093 00177000 * DESCRIPTOR CODES */ 00178000 LA MSGFROM,74(,MSGFROM) 0093 00179000 * MSGBUF(1:4)=MESSAGE; /* MOVE RTING AND DESC CODES */ 00180000 MVC MSGBUF(4,MSGTO),MESSAGE(MSGFROM) 0094 00181000 * MSGTO=MSGAREA; 0095 00182000 LR MSGTO,MSGAREA 0095 00183000 * MSGLEN=MSGLEN+QMINLGTH-58; /* ADJUST MESSAGE LENGTH */ 00184000 AH @08,MSGLEN(,MSGTO) 0096 00185000 SH @08,@CH00704 0096 00186000 STH @08,MSGLEN(,MSGTO) 0096 00187000 * GOTO WTO8; /* GO ISSUE MESSAGE */ 00188000 B WTO8 0097 00189000 * END; 0098 00190000 * IF QRETCDE=12 THEN 0099 00191000 @RF00087 CLI QRETCDE(ENQINDEX),12 0099 00192000 BNE @RF00099 0099 00193000 * DO; 0100 00194000 * LCTPRMSW='1'B; 0101 00195000 OI LCTPRMSW(LCTPTR),B'00000001' 0101 00196000 * MSGBUF(1:78)=MESSAGE; /* MOVE MESSAGE (INCLUDING PERM. 00197000 * UNAV.) */ 00198000 MVC MSGBUF(78,MSGTO),MESSAGE(MSGFROM) 0102 00199000 * MSGTO=MSGTO+16; 0103 00200000 LA MSGTO,16(,MSGTO) 0103 00201000 * MSGBUF(1:QMINLGTH)=DSNAME; /* INSERT DATA SET NAME IN 0104 00202000 * MESSAGE */ 00203000 SLR @08,@08 0104 00204000 IC @08,QMINLGTH(,ENQINDEX) 0104 00205000 BCTR @08,0 0104 00206000 L @05,QMINOR(,ENQINDEX) 0104 00207000 EX @08,@SM00729 0104 00208000 *WTO8: 0105 00209000 * GEN(WTO MF=(E,(MSGAREA))); /* ISSUE MESSAGE IEF863I */ 00210000 WTO8 WTO MF=(E,(MSGAREA)) 00211000 * END; 0106 00212000 * HCUET='001'B; /* SET FOR POSSIBLE DEQ */ 00213000 @RF00099 NI HCUET(ENQINDEX),B'11111001' 0107 00214000 OI HCUET(ENQINDEX),B'00000001' 0107 00215000 * QRETCDE='00'X; /* CLEAR RETURN CODE */ 00216000 MVI QRETCDE(ENQINDEX),X'00' 0108 00217000 * IF QLSTEND^='FF'X THEN 0109 00218000 CLI QLSTEND(ENQINDEX),255 0109 00219000 BE @RF00109 0109 00220000 * DO; 0110 00221000 * ENQINDEX=LENGTH(QLIST)+ENQINDEX;/* GET NEXT ENTRY IN LIST IF 00222000 * NOT LAST */ 00223000 LA ENQINDEX,12(,ENQINDEX) 0111 00224000 * GOTO MSGLOOP; 0112 00225000 B MSGLOOP 0112 00226000 * END; 0113 00227000 * 0113 00228000 */* END OF SCAN OF RETURN CODES FROM ENQ */ 00229000 */* CHECK WHETHER JOB CAN WAIT FOR DATA SETS. */ 00230000 * 0114 00231000 * IF LCTENQU='1'B THEN 0114 00232000 * 0114 00233000 @RF00109 TM LCTENQU(LCTPTR),B'00000001' 0114 00234000 BNO @RF00114 0114 00235000 * /***************************************************************/ 00236000 * /* */ 00237000 * /* IF LCTENQU INDICATES THE INITIATOR CANNOT WAIT FOR DATA SETS*/ 00238000 * /* AND NO RETURN CODE IS CURRENTLY SET IN THE IEL, SET THE */ 00239000 * /* CORRESPONDING RETURN CODE AND RETURN CODE ORIGIN IN THE IEL.*/ 00240000 * /* Y02668*/ 00241000 * /* */ 00242000 * /***************************************************************/ 00243000 * 0115 00244000 * DO; 0115 00245000 * IF IELRTNCD='00'X THEN 0116 00246000 L @08,LCTENTR(,LCTPTR) 0116 00247000 L @08,IELEXIT(,@08) 0116 00248000 CLI IELRTNCD(@08),0 0116 00249000 BNE @RF00116 0116 00250000 * DO; /* Y02668*/ 00251000 * IELRTNCD='0C'X; /* INDICATE JOB CANCELED BECAUSE 00252000 * JOB COULD NOT WAIT FOR DATA 0118 00253000 * SETS Y02668*/ 00254000 MVI IELRTNCD(@08),X'0C' 0118 00255000 * IELRCXT='03'X; /* SET ORIGIN OF 'INITIATOR' 0119 00256000 * Y02668*/ 00257000 MVI IELRCXT(@08),X'03' 0119 00258000 * END; /* Y02668*/ 00259000 *CANCEL2: 0121 00260000 * 0121 00261000 */* DEQ FROM DS ENQ LIST */ 00262000 * 0121 00263000 * R1=LCTPARM1+LENGTH(QLISTPRE); 0121 00264000 @RF00116 DS 0H 0121 00265000 CANCEL2 LA R1,24 0121 00266000 AL R1,LCTPARM1(,LCTPTR) 0121 00267000 * GEN(DEQ ,MF=(E,(1))); 0122 00268000 DEQ ,MF=(E,(1)) 00269000 *CANCEL3: 0123 00270000 * INCMSTS='1'B; /* SET JOB FAILED INDICATOR */ 00271000 CANCEL3 L @08,LCTJCTAD(,LCTPTR) 0123 00272000 OI INCMSTS(@08),B'00000100' 0123 00273000 *FAILED: 0124 00274000 * JCTDETDA=0; /* CLEAR TTR OF DS ENQ LIST (SO 00275000 * NO ATTEMPT WILL BE MADE TO DEQ 00276000 * FROM THE DS NAMES) */ 00277000 FAILED L @08,LCTJCTAD(,LCTPTR) 0124 00278000 SLR @05,@05 0124 00279000 STCM @05,7,JCTDETDA(@08) 0124 00280000 *DONE: /* FREE DS ENQ LIST */ 00281000 * R1=LCTPARM1; 0125 00282000 DONE L R1,LCTPARM1(,LCTPTR) 0125 00283000 * R0=LCTPARM2; 0126 00284000 L R0,LCTPARM2(,LCTPTR) 0126 00285000 * GEN(FREEMAIN R,LV=(0),A=(1)); 0127 00286000 FREEMAIN R,LV=(0),A=(1) 00287000 * GOTO EXIT; /* GO EXIT Y02669*/ 00288000 B EXIT 0128 00289000 * END; 0129 00290000 * IF LCTPRMSW='1'B THEN 0130 00291000 @RF00114 TM LCTPRMSW(LCTPTR),B'00000001' 0130 00292000 BNO @RF00130 0130 00293000 * DO; 0131 00294000 * 0131 00295000 * /*************************************************************/ 00296000 * /* */ 00297000 * /* CANNOT WAIT FOR DATA SETS. ISSUE MESSAGE IEF100I. */ 00298000 * /* */ 00299000 * /*************************************************************/ 00300000 * 0132 00301000 * LCTPRMSW='0'B; 0132 00302000 NI LCTPRMSW(LCTPTR),B'11111110' 0132 00303000 * R1=LCTPARM1+LENGTH(QLISTPRE); 0133 00304000 LA R1,24 0133 00305000 AL R1,LCTPARM1(,LCTPTR) 0133 00306000 * GEN(DEQ ,MF=(E,(1))); 0134 00307000 * 0134 00308000 DEQ ,MF=(E,(1)) 00309000 */* SET UP MESSAGE IEF100I */ 00310000 * 0135 00311000 * MSGTO=MSGAREA; 0135 00312000 LR MSGTO,MSGAREA 0135 00313000 * MSGFROM=LCTIMSG+16; /* GET POINTER TO MSG IN IEFIB650*/ 00314000 LA @08,16 0136 00315000 L @05,LCTIMSG(,LCTPTR) 0136 00316000 LR MSGFROM,@05 0136 00317000 ALR MSGFROM,@08 0136 00318000 * MSGFROM=LCTIMSG+MSGFROM->MSGPTR; 0137 00319000 AH @05,MSGPTR(,MSGFROM) 0137 00320000 LR MSGFROM,@05 0137 00321000 * MSGBUF(1:47)=MESSAGE; /* MOVE MESSAGE */ 00322000 MVC MSGBUF(47,MSGTO),MESSAGE(MSGFROM) 0138 00323000 * MSGTO=MSGTO+16; 0139 00324000 ALR MSGTO,@08 0139 00325000 * MSGBUF(1:8)=JCTJNAME; /* INSERT JOBNAME IN MESSAGE */ 00326000 L @08,LCTJCTAD(,LCTPTR) 0140 00327000 MVC MSGBUF(8,MSGTO),JCTJNAME(@08) 0140 00328000 * GEN(WTO MF=(E,(MSGAREA))); /* ISSUE MSG IEF100I */ 00329000 WTO MF=(E,(MSGAREA)) 00330000 */* FREE MESSAGE BUFFER */ 00331000 * 0142 00332000 * R0=GETMAIN1; 0142 00333000 L R0,GETMAIN1 0142 00334000 * GEN(FREEMAIN R,LV=(0),A=(MSGAREA)); 0143 00335000 FREEMAIN R,LV=(0),A=(MSGAREA) 00336000 * GOTO CANCEL3; /* GO FAIL JOB */ 00337000 B CANCEL3 0144 00338000 * END; 0145 00339000 * 0145 00340000 * /*****************************************************************/ 00341000 * /* */ 00342000 * /* OTHERWISE ISSUE MESSAGE IEF099I AND WAIT FOR DATA SETS */ 00343000 * /* */ 00344000 * /*****************************************************************/ 00345000 * 0146 00346000 * MSGTO=MSGAREA; 0146 00347000 @RF00130 LR MSGTO,MSGAREA 0146 00348000 * MSGFROM=LCTIMSG+12; /* GET POINTER TO MESSAGE IN 0147 00349000 * IEFIB650 */ 00350000 L @08,LCTIMSG(,LCTPTR) 0147 00351000 LA MSGFROM,12(,@08) 0147 00352000 * MSGFROM=LCTIMSG+MSGFROM->MSGPTR; 0148 00353000 AH @08,MSGPTR(,MSGFROM) 0148 00354000 LR MSGFROM,@08 0148 00355000 * MSGBUF(1:50)=MESSAGE; /* MOVE MESSAGE TO BUFFER */ 00356000 MVC MSGBUF(50,MSGTO),MESSAGE(MSGFROM) 0149 00357000 * MSGTO=MSGTO+16; 0150 00358000 LA MSGTO,16(,MSGTO) 0150 00359000 * MSGBUF(1:8)=JCTJNAME; /* INSERT JOBNAME IN MESSAGE */ 00360000 L @08,LCTJCTAD(,LCTPTR) 0151 00361000 MVC MSGBUF(8,MSGTO),JCTJNAME(@08) 0151 00362000 * RFY 0152 00363000 * (R5) RSTD; 0152 00364000 * GEN(WTO MF=(E,(MSGAREA))); /* ISSUE MSSSAGE IEF099I */ 00365000 WTO MF=(E,(MSGAREA)) 00366000 * R5=R1; /* SAVE MSG ID FOR DOM @ZA05168*/ 00367000 LR R5,R1 0154 00368000 * R0=GETMAIN1; 0155 00369000 L R0,GETMAIN1 0155 00370000 * GEN(FREEMAIN R,LV=(0),A=(MSGAREA)); 0156 00371000 * 0156 00372000 FREEMAIN R,LV=(0),A=(MSGAREA) 00373000 */* WAIT FOR DATA SETS. */ 00374000 */* SET UP LIST OF ENQ AND CANCEL ECB'S. */ 00375000 * 0157 00376000 * ENQPTR=LCTPARM1; 0157 00377000 L ENQPTR,LCTPARM1(,LCTPTR) 0157 00378000 * CANECBP=ADDR(CHCECB); 0158 00379000 L @08,LCTQDRTY(,LCTPTR) 0158 00380000 LA @02,CHCECB(,@08) 0158 00381000 ST @02,CANECBP(,ENQPTR) 0158 00382000 * ENQECBP=ADDR(ENQECB); 0159 00383000 LA @02,ENQECB(,ENQPTR) 0159 00384000 ST @02,ENQECBP(,ENQPTR) 0159 00385000 * QECBBIT='1'B; 0160 00386000 OI QECBBIT(ENQPTR),B'10000000' 0160 00387000 * CHCL='1'B; /* SET CSCB CANCELABLE, IN CASE 00388000 * NOT ALREADY CANCELABLE Y02652*/ 00389000 OI CHCL(@08),B'00001000' 0161 00390000 *EWAIT: 0162 00391000 * GEN(WAIT ECBLIST=ECBLIS2(ENQPTR),LONG=YES);/* ISSUE LONG WAIT SO 00392000 * MEMORY CAN BE SWAPPED OUT 0162 00393000 * Y02669*/ 00394000 EWAIT WAIT ECBLIST=ECBLIS2(ENQPTR),LONG=YES 00395000 * GEN(DOM MSG=(R5)); /* DOM MSG IEF099I @ZA05168*/ 00396000 DOM MSG=(R5) 00397000 * RFY 0164 00398000 * (R5) UNRSTD; 0164 00399000 * RESTRICT(ECBPTR); 0165 00400000 * ECBPTR=ADDR(CHCECB); 0166 00401000 L ECBPTR,LCTQDRTY(,LCTPTR) 0166 00402000 LA ECBPTR,CHCECB(,ECBPTR) 0166 00403000 * IF ECBPTR->POSTED='1'B THEN 0167 00404000 TM POSTED(ECBPTR),B'01000000' 0167 00405000 BO @RT00167 0167 00406000 * GOTO CANCEL2; /* IF CANCEL ECB HAS BEEN POSTED */ 00407000 * ECBPTR=ADDR(ENQECB); 0169 00408000 LA ECBPTR,ENQECB(,ENQPTR) 0169 00409000 * IF ECBPTR->POSTED='1'B THEN 0170 00410000 TM POSTED(ECBPTR),B'01000000' 0170 00411000 BO @RT00170 0170 00412000 * GOTO DONE; /* ENQ ECB POSTED */ 00413000 * ELSE 0172 00414000 * GOTO EWAIT; /* NEITHER ECB POSTED */ 00415000 B EWAIT 0172 00416000 *EXIT: 0173 00417000 * IF LCTCANF='1'B THEN 0173 00418000 EXIT TM LCTCANF(LCTPTR),B'00001000' 0173 00419000 BNO @RF00173 0173 00420000 * CHCL='0'B; /* SET CSCB NON-CANCELABLE IF 0174 00421000 * INDICATED BY LCT (ALL TASKS 0174 00422000 * ARE MADE CANCELABLE IF THEY 0174 00423000 * WAIT FOR DATA SETS) Y02652*/ 00424000 L @05,LCTQDRTY(,LCTPTR) 0174 00425000 NI CHCL(@05),B'11110111' 0174 00426000 * R1=LCTPTR; 0175 00427000 @RF00173 LR R1,LCTPTR 0175 00428000 * RESPECIFY 0176 00429000 * (R15) RSTD; /* Y02652*/ 00430000 * R15=ADDR(IEFSD062); /* Y02652*/ 00431000 L R15,@CV00688 0177 00432000 * GEN(BR R15); /* EXIT TO IEFSD162 Y02652*/ 00433000 BR R15 00434000 * END 0179 00435000 * 0179 00436000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00437000 */*%INCLUDE SYSLIB (IEFALLCT) */ 00438000 */*%INCLUDE SYSLIB (IEECHAIN) */ 00439000 */*%INCLUDE SYSLIB (IEZIELDF) */ 00440000 */*%INCLUDE SYSLIB (IEZIEL ) */ 00441000 */*%INCLUDE SYSLIB (IEFAJCTB) */ 00442000 */*%INCLUDE SYSLIB (IEFASCTB) */ 00443000 * 0179 00444000 * ; 0179 00445000 @EL00001 DS 0H 0179 00446000 @EF00001 DS 0H 0179 00447000 @ER00001 BR @14 0179 00448000 @DATA DS 0H 00449000 @CH00037 DC H'24' 00450000 @CH00704 DC H'58' 00451000 @SM00726 MVC MSGBUF(0,MSGTO),DSNAME(@02) 00452000 @SM00729 MVC MSGBUF(0,MSGTO),DSNAME(@05) 00453000 @DATD DSECT 00454000 DS 0F 00455000 @ZTEMPS DS C 00456000 @ZTEMPND EQU * 00457000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00458000 @TEMPS EQU @ZTEMPS 00459000 @L EQU @ZLEN 00460000 IEFSD102 CSECT 00461000 DS 0F 00462000 @DATD DSECT 00463000 DS 0D 00464000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00465000 @ENDDATD EQU * 00466000 @DATEND EQU * 00467000 IEFSD102 CSECT 00468000 DS 0F 00469000 @SIZDATD DC AL1(0) 00470000 DC AL3(@ENDDATD-@DATD) 00471000 @SIZ001 EQU @SIZDATD 00472000 @CV00688 DC V(IEFSD062) 00473000 DS 0D 00474000 GETMAIN1 DS FL4 00475000 ORG GETMAIN1 00476000 @NM00140 DC AL1(253) 00477000 @NM00141 DC AL3(80) 00478000 ORG GETMAIN1+4 00479000 PATCH DC 50X'00' 00480000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00481000 @01 EQU 01 00482000 @02 EQU 02 00483000 @03 EQU 03 00484000 @04 EQU 04 00485000 @05 EQU 05 00486000 @06 EQU 06 00487000 @07 EQU 07 00488000 @08 EQU 08 00489000 @09 EQU 09 00490000 @10 EQU 10 00491000 @11 EQU 11 00492000 @12 EQU 12 00493000 @13 EQU 13 00494000 @14 EQU 14 00495000 @15 EQU 15 00496000 @0 EQU 00 00497000 @1 EQU 01 00498000 @2 EQU 02 00499000 @3 EQU 03 00500000 @4 EQU 04 00501000 @5 EQU 05 00502000 @6 EQU 06 00503000 @7 EQU 07 00504000 @8 EQU 08 00505000 @9 EQU 09 00506000 @A EQU 10 00507000 @B EQU 11 00508000 @C EQU 12 00509000 @D EQU 13 00510000 @E EQU 14 00511000 @F EQU 15 00512000 R0 EQU @00 00513000 R1 EQU @01 00514000 ENQPTR EQU @03 00515000 ENQINDEX EQU @03 00516000 R5 EQU @05 00517000 LCTPTR EQU @04 00518000 R15 EQU @15 00519000 MSGFROM EQU @06 00520000 MSGTO EQU @07 00521000 BLNKCTR EQU @08 00522000 MSGAREA EQU @09 00523000 ECBPTR EQU @08 00524000 LCT EQU 0 00525000 LCTQDRTY EQU LCT 00526000 LCTSRTAD EQU LCT+4 00527000 LCTTCBAD EQU LCT+8 00528000 LCTQENTY EQU LCT+12 00529000 @NM00007 EQU LCTQENTY 00530000 LCTJCTAD EQU LCT+16 00531000 LCTSCTAD EQU LCT+20 00532000 LCTSCTDA EQU LCT+24 00533000 LCTWORKA EQU LCTSCTDA 00534000 LCTPSPAR EQU LCT+28 00535000 LCTERROR EQU LCT+32 00536000 LCTERR EQU LCTERROR 00537000 LCTPARM1 EQU LCT+36 00538000 LCTPARM2 EQU LCT+40 00539000 LCTCMCBA EQU LCT+52 00540000 LCTNSPAD EQU LCT+56 00541000 LCTJFCBH EQU LCT+57 00542000 LCTSMBAD EQU LCT+60 00543000 LCTCOMCD EQU LCT+68 00544000 LCTRTRN EQU LCT+72 00545000 LCTSREG EQU LCTRTRN 00546000 @NM00034 EQU LCT+76 00547000 LCTINTSW EQU @NM00034 00548000 LCTTMWRK EQU LCT+80 00549000 LCTTJTU4 EQU LCTTMWRK 00550000 LCTTSTL4 EQU LCTTMWRK+4 00551000 LCTTSTR4 EQU LCTTMWRK+8 00552000 LCTSMF EQU LCTTSTR4 00553000 LCTTMBYT EQU LCTSMF 00554000 LCTTSTU4 EQU LCTTMWRK+12 00555000 LCTJOBLB EQU LCT+96 00556000 LCTATLST EQU LCT+100 00557000 LCTECBAD EQU LCT+328 00558000 ECBLIST EQU LCTECBAD 00559000 LCTIDENT EQU LCT+332 00560000 LCTSPIL EQU LCTIDENT+4 00561000 LCTALCFG EQU LCTSPIL+2 00562000 LCTTSRB4 EQU LCT+348 00563000 LCTENTR EQU LCT+352 00564000 LCTEXIT EQU LCTENTR 00565000 LCTOPSW1 EQU LCTEXIT 00566000 LCTCANF EQU LCTOPSW1 00567000 @NM00060 EQU LCT+356 00568000 LCTOPSW2 EQU @NM00060 00569000 LCTENQU EQU LCTOPSW2 00570000 LCTJSCB EQU LCT+360 00571000 LCTOPSW3 EQU LCTJSCB 00572000 LCTJCTDA EQU LCT+408 00573000 LCTSTATA EQU LCT+416 00574000 LCTSTATB EQU LCT+417 00575000 LCTRFB EQU LCT+418 00576000 @NM00074 EQU LCT+420 00577000 LCTINTS2 EQU @NM00074+1 00578000 LCTIMSG EQU LCT+432 00579000 CHAIN EQU 0 00580000 CHFLG EQU CHAIN+4 00581000 CHSTS EQU CHFLG+2 00582000 CHACT EQU CHFLG+3 00583000 CHCL EQU CHACT 00584000 CHKEY EQU CHAIN+8 00585000 CHPKE EQU CHAIN+28 00586000 CHTJID EQU CHAIN+30 00587000 CHPROCSN EQU CHAIN+32 00588000 CHACT1 EQU CHPROCSN+3 00589000 CHASM EQU CHAIN+40 00590000 CHCIBP EQU CHASM+4 00591000 CHRGNSZ EQU CHASM+8 00592000 CHCECB EQU CHASM+20 00593000 CHSTEP EQU CHASM+24 00594000 CHSWT EQU CHSTEP 00595000 CHSHORT EQU CHASM+32 00596000 IEL EQU 0 00597000 IELLIST EQU IEL 00598000 IELOPLST EQU IELLIST+8 00599000 IELEXIT EQU IELLIST+20 00600000 IELLAST EQU IELEXIT 00601000 IELOPTS EQU 0 00602000 IELOPSW1 EQU IELOPTS+2 00603000 IELOPSW2 EQU IELOPTS+3 00604000 IELOPSW3 EQU IELOPTS+5 00605000 IELEXITS EQU 0 00606000 IELEXHDR EQU IELEXITS 00607000 IELRTNCD EQU IELEXHDR+2 00608000 IELRCXT EQU IELEXHDR+3 00609000 RTNEXT EQU IELEXITS+8 00610000 RTNEXNM EQU RTNEXT+2 00611000 RTNEXAD EQU RTNEXNM+2 00612000 INJMJCT EQU 0 00613000 JCTJSTAT EQU INJMJCT+5 00614000 INCMSTS EQU JCTJSTAT 00615000 INDMCTLG EQU JCTJSTAT 00616000 JCTJBYTE EQU INJMJCT+7 00617000 JCTJMGLV EQU JCTJBYTE 00618000 JCTJNAME EQU INJMJCT+8 00619000 JCTCCODE EQU INJMJCT+54 00620000 JCTRSW1 EQU INJMJCT+86 00621000 JCTRSW2 EQU INJMJCT+87 00622000 JCTDETDA EQU INJMJCT+88 00623000 JCTJSB EQU INJMJCT+111 00624000 JCTSTAT2 EQU INJMJCT+116 00625000 INSMSCT EQU 0 00626000 SCTSSTAT EQU INSMSCT+4 00627000 SCTSTYPE EQU INSMSCT+67 00628000 SCTSDPTY EQU INSMSCT+94 00629000 SCTSTAT2 EQU INSMSCT+104 00630000 SCTBCT EQU SCTSTAT2 00631000 SCTCDENT EQU INSMSCT+118 00632000 SCTSTEND EQU INSMSCT+172 00633000 QLISTPRE EQU 0 00634000 ECBLIS2 EQU QLISTPRE+8 00635000 ENQECBP EQU ECBLIS2 00636000 CANECBP EQU ECBLIS2+4 00637000 QECBBIT EQU CANECBP 00638000 ENQECB EQU QLISTPRE+16 00639000 ENQECBPP EQU QLISTPRE+20 00640000 QLIST EQU 0 00641000 QLSTEND EQU QLIST 00642000 QMINLGTH EQU QLIST+1 00643000 QATT EQU QLIST+2 00644000 HCUET EQU QATT 00645000 QRETCDE EQU QLIST+3 00646000 QMINOR EQU QLIST+8 00647000 MSGBUF EQU 0 00648000 MSGLEN EQU MSGBUF 00649000 MESSAGE EQU 0 00650000 MSGLST EQU 0 00651000 MSGPTR EQU MSGLST+2 00652000 DSNAME EQU 0 00653000 ECB EQU 0 00654000 @NM00138 EQU ECB 00655000 POSTED EQU @NM00138 00656000 CHAINS01 EQU CHASM 00657000 CHTYPE EQU CHAINS01+124 00658000 CHTRSTAT EQU CHAINS01+125 00659000 CHCSYSO EQU CHAINS01+134 00660000 IEFAACTB EQU INJMJCT+176 00661000 @NM00133 EQU SCTCDENT+42 00662000 SCTABCND EQU @NM00133 00663000 LCTPARMB EQU LCTPARM1 00664000 LCTPRMSW EQU LCTPARMB 00665000 INDMDSNT EQU INSMSCT+176 00666000 * START UNREFERENCED COMPONENTS 00667000 @NM00137 EQU LCTPARMB 00668000 @NM00135 EQU @NM00133+1 00669000 SCTONLY EQU SCTABCND 00670000 SCTEVEN EQU SCTABCND 00671000 SCTABEND EQU SCTABCND 00672000 SCTONLYC EQU SCTABCND 00673000 SCTABCAN EQU SCTABCND 00674000 @NM00134 EQU SCTABCND 00675000 ACTACCNT EQU IEFAACTB+32 00676000 ACTJNFLD EQU IEFAACTB+31 00677000 ACTJTIME EQU IEFAACTB+28 00678000 ACTPRGNM EQU IEFAACTB+8 00679000 @NM00111 EQU IEFAACTB+7 00680000 ACTNEXT EQU IEFAACTB+4 00681000 ACTIDENT EQU IEFAACTB+3 00682000 ACTDSKAD EQU IEFAACTB 00683000 CHLAST EQU CHAINS01+136 00684000 CHSPA EQU CHAINS01+135 00685000 CHUSERID EQU CHCSYSO 00686000 CHJB EQU CHCSYSO 00687000 CHDUMP EQU CHCSYSO 00688000 CHQUE EQU CHCSYSO 00689000 CHHOLD EQU CHCSYSO 00690000 CHOUT EQU CHCSYSO 00691000 CHINN EQU CHCSYSO 00692000 CHALL EQU CHCSYSO 00693000 CHINC EQU CHAINS01+132 00694000 CHPEND EQU CHAINS01+128 00695000 CHARID EQU CHAINS01+127 00696000 CHCNID EQU CHAINS01+126 00697000 @NM00080 EQU CHTRSTAT 00698000 CHTSL EQU CHTRSTAT 00699000 CHTS EQU CHTRSTAT 00700000 CHINITL EQU CHTRSTAT 00701000 CHINIT EQU CHTRSTAT 00702000 CHJOBSL EQU CHTRSTAT 00703000 CHJOBS EQU CHTRSTAT 00704000 CHDEF EQU CHTYPE 00705000 CHHIAR EQU CHTYPE 00706000 CHARSV29 EQU CHTYPE 00707000 CHARSV28 EQU CHTYPE 00708000 CHARSV27 EQU CHTYPE 00709000 CHARSV26 EQU CHTYPE 00710000 CHARSV25 EQU CHTYPE 00711000 CHDSTAT EQU CHTYPE 00712000 CHBUF EQU CHAINS01 00713000 @NM00139 EQU @NM00138 00714000 MSGLENT EQU MSGLST+1 00715000 MSGKEY EQU MSGLST 00716000 QMAJOR EQU QLIST+4 00717000 @NM00136 EQU QATT 00718000 MAJNAME EQU QLISTPRE 00719000 @NM00132 EQU INSMSCT+173 00720000 @NM00131 EQU SCTSTEND 00721000 SCTSYSCK EQU SCTSTEND 00722000 SCTSTPND EQU SCTSTEND 00723000 SCTSTSRT EQU SCTSTEND 00724000 @NM00130 EQU INSMSCT+168 00725000 SCTCATCT EQU INSMSCT+166 00726000 SCTSDPSA EQU SCTCDENT+3 00727000 SCTSDPOP EQU SCTCDENT+2 00728000 SCTSDPCD EQU SCTCDENT 00729000 @NM00129 EQU INSMSCT+117 00730000 SCTPRFMF EQU INSMSCT+116 00731000 SCTPGMNM EQU INSMSCT+108 00732000 SCTTIOT EQU INSMSCT+105 00733000 @NM00128 EQU SCTBCT 00734000 SCTJBEND EQU SCTBCT 00735000 SCTSPSYS EQU SCTBCT 00736000 SCTSTPLB EQU SCTBCT 00737000 @NM00127 EQU SCTBCT 00738000 SCTMCVOL EQU SCTBCT 00739000 @NM00126 EQU SCTBCT 00740000 SCTGOTTR EQU INSMSCT+100 00741000 SCTSMF EQU INSMSCT+96 00742000 @NM00125 EQU SCTSDPTY+1 00743000 SCTSDP EQU SCTSDPTY 00744000 SCTFSTEP EQU SCTSDPTY 00745000 @NM00124 EQU SCTSDPTY 00746000 @NM00123 EQU SCTSDPTY 00747000 SCTNIUSL EQU INSMSCT+92 00748000 @NM00122 EQU INSMSCT+90 00749000 SCTMSSZE EQU INSMSCT+88 00750000 SCTPCAT EQU INSMSCT+84 00751000 SCTLDSTB EQU INSMSCT+80 00752000 SCTSRBT EQU INSMSCT+76 00753000 SCTMSADR EQU INSMSCT+72 00754000 @NM00121 EQU INSMSCT+71 00755000 SCTXBTTR EQU INSMSCT+68 00756000 SCTJSCAT EQU SCTSTYPE 00757000 SCTINITB EQU SCTSTYPE 00758000 SCTSJFHK EQU SCTSTYPE 00759000 SCTOUTMC EQU SCTSTYPE 00760000 SCTINPUT EQU SCTSTYPE 00761000 SCTGOSTP EQU SCTSTYPE 00762000 @NM00120 EQU INSMSCT+66 00763000 SCTNSMSG EQU INSMSCT+65 00764000 SCTSNUMB EQU INSMSCT+64 00765000 @NM00119 EQU INSMSCT+62 00766000 SCTRPACT EQU INSMSCT+60 00767000 SCTSNAME EQU INSMSCT+52 00768000 SCTSCLPC EQU INSMSCT+44 00769000 @NM00118 EQU INSMSCT+43 00770000 SCTADSTB EQU INSMSCT+40 00771000 @NM00117 EQU INSMSCT+36 00772000 @NM00116 EQU INSMSCT+35 00773000 SCTAFACT EQU INSMSCT+32 00774000 SCTDDNT EQU INSMSCT+28 00775000 @NM00115 EQU INSMSCT+27 00776000 SCTLSIOT EQU INSMSCT+24 00777000 @NM00114 EQU INSMSCT+23 00778000 SCTANSCT EQU INSMSCT+20 00779000 @NM00113 EQU INSMSCT+19 00780000 SCTAALOC EQU INSMSCT+16 00781000 @NM00112 EQU INSMSCT+15 00782000 SCTFSIOT EQU INSMSCT+12 00783000 SCTLALOC EQU INSMSCT+10 00784000 SCTSEXEC EQU INSMSCT+8 00785000 SCTSTIME EQU INSMSCT+5 00786000 INCMSSTS EQU SCTSSTAT 00787000 SCTGRPH EQU SCTSSTAT 00788000 SCTKEY0 EQU SCTSSTAT 00789000 SCTDORST EQU SCTSSTAT 00790000 SCTNOCKP EQU SCTSSTAT 00791000 SCTNORST EQU SCTSSTAT 00792000 EACAUSER EQU SCTSSTAT 00793000 EAADDRBT EQU SCTSSTAT 00794000 SCTTBLID EQU INSMSCT+3 00795000 SCTDISKA EQU INSMSCT 00796000 @NM00110 EQU INJMJCT+175 00797000 JCTVULDP EQU INJMJCT+172 00798000 JCTACODE EQU INJMJCT+168 00799000 JCTPRFMF EQU INJMJCT+167 00800000 JCTTSOID EQU INJMJCT+160 00801000 JCTSSD EQU INJMJCT+157 00802000 @NM00109 EQU INJMJCT+156 00803000 JCTSRBT EQU INJMJCT+152 00804000 JCTJMRJD EQU INJMJCT+149 00805000 JCTJMRJT EQU INJMJCT+146 00806000 JCTJMRSS EQU INJMJCT+143 00807000 JCTJMRTL EQU INJMJCT+140 00808000 JCTJMRCL EQU INJMJCT+139 00809000 JCTJMROP EQU INJMJCT+138 00810000 JCTJMRD EQU INJMJCT+137 00811000 JCTJMR EQU INJMJCT+134 00812000 JCTCKIDT EQU INJMJCT+118 00813000 JCTCKIDL EQU INJMJCT+117 00814000 @NM00108 EQU JCTSTAT2 00815000 JCTBLP EQU JCTSTAT2 00816000 JCTPERFM EQU JCTSTAT2 00817000 JCTSWSM EQU JCTSTAT2 00818000 JCTENDIT EQU JCTSTAT2 00819000 JCTADSPC EQU JCTSTAT2 00820000 JCTSPSYS EQU JCTSTAT2 00821000 @NM00107 EQU INJMJCT+115 00822000 JCTSSTR EQU INJMJCT+112 00823000 JCTJSBTM EQU JCTJSB 00824000 JCTJSBEX EQU JCTJSB 00825000 JCTJSBAL EQU JCTJSB 00826000 JCTJSBIN EQU JCTJSB 00827000 @NM00106 EQU JCTJSB 00828000 JCTVOLSQ EQU INJMJCT+110 00829000 JCTNRCKP EQU INJMJCT+108 00830000 JCTNTRK EQU INJMJCT+107 00831000 JCTCKTTR EQU INJMJCT+104 00832000 JCTDEVT EQU INJMJCT+100 00833000 @NM00105 EQU INJMJCT+99 00834000 JCTSTIOT EQU INJMJCT+96 00835000 JCTSNUMB EQU INJMJCT+95 00836000 JCTQIDNT EQU INJMJCT+94 00837000 JCTEQREG EQU INJMJCT+92 00838000 @NM00104 EQU INJMJCT+91 00839000 JCTDSDRA EQU JCTRSW2 00840000 JCTDSOJB EQU JCTRSW2 00841000 JCTDSOCR EQU JCTRSW2 00842000 JCTRESTT EQU JCTRSW2 00843000 JCTNOCKP EQU JCTRSW2 00844000 JCTNORST EQU JCTRSW2 00845000 JCTNARST EQU JCTRSW2 00846000 JCTSYSCK EQU JCTRSW2 00847000 @NM00103 EQU JCTRSW1 00848000 JCTSTEPR EQU JCTRSW1 00849000 JCTCKPTR EQU JCTRSW1 00850000 JCTCKFT EQU JCTRSW1 00851000 JCTCONTR EQU JCTRSW1 00852000 JCTSTERM EQU JCTRSW1 00853000 JCTWARMS EQU JCTRSW1 00854000 @NM00102 EQU JCTCCODE+3 00855000 JCTJDPOP EQU JCTCCODE+2 00856000 JCTJDPCD EQU JCTCCODE 00857000 @NM00101 EQU INJMJCT+53 00858000 JCTSCT EQU INJMJCT+52 00859000 JCTSMRBA EQU INJMJCT+44 00860000 @NM00100 EQU INJMJCT+43 00861000 JCTACTAD EQU INJMJCT+40 00862000 @NM00099 EQU INJMJCT+36 00863000 @NM00098 EQU INJMJCT+35 00864000 JCTSDKAD EQU INJMJCT+32 00865000 JCTJCSMF EQU INJMJCT+31 00866000 JCTGDGNT EQU INJMJCT+28 00867000 @NM00097 EQU INJMJCT+27 00868000 JCTPDIP EQU INJMJCT+24 00869000 JCTJTPTN EQU INJMJCT+16 00870000 JCTJPRTY EQU JCTJBYTE 00871000 INCMMGL1 EQU JCTJMGLV 00872000 INCMMGL2 EQU JCTJMGLV 00873000 @NM00096 EQU JCTJMGLV 00874000 INCMALL EQU JCTJMGLV 00875000 JCTJMGPO EQU INJMJCT+6 00876000 INCMNSET EQU JCTJSTAT 00877000 INCMCAT EQU INDMCTLG 00878000 JCTABEND EQU JCTJSTAT 00879000 @NM00095 EQU JCTJSTAT 00880000 JCTJSTPC EQU JCTJSTAT 00881000 @NM00094 EQU JCTJSTAT 00882000 JCTJBLBS EQU JCTJSTAT 00883000 JCTJSRNO EQU INJMJCT+4 00884000 JCTIDENT EQU INJMJCT+3 00885000 JCTDSKAD EQU INJMJCT 00886000 @NM00093 EQU RTNEXAD 00887000 @NM00092 EQU RTNEXNM 00888000 RTNEXID EQU RTNEXT+1 00889000 RTNEXLK EQU RTNEXT 00890000 IELCOM EQU IELEXHDR+4 00891000 IELXTLEN EQU IELEXHDR 00892000 @NM00091 EQU IELOPTS+7 00893000 IELSWAS EQU IELOPTS+6 00894000 IELNSYS EQU IELOPSW3 00895000 @NM00090 EQU IELOPSW3 00896000 @NM00089 EQU IELOPSW3 00897000 IELTSIZ EQU IELOPTS+4 00898000 IELOENQU EQU IELOPSW2 00899000 IELONORC EQU IELOPSW2 00900000 @NM00088 EQU IELOPSW2 00901000 @NM00087 EQU IELOPSW2 00902000 @NM00086 EQU IELOPSW2 00903000 @NM00085 EQU IELOPSW2 00904000 IELCRF EQU IELOPSW2 00905000 IELTIMEF EQU IELOPSW2 00906000 @NM00084 EQU IELOPSW1 00907000 IELICMDF EQU IELOPSW1 00908000 IELONEJF EQU IELOPSW1 00909000 IELCANF EQU IELOPSW1 00910000 @NM00083 EQU IELOPSW1 00911000 @NM00082 EQU IELOPSW1 00912000 IELDWFF EQU IELOPSW1 00913000 IELDPSWA EQU IELOPSW1 00914000 IELOPLEN EQU IELOPTS 00915000 @NM00081 EQU IELLAST 00916000 IELEND EQU IELLAST 00917000 IELSTEPL EQU IELLIST+16 00918000 IELRTNA EQU IELLIST+12 00919000 IELCSCB EQU IELLIST+4 00920000 IELSSOBA EQU IELLIST 00921000 CHARSV16 EQU CHSHORT+100 00922000 CHARSV15 EQU CHSHORT+96 00923000 CHJSCBVS EQU CHSHORT+92 00924000 CHUSCVS EQU CHSHORT+88 00925000 @NM00079 EQU CHSHORT+84 00926000 @NM00078 EQU CHSHORT+80 00927000 CHSQA EQU CHSHORT+44 00928000 CHQPA EQU CHSHORT+8 00929000 CHJCL EQU CHSHORT+4 00930000 CHSPC EQU CHSHORT 00931000 CHSPB EQU CHSTEP+4 00932000 CHTCB EQU CHSTEP+1 00933000 CHARSV23 EQU CHSWT 00934000 CHARSV22 EQU CHSWT 00935000 CHARSV21 EQU CHSWT 00936000 CHAC EQU CHSWT 00937000 CHPSF EQU CHSWT 00938000 CHPSD EQU CHSWT 00939000 CHJCT EQU CHSWT 00940000 CHARSV20 EQU CHSWT 00941000 CHECB EQU CHASM+16 00942000 CHRGNAD EQU CHASM+12 00943000 CHARSV18 EQU CHRGNSZ+1 00944000 CHRPRTY EQU CHRGNSZ 00945000 @NM00077 EQU CHCIBP 00946000 CHEND EQU CHCIBP 00947000 CHECBP EQU CHASM 00948000 CHDER EQU CHPROCSN+4 00949000 CHARSV10 EQU CHACT1 00950000 CHARSV09 EQU CHACT1 00951000 CHARSV08 EQU CHACT1 00952000 CHARSV07 EQU CHACT1 00953000 CHARSV06 EQU CHACT1 00954000 CHARSV05 EQU CHACT1 00955000 CHARSV04 EQU CHACT1 00956000 CHRDWTR EQU CHACT1 00957000 CHARSV30 EQU CHPROCSN+2 00958000 CHQID EQU CHPROCSN 00959000 CHASID EQU CHTJID 00960000 CHUCMP EQU CHAIN+29 00961000 CHTRKID EQU CHPKE 00962000 CHCIBCTR EQU CHAIN+27 00963000 CHUNIT EQU CHAIN+24 00964000 CHCLS EQU CHAIN+16 00965000 CHPARM EQU CHKEY 00966000 CHIFY EQU CHACT 00967000 CHAIFX EQU CHACT 00968000 CHCLD EQU CHACT 00969000 CHDSI EQU CHACT 00970000 CHDISC EQU CHACT 00971000 CHTERM EQU CHACT 00972000 CHSWAP EQU CHACT 00973000 CHABTERM EQU CHSTS 00974000 CHFC EQU CHSTS 00975000 CHDL EQU CHSTS 00976000 CHAD EQU CHSTS 00977000 CHQSPC EQU CHSTS 00978000 CHSOUT EQU CHSTS 00979000 CHSYS EQU CHSTS 00980000 CHAP EQU CHSTS 00981000 CHSZE EQU CHFLG+1 00982000 CHVCD EQU CHFLG 00983000 CHPTR EQU CHAIN 00984000 LCTLABEL EQU LCT+504 00985000 LCTIWORK EQU LCT+440 00986000 @NM00076 EQU LCT+436 00987000 LCTLBWAP EQU LCT+428 00988000 @NM00075 EQU LCT+424 00989000 LCTBPPAS EQU LCTINTS2 00990000 LCTSYS EQU LCTINTS2 00991000 LCTTSIZ EQU @NM00074 00992000 LCTRFB1 EQU LCT+419 00993000 @NM00073 EQU LCTRFB 00994000 LCTRFBRP EQU LCTRFB 00995000 LCTRFBEF EQU LCTRFB 00996000 LCTRFBMS EQU LCTRFB 00997000 LCTRFBDC EQU LCTRFB 00998000 LCTRFBRV EQU LCTRFB 00999000 LCTRFBCR EQU LCTRFB 01000000 LCTRFBSM EQU LCTRFB 01001000 LCTMFTIO EQU LCTSTATB 01002000 LCTNPKEY EQU LCTSTATB 01003000 LCTSBPOL EQU LCTSTATB 01004000 LCTNREAD EQU LCTSTATB 01005000 LCTWRITE EQU LCTSTATB 01006000 LCTNOATC EQU LCTSTATB 01007000 LCTNOREG EQU LCTSTATB 01008000 LCTECBPB EQU LCTSTATB 01009000 LCTCPART EQU LCTSTATA 01010000 LCTNOGCB EQU LCTSTATA 01011000 LCTNOSDP EQU LCTSTATA 01012000 LCTJCPIB EQU LCTSTATA 01013000 LCTNECBL EQU LCTSTATA 01014000 LCTBTJOB EQU LCTSTATA 01015000 LCTSNOWK EQU LCTSTATA 01016000 LCTSUSPD EQU LCTSTATA 01017000 LCTTIOTI EQU LCT+412 01018000 @NM00072 EQU LCTJCTDA+3 01019000 LCTJCTVA EQU LCTJCTDA 01020000 LCTSSOBA EQU LCT+404 01021000 LCTSTEPL EQU LCT+400 01022000 @NM00071 EQU LCT+364 01023000 @NM00070 EQU LCTJSCB+1 01024000 @NM00069 EQU LCTOPSW3 01025000 @NM00068 EQU LCTOPSW3 01026000 LCTALERR EQU LCTOPSW3 01027000 LCTJNLF EQU LCTOPSW3 01028000 @NM00067 EQU LCTOPSW3 01029000 LCTNSYS EQU LCTOPSW3 01030000 LCTRDER EQU LCTOPSW3 01031000 @NM00066 EQU LCTOPSW3 01032000 @NM00065 EQU @NM00060+1 01033000 LCTNORC EQU LCTOPSW2 01034000 @NM00064 EQU LCTOPSW2 01035000 @NM00063 EQU LCTOPSW2 01036000 @NM00062 EQU LCTOPSW2 01037000 @NM00061 EQU LCTOPSW2 01038000 LCTCRF EQU LCTOPSW2 01039000 LCTTIMEF EQU LCTOPSW2 01040000 @NM00059 EQU LCTEXIT+1 01041000 @NM00058 EQU LCTOPSW1 01042000 @NM00057 EQU LCTOPSW1 01043000 LCTONEJF EQU LCTOPSW1 01044000 @NM00056 EQU LCTOPSW1 01045000 @NM00055 EQU LCTOPSW1 01046000 LCTDWFF EQU LCTOPSW1 01047000 LCTDPSWA EQU LCTOPSW1 01048000 LCTTSRB3 EQU LCTTSRB4+1 01049000 @NM00054 EQU LCTTSRB4 01050000 @NM00053 EQU LCT+340 01051000 @NM00052 EQU LCTSPIL+3 01052000 @NM00051 EQU LCTALCFG 01053000 @NM00050 EQU LCTALCFG 01054000 @NM00049 EQU LCTALCFG 01055000 @NM00048 EQU LCTALCFG 01056000 @NM00047 EQU LCTALCFG 01057000 @NM00046 EQU LCTALCFG 01058000 LCTMSGWT EQU LCTALCFG 01059000 LCTODSFL EQU LCTALCFG 01060000 LCTDSBCT EQU LCTSPIL 01061000 LCTPIB EQU LCTIDENT 01062000 @NM00045 EQU ECBLIST+1 01063000 @NM00044 EQU ECBLIST 01064000 LCTJMRAD EQU LCT+324 01065000 LCTASCBA EQU LCT+320 01066000 @NM00043 EQU LCT+284 01067000 QMGR1 EQU LCT+248 01068000 REGSAVE EQU LCT+104 01069000 @NM00042 EQU LCTATLST+1 01070000 @NM00041 EQU LCTATLST 01071000 @NM00040 EQU LCTJOBLB+1 01072000 @NM00039 EQU LCTJOBLB 01073000 LCTTSTU3 EQU LCTTSTU4+1 01074000 @NM00038 EQU LCTTSTU4 01075000 LCTTSTR3 EQU LCTSMF+1 01076000 LCTTTIFJ EQU LCTTMBYT 01077000 LCTTSTL3 EQU LCTTSTL4+1 01078000 @NM00037 EQU LCTTSTL4 01079000 LCTTJTU3 EQU LCTTJTU4+1 01080000 @NM00036 EQU LCTTJTU4 01081000 @NM00035 EQU @NM00034+1 01082000 LCTNDSI EQU LCTINTSW 01083000 LCTABEND EQU LCTINTSW 01084000 LCTSTOP EQU LCTINTSW 01085000 LCTSTART EQU LCTINTSW 01086000 LCTMINRG EQU LCTINTSW 01087000 LCTPPAA EQU LCTINTSW 01088000 LCTPRIV EQU LCTINTSW 01089000 LCTINPPT EQU LCTINTSW 01090000 @NM00033 EQU LCTSREG+1 01091000 @NM00032 EQU LCTSREG 01092000 LCTCOMD2 EQU LCTCOMCD+2 01093000 LCTCOMD1 EQU LCTCOMCD 01094000 LCTBATMN EQU LCT+64 01095000 @NM00031 EQU LCTSMBAD+1 01096000 @NM00030 EQU LCTSMBAD 01097000 LCTACTON EQU LCT+59 01098000 LCTSNUMB EQU LCT+58 01099000 @NM00029 EQU LCTJFCBH 01100000 @NM00028 EQU LCTJFCBH 01101000 @NM00027 EQU LCTJFCBH 01102000 @NM00026 EQU LCTJFCBH 01103000 @NM00025 EQU LCTJFCBH 01104000 LCTS2FES EQU LCTJFCBH 01105000 LCTS2COP EQU LCTJFCBH 01106000 LCTS2PEM EQU LCTJFCBH 01107000 LCTSTIND EQU LCTNSPAD 01108000 @NM00024 EQU LCTCMCBA+1 01109000 @NM00023 EQU LCTCMCBA 01110000 LCTPARM4 EQU LCT+48 01111000 LCTPARM3 EQU LCT+44 01112000 LCTJCFAL EQU LCTERR 01113000 LCTACOMP EQU LCTERR 01114000 LCTSFAIL EQU LCTERR 01115000 LCTPALCD EQU LCTERR 01116000 LCTSALCD EQU LCTERR 01117000 LCTJFAIL EQU LCTERR 01118000 @NM00022 EQU LCTPSPAR+1 01119000 @NM00021 EQU LCTPSPAR 01120000 @NM00020 EQU LCTWORKA+3 01121000 LCTSCTVA EQU LCTWORKA 01122000 @NM00019 EQU LCTSCTAD+1 01123000 @NM00018 EQU LCTSCTAD 01124000 @NM00017 EQU LCTJCTAD+1 01125000 @NM00016 EQU LCTJCTAD 01126000 @NM00015 EQU LCTQENTY+1 01127000 LCTERRM EQU @NM00007 01128000 @NM00014 EQU @NM00007 01129000 @NM00013 EQU @NM00007 01130000 @NM00012 EQU @NM00007 01131000 @NM00011 EQU @NM00007 01132000 @NM00010 EQU @NM00007 01133000 @NM00009 EQU @NM00007 01134000 @NM00008 EQU @NM00007 01135000 @NM00006 EQU LCTTCBAD+1 01136000 @NM00005 EQU LCTTCBAD 01137000 @NM00004 EQU LCTSRTAD+1 01138000 @NM00003 EQU LCTSRTAD 01139000 @NM00002 EQU LCTQDRTY+1 01140000 @NM00001 EQU LCTQDRTY 01141000 * END UNREFERENCED COMPONENTS 01142000 @RT00045 EQU EXIT 01143000 @RT00053 EQU DONE 01144000 @RT00167 EQU CANCEL2 01145000 @RT00170 EQU DONE 01146000 @RF00170 EQU EWAIT 01147000 @EL01 EQU @EL00001 01148000 @ENDDATA EQU * 01149000 END IEFSD102,(C'PLS1715',0701,76034) 01150000