• Subject: retreive data area definition
  • From: bvining@xxxxxxxxxxxx
  • Date: Wed, 1 Jul 98 08:49:43 CDT


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


             DCL        VAR(&RCVVAR) TYPE(*CHAR) LEN(2048)
             DCL        VAR(&RCVVARSIZ) TYPE(*CHAR) LEN(4) +
             DCL        VAR(&DTAARA) TYPE(*CHAR) LEN(20) +
                          VALUE('TEST      QTEMP     ')
             DCL        VAR(&STRPOS) TYPE(*CHAR) LEN(4) +
             DCL        VAR(&LENGTH) TYPE(*CHAR) LEN(4) +
             DCL        VAR(&ERRCODE) TYPE(*CHAR) LEN(4) +
             DCL        VAR(&SIZE) TYPE(*DEC) LEN(5 0)
                          &DTAARA &STRPOS &LENGTH &ERRCODE)
             CHGVAR     VAR(&SIZE) VALUE(%BIN(&RCVVAR 29 4))

>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
>>>> <bvining@VNET.IBM.COM> 06/30 2:32 pm >>>
>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
>> 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

This thread ...

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].