Oceń stwierdzenie w Cobol

Ocena w Cobol jest podobna do „Wybierz instrukcję przypadku” w Microsoft Visual Basic. Oświadczenie „Ocena” zostało wprowadzone z COBOL-85 i może korzystać z oceny COBOL w różnych celach. Z perspektywy wydajności stwierdzenie oceny COBOL jest lepsze niż Cobol Neded IFS. Z tego powodu zaleca się jedynie zastąpienie swojego stwierdzenia zagnieżdżonego IF na oświadczenie oceny COBOL.

Główną różnicą między oceną a przypadkiem wyboru VBA jest to, że ocena nie wymaga instrukcji „przerwy”, ponieważ kontrola automatycznie wychodzi z oceny, gdy tylko warunek zostanie spełniony.

Formaty:
Zanim spojrzymy na składnię i przykład oceny oceny, chcielibyśmy wspomnieć, że stwierdzenie oceny COBOL ma cztery różne formaty. Omówmy każdy format z każdą składnią.

Podstawowa składnia instrukcji oceny to:

Oceń prawdziwie
Kiedy stan-1
Oświadczenie…
Kiedy inne
Oświadczenie…
Emo-evaluate.

Klauzula „Kiedy” jest zwykle używana do określenia twojego stanu. W poniższych przykładach określamy instrukcję, którą należy wykonać dla tego konkretnego wydarzenia. Ocena stwierdzenia kończy się jasnym wyjaśnieniem końca jego zakresu.

Przykład programowania 1:

Dział identyfikacyjny.
Program programowy. EMP001.
Wydział danych.
Sekcja pliku.
Sekcja magazynowania roboczego.
01 WS-FILE-SW PIC X (01) Wartość „N”.
88 Wartość E-O-F „Y”.
88 Not-E-O-Faluj „N”.
Dział procedury.
000-main-para.
Oceń prawdziwie
Kiedy E-O-f
Wykonaj A00-WRT-TRL-REC
Gdy not-e-o-f
Wykonaj B00-WRT-DTL-REC
Wykonaj B10-REC-NXT-REC
Kiedy inne
Wykonaj Z00-CLL-err
Ocena końcowa.
Zatrzymaj bieg.
A00-WRT-TRL-REC.
Wyświetl „koniec pliku”.
B00-WRT-DTL-REC.
Wyświetl „Nie koniec pliku”.
B10-REC-NXT-REC.
Wyświetl „Nie koniec pliku”.
Z00-CLL-err.
Wyświetl „Błąd”.

Wyjście:

Papan@papan -virtualbox: ~/Desktop/Eva $ COBC -xjf 4.Cbl
Nie koniec pliku
Nie koniec pliku

Wyjaśnienie:
W tym przykładzie programowania przyglądamy się akapitu wymienionym w dziale procedury, jakim jest 000-main-para. W niniejszym akapicie używamy oceny. Mówi „oceń prawdziwie” na początku oświadczenia oceniającego i mówi, kiedy.

Pierwszy warunek stanowi, że jeśli nie ma zapisu w pliku, oznacza to, że jest to koniec pliku. W takim przypadku po prostu idź i napisz wykonanie A00-WRT-TRL-REC. Jeśli nie jest to koniec pliku i jest jeszcze kilka rekordów, po prostu napisz do rekordu B00-WRT-DTL-REC, który jest już w buforze, i przejdź do następnego rekordu, który jest B10-REC-NXT -Rec.

W przypadku spełnienia żadnego z dostarczonych warunków użyj kontroli, przechodząc do drugiej sekcji. Następnie wykonuje Z00-CLL-err. Nazywa się to „błędem”, który przechodzi do obsługi wyjątków.

Programowanie Przykład 2: Oceń, kiedy również z

Dział identyfikacyjny.
Program programowy. EMP002.
Wydział danych.
Sekcja pliku.
Sekcja magazynowania roboczego.
01 WS-FILE-SW PIC X (01) Wartość „N”.
88 Wartość na koniec pliku „y”.
88 Not-end-of-the-plik wartości „n”.
01 WS-P PIC 9 (3).
01 WS-Q PIC 9 (3).
01 WS-R PIC 9 (3).
01 WS-S PIC 9 (3).
Dział procedury.
000-main-para.
Wyświetl „Wprowadź wartość WS-P”.
Zaakceptuj WS-P.
Wyświetl „Wprowadź wartość WS-Q”.
Zaakceptuj WS-Q.
Wyświetl „Wprowadź wartość WS-R”.
Zaakceptuj WS-R.
Wyświetl „Wprowadź wartość WS-S”.
Zaakceptuj WS-S.
Oceń prawdę również prawda
Kiedy WS-p = WS-Q również WS-R = WS-S
Wyświetl „Case 1 jest prawdziwy”
Kiedy WS-P> WS-Q również WS-R < WS-S
Wyświetl „Case 2 jest prawdziwe”
Kiedy inne
Wyświetl „Inny przypadek jest prawdziwy”
Ocena końcowa.

Wyjście:

