RE: Doing a SET with variables

Using a test file, with lots of data in it, is always a good idea.  If you 
shrink the test data down too much your test may not be valid.  For 
example if I was testing the employee master file and deleted all the 
records except my own, how would you have known that you had a problem 
testing?

Another idea to consider is journalling and rollback:
CRTJRNRCV JRNRCV(ROB/MYJRN00001)
CRTJRN JRN(ROB/MYJRN) JRNRCV(MYJRN00001)
STRJRNPF FILE(ROBDELX/DAVE) JRN(ROB/MYJRN) IMAGES(*BOTH)
....+....1....+....2....+..
MYKEY                 MYAMT
A                      5.20
B                      9.30

update robdelx/dave
set myamt=6.1 
2 rows updated in DAVE in ROBDELX.
Oops!  Forgot the Where clause
....+....1....+....2....+..
MYKEY                 MYAMT
A                      6.10
B                      6.10

RMVJRNCHG JRN(ROB/MYJRN) FILE((ROBDELX/DAVE)) TOJOBO(095563/ROB/ROBS1)
select * from robdelx/dave
....+....1....+....2....+..
MYKEY                 MYAMT
A                      5.20
B                      9.30

Journalling kicks a$$!

RMVJRNCHG is not limited to SQL.  Even the errant traditional RPG program 
can be fixed.


Rob Berendt