RE: [WEB400] read Standard In Problems

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

Is RCVREC = *blanks when you call RdStin?  I don't know what the problem
could be... you can send me a .txt file with your source code and I'll try
to run it here...

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 5:02 PM
> To: web400@midrange.com
> Subject: Re: [WEB400] read Standard In Problems
>
>
> Ok now the program gets EnvRec=24,
> EnvLen=2,RcvLen=24,RcvRec=0. Why isn't
> the RcvRec getting any data? The #CvtDb is unsecssful because
> there is no
> RvcRec.
>
>
> Justin
> ----- Original Message -----
> From: "Joel R. Cochran" <jrc@masi-brac.com>
> To: <web400@midrange.com>
> Sent: Friday, April 19, 2002 3:16 PM
> Subject: RE: [WEB400] read Standard In Problems
>
>
> > You need to specify 'value' on your RcvRec parameter on the
> PR and PI
> > blocks.  This will allow the routine to return the changed RcvRec
> values...
> >
> >
> > > Here is my Sub Procedure for #RdStin:
> > >
> > >
> > > P #RdStin         B                   Export
> > >
> > >
> *====================================================================*
> > > D #RdStin         PI
> > > D  RcvRec                     1024    *****ADD 'value' HERE*****
> > > 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
> > _______________________________________________
> > 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.
>