RE: RE: how to place a message on the bottom of the screen

["Segars, Steven" <Steven_Segars@xxxxxxx>]

simple program to do it.

             PGM        PARM(&USR)                                    
                                                                      
             DCL        VAR(&USR) TYPE(*CHAR) LEN(10)                 
                                                                      
             CHGUSRPRF  USRPRF(&USR) PASSWORD(ABCDE)                  
             MONMSG     MSGID(CPF2204) EXEC(DO)                       
             SNDPGMMSG  MSG('USER PROFILE' *BCAT &USR *BCAT 'WAS NOT +
                          CHANGED.') MSGTYPE(*INFO)                   
             ENDDO                                                    
                                                                      
             ENDPGM                                                   

Steven Segars
AS/400 Certified Specialist/Administrator
CSX Technology
Work: 904-633-5650
Fax:   904 633-1051


> -----Original Message-----
> From: Segars, Steven 
> Sent: Monday, July 14, 2003 1:33 PM
> To:   'midrange-l@xxxxxxxxxxxx'
> Subject:      RE: how to place a message on the bottom of the screen
> 
> <<I'd like to send notification to the person running the command if the
> User ID that was passed in is not a valid user ID.>>
> Dave, use this, It works for me a lot.
> SNDPGMMSG MSG('USER PROFILE JOEXXXX WAS NOT CREATED.') MSGTYPE(*INFO)
> OR
> SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('User profile was NOT
> Created') +
> TOPGMQ(*EXT) MSGTYPE(*STATUS)             
> HTH
> 
> 
> Steven Segars
> AS/400 Certified Specialist/Administrator
> CSX Technology
> Work: 904-633-5650
> Fax:   904 633-1051
> 
>