01 Cobkenn PIC 9 VALUE 0. 88 Cobolkenntnis VALUE 1. |
IF Cobolkenntnis THEN ADD 5 TO Punkte. |
IF Cobkenn = 1 THEN ADD 5 TO Punkte. |
01 Cobstand PIC 99. 88 Stand1 VALUE 1 THRU 3. 88 Stand2 VALUE 4 THRU 6. 88 Stand3 VALUE 7 THRU 9. 88 Stand4 VALUE 10. |
IF Stand4 THEN MOVE "Spezialist" TO Coboleignung. |
DATA DIVISION. 01 Warnung PIC X. 88 Datenende VALUE 1. : : PROCEDURE DIVISION. READ Daten AT END SET Datenende TO TRUE. |