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




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                                               
  
 

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.