Here's some snippets of the stuff I use to maintain my QDSIGNON message file
in the hope you find them helpful.  I knows the message ID and file,
retrieves the currnet value and replaces it.
__________________________________________
H Debug Option(*srcstmt : *nodebugio)  
H BndDir('QC2LE')
                                                                     
 * prototyped call to execute a system command                       
D System          PR            10i 0 ExtProc('system')              
D   Cmd                           *   Value Options(*string)         
                                                                     
 * prototyped call to retrieve a message description                 
D GetMsgD         PR                  ExtPgm('QMHRTVM')              
D  MsgInfo                   32767a   Options(*VarSize)              
D  MsgInfoLng                   10i 0 Const                          
D  MsgFmt                        8a   Const                          
D  MsgID                         7a   Const                          
D  MsgFile                      20a   Const                          
D  RplDta                    32767a   Const Options(*VarSize)        
D  RplDtaLng                    10i 0 Const                          
D  RplValues                    10a   Const                          
D  RtnFmtChr                    10a   Const                          
D  ErrCode                     272    Options(*VarSize)              
                                                      
D RTVM0100        DS                                  
D  BytesRtn                     10u 0 Inz(0)          
D  BytesAvl                     10u 0 Inz(0)          
D  MsgLngRtn                    10u 0 Inz(0)          
D  MsgLngAvl                    10u 0 Inz(0)          
D  HlpLngRtn                    10u 0 Inz(0)          
D  HlpLngAvl                    10u 0 Inz(0)          
D  Msg                         132    Inz(*Blanks)    
D  Hlp                        3000    Varying         
                                                      
D APIerror        DS                                  
D  BytesProvided                10u 0 Inz(272)        
D  BytesAvail                   10u 0 Inz(0)          
D  ErrMsgID                      7    Inz(*blanks)    
D  Rsvd3                         1    Inz(*blanks)    
D  MsgDta                      256    Inz(*blanks)    
                                               
D MsgInfo         S          32767    Varying  
D MsgInfoLng      S             10i 0          
D MsgFmt          S              8a            
D MsgID           S              7a            
D MsgFile         S             20a            
D RplDta          S          32767    Varying  
D RplDtaLng       S             10i 0          
D RplValues       S             10a            
D RtnFmtChr       S             10a            
C                   Eval      MsgFile = 'QDSIGNON  *LIBL     '            
.............

C                   CallP     GetMsgD(RTVM0100:                           
C                                    %len(RTVM0100) :                     
C                                    'RTVM0100':                          
C                                    'MSG0001':                           
C                                    MsgFile :                            
C                                    RplDta :                             
C                                    %len(RplDta) :                       
C                                    '*NO' :                              
C                                    '*NO' :                              
C                                    APIerror)          
.............
C                   Eval      ErrorFlag = system('CHGMSGD +            
C                                          MSGID(MSG0001) +            
C                                          MSGF(*LIBL/QDSIGNON) +      
C                                          MSG(''' + wrk0001 + ''')')   
.............                  
__________________________________________

Tom Westdorp
AS/400 Senior Programmer/Analyst 
  
IBM Certified Specialist - RPG IV Programmer
IBM Certified Specialist - RPG IV Developer 
Certified Master RPG IV Programmer 
Voice: (702) 221-6859
Fax:    (702) 221-6881
tom.westdorp@stationcasinos.com <mailto:tom.westdorp@stationcasinos.com>  

==> The trouble with hitting the jackpot on a slot machine is that it takes
so long to put the money back.


-----Original Message-----
From: Ron@cpumms.com [mailto:Ron@cpumms.com]
Sent: Wednesday, April 04, 2001 7:58 AM
To: MIDRANGE-L@midrange.com
Subject: Re: How to you access a *MSGF with a program ?



Chuck,

the QMHRTVM API can be used to read a message file. One of the parameters
(retrieve option) allows you to specify that you want to read a particular
message, the first message in the file, or the next message in the file.

Ron Hawkins

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

This thread ...


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

This mailing list archive is Copyright 1997-2019 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].