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

In order to match your first example you needed to define the B field as 9B 0 - not 4! When using from/to you are defining a length of 4 bytes - when using 4B you are telling the compiler to define a field that will hold 4 digits (2 bytes). That’s why you see the value you expect in debug the debugger shows you the value of your 2 byte field - the API however is seeing the _four_ bytes starting with your two.

You should not really be using the B data type at all - ignore its use in examples - it is deprecated in current RPG and has been since back in the V4 days. Your standalone field should be defined as 10i.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

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

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.