Papan@papan -virtualbox: ~/Desktop/Eva $ COBC -xjf 2.Cbl
Wprowadź wartość WS-P
300
Wprowadź wartość WS-Q
100
Wprowadź wartość WS-R
169
Wprowadź wartość WS-S
500
Przypadek 2 jest prawdziwy

Wyjaśnienie:
Przejdźmy do następnego wariantu oświadczenia oceniającego, który jest „również oceniany”. Ten wariant oceny jest podobny do tego, co omówiliśmy w poprzednim przykładzie. Jedyną różnicą jest to, że w tym wariancie sprawdzamy więcej niż jeden warunek jednocześnie.

W tym przykładzie ocena true true oznacza, że ​​jeśli oba warunki są określone w klauzuli, gdy jest spełnione, tylko instrukcja może zostać wykonana. Wartości „WS-P” i „WS-Q” powinny pasować, a wartości „WS-R” i „WS-S” powinny również pasować do tego stwierdzenia. Następnie tylko instrukcja „prawdziwa”, która jest w przypadku wyświetlana jako wyjście konkretnego instrukcji.

Programowanie Przykład 3: Oceń, kiedy z wieloma warunkami

Dział identyfikacyjny.
Program programowy. EMP003.
Wydział danych.
Sekcja pliku.
Sekcja magazynowania roboczego.
01 Martial-Status PIC X (01) Wartość „M”.
01 WS-PGE PIC X (02) Wartość 36.
01 WS-gen pic x (01) Wartość „f”.
Dział procedury.
000-main-para.
Oceń status walki
KIEDY M'
Wyświetl „żonaty”
Kiedy „s”
Kiedy „d”
Wyświetl „singiel”
Kiedy inne
Wyświetl „Nie określony”
Ocena końcowa.
Oceń prawdziwie
Kiedy WS-PGE> 10 i WS-GEN = „M”
Wyświetl „Mężczyzna z wiekiem> 10”
Kiedy WS-PGE> 10 i WS-GEN = „F”
Wyświetl „Kobieta z wiekiem> 10”
Kiedy inne
Wyświetl „Kryteria nie satysfakcjonujące”
Ocena końcowa.

Wyjście:

Papan@papan -virtualbox: ~/Desktop/Eva $ COBC -xjf 1.Cbl
ŻONATY
Kobieta z wiekiem> 10

Wyjaśnienie:
W tym przykładzie, pomimo używania „true”, używamy rzeczywistych nazwy zmiennej i sprawdzamy wartości tych zmiennych, możliwą wartość tej konkretnej zmiennej w klauzuli When.

W tym przykładzie istnieje pole o nazwie „Status walki”. Sprawdzamy wartość tego konkretnego pola, niezależnie od tego, czy są małżeństwem, samotnymi, czy rozwiedzionymi. Jeśli osoba jest małżeństwem, pokazuje „żonaty”. Jeśli dana osoba jest singlem, wyświetla „singiel”.

Programowanie Przykład 4: Oceń, kiedy Thru

Dział identyfikacyjny.
Program programowy. EMP004.
Wydział danych.
Sekcja pliku.
Sekcja magazynowania roboczego.
01 WS-FILE-SW PIC X (01) Wartość „N”.
88 Wartość na koniec pliku „y”.
88 Not-end-of-the-plik wartości „n”.
01 WS-numer PIC 9 (2) Wartość zero.
Dział procedury.
000-main-para.
Wyświetl „Wprowadź numer:”
Wprowadź wartość numeru WS
Oceń numer WS
Kiedy 1
Wyświetl „1”
Kiedy 2
Wyświetl „2”
Kiedy 3 do 6
Wyświetl „liczbę w zakresie 3-6”
Kiedy inne
Wyświetl „Numer nie w zakresie”
Ocena końcowa.

Wyjście:

papan@papan -virtualbox: ~/Desktop/Eva $ COBC -xjf 3.Cbl
Wprowadź numer:
4
Liczba w zakresie 3-6

Wyjaśnienie:
Ten wariant instrukcji oceny jest również podobny do poprzednich przykładów. Kod wykorzystuje słowo kluczowe „Thru” podczas określania warunków w klauzuli When z instrukcji oceny, aby wskazać zakres wartości dla ocenianej zmiennej. W takim przypadku mamy ocenę oceny i używamy zmiennej o nazwie „WS-numer”. To, co robimy, to sprawdzamy różne wartości w klauzuli When.

Pierwszym z nich jest to, że wartość liczby WS wynosi 1. Tak więc wyświetlamy „1”. Podobnie, jeśli wartość wynosi dwie, wyświetlana jest wartość „2” itp. Pomimo wielokrotnego pisania dla jednej wartości, to, co robimy, to sprawdzenie wartości od 3 do 6, a wartość wyjściowa jest w zakresie od 3 do 6.

Wniosek

W tym konkretnym artykule omówiliśmy wszystkie perspektywy i zastosowanie stwierdzenia oceny, abyśmy w dobrej formie zrozumieli mechanizm oceny. Wyjaśniliśmy cały temat oceny, które są obecne w języku programowania Cobol.