Im Prinzip kannst du den Java-Code doch 1:1 übersetzen.

Die Tabellen kannst du per OCCURS 2-Dimensional und mit VALUE vorbereiten.

Die For-Schleifen ersetzt du analog mit

perform varying I from 2 to 7 by 1
compute ...
end-perform