FUNCTION OPTIONS(*DIRECT)

DEFINE FIELD(#MAXSIGN) REFFLD(#STD_CODE6)

CALL PGM(RTVMAXSIGN) PARM(#MAXSIGN)

EXCHANGE FIELDS(#MAXSIGN)