If you live outside the United States, by submitting your email address you consent to having your personal data transferred to and processed in the United States.
Right ‘X’ is an RPG Edit Code – like you would would use on printer file or Display file
so you could use ’3′ – no leading zeros no sign no comma’s
‘P’ – no leading zeros left – sign no comma’s
Phil
DINVAM 68 80
C EVAL INVAM = %EDITC(APCINA:’3′)
INVAM is 13 long,
our edit codes assume that APCINA is
something like 12 2 if APCINA is wider it will push the decimal out of INVAM
If APCINA has 0 decimals and is short enough you might use something like
DINVAM 68 80
C EVAL INVAM = %EDITC(APCINA:’X')
APCINA is numeric field.
please check the above code. i need to get decimal positions to the resultatnt field INVAM but it
given value without any decimal position.
Right ‘X’ is an RPG Edit Code – like you would would use on printer file or Display file
so you could use ’3′ – no leading zeros no sign no comma’s
‘P’ – no leading zeros left – sign no comma’s
Phil
i am writing INVAM to flat file. in flat file i am not getting any decimal positions…
DINVAM 68 80
C EVAL INVAM = %EDITC(APCINA:’3′)
INVAM is 13 long,
our edit codes assume that APCINA is
something like 12 2 if APCINA is wider it will push the decimal out of INVAM
If APCINA has 0 decimals and is short enough you might use something like
C EVAL INVAM = %trim(%EDITC(APCINA:’3′)) +’.00′
Phil
by using %CHAR building function