Chain Key Wildcard

[B.Hauser]

Da gibt es mehrere Möglichkeiten:
1. Du legst eine neue logische Datei an mit den Keys 1,2,4 und evtl. 3 und verwendest diese.
2. Du setzt mit den Keys 1,2 auf (SETLL) und liest (READE) in einer Schleife solange bis Schlüssel 4 dem fixen Wert entspricht.
3. Du verwendest embedded SQL:

Exec SQL  Select * into :DSRecord
            From File
            Where Key1 = 'X' and Key2 = 'Y' and Key4 = 'Z'
            Fetch First Row Only;

Birgitta