It is a very common translation misunderstanding:
In the data structure the subfield needs 4Byte to hold the maximum value.
The maximum value of a 4 Byte binary value is ~2,100,000,000. If the field
would have been defined with 1 ... 4I 0 the maximum value can be hold. Since
it is defined with 1 ... 4B 0 it is converted into packed and for avoiding
any overflow the maximum value that can be hold is 999.999.999.
If you want to translate the data structure subfield into a standalone
equivalent, you either have to define it as 10I 0 (which is the better
solution) or 9B 0 (which was the old RPGIII solution).
Mit freundlichen Grüßen / Best regards
Birgitta Hauser
"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
-----Ursprüngliche Nachricht-----
Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Gary
Thompson
Gesendet: Wednesday, 15.10 2014 15:58
An: RPG programming on the IBM i (AS/400 and iSeries)
Betreff: Call QUSCRTUS fails using stand alone 4B 0 d spec
V7R1
I have a question about how binary fields can/should be defined in RPGLE.
Starting with a good example from a post on CODE 400 by Jamief > Thank You!
< I was able to quickly use QUSCRTUS to create a user space.
As I developed the program I made changes, and, at a point, the program
failed to create the user space, with the job log showing:
CPF3C2C: Value 268435456 for size parameter is not valid.
The change that caused this was changing the size parameter for QUSCRTDS
from a DS to a stand-alone field:
d DS
d ds_IniSiz 1 4B 0
Initial Size bytes
D wk_IniSiz S 4B 0
Initial Size bytes
I use EVAL to set both field wk_IniSiz and ds_IniSiz = 4096.
Apparently, the difference between the two D Specs changes the value
received by the API ?
With ds_IniSiz, the user space is successfully created.
With wk_IniSiz, the user space is not created and I get the 'Value
268435456' message in the job log.
Yet an EVAL of either field in debug returns 4096 ?
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
