How can I accumulate the variable VAR1 in function CAL_ENV and print the result it in RPE key .
total=total+VAR1



/CAL_ENV
{ IF «VAR1':'2»'r'3 0 eq
{ /VAR1 «VAR1':'2»'q'3 SETVAR }
ELSE
{ /VAR1 «VAR1':'2»'q'3'+1 SETVAR}
ENDIF
($$VAR1.) VSUB (@@@@@@@#) FORMAT SHr
} XGFRESDEF