Question on DSM API's..

This is my first attempt at using the Dynamic Screen Manager API's.  I have
gotten some of the functionality working, but am having problems retrieving
the values of the fields on the screen.  I am attempting to use the
QsnRtvFldInf API.  The data retrieved is correct, row, column, length etc..
except for the pointer to the actual data. 

I can use the QsnRtvFldDta API to retrieve the pointer for all data in the
input buffer, and it contains the data from all the fields, so I know the
data is in the input buffer.


Listed below is some of the sample code.


Any help would be greatly appreciated.  

Thanks
 
D bfield          S             16A   BASED(dptr)  

                                      
Dfldqry           ds                  
D totl                           9b 0 
D avail                          9b 0 
D typ                            1    
D frow                           9b 0 
D fcol                           9b 0 
D flen                           9b 0 
D res                           11    
D ptr                             *   

                                                             
D rtfldinf        pr             9b 0 extproc('QsnRtvFldInf') 
D  inpbuf                       9b 0                         
D  fldid                         9b 0                         
D  data                        128                            
D  datalen                     9b 0                         
D  env                           9b 0 options(*nopass) const  
D  error                         8    options(*nopass) const  
                                                              
 C                   eval      num  = readmod (chr02 : chr02 : fcount:         
 C                               ibuffer: cbuffer : 0 : err)
     
 C                   eval      wf1 = rdrtvaid (ibuffer : aid : err )           
 C                   if        aid = f3                                        
 c                   leave                                                     
 c                   else                                                      
 c                   dow       cnt <  num                                      
 c                   eval      cnt = +1                                        
 c                   if        num  <> 0                                       
 c                   eval      wrtn = rtfldinf (ibuffer : cnt : dat : txtln2   
 c                             : 0 : err )                                     
 c                   eval      fldqry = dat                                    
                                                                               
                                      
Kevin M. Kirbey
+---
| 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
+---