Half adjust in free format

[Reaper73]

Can you half adjust in free format without using the EVAL statement?

 

[MdnghtPgmr]

Reaper73,

Nope. You have to use the Eval(H) syntax.

HTH,
MdnghtPgmr

 

[flapeyre]

Actually, you can use the %DECH built-in function. You have to specify the length and the number of decimal places for the field, though. But you can "soft-code" it, so if the field attributes change, you don't have to remember to change the statement:

NumField = %DECH(a / b : %LEN(NumField): %DECPOS(NumField));

Me transmitte sursum, Caledoni!

 

[Navik]

But you can't use %len and %decpos within the %dec BIF, right?
So you need to create constants. Same result.

D NumField_LEN C %len( NumField )
D NumField_DEC C %decPos( NumField )

Numfield = %decH( a / b: NumField_LEN: NumField_DECP );