MON TITLE 'BLSUMON--SUBCOMMAND MONITOR *00001000 ' 00002000 */* CHANGE ACTIVITY -------------------------------------------------*/ 00003000 */* THIS MODULE WAS WRITTEN FOR @G57LPJM */ 00004000 */* THIS MODULE WAS CHANGED FOR @ZA31999 @ZA31999*/ 00005000 */*------------------------------------------------------------------*/ 00006000 BLSUMON CSECT , 01S0002 00007000 @MAINENT DS 0H 01S0002 00008000 USING *,@15 01S0002 00009000 B @PROLOG 01S0002 00010000 DC AL1(16) 01S0002 00011000 DC C'BLSUMON 78.117' 01S0002 00012000 DROP @15 00013000 @PROLOG STM @14,@12,12(@13) 01S0002 00014000 BALR @12,0 01S0002 00015000 @PSTART DS 0H 01S0002 00016000 USING @PSTART,@12 01S0002 00017000 L @00,@SIZDATD 01S0002 00018000 BLSUALLR R,LV=(0) 00019000 LR @11,@01 01S0002 00020000 USING @DATD,@11 01S0002 00021000 ST @13,@SA00001+4 01S0002 00022000 LM @00,@01,20(@13) 01S0002 00023000 ST @11,8(,@13) 01S0002 00024000 LR @13,@11 01S0002 00025000 * RA=ZZ2ZZ1P; /* ->ZZ1 */ 00026000 L RA,ZZ2ZZ1P(,R9) 01S0088 00027000 * 02S0089 00028000 */*------------------------------------------------------------------*/ 00029000 */* BLSUMON1--MONITOR INITIALIZATION */ 00030000 */*------------------------------------------------------------------*/ 00031000 * 02S0089 00032000 * DO; /* MONITOR INITIALIZATION */ 00033000 * FLAG='00'X; /* PROCESSING CONTROL FLAGS */ 00034000 MVI FLAG,X'00' 02S0090 00035000 * IOPLUPT=ADDR(UPT); /* ADDR OF USER PROFILE TABLE */ 00036000 MVC IOPLUPT(4),CPPLUPT(R9) 02S0091 00037000 * IOPLECT=ADDR(ECT); /* ADDR OF ENVIRONMENT CNTRL TBL */ 00038000 MVC IOPLECT(4),CPPLECT(R9) 02S0092 00039000 * CSPLOA=ADDR(CSOA); /* ->COMMAND SCAN OUTPUT AREA */ 00040000 LA @08,CSOA 02S0093 00041000 ST @08,CSPLOA 02S0093 00042000 * GENERATE CODE(MVC ADATA(ADATAEND-ADATA),SDATA); 02S0094 00043000 MVC ADATA(ADATAEND-ADATA),SDATA 00044000 * CMDP=ZZZNULL; /* NO COMMAND BUFFER */ 00045000 L CMDP,@CF00061 02S0095 00046000 * END; /* END OF BLSUMON1 */ 00047000 * FLAGMODE=ZZZ1; /* MODE MESSAGE REQUIRED */ 00048000 OI FLAGMODE,B'00100000' 01S0097 00049000 * IF FLAGERR=ZZZ0 THEN /* SUCCESSFUL INITIALIZATION */ 00050000 TM FLAGERR,B'10000000' 01S0098 00051000 BNZ @RF00098 01S0098 00052000 * GENERATE SETS(STAX) CODE(STAX USADDR=(R9),MF=(E,STAX)); 00053000 * 01S0099 00054000 STAX USADDR=(R9),MF=(E,STAX) 00055000 */*------------------------------------------------------------------*/ 00056000 */* ITERATIVELY GET SUBCOMMANDS */ 00057000 */*------------------------------------------------------------------*/ 00058000 * 01S0100 00059000 * DO WHILE( /* ITERATIVELY PROCESS COMMANDS */ 00060000 * ZZ1FX=ZZZ0& /* IPCS EXIT NOT REQUESTED */ 00061000 * ECTLOGF=ZZZ0); /* LOGON/LOGOFF NOT REQUESTED */ 00062000 @RF00098 B @DE00100 01S0100 00063000 @DL00100 DS 0H 01S0101 00064000 * IOPLECB=ADDR(ZZ1EVE); /* INITIALIZE IOPL */ 00065000 LA @08,ZZ1EVE(,RA) 01S0101 00066000 ST @08,IOPLECB 01S0101 00067000 * CALL E100; /* DEQUEUE ATTENTION COMMAND */ 00068000 BAL @14,E100 01S0102 00069000 * IF CMDP=ZZZNULL THEN /* NO ATTENTION SUBCOMMAND */ 00070000 * 01S0103 00071000 CL CMDP,@CF00061 01S0103 00072000 BNE @RF00103 01S0103 00073000 * /*************************************************************/ 00074000 * /* */ 00075000 * /* NO ATTENTION SUBCOMMAND */ 00076000 * /* */ 00077000 * /*************************************************************/ 00078000 * 01S0104 00079000 * DO; /* NO ATTENTION SUBCOMMAND */ 00080000 * IF /* STACK SHOULD BE DELETED */ 00081000 * (ECTRCDF&ABENDFLG)=ABENDFLG THEN/* ABEND HAS OCCURRED */ 00082000 * 01S0105 00083000 L @08,CPPLECT(,R9) 01S0105 00084000 MVC @TS00001(1),ECTRCDF(@08) 01S0105 00085000 NI @TS00001,X'80' 01S0105 00086000 CLI @TS00001,X'80' 01S0105 00087000 BNE @RF00105 01S0105 00088000 * /*********************************************************/ 00089000 * /* */ 00090000 * /* STACK SHOULD BE DELETED */ 00091000 * /* */ 00092000 * /*********************************************************/ 00093000 * 01S0106 00094000 * DO; /* STACK SHOULD BE DELETED */ 00095000 * IOPLIOPB=ADDR(STPB); /* ->STACK PARAMETER BLOCK */ 00096000 LA @08,STPB 01S0107 00097000 ST @08,IOPLIOPB 01S0107 00098000 * RESPECIFY 01S0108 00099000 * (R1) RESTRICTED; /* ->IOPL */ 00100000 * R1=ADDR(IOPL); /* ->IOPL */ 00101000 LA R1,IOPL 01S0109 00102000 * CALL IKJSTCK; /* PURGE COMMAND STACK */ 00103000 L @15,ZZ2STCKP(,R9) 01S0110 00104000 BALR @14,@15 01S0110 00105000 * RESPECIFY 01S0111 00106000 * (R1) UNRESTRICTED; /* ->IOPL */ 00107000 * END; /* STACK SHOULD BE DELETED */ 00108000 * IF UPTMODE=ZZZ1 THEN /* PROFILE MODE */ 00109000 @RF00105 L @08,CPPLUPT(,R9) 01S0113 00110000 TM UPTMODE(@08),B'00000010' 01S0113 00111000 BNO @RF00113 01S0113 00112000 * FLAGMODE=ZZZ1; /* MODE MESSAGE REQUIRED */ 00113000 OI FLAGMODE,B'00100000' 01S0114 00114000 * IOPLIOPB=ADDR(PGPB); /* ->PUTGET PARAMETER BLOCK */ 00115000 @RF00113 LA @08,PGPB 01S0115 00116000 ST @08,IOPLIOPB 01S0115 00117000 * IF ZZ2F3270=ZZZ1 THEN /* DSPL3270 SUSPENDED @ZA31999*/ 00118000 TM ZZ2F3270(R9),B'10000000' 01S0116 00119000 BNO @RF00116 01S0116 00120000 * PGPBOPUT=ADDR(O025); /* DSPL3270 MODE MESSAGE @ZA31999*/ 00121000 LA @08,O025 01S0117 00122000 ST @08,PGPBOPUT 01S0117 00123000 * ELSE /* NORMAL PROCESSING @ZA31999*/ 00124000 * IF FLAGMODE=ZZZ0 THEN /* NO MODE MESSAGE REQUIRED */ 00125000 B @RC00116 01S0118 00126000 @RF00116 TM FLAGMODE,B'00100000' 01S0118 00127000 BNZ @RF00118 01S0118 00128000 * PGPBOPUT=ZZZZNULL; /* NO MODE MESSAGE */ 00129000 SLR @08,@08 01S0119 00130000 ST @08,PGPBOPUT 01S0119 00131000 * ELSE /* MODE MESSAGE REQUIRED */ 00132000 * PGPBOPUT=ADDR(OLDIPCS);/* GET ADDRESS OF MODE MESSAGE */ 00133000 B @RC00118 01S0120 00134000 @RF00118 LA @08,OLDIPCS 01S0120 00135000 ST @08,PGPBOPUT 01S0120 00136000 * 02S0121 00137000 */********************************************************************/ 00138000 */* */ 00139000 */* BLSUMONO--PUT MODE MESSAGE, GET COMMAND */ 00140000 */* */ 00141000 */********************************************************************/ 00142000 * 02S0121 00143000 * DO; /* BLSUMONO */ 00144000 @RC00118 DS 0H 02S0121 00145000 @RC00116 DS 0H 02S0122 00146000 * RESPECIFY 02S0122 00147000 * (R1) RESTRICTED; /* ->IOPL */ 00148000 * R1=ADDR(IOPL); /* ->IOPL */ 00149000 LA R1,IOPL 02S0123 00150000 * RESPECIFY 02S0124 00151000 * (RF) RESTRICTED; /* RETURN CODE */ 00152000 * CALL IKJPTGT; /* PUTGET TSO SERVICE ROUTINE */ 00153000 L @15,ZZ2PTGTP(,R9) 02S0125 00154000 BALR @14,@15 02S0125 00155000 * RESPECIFY 02S0126 00156000 * (R1) UNRESTRICTED; /* ->IOPL */ 00157000 * RETCPTGT=RF; /* IKJPTGT RETURN CODE */ 00158000 LR RETCPTGT,RF 02S0127 00159000 * RESPECIFY 02S0128 00160000 * (RF) UNRESTRICTED; /* RETURN CODE */ 00161000 * CMDP=PGPBIBUF; /* ->COMMAND BUFFER */ 00162000 L CMDP,PGPBIBUF 02S0129 00163000 * END; /* END OF BLSUMONO */ 00164000 * IF UPTMODE=ZZZ0 THEN /* PROFILE NOMODE */ 00165000 L @08,CPPLUPT(,R9) 01S0131 00166000 TM UPTMODE(@08),B'00000010' 01S0131 00167000 BNZ @RF00131 01S0131 00168000 * FLAGMODE=ZZZ0; /* NO MODE MESSAGE REQUIRED */ 00169000 NI FLAGMODE,B'11011111' 01S0132 00170000 * END; /* NO ATTENTION COMMAND */ 00171000 * ELSE /* ATTENTION COMMAND FOUND */ 00172000 * 01S0134 00173000 * /*************************************************************/ 00174000 * /* */ 00175000 * /* PROCESS COMMAND QUEUED BY THE ATTENTION EXIT */ 00176000 * /* */ 00177000 * /*************************************************************/ 00178000 * 01S0134 00179000 * DO; /* ATTENTION COMMAND FOUND */ 00180000 B @RC00103 01S0134 00181000 @RF00103 DS 0H 01S0135 00182000 * IOPLIOPB=ADDR(STPB); /* ->STACK PARAMETER BLOCK */ 00183000 LA @08,STPB 01S0135 00184000 ST @08,IOPLIOPB 01S0135 00185000 * RESPECIFY 01S0136 00186000 * (R1) RESTRICTED; /* ->IOPL */ 00187000 * R1=ADDR(IOPL); /* ->IOPL */ 00188000 LA R1,IOPL 01S0137 00189000 * CALL IKJSTCK; /* PURGE COMMAND STACK */ 00190000 L @15,ZZ2STCKP(,R9) 01S0138 00191000 BALR @14,@15 01S0138 00192000 * RESPECIFY 01S0139 00193000 * (R1) UNRESTRICTED; /* ->IOPL */ 00194000 * RETCPTGT=0; /* SIMULATE IKJPTGT RETURN CODE */ 00195000 SLR RETCPTGT,RETCPTGT 01S0140 00196000 * FLAGMODE=ZZZ1; /* MODE MESSAGE REQUIRED */ 00197000 OI FLAGMODE,B'00100000' 01S0141 00198000 * ZZ2F3270=ZZZ0; /* DSPL3270 NOT SUSPENDED */ 00199000 NI ZZ2F3270(R9),B'01111111' 01S0142 00200000 * END; /* ATTENTION COMMAND FOUND */ 00201000 * 02S0144 00202000 */*------------------------------------------------------------------*/ 00203000 */* BLSUMONS--SCAN COMMAND BUFFER */ 00204000 */*------------------------------------------------------------------*/ 00205000 * 02S0144 00206000 * DO; /* BLSUMONS */ 00207000 @RC00103 DS 0H 02S0145 00208000 * FLAGSCAN='0'B; /* ANTICIPATE INVALID COMMAND */ 00209000 NI FLAGSCAN,B'10111111' 02S0145 00210000 * IF RETCPTGT>12 THEN /* SERIOUS IKJPTGT ERROR */ 00211000 * 02S0146 00212000 CH RETCPTGT,@CH00034 02S0146 00213000 BNH @RF00146 02S0146 00214000 * /*************************************************************/ 00215000 * /* */ 00216000 * /* SERIOUS IKJPTGT ERROR */ 00217000 * /* */ 00218000 * /*************************************************************/ 00219000 * 02S0147 00220000 * DO; /* SERIOUS IKJPTGT ERROR */ 00221000 * ZZ1FX='1'B; /* TERMINATE */ 00222000 OI ZZ1FX(RA),B'01000000' 02S0148 00223000 * FLAGERR='1'B; /* ERROR */ 00224000 OI FLAGERR,B'10000000' 02S0149 00225000 * END; /* SERIOUS IKJPTGT ERROR */ 00226000 * IF RETCPTGT=12 THEN /* 2ND LEVEL MSGS WILL NOT BE 00227000 * AVAILABLE TO THE USER */ 00228000 @RF00146 CH RETCPTGT,@CH00034 02S0151 00229000 BNE @RF00151 02S0151 00230000 * ECTMSGF=ECTMSGF|'80'X; /* SCHEDULE 2ND LEVEL MSG PURGE */ 00231000 L @08,CPPLECT(,R9) 02S0152 00232000 OI ECTMSGF(@08),X'80' 02S0152 00233000 * IF RETCPTGT<8 THEN /* COMMAND LINE OBTAINED */ 00234000 * 02S0153 00235000 @RF00151 CH RETCPTGT,@CH00049 02S0153 00236000 BNL @RF00153 02S0153 00237000 * /*************************************************************/ 00238000 * /* */ 00239000 * /* PROCESS COMMAND THROUGH TSO COMMAND SCAN SERVICE ROUTINE */ 00240000 * /* */ 00241000 * /*************************************************************/ 00242000 * 02S0154 00243000 * DO; /* COMMAND LINE OBTAINED */ 00244000 * CSPLCBUF=CMDP; /* ->COMMAND BUFFER */ 00245000 ST CMDP,CSPLCBUF 02S0155 00246000 * CALL BLSUMON2(ZZ2,CSPL); /* SCAN COMMAND BUFFER */ 00247000 ST R9,@AL00001 02S0156 00248000 LA @08,CSPL 02S0156 00249000 ST @08,@AL00001+4 02S0156 00250000 L @08,ZZ2BVTP(,R9) 02S0156 00251000 L @15,BVTMON2P(,@08) 02S0156 00252000 LA @01,@AL00001 02S0156 00253000 BALR @14,@15 02S0156 00254000 * RESPECIFY 02S0157 00255000 * (RF) RESTRICTED; /* BLSUMON2 RETURN CODE */ 00256000 * IF RF=ZZZFLAGI THEN /* VALID COMMAND SCAN RESULT */ 00257000 LTR RF,RF 02S0158 00258000 BNZ @RF00158 02S0158 00259000 * FLAGSCAN='1'B; /* VALID COMMAND SCAN RESULT */ 00260000 OI FLAGSCAN,B'01000000' 02S0159 00261000 * ELSE /* UNSUCCESSFUL COMMAND SCAN */ 00262000 * IF RF=ZZZFLAGT THEN /* COMMAND SCAN ERROR */ 00263000 * 02S0160 00264000 B @RC00158 02S0160 00265000 @RF00158 CH RF,@CH00052 02S0160 00266000 BNE @RF00160 02S0160 00267000 * /*******************************************************/ 00268000 * /* */ 00269000 * /* COMMAND SCAN ERROR */ 00270000 * /* */ 00271000 * /*******************************************************/ 00272000 * 02S0161 00273000 * DO; /* COMMAND SCAN ERROR */ 00274000 * ZZ1FX='1'B; /* TERMINATE */ 00275000 OI ZZ1FX(RA),B'01000000' 02S0162 00276000 * FLAGERR='1'B; /* ERROR */ 00277000 OI FLAGERR,B'10000000' 02S0163 00278000 * END; /* COMMAND SCAN ERROR */ 00279000 * RESPECIFY 02S0165 00280000 * (RF) UNRESTRICTED; /* BLSUMON2 RETURN CODE */ 00281000 @RF00160 DS 0H 02S0165 00282000 @RC00158 DS 0H 02S0166 00283000 * END; /* COMMAND LINE OBTAINED */ 00284000 * ELSE /* ATTENTION INTERRUPTED IKJPTGT */ 00285000 * CMDP=ZZZNULL; /* NO SUBCOMMAND BUFFER */ 00286000 B @RC00153 02S0167 00287000 @RF00153 L CMDP,@CF00061 02S0167 00288000 * END; /* END OF BLSUMONS */ 00289000 @RC00153 DS 0H 02S0169 00290000 * IF FLAGSCAN=ZZZ1 THEN /* COMMAND PROCESSING REQUIRED */ 00291000 * 01S0169 00292000 TM FLAGSCAN,B'01000000' 01S0169 00293000 BNO @RF00169 01S0169 00294000 * /*************************************************************/ 00295000 * /* */ 00296000 * /* ADDITIONAL COMMAND PROCESSING REQUIRED */ 00297000 * /* */ 00298000 * /*************************************************************/ 00299000 * 01S0170 00300000 * DO; /* COMMAND PROCESSING REQUIRED */ 00301000 * IF /* RESUME DSPL3270 PROCESSING */ 00302000 * ZZ2F3270=ZZZ1& /* DSPL3270 PROCESSING SUSPENDED */ 00303000 * CSOANOC=ZZZ1& /* NULL LINE */ 00304000 * RETCPTGT=0 THEN /* LINE OBTAINED FROM TERMINAL */ 00305000 * 01S0171 00306000 TM ZZ2F3270(R9),B'10000000' 01S0171 00307000 BNO @RF00171 01S0171 00308000 TM CSOANOC,B'00010000' 01S0171 00309000 BNO @RF00171 01S0171 00310000 LTR RETCPTGT,RETCPTGT 01S0171 00311000 BNZ @RF00171 01S0171 00312000 * /*********************************************************/ 00313000 * /* */ 00314000 * /* RESUME DSPL3270 PROCESSING */ 00315000 * /* */ 00316000 * /*********************************************************/ 00317000 * 01S0172 00318000 * DO; /* RESUME DSPL3270 PROCESSING */ 00319000 * CALL BLSUMONF; /* FREE SUBCOMMAND BUFFER */ 00320000 BAL @14,BLSUMONF 01S0173 00321000 * RESPECIFY 01S0174 00322000 * (R1, /* ->C3270B */ 00323000 * RF) RESTRICTED; /* GETMAIN RETURN CODE */ 00324000 * DO; /*GETMAIN (RC) LV(LENGTH(C3270B)) SP(ZZZSPEXC)*/ 00325000 * RESPECIFY (GPR01F,GPR15F,GPR00F) RESTRICTED; 01S0176 00326000 * GPR01F = 0; /* REG 1 MUST BE ZERO*/ 01S0177 00327000 SLR GPR01F,GPR01F 01S0177 00328000 * GPR15F = 0; /* RC-TYPE GETMAIN */ 01S0178 00329000 SLR GPR15F,GPR15F 01S0178 00330000 * GPR00F = LENGTH(C3270B); /* LENGTH REQUESTED*/ 01S0179 00331000 LA GPR00F,12 01S0179 00332000 * GPR15F = GPR15F|((ZZZSPEXC)*256); /* SP IN BYTE 2 */ 00333000 O GPR15F,@CF00176 01S0180 00334000 * SVC(120); /*RC/RU-FORM OF GETMAIN*/ 01S0181 00335000 SVC 120 01S0181 00336000 * RESPECIFY (GPR01F,GPR15F,GPR00F) UNRESTRICTED; 01S0182 00337000 * END; /*GETMAIN (RC) LV(LENGTH(C3270B)) SP(ZZZSPEXC)*/ 00338000 * IF RF=0 THEN /* BUFFER OBTAINED */ 00339000 * 01S0184 00340000 LTR RF,RF 01S0184 00341000 BNZ @RF00184 01S0184 00342000 * /*****************************************************/ 00343000 * /* */ 00344000 * /* BUFFER OBTAINED */ 00345000 * /* */ 00346000 * /*****************************************************/ 00347000 * 01S0185 00348000 * DO; /* BUFFER OBTAINED */ 00349000 * CMDP=R1; /* ->C3270B */ 00350000 LR CMDP,R1 01S0186 00351000 * C3270B=C3270S; /* COMPLETE COMMAND BUFFER */ 00352000 MVC C3270B(12,CMDP),C3270S 01S0187 00353000 * CSOACNM=ADDR(C3270BT);/* ->COMMAND NAME */ 00354000 LA @14,C3270BT(,CMDP) 01S0188 00355000 ST @14,CSOACNM 01S0188 00356000 * CSOALNM=LENGTH(C3270BT);/* LENGTH OF COMMAND NAME */ 00357000 MVC CSOALNM(2),@CH00049 01S0189 00358000 * CSOAVNP=ZZZ1; /* VALID WITH NO PARAMETERS */ 00359000 * CSOAVWP=ZZZ0; /* NOT VALID WITH PARAMETERS */ 00360000 * CSOAQM=ZZZ0; /* NO QUESTION MARK */ 00361000 * CSOANOC=ZZZ0; /* COMMAND NAME PRESENT */ 00362000 * CSOABAD=ZZZ0; /* NOT A BAD COMMAND NAME */ 00363000 * CSOAEXEC=ZZZ0; /* NOT A CLIST NAME */ 00364000 OI CSOAVNP,B'01000000' 01S0195 00365000 NI CSOAVWP,B'01000011' 01S0195 00366000 * END; /* BUFFER OBTAINED */ 00367000 * RESPECIFY 01S0197 00368000 * (R1, /* ->C3270B */ 00369000 * RF) UNRESTRICTED; /* GETMAIN RETURN CODE */ 00370000 @RF00184 DS 0H 01S0198 00371000 * ZZ2F3270=ZZZ0; /* DSPL3270 NO LONGER SUSPENDED */ 00372000 NI ZZ2F3270(R9),B'01111111' 01S0198 00373000 * END; /* RESUME DSPL3270 PROCESSING */ 00374000 * IF CSOANOC=ZZZ0 THEN /* PROCESS WELL-FORMED COMMAND */ 00375000 * 01S0200 00376000 @RF00171 TM CSOANOC,B'00010000' 01S0200 00377000 BNZ @RF00200 01S0200 00378000 * /*********************************************************/ 00379000 * /* */ 00380000 * /* PROCESS WELL-FORMED COMMAND */ 00381000 * /* */ 00382000 * /*********************************************************/ 00383000 * 01S0201 00384000 * DO; /* PROCESS WELL-FORMED COMMAND */ 00385000 * IF CSOALNM=3&CSOACN(1:3)='END' THEN/* 'END' SUBCOMMAND */ 00386000 CLC CSOALNM(2),@CH00096 01S0202 00387000 BNE @RF00202 01S0202 00388000 L @08,CSOACNM 01S0202 00389000 CLC CSOACN(3,@08),@CC00762 01S0202 00390000 BNE @RF00202 01S0202 00391000 * ZZ1FX=ZZZ1; /* SIGNAL FOR RETURN */ 00392000 OI ZZ1FX(RA),B'01000000' 01S0203 00393000 * ELSE /* NON-LOCAL PROCESSING */ 00394000 * 01S0204 00395000 * /*****************************************************/ 00396000 * /* */ 00397000 * /* NON-LOCAL SUBCOMMAND PROCESSING */ 00398000 * /* */ 00399000 * /*****************************************************/ 00400000 * 01S0204 00401000 * DO; /* NON-LOCAL PROCESSING */ 00402000 B @RC00202 01S0204 00403000 @RF00202 DS 0H 01S0205 00404000 * ZZ1FM=ZZZ1; /* MONITOR READY */ 00405000 OI ZZ1FM(RA),B'00100000' 01S0205 00406000 * ZZ2CPPLC=CMDP; /* ->COMMAND BUFFER */ 00407000 ST CMDP,ZZ2CPPLC(,R9) 01S0206 00408000 * RESPECIFY 01S0207 00409000 * (RF) RESTRICTED; /* RETURN CODE */ 00410000 * CALL BLSUMONL(ZZ2,CSOA);/* PROCESS COMMAND */ 00411000 ST R9,@AL00001 01S0208 00412000 LA @14,CSOA 01S0208 00413000 ST @14,@AL00001+4 01S0208 00414000 L @08,ZZ2BVTP(,R9) 01S0208 00415000 L @15,BVTMONLP(,@08) 01S0208 00416000 LA @01,@AL00001 01S0208 00417000 BALR @14,@15 01S0208 00418000 * IF /* SIGNIFICANT ERROR DETECTED */ 00419000 * RF>ZZZFLAGI& /* ERROR WAS DETECTED */ 00420000 * RF>=ZZ2ASE THEN/* AND WAS SIGNIFICANT */ 00421000 LTR RF,RF 01S0209 00422000 BNP @RF00209 01S0209 00423000 SLR @14,@14 01S0209 00424000 IC @14,ZZ2ASE(,R9) 01S0209 00425000 CR RF,@14 01S0209 00426000 BL @RF00209 01S0209 00427000 * FLAGMODE=ZZZ1; /* MODE MESSAGE REQUIRED */ 00428000 OI FLAGMODE,B'00100000' 01S0210 00429000 * RESPECIFY 01S0211 00430000 * (RF) UNRESTRICTED;/* RETURN CODE */ 00431000 @RF00209 DS 0H 01S0212 00432000 * ZZ2CPPLC=ZZZNULL; /* NO COMMAND BUFFER */ 00433000 MVC ZZ2CPPLC(4,R9),@CF00061 01S0212 00434000 * ZZ1FM=ZZZ0; /* MONITOR NOT READY */ 00435000 NI ZZ1FM(RA),B'11011111' 01S0213 00436000 * END; /* NON-LOCAL PROCESSING */ 00437000 * END; /* PROCESS WELL-FORMED COMMAND */ 00438000 * END; /* COMMAND PROCESSING REQUIRED */ 00439000 * ELSE /* NO COMMAND PROCESSING REQUIRED*/ 00440000 * 01S0217 00441000 * /*************************************************************/ 00442000 * /* */ 00443000 * /* NO COMMAND PROCESSING REQUIRED */ 00444000 * /* */ 00445000 * /*************************************************************/ 00446000 * 01S0217 00447000 * DO; /* NO COMMAND PROCESSING REQUIRED*/ 00448000 B @RC00169 01S0217 00449000 @RF00169 DS 0H 01S0218 00450000 * ECTRTCD=ZZZFLAGS; /* LASTCC FOR CLIST */ 00451000 L @08,CPPLECT(,R9) 01S0218 00452000 MVC ECTRTCD(3,@08),@CF00034+1 01S0218 00453000 * FLAGMODE=ZZZ1; /* MODE MESSAGE REQUIRED */ 00454000 OI FLAGMODE,B'00100000' 01S0219 00455000 * END; /* NO COMMAND PROCESSING REQUIRED*/ 00456000 * END; /* ITERATIVELY PROCESS COMMANDS */ 00457000 @RC00169 DS 0H 01S0221 00458000 @DE00100 TM ZZ1FX(RA),B'01000000' 01S0221 00459000 BNZ @DC00100 01S0221 00460000 L @08,CPPLECT(,R9) 01S0221 00461000 TM ECTLOGF(@08),B'00010000' 01S0221 00462000 BZ @DL00100 01S0221 00463000 @DC00100 DS 0H 01S0222 00464000 * GENERATE SETS(STAX) CODE(STAX 0,MF=(E,STAX)); 01S0222 00465000 STAX 0,MF=(E,STAX) 00466000 * CALL E100; /* FREE COMMAND BUFFER */ 00467000 BAL @14,E100 01S0223 00468000 * CALL BLSUMONF; /* FREE FINAL ATTN SUBCOMMAND */ 00469000 BAL @14,BLSUMONF 01S0224 00470000 * IF FLAGERR=ZZZ0 THEN /* NO ERROR(S) DETECTED */ 00471000 TM FLAGERR,B'10000000' 01S0225 00472000 BNZ @RF00225 01S0225 00473000 * RETC=ZZZFLAGI; /* RETURN CODE */ 00474000 SLR RETC,RETC 01S0226 00475000 * ELSE /* ERROR(S) DETECTED */ 00476000 * RETC=ZZZFLAGT; /* RETURN CODE */ 00477000 B @RC00225 01S0227 00478000 @RF00225 LA RETC,16 01S0227 00479000 * RETURN CODE(RETC); 01S0228 00480000 @RC00225 L @13,4(,@13) 01S0228 00481000 L @00,@SIZDATD 01S0228 00482000 LR @01,@11 01S0228 00483000 BLSUFRER R,LV=(0),A=(1) 00484000 LR @15,@02 01S0228 00485000 L @14,12(,@13) 01S0228 00486000 LM @00,@12,20(@13) 01S0228 00487000 BR @14 01S0228 00488000 EJECT 00489000 * 01S0229 00490000 */*------------------------------------------------------------------*/ 00491000 */* E100--DEQUEUE AN ATTENTION COMMAND */ 00492000 */*------------------------------------------------------------------*/ 00493000 * 01S0229 00494000 *E100: /* DEQUEUE AN ATTENTION COMMAND */ 00495000 * PROCEDURE; 01S0229 00496000 E100 STM @14,@05,@SA00002 01S0229 00497000 STM @07,@12,@SA00002+32 01S0229 00498000 * RESPECIFY 01S0230 00499000 * (R0, /* UPDATE VALUE REGISTER PAIR */ 00500000 * R1, 01S0230 00501000 * R2, /* COMPARATOR REGISTER PAIR */ 00502000 * R3) RESTRICTED; 01S0230 00503000 * R0=ZZZNULL; /* PRIME UPDATE REGISTER PAIR */ 00504000 L R0,@CF00061 01S0231 00505000 * R1=0; 01S0232 00506000 SLR R1,R1 01S0232 00507000 * R2=R0; /* PRIME COMPARATOR REGISTER PAIR*/ 00508000 LR R2,R0 01S0233 00509000 * R3=0; 01S0234 00510000 * 01S0234 00511000 SLR R3,R3 01S0234 00512000 */*------------------------------------------------------------------*/ 00513000 */* DEQUEUE ATTENTION SUBCOMMANDS UNTIL THE POINTER TO SUCH */ 00514000 */* SUBCOMMANDS INDICATES WE ARE PROCESSING THE MOST RECENT */ 00515000 */*------------------------------------------------------------------*/ 00516000 * 01S0235 00517000 * DO UNTIL(R2=R0); /* INSIST ON NULL ZZ1ACMP */ 00518000 @DL00235 DS 0H 01S0236 00519000 * IF R2^=CMDP THEN /* ATTENTION SUBCOMMAND SELECTED */ 00520000 * 01S0236 00521000 CR R2,CMDP 01S0236 00522000 BE @RF00236 01S0236 00523000 * /*************************************************************/ 00524000 * /* */ 00525000 * /* ATTENTION SUBCOMMAND SELECTED */ 00526000 * /* */ 00527000 * /*************************************************************/ 00528000 * 01S0237 00529000 * DO; /* ATTENTION SUBCOMMAND SELECTED */ 00530000 * CALL BLSUMONF; /* FREE COMMAND BUFFER */ 00531000 BAL @14,BLSUMONF 01S0238 00532000 * CMDP=R2; /* ->COMMAND BUFFER */ 00533000 LR CMDP,R2 01S0239 00534000 * END; /* ATTENTION SUBCOMMAND SELECTED */ 00535000 * CDS(R2,R0,ZZ1ATTN); /* UPDATE ZZ1ATTN OR R2||R3 */ 00536000 @RF00236 CDS R2,R0,ZZ1ATTN(RA) 01S0241 00537000 * END; /* INSIST ON NULL ZZ1ACMP */ 00538000 @DE00235 CR R2,R0 01S0242 00539000 BNE @DL00235 01S0242 00540000 * RETURN; 01S0243 00541000 @EL00002 DS 0H 01S0243 00542000 @EF00002 DS 0H 01S0243 00543000 @ER00002 LM @14,@05,@SA00002 01S0243 00544000 LM @07,@12,@SA00002+32 01S0243 00545000 BR @14 01S0243 00546000 * RESPECIFY 01S0244 00547000 * (R0, /* UPDATE VALUE REGISTER PAIR */ 00548000 * R1, 01S0244 00549000 * R2, /* COMPARATOR REGISTER PAIR */ 00550000 * R3) UNRESTRICTED; 01S0244 00551000 * END E100; 01S0245 00552000 * 02S0246 00553000 */*------------------------------------------------------------------*/ 00554000 */* BLSUMONF--FREE SUBCOMMAND BUFFER */ 00555000 */*------------------------------------------------------------------*/ 00556000 * 02S0246 00557000 *BLSUMONF: /* FREE SUBCOMMAND BUFFER */ 00558000 * PROCEDURE OPTIONS(NOSAVEAREA); 02S0246 00559000 BLSUMONF STM @14,@12,12(@13) 02S0246 00560000 * IF CMDP^=ZZZNULL THEN /* SUBCOMMAND BUFFER EXISTS */ 00561000 CL CMDP,@CF00061 02S0247 00562000 BE @RF00247 02S0247 00563000 * DO; /*FREEMAIN(RU) LV(CMDP->CMDL)A(CMDP->CMD) SP(ZZZSPEXC)*/ 00564000 * RESPECIFY (GPR01F,GPR15F,GPR00F) RESTRICTED; 02S0249 00565000 * GPR01F = 0; /* REG 1 MUST BE ZERO*/ 02S0250 00566000 SLR GPR01F,GPR01F 02S0250 00567000 * GPR15F=3; /*SET TYPE*/ 02S0251 00568000 LA GPR15F,3 02S0251 00569000 * GPR00F = CMDP->CMDL; /* LENGTH REQUESTED*/ 02S0252 00570000 SLR GPR00F,GPR00F 02S0252 00571000 ICM GPR00F,3,CMDL(CMDP) 02S0252 00572000 * GPR01F=ADDR(CMDP->CMD); /*SET REGISTER ONE*/ 02S0253 00573000 LR GPR01F,CMDP 02S0253 00574000 * GPR15F=GPR15F+((ZZZSPEXC)*256); /* SUBPOOL VALUE*/ 02S0254 00575000 AL GPR15F,@CF00176 02S0254 00576000 * SVC(120); /*RC/RU-FORM OF GETMAIN*/ 02S0255 00577000 SVC 120 02S0255 00578000 * RESPECIFY (GPR01F,GPR15F,GPR00F) UNRESTRICTED; 02S0256 00579000 * END; /*FREEMAIN(RU) LV(CMDP->CMDL)A(CMDP->CMD) SP(ZZZSPEXC)*/ 00580000 * RETURN; 02S0258 00581000 @EL00003 DS 0H 02S0258 00582000 @EF00003 DS 0H 02S0258 00583000 @ER00003 LM @14,@12,12(@13) 02S0258 00584000 BR @14 02S0258 00585000 * END BLSUMONF; /* END OF BLSUMONF */ 00586000 B @EL00003 02S0259 00587000 * 01S0260 00588000 */*BLSUPEND--MVS IPCS MODULE*/ 01S0260 00589000 * 01S0260 00590000 * 01S0260 00591000 * 01S0260 00592000 * DECLARE /*GENERAL PURPOSE REGISTERS */ 01S0260 00593000 * GPR00F FIXED(31) REG(0), 01S0260 00594000 * GPR01F FIXED(31) REG(1), 01S0260 00595000 * GPR15F FIXED(31) REG(15); 01S0260 00596000 * 01S0260 00597000 * DECLARE /* COMMON VARIABLES */ 01S0261 00598000 * I256C CHAR(256) BASED, 01S0261 00599000 * I031F FIXED(31) BASED, 01S0261 00600000 * I031P PTR(31) BASED, 01S0261 00601000 * I015F FIXED(15) BASED, 01S0261 00602000 * I015P PTR(15) BASED, 01S0261 00603000 * I008P PTR(8) BASED, 01S0261 00604000 * I001C CHAR(1) BASED; 01S0261 00605000 * GENERATE NODEFS NOREFS DATA; 01S0262 00606000 * END BLSUMON /*BLRPEND(BLSUMON) */ 01S0263 00607000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. * 00608000 */*%INCLUDE SYSLIB (BLSUZZZ ) * 00609000 */*%INCLUDE SYSLIB (BLRFULL ) * 00610000 */*%INCLUDE SYSLIB (IKJCPPL ) * 00611000 */*%INCLUDE SYSLIB (IKJPSCB ) * 00612000 */*%INCLUDE SYSLIB (IKJECT ) * 00613000 */*%INCLUDE SYSLIB (IKJUPT ) * 00614000 */*%INCLUDE SYSLIB (BLSUSERV) * 00615000 */*%INCLUDE SYSLIB (BLRSERV ) * 00616000 */*%INCLUDE SYSLIB (BLRSERVD) * 00617000 */*%INCLUDE SYSLIB (IKJCSPL ) * 00618000 */*%INCLUDE SYSLIB (IKJIOPL ) * 00619000 */*%INCLUDE SYSLIB (IKJCSOA ) * 00620000 */*%INCLUDE SYSLIB (IKJPGPB ) * 00621000 */*%INCLUDE SYSLIB (IKJSTPB ) * 00622000 */*%INCLUDE SYSLIB (BLSUMON1) * 00623000 */*%INCLUDE SYSLIB (BLSUMONO) * 00624000 */*%INCLUDE SYSLIB (BLSUMONS) * 00625000 */*%INCLUDE SYSLIB (BLSUMONF) * 00626000 *; 01S0263 00627000 @EL00001 L @13,4(,@13) 01S0263 00628000 @EF00001 L @00,@SIZDATD 01S0263 00629000 LR @01,@11 01S0263 00630000 BLSUFRER R,LV=(0),A=(1) 00631000 @ER00001 LM @14,@12,12(@13) 01S0263 00632000 BR @14 01S0263 00633000 @DATA DS 0H 00634000 @CH00096 DC H'3' 00635000 @CH00049 DC H'8' 00636000 @CH00052 DC H'16' 00637000 @DATD DSECT 00638000 DS 0F 00639000 @SA00001 DS 18F 00640000 @SA00002 DS 14F 00641000 @AL00001 DS 2A 00642000 BLSUMON CSECT 00643000 DS 0F 00644000 @CF00034 DC F'12' 00645000 @CH00034 EQU @CF00034+2 00646000 @CF00176 DC F'256' 00647000 @CF00061 DC XL4'80000000' 00648000 @DATD DSECT 00649000 DS 0D 00650000 @TS00001 DS CL1 00651000 DS CL3 00652000 CSPL DS CL24 00653000 ORG CSPL 00654000 CSPLUPT DS AL4 00655000 CSPLECT DS AL4 00656000 CSPLECB DS AL4 00657000 CSPLFLG DS AL4 00658000 CSPLOA DS AL4 00659000 CSPLCBUF DS AL4 00660000 ORG CSPL+24 00661000 IOPL DS CL16 00662000 ORG IOPL 00663000 IOPLUPT DS AL4 00664000 IOPLECT DS AL4 00665000 IOPLECB DS AL4 00666000 IOPLIOPB DS AL4 00667000 ORG IOPL+16 00668000 CSOA DS CL8 00669000 ORG CSOA 00670000 CSOACNM DS AL4 00671000 CSOALNM DS FL2 00672000 CSOAFLG DS CL1 00673000 ORG CSOAFLG 00674000 CSOAVWP DS BL1 00675000 CSOAVNP EQU CSOAFLG+0 00676000 CSOAQM EQU CSOAFLG+0 00677000 CSOANOC EQU CSOAFLG+0 00678000 CSOABAD EQU CSOAFLG+0 00679000 CSOAEXEC EQU CSOAFLG+0 00680000 @NM00072 EQU CSOAFLG+0 00681000 @NM00073 EQU CSOAFLG+0 00682000 ORG CSOA+7 00683000 @NM00074 DS CL1 00684000 ORG CSOA+8 00685000 FLAG DS BL1 00686000 ORG FLAG 00687000 FLAGERR DS BL1 00688000 FLAGSCAN EQU FLAG+0 00689000 FLAGMODE EQU FLAG+0 00690000 @NM00082 EQU FLAG+0 00691000 ORG FLAG+1 00692000 BLSUMON CSECT 00693000 DS 0F 00694000 @SIZDATD DC AL1(0) 00695000 DC AL3(@ENDDATD-@DATD) 00696000 DS 0D 00697000 @CC00762 DC C'END' 00698000 DS CL1 00699000 O025 DS CL8 00700000 ORG O025 00701000 O025N DC A(1) 00702000 O025P DC AL4(M025) 00703000 ORG O025+8 00704000 M025 DS CL77 00705000 ORG M025 00706000 M025L DC AL2(77) 00707000 @NM00080 DC X'0000' 00708000 M025T DS CL73 00709000 ORG M025T 00710000 M025TA DC CL30'BLS21025D DSPL3270 SUSPENDED--' 00711000 M025TB DC CL22'PRESS ENTER TO RESUME ' 00712000 M025TC DC CL21'OR ENTER A SUBCOMMAND' 00713000 ORG M025+77 00714000 DS CL3 00715000 OLDIPCS DS CL8 00716000 ORG OLDIPCS 00717000 OLDIPCSN DC A(1) 00718000 OLDIPCSP DC AL4(MIPCS) 00719000 ORG OLDIPCS+8 00720000 MIPCS DS CL9 00721000 ORG MIPCS 00722000 MIPCSL DC AL2(9) 00723000 @NM00081 DC X'0000' 00724000 MIPCST DS CL5 00725000 ORG MIPCST 00726000 MIPCSTA DC CL5' IPCS' 00727000 ORG MIPCS+9 00728000 DS CL1 00729000 C3270S DS CL12 00730000 ORG C3270S 00731000 C3270SL DC AL2(12) 00732000 C3270SO DC AL2(8) 00733000 C3270ST DS CL8 00734000 ORG C3270ST 00735000 C3270STA DC CL8'DSPL3270' 00736000 ORG C3270S+12 00737000 @DATD DSECT 00738000 SPACE 2 00739000 *********************************************************************** 00740000 * THE FOLLOWING AREA, BLRPATCH, IS RESERVED FOR PATCH APPLICATION * 00741000 * TO OBTAIN PATCH ROOM IN THE @DATD AUTOMATIC STORAGE AREA, MODIFY * 00742000 * CONSTANT @SIZDATD TO REFLECT THE DESIRED @DATD SIZE * 00743000 *********************************************************************** 00744000 SPACE 00745000 BLSUMON CSECT 00746000 ORG 00747000 DS 0D 00748000 BLRPATCH DC CL8'ZAPAREA',(((*-BLSUMON+19)/20+7)/8)CL8'BLSUMON' 00749000 @DATD DSECT 00750000 DS 0H 00751000 @DATD DSECT 00752000 SPACE 00753000 *------- IMAGES OF PARAMETER LISTS -----------------------------------* 00754000 BLSUMON CSECT 00755000 SDATA DS 0D STATIC STORAGE DATA 00756000 SPGPB PUTGET OUTPUT=(0,SINGLE,MODE),MF=L 00757000 EXTRN BLSUMONI 00758000 SSTAX STAX BLSUMONI,USADDR=0,MF=L 00759000 SSTPB STACK DELETE=ALL,MF=L 00760000 SDATAEND DS 0F END OF SDATA 00761000 SPACE 00762000 *------- PARAMETER LISTS ---------------------------------------------* 00763000 @DATD DSECT 00764000 ADATA DS 0D AUTOMATIC STORAGE DATA 00765000 PGPB PUTGET OUTPUT=(0,SINGLE,MODE),MF=L 00766000 STAX STAX 0,USADDR=0,MF=L 00767000 STPB STACK DELETE=ALL,MF=L 00768000 ADATAEND DS 0F END OF ADATA 00769000 @DATD DSECT 00770000 SPACE 2 00771000 *********************************************************************** 00772000 * ALIGN END OF DATA ON A DOUBLEWORD BOUNDARY * 00773000 *********************************************************************** 00774000 SPACE 00775000 DS 0D 00776000 @DATD DSECT 00777000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00778000 @ENDDATD EQU * 00779000 BLSUMON CSECT 00780000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00781000 @01 EQU 01 00782000 @02 EQU 02 00783000 @03 EQU 03 00784000 @04 EQU 04 00785000 @05 EQU 05 00786000 @06 EQU 06 00787000 @07 EQU 07 00788000 @08 EQU 08 00789000 @09 EQU 09 00790000 @10 EQU 10 00791000 @11 EQU 11 00792000 @12 EQU 12 00793000 @13 EQU 13 00794000 @14 EQU 14 00795000 @15 EQU 15 00796000 RETC EQU @02 00797000 RETCPTGT EQU @04 00798000 CMDP EQU @06 00799000 RA EQU @10 00800000 R9 EQU @09 00801000 R0 EQU @00 00802000 R1 EQU @01 00803000 R2 EQU @02 00804000 R3 EQU @03 00805000 R4 EQU @04 00806000 R5 EQU @05 00807000 RB EQU @11 00808000 RD EQU @13 00809000 RE EQU @14 00810000 RF EQU @15 00811000 GPR01F EQU @01 00812000 GPR15F EQU @15 00813000 GPR00F EQU @00 00814000 RC EQU @12 00815000 R6 EQU @06 00816000 R7 EQU @07 00817000 R8 EQU @08 00818000 ZZ1 EQU 0 00819000 ZZ1ATTN EQU ZZ1+360 00820000 ZZ1EVE EQU ZZ1ATTN+4 00821000 ZZ1F EQU ZZ1+368 00822000 ZZ1FX EQU ZZ1F 00823000 ZZ1FM EQU ZZ1F 00824000 ZZ1N EQU ZZ1+1116 00825000 ZZ2 EQU 0 00826000 ZZ2AMD EQU ZZ2 00827000 @NM00015 EQU ZZ2AMD+7 00828000 ZZ2PRT EQU ZZ2+138 00829000 ZZ2PRTT EQU ZZ2PRT+4 00830000 ZZ2PRTT1 EQU ZZ2PRTT+1 00831000 ZZ2A EQU ZZ2+272 00832000 ZZ2ASE EQU ZZ2A+2 00833000 ZZ2AF EQU ZZ2A+16 00834000 ZZ2APID EQU ZZ2A+64 00835000 ZZ2AD EQU ZZ2A+74 00836000 ZZ2ADD EQU ZZ2AD 00837000 ZZ2ADDT EQU ZZ2ADD+2 00838000 ZZ2ADM EQU ZZ2AD+46 00839000 ZZ2ADMT EQU ZZ2ADM+2 00840000 ZZ2ADP EQU ZZ2AD+56 00841000 ZZ2ADPT EQU ZZ2ADP+2 00842000 ZZ2AQAS EQU ZZ2A+144 00843000 ZZ2AQD EQU ZZ2A+160 00844000 ZZ2AQDT EQU ZZ2AQD+10 00845000 ZZ2AQDF EQU ZZ2AQD+52 00846000 ZZ2STG EQU ZZ2+960 00847000 ZZ2ALLOP EQU ZZ2+992 00848000 ZZ2FREEP EQU ZZ2+996 00849000 ZZ2FF19P EQU ZZ2+1000 00850000 ZZ2FRE1P EQU ZZ2+1004 00851000 ZZ2FF18P EQU ZZ2+1008 00852000 ZZ2DYNAP EQU ZZ2+1012 00853000 ZZ2ZZ2CP EQU ZZ2+1016 00854000 ZZ2ZZ2DP EQU ZZ2+1020 00855000 ZZ2STAIP EQU ZZ2+1024 00856000 ZZ2FF02P EQU ZZ2+1028 00857000 ZZ2GETLP EQU ZZ2+1032 00858000 ZZ2PARSP EQU ZZ2+1036 00859000 ZZ2PTGTP EQU ZZ2+1040 00860000 ZZ2PUTLP EQU ZZ2+1044 00861000 ZZ2SCANP EQU ZZ2+1048 00862000 ZZ2STCKP EQU ZZ2+1052 00863000 ZZ2TRMOP EQU ZZ2+1064 00864000 ZZ2TRMVP EQU ZZ2+1068 00865000 ZZ2PUTNP EQU ZZ2+1084 00866000 ZZ2TRMNP EQU ZZ2+1088 00867000 ZZ2ZZ1P EQU ZZ2+1264 00868000 ZZ2BVTP EQU ZZ2+1280 00869000 ZZ2CPPL EQU ZZ2+1292 00870000 ZZ2CPPLC EQU ZZ2CPPL 00871000 ZZ2F EQU ZZ2+2824 00872000 ZZ2F3270 EQU ZZ2F 00873000 ZZ2ITR EQU ZZ2+2840 00874000 ZZ2ITRE EQU ZZ2ITR+16 00875000 ZZ2ITSE EQU ZZ2+2864 00876000 ZZ2ES EQU ZZ2+2872 00877000 ZZ2AMDX EQU ZZ2+7160 00878000 ZZ2AXO EQU ZZ2+7934 00879000 ZZ2AXOT EQU ZZ2AXO+2 00880000 CMD EQU 0 00881000 CMDL EQU CMD 00882000 CMDT EQU CMD+4 00883000 PSCB EQU 0 00884000 PSCBATR1 EQU PSCB+16 00885000 ECT EQU 0 00886000 ECTRCDF EQU ECT 00887000 ECTRTCD EQU ECT+1 00888000 ECTMSGF EQU ECT+8 00889000 ECTSWS EQU ECT+28 00890000 ECTLOGF EQU ECTSWS 00891000 ECTSWS2 EQU ECT+40 00892000 ECTSWS21 EQU ECTSWS2 00893000 UPT EQU 0 00894000 UPTSWS EQU UPT+12 00895000 UPTMODE EQU UPTSWS 00896000 SA EQU 0 00897000 SA1 EQU SA 00898000 SAR EQU SA+12 00899000 SAR1 EQU SAR+12 00900000 IKJPTGT EQU 0 00901000 IKJSTCK EQU 0 00902000 BLSUMONL EQU 0 00903000 BLSUMON2 EQU 0 00904000 BVT EQU 0 00905000 BVTPUTLP EQU BVT+4 00906000 BVTPUTOP EQU BVT+12 00907000 BVTPUTTP EQU BVT+16 00908000 BVTPUTVP EQU BVT+20 00909000 BVTPUTAP EQU BVT+24 00910000 BVTPRTTP EQU BVT+28 00911000 BVTPRTAP EQU BVT+32 00912000 BVTPUTDP EQU BVT+36 00913000 BVTMON2P EQU BVT+44 00914000 BVTVSARP EQU BVT+48 00915000 BVTVSENP EQU BVT+64 00916000 BVTVSERP EQU BVT+68 00917000 BVTVSGEP EQU BVT+72 00918000 BVTVSGUP EQU BVT+76 00919000 BVTVSPOP EQU BVT+80 00920000 BVTVSPUP EQU BVT+84 00921000 BVTMPKNP EQU BVT+104 00922000 BVTMONLP EQU BVT+108 00923000 BVTPUTCP EQU BVT+132 00924000 BVTMPK1P EQU BVT+136 00925000 BVTZZ2RP EQU BVT+140 00926000 BVTPGMRP EQU BVT+144 00927000 BVTMONAP EQU BVT+148 00928000 BVTBLDDP EQU BVT+152 00929000 BVTBLDLP EQU BVT+156 00930000 BVTPGMCP EQU BVT+160 00931000 BVTPGMDP EQU BVT+164 00932000 BVTPGMLP EQU BVT+168 00933000 BVTMONCP EQU BVT+180 00934000 BVTMONDP EQU BVT+184 00935000 BVTMONTP EQU BVT+188 00936000 BVTPARIP EQU BVT+192 00937000 BVTPARUP EQU BVT+196 00938000 BVTPRTNP EQU BVT+204 00939000 BVTVSCRP EQU BVT+208 00940000 BVTVSMRP EQU BVT+212 00941000 BVTMONXP EQU BVT+216 00942000 BVTTRMAP EQU BVT+228 00943000 C3270B EQU 0 00944000 C3270BT EQU C3270B+4 00945000 CSOACN EQU 0 00946000 BLSUALLO EQU 0 00947000 BLSUBLDD EQU 0 00948000 BLSUBLDL EQU 0 00949000 BLSUDYNA EQU 0 00950000 BLSUFREE EQU 0 00951000 BLSUFRE1 EQU 0 00952000 BLSUMONA EQU 0 00953000 BLSUMONC EQU 0 00954000 BLSUMOND EQU 0 00955000 BLSUMONT EQU 0 00956000 BLSUMONX EQU 0 00957000 BLSUMPKN EQU 0 00958000 BLSUMPK1 EQU 0 00959000 BLSUPARI EQU 0 00960000 BLSUPARU EQU 0 00961000 BLSUPGMC EQU 0 00962000 BLSUPGMD EQU 0 00963000 BLSUPGML EQU 0 00964000 BLSUPGMR EQU 0 00965000 BLSUPRTA EQU 0 00966000 BLSUPRTN EQU 0 00967000 BLSUPRTT EQU 0 00968000 BLSUPUTA EQU 0 00969000 BLSUPUTC EQU 0 00970000 BLSUPUTD EQU 0 00971000 BLSUPUTL EQU 0 00972000 BLSUPUTN EQU 0 00973000 BLSUPUTO EQU 0 00974000 BLSUPUTT EQU 0 00975000 BLSUPUTV EQU 0 00976000 BLSUSTAI EQU 0 00977000 BLSUTRMA EQU 0 00978000 BLSUTRMN EQU 0 00979000 BLSUTRMO EQU 0 00980000 BLSUTRMV EQU 0 00981000 BLSUVSAR EQU 0 00982000 BLSUVSCR EQU 0 00983000 BLSUVSEN EQU 0 00984000 BLSUVSER EQU 0 00985000 BLSUVSGE EQU 0 00986000 BLSUVSGU EQU 0 00987000 BLSUVSMR EQU 0 00988000 BLSUVSPO EQU 0 00989000 BLSUVSPU EQU 0 00990000 BLSUZZ2C EQU 0 00991000 BLSUZZ2D EQU 0 00992000 BLSUZZ2R EQU 0 00993000 IKJEFF02 EQU 0 00994000 IKJEFF18 EQU 0 00995000 IKJEFF19 EQU 0 00996000 IKJGETL EQU 0 00997000 IKJPARS EQU 0 00998000 IKJPUTL EQU 0 00999000 IKJSCAN EQU 0 01000000 I001C EQU 0 01001000 I008P EQU 0 01002000 I015F EQU 0 01003000 I015P EQU 0 01004000 I031F EQU 0 01005000 I031P EQU 0 01006000 I256C EQU 0 01007000 PGPBIBUF EQU PGPB+12 01008000 @NM00076 EQU STPB 01009000 CPPL EQU ZZ2CPPL 01010000 CPPLUPT EQU CPPL+4 01011000 CPPLPSCB EQU CPPL+8 01012000 CPPLECT EQU CPPL+12 01013000 PGPBOPUT EQU PGPB+4 01014000 AGO .@UNREFD START UNREFERENCED COMPONENTS 01015000 CPPLCBUF EQU CPPL 01016000 STPBMBRN EQU STPB+16 01017000 STPBOTDD EQU STPB+12 01018000 STPBINDD EQU STPB+8 01019000 STPBALSD EQU STPB+4 01020000 @NM00079 EQU @NM00076+1 01021000 SPBFLUSH EQU @NM00076+1 01022000 @NM00078 EQU @NM00076+1 01023000 @NM00077 EQU @NM00076 01024000 @NM00075 EQU PGPB 01025000 C3270BTA EQU C3270BT 01026000 C3270BO EQU C3270B+2 01027000 C3270BL EQU C3270B 01028000 BVT99999 EQU BVT+256 01029000 BVT0064P EQU BVT+252 01030000 BVT0063P EQU BVT+248 01031000 BVT0062P EQU BVT+244 01032000 BVT0061P EQU BVT+240 01033000 BVT0060P EQU BVT+236 01034000 BVT0059P EQU BVT+232 01035000 BVT0057P EQU BVT+224 01036000 BVT0056P EQU BVT+220 01037000 BVTSTBLP EQU BVT+200 01038000 BVT0045P EQU BVT+176 01039000 BVT0044P EQU BVT+172 01040000 BVT0033P EQU BVT+128 01041000 BVT0032P EQU BVT+124 01042000 BVT0031P EQU BVT+120 01043000 BVT0030P EQU BVT+116 01044000 BVT0029P EQU BVT+112 01045000 BVT0026P EQU BVT+100 01046000 BVT0025P EQU BVT+96 01047000 BVT0024P EQU BVT+92 01048000 BVT0023P EQU BVT+88 01049000 BVT0016P EQU BVT+60 01050000 BVT0015P EQU BVT+56 01051000 BVT0014P EQU BVT+52 01052000 BVTMONP EQU BVT+40 01053000 BVT0003P EQU BVT+8 01054000 BVT0001P EQU BVT 01055000 SA99 EQU SA+72 01056000 SARC EQU SAR+56 01057000 SARB EQU SAR+52 01058000 SARA EQU SAR+48 01059000 SAR9 EQU SAR+44 01060000 SAR8 EQU SAR+40 01061000 SAR7 EQU SAR+36 01062000 SAR6 EQU SAR+32 01063000 SAR5 EQU SAR+28 01064000 SAR4 EQU SAR+24 01065000 SAR3 EQU SAR+20 01066000 SAR2 EQU SAR+16 01067000 SAR0 EQU SAR+8 01068000 SARF EQU SAR+4 01069000 SARE EQU SAR 01070000 SAFWD EQU SA+8 01071000 SABAK EQU SA+4 01072000 SA1L EQU SA1+1 01073000 SA1P EQU SA1 01074000 UPTPREFL EQU UPT+23 01075000 UPTPREFX EQU UPT+16 01076000 @NM00071 EQU UPT+15 01077000 UPTLDEL EQU UPT+14 01078000 UPTCDEL EQU UPT+13 01079000 UPTWTP EQU UPTSWS 01080000 UPTALD EQU UPTSWS 01081000 UPTPAUS EQU UPTSWS 01082000 UPTNCOM EQU UPTSWS 01083000 UPTMID EQU UPTSWS 01084000 UPTNPRM EQU UPTSWS 01085000 UPTRCVR EQU UPTSWS 01086000 UPTUSER EQU UPT+2 01087000 @NM00070 EQU UPT 01088000 @NM00069 EQU ECT+52 01089000 @NM00068 EQU ECT+48 01090000 @NM00067 EQU ECT+44 01091000 @NM00066 EQU ECTSWS2+1 01092000 @NM00065 EQU ECTSWS21 01093000 ECTTABND EQU ECTSWS21 01094000 ECTDEFCS EQU ECTSWS21 01095000 ECTBKPB EQU ECT+36 01096000 ECTUSER EQU ECT+32 01097000 ECTDDNUM EQU ECT+29 01098000 ECTATTN EQU ECTSWS 01099000 ECTBKGRD EQU ECTSWS 01100000 ECTNNOT EQU ECTSWS 01101000 ECTNMAL EQU ECTSWS 01102000 ECTATRM EQU ECTSWS 01103000 @NM00064 EQU ECTSWS 01104000 ECTNOPD EQU ECTSWS 01105000 ECTSCMD EQU ECT+20 01106000 ECTPCMD EQU ECT+12 01107000 ECTSMSG EQU ECT+9 01108000 ECTIOWA EQU ECT+4 01109000 PSCBU EQU PSCB+64 01110000 PSCBRSZ EQU PSCB+60 01111000 PSCBLINE EQU PSCB+59 01112000 PSCBCHAR EQU PSCB+58 01113000 PSCBUPTL EQU PSCB+56 01114000 PSCBUPT EQU PSCB+52 01115000 PSCBRLGB EQU PSCB+48 01116000 PSCBDEST EQU PSCB+40 01117000 @NM00063 EQU PSCB+36 01118000 @NM00062 EQU PSCB+32 01119000 @NM00061 EQU PSCB+28 01120000 PSCBLTI2 EQU PSCB+24 01121000 PSCBLTIM EQU PSCB+20 01122000 PSCBATR2 EQU PSCB+18 01123000 @NM00060 EQU PSCBATR1 01124000 @NM00059 EQU PSCBATR1 01125000 @NM00058 EQU PSCBATR1 01126000 PSCBATTN EQU PSCBATR1 01127000 PSCBVMNT EQU PSCBATR1 01128000 PSCBJCL EQU PSCBATR1 01129000 PSCBACCT EQU PSCBATR1 01130000 PSCBCTRL EQU PSCBATR1 01131000 PSCBGPNM EQU PSCB+8 01132000 PSCBUSRL EQU PSCB+7 01133000 PSCBUSER EQU PSCB 01134000 CMDT1 EQU CMDT 01135000 CMDO EQU CMD+2 01136000 ZZ299999 EQU ZZ2+8192 01137000 ZZ2AXOT1 EQU ZZ2AXOT 01138000 ZZ2AXOL EQU ZZ2AXO 01139000 @NM00057 EQU ZZ2+7288 01140000 @NM00056 EQU ZZ2AMDX+4 01141000 ZZ2AMDXC EQU ZZ2AMDX 01142000 ZZ2HSD EQU ZZ2+3056 01143000 @NM00055 EQU ZZ2ES 01144000 @NM00054 EQU ZZ2+2868 01145000 ZZ2ITSEC EQU ZZ2ITSE+1 01146000 @NM00053 EQU ZZ2ITSE 01147000 ZZ2ITSEP EQU ZZ2ITSE 01148000 ZZ2ITSEW EQU ZZ2ITSE 01149000 @NM00052 EQU ZZ2ITR+20 01150000 ZZ2ITREC EQU ZZ2ITRE+1 01151000 @NM00051 EQU ZZ2ITRE 01152000 ZZ2ITREP EQU ZZ2ITRE 01153000 ZZ2ITREW EQU ZZ2ITRE 01154000 @NM00050 EQU ZZ2ITR+9 01155000 ZZ2ITRRC EQU ZZ2ITR+8 01156000 ZZ2ITR2P EQU ZZ2ITR+4 01157000 ZZ2ITRPP EQU ZZ2ITR 01158000 @NM00049 EQU ZZ2F 01159000 @NM00048 EQU ZZ2+1544 01160000 ZZ2PGM EQU ZZ2+1536 01161000 @NM00047 EQU ZZ2+1526 01162000 ZZ2CW EQU ZZ2+1524 01163000 @NM00046 EQU ZZ2+1504 01164000 @NM00045 EQU ZZ2+1352 01165000 ZZ2FFSYP EQU ZZ2+1348 01166000 ZZ2SASYP EQU ZZ2+1344 01167000 ZZ2RDSYP EQU ZZ2+1340 01168000 ZZ2RASYP EQU ZZ2+1336 01169000 ZZ2PHSYP EQU ZZ2+1332 01170000 ZZ2ESSYP EQU ZZ2+1328 01171000 ZZ200SYP EQU ZZ2+1324 01172000 ZZ2SCWP EQU ZZ2+1320 01173000 ZZ2TTLP EQU ZZ2+1316 01174000 ZZ2LOADP EQU ZZ2+1312 01175000 ZZ2VRESP EQU ZZ2+1308 01176000 ZZ2CPPLE EQU ZZ2CPPL+12 01177000 ZZ2CPPLP EQU ZZ2CPPL+8 01178000 ZZ2CPPLU EQU ZZ2CPPL+4 01179000 ZZ2VRSAP EQU ZZ2+1288 01180000 ZZ2RVTP EQU ZZ2+1284 01181000 ZZ2DVTP EQU ZZ2+1276 01182000 @NM00044 EQU ZZ2+1272 01183000 @NM00043 EQU ZZ2+1268 01184000 ZZ2RPLP EQU ZZ2+1260 01185000 ZZ2TCBP EQU ZZ2+1256 01186000 @NM00042 EQU ZZ2+1252 01187000 ZZ2ZZ2P EQU ZZ2+1248 01188000 @NM00041 EQU ZZ2+1112 01189000 ZZ2FPDRP EQU ZZ2+1108 01190000 ZZ2FDSDP EQU ZZ2+1104 01191000 ZZ2APDRP EQU ZZ2+1100 01192000 ZZ2ADSDP EQU ZZ2+1096 01193000 ZZ2ENQ0P EQU ZZ2+1092 01194000 @NM00040 EQU ZZ2+1080 01195000 ZZ2MSG0P EQU ZZ2+1076 01196000 ZZ2FT25P EQU ZZ2+1072 01197000 ZZ2MSGSP EQU ZZ2+1060 01198000 ZZ2ALOCP EQU ZZ2+1056 01199000 @NM00039 EQU ZZ2+976 01200000 ZZ2TOD EQU ZZ2+968 01201000 ZZ2STGN EQU ZZ2STG+4 01202000 ZZ2STGP EQU ZZ2STG 01203000 @NM00038 EQU ZZ2+952 01204000 ZZ2SCMDE EQU ZZ2+944 01205000 ZZ2SCMDN EQU ZZ2+936 01206000 ZZ2IDENT EQU ZZ2+928 01207000 ZZ2A9999 EQU ZZ2A+656 01208000 @NM00037 EQU ZZ2A+224 01209000 @NM00036 EQU ZZ2A+220 01210000 ZZ2AQD99 EQU ZZ2AQD+60 01211000 @NM00035 EQU ZZ2AQD+56 01212000 @NM00034 EQU ZZ2AQDF 01213000 ZZ2AQDFA EQU ZZ2AQDF 01214000 ZZ2AQDIL EQU ZZ2AQD+48 01215000 ZZ2AQDIM EQU ZZ2AQD+44 01216000 ZZ2AQDT9 EQU ZZ2AQDT+34 01217000 ZZ2AQDTE EQU ZZ2AQDT+33 01218000 ZZ2AQDTD EQU ZZ2AQDT+2 01219000 @NM00033 EQU ZZ2AQDT+1 01220000 ZZ2AQDTY EQU ZZ2AQDT 01221000 ZZ2AQDT0 EQU ZZ2AQDT 01222000 ZZ2AQDLB EQU ZZ2AQD+9 01223000 ZZ2AQDOB EQU ZZ2AQD+8 01224000 ZZ2AQDLE EQU ZZ2AQD+4 01225000 ZZ2AQDOF EQU ZZ2AQD 01226000 ZZ2AQD00 EQU ZZ2AQD 01227000 ZZ2AQAS9 EQU ZZ2AQAS+16 01228000 @NM00032 EQU ZZ2AQAS+12 01229000 ZZ2AQAS2 EQU ZZ2AQAS+8 01230000 ZZ2AQAS1 EQU ZZ2AQAS+4 01231000 @NM00031 EQU ZZ2AQAS+2 01232000 ZZ2AQAST EQU ZZ2AQAS 01233000 ZZ2AQAS0 EQU ZZ2AQAS 01234000 ZZ2AZZ6P EQU ZZ2A+140 01235000 ZZ2ADPTA EQU ZZ2ADPT 01236000 ZZ2ADPL EQU ZZ2ADP 01237000 ZZ2ADMTA EQU ZZ2ADMT 01238000 ZZ2ADML EQU ZZ2ADM 01239000 ZZ2ADDTA EQU ZZ2ADDT 01240000 ZZ2ADDL EQU ZZ2ADD 01241000 @NM00030 EQU ZZ2A+72 01242000 ZZ2APIDB EQU ZZ2APID+3 01243000 ZZ2APIDA EQU ZZ2APID 01244000 @NM00029 EQU ZZ2A+24 01245000 @NM00028 EQU ZZ2AF+5 01246000 ZZ2AFX EQU ZZ2AF+5 01247000 @NM00027 EQU ZZ2AF+3 01248000 ZZ2AFS EQU ZZ2AF+2 01249000 ZZ2AFD EQU ZZ2AF+2 01250000 ZZ2AFQ EQU ZZ2AF+2 01251000 ZZ2AF$ EQU ZZ2AF+2 01252000 @NM00026 EQU ZZ2AF+2 01253000 ZZ2AFM EQU ZZ2AF+2 01254000 @NM00025 EQU ZZ2AF+2 01255000 @NM00024 EQU ZZ2AF+1 01256000 ZZ2AFV EQU ZZ2AF+1 01257000 @NM00023 EQU ZZ2AF+1 01258000 ZZ2AFC EQU ZZ2AF+1 01259000 @NM00022 EQU ZZ2AF 01260000 ZZ2AFFS EQU ZZ2AF 01261000 ZZ2AFT EQU ZZ2AF 01262000 ZZ2AFP EQU ZZ2AF 01263000 @NM00021 EQU ZZ2A+8 01264000 ZZ2ALINE EQU ZZ2A+4 01265000 @NM00020 EQU ZZ2A+3 01266000 ZZ2ACH EQU ZZ2A 01267000 @NM00019 EQU ZZ2+264 01268000 @NM00018 EQU ZZ2+263 01269000 ZZ2PRTT0 EQU ZZ2PRTT 01270000 ZZ2PRTO EQU ZZ2PRT+2 01271000 ZZ2PRTL EQU ZZ2PRT 01272000 @NM00017 EQU ZZ2AMD+56 01273000 ZZ2AMDXP EQU ZZ2AMD+52 01274000 ZZ2AMDD EQU ZZ2AMD+48 01275000 ZZ2AMDL EQU ZZ2AMD+44 01276000 ZZ2AMDU EQU ZZ2AMD+28 01277000 ZZ2AMDF EQU ZZ2AMD+24 01278000 ZZ2AMDS EQU ZZ2AMD+20 01279000 ZZ2AMDC EQU ZZ2AMD+16 01280000 ZZ2AMDP EQU ZZ2AMD+12 01281000 ZZ2AMDB EQU ZZ2AMD+8 01282000 @NM00016 EQU @NM00015 01283000 ZZ2AMD2 EQU @NM00015 01284000 ZZ2AMD1 EQU @NM00015 01285000 ZZ2AMD0 EQU ZZ2AMD+6 01286000 ZZ2AMDA EQU ZZ2AMD+4 01287000 ZZ2AMDT EQU ZZ2AMD 01288000 ZZ199999 EQU ZZ1+3072 01289000 @NM00014 EQU ZZ1+2160 01290000 ZZ1TRTAS EQU ZZ1+1904 01291000 ZZ1TRUPC EQU ZZ1+1648 01292000 ZZ1TRCTX EQU ZZ1+1392 01293000 ZZ1NASID EQU ZZ1N+274 01294000 ZZ1NSTRL EQU ZZ1N+272 01295000 ZZ1NOFF EQU ZZ1N+268 01296000 ZZ1NBDY EQU ZZ1N+264 01297000 ZZ1NADE EQU ZZ1N+260 01298000 ZZ1NADB EQU ZZ1N+256 01299000 ZZ1NSTR EQU ZZ1N 01300000 @NM00013 EQU ZZ1+1080 01301000 ZZ1TREBC EQU ZZ1+824 01302000 ZZ1TRHEX EQU ZZ1+568 01303000 @NM00012 EQU ZZ1+377 01304000 ZZ1USTAE EQU ZZ1+376 01305000 @NM00011 EQU ZZ1F+3 01306000 @NM00010 EQU ZZ1F+2 01307000 ZZ1FPRNT EQU ZZ1F+2 01308000 @NM00009 EQU ZZ1F+1 01309000 ZZ1FTCAM EQU ZZ1F+1 01310000 ZZ1FACCM EQU ZZ1F+1 01311000 @NM00008 EQU ZZ1F 01312000 ZZ1FU EQU ZZ1F 01313000 ZZ1EVEC EQU ZZ1EVE+1 01314000 @NM00007 EQU ZZ1EVE 01315000 ZZ1EVEP EQU ZZ1EVE 01316000 ZZ1EVEW EQU ZZ1EVE 01317000 ZZ1ACMP EQU ZZ1ATTN 01318000 @NM00006 EQU ZZ1+144 01319000 ZZ1FPP EQU ZZ1+140 01320000 ZZ1ZZ6P EQU ZZ1+136 01321000 @NM00005 EQU ZZ1+84 01322000 ZZ1PLINE EQU ZZ1+80 01323000 ZZ1PGSZ EQU ZZ1+76 01324000 ZZ1PCNT EQU ZZ1+72 01325000 @NM00004 EQU ZZ1+68 01326000 ZZ1TPAGE EQU ZZ1+64 01327000 ZZ1TLINE EQU ZZ1+60 01328000 @NM00003 EQU ZZ1+52 01329000 ZZ1DMCBP EQU ZZ1+48 01330000 ZZ1DSDP EQU ZZ1+44 01331000 ZZ1PDRP EQU ZZ1+40 01332000 ZZ1ZZ2P EQU ZZ1+36 01333000 ZZ1327WP EQU ZZ1+32 01334000 ZZ1ACBP EQU ZZ1+28 01335000 @NM00002 EQU ZZ1+24 01336000 ZZ1PDCBP EQU ZZ1+20 01337000 ZZ1BLRBL EQU ZZ1+16 01338000 @NM00001 EQU ZZ1+12 01339000 ZZ1PNULL EQU ZZ1+8 01340000 ZZ1NULL EQU ZZ1+4 01341000 ZZ1IDE EQU ZZ1 01342000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 01343000 @RF00131 EQU @RC00103 01344000 @RF00200 EQU @RC00169 01345000 @RC00202 EQU @RC00169 01346000 @RF00247 EQU @EL00003 01347000 @ENDDATA EQU * 01348000 END BLSUMON,(C'PLS1847',0701,78117) 01349000