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