COBOL - składnia podstawowa

Zestaw znaków

„Znaki” znajdują się najniżej w hierarchii i nie można ich dalej dzielić. Zestaw znaków COBOL zawiera 78 znaków, które pokazano poniżej -

Sr.No.	Opis postaci
1	A-Z Alfabety (wielkie litery)
2	a-z Alfabety (małe litery)
3	0-9 Numeryczne
4	Przestrzeń
5	+ Znak plus
6	- Znak minus lub łącznik
7	* Gwiazdka
8	/ Ukośnik
9	$ Znak waluty
10	, Przecinek
11	; Średnik
12	. Punkt dziesiętny lub kropka
13	" Cudzysłów
14	( Lewy nawias
15	) Prawy nawias
16	> Lepszy niż
17	< Mniej niż
18	: Dwukropek
19	' Apostrof
20	= Znak równości

Arkusz kodowania

Program źródłowy języka COBOL musi być napisany w formacie akceptowanym przez kompilatory. Programy w języku COBOL są pisane na arkuszach kodowych COBOL. W każdym wierszu arkusza kodowego znajduje się 80 pozycji znaków.

Pozycje postaci są pogrupowane w następujących pięciu polach -

Pozycje	Pole	Opis
1-6	Numery kolumn	Zarezerwowane dla numerów linii.
7	Wskaźnik	Może mieć gwiazdkę (*) wskazującą komentarze, łącznik (-) wskazujący kontynuację i ukośnik (/) wskazujący wysuw formularza.
8-11	Obszar A	Wszystkie działy, sekcje, akapity i niektóre wpisy specjalne COBOL muszą zaczynać się w strefie A.
12-72	Obszar B	Wszystkie instrukcje w języku COBOL muszą zaczynać się w obszarze B.
73-80	Obszar identyfikacji	Może być używany w razie potrzeby przez programistę.

Przykład

Poniższy przykład przedstawia arkusz kodu w języku COBOL -

000100 IDENTIFICATION DIVISION.                                         000100
000200 PROGRAM-ID. HELLO.                                               000101
000250* THIS IS A COMMENT LINE                                          000102
000300 PROCEDURE DIVISION.                                              000103
000350 A000-FIRST-PARA.                                                 000104
000400     DISPLAY “Coding Sheet”.                                      000105
000500 STOP RUN.                                                        000106

JCL aby wykonać powyższy program w języku COBOL -

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C
//STEP1 EXEC PGM = HELLO

Kiedy kompilujesz i wykonujesz powyższy program, daje on następujący wynik -

Coding Sheet

Ciągi znaków

Ciągi znaków są tworzone przez łączenie pojedynczych znaków. Ciąg znaków może być

Comment,
Dosłowne lub
COBOL. Słowo.

Wszystkie ciągi znaków muszą być zakończone separators. Separator służy do oddzielania ciągów znaków.

Często używane separatory - spacja, przecinek, kropka, apostrof, lewy / prawy nawias i cudzysłów.

Komentarz

Komentarz to ciąg znaków, który nie wpływa na wykonanie programu. Może to być dowolna kombinacja znaków.

Istnieją dwa rodzaje komentarzy -

Linia komentarza

W dowolnej kolumnie można wpisać komentarz. Kompilator nie sprawdza wiersza komentarza pod kątem składni i traktuje go jako dokumentację.

Wpis komentarza

Wpisy komentarzy to te, które są zawarte w opcjonalnych akapitach działu identyfikacji. Są napisane w obszarze B i programiści używają ich jako odniesienia.

Tekst wyróżniony w Bold to skomentowane wpisy w poniższym przykładzie -

000100 IDENTIFICATION DIVISION.                                         000100
000150 PROGRAM-ID. HELLO.                                               000101 
000200 AUTHOR. TUTORIALSPOINT.                                          000102
000250* THIS IS A COMMENT LINE                                          000103
000300 PROCEDURE DIVISION.                                              000104
000350 A000-FIRST-PARA.                                                 000105  
000360/ First Para Begins - Documentation Purpose                       000106
000400     DISPLAY “Comment line”.                                      000107
000500 STOP RUN.                                                        000108

JCL wykonać powyższy program w języku COBOL -

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C
//STEP1 EXEC PGM = HELLO

Kiedy kompilujesz i wykonujesz powyższy program, daje on następujący wynik -

Comment Line

Dosłowny

Dosłowne to stała, która jest zapisywana na stałe w programie. W poniższym przykładzie „Hello World” jest literałem.

PROCEDURE DIVISION.
DISPLAY 'Hello World'.

Istnieją dwa rodzaje literałów, jak omówiono poniżej -

Literał alfanumeryczny

Literały alfanumeryczne są ujęte w cudzysłowy lub apostrof. Długość może mieć maksymalnie 160 znaków. Apostrof lub cytat może być częścią dosłownego tylko wtedy, gdy jest sparowany. Początek i koniec literału powinien być taki sam, apostrof lub cytat.

Example

Poniższy przykład przedstawia prawidłowe i niepoprawne literały alfanumeryczne -

Valid:
   ‘This is valid’
   "This is valid"
   ‘This isn’’t invalid’

Invalid:
   ‘This is invalid”
   ‘This isn’t valid’

Numeric Literal

Literał numeryczny to kombinacja cyfr od 0 do 9, +, - lub kropki dziesiętnej. Długość może mieć maksymalnie 18 znaków. Znak nie może być znakiem najbardziej po prawej stronie. Punkt dziesiętny nie powinien pojawiać się na końcu.

Example

Poniższy przykład przedstawia prawidłowe i niepoprawne literały numeryczne -

Valid:
   100
   +10.9
   -1.9

Invalid:
   1,00
   10.
   10.9-

COBOL Word

COBOL Słowo to ciąg znaków, który może być słowem zastrzeżonym lub słowem zdefiniowanym przez użytkownika. Długość może mieć maksymalnie 30 znaków.

Określony przez użytkownika

Słowa zdefiniowane przez użytkownika służą do nazywania plików, danych, rekordów, nazw akapitów i sekcji. Alfabety, cyfry i łączniki są dozwolone podczas tworzenia słów zdefiniowanych przez użytkownika. Nie możesz używać słów zastrzeżonych w języku COBOL.

Zastrzeżone słowa

Słowa zastrzeżone to słowa predefiniowane w języku COBOL. Różne rodzaje zarezerwowanych słów, których często używamy, są następujące -

Keywords jak DODAJ, AKCEPTUJ, PRZENIEŚ itp.
Special characters słowa takie jak +, -, *, <, <= itd
Figurative constants są wartościami stałymi, takimi jak ZERO, SPACJE itp. Wszystkie stałe wartości stałych graficznych są wymienione w poniższej tabeli.

Stałe symboliczne

Sr.No.	Stałe graficzne i opis
1	HIGH-VALUES Jeden lub więcej znaków, które będą na najwyższej pozycji w porządku malejącym.
2	LOW-VALUES Jeden lub więcej znaków ma zera w reprezentacji binarnej.
3	ZERO/ZEROES Jedno lub więcej zera, w zależności od wielkości zmiennej.
4	SPACES Jedna lub więcej spacji.
5	QUOTES Pojedyncze lub podwójne cudzysłowy.
6	ALL literal Wypełnia element danych literałem.