|
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.
midrange.com
