|
Here are the essentials of the code. c if DbTrgLen > DbTrgSiz c exsr BufAryErr c endif c eval DbBfrPtr = c %addr( DbTrgAry( DbBfrOfs + 1) ) c eval DbAftPtr = c %addr( DbTrgAry( DbAftOfs + 1) ) * c DbTrgAct caseq DbActDlt DltRcdAct * c DbTrgAct caseq DbActIns InsRcdAct * c DbTrgAct caseq DbActUpd UpdRcdAct c endcs c feod ordobqtl07 c return **************************************************************** * InsRcdAct - Insert Record Action **************************************************************** c InsRcdAct begsr * c select * c when af2ctltyp = 'I' c exsr $CrtBilling * c endsl * c endsr * **************************************************************** * $CrtBilling - Create the Billing paperwork Record **************************************************************** c $CrtBilling begsr c eval obqordnbr = af2ordnbr c eval obqinvidn = af2ctlidn c eval obqlstprf = s_userprf c eval obqlstpgm = s_program c time obqlstdtm c eval obqpwkseq = GetNxtObqSeq(af2ordnbr) c write ordobqtpf c endsr Evan Harris <spanner@ihug.co. To: rpg400-l@midrange.com nz> cc: Sent by: Subject: RE: RPG ILE Write rpg400-l-admin@mi drange.com 03/18/2002 12:57 PM Please respond to rpg400-l Andrew Can you perhaps post the logic/code here then ? :) Regards Evan Harris >Yes, the same records constantly get skipped. There is relatively minimal >logic in the program. It basically moves info from one data source to >another. _______________________________________________ This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l or email: RPG400-L-request@midrange.com Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.