KFK2666.pdf

-572-
Beispiel
11-130
DCL TEXT CHAR(OQRIGHT MARGIN-OQLEFT MARGIN+1);
- -
DCL RECORD CHAR(QQLRECL) VARYING;
READ:
RECORD = QQTHIS RECORD('1'B);
TEXT = SUBSTR(RECORD,QQLEFT MARGIN,
QQRIGHT MARGIN-QQLEFT MARGIN+1);
- -
Ix VERARBEITE TEXT xl
Erläuterung
IF INDEX (TEXT, 'END')=O THEN GOTO READ;
In diesem Beispiel wird satzweise gelesen. Jeder Satz wird
in die Variable RECORD gelesen, die mit der aktuellen Satz­
länge QQLRECL deklariert wurde. Aus dem Satz wird die inter­
8ssierende Information von QQLEFT MARGIN bis QQRIGHT MARGIN
nach TEXT gespeichert. Enthält TEXT das Wort 'END', wird aufgeh_ört,
sonst wird der nächste Satz gelesen.