Re: Problem with the QXXPTOI API

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

> D PackedToInt     pr            10i 0 extproc('QXXPTOI')
> D   PTR                           *   value options(*string)
> D   Digits                      10i 0 value
> D   Fraction                    10i 0 value

Since PTR points to a packed number rather than a string, please remove
options(*string) from the prototype.  (I don't think that's the cause of
the problem, but who knows?  Whether it's the cause of this specific
problem or not, it's still wrong...)


> The field is defined in the file as 13P 0.  The hex value for the field in
[SNIP]
> FldOffset=363 which is the place in the data record and
> FldLen = 7

Shouldn't FldLen be 13?  The manual states that the 2nd parm to QXXITOP is
the number of digits, not the byte-length.  But I don't know that for
sure -- I always use _LBCPYNV for this sort of thing.

> I'm assuming that since the number is so large I should be using the QXXPTOD
> API.  If so, does anyone have a prototype definition for that API.   I can't
> seem to get it setup correctly.

It's only 9 digits...  an int should be able to store 9 digits without a
problem.  I don't think that's the issue...