What is the definition of WS-LOSS-PAID-REINS, WS-LOSS-EXP-REINS? What does generated code look like?
The SET implies ACCUM-R is an index, which is optimal. I once solved a problem like this by defining a pre-initialized parallel structure to one being cleared and using a group level move. I also got a contracting job and later a position at a software company by dropping the run/cpu time of a job by about 90% through judicious choice of data types. Program was processing each character of each record one at a time. Ran into similar problem on Honeywell Level 6 Cobol. The "final" solution to these kinds of problems is to write Assembler subroutines. IBM Mainframe Discussion List <[email protected]> wrote on 06/01/2006 02:34:40 PM: > That was done. The person working on this conversion agrees with us that > the section of Cobol code using the most cpu is: > > 17490 PERFORM 0222-MULTIPLE-LOSS-WRITES. > 17494 PERFORM VARYING ACCUM-R FROM 1 BY 1 UNTIL > 17495 ACCUM-R GREATER THAN 9999 > 17496 MOVE ZERO TO WS-LOSS-PAID-REINS (ACCUM-R) > 17497 WS-LOSS-EXP-REINS (ACCUM-R) > 17498 END-PERFORM > 17499 SET ACCUM-R TO 1. > > We don't see why the DATA option would cause this block to use that much > cpu, ----------------------------------------- The information contained in this communication (including any attachments hereto) is confidential and is intended solely for the personal and confidential use of the individual or entity to whom it is addressed. The information may also constitute a legally privileged confidential communication. If the reader of this message is not the intended recipient or an agent responsible for delivering it to the intended recipient, you are hereby notified that you have received this communication in error and that any review, dissemination, copying, or unauthorized use of this information, or the taking of any action in reliance on the contents of this information is strictly prohibited. If you have received this communication in error, please notify us immediately by e-mail, and delete the original message. Thank you ---------------------------------------------------------------------- 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
