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

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