RE: Puzzling problem

I always use parameters that match the interface.
Dcl-s Error char(516);
Dcl-s ZhbSavedQueryString varchar(32767);

You might try asking on the Easy400 Yahoo Group.



-----Original Message-----
From: Dean Eshleman [mailto:Dean.Eshleman@xxxxxxxxxxxx]
Sent: Friday, May 04, 2018 4:24 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Puzzling problem

I have a strange problem going on with one of my RPG programs. The program is a REST web service and we are using CGIDEV2 and YAJL. In one of my sub-procedures, I call a procedure that is part of CGIDEV2 called ZhbGetInput. Here is the prototype:

D ZhbGetInput pr 10i 0
D SavedQueryString...
D 32767 varying options(*varsize)
D qusec 516 options(*varsize)

I call it like this in the sub-procedure:
inputCount = ZhbGetInput(savedQuery: QUSEC);

These fields are defined as global fields as follows:
DCL-S InputCount int(10);
DCL-S SavedQuery varchar(32767); I /include the definition for QUSEC from the CGIDEV2 source.

Here is where it gets interesting. If the SavedQuery field is defined as less than 32767, the ZhbGetInput procedure blows up every other time I call the web service with a low level "pointer not set for location referenced" error in program QRNXINIT. The process aborts and doesn't even return the error to my program. The first time I call the program, it always works. Also, if I move the definition of the SavedQuery field into the sub-procedure where it is used, it also causes the same error every other time the program is called. The field is only used on the call to ZhbGetInput. It seems like when the program bombs, it cleans things up and then the next call is successful.

Anyone seen anything like this before? I assume something is trampling on memory and messing things up, but I don't know where to look. We are on V7R1, upgrading soon to V7R3.

If I need to provide more of the program code, let me know.

Dean Eshleman
Software Development Architect
Everence

______________________________________________________________________
Confidentiality Notice: This information is intended only for the individual or entity named. If you are not the intended recipient, do not use or disclose this information. If you received this e-mail in error, please delete or otherwise destroy it and contact us at (800) 348-7468 so we can take steps to avoid such transmission errors in the future. Thank you.