|
midrange.com
Thanks Rick.
I am using RTVM0300 format. I paste my code below.
d TextPtr s *
d SubTextPtr s *
d WPMsgInfo ds
d Data 1 dim(32767)
d BytesRet 1 4B 0
d BytesAvail 5 8B 0
d MsgSevL 9 12B 0
d AlertIndex 13 16B 0
d AlertOpt 17 25
d LogInd 26 26
d MsgID 27 33
d Reserved1 34 36
d #SVarFmt 37 40B 0
d CCSIDText 41 44B 0
d CCSIDData 45 48B 0
d CCSIRText 49 52B 0
d OSDftRep 53 56B 0
d LDftRepR 57 60B 0
d LDftRepA 61 64B 0
d OSMsg 65 68B 0
d LMsgR 69 72B 0
d LMsgA 73 76B 0
d OSMsgH 77 80B 0
d LMsgHR 81 84B 0
d LMsgHA 85 88B 0
d OSSVFmt 89 92B 0
d LSVFmtR 93 96B 0
d LSVFmtA 97 100B 0
d LSVFmtE 101 104B 0
d WPMsgText ds BASED(TextPtr)
d MsgText 300
d WPError ds
d EBytesP 1 4b 0 INZ(40)
d EBytesA 5 8b 0
d EMsgID 9 15
d EReserved 16 16
d EData 17 56
d SubMsgInfo ds BASED(SubTextPtr)
d SubLength 1 4B 0
d SubSize 5 8B 0
d SubType 9 18
c EXSR $RTVMSG
c dou (BytesRet > BytesAvail)
c eval TextPtr = %addr(Data(OSMsg))
c eval MsgR = LMsgR
c exsr getmsg
c if (LMsgHr > 0)
c eval TextPtr = %addr(Data(OSMsgH))
c eval MsgR = LMsgHR
c exsr getmsg
c endif
c eval SubTextPtr = %addr(Data(OSSVfmt))
Sudha Ramanujan
SunGard Futures Systems
sramanujan@xxxxxxxxxxxxxxxxxx
(312) 577 6179
(312) 577 6101 - Fax
-----Original Message-----
From: Rick.Chevalier@xxxxxxxxxxxxxxx [mailto:Rick.Chevalier@xxxxxxxxxxxxxxx]
Sent: 2005年1月7日 10:13
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: QMHRTVM
Could you expand on this some? What return format are you using? Could you
provide the DS definition containing the number of fields and description
offset?
Rick
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
SRamanujan@xxxxxxxxxxxxxxxxxx
Sent: Friday, January 07, 2005 9:41 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: QMHRTVM
Hi all,
I am trying to use the API to retrieve message from a message file. I
am not able to retrieve the data field information. I look for number
of fields defined from position 27 to 40B then I get the field
description offset at position returned in 89 to 92B use the subfield
structure as follows:
d SubMsgInfo ds BASED(SubTextPtr)
d SubLength 1 4B 0
d SubSize 5 8B 0
d SubType 9 18
Referring above structure, I get the type of field(s) defined but am
still unable to get the length. Is there any way I could get to this?
TIA,
Sudha
Sudha Ramanujan
SunGard Futures Systems
sramanujan@xxxxxxxxxxxxxxxxxx
(312) 577 6179
(312) 577 6101 - Fax
--
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.
Privileged and Confidential. This e-mail, and any attachments there to, is
intended only for use by the addressee(s) named herein and may contain legally
privileged or confidential information. If you have received this e-mail in
error, please notify me immediately by a return e-mail and delete this e-mail.
You are hereby notified that any dissemination, distribution or copying of this
e-mail and/or any attachments thereto, is strictly prohibited.
--
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.
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.
