RE: [WEB400] Read Standard In

["Joel R. Cochran" <jrc@xxxxxxxxxxxxx>]

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