Re: Reg: Issue with RPG Service Program which is used for IWS -- RPG400-L

Hi Jon,

I have verified the pointer parameters value using EVAL P00_OutPtr:c 1000
in debug mode. All the pointers have valid values.

This is a skeleton program, which I will be using the same skeleton for
every new IWS transaction. All other services are working fine. I am facing
the issue with this newly created transaction alone.

Why I used a pointer as a parameter, my transaction flow is like Service
Program -> Program B -> Program C -> Processing program. For all the IWS
transactions Program B and Program C are common which will do some generic
processing and will send the JSON body parameter as is to the next program
without touching.

So for some transactions JSON body will be of 1000 length data and for some
20000 length data. So I passed as a pointer by allocating the size in the
Service program and using the same size in the processing program for doing
the process.

Regards,
Suren

On Tue, May 11, 2021 at 1:07 AM Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Have you looked at the pointers to see if they are valid? The error
message would hint that one of them is not. Easy enough to see in debug.

The fact that the explosion occurs during initialization would hint at bad
parms.

Not sure why you are passing pointers - not the most usual and error-proof
way of passing parms.

Jon Paris

On May 10, 2021, at 12:23 PM, Suren K <suren7437@xxxxxxxxx> wrote:

Hi Jon,

Wrk_Input is just a character field with length 10000.

Also, looks like the issue is not with the data-gen program, it looks

like

some other issue. If I remove the data-gen code and move the JSON value

as

a hard coded value, then I am getting the same set of errors with the

next

call program command.

Example,

// data-gen DS_Input %data(Wrk_Input:'doc=string countprefix=num_')
Commented this line
// %gen('YAJLDTAGEN');

P00_Header = Wrk_Header;
P00_InpPtr = %addr(Wrk_Input);
P00_ErrPtr = %addr(ED_Errors);
P00_WrnPtr = %addr(ED_Warnings);
P00_OutPtr = %addr(DS_Output);

// Call the Architecture Program to process the Request
Pr_PROGRAMA(P00_Header:P00_InpPtr:P00_WrnPtr:
P00_ErrPtr:P00_OutPtr:httpSts);

I am getting the below errors
Ownership of object FLDSPACE in QTEMP type *USRSPC changed.
Pointer not set for location referenced.
Error caused procedure PROGRAMA in program *LIBL/PROGRAMA to stop
during initialization.

Regards,
Suren

On Mon, May 10, 2021 at 9:43 PM Jon Paris <jon.paris@xxxxxxxxxxxxxx>

wrote:

Where and how is Wrk_Input defined? Most obvious guess is that it is a
parm that is not actually being passed.

Jon Paris

On May 10, 2021, at 3:28 AM, Suren K <suren7437@xxxxxxxxx> wrote:

Hi All,

I am facing this weird issue which I am not able to identify using the

job

log. It will be more helpful if anyone points me in the right direction

to

identify the issue.

I created a Service Program which I will configure in IWS Service.

Whenever

a request comes from the External world this Service program is the

first

program which will be executed.

I am getting the input in JSON format and I am using the DATA-INTO and
DATA-GEN opcodes in the Service program module for parsing and

generating

the JSON.

Now, in the Service program module i have one of the below line

data-gen DS_Input %data(Wrk_Input:'doc=string countprefix=num_')
%gen('YAJLDTAGEN');

I am getting this error while executing this code,

Pointer not set for location referenced.
Error caused procedure _QRNI_GLOB in program LIBL/YAJLDTAGEN to stop
during initialization.
Error RNX8001 occurred while running the program or procedure for the
DATA-GEN operation.

Any response will be very much appreciated.

Regards,
Suren
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link: https://amazon.midrange.com

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com