FUNCTION OPTIONS(*DIRECT)

GROUP_BY NAME(#PWD_PARMS) FIELDS(#USER #PWD_CUR #PWD_NEW #MSGID #MSGT)

CALL PGM(CHGPWDC) PARM(#USER #PWD_CUR #PWD_NEW #MSGID #MSGT)

EXCHANGE FIELDS(#PWD_PARMS)