|
Thanks, Andrew That corrected the problem. I just spent 2 days trying to find the problem. Your a Life Saver. :) Justin Houchin Programmer Reliatek, Inc ----- Original Message ----- From: "Andy Renk" <acr12345@chambers-owen.com> To: <web400@midrange.com> Sent: Wednesday, April 10, 2002 10:21 AM Subject: RE: [WEB400] HTTP 500 Error > I think you need two newlines after your httpheader > > > Andrew Renk > Sr. Programer > Chambers & Owen, Inc. > P.O.Box 1489 > 1733 Morse Street > Janesville, Wi 53547-1489 > > Voice: (608) 752-7865 x252 > Fax: (608) 752-3126 > Email: acr12345@chambers-owen.com > http://www.chambers-owen.com > > This email and any files transmitted with it are confidential and > intended solely for the use of the individual or entity to whom they are > addressed. If you are not the intended recipient you are notified that > disclosing, copying, distributing or taking any action in reliance on > the contents of this information is strictly prohibited. Please note > that any views or opinions presented in this email are solely those of > the author and do not necessarily represent those of the company. > > > > -----Original Message----- > From: web400-admin@midrange.com [mailto:web400-admin@midrange.com] On > Behalf Of Justin Houchin > Sent: Friday, April 12, 2002 8:18 AM > To: web400@midrange.com > Subject: [WEB400] HTTP 500 Error > > This is a multi-part message in MIME format. > -- > [ Picked text/plain from multipart/alternative ] > Hi Everyone, I just created a CGI Program that will read two items: ITEM > NUMBER(IMITM) and ITEM DESCRIPTION(IMDESC) from file P3030L1. I have ran > a debug on the program and everything looks like it should run > correctly. But after I call the CGI Program on the web, I get a HTTP 500 > Error. Please look to see if there is a problem with my code......Thanks > > F*////////////////////////////////////////////////////////////////////* > F* > F*Program Name:ITEMINQ > F*Date Created:4/4/2002 > F*Programmer:Justin Houchin(JHOUCHIN) > F*Description:This CGI Program will look up a list of available items > F*by the category > F* > F*Remember to bind QHTTPSVR/QZHBCGI Service Program > F* > F*////////////////////////////////////////////////////////////////////* > F* > F*Setup Files to be used > F* > FP3030l1 IF E K DISK > F Rename(I3030:I3030L1) > D* > D*Setup Query_String Receive Data Structure > D* > D EnvDS E DS ExtName(RTEKCOMP) > D EnvFile DS > D File 1 10 Inz('RTEKCOMP ') > D Lib 11 20 Inz('PCSTORE ') > D* > D WpError DS > D EBytesP 1 4B 0 Inz(40) > D EBytesA 5 8B 0 > D EMsgID 9 15 > D EReserved 16 16 > D EData 17 56 > D* > D*Constants for writing HTML Head > D* > D HTTPHeader C CONST('Content-type:text/html') > D NewLine C CONST(X'15') > D* > D*Setup the environmental vaiable buffer > D* > D EnvRec S 1024 > D EnvLen S 9B 0 > D EnvRecLen S 9B 0 Inz(%size(EnvRec)) > D EnvName S 12 Inz('QUERY_STRING') > D EnvNameLen S 9B 0 Inz(%size(EnvName)) > D* > D*Setup Convert to Database API Fields > D* > D CvtLen S 9B 0 Inz(%size(EnvDS)) > D CvtLenAv S 9B 0 > D CvtStat S 9B 0 > D* > D*Fields for HTML Data getting written to the Web > D* > D WrtDta S 1024 > D WrtDtaLen S 9B 0 > D* > D*Define Generic Stand Alone Fields > D Wsco S 2A > D Wsdiv S 2A > C*/////////////////////START OF MAIN LOGIC///////////////////////////// > C* > C*Setup Item Master Key List > C* > C Itemkey Klist > C Kfld Wsco > C Kfld Wsdiv > C Kfld Xcat > C* > C Eval Wsco = '15' > C Eval Wsdiv = '10' > C* > C* > C*Read Query_String Variables > C* > C CallB 'QtmhGetEnv' > C Parm EnvRec > C Parm EnvRecLen > C Parm EnvLen > C Parm EnvName > C Parm EnvNameLen > C Parm WPError > C* > C*Convert to Database > C* > C If (EnvLen = 0) > C Eval EnvLen = %size(EnvRec) > C EndIf > C* > C CallB 'QtmhCvtDb' > C Parm EnvFile > C Parm EnvRec > C Parm EnvLen > C Parm EnvDS > C Parm CvtLen > C Parm CvtLenAv > C Parm CvtStat > C Parm WPError > C* > C*Write the HTML Header > C* > C Eval WrtDta = %trim(HTTPHeader) + > C NewLine > C ExSr $WrStout > C* > C Eval WrtDta = '<html><head>' + > C '<title>' + > C 'ReliaTeK, Inc. "Providing' + > C 'Reliable Technology to' + > C 'Businesses"' + > C '</title></head><body>' + > C NewLine > C* > C ExSr $WrStout > C* > C*Start of Main Logic Processing > C* > C ItemKey SetLL I3030L1 > C ItemKey ReadE I3030L1 30 > C* > C *in30 DowNe *on > C* > C IMDIV IfEq '10' > C XCAT AndEq IMCAT > C Eval WrtDta = '<TR>' + NewLine + > C '<TD>' + %trim(IMITM) + '</TD>'+ > C '<TD>' + %trim(IMDSC) + '</TD>'+ > C NewLine + '</TR>' > C > C* > C ExSr $WrStout > C* > C Else > C EndIf > C ItemKey ReadE I3030L1 30 > C EndDo > C* > C*Write the HTML Footer > C* > C Eval WrtDta = '</body></html>' + > C NewLine > C ExSr $WrStout > C* > C Seton LR > C* > > C******************************************************************** > C*Start of Write Standard Out Sub-Routine > C* > C $WrStout BegSr > C* > C Eval WrtDtaLen = %len(%trim(WrtDta)) > C* > C CallB 'QtmhWrStout' > C Parm WrtDta > C Parm WrtDtaLen > C Parm WPError > C* > C EndSr > > > Thanks For the Help > Justin Houchin > Programmer > Reliatek, Inc > > > > > > > > > _______________________________________________ > This is the Web Enabling the AS400 / iSeries (WEB400) mailing list > To post a message email: WEB400@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/web400 > or email: WEB400-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/web400. > > ---------------------------------------- > The attachment 'message_body' was successfully scanned for known > viruses. It is not guaranteed, however, to be virus-free. > > > ---------------------------------------- > > _______________________________________________ > This is the Web Enabling the AS400 / iSeries (WEB400) mailing list > To post a message email: WEB400@midrange.com > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/cgi-bin/listinfo/web400 > or email: WEB400-request@midrange.com > Before posting, please take a moment to review the archives > at http://archive.midrange.com/web400. > >
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.
midrange.com
