TITLE 'IKJEFF57 - CANCEL INITIALIZATION *00001000 ' 00002000 IKJEFF57 CSECT , 0001 00003000 @MAINENT DS 0H 0001 00004000 USING *,@15 0001 00005000 B @PROLOG 0001 00006000 DC AL1(16) 0001 00007000 DC C'IKJEFF57 74.008' 0001 00008000 DROP @15 00009000 @PROLOG ST @14,12(,@13) 0001 00010000 STM @00,@12,20(@13) 0001 00011000 BALR @12,0 0001 00012000 @PSTART DS 0H 0001 00013000 USING @PSTART,@12 0001 00014000 L @00,@SIZDATD 0001 00015000 GETMAIN R,LV=(0) 00016000 LR @11,@01 0001 00017000 USING @DATD,@11 0001 00018000 ST @13,@SA00001+4 0001 00019000 LM @00,@01,20(@13) 0001 00020000 ST @11,8(,@13) 0001 00021000 LR @13,@11 0001 00022000 MVC @PC00001(4),0(@01) 0001 00023000 DUMMY DS 0H 0003 00024000 * */ 00025000 * 0065 00026000 * /*****************************************************************/ 00027000 * /* */ 00028000 * /* INITIALIZE LOCAL POINTERS AND SWITCHES */ 00029000 * /* */ 00030000 * /*****************************************************************/ 00031000 * 0065 00032000 * FIBCMPTR=ADDR(FIBPARML); /* USE LOCAL POINTER TO FIBCPARM 00033000 * FOR EFFICIENCY */ 00034000 L FIBCMPTR,@PC00001 0065 00035000 * SWITCHES=0; /* ZERO SWITCH PARAMETERS */ 00036000 MVI SWITCHES,X'00' 0066 00037000 * CANCELSW='1'B; /* INDICATE CANCEL COMMAND */ 00038000 * 0067 00039000 OI CANCELSW,B'10000000' 0067 00040000 * /*****************************************************************/ 00041000 * /* */ 00042000 * /* INITIALIZE PARSE INTERFACE LIST */ 00043000 * /* */ 00044000 * /*****************************************************************/ 00045000 * 0068 00046000 * PPLPTR=ADDR(PPLLN); /* OBTAIN STORAGE FOR PPL */ 00047000 LA PPLPTR,PPLLN 0068 00048000 * PPLPCL=ADDR(IKJEFF4A); /* POINT TO PCL (DESCRIBES 0069 00049000 * COMMAND SYNTAX TO PARSE) */ 00050000 L @10,@CV00823 0069 00051000 ST @10,PPLPCL(,PPLPTR) 0069 00052000 * PPLUPT=FIBCPPLU; /* PICK UP UPT POINTER */ 00053000 L @10,FIBCPPLU(,FIBCMPTR) 0070 00054000 ST @10,PPLUPT(,PPLPTR) 0070 00055000 * PPLECT=FIBCPPLE; /* PICK UP ECT POINTER */ 00056000 L @10,FIBCPPLE(,FIBCMPTR) 0071 00057000 ST @10,PPLECT(,PPLPTR) 0071 00058000 * CPECB=0; /* ZERO OUT COMMUNICATIONS ECB */ 00059000 SLR @10,@10 0072 00060000 ST @10,CPECB 0072 00061000 * PERMPDLP=0; /* WILL CONTAIN POINTER TO PDE - 00062000 * INIT TO ZERO */ 00063000 ST @10,PERMPDLP 0073 00064000 * PPLECB=ADDR(CPECB); /* PICK UP ADDRESS OF 0074 00065000 * COMMUNICATIONS ECB */ 00066000 LA @10,CPECB 0074 00067000 ST @10,PPLECB(,PPLPTR) 0074 00068000 * PPLANS=ADDR(PERMPDLP); /* WITHIN THIS AREA PARSE WILL 0075 00069000 * PLACE A POINTER TO PDL */ 00070000 LA @07,PERMPDLP 0075 00071000 ST @07,PPLANS(,PPLPTR) 0075 00072000 * PPLCBUF=FIBCPPLC; /* POINT TO INPUT COMMAND BUFFER */ 00073000 L @07,FIBCPPLC(,FIBCMPTR) 0076 00074000 ST @07,PPLCBUF(,PPLPTR) 0076 00075000 * MSGPTR=ADDR(MSGTABLE); /* SAVE ADDR OF MSG PARMLIST IN 00076000 * CANCEL PARMLIST */ 00077000 LA @07,MSGTABLE 0077 00078000 ST @07,MSGPTR 0077 00079000 * WORKAREA=MSGPTR; /* PASS MESSAGE PARMLIST TO 0078 00080000 * VALIDITY CHECK ROUTINE */ 00081000 * 0078 00082000 ST @07,WORKAREA 0078 00083000 * /*****************************************************************/ 00084000 * /* */ 00085000 * /* INITIALIZE MESSAGE PARAMETER LIST -- SO THE VALIDITY CHECK */ 00086000 * /* ROUTINE CAN USE IT TO INTERFACE TO THE MESSAGE ROUTINE */ 00087000 * /* */ 00088000 * /*****************************************************************/ 00089000 * 0079 00090000 * MSGTABLE=MSGTABLE&&MSGTABLE; /* ZERO MESSAGE AREA */ 00091000 XC MSGTABLE(64),MSGTABLE 0079 00092000 * LISTPTR=ADDR(MSGCSECT); /* GET A POINTER TO MESSAGE 0080 00093000 * SECTION IN MSGTABLE */ 00094000 LA @07,MSGCSECT 0080 00095000 ST @07,LISTPTR 0080 00096000 * MTCPPL=ADDR(FIBCPPLC); /* PICK UP POINTER TO CPPL */ 00097000 LA @07,FIBCPPLC(,FIBCMPTR) 0081 00098000 ST @07,MTCPPL 0081 00099000 * ECBPTR=ADDR(CPECB); /* PICK UP ADDRESS OF 0082 00100000 * COMMUNICATIONS ECB */ 00101000 ST @10,ECBPTR 0082 00102000 * MTPUTLSW='1'B; /* INDICATE WANT PUTLINE - NO 0083 00103000 * CANCEL MESSAGES USE PROMPTING 00104000 * (PUTGET) OTHER THAN IKJ56208A 00105000 * IN IKJEFF51 */ 00106000 OI MTPUTLSW,B'01000000' 0083 00107000 * RFY 0084 00108000 * R0 RSTD; 0084 00109000 * GEN(LOAD EP=IKJEFF02); /* LOAD THE MESSAGE ROUTINE */ 00110000 LOAD EP=IKJEFF02 00111000 * MSGRTN=R0; /* PICK UP ADDRESS OF MESSAGE 0086 00112000 * ROUTINE */ 00113000 ST R0,MSGRTN 0086 00114000 * RFY 0087 00115000 * R0 UNRSTD; 0087 00116000 * MSGRTNPT=MSGRTN; /* ALSO PUT ADDRESS OF MSG RTN IN 00117000 * CANCEL PARAMETER LIST */ 00118000 L @10,MSGRTN 0088 00119000 ST @10,MSGRTNPT 0088 00120000 * MTHIGH='1'B; /* STANDARD LINKAGE CONVENTION */ 00121000 OI MTHIGH,B'10000000' 0089 00122000 * PPLUWA=ADDR(WORKAREA); /* PICK UP ADDRESS OF WORK AREA */ 00123000 * 0090 00124000 LA @10,WORKAREA 0090 00125000 ST @10,PPLUWA(,PPLPTR) 0090 00126000 * /*****************************************************************/ 00127000 * /* */ 00128000 * /* CALL PARSE (WILL USE IKJEFF49 VALIDITY CHECK ROUTINE) */ 00129000 * /* */ 00130000 * /*****************************************************************/ 00131000 * 0091 00132000 *SETKEY0: 0091 00133000 * GEN(MODESET EXTKEY=SUPR,RELATED=(KEY0,IKJEFF57(SETKEY1)));/* SEE 00134000 * SUBPOOL NOTES */ 00135000 SETKEY0 MODESET EXTKEY=SUPR,RELATED=(KEY0,IKJEFF57(SETKEY1)) 00136000 * RFY 0092 00137000 * (R0, 0092 00138000 * R1, 0092 00139000 * R15) RSTD; 0092 00140000 * R1=PPLPTR; /* PLACE POINTER TO PARSE 0093 00141000 * PARAMETER LIST IN REGISTER ONE*/ 00142000 LR R1,PPLPTR 0093 00143000 * DO; /* CALLTSSR EP(IKJPARS) */ 00144000 * RESPECIFY 0095 00145000 * GPR01P RSTD; 0095 00146000 * IF CVTPARS=0 THEN 0096 00147000 L @14,CVTPTR 0096 00148000 L @14,CVTPARS(,@14) 0096 00149000 LTR @14,@14 0096 00150000 BNZ @RF00096 0096 00151000 * GEN(LINK EP=IKJPARS); 0097 00152000 LINK EP=IKJPARS 00153000 * ELSE 0098 00154000 * CALL CVTPARS; 0098 00155000 B @RC00096 0098 00156000 @RF00096 L @10,CVTPTR 0098 00157000 L @15,CVTPARS(,@10) 0098 00158000 BALR @14,@15 0098 00159000 * RESPECIFY 0099 00160000 * GPR01P UNRSTD; 0099 00161000 @RC00096 DS 0H 0100 00162000 * END; 0100 00163000 * RETCODE=R15; /* SAVE RETURN CODE */ 00164000 LR RETCODE,R15 0101 00165000 *SETKEY1: 0102 00166000 * GEN(MODESET EXTKEY=SCHED,RELATED=(KEY1,IKJEFF57(SETKEY0)));/* SEE 00167000 * SUBPOOL NOTES */ 00168000 SETKEY1 MODESET EXTKEY=SCHED,RELATED=(KEY1,IKJEFF57(SETKEY0)) 00169000 * GEN(LOAD EP=IKJEFF55); /* LOAD THE MESSAGE CSECT FOR THE 00170000 * REST OF CANCEL (IKJEFF49 HAD 00171000 * ITS OWN MESSAGE CSECT) */ 00172000 LOAD EP=IKJEFF55 00173000 * MSGCSECT=R0; /* PICK UP ADDRESS OF MESSAGES 0104 00174000 * BECAUSE VALIDITY CHECK EXIT 0104 00175000 * USED A DIFFERENT MESSAGE CSECT*/ 00176000 ST R0,MSGCSECT 0104 00177000 * RFY 0105 00178000 * (R0, 0105 00179000 * R1, 0105 00180000 * R15) UNRSTD; 0105 00181000 * MTKEY1SW='1'B; /* INDICATE IN KEY 1 (SCHEDULER) 00182000 * - SEE SUBPOOL NOTES 0106 00183000 * */ 00184000 OI MTKEY1SW,B'00001000' 0106 00185000 * 0107 00186000 * /*****************************************************************/ 00187000 * /* */ 00188000 * /* PROCESS CANCEL COMMAND OPERANDS, FORMATTED IN PARSE PDE'S */ 00189000 * /* */ 00190000 * /*****************************************************************/ 00191000 * 0107 00192000 * IF RETCODE=PARSER0 THEN /* NO ERRORS, CONTINUE */ 00193000 LTR RETCODE,RETCODE 0107 00194000 BNZ @RF00107 0107 00195000 *PARSEOK: /* LABEL FOR DO/END GROUP */ 00196000 * DO; 0108 00197000 PARSEOK DS 0H 0109 00198000 * PDEPTR=PERMPDLP+PDLHDRLN; /* UPDATE BEYOND HEADER 0109 00199000 * INFORMATION TO PICK UP POINTER 00200000 * TO PDE CHAINS (FOR PARAMETERS 00201000 * ENTERED ON CANCEL COMMAND) */ 00202000 * 0109 00203000 LA PDEPTR,8 0109 00204000 AL PDEPTR,PERMPDLP 0109 00205000 * /*************************************************************/ 00206000 * /* */ 00207000 * /* IF PURGE KEYWORD GIVEN ON COMMAND, SET BIT ON IN PARMLIST */ 00208000 * /* SWITCHES */ 00209000 * /* */ 00210000 * /*************************************************************/ 00211000 * 0110 00212000 * IF PURGEPDE=1 THEN /* PDE FOR PURGE/NOPURGE KEYWORDS 00213000 * IS SECOND PDE */ 00214000 CLC PURGEPDE+20(2,PDEPTR),@CH00043 0110 00215000 BNE @RF00110 0110 00216000 * PTPURGSW=ON; 0111 00217000 * 0111 00218000 OI PTPURGSW,B'00000100' 0111 00219000 * /*************************************************************/ 00220000 * /* */ 00221000 * /* CALCULATE SPACE NEEDED FOR JOBLIST TABLE AND GET IT */ 00222000 * /* */ 00223000 * /*************************************************************/ 00224000 * 0112 00225000 * TBLCOUNT=1; /* INITIALIZE COUNT OF JOBNAME 0112 00226000 * PDE'S */ 00227000 * 0112 00228000 @RF00110 MVC TBLCOUNT(4),@CF00043 0112 00229000 * /*************************************************************/ 00230000 * /* */ 00231000 * /* LOOP THRU PDE'S, COUNTING THEM */ 00232000 * /* */ 00233000 * /*************************************************************/ 00234000 * 0113 00235000 * DO WHILE CHAINPTR^=0; /* COUNT PDE'S ON CHAIN */ 00236000 B @DE00113 0113 00237000 @DL00113 DS 0H 0114 00238000 * IF PRESENT='1'B THEN /* IF JOBID IS PRESENT */ 00239000 TM PRESENT(PDEPTR),B'10000000' 0114 00240000 BNO @RF00114 0114 00241000 * TBLCOUNT=TBLCOUNT+1; /* THEN UPDATE COUNT */ 00242000 LA @10,1 0115 00243000 AL @10,TBLCOUNT 0115 00244000 ST @10,TBLCOUNT 0115 00245000 * PDEPTR=LAST; /* UPDATE TO NEXT PDE */ 00246000 @RF00114 L PDEPTR,LAST(,PDEPTR) 0116 00247000 * TBLCOUNT=TBLCOUNT+1; /* UPDATE COUNT OF PDE'S */ 00248000 LA @10,1 0117 00249000 AL @10,TBLCOUNT 0117 00250000 ST @10,TBLCOUNT 0117 00251000 * END; 0118 00252000 @DE00113 ICM @10,7,CHAINPTR(PDEPTR) 0118 00253000 BNZ @DL00113 0118 00254000 * IF PRESENT='1'B THEN /* ALSO COUNT JOBID IF IN LAST 0119 00255000 * PDE */ 00256000 TM PRESENT(PDEPTR),B'10000000' 0119 00257000 BNO @RF00119 0119 00258000 * TBLCOUNT=TBLCOUNT+1; /* UPDATE COUNT OF PDE'S ONCE 0120 00259000 * MORE BECAUSE ABOVE METHOD WILL 00260000 * ALWAYS LEAVE ONE SHORT IF LAST 00261000 * PDE CONTAINS A JOBID 0120 00262000 * */ 00263000 LA @10,1 0120 00264000 AL @10,TBLCOUNT 0120 00265000 ST @10,TBLCOUNT 0120 00266000 * 0121 00267000 * /*************************************************************/ 00268000 * /* */ 00269000 * /* GET CORE FOR JOBLIST TABLE */ 00270000 * /* */ 00271000 * /*************************************************************/ 00272000 * 0121 00273000 * RFY 0121 00274000 * (R0, 0121 00275000 * R1) RSTD; 0121 00276000 @RF00119 DS 0H 0122 00277000 * R0=TBLCOUNT*LENGTH(JOBLIST);/* NOW KNOW HOW MANY ITEMS WERE 00278000 * ENTERED SO MULTIPLY BY NINE IN 00279000 * ORDER TO HAVE EACH 0122 00280000 * JOBNAME(JOBID) FIT INTO 0122 00281000 * PARMLIST TABLE */ 00282000 L R0,TBLCOUNT 0122 00283000 MH R0,@CH00749 0122 00284000 * CTR=R0; /* SAVE NUMBER OF BYTES GETMAINED*/ 00285000 LR CTR,R0 0123 00286000 * GEN(GETMAIN R,LV=(0)); /* GET CORE */ 00287000 GETMAIN R,LV=(0) 00288000 * JOBLISTP=R1; /* PLACE POINTER TO GOTTEN CORE 00289000 * IN JOBLISTP */ 00290000 ST R1,JOBLISTP 0125 00291000 * SAVELIST=R1; /* SAVE PTR TO GOTTEN CORE FOR 0126 00292000 * FREEING AND RESTORING */ 00293000 LR SAVELIST,R1 0126 00294000 * RFY 0127 00295000 * (R0, 0127 00296000 * R1) UNRSTD; 0127 00297000 * PDEPTR=PERMPDLP+PDLHDRLN; /* RESET PDE POINTER TO BEGINNING 00298000 * OF PDE CHAIN */ 00299000 * 0128 00300000 LA PDEPTR,8 0128 00301000 AL PDEPTR,PERMPDLP 0128 00302000 * /*************************************************************/ 00303000 * /* */ 00304000 * /* COPY THE JOBNAME(S) AND JOBID(S) FROM THE PDE CHAIN INTO */ 00305000 * /* THE JOBLIST TABLE */ 00306000 * /* */ 00307000 * /*************************************************************/ 00308000 * 0129 00309000 * DO K=1 TO TBLCOUNT; 0129 00310000 LA K,1 0129 00311000 B @DE00129 0129 00312000 @DL00129 DS 0H 0130 00313000 * JOBNMID(K)=JOBNAME(1:NAMELEN);/* PICK UP JOBNAME FROM PDE */ 00314000 L @10,JOBLISTP 0130 00315000 LR @09,K 0130 00316000 MH @09,@CH00749 0130 00317000 ST @09,@TF00001 0130 00318000 ALR @09,@10 0130 00319000 AL @09,@CF00871 0130 00320000 MVI JOBNMID(@09),C' ' 0130 00321000 MVC JOBNMID+1(6,@09),JOBNMID(@09) 0130 00322000 LH @15,NAMELEN(,PDEPTR) 0130 00323000 BCTR @15,0 0130 00324000 L @01,JOBNAMEP(,PDEPTR) 0130 00325000 EX @15,@SM00872 0130 00326000 * IF PRESENT='0'B THEN /* IF NO JOBID ON CANCEL COMMAND */ 00327000 TM PRESENT(PDEPTR),B'10000000' 0131 00328000 BNZ @RF00131 0131 00329000 * LEN1(K)=IDJOBNM; /* INITIALIZE SWITCH BYTE */ 00330000 AL @10,@TF00001 0132 00331000 AL @10,@CF00874 0132 00332000 MVI LEN1(@10),X'00' 0132 00333000 * ELSE /* JOBNAME(JOBID) ON CANCEL 0133 00334000 * COMMAND */ 00335000 * DO; 0133 00336000 B @RC00131 0133 00337000 @RF00131 DS 0H 0134 00338000 * LEN1(K)=IDJOBID; /* SWITCH INDICATOR THAT JOBID IS 00339000 * NEXT IN LIST */ 00340000 L @10,JOBLISTP 0134 00341000 LR @09,K 0134 00342000 MH @09,@CH00749 0134 00343000 ST @09,@TF00001 0134 00344000 ALR @09,@10 0134 00345000 AL @09,@CF00874 0134 00346000 MVI LEN1(@09),X'44' 0134 00347000 * JOBNMID(K+1)=JOBID(1:JOBIDLN);/* PICK UP JOBID */ 00348000 AL @10,@TF00001 0135 00349000 MVI JOBNMID+1(@10),C' ' 0135 00350000 MVC JOBNMID+2(6,@10),JOBNMID+1(@10) 0135 00351000 LH @09,JOBIDLN(,PDEPTR) 0135 00352000 BCTR @09,0 0135 00353000 L @01,JOBIDP(,PDEPTR) 0135 00354000 EX @09,@SM00875 0135 00355000 * K=K+1; 0136 00356000 AH K,@CH00043 0136 00357000 * END; 0137 00358000 * PDEPTR=CHAINPTR; /* UPDATE TO NEXT PDE */ 00359000 @RC00131 SLR @10,@10 0138 00360000 ICM @10,7,CHAINPTR(PDEPTR) 0138 00361000 LR PDEPTR,@10 0138 00362000 * END; 0139 00363000 AH K,@CH00043 0139 00364000 @DE00129 C K,TBLCOUNT 0139 00365000 BNH @DL00129 0139 00366000 * LEN1(TBLCOUNT)=IDLASTJB; /* INDICATE END OF LIST */ 00367000 L @10,TBLCOUNT 0140 00368000 MH @10,@CH00749 0140 00369000 L @09,JOBLISTP 0140 00370000 ALR @09,@10 0140 00371000 AL @09,@CF00874 0140 00372000 MVI LEN1(@09),X'80' 0140 00373000 * GEN(IKJRLSA PERMPDLP); /* FREE THE PDE CHAIN 0141 00374000 * */ 00375000 IKJRLSA PERMPDLP 00376000 * 0142 00377000 * /*************************************************************/ 00378000 * /* */ 00379000 * /* SET UP PARAMETERS TO PASS INTO IKJEFF51 */ 00380000 * /* */ 00381000 * /*************************************************************/ 00382000 * 0142 00383000 * CSPTR1=ADDR(FIBCPARM); /* R1 -> CSPTR1 -> FIBCPARM */ 00384000 ST FIBCMPTR,CSPTR1 0142 00385000 * CSPTR2=ADDR(PARMLIST); /* PASS A POINTER TO 0143 00386000 * CANCEL/STATUS PARAMETER LIST, 00387000 * ALSO */ 00388000 LA @10,PARMLIST 0143 00389000 ST @10,CSPTR2 0143 00390000 * CSHIGH='1'B; /* STANDARD LINKAGE CONVENTION */ 00391000 OI CSHIGH,B'10000000' 0144 00392000 * JOBLISTP=SAVELIST; /* RESTORE POINTER TO TOP OF JOB 00393000 * NAME LIST */ 00394000 ST SAVELIST,JOBLISTP 0145 00395000 * NUMJOBSP=ADDR(TBLCOUNT); /* PICK UP ADDRESS OF COUNT OF 0146 00396000 * NUMBER OF JOBNAMES/JOBIDS TO 00397000 * PROCESS */ 00398000 LA @10,TBLCOUNT 0146 00399000 ST @10,NUMJOBSP 0146 00400000 * MTINSRTS=MTINSRTS&&MTINSRTS;/* CLEAR INSERT AREA OF MSGTABLE 00401000 * - IKJEFF49 MAY HAVE USED IT */ 00402000 XC MTINSRTS(16),MTINSRTS 0147 00403000 * SWITPTR=ADDR(SWITCHES); /* PUT ADDRESS OF SWITCHES IN 0148 00404000 * PARAMETER LIST */ 00405000 LA @10,SWITCHES 0148 00406000 ST @10,SWITPTR 0148 00407000 * PTHIGH='1'B; /* INDICATE END OF CANCEL/STATUS 00408000 * JOB LIST */ 00409000 OI PTHIGH,B'10000000' 0149 00410000 * RFY 0150 00411000 * (R0, 0150 00412000 * R1, 0150 00413000 * R15) RSTD; 0150 00414000 * R1=ADDR(CSPTRS); /* POINT TO PARAMETER LIST */ 00415000 LA R1,CSPTRS 0151 00416000 * GEN(LINK EP=IKJEFF51); /* BRANCH TO INSTALLATION EXIT 0152 00417000 * INTERFACE ROUTINE */ 00418000 * 0152 00419000 LINK EP=IKJEFF51 00420000 * /*************************************************************/ 00421000 * /* */ 00422000 * /* CLEAN UP WHEN RETURN */ 00423000 * /* */ 00424000 * /*************************************************************/ 00425000 * 0153 00426000 * RETCODE=R15; /* SAVE RETURN CODE */ 00427000 LR RETCODE,R15 0153 00428000 * IF SAVELIST^=0 THEN /* IF 57 HAD GOTTEN ANY CORE */ 00429000 LTR SAVELIST,SAVELIST 0154 00430000 BZ @RF00154 0154 00431000 * DO; 0155 00432000 * R0=CTR; /* PLACE IN REG ZERO THE AMOUNT 00433000 * OF CORE NEEDED TO BE FREED */ 00434000 LR R0,CTR 0156 00435000 * R1=SAVELIST; /* POINT TO THE CORE */ 00436000 LR R1,SAVELIST 0157 00437000 * GEN(FREEMAIN R,LV=(0),A=(1));/* FREE CORE */ 00438000 FREEMAIN R,LV=(0),A=(1) 00439000 * END; 0159 00440000 * RFY 0160 00441000 * (R0, 0160 00442000 * R1, 0160 00443000 * R15) UNRSTD; 0160 00444000 @RF00154 DS 0H 0161 00445000 * END PARSEOK; 0161 00446000 * 0162 00447000 * /*****************************************************************/ 00448000 * /* */ 00449000 * /* IF PARSE ERROR RETURN CODE -- ISSUE APPROPRIATE MESSAGE */ 00450000 * /* */ 00451000 * /*****************************************************************/ 00452000 * 0162 00453000 * ELSE 0162 00454000 *PARSEBAD: 0162 00455000 * DO; /* PARSE ERROR */ 00456000 * 0162 00457000 B @RC00107 0162 00458000 @RF00107 DS 0H 0162 00459000 PARSEBAD DS 0H 0163 00460000 * /*************************************************************/ 00461000 * /* */ 00462000 * /* CALL IKJEFF19 (GENLFAIL) TO ISSUE PARSE ERROR MESSAGE */ 00463000 * /* */ 00464000 * /*************************************************************/ 00465000 * 0163 00466000 * GFPARMS=GFPARMS&&GFPARMS; /* ZERO OUT PARAMETER LIST */ 00467000 XC GFPARMS(44),GFPARMS 0163 00468000 * GFCALLID=GFPARSE; /* NO MSGS PUT OUT FOR PARSE 0164 00469000 * RETURN CODES 4 AND 20, R.C. 4 00470000 * = PARSE UNABLE TO PROMPT USER 00471000 * (ISSUES MESSAGE), R.C. 20 = 0164 00472000 * IKJEFF49 EXIT ISSUED ERROR 0164 00473000 * MESSAGE AND TERMINATED */ 00474000 MVC GFCALLID(2),@CH00739 0164 00475000 * GFRCODE=RETCODE; /* NEED REGISTER 15 CODE FROM 0165 00476000 * PARSE */ 00477000 ST RETCODE,GFRCODE 0165 00478000 * GFKEYN08=ON; /* TELL IKJEFF19 TO ISSUE MESSAGE 00479000 * IN KEY 0 */ 00480000 OI GFKEYN08,B'10000000' 0166 00481000 * GF02PTR=MSGRTNPT; /* POINT TO IKJEFF02, SINCE 0167 00482000 * ALREADY LOADED */ 00483000 L @10,MSGRTNPT 0167 00484000 ST @10,GF02PTR 0167 00485000 * GFCPPLP=MTCPPL; /* CPPL NEEDED WHEN ISSUE PUTLINE*/ 00486000 L @10,MTCPPL 0168 00487000 ST @10,GFCPPLP 0168 00488000 * GFECBP=ECBPTR; /* ECB FOR PUTLINE */ 00489000 * 0169 00490000 L @10,ECBPTR 0169 00491000 ST @10,GFECBP 0169 00492000 * /*************************************************************/ 00493000 * /* */ 00494000 * /* CALL GENLFAIL */ 00495000 * /* */ 00496000 * /*************************************************************/ 00497000 * 0170 00498000 * RFY 0170 00499000 * R0 RSTD; 0170 00500000 * GEN(LOAD EP=IKJEFF19); 0171 00501000 LOAD EP=IKJEFF19 00502000 * CALL IKJEFF19(GFPARMS); /* CALL GENLFAIL SERVICE ROUTINE */ 00503000 LA @10,GFPARMS 0172 00504000 ST @10,@AL00001 0172 00505000 LR @15,R0 0172 00506000 LA @01,@AL00001 0172 00507000 BALR @14,@15 0172 00508000 * GEN(DELETE EP=IKJEFF19); 0173 00509000 DELETE EP=IKJEFF19 00510000 * RFY 0174 00511000 * R0 UNRSTD; 0174 00512000 * RETCODE=CMDRC12; /* INDICATE ERROR OCCURRED */ 00513000 LA RETCODE,12 0175 00514000 * END PARSEBAD; 0176 00515000 * 0177 00516000 * /*****************************************************************/ 00517000 * /* */ 00518000 * /* CLEAN-UP BEFORE RETURNING CONTROL TO CALLER */ 00519000 * /* */ 00520000 * /*****************************************************************/ 00521000 * 0177 00522000 * GEN(DELETE EP=IKJEFF02); /* UNLOAD MSG RTN */ 00523000 @RC00107 DS 0H 0177 00524000 DELETE EP=IKJEFF02 00525000 * GEN(DELETE EP=IKJEFF55); /* UNLOAD MSG CSECT */ 00526000 DELETE EP=IKJEFF55 00527000 * RETURN CODE(RETCODE); /* PUT RETURN CODE IN REGISTER 15*/ 00528000 L @13,4(,@13) 0179 00529000 L @00,@SIZDATD 0179 00530000 LR @01,@11 0179 00531000 FREEMAIN R,LV=(0),A=(1) 00532000 LR @15,@05 0179 00533000 L @14,12(,@13) 0179 00534000 LM @00,@12,20(@13) 0179 00535000 BR @14 0179 00536000 * END IKJEFF57 0180 00537000 * 0180 00538000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00539000 */*%INCLUDE SYSLIB (CVT ) */ 00540000 */*%INCLUDE SYSLIB (IKJEFFB2) */ 00541000 */*%INCLUDE SYSLIB (IKJEFFGF) */ 00542000 */*%INCLUDE SYSLIB (IKJEFFPT) */ 00543000 */*%INCLUDE SYSLIB (IKJEFFMT) */ 00544000 */*%INCLUDE SYSLIB (IKJPPL ) */ 00545000 * 0180 00546000 * ; 0180 00547000 @DATA DS 0H 00548000 @CH00749 DC H'9' 00549000 @CH00739 DC H'21' 00550000 @SM00872 MVC JOBNMID-1(0,@09),JOBNAME(@01) 00551000 @SM00875 MVC JOBNMID(0,@10),JOBID(@01) 00552000 @DATD DSECT 00553000 DS 0F 00554000 @SA00001 DS 18F 00555000 @PC00001 DS 1F 00556000 @AL00001 DS 1A 00557000 @TF00001 DS F 00558000 IKJEFF57 CSECT 00559000 DS 0F 00560000 @CF00043 DC F'1' 00561000 @CH00043 EQU @CF00043+2 00562000 @CF00874 DC F'-9' 00563000 @CF00871 DC F'-8' 00564000 @DATD DSECT 00565000 DS 0D 00566000 TBLCOUNT DS A 00567000 PERMPDLP DS A 00568000 CPECB DS F 00569000 WORKAREA DS A 00570000 SWITCHES DS AL1 00571000 ORG SWITCHES 00572000 CANCELSW DS BL1 00573000 STATUSSW EQU SWITCHES+0 00574000 STATAUTO EQU SWITCHES+0 00575000 JOBIDSW EQU SWITCHES+0 00576000 QUIT EQU SWITCHES+0 00577000 PTPURGSW EQU SWITCHES+0 00578000 @NM00010 EQU SWITCHES+0 00579000 ORG SWITCHES+1 00580000 DS CL3 00581000 CSPTRS DS CL8 00582000 ORG CSPTRS 00583000 CSPTR1 DS AL4 00584000 CSPTR2 DS AL4 00585000 ORG CSPTR2 00586000 CSHIGH DS BL1 00587000 ORG CSPTRS+8 00588000 GFPARMS DS CL44 00589000 ORG GFPARMS 00590000 GFCBPTR DS AL4 00591000 GFRCODE DS FL4 00592000 GF02PTR DS AL4 00593000 GFCALLID DS FL2 00594000 GFBITS DS BL1 00595000 ORG GFBITS 00596000 GFKEYN08 DS BL1 00597000 GFSUBSYS EQU GFBITS+0 00598000 GFWTPSW EQU GFBITS+0 00599000 @NM00006 EQU GFBITS+0 00600000 ORG GFPARMS+15 00601000 @NM00007 DS AL1 00602000 GFCPPLP DS AL4 00603000 GFECBP DS AL4 00604000 GFDSNLEN DS FL2 00605000 GFPGMNL DS FL2 00606000 GFDSNP DS AL4 00607000 GFPGMNP DS AL4 00608000 @NM00008 DS AL4 00609000 @NM00009 DS AL4 00610000 ORG GFPARMS+44 00611000 PARMLIST DS CL20 00612000 ORG PARMLIST 00613000 JOBLISTP DS AL4 00614000 NUMJOBSP DS AL4 00615000 SWITPTR DS AL4 00616000 MSGRTNPT DS AL4 00617000 MSGPTR DS AL4 00618000 ORG MSGPTR 00619000 PTHIGH DS BL1 00620000 ORG PARMLIST+20 00621000 MSGTABLE DS CL64 00622000 ORG MSGTABLE 00623000 LISTPTR DS AL4 00624000 TMCTPTR DS AL4 00625000 ORG TMCTPTR 00626000 MTCPPL DS AL4 00627000 ORG MSGTABLE+8 00628000 ECBPTR DS AL4 00629000 @NM00011 DS AL4 00630000 ORG @NM00011 00631000 MTHIGH DS BL1 00632000 ORG MSGTABLE+16 00633000 MSGCSECT DS AL4 00634000 SW DS AL1 00635000 ORG SW 00636000 MTNOIDSW DS BL1 00637000 MTPUTLSW EQU SW+0 00638000 MTWTOSW EQU SW+0 00639000 MTHEXSW EQU SW+0 00640000 MTKEY1SW EQU SW+0 00641000 MTJOBISW EQU SW+0 00642000 MTWTPSW EQU SW+0 00643000 MTNHEXSW EQU SW+0 00644000 ORG MSGTABLE+21 00645000 RETMSG DS AL3 00646000 SW2 DS AL1 00647000 ORG SW2 00648000 MT2OLDSW DS BL1 00649000 MTDOMSW EQU SW2+0 00650000 @NM00012 EQU SW2+0 00651000 ORG MSGTABLE+25 00652000 @NM00013 DS AL3 00653000 MTOLDPTR DS AL4 00654000 @NM00014 DS AL4 00655000 @NM00015 DS AL4 00656000 MSGID DS CL4 00657000 MTINSRTS DS CL16 00658000 ORG MTINSRTS 00659000 L1 DS AL1 00660000 ORG L1 00661000 HIGHL1 DS BL1 00662000 ORG MTINSRTS+1 00663000 VAR1 DS AL3 00664000 L2 DS AL1 00665000 ORG L2 00666000 HIGHL2 DS BL1 00667000 ORG MTINSRTS+5 00668000 VAR2 DS AL3 00669000 L3 DS AL1 00670000 ORG L3 00671000 HIGHL3 DS BL1 00672000 ORG MTINSRTS+9 00673000 VAR3 DS AL3 00674000 L4 DS AL1 00675000 ORG L4 00676000 HIGHL4 DS BL1 00677000 ORG MTINSRTS+13 00678000 VAR4 DS AL3 00679000 ORG MSGTABLE+60 00680000 MSGRTN DS AL4 00681000 ORG MSGTABLE+64 00682000 PPLLN DS CL28 00683000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00684000 @ENDDATD EQU * 00685000 IKJEFF57 CSECT 00686000 DS 0F 00687000 @SIZDATD DC AL1(0) 00688000 DC AL3(@ENDDATD-@DATD) 00689000 @CV00823 DC V(IKJEFF4A) 00690000 DS 0D 00691000 PATCH DS CL51 00692000 ORG PATCH 00693000 PTCHINIT DC 17CL3'ZAP' 00694000 ORG PATCH+51 00695000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00696000 @01 EQU 01 00697000 @02 EQU 02 00698000 @03 EQU 03 00699000 @04 EQU 04 00700000 @05 EQU 05 00701000 @06 EQU 06 00702000 @07 EQU 07 00703000 @08 EQU 08 00704000 @09 EQU 09 00705000 @10 EQU 10 00706000 @11 EQU 11 00707000 @12 EQU 12 00708000 @13 EQU 13 00709000 @14 EQU 14 00710000 @15 EQU 15 00711000 K EQU @02 00712000 SAVELIST EQU @07 00713000 CTR EQU @08 00714000 RETCODE EQU @05 00715000 PDEPTR EQU @03 00716000 PPLPTR EQU @05 00717000 FIBCMPTR EQU @06 00718000 R0 EQU @00 00719000 R1 EQU @01 00720000 R15 EQU @15 00721000 GPR01P EQU @01 00722000 GPR00F EQU @00 00723000 GPR00P EQU @00 00724000 GPR01F EQU @01 00725000 GPR14F EQU @14 00726000 GPR14P EQU @14 00727000 GPR15F EQU @15 00728000 GPR15P EQU @15 00729000 CVTPTR EQU 16 00730000 CVTMAP EQU 0 00731000 CVTDAR EQU CVTMAP+72 00732000 CVTFLGS1 EQU CVTDAR 00733000 CVTDCB EQU CVTMAP+116 00734000 CVTIERLC EQU CVTMAP+144 00735000 CVTOPTA EQU CVTMAP+182 00736000 CVTOPTB EQU CVTMAP+183 00737000 CVTGTF EQU CVTMAP+236 00738000 CVTGTFST EQU CVTGTF 00739000 CVTGTFS EQU CVTGTFST 00740000 CVTSTATE EQU CVTGTFST 00741000 CVTTMODE EQU CVTGTFST 00742000 CVTFORM EQU CVTGTFST 00743000 CVTUSR EQU CVTGTFST 00744000 CVTAQAVT EQU CVTMAP+240 00745000 CVTTCMFG EQU CVTAQAVT 00746000 CVTVOLM2 EQU CVTMAP+244 00747000 CVTTATA EQU CVTVOLM2 00748000 CVTTSKS EQU CVTTATA 00749000 CVTVOLF2 EQU CVTTSKS 00750000 CVTTAT EQU CVTTATA+1 00751000 CVTATER EQU CVTMAP+248 00752000 CVTEXT1 EQU CVTMAP+252 00753000 CVTPURG EQU CVTMAP+260 00754000 CVTQMSG EQU CVTMAP+268 00755000 CVTDMSR EQU CVTMAP+272 00756000 CVTERPV EQU CVTMAP+316 00757000 CVTINTLA EQU CVTMAP+320 00758000 CVTAPF EQU CVTMAP+324 00759000 CVTEXT2 EQU CVTMAP+328 00760000 CVTHJES EQU CVTMAP+332 00761000 CVTPGSIA EQU CVTMAP+348 00762000 CVTA1F1 EQU CVTMAP+356 00763000 CVTSYSK EQU CVTMAP+357 00764000 CVTVOLM1 EQU CVTMAP+380 00765000 CVTVOLF1 EQU CVTVOLM1 00766000 CVTATMCT EQU CVTMAP+388 00767000 CVTXTNT1 EQU 0 00768000 CVTXTNT2 EQU 0 00769000 CVTDSSV EQU CVTXTNT2 00770000 CVTRSV90 EQU CVTXTNT2+5 00771000 CVTQID EQU CVTXTNT2+24 00772000 CVTRV400 EQU CVTXTNT2+52 00773000 CVTRV409 EQU CVTXTNT2+53 00774000 CVTATCVT EQU CVTXTNT2+64 00775000 CVTRV429 EQU CVTXTNT2+84 00776000 CVTRV438 EQU CVTXTNT2+85 00777000 CVTRV457 EQU CVTXTNT2+112 00778000 CVTRV466 EQU CVTXTNT2+113 00779000 CVTFIX EQU 0 00780000 CVTRELNO EQU CVTFIX+252 00781000 FIBCPARM EQU 0 00782000 FIBCPPLC EQU FIBCPARM+12 00783000 FIBCPPLU EQU FIBCPARM+16 00784000 FIBCPPLE EQU FIBCPARM+24 00785000 FIBFLAGS EQU FIBCPARM+36 00786000 JOBLIST EQU 0 00787000 LEN1 EQU JOBLIST 00788000 JOBNMID EQU JOBLIST+1 00789000 RET EQU 0 00790000 PPL EQU 0 00791000 PPLUPT EQU PPL 00792000 PPLECT EQU PPL+4 00793000 PPLECB EQU PPL+8 00794000 PPLPCL EQU PPL+12 00795000 PPLANS EQU PPL+16 00796000 PPLCBUF EQU PPL+20 00797000 PPLUWA EQU PPL+24 00798000 IKJEFF19 EQU 0 00799000 PDE EQU 0 00800000 JOBNAMEP EQU PDE 00801000 NAMELEN EQU PDE+4 00802000 PARSESW EQU PDE+6 00803000 JOBIDP EQU PDE+8 00804000 JOBIDLN EQU PDE+12 00805000 FLAG EQU PDE+14 00806000 PRESENT EQU FLAG 00807000 LAST EQU PDE+16 00808000 CHAINPTR EQU LAST+1 00809000 PURGEPDE EQU 0 00810000 JOBNAME EQU 0 00811000 JOBID EQU 0 00812000 IKEBC EQU 0 00813000 IKEBF15 EQU 0 00814000 IKEBF31 EQU 0 00815000 IKEBP15 EQU 0 00816000 IKEBP31 EQU 0 00817000 IKEBP8 EQU 0 00818000 IKJEFF02 EQU 0 00819000 MSGECB EQU 0 00820000 MSGTMCT EQU 0 00821000 FIBPARML EQU 0 00822000 CVTS01 EQU CVTPGSIA 00823000 CVTLPDIA EQU CVTS01+12 00824000 CVTDIRST EQU CVTLPDIA 00825000 CVTSLIDA EQU CVTS01+24 00826000 CVTCTLFG EQU CVTS01+50 00827000 CVTPARS EQU CVTS01+176 00828000 CVTRV210 EQU CVTS01+424 00829000 CVTRV219 EQU CVTS01+425 00830000 CVTRV228 EQU CVTS01+426 00831000 CVTRV237 EQU CVTS01+427 00832000 CVTMFRTR EQU CVTS01+452 00833000 CVTRV262 EQU CVTS01+468 00834000 CVTRV271 EQU CVTS01+469 00835000 CVTRV280 EQU CVTS01+470 00836000 CVTRV289 EQU CVTS01+471 00837000 CVTGSDA EQU CVTS01+600 00838000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00839000 CVTTPIO EQU CVTS01+608 00840000 CVTADV EQU CVTS01+604 00841000 CVTGSDAB EQU CVTGSDA 00842000 CVTQV3 EQU CVTS01+596 00843000 CVTQV2 EQU CVTS01+592 00844000 CVTQV1 EQU CVTS01+588 00845000 CVTRPT EQU CVTS01+584 00846000 CVTSSRB EQU CVTS01+580 00847000 CVTCSDRL EQU CVTS01+576 00848000 CVTEXP1 EQU CVTS01+572 00849000 CVTRMPMT EQU CVTS01+568 00850000 CVTRMPTT EQU CVTS01+564 00851000 CVTVPSA EQU CVTS01+560 00852000 CVTVSTOP EQU CVTS01+556 00853000 CVTGTFR8 EQU CVTS01+552 00854000 CVTQUIT EQU CVTS01+548 00855000 CVTVACR EQU CVTS01+544 00856000 CVTWTCB EQU CVTS01+540 00857000 CVTSTPRS EQU CVTS01+536 00858000 CVT0PT02 EQU CVTS01+532 00859000 CVTDARCM EQU CVTS01+528 00860000 CVTIRECM EQU CVTS01+524 00861000 CVTJRECM EQU CVTS01+520 00862000 CVTVEMS0 EQU CVTS01+516 00863000 CVTSPFRR EQU CVTS01+512 00864000 CVTRLSTG EQU CVTS01+508 00865000 CVT0TC0A EQU CVTS01+504 00866000 CVTGMBR EQU CVTS01+500 00867000 CVTLFRM EQU CVTS01+496 00868000 CVTRMBR EQU CVTS01+492 00869000 CVTVIOP EQU CVTS01+488 00870000 CVTRV307 EQU CVTS01+486 00871000 CVTRV306 EQU CVTS01+484 00872000 CVTRV305 EQU CVTS01+482 00873000 CVTRV304 EQU CVTS01+480 00874000 CVTRV303 EQU CVTS01+478 00875000 CVTRV302 EQU CVTS01+476 00876000 CVTRV301 EQU CVTS01+475 00877000 CVTRV300 EQU CVTS01+474 00878000 CVTRV299 EQU CVTS01+473 00879000 CVTRV298 EQU CVTS01+472 00880000 CVTRV297 EQU CVTRV289 00881000 CVTRV296 EQU CVTRV289 00882000 CVTRV295 EQU CVTRV289 00883000 CVTRV294 EQU CVTRV289 00884000 CVTRV293 EQU CVTRV289 00885000 CVTRV292 EQU CVTRV289 00886000 CVTRV291 EQU CVTRV289 00887000 CVTRV290 EQU CVTRV289 00888000 CVTRV288 EQU CVTRV280 00889000 CVTRV287 EQU CVTRV280 00890000 CVTRV286 EQU CVTRV280 00891000 CVTRV285 EQU CVTRV280 00892000 CVTRV284 EQU CVTRV280 00893000 CVTRV283 EQU CVTRV280 00894000 CVTRV282 EQU CVTRV280 00895000 CVTRV281 EQU CVTRV280 00896000 CVTRV279 EQU CVTRV271 00897000 CVTRV278 EQU CVTRV271 00898000 CVTRV277 EQU CVTRV271 00899000 CVTRV276 EQU CVTRV271 00900000 CVTRV275 EQU CVTRV271 00901000 CVTRV274 EQU CVTRV271 00902000 CVTRV273 EQU CVTRV271 00903000 CVTRV272 EQU CVTRV271 00904000 CVTRV270 EQU CVTRV262 00905000 CVTRV269 EQU CVTRV262 00906000 CVTRV268 EQU CVTRV262 00907000 CVTRV267 EQU CVTRV262 00908000 CVTRV266 EQU CVTRV262 00909000 CVTRV265 EQU CVTRV262 00910000 CVTRV264 EQU CVTRV262 00911000 CVTRV263 EQU CVTRV262 00912000 CVTVFP EQU CVTS01+464 00913000 CVTVSI EQU CVTS01+460 00914000 CVTVPSIB EQU CVTS01+456 00915000 CVTMFACT EQU CVTMFRTR 00916000 CVTMFCTL EQU CVTS01+448 00917000 CVTPVBP EQU CVTS01+444 00918000 CVTPWI EQU CVTS01+440 00919000 CVTRV254 EQU CVTS01+438 00920000 CVTRV253 EQU CVTS01+436 00921000 CVTRV252 EQU CVTS01+434 00922000 CVTRV251 EQU CVTS01+433 00923000 CVTRV250 EQU CVTS01+432 00924000 CVTRV249 EQU CVTS01+431 00925000 CVTRV248 EQU CVTS01+430 00926000 CVTRV247 EQU CVTS01+429 00927000 CVTRV246 EQU CVTS01+428 00928000 CVTRV245 EQU CVTRV237 00929000 CVTRV244 EQU CVTRV237 00930000 CVTRV243 EQU CVTRV237 00931000 CVTRV242 EQU CVTRV237 00932000 CVTRV241 EQU CVTRV237 00933000 CVTRV240 EQU CVTRV237 00934000 CVTRV239 EQU CVTRV237 00935000 CVTRV238 EQU CVTRV237 00936000 CVTRV236 EQU CVTRV228 00937000 CVTRV235 EQU CVTRV228 00938000 CVTRV234 EQU CVTRV228 00939000 CVTRV233 EQU CVTRV228 00940000 CVTRV232 EQU CVTRV228 00941000 CVTRV231 EQU CVTRV228 00942000 CVTRV230 EQU CVTRV228 00943000 CVTRV229 EQU CVTRV228 00944000 CVTRV227 EQU CVTRV219 00945000 CVTRV226 EQU CVTRV219 00946000 CVTRV225 EQU CVTRV219 00947000 CVTRV224 EQU CVTRV219 00948000 CVTRV223 EQU CVTRV219 00949000 CVTRV222 EQU CVTRV219 00950000 CVTRV221 EQU CVTRV219 00951000 CVTRV220 EQU CVTRV219 00952000 CVTRV218 EQU CVTRV210 00953000 CVTRV217 EQU CVTRV210 00954000 CVTRV216 EQU CVTRV210 00955000 CVTRV215 EQU CVTRV210 00956000 CVTRV214 EQU CVTRV210 00957000 CVTRV213 EQU CVTRV210 00958000 CVTRV212 EQU CVTRV210 00959000 CVTRV211 EQU CVTRV210 00960000 CVTLCCAT EQU CVTS01+420 00961000 CVTPCCAT EQU CVTS01+416 00962000 CVTIPCRP EQU CVTS01+412 00963000 CVTIPCRI EQU CVTS01+408 00964000 CVTIPCDS EQU CVTS01+404 00965000 CVTAIDVT EQU CVTS01+400 00966000 CVTSSAP EQU CVTS01+396 00967000 CVTEHCIR EQU CVTS01+392 00968000 CVTEHDEF EQU CVTS01+388 00969000 CVTDAIR EQU CVTS01+384 00970000 CVTPERFM EQU CVTS01+380 00971000 CVT044R2 EQU CVTS01+376 00972000 CVTFETCH EQU CVTS01+372 00973000 CVTRSTWD EQU CVTS01+368 00974000 CVTSPOST EQU CVTS01+364 00975000 CVTIOBP EQU CVTS01+360 00976000 CVTASMVT EQU CVTS01+356 00977000 CVTRECRQ EQU CVTS01+352 00978000 CVTWSAC EQU CVTS01+348 00979000 CVTRV149 EQU CVTS01+344 00980000 CVTWSAL EQU CVTS01+340 00981000 CVTSPSA EQU CVTS01+336 00982000 CVTGLMN EQU CVTS01+332 00983000 CVTVEAC0 EQU CVTS01+328 00984000 CVT062R1 EQU CVTS01+324 00985000 CVTRPOST EQU CVTS01+320 00986000 CVTDQIQE EQU CVTS01+316 00987000 CVTCSD EQU CVTS01+312 00988000 CVTLKRMA EQU CVTS01+308 00989000 CVTRSPIE EQU CVTS01+304 00990000 CVTRENQ EQU CVTS01+300 00991000 CVTLQCB EQU CVTS01+296 00992000 CVTFQCB EQU CVTS01+292 00993000 CVTQCS01 EQU CVTS01+288 00994000 CVTAPFT EQU CVTS01+284 00995000 CVTPARRL EQU CVTS01+280 00996000 CVTVWAIT EQU CVTS01+276 00997000 CVTGSPL EQU CVTS01+272 00998000 CVTLSMQ EQU CVTS01+268 00999000 CVTGSMQ EQU CVTS01+264 01000000 CVTEXPRO EQU CVTS01+260 01001000 CVTOPCTP EQU CVTS01+256 01002000 CVTSIC EQU CVTS01+252 01003000 CVTTPIOS EQU CVTS01+248 01004000 CVTRTMS EQU CVTS01+244 01005000 CVTSDBF EQU CVTS01+240 01006000 CVTSCBP EQU CVTS01+236 01007000 CVTSDMP EQU CVTS01+232 01008000 CVTSV60 EQU CVTS01+228 01009000 CVTRTMCT EQU CVTS01+224 01010000 CVTASCBL EQU CVTS01+220 01011000 CVTASCBH EQU CVTS01+216 01012000 CVTGDA EQU CVTS01+212 01013000 CVTASVT EQU CVTS01+208 01014000 CVTVVMDI EQU CVTS01+204 01015000 CVTAQTOP EQU CVTS01+200 01016000 CVTIOSCS EQU CVTS01+196 01017000 CVTSDRM EQU CVTS01+192 01018000 CVTOPTE EQU CVTS01+188 01019000 CVTSTXU EQU CVTS01+184 01020000 CVTQUIS EQU CVTS01+180 01021000 CVTS1EE EQU CVTS01+172 01022000 CVTFRAS EQU CVTS01+168 01023000 CVTQSAS EQU CVTS01+164 01024000 CVTCRAS EQU CVTS01+160 01025000 CVTCRMN EQU CVTS01+156 01026000 CVTDELCP EQU CVTS01+152 01027000 CVTFRECL EQU CVTS01+148 01028000 CVTGETCL EQU CVTS01+144 01029000 CVTBLDCP EQU CVTS01+140 01030000 CVTAUTHL EQU CVTS01+136 01031000 CVTSCAN EQU CVTS01+132 01032000 CVTRV144 EQU CVTS01+130 01033000 CVTMAXMP EQU CVTS01+128 01034000 CVTSTCK EQU CVTS01+124 01035000 CVTRV139 EQU CVTS01+123 01036000 CVTDSSAC EQU CVTS01+122 01037000 CVTRV513 EQU CVTS01+121 01038000 CVTIOSPL EQU CVTS01+120 01039000 CVTPTGT EQU CVTS01+116 01040000 CVTCSPIE EQU CVTS01+112 01041000 CVTSMFEX EQU CVTS01+108 01042000 CVTOLT0A EQU CVTS01+104 01043000 CVTSRBRT EQU CVTS01+100 01044000 CVTPUTL EQU CVTS01+96 01045000 CVTRV519 EQU CVTS01+92 01046000 CVTRV327 EQU CVTS01+88 01047000 CVTRV326 EQU CVTS01+84 01048000 CVTRV325 EQU CVTS01+80 01049000 CVTRV324 EQU CVTS01+76 01050000 CVT0VL01 EQU CVTS01+72 01051000 CVTSHRVM EQU CVTS01+68 01052000 CVTRV332 EQU CVTS01+64 01053000 CVTTAS EQU CVTS01+60 01054000 CVTRSCN EQU CVTS01+56 01055000 CVTTRAC2 EQU CVTS01+54 01056000 CVTTRACE EQU CVTS01+52 01057000 CVTAPG EQU CVTS01+51 01058000 CVTSDTRC EQU CVTCTLFG 01059000 CVTGTRCE EQU CVTCTLFG 01060000 CVTNOMP EQU CVTCTLFG 01061000 CVTRSV79 EQU CVTCTLFG 01062000 CVTDSTAT EQU CVTCTLFG 01063000 CVTRSV78 EQU CVTCTLFG 01064000 CVTRV333 EQU CVTCTLFG 01065000 CVTRV323 EQU CVTCTLFG 01066000 CVTSPVLK EQU CVTS01+49 01067000 CVTRSV77 EQU CVTS01+48 01068000 CVTRV331 EQU CVTS01+44 01069000 CVTRV330 EQU CVTS01+40 01070000 CVTRV329 EQU CVTS01+36 01071000 CVTRV328 EQU CVTS01+32 01072000 CVTRV322 EQU CVTS01+28 01073000 CVTSLID EQU CVTSLIDA+1 01074000 CVTSYLK EQU CVTSLIDA 01075000 CVTRV321 EQU CVTS01+20 01076000 CVTRV320 EQU CVTS01+16 01077000 CVTLPDIR EQU CVTLPDIA+1 01078000 CVTRSV69 EQU CVTDIRST 01079000 CVTRSV68 EQU CVTDIRST 01080000 CVTRSV67 EQU CVTDIRST 01081000 CVTRSV66 EQU CVTDIRST 01082000 CVTRSV65 EQU CVTDIRST 01083000 CVTRSV64 EQU CVTDIRST 01084000 CVTRSV63 EQU CVTDIRST 01085000 CVTDICOM EQU CVTDIRST 01086000 CVTPVTP EQU CVTS01+8 01087000 CVTLPDSR EQU CVTS01+4 01088000 CVTGETL EQU CVTS01 01089000 @NM00019 EQU LAST 01090000 @NM00018 EQU PDE+15 01091000 @NM00017 EQU PDE+7 01092000 @NM00016 EQU PARSESW 01093000 RETCHAR EQU RET+2 01094000 RETSIZE EQU RET 01095000 FIBCMDBF EQU FIBCPARM+52 01096000 @NM00005 EQU FIBCPARM+48 01097000 @NM00004 EQU FIBCPARM+44 01098000 FIBCUSER EQU FIBCPARM+40 01099000 @NM00003 EQU FIBCPARM+38 01100000 FIBECTNO EQU FIBFLAGS 01101000 FIBECTCN EQU FIBCPARM+28 01102000 FIBCPPLP EQU FIBCPARM+20 01103000 FIBPSCBL EQU FIBCPARM+11 01104000 FIBPSCBU EQU FIBCPARM+4 01105000 FIBCID EQU FIBCPARM+2 01106000 FIBCLEN EQU FIBCPARM 01107000 CVTLEVL EQU CVTRELNO+2 01108000 CVTNUMB EQU CVTRELNO 01109000 CVTMDL EQU CVTFIX+250 01110000 @NM00002 EQU CVTFIX+248 01111000 @NM00001 EQU CVTFIX 01112000 CVTRV482 EQU CVTXTNT2+128 01113000 CVTRV481 EQU CVTXTNT2+124 01114000 CVTRV480 EQU CVTXTNT2+120 01115000 CVTRV479 EQU CVTXTNT2+118 01116000 CVTRV478 EQU CVTXTNT2+117 01117000 CVTRV477 EQU CVTXTNT2+116 01118000 CVTRV476 EQU CVTXTNT2+115 01119000 CVTRV475 EQU CVTXTNT2+114 01120000 CVTRV474 EQU CVTRV466 01121000 CVTRV473 EQU CVTRV466 01122000 CVTRV472 EQU CVTRV466 01123000 CVTRV471 EQU CVTRV466 01124000 CVTRV470 EQU CVTRV466 01125000 CVTRV469 EQU CVTRV466 01126000 CVTRV468 EQU CVTRV466 01127000 CVTRV467 EQU CVTRV466 01128000 CVTRV465 EQU CVTRV457 01129000 CVTRV464 EQU CVTRV457 01130000 CVTRV463 EQU CVTRV457 01131000 CVTRV462 EQU CVTRV457 01132000 CVTRV461 EQU CVTRV457 01133000 CVTRV460 EQU CVTRV457 01134000 CVTRV459 EQU CVTRV457 01135000 CVTRV458 EQU CVTRV457 01136000 CVTRV456 EQU CVTXTNT2+108 01137000 CVTRV455 EQU CVTXTNT2+104 01138000 CVTRV454 EQU CVTXTNT2+100 01139000 CVTRV453 EQU CVTXTNT2+96 01140000 CVTRV452 EQU CVTXTNT2+94 01141000 CVTRV451 EQU CVTXTNT2+92 01142000 CVTRV450 EQU CVTXTNT2+90 01143000 CVTRV449 EQU CVTXTNT2+88 01144000 CVTRV448 EQU CVTXTNT2+87 01145000 CVTRV447 EQU CVTXTNT2+86 01146000 CVTRV446 EQU CVTRV438 01147000 CVTRV445 EQU CVTRV438 01148000 CVTRV444 EQU CVTRV438 01149000 CVTRV443 EQU CVTRV438 01150000 CVTRV442 EQU CVTRV438 01151000 CVTRV441 EQU CVTRV438 01152000 CVTRV440 EQU CVTRV438 01153000 CVTRV439 EQU CVTRV438 01154000 CVTRV437 EQU CVTRV429 01155000 CVTRV436 EQU CVTRV429 01156000 CVTRV435 EQU CVTRV429 01157000 CVTRV434 EQU CVTRV429 01158000 CVTRV433 EQU CVTRV429 01159000 CVTRV432 EQU CVTRV429 01160000 CVTRV431 EQU CVTRV429 01161000 CVTRV430 EQU CVTRV429 01162000 CVTRV428 EQU CVTXTNT2+80 01163000 CVTRV427 EQU CVTXTNT2+76 01164000 CVTRV426 EQU CVTXTNT2+72 01165000 CVTRV425 EQU CVTXTNT2+68 01166000 CVTATACT EQU CVTATCVT 01167000 CVTRV423 EQU CVTXTNT2+62 01168000 CVTRV422 EQU CVTXTNT2+60 01169000 CVTRV421 EQU CVTXTNT2+58 01170000 CVTRV420 EQU CVTXTNT2+56 01171000 CVTRV419 EQU CVTXTNT2+55 01172000 CVTRV418 EQU CVTXTNT2+54 01173000 CVTRV417 EQU CVTRV409 01174000 CVTRV416 EQU CVTRV409 01175000 CVTRV415 EQU CVTRV409 01176000 CVTRV414 EQU CVTRV409 01177000 CVTRV413 EQU CVTRV409 01178000 CVTRV412 EQU CVTRV409 01179000 CVTRV411 EQU CVTRV409 01180000 CVTRV410 EQU CVTRV409 01181000 CVTRV408 EQU CVTRV400 01182000 CVTRV407 EQU CVTRV400 01183000 CVTRV406 EQU CVTRV400 01184000 CVTRV405 EQU CVTRV400 01185000 CVTRV404 EQU CVTRV400 01186000 CVTRV403 EQU CVTRV400 01187000 CVTRV402 EQU CVTRV400 01188000 CVTRV401 EQU CVTRV400 01189000 CVTRSVA1 EQU CVTXTNT2+48 01190000 CVTRSVA0 EQU CVTXTNT2+44 01191000 CVTRSV99 EQU CVTXTNT2+40 01192000 CVTRSV98 EQU CVTXTNT2+36 01193000 CVTRSV97 EQU CVTXTNT2+34 01194000 CVTRSV96 EQU CVTXTNT2+32 01195000 CVTOLTEP EQU CVTXTNT2+28 01196000 CVTQIDA EQU CVTQID+1 01197000 CVTRSV95 EQU CVTQID 01198000 CVTRSV94 EQU CVTXTNT2+20 01199000 CVTRSV93 EQU CVTXTNT2+16 01200000 CVTRSV92 EQU CVTXTNT2+12 01201000 CVTDEBVR EQU CVTXTNT2+8 01202000 CVTRSV91 EQU CVTXTNT2+6 01203000 CVTRSV9H EQU CVTRSV90 01204000 CVTRSV9G EQU CVTRSV90 01205000 CVTRSV9F EQU CVTRSV90 01206000 CVTRSV9E EQU CVTRSV90 01207000 CVTRSV9D EQU CVTRSV90 01208000 CVTRSV9C EQU CVTRSV90 01209000 CVTRSV9B EQU CVTRSV90 01210000 CVTRSV9A EQU CVTRSV90 01211000 CVTNUCLS EQU CVTXTNT2+4 01212000 CVTDSSVA EQU CVTDSSV+1 01213000 CVTRSV89 EQU CVTDSSV 01214000 CVTRSV88 EQU CVTXTNT1+8 01215000 CVTRSV87 EQU CVTXTNT1+4 01216000 CVTFACHN EQU CVTXTNT1 01217000 CVTRV488 EQU CVTMAP+412 01218000 CVTRV487 EQU CVTMAP+408 01219000 CVTRV486 EQU CVTMAP+404 01220000 CVTRV485 EQU CVTMAP+400 01221000 CVTRV484 EQU CVTMAP+396 01222000 CVTAUTH EQU CVTMAP+392 01223000 CVTATMCA EQU CVTATMCT+1 01224000 CVTATMST EQU CVTATMCT 01225000 CVTRSV61 EQU CVTMAP+384 01226000 CVTVOLT1 EQU CVTVOLM1+1 01227000 CVTVOLI1 EQU CVTVOLF1 01228000 CVTSTOA EQU CVTMAP+376 01229000 CVTRSV58 EQU CVTMAP+374 01230000 CVTRSV57 EQU CVTMAP+372 01231000 CVTDDCE EQU CVTMAP+368 01232000 CVTPNWFR EQU CVTMAP+364 01233000 CVTSMF EQU CVTMAP+360 01234000 CVTSULK EQU CVTMAP+358 01235000 CVTSLKO EQU CVTSYSK 01236000 CVTSLKP EQU CVTSYSK 01237000 CVTSLKQ EQU CVTSYSK 01238000 CVTSLKR EQU CVTSYSK 01239000 CVTRSV56 EQU CVTSYSK 01240000 CVTRSV55 EQU CVTSYSK 01241000 CVTRSV54 EQU CVTSYSK 01242000 CVTRSV53 EQU CVTSYSK 01243000 CVTRSV52 EQU CVTA1F1 01244000 CVTRSV51 EQU CVTA1F1 01245000 CVTRSV50 EQU CVTA1F1 01246000 CVTRSV49 EQU CVTA1F1 01247000 CVTRSV48 EQU CVTA1F1 01248000 CVTRSV47 EQU CVTA1F1 01249000 CVTSRSW EQU CVTA1F1 01250000 CVTPFSW EQU CVTA1F1 01251000 CVTPCVT EQU CVTMAP+352 01252000 CVTRSV46 EQU CVTMAP+344 01253000 CVTRSV45 EQU CVTMAP+340 01254000 CVTRSV44 EQU CVTMAP+338 01255000 CVTRSV43 EQU CVTMAP+336 01256000 CVTHJESA EQU CVTHJES+1 01257000 CVTRSV42 EQU CVTHJES 01258000 CVTEXT2A EQU CVTEXT2+1 01259000 CVTRSV41 EQU CVTEXT2 01260000 CVTAPFA EQU CVTAPF+1 01261000 CVTRSV40 EQU CVTAPF 01262000 CVTRV518 EQU CVTINTLA 01263000 CVTRV517 EQU CVTERPV 01264000 CVTEORM EQU CVTMAP+312 01265000 CVTMCHPR EQU CVTMAP+308 01266000 CVTTZ EQU CVTMAP+304 01267000 CVTJEPS EQU CVTMAP+300 01268000 CVTJESCT EQU CVTMAP+296 01269000 CVTMODE EQU CVTMAP+292 01270000 CVTPTRV EQU CVTMAP+288 01271000 CVTREAL EQU CVTMAP+284 01272000 CVTRSV39 EQU CVTMAP+280 01273000 CVTRSV38 EQU CVTMAP+276 01274000 CVTDMSRA EQU CVTDMSR+1 01275000 CVTRSV37 EQU CVTDMSR 01276000 CVTQMSGA EQU CVTQMSG+1 01277000 CVTRSV36 EQU CVTQMSG 01278000 CVTAMFF EQU CVTMAP+264 01279000 CVTPURGA EQU CVTPURG+1 01280000 CVTRSV35 EQU CVTPURG 01281000 CVTCBSP EQU CVTMAP+256 01282000 CVTATERA EQU CVTATER+1 01283000 CVTSYST EQU CVTATER 01284000 CVTVOLT2 EQU CVTTAT 01285000 CVTVOLI2 EQU CVTVOLF2 01286000 CVTAQAVB EQU CVTAQAVT+1 01287000 CVTRSV34 EQU CVTTCMFG 01288000 CVTRSV33 EQU CVTTCMFG 01289000 CVTRSV32 EQU CVTTCMFG 01290000 CVTRSV31 EQU CVTTCMFG 01291000 CVTRSV30 EQU CVTTCMFG 01292000 CVTRSV29 EQU CVTTCMFG 01293000 CVTRSV28 EQU CVTTCMFG 01294000 CVTTCRDY EQU CVTTCMFG 01295000 CVTGTFA EQU CVTGTF+1 01296000 CVTRSV27 EQU CVTGTFST 01297000 CVTRNIO EQU CVTGTFST 01298000 CVTRV319 EQU CVTUSR 01299000 CVTRV318 EQU CVTFORM 01300000 CVTRV317 EQU CVTTMODE 01301000 CVTRV316 EQU CVTSTATE 01302000 CVTRV315 EQU CVTGTFS 01303000 CVTGTFAV EQU CVTGTFS 01304000 CVT0SCR1 EQU CVTMAP+232 01305000 CVTRV515 EQU CVTMAP+228 01306000 CVTRMS EQU CVTMAP+224 01307000 CVTPATCH EQU CVTMAP+220 01308000 CVTTSCE EQU CVTMAP+216 01309000 CVTLNKSC EQU CVTMAP+214 01310000 CVTQABST EQU CVTMAP+212 01311000 CVTMDLDS EQU CVTMAP+208 01312000 CVTUSER EQU CVTMAP+204 01313000 CVTABEND EQU CVTMAP+200 01314000 CVTSMCA EQU CVTMAP+196 01315000 CVTRSV18 EQU CVTMAP+192 01316000 CVTQLPAQ EQU CVTMAP+188 01317000 CVTQCDSR EQU CVTMAP+184 01318000 CVTRSV17 EQU CVTOPTB 01319000 CVTRSV16 EQU CVTOPTB 01320000 CVTFP EQU CVTOPTB 01321000 CVTAPTHR EQU CVTOPTB 01322000 CVTNLOG EQU CVTOPTB 01323000 CVTTOD EQU CVTOPTB 01324000 CVTCTIMS EQU CVTOPTB 01325000 CVTPROT EQU CVTOPTB 01326000 CVTXPFP EQU CVTOPTA 01327000 CVTASCII EQU CVTOPTA 01328000 CVTRSV13 EQU CVTOPTA 01329000 CVTRSV12 EQU CVTOPTA 01330000 CVTNIP EQU CVTOPTA 01331000 CVTDDR EQU CVTOPTA 01332000 CVTAPR EQU CVTOPTA 01333000 CVTCCH EQU CVTOPTA 01334000 CVTSNCTR EQU CVTMAP+180 01335000 CVTQMWR EQU CVTMAP+176 01336000 CVTQOCR EQU CVTMAP+172 01337000 CVT1EF00 EQU CVTMAP+168 01338000 CVTMZ00 EQU CVTMAP+164 01339000 CVTHEAD EQU CVTMAP+160 01340000 CVTRSV11 EQU CVTMAP+156 01341000 CVT0PT01 EQU CVTMAP+152 01342000 CVTMSER EQU CVTMAP+148 01343000 CVTRV516 EQU CVTIERLC 01344000 CVTILCH EQU CVTMAP+140 01345000 CVT0DS EQU CVTMAP+136 01346000 CVTFBOSV EQU CVTMAP+132 01347000 CVTNUCB EQU CVTMAP+128 01348000 CVTIXAVL EQU CVTMAP+124 01349000 CVTIOQET EQU CVTMAP+120 01350000 CVTDCBA EQU CVTMAP+117 01351000 CVTMVS2 EQU CVTDCB 01352000 CVT6DAT EQU CVTDCB 01353000 CVT4MPS EQU CVTDCB 01354000 CVTRSV09 EQU CVTDCB 01355000 CVT4MS1 EQU CVTDCB 01356000 CVT2SPS EQU CVTDCB 01357000 CVT1SSS EQU CVTDCB 01358000 CVTRSV08 EQU CVTDCB 01359000 CVTSTB EQU CVTMAP+112 01360000 CVTQTD00 EQU CVTMAP+108 01361000 CVTQTE00 EQU CVTMAP+104 01362000 CVTCUCB EQU CVTMAP+100 01363000 CVTSJQ EQU CVTMAP+96 01364000 CVTPBLDL EQU CVTMAP+92 01365000 CVTTPC EQU CVTMAP+88 01366000 CVTSVDCB EQU CVTMAP+84 01367000 CVTBRET EQU CVTMAP+82 01368000 CVTEXIT EQU CVTMAP+80 01369000 CVT0FN00 EQU CVTMAP+76 01370000 CVTDARA EQU CVTDAR+1 01371000 CVTRSV07 EQU CVTFLGS1 01372000 CVTRSV06 EQU CVTFLGS1 01373000 CVTRSV05 EQU CVTFLGS1 01374000 CVTRSV04 EQU CVTFLGS1 01375000 CVTRSV03 EQU CVTFLGS1 01376000 CVTRSV02 EQU CVTFLGS1 01377000 CVTRSV01 EQU CVTFLGS1 01378000 CVTDMPLK EQU CVTFLGS1 01379000 CVTXITP EQU CVTMAP+68 01380000 CVTZDTAB EQU CVTMAP+64 01381000 CVTMSLT EQU CVTMAP+60 01382000 CVTDATE EQU CVTMAP+56 01383000 CVTBTERM EQU CVTMAP+52 01384000 CVTSYSAD EQU CVTMAP+48 01385000 CVTXTLER EQU CVTMAP+44 01386000 CVTILK2 EQU CVTMAP+40 01387000 CVTILK1 EQU CVTMAP+36 01388000 CVTPRLTV EQU CVTMAP+32 01389000 CVTPCNVT EQU CVTMAP+28 01390000 CVT0VL00 EQU CVTMAP+24 01391000 CVTXAPG EQU CVTMAP+20 01392000 CVTBUF EQU CVTMAP+16 01393000 CVTJOB EQU CVTMAP+12 01394000 CVTLINK EQU CVTMAP+8 01395000 CVT0EF00 EQU CVTMAP+4 01396000 CVTTCBP EQU CVTMAP 01397000 CVT EQU CVTMAP 01398000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01399000 @ENDDATA EQU * 01400000 END IKJEFF57,(C'PL/S-II',0503,74008) 01401000