PUSH PRINT 00001000
AIF ('&SYSPARM' NE 'SUP').PWD01 00002000
PRINT OFF,NOGEN 00003000
.PWD01 ANOP 00004000
PWDIBLOK DSECT @V60BBBB 00005000
SPACE 1 00006000
*** PWDIBLOK - PASSWORD-INVALID BLOCK 00007000
* 00008000
* 0 +-----------------------+-----------------------+ 00009000
* | PWDUSRID | 00010000
* 8 +-----------------------+-----------------------+ 00011000
* | PWDDATE | | 00012000
* 10 +-----------------------+-----------------------+ 00013000
* | PWDTIME | PWDTERMA | 00014000
* 18 +-----------------------------------------------+ 00015000
* | PWDCHAIN | P*1 | P*2 | RESERVED | 00016000
* 20 +-----------------------------------------------+ 00017000
* 00018000
*** PWDIBLOK - PASSWORD-INVALID BLOCK 00019000
SPACE 1 00020000
PWDUSRID DS CL8 USERID ATTEMPTING LOGON/AUTOLOG 00021000
PWDDATE DS CL6 DATE (MMDDYY) 00022000
PWDTIME DS CL6 TIME (HHMMSS) 00023000
PWDTERMA DS CL4 TERMINAL ADDRESS 00024000
PWDCHAIN DS F CHAIN POINTER TO NEXT PWDIBLOK 00025000
PWDINVCT DS 1X P*1 INVALID-PASSWORD COUNT 00026000
SPACE 1 00027000
* BITS DEFINED IN PWDFLAGS 00028000
PWDLOG DS 0XL(X'80') THIS BLOCK FOR LOGON 00029000
PWDALOG DS 0XL(X'40') THIS BLOCK FOR AUTOLOG 00030000
PWDFLAGS DS 1X P*2 PWDFLAGS 00031000
DS XL2 RESERVED 00032000
SPACE 1 00033000
PWDSIZE EQU (*-PWDIBLOK)/8 SIZE IN DOUBLE WORDS 00034000
EJECT 00035000
POP PRINT 00036000
SPACE 1 00037000