【AS400系列】通过程序例子说明检查AS400用户密码的API-QSYGETPH

#chkpwdfm.dspf

     A                                      DSPSIZ(27 132 *DS4)
     A                                      CHGINPDFT
     A*********************************************************************
     A*  DUMMY RECORD FORMAT CREATED BECAUSE 'ASSUME' KEYWORD SPECIFIED   *
     A*********************************************************************
     A          R XDUMYFMT
     A                                      ASSUME
     A                                  1  2' '
     A*********************************************************************
     A          R SCR001                    WINDOW(6 36  9 50)
     A                                      OVERLAY
     A                                      CLRL(*NO)
     A                                      CA03(03 'EXIT')
     A                                      CA12(12 'EXIT')
     A                                      WDWBORDER((*COLOR BLU) +
     A                                      (*DSPATR RI)           +
     A                                      (*CHAR '        '))
     A                                  2  2'用戶密碼檢查'
     A                                      COLOR(WHT)
     A                                  3  3'User....:'
     A            FLD001        10A  B    +1
     A                                      DSPATR(UL)
     A  40                                  DSPATR(PR)
     A                                  4  3'Password:'
     A            FLD002        10A  B    +1DSPATR(ND)
     A                                      DSPATR(UL)
     A                                  6  3'F3=EXIT'
     A                                      COLOR(BLU)
     A            FLD003        38O  B  7  3COLOR(RED)
     A