MACRO 00001000 SYSJRL &JOURNAL=NO, +00002000 &STQUERY=NO, +00003000 &LOGUID=, +00004000 &LOGLMT=, +00005000 &LNKUID=, +00006000 &LNKLMT=, +00007000 &PSUPRS=NO 00008000 GBLC &SY$JRL 00009000 &SY$JRL SETC 'HERE' ANNOUNCE PRESENCE TO SYSLOCS 00010000 LCLA &TEMP 00011000 LCLB &FAIL 00012000 LCLC &PLOG,&PLNK 00013000 LCLC &PLOL(3),&PLNL(3) 00014000 &FAIL SETB 0 00015000 AIF (NOT (('&JOURNAL' EQ 'NO') AND ('&STQUERY' EQ 'YES'))).J+00016000 010 00017000 MNOTE 8,'STQUERY=YES VALID ONLY WITH JOURNAL=YES.' 00018000 &FAIL SETB 1 00019000 .J010 AIF (NOT (('&JOURNAL' EQ 'NO') AND (T'&LOGUID NE 'O'))).J020 00020000 MNOTE 8,'LOGUID VALID ONLY WITH JOURNAL=YES.' 00021000 &FAIL SETB 1 00022000 .J020 AIF (NOT (('&JOURNAL' EQ 'NO') AND (T'&LOGLMT NE 'O'))).J030 00023000 MNOTE 8,'LOGLMT VALID ONLY WITH JOURNAL=YES.' 00024000 &FAIL SETB 1 00025000 .J030 AIF (NOT (('&JOURNAL' EQ 'NO') AND (T'&LNKUID NE 'O'))).J040 00026000 MNOTE 8,'LNKUID VALID ONLY WITH JOURNAL=YES.' 00027000 &FAIL SETB 1 00028000 .J040 AIF (NOT (('&JOURNAL' EQ 'NO') AND (T'&LNKLMT NE 'O'))).J050 00029000 MNOTE 8,'LNKLMT VALID ONLY WITH JOURNAL=YES.' 00030000 &FAIL SETB 1 00031000 .* NOW VALIDATE AND SUPPLY DEFAULTS WHERE NECESSARY. 00032000 .J050 AIF ('&JOURNAL' EQ 'YES' OR '&JOURNAL' EQ 'NO').J060 00033000 MNOTE 8,'JOURNAL=&JOURNAL IS INVALID. ''YES'' OR ''NO'' IS REQ+00034000 UIRED.' 00035000 &FAIL SETB 1 00036000 .J060 AIF ('&STQUERY' EQ 'YES' OR '&STQUERY' EQ 'NO').J070 00037000 MNOTE 8,'STQUERY=&STQUERY IS INVALID. ''YES'' OR ''NO'' IS REQ+00038000 UIRED.' 00039000 &FAIL SETB 1 00040000 .J070 AIF ('&PSUPRS' EQ 'YES' OR '&PSUPRS' EQ 'NO').J080 00041000 MNOTE 8,'PSUPRS=&PSUPRS IS INVALID. ''YES'' OR ''NO'' IS REQUI+00042000 RED.' 00043000 &FAIL SETB 1 00044000 .J080 ANOP 00045000 &PLOG SETC '&LOGUID' 00046000 AIF (T'&LOGUID NE 'O').J090 00047000 &PLOG SETC 'OPERATOR' 00048000 AGO .J100 00049000 .J090 AIF (K'&LOGUID NE 0 AND K'&LOGUID LE 8).J100 00050000 MNOTE 8,'THE LOGUID MUST BE 1-8 CHARACTERS.' 00051000 &FAIL SETB 1 00052000 .J100 ANOP 00053000 &PLNK SETC '&LNKUID' 00054000 AIF (T'&LNKUID NE 'O').J110 00055000 &PLNK SETC 'OPERATOR' 00056000 AGO .J120 00057000 .J110 AIF (K'&LNKUID NE 0 AND K'&LNKUID LE 8).J120 00058000 MNOTE 8,'THE LNKUID MUST BE 1-8 CHARACTERS.' 00059000 &FAIL SETB 1 00060000 .J120 ANOP 00061000 &PLOL(1) SETC '&LOGLMT(1)' 00062000 &PLOL(2) SETC '&LOGLMT(2)' 00063000 &PLOL(3) SETC '&LOGLMT(3)' 00064000 AIF (T'&LOGLMT NE 'O').J130 00065000 &PLOL(1) SETC '2' 00066000 &PLOL(2) SETC '3' 00067000 &PLOL(3) SETC '4' 00068000 AGO .J170 00069000 .J130 AIF (N'&LOGLMT EQ 3).J140 00070000 MNOTE 8,'LOGLMT MUST BE SPECIFIED AS THREE VALUES.' 00071000 &FAIL SETB 1 00072000 .J140 ANOP 00073000 &TEMP SETA &LOGLMT(1) 00074000 AIF (NOT (&TEMP LT 0 OR &TEMP GT 255)).J150 00075000 MNOTE 8,'THE FIRST LOGLMT VALUE MUST BE BETWEEN 0 AND 255 INCL+00076000 USIVE.' 00077000 &FAIL SETB 1 00078000 .J150 ANOP 00079000 &TEMP SETA &LOGLMT(2) 00080000 AIF (NOT (&TEMP LT 0 OR &TEMP GT 255)).J160 00081000 MNOTE 8,'THE SECOND LOGLMT VALUE MUST BE BETWEEN 0 AND 255 INC+00082000 LUSIVE.' 00083000 &FAIL SETB 1 00084000 .J160 ANOP 00085000 &TEMP SETA &LOGLMT(3) 00086000 AIF (NOT (&TEMP LT 1 OR &TEMP GT 255)).J170 00087000 MNOTE 8,'THE THIRD LOGLMT VALUE MUST BE BETWEEN 1 AND 255 INCL+00088000 USIVE.' 00089000 &FAIL SETB 1 00090000 .J170 ANOP 00091000 &PLNL(1) SETC '&LNKLMT(1)' 00092000 &PLNL(2) SETC '&LNKLMT(2)' 00093000 &PLNL(3) SETC '&LNKLMT(3)' 00094000 AIF (T'&LNKLMT NE 'O').J180 00095000 &PLNL(1) SETC '2' 00096000 &PLNL(2) SETC '5' 00097000 &PLNL(3) SETC '10' 00098000 AGO .J220 00099000 .J180 AIF (N'&LNKLMT EQ 3).J190 00100000 MNOTE 8,'LNKLMT MUST BE SPECIFIED AS THREE VALUES.' 00101000 &FAIL SETB 1 00102000 .J190 ANOP 00103000 &TEMP SETA &LNKLMT(1) 00104000 AIF (NOT (&TEMP LT 0 OR &TEMP GT 255)).J200 00105000 MNOTE 8,'THE FIRST LNKLMT VALUE MUST BE BETWEEN 0 AND 255 INCL+00106000 USIVE.' 00107000 &FAIL SETB 1 00108000 .J200 ANOP 00109000 &TEMP SETA &LNKLMT(2) 00110000 AIF (NOT (&TEMP LT 0 OR &TEMP GT 255)).J210 00111000 MNOTE 8,'THE SECOND LNKLMT VALUE MUST BE BETWEEN 0 AND 255 INC+00112000 LUSIVE.' 00113000 &FAIL SETB 1 00114000 .J210 ANOP 00115000 &TEMP SETA &LNKLMT(3) 00116000 AIF (NOT (&TEMP LT 1 OR &TEMP GT 255)).J220 00117000 MNOTE 8,'THE THIRD LNKLMT VALUE MUST BE BETWEEN 1 AND 255 INCL+00118000 USIVE.' 00119000 &FAIL SETB 1 00120000 .J220 AIF (NOT &FAIL).J300 00121000 MEXIT 00122000 .J300 JPSCBLOK LOGONJ=&JOURNAL, +00123000 LINKJ=&JOURNAL, +00124000 LINKJI=&JOURNAL, +00125000 JRLSQ=&STQUERY, +00126000 LOGU=&PLOG, +00127000 LOGAR=&PLOL(1), +00128000 LOGMS=&PLOL(2), +00129000 LOGDS=&PLOL(3), +00130000 LNKU=&PLNK, +00131000 LNKAR=&PLNL(1), +00132000 LNKMS=&PLNL(2), +00133000 LNKDS=&PLNL(3), +00134000 MLOG=&PSUPRS, +00135000 MLINK=&PSUPRS 00136000 MEND 00137000