Re: QWCRDTAA API

["Eric DeLong"<eric.delong@xxxxxxxxxxxxxxxxx>]

     Denis,
     If I had to guess, I'd say that you need to include ERRC0100 for 
     this API. Not all APIs consider this as optional.....
     
     eric.delong@pmsi-services.com


______________________________ Reply Separator _________________________________
Subject: QWCRDTAA API 
Author:  <MIDRANGE-L@midrange.com > at INET_WACO
Date:    12/22/98 2:45 PM


Hello all,

I needed to extract the defined length of a data area inside a program. To do 
that, I used the retrieve data area(QWCRDTAA) API. I wrote a CLLE to call the 
API and to retrieve the value from the return buffer. Everyting is OK. This was 
developped on a V4R2 machine. 

I moved the code on a V3R2 machine and now i get the error CPF3CF1 "Error code 
parameter not valid. ". I checked the manual and the API has not changed. I 
recompile everyting but no change. The message speaks of the error code 
parameter, i tried different length (from 1 to 200 bytes), but still no chance.

Here is some extract of the code i used:

..
DCL        VAR(&QUAL)       TYPE(*CHAR) LEN(20)      
DCL        VAR(&REC)        TYPE(*CHAR) LEN(2000)    
DCL        VAR(&LREC)       TYPE(*CHAR) LEN(4)       
DCL        VAR(&STR)        TYPE(*CHAR) LEN(4)       
DCL        VAR(&LEN)        TYPE(*CHAR) LEN(4)       
DCL        VAR(&ERR)        TYPE(*CHAR) LEN(1)       
..                                                     
  CHGVAR     VAR(%BIN(&LREC)) VALUE(2000)                       
  CHGVAR     VAR(%BIN(&STR)) VALUE(-1)                          
  CHGVAR     VAR(%BIN(&LEN)) VALUE(1)                           
  CALL       PGM(QWCRDTAA) PARM(&REC &LREC &QUAL &STR +         
               &LEN &ERR)                                       
..

Does anybody have any idea why this does no work in V3R2?













Denis Robitaille
Cascades inc.
Tel: 819-363-5187
DRobitaille@cascades.com

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