Library List in SQL Stored Procedures

I am trying to write a SQL Stored Procedure but am having no luck getting to 
work. I have written them before and this smells like another complier bug.

Each time that I try to run this stored procedure, I keep getting a message 
saying that everyone of the tables is not found in QGPL if I use QGPL as the 
default collection and my library MP1CAMPIA if I do not specify a default 
collection. All the libraries are on the library list as well as being added to 
Set Path statement but it keeps trying to find them in the default collection. 
What gives? This is driving me crazy. If you don't specify a collection, 
doesn't it use the library list?

Anyway thanks.  

    SET DTA_LIBRARY = 'A1' CONCAT INCOMPANYCODE CONCAT 'DTA' ;   
    SET AMO_LIBRARY = 'A1AMODTA';                                
                                                                 
    SET PATH DTA_LIBRARY, AMO_LIBRARY;                           
                                                                 
    SET STMT = 'CRTDUPOBJ OBJ(QAQQINI) FROMLIB(MP1CAMPIA)        
                  OBJTYPE(*FILE) TOLIB(QTEMP) DATA(*YES) ' ;     
    SET STMTLENGTH = LENGTH ( STMT ) ;                           
    CALL QSYS/QCMDEXC ( STMT , STMTLENGTH ) ;                    
                                                                 
    Update QTEMP/QAQQINI                                         
       SET QQVAL = '*YES' WHERE QQPARM = 'FORCE_JOIN_ORDER' ;    
                                                                 
    SET STMT = 'CHGQRYA QRYOPTLIB(QTEMP)' ;                      
    SET STMTLENGTH = LENGTH ( STMT ) ;                           
    CALL QSYS/QCMDEXC ( STMT , STMTLENGTH ) ;                    
                                                                 
    Sel: Begin                                                   
      Declare c1 Cursor With Return For                          
        Select RFPAYC,
               RFRFNN,                                            
               RFDATE,                                            
               RFAMT,                                             
               CMPCMPY,                                           
               CMPNAME                                            
        From OPMRFPF1                                             
          Inner Join OPMHDRF1                                     
            On RFORDN = HDORDN                                    
          Inner JOIN MFMDIVF1                                     
            On HDODIV = DIVDIV                                    
          Inner JOIN MFMCMPF1                                     
            On DIVCMPY = CMPCMPY                                  
        Where RFRFNN <> 0 And                                     
              RFDATE Between InFromDate and InToDate              
        Order By CMPCMPY;                                         
        Open c1;                                                  
      End Sel;