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