ibm:vm370-lib:macro:sysjrl.macro_src
Table of Contents
SYSJRL Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- SYSJRL.MACRO.txt
- 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
ibm/vm370-lib/macro/sysjrl.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator