run {
allocate channel d1 type disk maxpiecesize 5000M;
 backup as compressed backupset format '[DESTINO]/full_%d_%s_%p_%t.bkp' tag 'BackupDatabaseFullDiario' database;
 sql 'alter system archive log current';
 backup as compressed backupset format '[DESTINO]/arch_%d_%s_%p_%t.bkp' tag 'BackupArchivelogDiario' archivelog all delete input;
 backup as compressed backupset format '[DESTINO]/ctrl_%d_%s_%p_%t.bkp' tag 'BackupCurrentControlfile' current controlfile;
 backup as compressed backupset format '[DESTINO]/spfile_%d_%s_%p_%t.bkp' tag 'BackupCurrentControlfile' spfile;
release channel d1;
}