RE: Setting up an email message

[Bruce Vining <bvining@xxxxxxxxxx>]

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.