45 lines
1.0 KiB
Plaintext
45 lines
1.0 KiB
Plaintext
IMPORT UTIL
|
|
DEFINE selec STRING,
|
|
nombre_file,basedatos VARCHAR(100),
|
|
fechaFile DATETIME YEAR TO MINUTE,
|
|
chfechafile VARCHAR(50) ,
|
|
datab DYNAMIC ARRAY OF VARCHAR(60),
|
|
i INT
|
|
MAIN
|
|
|
|
CONNECT TO "decomarmol" USER "sa" USING "Lmmjvsd2020"
|
|
|
|
LET selec = "BACKUP DATABASE ?
|
|
TO DISK = ?"
|
|
|
|
PREPARE copia FROM selec
|
|
|
|
|
|
#LET selec = "execute sp_msforeachdb 'print ''[?]'''"
|
|
#PREPARE padb FROM selec
|
|
#DECLARE buscadb CURSOR FOR padb
|
|
|
|
LET datab[1]="decomarmol_old"
|
|
LET datab[2]="rysell"
|
|
LET datab[3]="sistema_prueba"
|
|
LET datab[4]="ndeco"
|
|
LET datab[5]="ndecobk"
|
|
LET datab[6]="nace"
|
|
|
|
|
|
FOR i=1 to datab.getLength()
|
|
|
|
LET fechaFile = CURRENT
|
|
LET chfechafile = util.Datetime.format(fechafile, "%d-%m-%Y%H:%M:%S" )
|
|
|
|
LET nombre_file = '/home/copias/',datab[i] CLIPPED,chfechafile,".bak"
|
|
DISPLAY "en Ejecucion...",nombre_file
|
|
EXECUTE copia USING datab[i],nombre_file
|
|
|
|
|
|
|
|
END FOR
|
|
|
|
|
|
DISPLAY "He terminado..."
|
|
END MAIN |