Re: read Standard In Problems -- WEB400

Here is my program


 *Retrieve input from web fields
C                   CallP     #GetEnv(EnvRec:EnvLen:'CONTENT_LENGTH')
C                   Eval      RcvLen = #cton(EnvRec)
C                   CallP     #RdStin(RcvRec:RcvLen)
 *
 *Convert enviornmental veriables to external data structure
C                   ExSr      $CvtDB
 *


Here is my Sub Procedure for #GetEnv:

 P #GetEnv         B                   Export
  *====================================================================*
 D #GetEnv         PI
 D  EnvRec                     1024
 D  EnvLen                        9B 0
 D  EnvName                      64    Value
  *
 D EnvRecLen       S              9B 0 Inz(%size(EnvRec))
 D EnvNameLen      S              9B 0
 C                   Eval      EnvNameLen = %len(%trim(EnvName))
  *
 C                   CallB     'QtmhGetEnv'
 C                   Parm                    EnvRec
 C                   Parm                    EnvRecLen
 C                   Parm                    EnvLen
 C                   Parm                    EnvName
 C                   Parm                    EnvNameLen
 C                   Parm                    WPError
  *====================================================================*
P #GetEnv         E



Here is my Sub Procedure for #RdStin:


P #RdStin         B                   Export
 *====================================================================*
D #RdStin         PI
D  RcvRec                     1024
D  RcvLen                        9B 0
 *
D RcvRecLen       S              9B 0
 *====================================================================*
C                   CallB     'QtmhRdStin'
C                   Parm                    RcvRec
C                   Parm                    RcvLen
C                   Parm                    RcvRecLen
 C                   Parm                    WPError
  *
  *====================================================================*
 P #RdStin         E



----- Original Message -----
From: "Joel R. Cochran" <jrc@masi-brac.com>
To: <web400@midrange.com>
Sent: Friday, April 19, 2002 2:59 PM
Subject: RE: [WEB400] read Standard In Problems


> Justin,
>
> Post the part of your CGI program where you try to bring the form data
in...
>
> Joel R. Cochran
> Director of Internet Services
> VamaNet.com
> (800)480-8810
> mailto:webmaster@vamanet.com
>
>
> > -----Original Message-----
> > From: Justin Houchin [mailto:jhouchin9@charter.net]
> > Sent: Friday, April 19, 2002 2:04 PM
> > To: web400@midrange.com
> > Subject: [WEB400] read Standard In Problems
> >
> >
> > This is a multi-part message in MIME format.
> > --
> > [ Picked text/plain from multipart/alternative ]
> > I have to fields, here is my HTML:
> >
> > <body bgcolor="#FFFFFF" text="#000000">
> > <form action="/cgi-bin/LOGIN" method="post">
> > <div align="center"><center><table>
> >    <tr>
> >  <td>UserId</td>
> >      <td><input type="text" name="USERID" size=50></td>
> >     </tr>
> >  <tr>
> >  <td>password</td>
> >  <td><input type="password" name="UPASS" size=50></td>
> >     </tr>
> >  </table>
> >  </center></div><div align="center"><center><p><input
> > type="submit" value="Log In"></p>
> >  </center></div>
> >  </form>
> >     </body>
> >  </html>
> >
> > I have a breakpoint set in my CGi program on the subprocedure
> > #GetEnv, No data is getting into the Subprocedure therefore
> > no data to do a #CvtDb. And my HTTP is set up for POST/GET.
> > Any Ideas?
> >
> > Thanks,
> > 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.
> >
> _______________________________________________
> 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.
>
>