48 lines
1.4 KiB
Plaintext
48 lines
1.4 KiB
Plaintext
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 |