Re: CGIDEV2 Program Error - Automatic storage overflow [PRIVATE REPLY]

Moses:
* >>>---> priva**te reply off-list <---<<<*

I see "PSDS" mentioned, so Ithink that WRTDEBUG and WRTPSDS are getting invoked from some "error handling" code, e.g. in a *PSSR routine ... you need to find out where the WRTEDBUG and WRTPSDS writes its output to, and look at the start of that for some hints or clues about "what went wrong."

Also, because you mentioned "WRTDEBUG and WRTPSDS" repeating, I suspect you are encountering a scenario where your *PSSR or other error handling routine is invoked, and then, while it is processing that first error, it encounters another error (or even the same error that caused the *PSSR to be invoked in the first place), and so your program enters into a "death spiral" -- an infinite recursive loop of endless error recovery, that will always eventually run out of "stack space", and thus the error you reported about "Automatic storage overflow" and the job is terminated abnormally..

Try to arrange to run that job with a *JOBD that has LOG(4 *0 *SECLVL) so you will get a job log, no matter what. Then, the next time t his error happens again,you can look at that job log to try to find more details about any errors that occurred that caused the *PSSR to be invoked in the first place... and perhaps also see if it is the same error or a different one that causes subsequent *PSSR invocations.

I also noticed that your file input to getHtmlIfs is an ".xml" file, not ".html" -- perhaps it could be "mal-formed" XML that is leading to these errors? You may want to look at the data in that IFS streamfile.

Let me know what you find ...

All the best,

Mark S. Waterbury

> On 4/19/2017 6:04 PM, Moses Nang wrote:

I hope someone can help me out with this error I'm seeing on occasion with a program I am writing.

I wrote a simple program that sometimes gets hung up with an "Automatic storage overflow" error. I see in the call stack procedures WRTDEBUG and WRTPSDS of G2OBJ/ CGISRVPGM2 just repeating.

Type Program Statement Procedure
X574311 IMSQA 25002 X574311
CGISRVPGM2 G2OBJ 101200 GETHTMLIFS
CGISRVPGM2 G2OBJ 121000 GETHTMLIFSMULT
CGISRVPGM2 G2OBJ 18000 WRTDEBUG
CGISRVPGM2 G2OBJ 23200 WRTPSDS
CGISRVPGM2 G2OBJ 18000 WRTDEBUG
CGISRVPGM2 G2OBJ 23200 WRTPSDS

Basically, my code is:

callp getHtmlIfs('/MOSES/PO_GII.xml':'<AS400>')
callp clrhtmlbuffer

callp wrtsection('HDR1BEGIN')
callp wrtsection('HDR2BEGIN')
callp wrtsection('HDR3BEGIN')
callp wrtsection('HDR3END')
callp wrtsection('HDR2END')
callp wrtsection('HDR1END')
callp wrtsection('*fini')

move *on *inlr

For the CRTPGM command, I have this:

BNDSRVPGM(QHTTPSVR/QZHBCGI CGISRVPGM2) ACTGRP(*CALLER)

Thanks you,

Moses Nang
Integrated Merchandising Systems, LLC
847-583-3712


This email is intended only for the person or entity to which it is addressed and may contain information that is privileged, confidential or otherwise protected from disclosure. Dissemination, distribution, or copying of this email or the information herein by anyone other than the intended recipient, or an employee or agent responsible for delivering the message to the intended recipient, is prohibited. If you have received this email in error, please immediately notify us by calling our Network Operations Center at +1 855 237 8324.