DCL NumChar *char 7
DCL NumVar * Dec(7 0)

CHGVAR NumChar NumVar