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 37 to 40B then I get the field
description offset at position returned in 89 to 92B use the subfield
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

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