Re: [WEB400] Help with CGI RPG

[jeanmichel Penasse <jmpenasse@xxxxxxxx>]

An empty line is required at the end of the header by http 1.1 protocol 
(RFC2616). It marks the end of the header
The first Newline is the end of the "Content-type..." line, and the second 
Newline is for the empty line.


Chris Piper <Cpiper@xxxxxxxxxxxx> wrote:
That did it. Quick question, why do I need two?

Thanks for the Help
Chris

>>> jmpenasse@xxxxxxxx 10/10/03 07:56AM >>>
Try to had a second Newline at the end of the http header :

.../...
C EVAL WrtDta = HTTPHeader 
C EVAL WrtDta = %TRIM(WrtDta) + NEWLINE 
C + NEWLINE 
C EXSR WRSTDOUT 
.../... 

Chris Piper wrote:
Can someone point me in the right direction with my first RPG CGI. I am having 
problems with my CGI RPG program. I am getting 500 error when I get there. The 
program is a SQL RPG which I compiled to a module (with CRTSQLRPGI *MODULE), 
then bound with the service program QZHBCGI in QHTTPSVR using CRTPGM. I know 
the web server is running the program, it appears I am having problems with 
QtmhWrStout. I have included the code snippets ...

RPG:
D NEWLINE C CONST(X'15') 
D HTTPHeader C CONST('Content-type: text/html') 
D APIOut C CONST('QtmhWrStout') 
D WPError DS 
D EBytesP 1 4B 0 
D EBytesA 5 8B 0 
D EMsgID 9 15 
D EReserverd 16 16 
* 
D WrtDta S 1024A 
D WrtDtaLen S 9B 0 INZ(1024) 

C EVAL WrtDta = HTTPHeader 
C EVAL WrtDta = %TRIM(WrtDta) + NEWLINE 
C EXSR WRSTDOUT 
C EVAL WrtDta = ' 
C Test --- Test
' 
C EVAL WrtDta = %TRIM(WrtDta) + NEWLINE 
C EXSR WRSTDOUT 

C WRSTDOUT BEGSR 
* 
C EVAL EBytesP = %SIZE(WPError) 
C EVAL WrtDtaLen = %LEN(%TRIM(WrtDta)) 
C CALLB APIOut 
C PARM WrtDta 
C PARM WrtDtaLen 
C PARM WPError 
* 
C ENDSR 

If someone thinks it may be elsewhere, let me know what you need to see.

Thanks For the Help
Chris


Chris Piper
Systems Analyst
Stant Manufacturing, Inc.
765.827.8121
cpiper@xxxxxxxxxxxx 


_______________________________________________
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.





---------------------------------
Do You Yahoo!? -- Une adresse @yahoo.fr gratuite et en français !
Testez le nouveau Yahoo! Mail
_______________________________________________
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.



_______________________________________________
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.





---------------------------------
Do You Yahoo!? -- Une adresse @yahoo.fr gratuite et en français !
Testez le nouveau Yahoo! Mail