/* Use of a PL-SQL bloc to perform the update (management of LONGS and LOBS etc.) */
<%{
   String targetColsMappedFromSource = odiRef.getColList("", "T.[COL_NAME]", ",\n\t", "", "((UPD AND (NOT UK) AND (NOT TRG)) AND REW)");
   String targetColsMappedOnTarget = odiRef.getColList(odiRef.getColList(",", " ", "", "", "((UPD AND (NOT UK) AND (NOT TRG)) AND REW)"), "T.[COL_NAME]", ",\n\t", "", "((UPD AND (NOT UK) AND TRG) AND REW)");
   if (targetColsMappedFromSource.trim().length() == 0 &&
       targetColsMappedOnTarget.trim().length() == 0)
       throw new OdiKMException( "More target column mappings needed: at least one target column, which is not part of the update key, must have a mapping expression assigned." );
}%>declare cursor myCursor is
select      	<%=odiRef.getColList("", "[COL_NAME]", ",\n\t", "", "((UPD AND (NOT TRG)) AND REW)")%>
	<%=odiRef.getColList(",", "[EXPRESSION] [COL_NAME]", ",\n\t", "", "((UPD AND TRG) AND REW)")%>
from    	<%=odiRef.getTable("L", "INT_NAME", "W")%>
where    	IND_UPDATE = 'U'
;
begin
	/* Loop over the Cursor and execute the update statement */
	for aRecord in myCursor loop
		update	<%=odiRef.getTable("L", "TARG_NAME", "A")%>
		set	<%=odiRef.getColList("", "[COL_NAME]\t= aRecord.[COL_NAME]", ",\n\t\t\t", "", "((UPD AND (NOT UK) AND (NOT TRG)) AND REW)")%>
			<%=odiRef.getColList(odiRef.getColList(",", " ", "", "", "((UPD AND (NOT UK) AND (NOT TRG)) AND REW)"), "[COL_NAME]\t= aRecord.[COL_NAME]", ",\n\t\t\t", "", "((UPD AND (NOT UK) AND TRG) AND REW)")%>
		where    	<%=odiRef.getColList("", "\t[COL_NAME]\t= aRecord.[COL_NAME]", "\n\t\tand\t", "", "(UK)")%>
		;
	end loop;
end;

/* Use of a PL-SQL bloc to perform the update (management of LONGS and LOBS etc.) */
declare cursor myCursor is
select      	GOVTBUSEMAIL,
	ALTGOVTBUSEMAIL,
	PASTPERFBUSEMAIL,
	ALTPASTPERFBUSEMAIL,
	ELECBUSEMAIL,
	ALTELECBUSEMAIL
from    	GRT.I$_TBSAMDATA
where    	IND_UPDATE = 'U'
;
begin
	/* Loop over the Cursor and execute the update statement */
	for aRecord in myCursor loop
		update	GRT.TBSAMDATA
		set	GOVTBUSEMAIL	= aRecord.GOVTBUSEMAIL,
			ALTGOVTBUSEMAIL	= aRecord.ALTGOVTBUSEMAIL,
			PASTPERFBUSEMAIL	= aRecord.PASTPERFBUSEMAIL,
			ALTPASTPERFBUSEMAIL	= aRecord.ALTPASTPERFBUSEMAIL,
			ELECBUSEMAIL	= aRecord.ELECBUSEMAIL,
			ALTELECBUSEMAIL	= aRecord.ALTELECBUSEMAIL
		where    		CAGE	= aRecord.CAGE
		;
	end loop;
end;

/* Use of a PL-SQL bloc to perform the update (management of LONGS and LOBS etc.) */
declare cursor myCursor is
select      	GOVTBUSEMAIL,
	ALTGOVTBUSEMAIL,
	PASTPERFBUSEMAIL,
	ALTPASTPERFBUSEMAIL,
	ELECBUSEMAIL,
	ALTELECBUSEMAIL
from    	GRT.I$_TBSAMDATA
where    	IND_UPDATE = 'U'
;
begin
	/* Loop over the Cursor and execute the update statement */
	for aRecord in myCursor loop
		update	GRT.TBSAMDATA
		set	GOVTBUSEMAIL	= NVL(aRecord.GOVTBUSEMAIL, GOVTBUSEMAIL),
			ALTGOVTBUSEMAIL	= NVL(aRecord.ALTGOVTBUSEMAIL, ALTGOVTBUSEMAIL),
			PASTPERFBUSEMAIL	= NVL(aRecord.PASTPERFBUSEMAIL, PASTPERFBUSEMAIL),
			ALTPASTPERFBUSEMAIL	= NVL(aRecord.ALTPASTPERFBUSEMAIL, ALTPASTPERFBUSEMAIL),
			ELECBUSEMAIL	= NVL(aRecord.ELECBUSEMAIL, ELECBUSEMAIL),
			ALTELECBUSEMAIL	= NVL(aRecord.ALTELECBUSEMAIL, ALTELECBUSEMAIL)
		where    		CAGE	= aRecord.CAGE
		;
	end loop;
end;