RMAN backup script to FRA

$rman_script="backup incremental level 0 cumulative device type disk tag '%TAG' database;
backup device type disk tag '%TAG' archivelog all not backed up;
allocate channel for maintenance type disk;
crosscheck backup;
crosscheck archivelog all;
delete force noprompt expired archivelog all;
delete force noprompt obsolete device type disk;
release channel;";
&br_save_agent_env();
&br_prebackup($l_db_connect_string, $l_is_cold_backup, $l_use_rcvcat, $l_db_10_or_higher, $l_backup_strategy, "TRUE");
my $result = &br_backup();
exit($result);