CMS File Input : DMKEPS ASSEMBLE
Date : 4/5/1982 8:02:00 AM
VM Context : MAINT(394)
File Name : DMKEPS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM
Date Thursday Apr 01, 1982 02:48:00 PM
Loaded from MAINT(294)
R15571DK: ./ R 209000 $ 209100 100 R15571DK: BH PAS2LONG YES NOT VALID @VA15571 R15571DK: ./ I 227000 $ 227100 100 R15571DK: SPACE R15571DK: PAS2LONG DS 0H HERE IF PASSWORD TOO LONG @VA15571 R15571DK: BALR R2,0 SAVE CC - GOOD FOR REJECT @VA15571 R15571DK: TM SAVEWRK1,RETPASS DO WE WANT INVALID PW? @VA15571 R15571DK: BZ PASSCHK2 NO - GO RETURN. @VA15571 R15571DK: MVC SAVER0(8),=C'TOO LONG' YES - GIVE HIM SUMMAT @VA15571 R15571DK: B PASSCHK2 NOW RETURN @VA15571 R15571DK: SPACE BEGIN APPLY >>> ./ R 209000 $ 209100 100 END APPLY >>> ./ R 209000 $ 209100 100 BEGIN APPLY >>> ./ I 227000 $ 227100 100 END APPLY >>> ./ I 227000 $ 227100 100 Update Succeeded Update Execution Time 8 milliseconds.