RE: Display Files in CL

Bob,

I'm not sure how to handle that :(  In my CL program,
I use this method to throw messages back to the screen 
to indicate progress until the CL has completed its job.
It works great providing you do *not* hit the Enter key 
during a long process.  (Note this is just a utility to
dump output to workfiles and then read and process the
results).  

Sounds like you need a way to inhibit keyboard entry
to prevent someone from hitting a function/enter key.
Sorry, at the moment I can't think of a way to do this
in straight up CL/DDS without stopping the progress of
the CL job.    

Terry

> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx 
> [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Voltz
> Sent: Monday, August 08, 2005 1:07 PM
> To: Midrange Systems Technical Discussion
> Subject: RE: Display Files in CL
> 
> 
> Terry:
> 
> This works, but....if they DO press Enter on the SecondScreen 
> it throws an error.
> 
> CPF0887 Data available from previous input request.
> 
> ===========================================================
> 
> I just did somthing similar to this a week ago.
> Declare the file:
> 
> DCLF       FILE(MYDSPF) RCDFMT(*ALL)
> 
> Send the first screen as:
> 
> SNDRCVF    RCDFMT(SCRNPARM)
> 
> Send subsequent screens as:
> 
> SNDRCVF    RCDFMT(WORKMSG) WAIT(*NO)
> 
> Terry
> 
> > -----Original Message-----
> > From: midrange-l-bounces@xxxxxxxxxxxx 
> > [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Voltz
> > Sent: Monday, August 08, 2005 11:43 AM
> > To: midrange-l@xxxxxxxxxxxx
> > Subject: Display Files in CL
> > 
> > 
> > I want to display an informational screen in CL that does not 
> > require a response, something like this:
> > 
> > FirstScreen = Get Parameters, press enter to continue
> > SecondScreen =  Display Message: Work Files are being built, 
> > please stand-by
> > ThirdScreen = Display message: Files are ready for downloading
> > 
> > I want the CL program to continue running after displaying 
> > SecondScreen, without the operator having to press enter, 
> > then pause after displaying ThirdScreen.
> 
> -- 
> This is the Midrange Systems Technical Discussion 
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
> 
>