RE: Grant on sql index

Hi Allan,<snip>I do that little trick to avoid having to hardcode the library 
into the
script. When you compile the object, the AS/400 comes up with a library
to stick it in. How I do not know so the trick was to create the object
and move to where I wanted it to be. If you put a library into default
collection, it then wants to find the files in the default collection
instead of on the library list. So I let it compile where it wants and
then move.
</snip>I solved the problem of hardcoding the current schema by creating a 
temporary source file.
In member AAA there's one record that defines what the current schema is:
   SET CURRENT SCHEMA MYDESTLIB
In member BBB are the rest of the create statements located.
I have a build CL to concat these two members and execute the RUNSQLSTM.
 
Below is a simplified example. Most times I define extra parameters for the CL 
call
in which I can define what sourcemembers to take.
 
Best regards,
Arco Simonse
 
 
PGM                                                                             
                            /* Check for temp files to delete first */          
  DLTF       FILE(QTEMP/TEMPSRCF)                       MONMSG     
MSGID(CPF2105)                                                                  
                 /* Create temp source file */                         CRTPF    
  FILE(QTEMP/TEMPSRCF) RCDLEN(112) +                      FILETYPE(*SRC) 
MBR(TEMPMBR)                                                                    
/* Copy the source with current schema setting */     CPYSRCF    
FROMFILE(MYSRCLIB/DBSRC) +                             TOFILE(QTEMP/TEMPSRCF) 
FROMMBR(AAA) +                  TOMBR(TEMPMBR) MBROPT(*ADD)                     
                                               
/* Bring in the source with sql build statements */     CPYSRCF    
FROMFILE(MYSRCLIB/DBSRC) +                               TOFILE(QTEMP/TEMPSRCF) 
FROMMBR(BBB) +                    TOMBR(TEMPMBR) MBROPT(*ADD)                   
                                                     /* Execute the temp source 
*/                           RUNSQLSTM  SRCFILE(QTEMP/TEMPSRCF) SRCMBR(TEMPMBR) 
+                 NAMING(*SQL) ERRLVL(20) DFTRDBCOL(*NONE) +              
CLOSQLCSR(*ENDMOD)                                                              
                   /* Cleanup qtemp */                                     DLTF 
      FILE(QTEMP/TEMPSRCF)                                                      
                           ENDPGM