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

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.