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