You could create a stored procedure that builds the statement off the fly from QSYS2.SYSCOLUMNS data.

Right now my code only works for the first column of the table and only for CHAR values, but that could "easily" be changed.

-Tom Stieger
IT Manager
California Fine Wire


/CODE BELOW:

CREATE OR REPLACE PROCEDURE TESLIB.DUPRECORDS_WITH_CHANGE (
IN P_TABLE_SCHEMA CHAR(10),
IN P_TABLE_NAME CHAR(10) ,
IN P_COLUMN_NAME CHAR(10) ,
IN P_NEWVALUE CHAR(10))
LANGUAGE SQL
SPECIFIC TESLIB.DUPRECORDS_WITH_CHANGE
NOT DETERMINISTIC
MODIFIES SQL DATA
CALLED ON NULL INPUT
SET OPTION ALWBLK = *ALLREAD ,
ALWCPYDTA = *OPTIMIZE ,
COMMIT = *NONE ,
DECRESULT = (31, 31, 00) ,
DFTRDBCOL = QSYS2 ,
DLYPRP = *NO ,
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
SRTSEQ = *HEX
BEGIN




Return to Archive home page | Return to MIDRANGE.COM home page