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

今天写个简单的例子学习使用检查AS400用户密码的API-QSYGETPH。程序通过画面获取用户名和密码，并对这两个字段进行非空校验，再验证其正确性。
一、程序列表：

二、实现效果：
1、用户名空

2、密码空

3、信息错误

4、校验通过

三、编译参考：
CRTDSPF FILE(XXXZL1/XXCHKPWDR@) SRCFILE(XXXZL2/QRPGSRC) SRCMBR(XXCHKPWDR@)
CRTRPGMOD MODULE(MYOBJLIB/XXCHKPWDRI) SRCFILE(MYSRCLIB/QRPGSRC) SRCMB(XXCHKPWDRI)       
CRTRPGMOD MODULE(MYOBJLIB/XXCHKPWDRP) SRCFILE(MYSRCLIB/QRPGSRC) SRCMB(XXCHKPWDRP) 
CRTPGM PGM(MYOBJLIB/XXCHKPWDRP) MODULE(MYOBJLIB/XXCHKPWDRP MYOBJLIB/XXCHKPWDRI)
四、API参考：

附：源码
AS400.rar