RE: 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.
>