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)