I need to print the integer part only of the below variable VAR3 in function PART_LOG.My code like below and I use VIPP ver 5.3.
Thanks
...
...
/VARCUSTSERIAL (0) /INI SETVAR
/VAR3 0 SETVAR
/VAR4 0 SETVAR
/VAR5 0 SETVAR
...
[ { /VARPRINT /SWP SETVAR (PART_LOG) SCALL } 0 290 000 680 00 12 2 /F1 BLACK] %(PART_LOG_NO)

...
/PART_LOG
%---------------
{
IF VARPRINT'r'8 1 eq
{/VAR5 VARCUSTSERIAL':'600 SETVAR
/VAR4 #VAR5 SETVAR
/VAR3 VAR4'+'1 SETVAR}
ELSE
{ /VAR3 ( ) SETVAR }
ENDIF
($$VAR3.) VSUB SHr
}
XGFRESDEF

Try:
($$VAR3.) VSUB (@@@@@#) FORMAT SHr
or
($$VAR3.) VSUB 0 (.) GETINTV SHr

What about storing the integer part only from a real number into a variable to make some processing on it like addition or subtraction .
Thanks

quote:

What about storing the integer part only from a real number into a variable

/VAR1 ($$VAR3.) VSUB (@@@@@#) FORMAT SETVAR
or
/VAR1 ($$VAR3.) VSUB 0 (.) GETINTV SETVAR
will do.