<verbatim> A DSPSIZ(24 80 *DS3) A CA03(03 'Exit the program') A CF07(07 'Update password') A R CHGPWD A DAFEEDBACK 1 P A 1 4'Change Password' A DSPATR(HI) A 2 2'User:' A DSPATR(HI) A USRPRF 10A O 2 11 A 4 2'Current:' A DSPATR(HI) A PWD 10 B 4 11 A 5 2'New:' A DSPATR(HI) A NEWPWD 10 B 5 11 A 7 2'F3=Exit F7=Update' A COLOR(BLU) A FEEDBACK 19 O 8 2DSPATR(&DAFEEDBACK) </verbatim> -- Main.MartinRowe - 02 Oct 2008
This topic: DBG400
>
SourceCodeList
>
DdsSource
>
DspfCCHGPWD01D
Topic revision: r1 - 02 Oct 2008 - 16:08:20 -
MartinRowe
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400?
Send feedback