• Subject: RE: Problems with Error 500
  • From: "Stone, Brad V (TC)" <bvstone@xxxxxxxxxxxxxx>
  • Date: Fri, 23 Mar 2001 10:50:27 -0600

You got it, Andrew.  Have you done this before?  ;)

Brad

> -----Original Message-----
> From: Andrew Borts [mailto:andrewb@setacorporation.com]
> Sent: Friday, March 23, 2001 9:47 AM
> To: 'WEB400@midrange.com'
> Subject: RE: Problems with Error 500
> 
> 
> so the lines look like this...
> Content-type: text/html
> 
> 
> <html>
> 
> Andrew Borts / E-Commerce Project Leader
> Seta Corporation
> 6400 East Rogers Circle
> Boca Raton, FL 33499
> 
> E-mail: Andrewb@setacorporation.com 
> Corporate web site http://www.setacorporation.com 
> E-Commerce web site http://www.palmbeachjewelry.com
> Voice: 561-994-2660 Ext. 2211 / Fax: 561-997-0774
> 
> 
> -----Original Message-----
> From: Stone, Brad V (TC) [SMTP:bvstone@taylorcorp.com]
> Sent: Friday, March 23, 2001 8:44 AM
> To:   'WEB400@midrange.com'
> Subject:      RE: Problems with Error 500
> 
> You need to put two newlines after the HTTPHeader.  This 
> "signals" the web
> server that no more header information is there and it's all 
> "data" from
> then on out.
> 
> Brad
> 
> > -----Original Message-----
> > From: Christopher A. Libby [mailto:clibby@mainepublicservice.com]
> > Sent: Friday, March 23, 2001 7:22 AM
> > To: web400@midrange.com
> > Subject: Problems with Error 500
> > 
> > 
> > Hello all - I've been working on a couple sample RPG-CGI 
> > programs.  I'm
> > running into a problem with Internal Server Errors.  I've run 
> > a debug on the
> > program, and it seems to run correctly, but when it exits I 
> > get this web
> > page:
> > 
> > 
> >      Error 500
> >      Internal error: execve() failed.
> >      --------------------------------------------
> >      IBM HTTP Server 1.0
> > 
> > Here is the source to the program (simple - reads POST data 
> > and writes it
> > back out again):
> > 
> >      H DftActGrp(*NO) BndDir('WEBLIB/CGIBNDDIR')
> >       
> ****************************************************************
> >       * WEBTEST3 - Reading POST data and writing it again   
>          *
> >       
> ****************************************************************
> >      D APIError        DS
> >      D  EBytesP                1      4B 0 INZ(40)
> >      D  EBytesA                5      8B 0
> >      D  EMsgID                 9     15
> >      D  EReserverd            16     16
> >      D  EData                 17     56
> >       *
> >      D HTTPHeader      C                   
> > CONST('Content-type: text/html')
> >      D NewLine         C                   CONST(X'15')
> >       *
> >      D WrtDta          S           1024
> >      D WrtDtaLen       S              9B 0
> >      D*
> >      D RcvDta          S           1024
> >      D RcvDtaLn        S              9B 0 INZ(1024)
> >      D RcvValLn        S              9B 0
> >       
> ****************************************************************
> >       *Retrieve POST Data
> >      C                   Exsr      GetPOSTData
> >       *Initialize Web Page
> >      C                   eval      WrtDta = %trim(HTTPHeader)
> >      C                   EXSR      $WrStout
> >       *Write Headings
> >      C                   eval      WrtDta = '<html>'
> >      C                   EXSR      $WrStout
> >      C                   eval      WrtDta = '<head>'
> >      C                   EXSR      $WrStout
> >      C                   eval      WrtDta = '<title>This is 
> > what you wrote:'
> > +
> >      C                                      '</title>'
> >      C                   EXSR      $WrStout
> >      C                   eval      WrtDta = '</head>'
> >      C                   EXSR      $WrStout
> >      C                   eval      WrtDta = '<body>'
> >      C                   EXSR      $WrStout
> >      C                   eval      WrtDta = '<p>This is what 
> > you wrote:</p>'
> >      C                   EXSR      $WrStout
> >      C                   eval      WrtDta = '<hr>'
> >      C                   EXSR      $WrStout
> >      C*Write Data Passes from caller
> >      C                   Eval      WrtDta = %Trim(RcvDta)
> >      C*Write footers
> >      C
> >      C                   eval      WrtDta = '<hr>'
> >      C                   EXSR      $WrStout
> >      C                   eval      WrtDta = '</body>'
> >      C                   EXSR      $WrStout
> >      C                   eval      WrtDta = '</html>'
> >      C                   EXSR      $WrStout
> >       *
> >      C                   eval      *INLR = *On
> >      C                   Return
> >       
> ****************************************************************
> >       * Write to Standard Output
> >       
> ****************************************************************
> >      C     $WrStout      BEGSR
> >      C
> >      C                   Eval      WrtDta = WrtDta + NewLine
> >       *
> >      C     ' '           CHECKR    WrtDta:1024   WrtDtaLen
> >       *
> >      C                   CALLB     'QtmhWrStout'
> >      C                   PARM                    WrtDta
> >      C                   PARM                    WrtDtaLen
> >      C                   PARM                    APIError
> >       *
> >      C                   ENDSR
> >       
> ****************************************************************
> >       * GetPOSTData Subroutine
> >       
> ****************************************************************
> >      C     GetPOSTData   BEGSR
> >       *
> >      C                   CallB     'QtmhRdStin'
> >      C                   Parm                    RcvDta
> >      C                   Parm                    RcvDtaLn
> >      C                   Parm                    RcvValLn
> >      C                   Parm                    APIError
> >       *
> >      C                   ENDSR
> > 
> > Any help at all would be appreciated.  TIA!
> > 
> > ---------------------------------------------------------
> > Christopher A. Libby, Programmer/Analyst
> > Maine Public Service Company (www.mainepublicservice.com)
> > clibby@mainepublicservice.com (207) 768-5811 ext. 2210
> > 
> > 
> > 
> > 
> > Maine Public Service Company
> > www.mainepublicservice.com
> > 
> > 
> > +---
> > | This is the WEB400 Mailing List!
> > | To submit a new message, send your mail to WEB400@midrange.com.
> > | To subscribe to this list send email to WEB400-SUB@midrange.com.
> > | To unsubscribe from this list send email to 
> > WEB400-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator: 
> > david@midrange.com
> > +---
> > 
> +---
> | This is the WEB400 Mailing List!
> | To submit a new message, send your mail to WEB400@midrange.com.
> | To subscribe to this list send email to WEB400-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> WEB400-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
> +---
> | This is the WEB400 Mailing List!
> | To submit a new message, send your mail to WEB400@midrange.com.
> | To subscribe to this list send email to WEB400-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> WEB400-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
+---
| This is the WEB400 Mailing List!
| To submit a new message, send your mail to WEB400@midrange.com.
| To subscribe to this list send email to WEB400-SUB@midrange.com.
| To unsubscribe from this list send email to WEB400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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

This mailing list archive is Copyright 1997-2022 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.