• Subject: Re: audit report
  • From: boothm@xxxxxxx
  • Date: Tue, 13 Jul 1999 12:24:59 -0400

Ah, the beauty of RPG's cycle!  Kathy, take a look at matching record
logic.  It is simple to implement, uses only a few lines of code, and
presents the records you want in the order you want them. 

(I said simple to implement, I didn't say it would be simple to figure out
for the first time.)



In <b00e285d.24bcba13@aol.com>, on 07/13/99 
   at 11:49 AM, Kmh0421@aol.com said:

>In the CLP, I DSPFFD to an outfile of all of the files. In the RPG, I
>read  this file and load an array with field names and descriptions. I
>read through  address book (customer master), and go out to each audit
>file to see if there  are changes for that day for that customer. The
>report has misc header info,  but the detail is only 4 fields... Type,
>Field Description, Before, After. If  there are records in a file for a
>given day, and it is an add or delete  record, I just print it in the
>before or after column. If change, I check  each field in the change
>before against the change after record, and print  only the 'changed'
>fields. So, far, I have just one file in the RPG, and I am  in the
>process of adding about six more. The code is already over 2000 
>lines..... At the very least, I am going to need to create a program for 
>everyfile, and somehow share the printfile so that each program can write
> detail records to same report. Overall, although this is going to work,
>I can  help but think there must be a better way. Any ideas? Thanks in
>advance,  especially if you even read this far!!! Kathie

-- 
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *


This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].