xxxxxxxxxx
WORKING-STORAGE SECTION.
01 TABLEAU-mois.
05 MOIS OCCURS 12 TIMES.
10 LIBELLE-MOIS PIC X(12).
*--------------------------------
*--------------------------------
PROCEDURE DIVISION.
*--------------------------------
MOVE 'JANVIER' TO LIBELLE-MOIS(1).
MOVE 'FEVRIER' TO LIBELLE-MOIS(2).
display " LE MOIS :" TABLEAU-mois.
STOP RUN.
xxxxxxxxxx
01 WS-TABLE.
05 WS-A OCCURS 10 TIMES.
10 WS-B PIC A(10).
10 WS-C OCCURS 5 TIMES.
15 WS-D PIC X(6).
xxxxxxxxxx
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-TABLE.
05 WS-A PIC A(10) VALUE 'TUTORIALS' OCCURS 5 TIMES.
PROCEDURE DIVISION.
DISPLAY "ONE-D TABLE : "WS-TABLE.
STOP RUN.
xxxxxxxxxx
WS-TABLE : 12ABCDEF34GHIJKL56MNOPQR
WS-A(1) : 12ABCDEF
WS-C(1,1) : ABC
WS-C(1,2) : DEF
WS-A(2) : 34GHIJKL
WS-C(2,1) : GHI
WS-C(2,2) : JKL
WS-A(3) : 56MNOPQR
WS-C(3,1) : MNO
WS-C(3,2) : PQR
xxxxxxxxxx
"Browse Python Technical Problem Clusters - Code Examples & Solutions" https://www.grepper.com/answers/tag/python