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