I've got an SQLRPGLE program used to determine, among other things, whether data in one file member does or does not exist - if data exists in the current version but not in the previous a record is written to a transaction file. Thing is, I'm getting multiple records being written even though the data (by type & account) is unique.
create alias c_Hsp0060 for Hsp0060(Current);
create alias p_Hsp0060 for Hsp0060(Previous);
declare Deletes_0060 cursor for
from p_Hsp0060 a exception join c_Hsp0060 b
on a.rtyp60 = b.rtyp60 and
a.acct60 = b.acct60;
Dou sqlcod = 100;
fetch Deletes_0060 into :p_hsp0060r;
If sqlcod = 100;
Acd60 = 'D';
Well, I'm having no luck with this text editor (the link 'How to use this text editor' produces 'page not found') and I can't see any of the buttons referenced in the faq. I hope someone can make out the above.