Johnny Luo wrote:
On 8/27/06, Steve Comstock <[EMAIL PROTECTED]> wrote:So your equivalent COBOL logic is something like this? perform until end-filea or end-fileb perform until end-fileb or filea-act > fileb-act if filea-act = fileb-act move filea-amt to fileb-amt rewrite fileb-rec end-if read fileb at end set end-fileb end-perform read filea at end set end-filea end-perform close filea fileb Kind regards, -Steve ComstockSteve, yes. Exactly the same.
Well, not to be too fussy, is it _exactly_ that? I just don't see how you can get 3 million I/O's from that logic if your file sizes are those you mentioned. I thought maybe you were somehow re-setting your current record pointer back to the beginning of the file. What do your FD's look like? Kind regards, -Steve Comstock
Actully the PL/i program logic is simple and since it's our customer's production program, i think maybe something wrong with our ADCD system? Now i'm writing a test PL/I program and to see if any difference.
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
