× 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.



<snip>
I look for number of fields defined from position 27 to 40B
<snip>
I think this is a typo.  The number of substitution field formats begins in 37 
not 27.  Your data structure looks right.

<snip>
then I get the field description offset at position returned in 89 to 92B
<snip>
What do you do with the offset?

Rick

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On 
Behalf Of SRamanujan@xxxxxxxxxxxxxxxxxx
Sent: Friday, January 07, 2005 10:46 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: QMHRTVM


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.

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.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.