|
midrange.com
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
+---
As an Amazon Associate we earn from qualifying purchases.
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.
