× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.






If you install option 13 (System Openness Includes) of OS/400 you will get
the QSYSINC library and QRPGLESRC/QUSEC include.

This however is NOT going to fix all of your problems...  The example is
making a (bad) assumption -- namely that the last data structure in QUSEC
is QUSEC, that it ends at byte 16, and that they can then append Qdata to
it starting at byte 17.  Several releases back a new data structure was
added (QUSC0200) to the QUSEC include and Qdata is now going to be appended
to this structure and not the intended one (if you use this approach).

Is Qdata actually used in the sample program?



                                                                                
                                                    
                      Tom Daly                                                  
                                                    
                      <Tdaly@sddsystems.        To:       "'RPG programming on 
the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>        
                      com>                      cc:                             
                                                    
                      Sent by:                  Subject:  RE: Setting up an 
email message                                           
                      rpg400-l-bounces@m                                        
                                                    
                      idrange.com                                               
                                                    
                                                                                
                                                    
                                                                                
                                                    
                      10/28/2003 09:52                                          
                                                    
                      AM                                                        
                                                    
                      Please respond to                                         
                                                    
                      RPG programming on                                        
                                                    
                      the AS400 /                                               
                                                    
                      iSeries                                                   
                                                    
                                                                                
                                                    
                                                                                
                                                    






 |    My biggest problem
 |  right now is that the example I found uses the following
 |  /copy for the
 |  API data structure error call:
 |
 |   * copy error structure from QSYSINC
 |   /copy qsysinc/qrpglesrc,qusec
 |  d Qdata                  17    216
 |   * set pointer to Error structure
 |  d pErr            s               *   Inz(%addr(QUSEC))
 |
 |  I get an error because it cannot find the /copy, and I
 |  haven't been able
 |  to find the DS description at the API website



You can find QUSEC in QSYSINC/H but you will have to convert it from C to
RPG.

 typedef struct Qus_EC
    {
       int  Bytes_Provided;
       int  Bytes_Available;
       char Exception_Id[7];
       char Reserved;
     /*char Exception_Data[];*/           /* Varying length        */
    } Qus_EC_t;



This could probably be improved upon but I've gotten by with this:

D QUSEC           ds

D  BytesProv                    10i 0 inz(%size(qusec))
D  BytesAvail                   10i 0 inz(0)
D  ErrorID                       7




HTH
Tom Daly

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





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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

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

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.