RE: How to retrieve the length of the data area.

["Jonathan Mason" <jonathan.mason@xxxxxxxxxxxxxxxx>]

Hi Rob

The data area length is held as one of the subfields in the receiver
variable.  I use the following prototype and DS for accessing the
QWCRDTAA api, the field AraLength holds the data area length.

D QwcRdtAA        pr                  ExtPgm('QWCRDTAA')
D  aRcvVar                            Like(DtaAraRcv)   
D  aRcvVarLen                   10i 0 Const             
D  aDtaAra                      20a   Const             
D  aStrPos                      10i 0 Const             
D  aDtaLen                      10i 0 Const             
D  aApiError                          Like(ApiError)    
                                                        
D DtaAraRcv       ds                                    
D  AraBytes                     10i 0                   
D  AraBytesOut                  10i 0                   
D  AraDtaType                   10a                     
D  AraLibrary                   10a                     
D  AraLength                    10i 0                   
D  AraDecimals                  10i 0                   
D  AraValue                   2000a            

All the best

Jonathan         

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of rob@xxxxxxxxx
Sent: 03 October 2005 15:31
To: midrange-l@xxxxxxxxxxxx
Subject: How to retrieve the length of the data area.

I am accessing several data areas, which may not be the same length.  To

do this I am using the Retrieve Data Area (QWCRDTAA) API.  However, it 
blows on parameter 5 - "Length of data".  I tried to just used in 
parameter 2 - "Length of receiver variable" but I get a
CPF1089-Substring 
specified for data area not valid.  How do I determine the length of a 
data area?
DSPDTAARA DTAARA(...)
Length  . . . . . . . . :   396
I want to do this programmatically.

And what space cadet decided to put data area api's under work
management 
instead of Object in Infocenter?

Rob Berendt