× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 
 


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.