Re: Read Standard In

Thanks Joel, that's what I needed to know.

Justin
----- Original Message -----
From: "Joel R. Cochran" <jrc@masi-brac.com>
To: <web400@midrange.com>
Sent: Friday, April 19, 2002 10:13 AM
Subject: RE: [WEB400] Read Standard In


> If you want to roll your own, then you need to do Get the Environment
> Variable Length first and then send that length to the RdStin routine...
>
> something like the following...
>
>
> d $RdStin         pr                  extproc('QtmhRdStin')
> d  RcvRec                     1024
> d  RcvLen                        9b 0
> d  RcvRecLen                     9b 0
> d  WPError                    1024    options(*varsize)
>
> d $convertDB      pr                  extproc('QtmhCvtDb')
> d  EnvFile                    1024    options(*varsize)
> d  RcvRec                     1024
> d  RcvLen                        9b 0
> d  EnvDS                      1024    options(*varsize)
> d  CvtLen                        9b 0
> d  CvtLenAv                      9b 0
> d  CvtStat                       9b 0
> d  WPError                    1024    options(*varsize)
>
> /free
>
>   // Get incoming parms from URL
>
>   #GetEnv(EnvRec: EnvLen: 'CONTENT_LENGTH' );
>
>   RcvLen = #cton(EnvRec);
>   $RdStin( RcvRec : RcvLen : RcvRecLen : WPError );
>
>   $ConvertDB( EnvFile : RcvRec : RcvLen : EnvDS :
>               CvtLen : CvtLenAv : CvtStat : WPError );
>
> /end-free
>
>
>
> 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 10:09 AM
> > To: web400@midrange.com
> > Subject: [WEB400] Read Standard In
> >
> >
> > This is a multi-part message in MIME format.
> > --
> > [ Picked text/plain from multipart/alternative ]
> > Hi Everyone.
> >     I have created two text input boxes, one for a userid and
> > one for a password. I have read in the E-Rpg book that I
> > should use QtmhRdStin API to retrieve the data out of the
> > boxes. Do I also need to do a QtmhGetEnv before the QtmhRdStin?
> >
> >
> > 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.
>
>