× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



In the second screen (detail) you are missing a </table> at the end of yuor 
table.  Some browsers don't maind, others di.

The resposnse time is very good, here in South America.
_______________________________________________
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 thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.