Re: Outputting a User Space through QtmhWrStout

[Aaron Bartell <aaronbartell@xxxxxxxxx>]

You need two new lines after your headers so the client knows when the
headers stop and the content starts.

Change this line of code to be like this:

WriteResponse('Content-Length: ' + %char(%len(p_UsrSpcData)) + x'1515');

For that matter you don't need to specify a Content-Length because Apache
will add one for you if it notices one wasn't specified.

Aaron Bartell
http://mowyourlawn.com
http://mowyourlawn.com/blog/


On Mon, Dec 7, 2009 at 3:29 PM, Mike <koldark@xxxxxxxxx> wrote:

> I am getting a 500 error "Cannon read script output pipe" when trying to
> write out my user space through QtmhWrStout. I am so confused here and
> Google isn't helping me (I am sure I am not using the right terminology).
>
>     D QtmhWrStout     PR                  extproc('QtmhWrStout')
>     D   DtaVar                   32767A   options(*varsize) const
>     D   DtaVarLen                   10I 0 const
>     D   ErrorCode                 8000A   options(*varsize)
>
>     D QtmhWrStoutPtr  PR                  extproc('QtmhWrStout')
>     D   DtaVar                        *   value
>     D   DtaVarLen                   10I 0 const
>     D   ErrorCode                 8000A   options(*varsize)
>
>
>     P*----------------------------
> ----------------------
>     P* Procedure name: Main
>     P* Purpose:
>     P* Returns:
>     P*--------------------------------------------------
>     P Main            B
>     D Main            PI
>
>      /free
>
>       //  Read all of the data sent via STDIN into the user space.
>       QtmhRdStin( p_UsrSpcData
>                 : MAXSPACE
>                 : len
>                 : Kaboom );
>
>       // Do stuff here
>
>       WriteResponse('Content-Type: application/xml' + cr);
>       WriteResponse('Content-Length: ' + %char(%len(p_UsrSpcData)));
>
>       QtmhWrStoutPtr(p_UsrSpcData:%len(p_UsrSpcData):ErrCode);
>
>       return;
>
>      /end-free
>     P Main            E
>
>
>     P*--------------------------------------------------
>     P* Procedure name: WriteResponse
>     P* Purpose:
>     P* Returns:
>     P*--------------------------------------------------
>     P WriteResponse   B
>     D WriteResponse   PI
>     D  buffer                    32767A   options(*varsize) const
>
>      /free
>
>       QtmhWrStout(%trim(buffer):%len(%trim(buffer)):ErrCode);
>
>       return;
>
>      /end-free
>     P WriteResponse   E
>
>
> Right now I am just trying to bring in an XML document and write it back
> out. Just to make sure my code is working.
>
> What am I doing stupid?
>
> --
> Mike Wills
> http://mikewills.info
> P: (507) 933-0880 | Skype: koldark
> --
> This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> To post a message email: WEB400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/web400
> or email: WEB400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/web400.