Re: Call QUSCRTUS fails using stand alone 4B 0 d spec

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

For use as a parm there is no conversion to packed for type B. That really would cause chaos.

But … type B does undergo conversion when used in math functions. So - if B is a type B field then B = B + 1; Is actually processed as:

move B to packed temp;
add 1 to packed temp;
move packed tempt to B;

This is how the compiler ensures that a type B always conforms to a maximum value limited by the number of digits specified and not the actual capacity of the field.

This is also why they really shouldn’t be used - they are inefficient and offer no advantages over types I and U.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Oct 15, 2014, at 11:09 AM, Gary Thompson <gthompson@xxxxxxxxxxx> wrote:

> Thanks Jonathan and Birgitta,
> I plan to change to 10 I 0 standalone, a better fit with other data for the API
>
> Birgitta, I guess the conversion to 'packed' happens during the API call (the 
> compile listing shows B(4,0) )
>
> - I can only imagine the tangled web the IBM team has traversed making RPG conform to modern standards . . .
> And I do appreciate their work! 
>
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Birgitta Hauser
> Sent: Wednesday, October 15, 2014 8:46 AM
> To: 'RPG programming on the IBM i (AS/400 and iSeries)'
> Subject: AW: Call QUSCRTUS fails using stand alone 4B 0 d spec
>
> 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.
>
>
> --
> 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.
>
> -- 
> 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.