Hiermit können Bedingungsnamen, die auf der Stufennummer 88 definiert wurden, abgefragt werden. Nehmen wir wiederum das Beispiel aus der IF-Anweisung. Für die meisten Spezies wird es in unserem Cobol-Programm aus dem 24. Jahrhundert Schalter geben, die in der WORKING-STORAGE SECTION in etwa wie folgt definiert werden:
|
01 Spezies. 05 Name PIC X(40). 05 Geschl-KZ PIC X. 88 Mann VALUE "M". 88 Frau VALUE "F". 88 Zwitter VALUE "Z". 88 Ohne VALUE "O". : : 01 Spezies-Eintrag. 05 L-Art PIC X(30). 05 L-Name PIC X(40). 05 L-Geschl PIC X(12). |
Nachdem alle ankommenden Gäste erfasst werden, werden ihre Namen und die Spezies in einer Protokolldatei in Klarschrift mit ihrem Geschlecht dargestellt. Für den Fall, daß kein Geschlecht zu den internen Schaltern passt, soll das Unterprogramm 'Geschl-Fehl' aufgerufen werden. Die Abfrage der Bedingungsnamen für das Geschlecht sähe mittels einer geschachtelten IF-Anweisung dann in etwa so aus:
|
IF Mann MOVE "maennlich" TO L-Geschl ELSE IF Frau MOVE "weiblich" TO L-Geschl ELSE IF Zwitter MOVE "beides" TO L-Geschl ELSE IF Ohne MOVE "kein Geschl." TO L-Geschl ELSE PERFORM Geschl-Fehl END IF END IF END IF END IF |
