RE: Message Subfiles

Thanks Marco.  I'll give it a go.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Marco Facchinetti
Sent: 16 November 2004 12:29
To: RPG programming on the AS400 / iSeries
Subject: Re: Message Subfiles


This is something that I copy from a looong time:

A          R SFLMSG                    SFL                 
A*%%TS  SD  20000602  095106  METAILE   REL-V4R4M0 
5769-PW1
A                                      TEXT('MSG PGM')
A                                      SFLMSGRCD(24)
A            MSGKEYW                   SFLMSGKEY
A            PROGRAM                   SFLPGMQ(10)
A          R SFLMSGC                   SFLCTL(SFLMSG)
A                                      OVERLAY
A                                      SFLDSP
A                                      SFLDSPCTL
A                                      SFLINZ
A N33               
AON33                                  SFLEND
A                                      SFLSIZ(0010)
A                                      SFLPAG(0001)
A            PROGRAM                   SFLPGMQ

and this is the cl part:

(PGM MSNDMSG)

PGM        PARM(&MSG &MSGF)              
DCL        VAR(&MSG) TYPE(*CHAR) LEN(7) /* Msgkey */
DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10) /* Msg file */
SNDPGMMSG  MSGID(&MSG) MSGF(&MSGF)       
MONMSG     MSGID(CPF0000)                
endpgm                                 

(PGM MRMVMSG)

PGM                                          
RMVMSG     PGMQ(*PRV) MSGQ(*PGMQ) CLEAR(*ALL)
MONMSG     MSGID(CPF0000)                    
ENDPGM                                       

and the rpg calling part:

dMrmvmsg          PR
dMsndmsg          PR                       
d                                7    const
d                               10         
d filemsg         s             10    inz('MSGFNAME')
dutility         sds     
d program           *proc
....

a typical use:

c                   write     sflmsgc
c                   exfmt     ad0000d
c                   callp     mrmvmsg
...
c                   callp     msndmsg('ATT0002':FILEMSG)

Don't like procedures? use CALL and PARM.

HTH
Marco
--- "Beeson, Terry" <Terry.Beeson@xxxxxxxxxxxxxxxxx> wrote:

> Hi All
> 
> What is the best (and easiest?) method to display
> multiple messages at the bottom of a screen?
> 
> If anyone has got some sample code they are willing to
> share - I would be most grateful.
> 
> Thanks and regards,,
> Terry
> 



                
__________________________________ 
Do you Yahoo!? 
The all-new My Yahoo! - Get yours free! 
http://my.yahoo.com 
 

--
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.