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