RE: QYAPSOL api and filter data problem - GUI0141 error code

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Try adding OPTIONS(*VARSIZE) to both the return variable and the filter
structure parameters.
"CONST OPTIONS(*VARSIZE)"

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Leif Guldbrand
Sent: Tuesday, July 06, 2004 10:08 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: QYAPSOL api and filter data problem - GUI0141 error code

Mihael,

Take a look at the example I have on my page:
Think400.dk/apier.htm.

Go to API page two and find the API.
Credits goes to Chris Beck.

As I recall, Chris had some problems with the
definitions '4B 0' instead of '10I 0'. I changed to '10I 0'
but haven't had the time to test it. That said.... there
might be some errors.

Best regards,
Leif

----- Original Message ----- 
From: "Mihael Knezevic" <m.knezevic@xxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: 6. juli 2004 16:51
Subject: QYAPSOL api and filter data problem - GUI0141 error code


> hi,
> 
> i'm trying to use the QYAPSOL api but i always get GUI0141 in the
errorcode - Filter specification is not valid.
> 
> DapiRetrieveDisk  PR                  EXTPGM('QYASPOL')                  D
receiver                  32000A
> D  length                       10I 0 CONST
> D  listInfo                     80A 
> D  recToReturn                  10I 0 CONST     
> D  filters                      10I 0 CONST        
> D  filterInfo                  100A   CONST       
> D  formatName                    8A   CONST  
> D  errorCode                   200A            
> 
> DFilterData       DS                  QUALIFIED      
> D  data                         16A           
> D  overallSize                  10I 0 OVERLAY(data:1)         
> D  filterKey                    10I 0 OVERLAY(data:5)        
> D  dataSize                     10I 0 OVERLAY(data:9)             
> D  filterData                   10I 0 OVERLAY(data:13) 
> 
> <some free code>
> 
> FilterData.filterKey = 1;    
> FilterData.filterData = -1;           
> FilterData.dataSize = 16;     
> FilterData.overallSize = %size(FilterData.data);   
> 
> apiRetrieveDisk(receiver        :
%len(receiver)  :   
> listInfo        :                  
> -1              :             
> 0               :             
> FilterData.data :             
> listFormat      :             
> errorcode      );  
> </some free code>
> 
> why is working with os400 api always so difficult.
> 
> can someone pleeeeaaasssee help me.
> 
> thanx in advance
> 
> mihael knezevic
> 
> -----------------------------------------------------------------
> 
>    /"\
>    \ /
>     X            ASCII Ribbon campaign against HTML E-Mail
>    / \
> 
> -----------------------------------------------------------------
> 
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 
> 


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.