FUNCTION OPTIONS(*DIRECT)

DEFINE FIELD(#PRVSIGNON) TYPE(*CHAR) LENGTH(13)
DEFINE FIELD(#ATTEMPTS) TYPE(*CHAR) LENGTH(8)
DEFINE FIELD(#USRSTATUS) TYPE(*CHAR) LENGTH(10)
DEFINE FIELD(#PWDCHGDTE) TYPE(*CHAR) LENGTH(8)
DEFINE FIELD(#PWDEXPITV) TYPE(*CHAR) LENGTH(8)
DEFINE FIELD(#PWDEXPDTE) TYPE(*CHAR) LENGTH(8)
DEFINE FIELD(#PWDREMDAY) TYPE(*CHAR) LENGTH(8)
DEFINE FIELD(#USERNAME) TYPE(*CHAR) LENGTH(50)

GROUP_BY NAME(#UI_PARMS) FIELDS(#USER #PRVSIGNON #ATTEMPTS #USRSTATUS #PWDCHGDTE #PWDEXPITV #PWDEXPDTE #PWDREMDAY #USERNAME #MSGID #MSGT)

CALL PGM(RTVUSRINFC) PARM(#USER #PRVSIGNON #ATTEMPTS #USRSTATUS #PWDCHGDTE #PWDEXPITV #PWDEXPDTE #PWDREMDAY #USERNAME #MSGID #MSGT)

EXCHANGE FIELDS(#UI_PARMS)