KFK2666.pdf

-502- 11-60
8eispiel
Eingabe: 'PATTERN ??? X123.456111'
FIND ('PATT')
FIND ('?')
FI NO (' - . - , )
FIND ('111')
FIND ('X123.456')
liefern' l' 8
FIND ('NIX') liefert '0'8, da die Zeichenkette 'NIX' fehlt.
FIND ('123') liefert '0'8 , da '123' nicht am Anfang eines
Elements steht. Das Element ist hier der Identi­
fier 'X123'.
STA ' PUT';
DCL C(3) CHAR(B) VARYING
INIT ('DISPLAY', 'PLOT', 'MOVIE');
00 I=1 TO 3;
IF FIND(C(I))
END;
THEN GO TO POL;
POL:
PLI;
---
END STA;
Dieses PUT-Statement wird dann als PL/1-Statement interpretiert ,
wenn weder 'DISPLAY' noch 'PLOT' oder 'MODULE' darin vorkommen.