Re: Sending a message to the user

[Michael_Schutte@xxxxxxxxxxxx]

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.