Re: How do I retrieve the RRN of a PF or LF in a RPG program.

On 2020-08-27 2:12 p.m., Vernon Hamberg wrote:

Hi Justin

If by 4-byte binary you mean the B data type, Jon explained that it is only 9 digits long, so at most it can have all 9's, whether positive or negative. I just looked at the RPG manual, which says that if you assign a number to a 4-byte B type, and that number is 1,000,000,000 or more, the left-hand digit is dropped.

That's true if you use one of the old fixed-form opcodes.

But iIf you use EVAL to do the assignment, you'll get an overflow error.

D num_bin s 9b 0
D num_int s 10i 0 inz(1123123123)
C z-add num_int num_bin
C num_bin dsply
C eval num_bin = num_int
C num_bin dsply
C return

It does the first DSPLY after the MOVE, but then it gets an overflow exception on the EVAL.

DSPLY 123123123
The target for a numeric operation is too small to hold the result (C G D F)

The joblog shows:
DSPLY 123123123
Receiver value too small to hold result. (MCH1210)