PR-ACT-SOURCE-DETAIL-1 と PR-ACT-SOURCE-DETAIL-2 という 2 つの文字列があるとします。この2つの文字列を比較して、違いが見つかった位置を見つけたいです。
私はこのようにシナリオを処理しようとしました -
PERFORM VARYING N FROM 1 BY 1 UNTIL N > 5000
IF PR-ACT-SOURCE-DETAIL-1 OF TRANSACTION-RECORD-1(N:1)
IS NOT EQUAL TO
PR-ACT-SOURCE-DETAIL-2 OF TRANSACTION-RECORD-2(N:1)
MOVE 'Y' TO WS-DIFF-FOUND
DISPLAY 'DIFFERENCE FOUND AT POSITION' N
END-IF
END-PERFORM
上記のコードの問題は、実行ループが 5000 回発生し、そのような 10,000 個の文字列を比較する必要がある場合、実行時間が長くなりすぎることです。
より短い実行時間を必要とする同じことを行う他の方法はありますか?