MACRO 00001000
JPSCBLOK &LOGONJ=, +00002000
&LINKJ=, +00003000
&LINKJI=, +00004000
&JRLSQ=, +00005000
&LOGU=, +00006000
&LOGAR=, +00007000
&LOGMS=, +00008000
&LOGDS=, +00009000
&LNKU=, +00010000
&LNKAR=, +00011000
&LNKMS=, +00012000
&LNKDS=, +00013000
&MLOG=, +00014000
&MLINK= 00015000
AIF ('&SYSECT' EQ 'DMKSYS').JPS02 00016000
PUSH PRINT 00017000
AIF ('&SYSPARM' NE 'SUP').JPS01 00018000
PRINT OFF,NOGEN 00019000
.JPS01 ANOP 00020000
JPSCBLOK DSECT 00021000
.JPS02 ANOP 00022000
SPACE 1 00023000
*** JPSCBLOK - JOURNALING & PASSWORD SUPPRESSION 00024000
* CONTROL BLOCK 00025000
* 00026000
* 0 +-----------------------+-----------------------+ 00027000
* | JPSLOGU | 00028000
* 8 +-----------------------+-----------------------+ 00029000
* | JPSLNKU | 00030000
* 10 +-----------------------+-----------------------+ 00031000
* | JPSPCHN | J*1 | J*2 | J*3 | J*4 | 00032000
* 18 +-----------------------+-----------------------+ 00033000
* | J*5 | J*6 | J*7 | RESERVED | 00034000
* 20 +-----------------------+-----------+-----------+ 00035000
* 00036000
* JPSCBLOK - JOURNALING & PASSWORD-SUPPRESSION 00037000
*** CONTROL BLOCK 00038000
SPACE 1 00039000
AIF ('&SYSECT' EQ 'DMKSYS').JPS10 00040000
JPSLOGU DS CL8 USERID FOR LOGON/AUTOLOG THRESHOLD MSGS. 00041000
JPSLNKU DS CL8 USERID FOR LINK THRESHOLD MSGS. 00042000
JPSPCHN DS 1F ANCHOR FOR PWDIBLOK'S 00043000
SPACE 1 00044000
* BITS DEFINED IN JPSFLAGS 00045000
LOGONJRL DS 0XL(X'80') LOGON/AUTOLOG JOURNALING ON 00046000
LINKJRL DS 0XL(X'40') SUCCESSFUL LINK JOURNALING ON 00047000
LINKJRLI DS 0XL(X'20') INVALID PSWD. LINK JOUNNALING ON 00048000
JRLSQOK DS 0XL(X'10') SET/QUERY JOURNAL ENABLED 00049000
MASKLOG DS 0XL(X'08') SUPPRESS LOGON/AUTOLOG PASSWORD 00050000
MASKLINK DS 0XL(X'04') SUPPRESS LINK PASSWORD 00051000
JPSFLAGS DS 1X J*1 CONTROL FLAGS 00052000
SPACE 1 00053000
JPSLOGAR DS 1X J*2 LOGON/AUTOLOG ACCOUNTING RECORD THRESHOLD 00054000
JPSLOGMS DS 1X J*3 LOGON/AUTOLOG MESSAGE THRESHOLD 00055000
JPSLOGDS DS 1X J*4 LOGON/AUTOLOG DISABLE THRESHOLD 00056000
JPSLNKAR DS 1X J*5 LINK ACCOUNTING RECORD THRESHOLD 00057000
JPSLNKMS DS 1X J*6 LINK MESSAGE THRESHOLD 00058000
JPSLNKDS DS 1X J*7 LINK DISABLE THRESHOLD 00059000
DS 5X RESERVED 00060000
SPACE 1 00061000
EJECT 00062000
POP PRINT 00063000
SPACE 1 00064000
MEXIT 00065000
.JPS10 ANOP 00066000
LCLB &BIT(8) 00067000
DMKSYSJR DS 0D 00068000
ENTRY DMKSYSJR 00069000
JPSLOGU DC CL8'&LOGU' USERID FOR LOGON/AUTOLOG THRESHOLD MSGS. 00070000
JPSLNKU DC CL8'&LNKU' USERID FOR LINK THRESHOLD MSGS. 00071000
JPSPCHN DC F'0' ANCHOR FOR PWDIBLOK'S @VMI0042 00072000
SPACE 1 00073000
* BITS DEFINED IN JPSFLAGS 00074000
&BIT(1) SETB ('&LOGONJ' EQ 'YES') 00075000
&BIT(2) SETB ('&LINKJ' EQ 'YES') 00076000
&BIT(3) SETB ('&LINKJI' EQ 'YES') 00077000
&BIT(4) SETB ('&JRLSQ' EQ 'YES') 00078000
&BIT(5) SETB ('&MLOG' EQ 'YES') 00079000
&BIT(6) SETB ('&MLINK' EQ 'YES') 00080000
&BIT(7) SETB 0 00081000
&BIT(8) SETB 0 00082000
LOGONJRL DS 0XL(X'80') LOGON/AUTOLOG JOURNALING ON 00083000
LINKJRL DS 0XL(X'40') SUCCESSFUL LINK JOURNALING ON 00084000
LINKJRLI DS 0XL(X'20') INVALID PSWD. LINK JOUNNALING ON 00085000
JRLSQOK DS 0XL(X'10') SET/QUERY JOURNAL ENABLED 00086000
MASKLOG DS 0XL(X'08') SUPPRESS LOGON/AUTOLOG PASSWORD 00087000
MASKLINK DS 0XL(X'04') SUPPRESS LINK PASSWORD 00088000
JPSFLAGS DC B'&BIT(1).&BIT(2).&BIT(3).&BIT(4).&BIT(5).&BIT(6).&BIT(7+00089000
).&BIT(8).' 00090000
SPACE 1 00091000
JPSLOGAR DC AL1(&LOGAR) J*1 LOGON/AUTOLOG ACCOUNTING RECORD THRESH. 00092000
JPSLOGMS DC AL1(&LOGMS) J*2 LOGON/AUTOLOG MESSAGE THRESHOLD 00093000
JPSLOGDS DC AL1(&LOGDS) J*3 LOGON/AUTOLOG DISABLE THRESHOLD 00094000
JPSLNKAR DC AL1(&LNKAR) J*4 LINK ACCOUNTING RECORD THRESH. 00095000
JPSLNKMS DC AL1(&LNKMS) J*5 LINK MESSAGE THRESHOLD 00096000
JPSLNKDS DC AL1(&LNKDS) J*6 LINK DISABLE THRESHOLD 00097000
SPACE 1 00098000
DS 5X RESERVED 00099000
MEND 00100000