feat(charka): OCCURS — tablas y referencias con subíndice
1* corpus charka — nivel 6: tablas (OCCURS) y subíndices
2IDENTIFICATION DIVISION.
3PROGRAM-ID. TABLAS.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-TABLA.
7 05 WS-ELEM PIC 9(4) OCCURS 5 TIMES.
801 WS-I PIC 9(2) VALUE 0.
901 WS-TOTAL PIC 9(6) VALUE 0.
10PROCEDURE DIVISION.
11MAIN.
12 PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 5
13 COMPUTE WS-ELEM(WS-I) = WS-I * WS-I
14 END-PERFORM.
15 PERFORM VARYING WS-I FROM 1 BY 1 UNTIL WS-I > 5
16 ADD WS-ELEM(WS-I) TO WS-TOTAL
17 DISPLAY 'ELEM ' WS-I ' = ' WS-ELEM(WS-I)
18 END-PERFORM.
19 DISPLAY 'SUMA DE CUADRADOS = ' WS-TOTAL.
20 STOP RUN.