COBOL - Syntaxe de base

Jeu de caractères

Les «caractères» sont les plus bas de la hiérarchie et ils ne peuvent pas être divisés davantage. Le jeu de caractères COBOL comprend 78 caractères qui sont indiqués ci-dessous -

N ° Sr.	Caractère et description
1	A-Z Alphabets (majuscules)
2	a-z Alphabets (minuscules)
3	0-9 Numérique
4	Espace
5	+ Signe plus
6	- Signe moins ou trait d'union
sept	* Astérisque
8	/ Barre oblique avant
9	$ Signe de devise
dix	, Virgule
11	; Point virgule
12	. Point décimal ou période
13	" Guillemets
14	( Parenthèse gauche
15	) Parenthèse droite
16	> Plus grand que
17	< Moins que
18	: Côlon
19	' Apostrophe
20	= Signe égal

Fiche de codage

Le programme source de COBOL doit être écrit dans un format acceptable pour les compilateurs. Les programmes COBOL sont écrits sur des feuilles de codage COBOL. Il y a 80 positions de caractères sur chaque ligne d'une feuille de codage.

Les positions des caractères sont regroupées dans les cinq champs suivants -

Positions	Champ	La description
1-6	Numéros de colonne	Réservé aux numéros de ligne.
sept	Indicateur	Il peut avoir un astérisque (*) indiquant des commentaires, un trait d'union (-) indiquant la suite et une barre oblique (/) indiquant un saut de page.
8-11	Zone A	Toutes les divisions, sections, paragraphes et certaines entrées spéciales COBOL doivent commencer dans la zone A.
12-72	Zone B	Toutes les instructions COBOL doivent commencer dans la zone B.
73-80	Zone d'identification	Il peut être utilisé selon les besoins par le programmeur.

Exemple

L'exemple suivant montre une feuille de codage 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 pour exécuter le programme COBOL ci-dessus -

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

Lorsque vous compilez et exécutez le programme ci-dessus, il produit le résultat suivant -

Coding Sheet

Chaînes de caractères

Les chaînes de caractères sont formées en combinant des caractères individuels. Une chaîne de caractères peut être un

Comment,
Littéral, ou
Mot COBOL.

Toutes les chaînes de caractères doivent se terminer par separators. Un séparateur est utilisé pour séparer les chaînes de caractères.

Séparateurs fréquemment utilisés - Espace, virgule, point, apostrophe, parenthèses gauche / droite et guillemet.

Commentaire

Un commentaire est une chaîne de caractères qui n'affecte pas l'exécution d'un programme. Cela peut être n'importe quelle combinaison de caractères.

Il existe deux types de commentaires -

Ligne de commentaire

Une ligne de commentaire peut être écrite dans n'importe quelle colonne. Le compilateur ne vérifie pas la syntaxe d'une ligne de commentaire et la traite pour la documentation.

Entrée de commentaire

Les entrées de commentaires sont celles qui sont incluses dans les paragraphes facultatifs d'une division d'identification. Ils sont écrits dans la zone B et les programmeurs l'utilisent comme référence.

Le texte mis en évidence dans Bold sont les entrées commentées dans l'exemple suivant -

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 pour exécuter le programme COBOL ci-dessus -

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

Lorsque vous compilez et exécutez le programme ci-dessus, il produit le résultat suivant -

Comment Line

Littéral

Le littéral est une constante directement codée en dur dans un programme. Dans l'exemple suivant, «Hello World» est un littéral.

PROCEDURE DIVISION.
DISPLAY 'Hello World'.

Il existe deux types de littéraux comme indiqué ci-dessous -

Littéral alphanumérique

Les littéraux alphanumériques sont placés entre guillemets ou apostrophe. La longueur peut comporter jusqu'à 160 caractères. Une apostrophe ou une citation ne peut faire partie d'un littéral que si elle est associée. Le début et la fin du littéral doivent être identiques, soit une apostrophe, soit une citation.

Example

L'exemple suivant montre des littéraux alphanumériques valides et non valides -

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

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

Littéral numérique

Un littéral numérique est une combinaison de chiffres de 0 à 9, +, - ou un point décimal. La longueur peut comporter jusqu'à 18 caractères. Le signe ne peut pas être le caractère le plus à droite. Le point décimal ne doit pas apparaître à la fin.

Example

L'exemple suivant montre des littéraux numériques valides et non valides -

Valid:
   100
   +10.9
   -1.9

Invalid:
   1,00
   10.
   10.9-

Mot COBOL

COBOL Word est une chaîne de caractères qui peut être un mot réservé ou un mot défini par l'utilisateur. La longueur peut comporter jusqu'à 30 caractères.

Défini par l'utilisateur

Les mots définis par l'utilisateur sont utilisés pour nommer les fichiers, les données, les enregistrements, les noms de paragraphes et les sections. Les alphabets, chiffres et traits d'union sont autorisés lors de la formation de mots définis par l'utilisateur. Vous ne pouvez pas utiliser de mots réservés COBOL.

Mots réservés

Les mots réservés sont des mots prédéfinis en COBOL. Les différents types de mots réservés que nous utilisons fréquemment sont les suivants -

Keywords comme AJOUTER, ACCEPTER, DÉPLACER, etc.
Special characters des mots comme +, -, *, <, <=, etc.
Figurative constants sont des valeurs constantes comme ZERO, SPACES, etc. Toutes les valeurs constantes des constantes figuratives sont mentionnées dans le tableau suivant.

Constantes figuratives

N ° Sr.	Constantes figuratives et description
1	HIGH-VALUES Un ou plusieurs caractères qui seront à la position la plus élevée dans l'ordre décroissant.
2	LOW-VALUES Un ou plusieurs caractères ont des zéros dans la représentation binaire.
3	ZERO/ZEROES Un ou plusieurs zéro selon la taille de la variable.
4	SPACES Un ou plusieurs espaces.
5	QUOTES Guillemets simples ou doubles.
6	ALL literal Remplit l'élément de données avec Literal.