COBOL Common Business Oriented Language

Résumé du document

COBOL est un langage de haut niveau spécialement conçu pour les applications commerciales et des applications de gestion. Né en 1960, COBOL n'a cessé d'évoluer jusqu'à aujourd'hui, les 3 grandes versions où les changements ont été marquants sont COBOL-60, COBOL ANS-74, et COBOL ANS-85. C'est ce dernier que l'on étudiera

Extraits

[...] = ''x'' VIII LES ECRANS Jusqu'à présent, nous avons vu que le seul moyen d'effectuer un dialogue entre l'utilisateur et le programme, est d'utiliser les mots DISPLAY et ACCEPT, sans pouvoir pour autant se placer véritablement où on le souhaite sur l'écran. il existe des spécifications qui sont des extensions au standard COBOL-85, appelées spécifications X/Open. Ces spécifications sont définies dans une nouvelle section de la DATA DIVISION : la SCREEN SECTION. Cette section si elle est présente, soit être la dernière de la DATA DIVISION. Dans cette section, on peut définir des clauses de description d'écrans. [...]

[...] On accède aux enregistrements par l'intermédiaire de l'index via une clé. Ces accès se font pour le programmeur, de manière complètement transparente, comme s'il y avait qu'un seul fichier. L'entrée dans le paragraphe FILE-CONTROL s'écrit : SELECT [OPTIONAL] nom-fichier ASSIGN TO nom-externe [ [ ORGANIZATION IS] INDEXED] SEQUENTIAL [ACCESS MODE IS] RANDOM DYNAMIC RECORD KEY IS nom-cle1 [ ALTERNATIVE RECORD KEY IS nom-cle2 [ WITH DUPLICATE]] [ FILE STATUS IS nom-status] nom-fichier est le nom connu par le programme. nom-externe est le nom connu par le système d'exploitation. [...]

[...] PROGRAM-ID. C COMMON. IDENTIFICATION DIVISION. PROGRAM-ID. D. END PROGRAM D. END PROGRAM C. END PROGRAM A. IDENTIFICATION DIVISION. PROGRAM-ID. F. IDENTIFICATION DIVISION. [...]

[...] ceci représente toutes les possibilités théoriques existantes ; il ne faut pas perdre de vue qu'en aucun cas, en Cobol-85, un sous prog ne peut s'appeler lui même, même directement appelle F qui lui, appelle A Un prog peut être défini comme ‘commun' si l'on fait suivre le nom du prog dans le paragraphe PROGRAM-ID, par le mot réservé COMMON. Dans ce cas, le programme ‘commun' peut être référencé dans une instruction d'appel par tout prog directement ou indirectement contenu dans le prog contenant directement le prog ‘commun', sauf , bien entendu, le prog ‘commun' lui même et tous les prog contenus dans ce dernier. Si nous modifions l'ex précédent de la façon suivante, nous aurons de nouvelles possibilités. [...]

[...] DISPLAY ‘Bonjour' Bonjour-fin. aurevoir. DISPLAY revoir' aurevoir-fin. fin-parag. Le résultat obtenu est 064 a pour carrée : 096 Somme produit Somme produit Division ligne indésirée Division Bonjour Il est possible également d'utiliser des SECTION à l'intérieur de la PROCEDURE DIVISION. Ex : PROCEDURE DIVISION. PERFORM PRODUIT. produit SECTION . divers . fin-produit. exit. autre SECTION. [...]