CGIDEV2 Program Error - Automatic storage overflow

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.