Re: Sending a message to the user

The only thing that comes to mind from me is...

Use a window to display the message to the user.  First set up the window
to FRCDTA (I believe check on it).  Then in the RPG...

 // build message to display in window.
     msg = whatever;
    write MsgWin;
    QCMDEXC('DLYJOB DLY(10)':15);


The window will get written to the user screen if FRCDTA is specified and
then RPG will wait 10 seconds before continuing with the remainder of the
program.


Michael Schutte



                                                                           
             steema@diskhaven.                                             
             com                                                           
             Sent by:                                                   To 
             rpg400-l-bounces@         rpg400-l@xxxxxxxxxxxx               
             midrange.com                                               cc 
                                                                           
                                                                   Subject 
             07/10/2006 01:51          Re: Sending a message to the user   
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




I could do this in the RPG subfile program also. Just blast a message
after they have made their selections.

is there a way to have it appear there for say 10 seconds and disappear or
would the user have to hit enter?

Use this approach at the end of the CL Program:

===================================================
Call Program (CALL)

Type choices, press Enter.

Program  . . . . .> QEZSNDMG
  Library  . . . .   *LIBL
Parameters . . . .> *INFO

                  > *BREAK

                  > 'Just testing'

                  > X'0000000C'

                  > 'UserName                 '

                  > X'00000002'

                  > X'00000000'

                  > X'00000000'

                  > X'0000000000000000'

                  > N

                  > '                            '

+ for more values > *USR
===================================================

Hope that helps...


Peter Vidal
PALL Corporation / SR Programmer Analyst, IT Development Group
10540 Ridge Rd., Ste 203, New Port Richey, FL 34654-5111
http://www.pall.com

"The first step to getting the things you want out of life is this:

Decide

what you want."
Ben Stein
--
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.

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.