PROGRAM-ID Programmname. |
||||
AUTHOR Name. |
||||
DATE-WRITTEN 98-03-05. |
||||
ORGANIZATION IS INDEXED (SEQUENTIAL; LINE SEQUENTIAL; RELATIV) | ||||
RECORD KEY IS Schl |
||||
FD Interner-Name. |
||||
01 SatzName |
||||
05 Feld1 PIC 9(5). |
||||
77 a PIC 9. |
||||
: |
||||
: |
||||
05 DIM 1 OCCURS 10. |
||||
10 DIM 2 OCCURS 15. |
||||
15 Struktur |
||||
: |
||||
: |
||||
77 info PIC x(5) VALUE "Hallo". |
||||
|
||||
: |
||||
: |
||||
UPro2. |
||||
STOP RUN. |