retreive data area definition

[bvining@xxxxxxxxxxxx]

Denis,

The following works for me on V3R1.  I had previously created the
*DTAARA QTEMP/TEST with a size of 500 bytes which is reflected in
&SIZE.

Bruce

             PGM
             DCL        VAR(&RCVVAR) TYPE(*CHAR) LEN(2048)
             DCL        VAR(&RCVVARSIZ) TYPE(*CHAR) LEN(4) +
                          VALUE(X'00000800')
             DCL        VAR(&DTAARA) TYPE(*CHAR) LEN(20) +
                          VALUE('TEST      QTEMP     ')
             DCL        VAR(&STRPOS) TYPE(*CHAR) LEN(4) +
                          VALUE(X'FFFFFFFF')
             DCL        VAR(&LENGTH) TYPE(*CHAR) LEN(4) +
                          VALUE(X'00000400')
             DCL        VAR(&ERRCODE) TYPE(*CHAR) LEN(4) +
                          VALUE(X'00000000')
             DCL        VAR(&SIZE) TYPE(*DEC) LEN(5 0)
             CALL       PGM(QWCRDTAA) PARM(&RCVVAR &RCVVARSIZ +
                          &DTAARA &STRPOS &LENGTH &ERRCODE)
             CHGVAR     VAR(&SIZE) VALUE(%BIN(&RCVVAR 29 4))
             ENDPGM

>
>I tried it but it does not works. If the starting position + length of
>data parameter is greater than the legth of the data area, i get the
>message CPF1089 in the error parameter and no length.
>
>Denis Robitaille
>Cascades inc.
>Tel: 819-363-5187
>DRobitaille@cascades.com
>
>>>> <bvining@VNET.IBM.COM> 06/30 2:32 pm >>>
>Denis,
>
>When you call the QWCRDTAA API allocate say 2048 bytes for the Receiver
>variable parameter, set Length of receiver variable to 2048, set Starting
>position to -1, and set Length of data to 2000.  After calling the
>API the Length of data returned value in the receiver variable will
>tell you the size of the *dtaara.
>
>Bruce Vining
>
>>
>>Hello all,
>>
>> I need to retreive in a CL program the number of bytes of a caracter
>>data area. There is no command to do it that i know of. I tried the API
>>QWCRDTAA but it can only retreive the content of the data area, not the
>>number of bytes with which it was created. I also tried DSPOBJD with no
>>luck.
>>
>> Any idea?
>>
>>Denis Robitaille
>>
>

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