« Cobol ANS 74 » : différence entre les versions

Contenu supprimé Contenu ajouté
Ligne 1 134 :
<pre>
01 TAB.
02 FILLER PIC X(9); VALUE "JANVIER".
02 FILLER PIC X(9); VALUE "FEVRIER".
02 FILLER PIC X(9); VALUE "MARS".
02 FILLER PIC X(9); VALUE "AVRIL".
02 FILLER PIC X(9); VALUE "MAI".
02 FILLER PIC X(9); VALUE "JUIN".
02 FILLER PIC X(9); VALUE "JUILLET".
02 FILLER PIC X(9); VALUE "AOUT".
02 FILLER PIC X(9); VALUE "SEPTEMBRE".
02 FILLER PIC X(9); VALUE "OCTOBRE".
02 FILLER PIC X(9); VALUE "NOVEMBRE".
02 FILLER PIC X(9); VALUE "DECEMBRE".
 
01 TAB-MOIS REDEFINES TAB.
02 MOIS PIC X(9); OCCURS 12.
</pre>
:->TAB et TAB-MOIS (9*12bit)
 
== Multidimension ==
<pre>