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


  1.  Home
  2. RPG400-L
  3. January 2005

RE: QMHRTVM

Have you used debug to look at what is in your data array at the substitution 
variable offset?  Just to make sure there is data at that location and to 
confirm what you think you should see is really there.

The code looks fine.  I don't see anything obviously wrong.  Sorry I can't be 
of more help.

Rick 

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


Thanks Rick.
Sorry about the typo.  Below gets me the message from offset and I substring 
offset +1 to the length of LMSGR to get the message
c                   eval      TextPtr = %addr(Data(OSMsg))        

The below gets me the details of fields in that data structure.
c                   eval      SubTextPtr = %addr(Data(OSSVfmt))   

I assumed the data structure SubMsgInfo will contain all the respective info 
but I can only get the type and not the length of the field.

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: Friday, January 07, 2005 11:11 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: QMHRTVM


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

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

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.