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