TITLE ' /* IRBMFMPR - MF/1 MESSAGE PROCESSOR *00001000 ' 00002000 MACRO 00003000 &SYMBOL MDL &MPL=,&DESC=,&ROUTCDE=,&WTOR=NO,&MSGDS=NO,&MSGID=, *00004000 &COLUMN=,&WTO=YES,&CARCTL= 00005000 AGO .BEGIN 00006000 */***** START OF SPECIFICATIONS **************************************/ 00007000 */* */ 00008000 */* MACCOMP Y-2 SC1CQ/GAM20 */ 00009000 */* MACMEAN -MDL MEANS MESSAGE DESCRIPTOR LIST */ 00010000 */* */ 00011000 */* MODULE NAME = MDL (MACRO) */ 00012000 */* */ 00013000 */* DESCRIPTIVE NAME = MESSAGE DESCRIPTOR LIST */ 00014000 */* */ 00015000 */* COPYRIGHT = NONE */ 00016000 */* */ 00017000 */* FUNCTION = DESCRIBES INFORMATION NECESSARY FOR THE ISSUING OF */ 00018000 */* MESSAGES: */ 00019000 */* -MESSAGE PARTS LIST */ 00020000 */* -ROUTING CODES */ 00021000 */* -DESCRIPTOR CODES */ 00022000 */* -WTO/WTOR/ISSUE MESSAGE TO DATA SET */ 00023000 */* -MESSAGE ID */ 00024000 */* -COLUMN TO START MESSAGE IN */ 00025000 */* NOTES = NONE */ 00026000 */* */ 00027000 */* MODULE TYPE = BAL EXECUTABLE MACRO */ 00028000 */* */ 00029000 */* CHANGE ACTIVITY = SEE BELOW */ 00030000 */* A000000-999999 Y02150*/ 00031000 */* */ 00032000 */* METHOD OF INVOCATION = SEE BELOW */ 00033000 */* */ 00034000 */* BAL - MDL MPL=A,DESC=B,ROUTCDE=C,WTOR=D,MSGDS=E,MSGID=F, */ 00035000 */* COLUMN=G */ 00036000 */* WHERE */ 00037000 */* A - A MESSAGE PART NUMBER OR A LIST OF MESSAGE PART */ 00038000 */* NUMBERS */ 00039000 */* B - DESCRIPTOR CODE OR A LIST OF DESCRIPTOR CODES */ 00040000 */* C - ROUTING CODE OR A LIST OF ROUTING CODES */ 00041000 */* D - 'YES' IF MESSAGE IS A WTOR TYPE */ 00042000 */* 'NO' IF MESSAGE IS WTO TYPE */ 00043000 */* E - 'YES' IF MESSAGE IS TO BE ISSUED TO A DATA SET */ 00044000 */* 'NO' OTHERWISE */ 00045000 */* F - MESSAGE ID NUMBER (IRBXXXI, E.G.) */ 00046000 */* G - COLUMN IN WHICH MESSAGE TEXT SHOULD BEGIN */ 00047000 */* */ 00048000 */* PLS - NONE */ 00049000 */***** END OF SPECIFICATIONS ****************************************/ 00050000 .BEGIN ANOP 00051000 */* MACDATE Y-2 73026 */ 00052000 LCLA &LOOP 00053000 LCLA &R(16) 00054000 LCLA &D(16) 00055000 LCLA &NUM 00056000 LCLA &F(8) 00057000 LCLC &CAR 00058000 &NUM SETA N'&MPL 00059000 AIF (T'&ROUTCDE EQ 'O').LABEL3 00060000 &LOOP SETA 1 00061000 .LABEL2 ANOP 00062000 AIF (&LOOP GT N'&ROUTCDE).LABEL3 00063000 &R(&ROUTCDE(&LOOP)) SETA 1 00064000 &LOOP SETA &LOOP+1 00065000 AGO .LABEL2 00066000 .LABEL3 ANOP 00067000 AIF (T'&DESC EQ 'O').LABEL4 00068000 &LOOP SETA 1 00069000 .LABEL5 ANOP 00070000 AIF (&LOOP GT N'&DESC).LABEL4 00071000 &D(&DESC(&LOOP)) SETA 1 00072000 &LOOP SETA &LOOP+1 00073000 AGO .LABEL5 00074000 .LABEL4 ANOP 00075000 AIF ('&WTO' NE 'YES').LABEL6 00076000 &F(1) SETA 1 00077000 .LABEL6 ANOP 00078000 AIF ('&WTOR' NE 'YES').LABEL7 00079000 &F(2) SETA 1 00080000 .LABEL7 ANOP 00081000 AIF ('&MSGDS' NE 'YES').LABEL8 00082000 &F(3) SETA 1 00083000 .LABEL8 ANOP 00084000 AIF (T'&CARCTL EQ 'O').LABEL9 00085000 &CAR SETC '&CARCTL' 00086000 AGO .LABEL10 00087000 .LABEL9 ANOP 00088000 &CAR SETC ' ' 00089000 .LABEL10 ANOP 00090000 IRBMFMPR CSECT . MESSAGE DESCRIPTOR LIST (MDL) 00091000 &SYMBOL DC A(MPL&SYSNDX) . ADDRESS OF MESSAGE PARTS LIST (MPL) 00092000 DC BL2'&R(1)&R(2)&R(3)&R(4)&R(5)&R(6)&R(7)&R(8)&R(9)&R(10)&*00093000 R(11)&R(12)&R(13)&R(14)&R(15)&R(16)' ROUTING CODES 00094000 DC BL2'&D(1)&D(2)&D(3)&D(4)&D(5)&D(6)&D(7)&D(8)&D(9)&D(10)&*00095000 D(11)&D(12)&D(13)&D(14)&D(15)&D(16)' DESCRIPTOR CODES 00096000 DC BL1'&F(1)&F(2)&F(3)&F(4)&F(5)&F(6)&F(7)&F(8)' FLAGS 00097000 DC AL1(&NUM) . NUMBER OF MPL ENTRIES 00098000 DC CL7'&MSGID' . MESSAGE ID 00099000 DC FL1'&COLUMN' . COLUMN TO START MSG IN 00100000 DC CL1'&CAR' . CARRIAGE CONTROL CHARACTER 00101000 DC AL1(0) . RESERVED 00102000 IRBMFVPL CSECT 00103000 MPL&SYSNDX DS 0H . MESSAGE PARTS LIST 00104000 &LOOP SETA 1 00105000 .MSGPRT1 ANOP 00106000 AIF (&LOOP GT &NUM).MSGPRT2 00107000 DC H'&MPL(&LOOP)' 00108000 &LOOP SETA &LOOP+1 00109000 AGO .MSGPRT1 00110000 .MSGPRT2 ANOP 00111000 MEND 00112000 IRBMFMPR CSECT , 0002 00113000 @MAINENT DS 0H 0002 00114000 USING *,@15 0002 00115000 B @PROLOG 0002 00116000 DC AL1(16) 0002 00117000 DC C'IRBMFMPR 74.087' 0002 00118000 DROP @15 00119000 @PROLOG STM @14,@12,12(@13) 0002 00120000 BALR @12,0 0002 00121000 @PSTART DS 0H 0002 00122000 USING @PSTART,@12 0002 00123000 L @00,@SIZDATD 0002 00124000 GETMAIN R,LV=(0) 00125000 LR @11,@01 0002 00126000 USING @DATD,@11 0002 00127000 ST @13,@SA00001+4 0002 00128000 LM @00,@01,20(@13) 0002 00129000 ST @11,8(,@13) 0002 00130000 LR @13,@11 0002 00131000 XC @ZTEMPS(@ZLEN),@ZTEMPS 00132000 MVC @PC00001(16),0(@01) 0002 00133000 * IF MPWTOR(MPINDEX)='1'B THEN /* WTOR TYPE MESSAGE? */ 00134000 L @10,@PC00001 0016 00135000 L @10,MPINDEX(,@10) 0016 00136000 MH @10,@CH00271 0016 00137000 LA @01,MPWTOR-20(@10) 0016 00138000 TM 0(@01),B'01000000' 0016 00139000 BNO @RF00016 0016 00140000 * DO; /* INITIALIZE PREFIX */ 00141000 * WPLRLN=MPREPLEN; /* REPLY LENGTH */ 00142000 LA @10,MPWTORL 0018 00143000 L @15,@PC00001+8 0018 00144000 MVC WPLRLN(1,@10),MPREPLEN+1(@15) 0018 00145000 * WPLRPTRA=ADDR(MPREPTXT); /* ADDRESS OF REPLY BUFFER */ 00146000 LA @15,MPREPTXT(,@15) 0019 00147000 ST @15,@TF00001 0019 00148000 MVC WPLRPTRA(3,@10),@TF00001+1 0019 00149000 * WPLRECB=ADDR(MPECB); /* ADDRESS OF ECB */ 00150000 * 0020 00151000 LA @15,MPECB 0020 00152000 ST @15,WPLRECB(,@10) 0020 00153000 * /*************************************************************/ 00154000 * /* */ 00155000 * /* BLANK OUT REPLY BUFFER */ 00156000 * /* */ 00157000 * /*************************************************************/ 00158000 * 0021 00159000 * DO I=1 TO MPREPLEN; 0021 00160000 LA I,1 0021 00161000 B @DE00021 0021 00162000 @DL00021 DS 0H 0022 00163000 * MPREPTXT(I)=' '; 0022 00164000 L @10,@PC00001+8 0022 00165000 ALR @10,I 0022 00166000 MVI MPREPTXT-1(@10),C' ' 0022 00167000 * END; 0023 00168000 AH I,@CH00056 0023 00169000 @DE00021 L @10,@PC00001+8 0023 00170000 CH I,MPREPLEN(,@10) 0023 00171000 BNH @DL00021 0023 00172000 * END; 0024 00173000 * 0024 00174000 */* COMMON SECTION OF WPL */ 00175000 * 0025 00176000 * WPLLGH=MPBUFLEN+4; /* LENGTH OF COMMON SECTION (4) + 00177000 * TEXT LENGTH (80) */ 00178000 @RF00016 LA @10,MPWTOL 0025 00179000 MVC WPLLGH(2,@10),@CH00206 0025 00180000 * WPLMCSF=0; /* ZERO FLAGS */ 00181000 SR @05,@05 0026 00182000 ST @05,@TF00001 0026 00183000 MVC WPLMCSF(2,@10),@TF00001+2 0026 00184000 * WPLMCSFA='1'B; /* ROUTE AND DESCRIPTOR CODES ARE 00185000 * PASSED */ 00186000 OI WPLMCSFA(@10),B'10000000' 0027 00187000 * MPDESC=MPDESCCD(MPINDEX); /* DESCRIPTOR CODES */ 00188000 L @05,@PC00001 0028 00189000 L @05,MPINDEX(,@05) 0028 00190000 MH @05,@CH00271 0028 00191000 LA @03,MPDESCCD-20(@05) 0028 00192000 MVC MPDESC(2),0(@03) 0028 00193000 * MPROUT=MPROUTCD(MPINDEX); /* ROUTING CODES */ 00194000 LA @03,MPROUTCD-20(@05) 0029 00195000 MVC MPROUT(2),0(@03) 0029 00196000 * MPECB=0; /* ZERO OUT ECB */ 00197000 SR @03,@03 0030 00198000 ST @03,MPECB 0030 00199000 * MP1STLIN='1'B; /* INDICATE 1ST LINE */ 00200000 OI MP1STLIN,B'10000000' 0031 00201000 * MPBUFPTR=MPCOLUMN(MPINDEX); /* BEGINNING OF 1ST LINE */ 00202000 SR MPBUFPTR,MPBUFPTR 0032 00203000 IC MPBUFPTR,MPCOLUMN-20(@05) 0032 00204000 * MPMSGBUF(1:MPBUFLEN)=' '; /* BLANK OUT BUFFER */ 00205000 MVI MPMSGBUF+1(@10),C' ' 0033 00206000 MVC MPMSGBUF+2(78,@10),MPMSGBUF+1(@10) 0033 00207000 MVI MPMSGBUF(@10),C' ' 0033 00208000 * MPMSGBUF(1:7)=MPMSGID(MPINDEX); /* MOVE IN MESSAGE ID */ 00209000 LA @03,MPMSGID-20(@05) 0034 00210000 MVC MPMSGBUF(7,@10),0(@03) 0034 00211000 * MPTXTIDX=1; /* VARIABLE TEXT LIST INDEX */ 00212000 LA @10,1 0035 00213000 LR MPTXTIDX,@10 0035 00214000 * DO I=1 TO MPMPLENT(MPINDEX); /* DO FOR EACH MPL ENTRY */ 00215000 LR I,@10 0036 00216000 B @DE00036 0036 00217000 @DL00036 DS 0H 0037 00218000 * IF MPVPNUM(I)^=0 THEN /* MPL CALLS FOR MSG PART? */ 00219000 LR @10,I 0037 00220000 AR @10,@10 0037 00221000 L @05,@PC00001 0037 00222000 L @05,MPINDEX(,@05) 0037 00223000 MH @05,@CH00271 0037 00224000 L @05,MPVPLADR-20(@05) 0037 00225000 AL @05,@CF00275 0037 00226000 LH @10,MPVPNUM(@10,@05) 0037 00227000 LTR @10,@10 0037 00228000 BZ @RF00037 0037 00229000 * DO; 0038 00230000 * MPLENGTH=IRBMFLMV(MPVPNUM(I))->MPMSGLEN;/* MSG PART LENGTH */ 00231000 SLA @10,2 0039 00232000 L @05,@CA00190 0039 00233000 AL @05,@CF00276 0039 00234000 L @10,IRBMFLMV-IRBMFLMV(@10,@05) 0039 00235000 MVC MPLENGTH(4),MPMSGLEN(@10) 0039 00236000 * MPTXTPTR=ADDR(IRBMFLMV(MPVPNUM(I))->MPMSGTXT);/* MSG TEXT */ 00237000 LA @10,MPMSGTXT(,@10) 0040 00238000 ST @10,MPTXTPTR 0040 00239000 * CALL MFBLDMSG(MPLENGTH,MPTXTPTR);/* BUILD MSG BUFFER */ 00240000 LA @10,MPLENGTH 0041 00241000 ST @10,@AL00001 0041 00242000 LA @10,MPTXTPTR 0041 00243000 ST @10,@AL00001+4 0041 00244000 LA @01,@AL00001 0041 00245000 BAL @14,MFBLDMSG 0041 00246000 * END; 0042 00247000 * ELSE /* MPL CALLS FOR VARIABLE TEXT */ 00248000 * DO; 0043 00249000 B @RC00037 0043 00250000 @RF00037 DS 0H 0044 00251000 * IF MPPRTNUM=MPVTXTID&MPTXTLEN^=0 THEN/* VARIABLE TEXT 0044 00252000 * EXIST? */ 00253000 SR @10,@10 0044 00254000 LR @05,MPTXTIDX 0044 00255000 SLA @05,2 0044 00256000 L @15,@PC00001+4 0044 00257000 AL @15,@CF00276 0044 00258000 L @05,MPVARTXT(@05,@15) 0044 00259000 CH @10,MPPRTNUM(,@05) 0044 00260000 BNE @RF00044 0044 00261000 CH @10,MPTXTLEN(,@05) 0044 00262000 BE @RF00044 0044 00263000 * DO; 0045 00264000 * CALL MFBLDMSG(EVAL(MPTXTLEN),ADDR(MPVTEXT));/* YES,PUT 00265000 * IN MESSAGE BUFFER */ 00266000 LH @10,MPTXTLEN(,@05) 0046 00267000 ST @10,@AFTEMPS 0046 00268000 LA @10,@AFTEMPS 0046 00269000 ST @10,@AL00001 0046 00270000 LA @10,MPVTEXT(,@05) 0046 00271000 ST @10,@AFTEMPS+4 0046 00272000 LA @10,@AFTEMPS+4 0046 00273000 ST @10,@AL00001+4 0046 00274000 LA @01,@AL00001 0046 00275000 BAL @14,MFBLDMSG 0046 00276000 * END; 0047 00277000 * IF MPPRTNUM^=MPVTXTID THEN/* IS VARIABLE TEXT A MSG PART. */ 00278000 @RF00044 LR @10,MPTXTIDX 0048 00279000 SLA @10,2 0048 00280000 L @05,@PC00001+4 0048 00281000 AL @05,@CF00276 0048 00282000 L @10,MPVARTXT(@10,@05) 0048 00283000 LH @10,MPPRTNUM(,@10) 0048 00284000 LTR @10,@10 0048 00285000 BZ @RF00048 0048 00286000 * DO; 0049 00287000 * MPLENGTH=IRBMFLMV(MPPRTNUM)->MPMSGLEN;/* MSG PART 0050 00288000 * LENGTH */ 00289000 SLA @10,2 0050 00290000 L @05,@CA00190 0050 00291000 AL @05,@CF00276 0050 00292000 L @10,IRBMFLMV-IRBMFLMV(@10,@05) 0050 00293000 MVC MPLENGTH(4),MPMSGLEN(@10) 0050 00294000 * MPTXTPTR=ADDR(IRBMFLMV(MPPRTNUM)->MPMSGTXT);/* PART 0051 00295000 * TEXT */ 00296000 LA @10,MPMSGTXT(,@10) 0051 00297000 ST @10,MPTXTPTR 0051 00298000 * CALL MFBLDMSG(MPLENGTH,MPTXTPTR);/* BUILD MSG BUFFER */ 00299000 LA @10,MPLENGTH 0052 00300000 ST @10,@AL00001 0052 00301000 LA @10,MPTXTPTR 0052 00302000 ST @10,@AL00001+4 0052 00303000 LA @01,@AL00001 0052 00304000 BAL @14,MFBLDMSG 0052 00305000 * END; 0053 00306000 * MPTXTIDX=MPTXTIDX+1; /* UPDATE ARRAY INDEX */ 00307000 @RF00048 AH MPTXTIDX,@CH00056 0054 00308000 * END; 0055 00309000 * END; 0056 00310000 * 0056 00311000 @RC00037 AH I,@CH00056 0056 00312000 @DE00036 L @10,@PC00001 0056 00313000 L @10,MPINDEX(,@10) 0056 00314000 MH @10,@CH00271 0056 00315000 LA @05,MPMPLENT-20(@10) 0056 00316000 MVC @ZT00003+3(1),0(@05) 0056 00317000 C I,@ZT00003 0056 00318000 BNH @DL00036 0056 00319000 * /*****************************************************************/ 00320000 * /* */ 00321000 * /* WRITE OUT LAST BUFFER */ 00322000 * /* */ 00323000 * /*****************************************************************/ 00324000 * 0057 00325000 */* IF ANY TEXT IN BUFFER, WRITE IT OUT. */ 00326000 * 0057 00327000 * IF MP1STLIN='1'B&MPBUFPTR^=MPCOLUMN(MPINDEX)|MP1STLIN='0'B&MPBUFPTR 00328000 * ^=MPCOLUMN(MPINDEX)+MPINDENT THEN 0057 00329000 TM MP1STLIN,B'10000000' 0057 00330000 BNO @GL00002 0057 00331000 L @10,@PC00001 0057 00332000 L @10,MPINDEX(,@10) 0057 00333000 MH @10,@CH00271 0057 00334000 LA @05,MPCOLUMN-20(@10) 0057 00335000 MVC @ZT00003+3(1),0(@05) 0057 00336000 C MPBUFPTR,@ZT00003 0057 00337000 BNE @RT00057 0057 00338000 @GL00002 TM MP1STLIN,B'10000000' 0057 00339000 BNZ @RF00057 0057 00340000 L @10,@PC00001 0057 00341000 L @10,MPINDEX(,@10) 0057 00342000 MH @10,@CH00271 0057 00343000 LA @05,10 0057 00344000 LA @01,MPCOLUMN-20(@10) 0057 00345000 MVC @ZT00003+3(1),0(@01) 0057 00346000 A @05,@ZT00003 0057 00347000 CR MPBUFPTR,@05 0057 00348000 BE @RF00057 0057 00349000 @RT00057 DS 0H 0058 00350000 * CALL MFOUTMSG; /* PRINT MESSAGE */ 00351000 BAL @14,MFOUTMSG 0058 00352000 * IF MPWTOR(MPINDEX)='1'B&MP1STLIN='0'B THEN/* WTOR TYPE AND WTOR 00353000 * ISSUED */ 00354000 @RF00057 L @10,@PC00001 0059 00355000 L @10,MPINDEX(,@10) 0059 00356000 MH @10,@CH00271 0059 00357000 LA @01,MPWTOR-20(@10) 0059 00358000 TM 0(@01),B'01000000' 0059 00359000 BNO @RF00059 0059 00360000 TM MP1STLIN,B'10000000' 0059 00361000 BNZ @RF00059 0059 00362000 * DO; 0060 00363000 * RFY 0061 00364000 * (GPR00P, 0061 00365000 * GPR01P, 0061 00366000 * GPR14P, 0061 00367000 * GPR15P)RSTD; 0061 00368000 * GEN(WAIT ECB=MPECB,LONG=YES);/* WAIT FOR REPLY TO MESSAGE. */ 00369000 WAIT ECB=MPECB,LONG=YES 00370000 * RFY 0063 00371000 * (GPR00P, 0063 00372000 * GPR01P, 0063 00373000 * GPR14P, 0063 00374000 * GPR15P)UNRSTD; 0063 00375000 * END; 0064 00376000 * RETURN; /* RETURN TO CALLER */ 00377000 @EL00001 L @13,4(,@13) 0065 00378000 @EF00001 L @00,@SIZDATD 0065 00379000 LR @01,@11 0065 00380000 FREEMAIN R,LV=(0),A=(1) 00381000 @ER00001 LM @14,@12,12(@13) 0065 00382000 BR @14 0065 00383000 * 0066 00384000 */* PROCEDURE NAME = MFBLDMSG */ 00385000 */* */ 00386000 */* DESCRIPTIVE NAME = BUILD MESSAGE BUFFER */ 00387000 */* */ 00388000 */* FUNCTION = INSERT MESSAGE TEXT INTO A BUFFER TO BE USED IN */ 00389000 */* ISSUING A MESSAGE */ 00390000 */* */ 00391000 * 0066 00392000 *MFBLDMSG: 0066 00393000 * PROCEDURE(BLLENGTH,BLTXTPTR); 0066 00394000 MFBLDMSG STM @14,@03,@SA00002 0066 00395000 STM @05,@12,@SA00002+24 0066 00396000 MVC @PC00002(8),0(@01) 0066 00397000 * DECLARE 0067 00398000 * BLTXTPTR /* PTR TO TEXT IN MSG BUFFER */ 00399000 * PTR(31), 0067 00400000 * BLLENGTH /* LENGTH OF TEXT */ 00401000 * FIXED(31), 0067 00402000 * BLBUPTR1 /* NUMBER OF BYTES LEFT IN BUF */ 00403000 * FIXED(8), 0067 00404000 * BLTEXT /* MSG TEXT */ 00405000 * CHAR(*) 0067 00406000 * 0067 00407000 * /***************************************************************/ 00408000 * /* */ 00409000 * /* BEGINNING OF A NEW LINE */ 00410000 * /* */ 00411000 * /***************************************************************/ 00412000 * 0067 00413000 * BASED(BLTXTPTR), 0067 00414000 * J /* TEXT POINTER */ 00415000 * FIXED(31); 0067 00416000 *BLDBEGIN: 0068 00417000 * 0068 00418000 * /*****************************************************************/ 00419000 * /* */ 00420000 * /* IF THIS IS THE BEGINNING OF A NEW LINE */ 00421000 * /* */ 00422000 * /*****************************************************************/ 00423000 * 0068 00424000 * IF MP1STLIN='1'B&MPBUFPTR=MPCOLUMN(MPINDEX)|MP1STLIN='0'B&MPBUFPTR= 00425000 * MPCOLUMN(MPINDEX)+MPINDENT THEN 0068 00426000 BLDBEGIN TM MP1STLIN,B'10000000' 0068 00427000 BNO @GL00006 0068 00428000 L @10,@PC00001 0068 00429000 L @10,MPINDEX(,@10) 0068 00430000 MH @10,@CH00271 0068 00431000 LA @05,MPCOLUMN-20(@10) 0068 00432000 MVC @ZT00003+3(1),0(@05) 0068 00433000 C MPBUFPTR,@ZT00003 0068 00434000 BE @RT00068 0068 00435000 @GL00006 TM MP1STLIN,B'10000000' 0068 00436000 BNZ @RF00068 0068 00437000 L @10,@PC00001 0068 00438000 L @10,MPINDEX(,@10) 0068 00439000 MH @10,@CH00271 0068 00440000 LA @05,10 0068 00441000 LA @01,MPCOLUMN-20(@10) 0068 00442000 MVC @ZT00003+3(1),0(@01) 0068 00443000 A @05,@ZT00003 0068 00444000 CR MPBUFPTR,@05 0068 00445000 BNE @RF00068 0068 00446000 @RT00068 DS 0H 0069 00447000 * DO; /* TAKE OUT LEADING BLANKS */ 00448000 * DO J=1 TO BLLENGTH WHILE(BLTEXT(J)=' '); 0070 00449000 LA J,1 0070 00450000 B @DE00070 0070 00451000 @DL00070 L @10,@PC00002+4 0070 00452000 L @10,BLTXTPTR(,@10) 0070 00453000 ALR @10,J 0070 00454000 AL @10,@CF00267 0070 00455000 CLI BLTEXT(@10),C' ' 0070 00456000 BNE @DC00070 0070 00457000 * END; 0071 00458000 AH J,@CH00056 0071 00459000 @DE00070 L @10,@PC00002 0071 00460000 C J,BLLENGTH(,@10) 0071 00461000 BNH @DL00070 0071 00462000 @DC00070 DS 0H 0072 00463000 * IF J=BLLENGTH+1 THEN /* GONE BEYOND TEXT PTR? */ 00464000 LA @10,1 0072 00465000 L @05,@PC00002 0072 00466000 L @03,BLLENGTH(,@05) 0072 00467000 LR @15,@03 0072 00468000 AR @15,@10 0072 00469000 CR J,@15 0072 00470000 BE @RT00072 0072 00471000 * RETURN; /* RETURN TO MPR */ 00472000 * BLLENGTH=BLLENGTH-J+1; /* DECREASE LENGTH OF TEXT */ 00473000 SR @03,J 0074 00474000 AR @03,@10 0074 00475000 ST @03,BLLENGTH(,@05) 0074 00476000 * BLTXTPTR=BLTXTPTR+J-1; /* MOVE TEXT PTR PAST BLANKS */ 00477000 L @10,@PC00002+4 0075 00478000 LR @05,J 0075 00479000 A @05,BLTXTPTR(,@10) 0075 00480000 BCTR @05,0 0075 00481000 ST @05,BLTXTPTR(,@10) 0075 00482000 * END; 0076 00483000 * IF(MPBUFLEN-MPBUFPTR+1)>=BLLENGTH THEN/* ENOUGH ROOM IN BUFFER */ 00484000 @RF00068 LA @10,80 0077 00485000 SR @10,MPBUFPTR 0077 00486000 AH @10,@CH00056 0077 00487000 L @05,@PC00002 0077 00488000 L @05,BLLENGTH(,@05) 0077 00489000 CR @10,@05 0077 00490000 BL @RF00077 0077 00491000 * DO; /* MOVE TEXT INTO BUFFER */ 00492000 * MPMSGBUF(MPBUFPTR:MPBUFPTR+BLLENGTH-1)=BLTEXT(1:BLLENGTH); 0079 00493000 LA @10,MPWTOL 0079 00494000 ALR @10,MPBUFPTR 0079 00495000 LR @15,@05 0079 00496000 BCTR @15,0 0079 00497000 L @14,@PC00002+4 0079 00498000 L @01,BLTXTPTR(,@14) 0079 00499000 EX @15,@SM00277 0079 00500000 * MPBUFPTR=MPBUFPTR+BLLENGTH; /* UPDATE CURRENT PTR */ 00501000 AR MPBUFPTR,@05 0080 00502000 * RETURN; /* RETURN TO MPR */ 00503000 @EL00002 DS 0H 0081 00504000 @EF00002 DS 0H 0081 00505000 @ER00002 LM @14,@03,@SA00002 0081 00506000 LM @05,@12,@SA00002+24 0081 00507000 BR @14 0081 00508000 * END; 0082 00509000 * 0082 00510000 * /*****************************************************************/ 00511000 * /* */ 00512000 * /* NOT ENOUGH ROOM IN BUFFER FOR ENTIRE MSG - PRINT PART OF IT. */ 00513000 * /* */ 00514000 * /*****************************************************************/ 00515000 * 0083 00516000 * BLBUPTR1=MPBUFLEN-MPBUFPTR+1; /* # BYTES LEFT DETERMINED */ 00517000 * 0083 00518000 @RF00077 LA BLBUPTR1,80 0083 00519000 SR BLBUPTR1,MPBUFPTR 0083 00520000 AH BLBUPTR1,@CH00056 0083 00521000 * /*****************************************************************/ 00522000 * /* */ 00523000 * /* IF TEXT CAN BE SPLIT, INSERT FIRST PORTION AND LEAVE THE REST */ 00524000 * /* FOR THE NEXT BUFFER */ 00525000 * /* */ 00526000 * /*****************************************************************/ 00527000 * 0084 00528000 * IF BLTEXT(BLBUPTR1+1)=' '|BLTEXT(BLBUPTR1)=','|BLTEXT(BLBUPTR1)=' ' 00529000 * THEN 0084 00530000 L @10,@PC00002+4 0084 00531000 L @10,BLTXTPTR(,@10) 0084 00532000 LR @05,@10 0084 00533000 ALR @05,BLBUPTR1 0084 00534000 CLI BLTEXT(@05),C' ' 0084 00535000 BE @RT00084 0084 00536000 LR @05,@10 0084 00537000 ALR @05,BLBUPTR1 0084 00538000 AL @05,@CF00267 0084 00539000 CLI BLTEXT(@05),C',' 0084 00540000 BE @RT00084 0084 00541000 ALR @10,BLBUPTR1 0084 00542000 AL @10,@CF00267 0084 00543000 CLI BLTEXT(@10),C' ' 0084 00544000 BNE @RF00084 0084 00545000 @RT00084 DS 0H 0085 00546000 * DO; 0085 00547000 * MPBUFPTR=MPBUFPTR+BLBUPTR1; /* UPDATE CURRENT PTR */ 00548000 AR MPBUFPTR,BLBUPTR1 0086 00549000 * CALL MFOUTMSG; /* PRINT MESSAGE */ 00550000 BAL @14,MFOUTMSG 0087 00551000 * BLLENGTH=BLLENGTH-BLBUPTR1; /* NEW TEXT LENGTH */ 00552000 L @10,@PC00002 0088 00553000 L @05,BLLENGTH(,@10) 0088 00554000 SR @05,BLBUPTR1 0088 00555000 ST @05,BLLENGTH(,@10) 0088 00556000 * BLTXTPTR=BLTXTPTR+BLBUPTR1; /* MOVE TEXT PTR TO UNWRITTEN PRT*/ 00557000 L @10,@PC00002+4 0089 00558000 LR @05,BLBUPTR1 0089 00559000 A @05,BLTXTPTR(,@10) 0089 00560000 ST @05,BLTXTPTR(,@10) 0089 00561000 * GOTO BLDBEGIN; /* START A NEW LINE */ 00562000 B BLDBEGIN 0090 00563000 * END; 0091 00564000 * 0091 00565000 * /*****************************************************************/ 00566000 * /* */ 00567000 * /* TEXT WILL NOT FIT AT NATURAL BREAK POINT. TRY TO FIND A BREAK */ 00568000 * /* POINT BY SEARCHING BACKWARD. */ 00569000 * /* */ 00570000 * /*****************************************************************/ 00571000 * 0092 00572000 * DO J=BLBUPTR1 TO 1 BY-1 WHILE(BLTEXT(J)^=' '&BLTEXT(J)^=','); 0092 00573000 @RF00084 LR J,BLBUPTR1 0092 00574000 B @DE00092 0092 00575000 @DL00092 L @10,@PC00002+4 0092 00576000 L @10,BLTXTPTR(,@10) 0092 00577000 LR @05,@10 0092 00578000 ALR @05,J 0092 00579000 AL @05,@CF00267 0092 00580000 CLI BLTEXT(@05),C' ' 0092 00581000 BE @DC00092 0092 00582000 ALR @10,J 0092 00583000 AL @10,@CF00267 0092 00584000 CLI BLTEXT(@10),C',' 0092 00585000 BE @DC00092 0092 00586000 * END; 0093 00587000 BCTR J,0 0093 00588000 @DE00092 LTR J,J 0093 00589000 BP @DL00092 0093 00590000 @DC00092 DS 0H 0094 00591000 * IF J^=0 THEN /* NONBLANK-NONCOMMA TEXT EXIST? */ 00592000 LTR J,J 0094 00593000 BZ @RF00094 0094 00594000 * DO; 0095 00595000 * MPMSGBUF(MPBUFPTR:MPBUFPTR+J-1)=BLTEXT(1:J); 0096 00596000 LA @10,MPWTOL 0096 00597000 ALR @10,MPBUFPTR 0096 00598000 LR @05,J 0096 00599000 BCTR @05,0 0096 00600000 L @03,@PC00002+4 0096 00601000 L @15,BLTXTPTR(,@03) 0096 00602000 EX @05,@SM00279 0096 00603000 * MPBUFPTR=MPBUFPTR+J; /* UPDATE CURRENT PTR */ 00604000 AR MPBUFPTR,J 0097 00605000 * BLLENGTH=BLLENGTH-J; /* NEW TEXT LENGTH */ 00606000 L @10,@PC00002 0098 00607000 L @14,BLLENGTH(,@10) 0098 00608000 SR @14,J 0098 00609000 ST @14,BLLENGTH(,@10) 0098 00610000 * BLTXTPTR=BLTXTPTR+J; /* MOVE TEXT PTR PAST ' ' OR ',' */ 00611000 AR @15,J 0099 00612000 ST @15,BLTXTPTR(,@03) 0099 00613000 * END; 0100 00614000 * CALL MFOUTMSG; /* ISSUE MESSAGE */ 00615000 @RF00094 BAL @14,MFOUTMSG 0101 00616000 * GOTO BLDBEGIN; /* START A NEW LINE */ 00617000 B BLDBEGIN 0102 00618000 * END MFBLDMSG; 0103 00619000 B @EL00002 0103 00620000 * 0104 00621000 */* PROCEDURE NAME = MFOUTMSG */ 00622000 */* */ 00623000 */* DESCRIPTIVE NAME = ISSUE MESSAGE */ 00624000 */* */ 00625000 */* FUNCTION = ISSUE WTO, WTOR, OR PUT TO PRINT MESSAGE */ 00626000 */* */ 00627000 * 0104 00628000 *MFOUTMSG: 0104 00629000 * PROCEDURE; 0104 00630000 MFOUTMSG STM @14,@03,@SA00003 0104 00631000 STM @05,@12,@SA00003+24 0104 00632000 * IF MPWTOR(MPINDEX)='1'B&MP1STLIN='1'B THEN/* WTOR TYPE AND 1ST 0105 00633000 * LINE? */ 00634000 L @10,@PC00001 0105 00635000 L @10,MPINDEX(,@10) 0105 00636000 MH @10,@CH00271 0105 00637000 LA @01,MPWTOR-20(@10) 0105 00638000 TM 0(@01),B'01000000' 0105 00639000 BNO @RF00105 0105 00640000 TM MP1STLIN,B'10000000' 0105 00641000 BNO @RF00105 0105 00642000 * DO; 0106 00643000 * RFY 0107 00644000 * (GPR00P, 0107 00645000 * GPR01P, 0107 00646000 * GPR15P, 0107 00647000 * GPR14P)RSTD; 0107 00648000 * GPR01P=ADDR(MPWTORL); /* WTOR PARM LIST */ 00649000 LA GPR01P,MPWTORL 0108 00650000 * GEN(WTOR MF=(E,(@01))); /* WRITE MESSAGE */ 00651000 WTOR MF=(E,(@01)) 00652000 * RFY 0110 00653000 * (GPR00P, 0110 00654000 * GPR01P, 0110 00655000 * GPR15P, 0110 00656000 * GPR14P)UNRSTD; 0110 00657000 * END; 0111 00658000 * ELSE /* CHECK FOR WTOR OR WTO */ 00659000 * DO; 0112 00660000 B @RC00105 0112 00661000 @RF00105 DS 0H 0113 00662000 * IF MPWTOR(MPINDEX)='1'B|MPWTO(MPINDEX)='1'B THEN/* WTO OR 0113 00663000 * WTOR? */ 00664000 L @10,@PC00001 0113 00665000 L @10,MPINDEX(,@10) 0113 00666000 MH @10,@CH00271 0113 00667000 LA @01,MPWTOR-20(@10) 0113 00668000 TM 0(@01),B'11000000' 0113 00669000 BZ @RF00113 0113 00670000 * DO; 0114 00671000 * RFY 0115 00672000 * (GPR00P, 0115 00673000 * GPR01P, 0115 00674000 * GPR14P, 0115 00675000 * GPR15P)RSTD; 0115 00676000 * GPR01P=ADDR(MPWTOL); /* WTO PARM LIST */ 00677000 LA GPR01P,MPWTOL 0116 00678000 * GEN(WTO MF=(E,(@01))); /* WRITE MESSAGE */ 00679000 WTO MF=(E,(@01)) 00680000 * RFY 0118 00681000 * (GPR00P, 0118 00682000 * GPR01P, 0118 00683000 * GPR14P, 0118 00684000 * GPR15P)UNRSTD; 0118 00685000 * END; 0119 00686000 * END; 0120 00687000 @RF00113 DS 0H 0121 00688000 * IF MPWTDS(MPINDEX)='1'B THEN /* WRITE TO DATA SET? */ 00689000 @RC00105 L @10,@PC00001 0121 00690000 L @10,MPINDEX(,@10) 0121 00691000 MH @10,@CH00271 0121 00692000 LA @01,MPWTDS-20(@10) 0121 00693000 TM 0(@01),B'00100000' 0121 00694000 BNO @RF00121 0121 00695000 * DO; 0122 00696000 * MPWLEN=LENGTH(MPPUTBUF); /* LENGTH OF BUFFER + CONTROL */ 00697000 MVC MPWLEN(2),@CH00272 0123 00698000 * MPWFILL=0; 0124 00699000 SR @15,@15 0124 00700000 STH @15,MPWFILL 0124 00701000 * MPCARIGE=MPCARCTL(MPINDEX); /* CARRIAGE CONTROL */ 00702000 LA @01,MPCARCTL-20(@10) 0125 00703000 MVC MPCARIGE(1),0(@01) 0125 00704000 * MPWTEXT=MPMSGBUF; /* MOVE IN MESSAGE TEXT */ 00705000 LA @10,MPWTOL 0126 00706000 MVC MPWTEXT(80),MPMSGBUF(@10) 0126 00707000 * RFY 0127 00708000 * (GPR00P, 0127 00709000 * GPR01P, 0127 00710000 * GPR14P, 0127 00711000 * GPR15P)RSTD; 0127 00712000 * GPR15P=MPDCBADP; /* DCB ADDRESS */ 00713000 L @10,@PC00001+12 0128 00714000 L GPR15P,MPDCBADP(,@10) 0128 00715000 * GPR00P=ADDR(MPPUTBUF); 0129 00716000 LA GPR00P,MPPUTBUF 0129 00717000 * GEN(PUT (GPR15P)); 0130 00718000 PUT (GPR15P) 00719000 * RFY 0131 00720000 * (GPR00P, 0131 00721000 * GPR01P, 0131 00722000 * GPR14P, 0131 00723000 * GPR15P)UNRSTD; 0131 00724000 * END; 0132 00725000 * MP1STLIN='0'B; /* TURN OFF 1ST LINE INDICATOR */ 00726000 @RF00121 NI MP1STLIN,B'01111111' 0133 00727000 * MPMSGBUF(1:MPBUFLEN)=' '; /* CLEAR OUT MSG BUFFER */ 00728000 * 0134 00729000 LA @10,MPWTOL 0134 00730000 MVI MPMSGBUF+1(@10),C' ' 0134 00731000 MVC MPMSGBUF+2(78,@10),MPMSGBUF+1(@10) 0134 00732000 MVI MPMSGBUF(@10),C' ' 0134 00733000 * /*****************************************************************/ 00734000 * /* */ 00735000 * /* SET BUFFER POINTER TO BEGINNING OF NEW LINE */ 00736000 * /* */ 00737000 * /*****************************************************************/ 00738000 * 0135 00739000 * MPBUFPTR=MPCOLUMN(MPINDEX)+MPINDENT; 0135 00740000 L @15,@PC00001 0135 00741000 L @15,MPINDEX(,@15) 0135 00742000 MH @15,@CH00271 0135 00743000 LA MPBUFPTR,10 0135 00744000 LA @14,MPCOLUMN-20(@15) 0135 00745000 MVC @ZT00003+3(1),0(@14) 0135 00746000 A MPBUFPTR,@ZT00003 0135 00747000 * MPMSGBUF(1:7)=MPMSGID(MPINDEX); /* MOVE IN MESSAGE ID */ 00748000 LA @05,MPMSGID-20(@15) 0136 00749000 MVC MPMSGBUF(7,@10),0(@05) 0136 00750000 * RETURN; /* RETURN TO BLDMSG OR MPR */ 00751000 @EL00003 DS 0H 0137 00752000 @EF00003 DS 0H 0137 00753000 @ER00003 LM @14,@03,@SA00003 0137 00754000 LM @05,@12,@SA00003+24 0137 00755000 BR @14 0137 00756000 * END MFOUTMSG; 0138 00757000 * END IRBMFMPR 0139 00758000 * 0139 00759000 */* THE FOLLOWING INCLUDE STATEMENTS WERE FOUND IN THIS PROGRAM. */ 00760000 */*%INCLUDE SYSLIB (IEZWPL ) */ 00761000 * 0139 00762000 * ; 0139 00763000 B @EL00001 0139 00764000 @DATA DS 0H 00765000 @CH00056 DC H'1' 00766000 @CH00271 DC H'20' 00767000 @CH00206 DC H'84' 00768000 @CH00272 DC H'85' 00769000 @SM00277 MVC MPMSGBUF-1(0,@10),BLTEXT(@01) 00770000 @SM00279 MVC MPMSGBUF-1(0,@10),BLTEXT(@15) 00771000 @DATD DSECT 00772000 DS 0F 00773000 @SA00001 DS 18F 00774000 @PC00001 DS 4F 00775000 @SA00002 DS 14F 00776000 @PC00002 DS 2F 00777000 @SA00003 DS 14F 00778000 @AL00001 DS 2A 00779000 @TF00001 DS F 00780000 @AFTEMPS DS 2F 00781000 @ZTEMPS DS 0F 00782000 @ZT00003 DC F'0' 00783000 @ZTEMPND EQU * 00784000 @ZLEN EQU @ZTEMPND-@ZTEMPS 00785000 IRBMFMPR CSECT 00786000 DS 0F 00787000 @CF00276 DC F'-4' 00788000 @CF00275 DC F'-2' 00789000 @CF00267 DC F'-1' 00790000 @DATD DSECT 00791000 DS 0D 00792000 MPTXTPTR DS A 00793000 MPLENGTH DS F 00794000 MPECB DS F 00795000 MPLIST DS CL96 00796000 ORG MPLIST 00797000 MPWTORL DS CL8 00798000 MPWTOL DS CL84 00799000 MPWTOFLG DS CL4 00800000 ORG MPWTOFLG 00801000 MPDESC DS CL2 00802000 MPROUT DS CL2 00803000 ORG MPLIST+96 00804000 MP1STLIN DS BL1 00805000 DS CL1 00806000 MPPUTBUF DS CL85 00807000 ORG MPPUTBUF 00808000 MPWLEN DS FL2 00809000 MPWFILL DS FL2 00810000 MPCARIGE DS CL1 00811000 MPWTEXT DS CL80 00812000 ORG MPPUTBUF+85 00813000 IRBMFMPR CSECT 00814000 DS 0F 00815000 @SIZDATD DC AL1(0) 00816000 DC AL3(@ENDDATD-@DATD) 00817000 @CA00190 DC A(IRBMFLMV) 00818000 DS 0D 00819000 MPPATCH DS CL100 00820000 IRBMFMPR CSECT 00821000 MPMDL DS 0F 00822000 * 01 MF/1 IS ACTIVE 00823000 M100I01 MDL MPL=1,DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO,MSGID=IRB100I, *00824000 COLUMN=9 00825000 * 02 MF/1 REPORT AVAILABLE FOR PRINTING 00826000 M101I02 MDL MPL=2,DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO,MSGID=IRB101I, *00827000 COLUMN=9 00828000 * 03 MF/1 TERMINATED 00829000 M102I03 MDL MPL=3,DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO,MSGID=IRB102I, *00830000 COLUMN=9 00831000 * 04 MF/1 OPTIONS IN EFFECT 00832000 M103I04 MDL MPL=4,WTOR=NO,MSGDS=YES,MSGID=IRB103I,COLUMN=9,CARCTL=1,*00833000 WTO=NO 00834000 * 05 MF/1 IS ALREADY ACTIVE 00835000 M200I05 MDL MPL=5,DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO,MSGID=IRB200I, *00836000 COLUMN=9 00837000 * 06 MF/1 TASK REINSTATED UXXXX/SXXX 00838000 M201I06 MDL MPL=(6,0),WTOR=NO,MSGDS=YES,MSGID=IRB201I,COLUMN=9, *00839000 DESC=4,ROUTCDE=2 00840000 * 07 NO MF/1 MEASUREMENTS SELECTED 00841000 M202I07 MDL MPL=67,DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO,MSGID=IRB202I, *00842000 COLUMN=9 00843000 * 08 MF/1 SYNTAX ERROR IN OR FOLLOWING TEXT BEGINNING (ERROR TEXT) 00844000 * IN OPERATOR/PARM/LIBRARY/REPLY INPUT 00845000 M300I08 MDL MPL=(7,0,8,0,12),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO,*00846000 MSGID=IRB300I,COLUMN=9 00847000 * 09 RESPECIFY MF/1 OPTIONS OR REPLY IGNORE 00848000 M308D09 MDL MPL=13,DESC=2,ROUTCDE=(1,11),WTOR=YES, *00849000 MSGDS=NO,MSGID=IRB308D,COLUMN=9 00850000 * 10 INVALID VALUES OR MUTUALLY EXCLUSIVE OPTIONS APPEAR IN MF/1 00851000 * OPERATOR/PARM/LIBRARY/REPLY/NULL INPUT 00852000 M301I10 MDL MPL=(14,0,12),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00853000 MSGID=IRB301I,COLUMN=9 00854000 * 11 MF/1 OPTIONS ASSUMED FROM SOURCE IN ERROR: 00855000 M309I11 MDL MPL=69,DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00856000 MSGID=IRB309I,COLUMN=9 00857000 * 12 MEMBER IRBMF1NN NOT FOUND IN THE MF/1 LIBRARY 00858000 M302I12 MDL MPL=(15,0,16),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00859000 MSGID=IRB302I,COLUMN=9 00860000 * 13 MEMBER KEYWORD SPECIFIED IN MF/1 LIBRARY MEMBER IRBMF1NN 00861000 M303I13 MDL MPL=(17,0),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00862000 MSGID=IRB303I,COLUMN=9 00863000 * 14 I/O ERROR WHILE PROCESSING MF/1 LIBRARY DATA SET. THE SYNAD 00864000 * TEXT FOLLOWS/NULL (SYNAD TEXT)/NULL 00865000 M304I14 MDL MPL=(18,0,0),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00866000 MSGID=IRB304I,COLUMN=9 00867000 * 15 MF/1 PARAMETERS 00868000 M305I15 MDL MPL=19,DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO,MSGID=IRB305I, *00869000 COLUMN=9 00870000 * 16 REPLY WITH MF/1 OPTIONS OR GO 00871000 M306D16 MDL MPL=20,DESC=2,ROUTCDE=(1,11),WTOR=YES,MSGDS=NO, *00872000 MSGID=IRB306D,COLUMN=9 00873000 * 17 NO MF/1 OPTIONS ASSUMED 00874000 M305I17 MDL MPL=70,DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO,MSGID=IRB305I, *00875000 COLUMN=11 00876000 * 18 I/O ERROR ON MF/1 WRITE. THE SYNAD TEXT FOLLOWS. (SYNAD TEXT) 00877000 M400I18 MDL MPL=(23,0),DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=YES, *00878000 MSGID=IRB400I,COLUMN=9 00879000 * 19 MF/1 REPORT SUBTASK FOR INTERVAL BEGINNING HH.MM.SS REINSTATED 00880000 * UXXXX/SXXX 00881000 M401I19 MDL MPL=(24,0,25,0),WTOR=NO,MSGDS=YES,MSGID=IRB401I, *00882000 DESC=4,ROUTCDE=2,COLUMN=9 00883000 * 20 MF/1 REPORT SUBTASK FOR INTERVAL BEGINNING HH.MM.SS ABENDED 00884000 * UXXXX/SXXX 00885000 M402I20 MDL MPL=(24,0,26,0),WTOR=NO,MSGDS=YES,MSGID=IRB402I, *00886000 COLUMN=9,DESC=4,ROUTCDE=2 00887000 * 21 CPU/NOCPU/PAGING/NOPAGING/CHAN/NOCHAN/TRACE/NOTRACE/NODEVICE/ 00888000 * NOREPORT/NOSTOP/NOWKLD 00889000 M103I21 MDL MPL=0,WTOR=NO,MSGDS=YES,MSGID=IRB103I,COLUMN=11,WTO=NO 00890000 * 22 WKLD(PERIOD/GROUP) 00891000 M103I22 MDL MPL=(35,0,45),WTOR=NO,MSGDS=YES,MSGID=IRB103I,COLUMN=11,*00892000 WTO=NO 00893000 * 23 REPORT(REALTIME/DEFER) 00894000 M103I23 MDL MPL=(39,0,45),WTOR=NO,MSGDS=YES,MSGID=IRB103I,COLUMN=11,*00895000 WTO=NO 00896000 * 24 INTERVAL(NNM/NN) 00897000 M103I24 MDL MPL=(38,0,45),WTOR=NO,MSGDS=YES,MSGID=IRB103I,COLUMN=11,*00898000 WTO=NO 00899000 * 25 CYCLE(NNN) 00900000 M103I25 MDL MPL=(37,0,45),WTOR=NO,MSGDS=YES,MSGID=IRB103I,COLUMN=11,*00901000 WTO=NO 00902000 * 26 STOP(NNNNM/NNNN/NNNH) 00903000 M103I26 MDL MPL=(36,0,45),WTOR=NO,MSGDS=YES,MSGID=IRB103I,COLUMN=11,*00904000 WTO=NO 00905000 * 27 SYSOUT(X) 00906000 M103I27 MDL MPL=(34,0,45),WTOR=NO,MSGDS=YES,MSGID=IRB103I,COLUMN=11,*00907000 WTO=NO 00908000 * 28 DEVICE( DEVICE LIST SEPARATED BY DELIMITERS ) 00909000 M103I28 MDL MPL=(32,0,55,0,55,0,55,0,55,0,55,0,45),WTOR=NO,WTO=NO, *00910000 MSGDS=YES,MSGID=IRB103I,COLUMN=11 00911000 * 29 CPU/NOCPU/PAGING/NOPAGING/CHAN/NOCHAN/TRACE/NOTRACE/NODEVICE/ 00912000 * NOREPORT/NOSTOP/NOWKLD 00913000 M305I29 MDL MPL=0,DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO,MSGID=IRB305I, *00914000 COLUMN=11 00915000 * 30 WKLD(PERIOD/GROUP) 00916000 M305I30 MDL MPL=(35,0,45),DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO, *00917000 MSGID=IRB305I,COLUMN=11 00918000 * 31 REPORT(REALTIME/DEFER) 00919000 M305I31 MDL MPL=(39,0,45),DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO, *00920000 MSGID=IRB305I,COLUMN=11 00921000 * 32 INTERVAL(NNM/NN) 00922000 M305I32 MDL MPL=(38,0,45),DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO, *00923000 MSGID=IRB305I,COLUMN=11 00924000 * 33 CYCLE(NNN) 00925000 M305I33 MDL MPL=(37,0,45),DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO, *00926000 MSGID=IRB305I,COLUMN=11 00927000 * 34 STOP(NNNNM/NNNN/NNNH) 00928000 M305I34 MDL MPL=(36,0,45),DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO, *00929000 MSGID=IRB305I,COLUMN=11 00930000 * 35 SYSOUT(X) 00931000 M305I35 MDL MPL=(34,0,45),DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO, *00932000 MSGID=IRB305I,COLUMN=11 00933000 * 36 DEVICE( DEVICE LIST SEPARATED BY DELIMITERS ) 00934000 M305I36 MDL MPL=(32,0,55,0,55,0,55,0,55,0,55,0,45),DESC=4,ROUTCDE=2,*00935000 WTOR=NO,MSGDS=NO,MSGID=IRB305I,COLUMN=11 00936000 * 37 MEMBER(NN) 00937000 M305I37 MDL MPL=(68,0,45),DESC=4,ROUTCDE=2,WTOR=NO,MSGDS=NO, *00938000 MSGID=IRB305I,COLUMN=11 00939000 * 38 MEMBER(NN) 00940000 M103I38 MDL MPL=(68,0,45),WTOR=NO,MSGDS=YES,MSGID=IRB103I,COLUMN=11,*00941000 WTO=NO 00942000 * 39 CPU/NOCPU/PAGING/NOPAGING/CHAN/NOCHAN/TRACE/NOTRACE/NODEVICE/ 00943000 * NOREPORT/NOSTOP/NOWKLD 00944000 M309I39 MDL MPL=0,DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00945000 MSGID=IRB309I,COLUMN=11 00946000 * 40 WKLD(PERIOD/GROUP) 00947000 M309I40 MDL MPL=(35,0,45),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00948000 MSGID=IRB309I,COLUMN=11 00949000 * 41 REPORT(REALTIME/DEFER) 00950000 M309I41 MDL MPL=(39,0,45),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00951000 MSGID=IRB309I,COLUMN=11 00952000 * 42 INTERVAL(NNM/NN) 00953000 M309I42 MDL MPL=(38,0,45),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00954000 MSGID=IRB309I,COLUMN=11 00955000 * 43 CYCLE(NNN) 00956000 M309I43 MDL MPL=(37,0,45),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00957000 MSGID=IRB309I,COLUMN=11 00958000 * 44 STOP(NNNNM/NNNN/NNNH) 00959000 M309I44 MDL MPL=(36,0,45),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00960000 MSGID=IRB309I,COLUMN=11 00961000 * 45 SYSOUT(X) 00962000 M309I45 MDL MPL=(34,0,45),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00963000 MSGID=IRB309I,COLUMN=11 00964000 * 46 DEVICE( DEVICE LIST SEPARATED BY DELIMITERS ) 00965000 M309I46 MDL MPL=(32,0,55,0,55,0,55,0,55,0,55,0,45),DESC=4, *00966000 ROUTCDE=(2,11),WTOR=NO,MSGDS=NO,MSGID=IRB309I,COLUMN=11 00967000 * 47 MEMBER(NN) 00968000 M309I47 MDL MPL=(68,0,45),DESC=4,ROUTCDE=(2,11),WTOR=NO,MSGDS=NO, *00969000 MSGID=IRB309I,COLUMN=11 00970000 * 48 NO MF/1 OPTIONS ASSUMED 00971000 M309I48 MDL MPL=70,DESC=4,ROUTCDE(2,11),WTOR=NO,MSGDS=NO, *00972000 MSGID=IRB309I,COLUMN=11 00973000 * 49 NO MF/1 OPTIONS ASSUMED 00974000 M103I49 MDL MPL=70,WTOR=NO,WTO=NO,MSGDS=YES,MSGID=IRB103I, *00975000 COLUMN=11 00976000 @DATD DSECT 00977000 ORG *+1-(*-@DATD)/(*-@DATD) INSURE DSECT DATA 00978000 @ENDDATD EQU * 00979000 IRBMFMPR CSECT 00980000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00981000 @01 EQU 01 00982000 @02 EQU 02 00983000 @03 EQU 03 00984000 @04 EQU 04 00985000 @05 EQU 05 00986000 @06 EQU 06 00987000 @07 EQU 07 00988000 @08 EQU 08 00989000 @09 EQU 09 00990000 @10 EQU 10 00991000 @11 EQU 11 00992000 @12 EQU 12 00993000 @13 EQU 13 00994000 @14 EQU 14 00995000 @15 EQU 15 00996000 J EQU @02 00997000 BLBUPTR1 EQU @03 00998000 I EQU @03 00999000 MPBUFPTR EQU @04 01000000 MPTXTIDX EQU @02 01001000 GPR00P EQU @00 01002000 GPR01P EQU @01 01003000 GPR14P EQU @14 01004000 GPR15P EQU @15 01005000 GPR00F EQU @00 01006000 GPR01F EQU @01 01007000 GPR14F EQU @14 01008000 GPR15F EQU @15 01009000 EXTRN IRBMFLMV 01010000 WPLRF EQU 0 01011000 WPLRPTR EQU WPLRF 01012000 WPLRLN EQU WPLRPTR 01013000 WPLRPTRA EQU WPLRPTR+1 01014000 WPLRECB EQU WPLRF+4 01015000 WPLPTR EQU 0 01016000 WPL EQU 0 01017000 WPLLGH EQU WPL 01018000 WPLMCSF EQU WPL+2 01019000 WPLMCSF1 EQU WPLMCSF 01020000 WPLMCSFA EQU WPLMCSF1 01021000 WPLMCSF2 EQU WPLMCSF+1 01022000 WPLTXT EQU WPL+4 01023000 WPLFLGS EQU 0 01024000 WPLDESC EQU WPLFLGS 01025000 WPLDESC1 EQU WPLDESC 01026000 WPLDESC2 EQU WPLDESC+1 01027000 WPLROUT EQU WPLFLGS+2 01028000 WPLROUT1 EQU WPLROUT 01029000 WPLROUT2 EQU WPLROUT+1 01030000 WPLMSGTY EQU WPLFLGS+4 01031000 WPLMSGT1 EQU WPLMSGTY 01032000 WPLMSGT2 EQU WPLMSGTY+1 01033000 WPLLS01 EQU 0 01034000 WPLLTF EQU WPLLS01 01035000 WPLLTF1 EQU WPLLTF 01036000 WPLML EQU 0 01037000 WPLMLLTF EQU WPLML+2 01038000 WPLMLLT1 EQU WPLMLLTF 01039000 MPMSGPRT EQU 0 01040000 MPMSGLEN EQU MPMSGPRT 01041000 MPMSGTXT EQU MPMSGPRT+4 01042000 MPVTXLST EQU 0 01043000 MPPRTNUM EQU MPVTXLST 01044000 MPTXTLEN EQU MPVTXLST+2 01045000 MPVTEXT EQU MPVTXLST+4 01046000 MPVPNUM EQU 0 01047000 BLTEXT EQU 0 01048000 IKEBC EQU 0 01049000 IKEBF15 EQU 0 01050000 IKEBF31 EQU 0 01051000 IKEBP15 EQU 0 01052000 IKEBP31 EQU 0 01053000 IKEBP8 EQU 0 01054000 MPVPLADR EQU MPMDL 01055000 MPROUTCD EQU MPMDL+4 01056000 MPDESCCD EQU MPMDL+6 01057000 MPFLGBYT EQU MPMDL+8 01058000 MPWTO EQU MPFLGBYT 01059000 MPWTOR EQU MPFLGBYT 01060000 MPWTDS EQU MPFLGBYT 01061000 MPMPLENT EQU MPMDL+9 01062000 MPMSGID EQU MPMDL+10 01063000 MPCOLUMN EQU MPMDL+17 01064000 MPCARCTL EQU MPMDL+18 01065000 MPINDEX EQU 0 01066000 MPVARTXT EQU 0 01067000 MPREPBUF EQU 0 01068000 MPREPLEN EQU MPREPBUF 01069000 MPREPTXT EQU MPREPBUF+2 01070000 MPDCBADP EQU 0 01071000 BLLENGTH EQU 0 01072000 BLTXTPTR EQU 0 01073000 MPMSGBUF EQU WPLTXT 01074000 * START UNREFERENCED COMPONENTS 01075000 MPRESRVD EQU MPMDL+19 01076000 @NM00002 EQU MPFLGBYT 01077000 WPLMLTXT EQU WPLML+4 01078000 WPLMLLT2 EQU WPLMLLTF+1 01079000 WPLRSV24 EQU WPLMLLT1 01080000 WPLRSV23 EQU WPLMLLT1 01081000 WPLRSV22 EQU WPLMLLT1 01082000 WPLRSV21 EQU WPLMLLT1 01083000 WPLMLLTD EQU WPLMLLT1 01084000 WPLMLLTC EQU WPLMLLT1 01085000 WPLMLLTB EQU WPLMLLT1 01086000 WPLMLLTA EQU WPLMLLT1 01087000 WPLMLLEN EQU WPLML+1 01088000 WPLML0 EQU WPLML 01089000 WPLLINES EQU WPLLS01+3 01090000 WPLAREA EQU WPLLS01+2 01091000 WPLLTF2 EQU WPLLTF+1 01092000 WPLRSV20 EQU WPLLTF1 01093000 WPLRSV19 EQU WPLLTF1 01094000 WPLRSV18 EQU WPLLTF1 01095000 WPLRSV17 EQU WPLLTF1 01096000 WPLLTFD EQU WPLLTF1 01097000 WPLLTFC EQU WPLLTF1 01098000 WPLLTFB EQU WPLLTF1 01099000 WPLLTFA EQU WPLLTF1 01100000 WPLQID EQU WPLFLGS+6 01101000 WPLRSV32 EQU WPLMSGT2 01102000 WPLRSV31 EQU WPLMSGT2 01103000 WPLRSV30 EQU WPLMSGT2 01104000 WPLRSV29 EQU WPLMSGT2 01105000 WPLRSV28 EQU WPLMSGT2 01106000 WPLRSV27 EQU WPLMSGT2 01107000 WPLRSV26 EQU WPLMSGT2 01108000 WPLRSV25 EQU WPLMSGT2 01109000 WPLRSV16 EQU WPLMSGT1 01110000 WPLRSV15 EQU WPLMSGT1 01111000 WPLMSGTF EQU WPLMSGT1 01112000 WPLRSV14 EQU WPLMSGT1 01113000 WPLMSGTD EQU WPLMSGT1 01114000 WPLMSGTC EQU WPLMSGT1 01115000 WPLMSGTB EQU WPLMSGT1 01116000 WPLMSGTA EQU WPLMSGT1 01117000 WPLRSV13 EQU WPLROUT2 01118000 WPLROUTO EQU WPLROUT2 01119000 WPLROUTN EQU WPLROUT2 01120000 WPLROUTM EQU WPLROUT2 01121000 WPLROUTL EQU WPLROUT2 01122000 WPLROUTK EQU WPLROUT2 01123000 WPLROUTJ EQU WPLROUT2 01124000 WPLROUTI EQU WPLROUT2 01125000 WPLROUTH EQU WPLROUT1 01126000 WPLROUTG EQU WPLROUT1 01127000 WPLROUTF EQU WPLROUT1 01128000 WPLROUTE EQU WPLROUT1 01129000 WPLROUTD EQU WPLROUT1 01130000 WPLROUTC EQU WPLROUT1 01131000 WPLROUTB EQU WPLROUT1 01132000 WPLROUTA EQU WPLROUT1 01133000 WPLRSV12 EQU WPLDESC2 01134000 WPLRSV11 EQU WPLDESC2 01135000 WPLRSV10 EQU WPLDESC2 01136000 WPLRSV09 EQU WPLDESC2 01137000 WPLRSV08 EQU WPLDESC2 01138000 WPLRSV07 EQU WPLDESC2 01139000 WPLDESCJ EQU WPLDESC2 01140000 WPLDESCI EQU WPLDESC2 01141000 WPLDESCH EQU WPLDESC1 01142000 WPLDESCG EQU WPLDESC1 01143000 WPLDESCF EQU WPLDESC1 01144000 WPLDESCE EQU WPLDESC1 01145000 WPLDESCD EQU WPLDESC1 01146000 WPLDESCC EQU WPLDESC1 01147000 WPLDESCB EQU WPLDESC1 01148000 WPLDESCA EQU WPLDESC1 01149000 WPLTXTL EQU WPLTXT+125 01150000 @NM00001 EQU WPLTXT 01151000 WPLRSV05 EQU WPLMCSF2 01152000 WPLRSV04 EQU WPLMCSF2 01153000 WPLMCSFN EQU WPLMCSF2 01154000 WPLRSV03 EQU WPLMCSF2 01155000 WPLNOWTP EQU WPLMCSF2 01156000 WPLMCSFK EQU WPLMCSF2 01157000 WPLMCSFJ EQU WPLMCSF2 01158000 WPLMCSFI EQU WPLMCSF2 01159000 WPLMCSFH EQU WPLMCSF1 01160000 WPLMCSFG EQU WPLMCSF1 01161000 WPLMCSFF EQU WPLMCSF1 01162000 WPLMCSFE EQU WPLMCSF1 01163000 WPLMCSFD EQU WPLMCSF1 01164000 WPLMCSFC EQU WPLMCSF1 01165000 WPLMCSFB EQU WPLMCSF1 01166000 * END UNREFERENCED COMPONENTS 01167000 @RF00059 EQU @EL00001 01168000 @RT00072 EQU @EL00002 01169000 @PB00003 EQU @EL00001 01170000 @PB00002 EQU @PB00003 01171000 @ENDDATA EQU * 01172000 END IRBMFMPR,(C'PL/S-II',0502,74087) 01173000