Bedingungsnamen-Bedingungen

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

...

... zurück