Software development, photography, jokes, ....

Sites by me

 
tas-logoTransportation Administration System
snoezelkussen-logo-kleinstSnoezelkussens voor verstandelijk gehandicapten
ikzoekeenbegeleider-logoBegeleiders voor gehandicapten
Laat uw hond het jaarlijkse vuurwerk overwinnen
logo 50x50Hey Vos! Je eigen naam@vos.net emailadres?
Kunst in huis? Nicole Karrèr maakt echt bijzonder mooie dingen
nettylogo2Kunst in huis? Netty Franssen maakt ook bijzonder mooie dingen
Salarisadministratie en belastingadvies bij De Zaak Loont
Zutphense Bomenstichting

Hosting Favorites

 
ANU Internet Services
XelMedia .internet Services
register.com

Blogroll

 
Bomenstichting
LassoSoft
MacFreak
Quality that computes
The Economy of Motion
Wheel 2.0
IntrAktv



Website Hosting bij Xel Media

Marc's Place

 

FN_E$MSG - Send a program message

Inclusion in RPG source

I /COPY E$LIB/SRC(ILE),DS_E$PGM(B)
. . .
. . .
C /COPY E$LIB/SRC(ILE),FN_E$MSG

Inclusion in DSPF source

 A          R SFLMSG                    SFL
 A                                      SFLMSGRCD(24)
 A            #MKEY                     SFLMSGKEY
 A            ##PGM                     SFLPGMQ
 A          R SFLMSGC                   SFLCTL(SFLMSG)
 A                                      OVERLAY
 A                                      SFLSIZ(0002)
 A                                      SFLPAG(0001)
 A                                      SFLDS
 A                                      SFLDSPCTL
 A                                      SFLINZ
 A  80                                  SFLEND
 A            ##PGM                     SFLPGMQ

Invocation

EXSR E$MSG

Input Parameters

MSGID (a7)
Field to contain a OS/400 message-id or one out of your own message-files. If empty (=*BLANKS), the message-queue is cleared.
 
MSGQUE (a10)
Field to contain a OS/400 message-queue to send the message to. Defaults to *SAME.
 
MSGFIL (a20)
Field to contain a OS/400 message-file from which the message text should be retrieved. Defaults to '*LIBL E$ERRMSG '
 
MSGDT (a132)
Field to contain message data to fill the variables defined in the message.

Output Parameters

*N/A

What it does

The routine sends a message by calling the program E$PGMMSG. After that, you should send the record format SFLMSGC before the next EXFMT statement.

Examples

C                     ...
C                     EXSR SRPOS1
 *
C  N04                WRITEFMT#99F                     Function key info
C   04                WRITEFMT#99O                     Options info
C                     WRITESFLMSGC                     Message queue
C                     EXFMTFMTCTL#1
 *
C                     CLEARMSGID                       Clear message queue
C                     EXSR E$MSG
 *
C                     SELEC
C           ##KEY     WHEQ F4
C                     EXSR SRF04
C                     ...
C                     ...
 *
 * Test field value:
C           #FLD1     CHAINDBFILE2              99  
C           *IN99     IFEQ *ON
C           #FLD1     OREQ *BLANK
C                     MOVEL'ERR0001' MSGID             Error message ID
C                     EXSR E$MSG                       Write to message queue
C                     SETON                     9540
C                     ENDIF
C                     ...
 
Go to download page
© 1997- Marc Vos (and others) Contact Me