|
midrange.com
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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
