PERFORM VARYING ix1 FROM 1 BY 1
UNTIL ix2 IS GREATER THAN 18
SET ix2 TO ix1
MOVE t1-a(ix1) TO t2-a(ix2 1)
MOVE t1-b(ix1) TO t2-b(ix2 1)
MOVE ZEROS TO t2-a(ix2 2)
This is working now. But the problem is it is taking so much CPU time to execute this PERFORM statement and i have use this statement many times in my program.
Is there a better way of doing the above with less stress on CPU time?
Joined: 14 Jan 2008 Posts: 2504 Location: Atlanta, Georgia, USA
What was that really old method used in OS/VS COBOL for table-initialization of very large tables, where a higher group level was moved to a subordinate elementary level, which contained all the elements that required initialization and an internal propagation occurred?
I remember the compiler indicated that an MVCL would be generated (or maybe spelled out "Move Character Long").