val {
    system($SQLLDR);

outprint("\n");

    if ($@) {
       outprint("sqlldr: $@\n\n");
	exit 1;
} elsif (-f "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${BAD_FILENAME}") {
        outprint("Some records are BAD and cannot be loaded:\n");
	cat ("$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${BAD_FILENAME}");
        outprint("\n");
	exit 2;
} elsif (-f "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DISCARD_FILENAME}") {
       outprint("Some records were discarded!:\n");
	cat ("$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DISCARD_FILENAME}");
       outprint("\n");
	exit 2;
} else {
        outprint("INFO: sqlldr/archive processing completed\n");
};

Archive the datafile.  Missing file causing program to abort
if (-f "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DATA_FILENAME}") {
	if (move("$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DATA_FILENAME}", "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}archive${LPD}${NEW_PREFIX}_${DATA_FILENAME}")) {
                outprint( "[$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DATA_FILENAME}] was archived to [$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}archive${LPD}${NEW_PREFIX}_${DATA_FILENAME}]\n");
	} else {
                dieprint("during archival of [$ENV{XXX_TOP}${TARGET_XXX_FOLDER}${LPD}${DATA_FILENAME}]: $!\n");
	}
} else {
        dieprint("[$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DATA_FILENAME}] file not found!\n");
}
#Archive the LOG file, if it exists
if (-f "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${LOG_FILENAME}") {
	if (move("$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${LOG_FILENAME}", "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}archive${LPD}${NEW_PREFIX}_${LOG_FILENAME}")) {
                outprint("[$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${LOG_FILENAME}] was archived to [$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}archive${LPD}${NEW_PREFIX}_${LOG_FILENAME}]\n");
	} else {
                dieprint("during archival of [$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${LOG_FILENAME}]: $!\n");
	}
} else {
        outprint("[$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${LOG_FILENAME}] file not found!  Nothing to archive!\n");
}   
#Archive the BAD file, if it exists
if (-f "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${BAD_FILENAME}") {
	if (move("$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${BAD_FILENAME}", "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}archive${LPD}${NEW_PREFIX}_${BAD_FILENAME}")) {
                outprint("[$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${BAD_FILENAME}] was archived to [$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}archive${LPD}${NEW_PREFIX}_${BAD_FILENAME}]\n");
	} else {
                dieprint("during archival of [$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${BAD_FILENAME}]: $!\n");
	}
} else {
        outprint("[$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${BAD_FILENAME}] file not found!  Nothing to archive!\n");
}     

#Archive the DISCARD file, if it exists
if (-f "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DISCARD_FILENAME}") {
	if (move("$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DISCARD_FILENAME}", "$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}archive${LPD}${NEW_PREFIX}_${DISCARD_FILENAME}")) {
                outprint("[$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DISCARD_FILENAME}] was archived to [$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}archive${LPD}${NEW_PREFIX}_${DISCARD_FILENAME}]\n");
	} else {
                dieprint("during archival of [$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DISCARD_FILENAME}]: $!\n");
	}
} else {
        outprint("[$ENV{XXX_TOP}${LPD}${TARGET_XXX_FOLDER}${LPD}${DISCARD_FILENAME}] file not found!  Nothing to archive!\n");
};
outprint("INFO: sqlldr/archive processing completed\n");