ibm:vm370-lib:copy:pwdiblok.copy_src
Table of Contents
PWDIBLOK Source
References
- Fixes Applied : 0
- This Source Date : Friday, December 8, 1978
- Last Fix ID : [Unmodified]
Source Listing
- PWDIBLOK.COPY.txt
- 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
ibm/vm370-lib/copy/pwdiblok.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator