MAIN
 DEFER INTERRUPT
 CALL startlog("errores.log")
 CALL importar()
END MAIN
FUNCTION importar()
 DEFINE ptabla CHAR(50),
        user_script,user_script1,user_script2,selec CHAR(100),
        pfecha DATETIME YEAR TO MINUTE

CONNECT TO "smarmotech"  USER "sa" USING "P@$$w0rd" 
 
DECLARE busca_tabla CURSOR FOR
  SELECT a.tabla FROM dstb00005 a
  ORDER BY a.tabla 
 
  FOREACH busca_tabla INTO ptabla
   SELECT a.name FROM sys.objects a WHERE a.name = ptabla
   IF STATUS = NOTFOUND THEN
      CONTINUE FOREACH
   END IF
   display "borrando "||ptabla CLIPPED
   LET user_script = "DELETE FROM "||ptabla CLIPPED
   PREPARE ejecucion FROM user_script
   EXECUTE ejecucion
   
   CONNECT TO "marmotech" USER "informix" USING "luismi001"           
   DISPLAY "CARGANDO "||ptabla
 declare tmpbusca CURSOR FOR
  SELECT fech_Crea INTO pfecha FROM iptb00001  
  
   LET user_script1 ="C:\\GENERO\\IMPORT\\"||ptabla CLIPPED||".txt'"
 #  LET selec = "SELECT fech_crea FROM "||ptabla CLIPPED
 #   UNLOAD TO user_script1  selec 
         display user_script1   CLIPPED
   FOREACH tmpbusca INTO pfecha   
   SET CONNECTION "smarmotech"
 
 
  # LET user_script1 ="C:\\GENERO\\IMPORT\\"||ptabla CLIPPED||".txt'"
  #LET selec = "INSERT INTO "||ptabla CLIPPED ||  "(FECH_cREA)"
  
  #LOAD FROM user_script1 DELIMITER "|" selec                     
     INSERT INTO iptb00001 (fech_crea) values (pfecha)
     SET CONNECTION "marmotech"
     end foreach
  END FOREACH
END FUNCTION