|
The program is looking for test.html not test.htm. Is that the problem? Mel Rothman, CGIDEV2 Author IBM eServer Custom Technology Center (eCTC), Rochester, Minnesota http://www-1.ibm.com/servers/eserver/iseries/service/ctc/ http://www.easy400.ibm.it/en Justin Houchin wrote: > > I assume I have the right path because I can run the command > DSPAUT OBJ('/rtekweb/test.htm') and it works. > > ----- Original Message ----- > From: "Mel Rothman" <mel@rothmanweb.com> > To: <web400@midrange.com> > Sent: Tuesday, May 14, 2002 2:00 PM > Subject: Re: [WEB400] CGIDEV2 Problems > > > For CGI programs to read files from the IFS, the user (default is > QTMHHTP1) > > needs these authorities: *X to all directories in the path and *R to the > file. > > > > However, the error message says "no such path or directory," which does > not > > appear to be an authority problem. > > > > Is there an retekweb directory off the root? Is there a file test.html in > that > > directory? > > > > > > Mel Rothman, CGIDEV2 Author > > IBM eServer Custom Technology Center (eCTC), Rochester, Minnesota > > http://www-1.ibm.com/servers/eserver/iseries/service/ctc/ > > http://www.easy400.ibm.it/en > > > > > > > > Justin Houchin wrote: > > > > > > Should my authority on the rtekweb folder in the IFS say.... > > > > > > Data --Object Authorities-- > > > User Authority Exist Mgt Alter Ref > > > *PUBLIC *EXCLUDE > > > JHOUCHIN *RWX X X X X > > > QTMHHTTP *RX > > > QTMHHTP1 *RX > > > > > > ----- Original Message ----- > > > From: "Justin Houchin" <jhouchin9@charter.net> > > > To: <web400@midrange.com> > > > Sent: Tuesday, May 14, 2002 12:59 PM > > > Subject: Re: [WEB400] CGIDEV2 Problems > > > > > > > Ok Mel, > > > > I just looked at the debug log and it has the error....00139 > > > > GetHtmlIfsMult: Could not access IFS file /rtekweb/test.html. File is > > > being > > > > ignored. > > > > Errno and text are: 3,025 No such path or directory. > > > > > > > > > > > > ----- Original Message ----- > > > > From: "Mel Rothman" <mel@rothmanweb.com> > > > > To: <web400@midrange.com> > > > > Sent: Tuesday, May 14, 2002 12:46 PM > > > > Subject: Re: [WEB400] CGIDEV2 Problems > > > > > > > > > > > > > Some other things I would try: > > > > > > > > > > Change the statement > > > > > 0054.00 C CallP SetNoDebug(*on) > > > > > to > > > > > 0054.00 C CallP SetNoDebug(*off) > > > > > > > > > > Turn debugging on (CGIDEBUG *ON), run the program, display the > debugging > > > > output > > > > > (CGIDEBUG *DSPDATA), including the HTML written by the CGI program > to > > > see > > > > if it > > > > > is complete and, if not, where it failed. > > > > > > > > > > If this give no hints, then use STRSRVJOB and STRDBG to debug the > CGI > > > > program > > > > > and step through the code until the failure occurs. > > > > > > > > > > I hope this helps. > > > > > > > > > > Mel Rothman, CGIDEV2 Author > > > > > IBM eServer Custom Technology Center (eCTC), Rochester, Minnesota > > > > > http://www-1.ibm.com/servers/eserver/iseries/service/ctc/ > > > > > http://www.easy400.ibm.it/en > > > > > > > > > > > > > > > > > > > > > > > > > Justin Houchin wrote: > > > > > > > > > > > > Mel I tried this and it still doesn't work.... > > > > > > > > > > > > > <as400>Header > > > > > > > Content-type: text/html > > > > > > > <html> > > > > > > > <head> > > > > > > > <title>Reliatek, Inc. "Provinding Reliable Technology to > > > > > > Businesses"</title> > > > > > > > <meta http-equiv="Content-Type" content="text/html; > > > > charset=iso-8859-1"> > > > > > > > </head> > > > > > > > <body> > > > > > > etc.... > > > > > > ----- Original Message ----- > > > > > > From: "Mel Rothman" <mel@rothmanweb.com> > > > > > > To: <web400@midrange.com> > > > > > > Sent: Tuesday, May 14, 2002 11:35 AM > > > > > > Subject: Re: [WEB400] CGIDEV2 Problems > > > > > > > > > > > > When the externally described HTML is in the IFS, make sure there > are > > > no > > > > > > blanks > > > > > > in the line following the Content-Type header. In other words, > the > > > > > > Content-Type > > > > > > header should be followed by two new lines, not a newline, some > number > > > > of > > > > > > blanks, and another newline. > > > > > > > > > > > > Mel Rothman, CGIDEV2 Author > > > > > > IBM eServer Custom Technology Center (eCTC), Rochester, Minnesota > > > > > > http://www-1.ibm.com/servers/eserver/iseries/service/ctc/ > > > > > > http://www.easy400.ibm.it/en > > > > > > > > > > > > Justin Houchin wrote: > > > > > > > > > > > > > > This is a multi-part message in MIME format. > > > > > > > -- > > > > > > > [ Picked text/plain from multipart/alternative ] > > > > > > > I am trying to run this CGIDEV2 program. When I execute the CGI, > I > > > get > > > > an > > > > > > HTTP500 Internal Server Error. I check the joblogs and the CGI > program > > > > runs > > > > > > and ends normally, I think my problem is with the HTML, but am not > > > > > > positive..Any help would be great!!! Here is the CGI source.... > > > > > > > > > > > > > > This source gets executed by this link > > > > > > http://68.59.64.83/cgi-bin/iteminq?XCAT=MOD > > > > > > > > > > > > > > 0015.00 /copy rtekcgi,hspecs > > > > > > > 0016.00 FP3030L1 IF E K DISK UsrOpn > > > > > > > 0017.00 F > Rename(I3030:I3030L1) > > > > > > > 0018.00 /COPY RTEKCGI,C.PROTO > > > > > > > 0019.00 /copy rtekcgi,prototypeb > > > > > > > 0020.00 /copy rtekcgi,usec > > > > > > > 0021.00 *copy rtekcgi,variables1 > > > > > > > 0022.00 * > > > > > > > 0023.00 *Number of variables > > > > > > > 0024.00 D nbrVars S 10I 0 > > > > > > > 0025.00 * > > > > > > > 0026.00 *Saved Query String > > > > > > > 0027.00 D savedquerystring... > > > > > > > 0028.00 D S 32767 Varying > > > > > > > 0029.00 > > > > > > > *--------------------------------------------------------------------- > > > > > > > 0030.00 *Setup stand alone fields > > > > > > > 0031.00 > > > > > > > *--------------------------------------------------------------------- > > > > > > > 0032.00 D Wsco S 2A > > > > > > > 0033.00 D Wsdiv S 2A > > > > > > > 0034.00 D XQty S 5P 0 > > > > > > > 0035.00 D StkStatus S 25A > > > > > > > 0036.00 D Xsell S 7P 2 > > > > > > > 0037.00 D Xcat S 3A > > > > > > > 0038.00 D Clearance S 1A > > > > > > > 0039.00 > > > > > > > *--------------------------------------------------------------------- > > > > > > > 0040.00 *Setup constant fields > > > > > > > 0041.00 > > > > > > > *--------------------------------------------------------------------- > > > > > > > 0042.00 D initHTMlVars C '0' > > > > > > > 0043.00 > > > > > > > *////////////////////////////////////////////////////////////////////* > > > > > > > 0044.00 *Setup Item Master Key List > > > > > > > 0045.00 > > > > > > > *////////////////////////////////////////////////////////////////////* > > > > > > > 0046.00 C Itemkey Klist > > > > > > > 0047.00 C Kfld Wsco > > > > > > > 0048.00 C Kfld Wsdiv > > > > > > > 0049.00 C Kfld Xcat > > > > > > > 0050.00 C* > > > > > > > 0051.00 > > > > > > > *////////////////////////////////////////////////////////////////////* > > > > > > > 0052.00 *Start Main Program Logic > > > > > > > 0053.00 > > > > > > > *////////////////////////////////////////////////////////////////////* > > > > > > > 0054.00 C CallP SetNoDebug(*on) > > > > > > > 0055.00 * > > > > > > > 0056.00 *Add PCSTORE to library list > > > > > > > 0057.00 C CallP #PushLib('PCSTORE') > > > > > > > 0058.00 * > > > > > > > 0059.00 *Set company and division to 1510 > > > > > > > 0060.00 C Eval Wsco = '15' > > > > > > > 0061.00 C Eval Wsdiv = '10' > > > > > > > 0062.00 * > > > > > > > 0063.00 *Read output skeleton html from IFS into memory > > > > > > > 0064.00 C CallP > > > gethtmlifs('/rtekweb/test.html': > > > > > > > 0065.00 C '<as400>') > > > > > > > 0066.00 * > > > > > > > 0067.00 *Get input > > > > > > > 0068.00 C Eval nbrVars = > > > > > > > 0069.00 C > > > > zhbgetinput(savedquerystring:qusec) > > > > > > > 0070.00 C*********** Eval XCat = > > > > getenv('Query_String':qusec) > > > > > > > 0071.00 * > > > > > > > 0072.00 *Parse Input > > > > > > > 0073.00 C Eval Xcat = zhbgetvar('XCAT') > > > > > > > 0074.00 * > > > > > > > 0075.00 *Write the HTML Header > > > > > > > 0076.00 C CallP WrtSection('Header') > > > > > > > 0077.00 * > > > > > > > 0078.00 *Write the Item Number,Description,Availibility,Price > > > Banner > > > > > > > 0079.00 C CallP WrtSection('Banner') > > > > > > > 0080.00 * > > > > > > > 0081.00 *Read the Item Master File by Category > > > > > > > 0082.00 C Open P3030L1 > > > > > > > 0083.00 C ItemKey SetLL I3030L1 > > > > > > > 0084.00 C ItemKey ReadE I3030L1 > > > > > > > 0085.00 * > > > > > > > 0086.00 C Dow (not %Eof) > > > > > > > 0087.00 * > > > > > > > 0088.00 *Check to see if item is a clearence item > > > > > > > 0089.00 C EvalR Clearance = IMITM > > > > > > > 0090.00 * > > > > > > > 0091.00 C IMDIV IfEq '10' > > > > > > > 0092.00 C Xcat AndEq IMCAT > > > > > > > 0093.00 C IMWEBS AndEq '1' > > > > > > > 0094.00 C Clearance AndEq *Blank > > > > > > > 0095.00 * > > > > > > > 0096.00 *Check to see if item is "Available" or "In Stock" > > > > > > > 0097.00 C Eval XQty = 0 > > > > > > > 0098.00 C Eval XQty = > > > > #CalcInv(Wsco:WsDiv:Imitm) > > > > > > > 0099.00 C If XQty > 0 > > > > > > > 0100.00 C Eval StkStatus = 'In Stock' > > > > > > > 0101.00 C Else > > > > > > > 0102.00 C Eval StkStatus = 'Available' > > > > > > > 0103.00 C EndIf > > > > > > > 0104.00 * > > > > > > > 0105.00 *Calculate the seling price > > > > > > > 0106.00 C Eval Xsell = > > > > #PrceCalc(Wsco:WsDiv:Imitm) > > > > > > > 0107.00 * > > > > > > > 0108.00 *Update html skeleton buffer with values > > > > > > > 0109.00 C CallP updHTMLvar('Item':IMITM) > > > > > > > 0110.00 C CallP updHTMLvar('Desc':IMDSC) > > > > > > > 0111.00 C CallP > > > > updHTMLvar('StkStatus':StkStatus) > > > > > > > 0112.00 C CallP updHTMLvar('Price':IMITM) > > > > > > > 0113.00 * > > > > > > > 0114.00 *Write the Table Row > > > > > > > 0115.00 C CallP WrtSection('TableRow') > > > > > > > 0116.00 * > > > > > > > 0117.00 C EndIf > > > > > > > 0118.00 * > > > > > > > 0119.00 C ItemKey ReadE I3030L1 > > > > > > > 0120.00 C EndDo > > > > > > > 0121.00 * > > > > > > > 0122.00 C Close P3030L1 > > > > > > > 0123.00 * > > > > > > > 0124.00 *Write the HTML Footer > > > > > > > 0125.00 C CallP WrtSection('Footer') > > > > > > > 0126.00 * > > > > > > > 0127.00 *Remove PCSTORE from library list > > > > > > > 0128.00 C CallP #PopLib('PCSTORE') > > > > > > > 0129.00 * > > > > > > > 0130.00 *Write the HTML Buffer to the Web Browser > > > > > > > 0131.00 C CallP WrtSection('*fini') > > > > > > > 0132.00 C Return > > > > > > > > > > > > > > Here is the HTML that is located in my IFS.... > > > > > > > > > > > > > > <as400>Header > > > > > > > Content-type: text/html > > > > > > > > > > > > > > <html> > > > > > > > <head> > > > > > > > <title>Reliatek, Inc. "Provinding Reliable Technology to > > > > > > Businesses"</title> > > > > > > > <meta http-equiv="Content-Type" content="text/html; > > > > charset=iso-8859-1"> > > > > > > > </head> > > > > > > > <body> > > > > > > > > > > > > > > <as400>Banner > > > > > > > <table width="100%" bgcolor="000080"> > > > > > > > <tr> > > > > > > > <td width="34%"><font color="#FFFFFF">ITEM NUMBER</font></td> > > > > > > > <td width="43%"><font color="#FFFFFF">ITEM > DESCRIPTION</font></td> > > > > > > > <td width="9%"><font color="#FFFFFF"><div > > > > > > align="right">AVAILIBILTY</div></font></td> > > > > > > > <td width="15%"><font color="#FFFFFF"><div > > > > > > align="right">PRICE</div></font></td> > > > > > > > </tr> > > > > > > > </table> > > > > > > > > > > > > > > <as400>tablerow > > > > > > > <table width="100%"bgcolor="lightsteelblue"> > > > > > > > <tr> > > > > > > > <td width="26%">/%Item%/</td> > > > > > > > <td width="46%"><a > > > > > > href="/cgi-bin/itemdsc?XITM=/%Item%/">/%Desc%/</a><br></td> > > > > > > > <td width="6%"><div align="right">/%StkStatus%/</div></td> > > > > > > > <td width="11%"><div align="right">/%Xsell%/</div></td> > > > > > > > </tr> > > > > > > > </table> > > > > > > > > > > > > > > <as400>footer > > > > > > > </body> > > > > > > > </html> > > > > > > > > > > > > > > Thanks, > > > > > > > > > > > > > > Justin Houchin > > > > > > > Programmer > > > > > > > Reliatek, Inc > > > > > > > jhouchin9@charter.net > > > > > > >
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.