RE: Embedded SQL, first steps

Then why program for this situation?  Simply perform the following before 
opening the file in the program.  If it fails, you've got issues.
ADDPFCST FILE(MYFILE) TYPE(*UNQCST) KEY(KEY1 KEY2)

If you want to know where, you could try.
select * from qtemp/andrew
....+....1....+....2....+....3..
MYKEY1  MYKEY2  MYDATA1  MYDATA2
  A       A        A        A 
  A       A        B        B 
  B       B        C        C 
********  End of data  ******** 
with t1 as (select mykey1, mykey2 
            from qtemp/andrew 
            group by mykey1, mykey2 
            having count(*)>1) 
select rrn(a),a.* from qtemp/andrew a
where (a.mykey1, a.mykey2) in( 
            select mykey1, mykey2 
            from t1) 
1....+....2....+....3....+....4....+....5....
 RRN ( A )   MYKEY1  MYKEY2  MYDATA1  MYDATA2
         1     A       A        A        A 
         2     A       A        B        B 
 End of data  ******** 


Rob Berendt