COBOL2002 ユーザーズガイド
繰り返し処理中で結果が常に同じになるような式や代入を繰り返し処理の前に移動することによって,繰り返し内の実行命令数を削減します。
: : : PERFORM VARYING I FROM 1 BY 1 UNTIL I = 100 MULTIPLY A BY B GIVING C(I) MOVE 10 TO D END-PERFORM.
: MULTIPLY A BY B GIVING temp. MOVE 10 TO D. PERFORM VARYING I FROM 1 BY 1 UNTIL I = 100 MOVE temp TO C(I) END-PERFORM. :
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.