C O B O L -Structure.-Clause SELECT

BoTTom |    Changer de couleur
 
Signification : COmmon Business Oriented Langage
 
 
 
- Le niveau le plus élevé est la DIVISION. Elles sont au nombre de 4.
 
    * IDENTIFICATION
 
    * ENVIRONMENT
 
    * DATA
 
    * PROCEDURE
 
- Certaines peuvent être subdivisées en SECTIONS ou en PARAGRAPHES.
 
Le nom des DIVISIONS, des SECTIONS et des PARAGRAPHES
     est à écrire à partir de la marge A.
 
Les instructions COBOL sont écrites après la marge B (colonne 12).
 


|    Changer de couleur
 
***************************************************************
*     S T R U C T U R E     D ' U N     P R O G R A M M E     *
***************************************************************
 
               A   B
 
               IDENTIFICATION DIVISION.
 
               ENVIRONMENT DIVISION.
 
               CONFIGURATION SECTION.
               INPUT-OUTPUT SECTION.
 
               DATA DIVISION.
 
               FILE SECTION.
               WORKING-STORAGE SECTION.
 
               PROCEDURE DIVISION.
 
 


|    Changer de couleur
***************************************************************************
*     C A R A C T E R E S     U T I L I S E S     P A R     C O B O L     *
***************************************************************************
 
51 caractères peuvent être utilisés. - les chiffres de 0 à 9.
                                     - les lettres de A à Z.
                                     - l'espace ou blanc.
                                     - + - * / = pour les opérations.
                                     - $ traduit par F en France
                                     - . , pour la ponctuation.
                                     - " ou ' pour la séparation alpha
 
 
REGLES : Tout élément du prog. doit être précédé et suivi d'un blanc
 
*******************************************************
*     L E S     N O M S     S Y M B O L I Q U E S     *
*******************************************************
 
Ils servent à identifier, une donnée, une division, une section,
 un paragraphe.30 car. maxi.
 


|    Changer de couleur
 
***************************************
*     L E S     L I T T E R A U X     *
***************************************
 
- Alphanumériques : Doivent être inclus entre " et ne doivent pas excéder
                     120 cararactères
 
- Numériques      : Peuvent être écrit avec un point décimal et etre
                     précedés d'un signe.
 
*******************************************************************
*     L E S     C O N S T A N T E S     F I G U R A T I V E S     *
*******************************************************************
 
- Ce sont des litéraux ou des constantes désignés par des noms réservés.
 
 
 
 
 
 


|    Changer de couleur
***********************************************************
*     I D E N T I F I C A T I O N     D I V I S I O N     *
***********************************************************
                A   B
                IDENTIFICATION DIVISION.
                -------------- ---------
 
                PROGRAM-ID. nom-du-programme.
                -----------
 
               < AUTHOR. < commentaire. > >
                 -------
               < INSTALLATION. < commentaire. > >
                 -------------
               < DATE-WRITTEN. < commentaire. > >
                 -------------
               < DATE-COMPILED. < commentaire. > >
                 --------------
               < SECURITY. < commentaire. > >
                 ---------
 
 


|    Changer de couleur
*****************************************************
*     E N V I R O N M E N T     D I V I S I O N     *
*****************************************************
                   A   B
                   ENVIRONMENT DIVISION.
                   ----------- ---------
 
                   CONFIGURATION SECTION.
                   ------------- --------
                   SOURCE-COMPUTER. nom-de-l'ordinateur.
                   ----------------
                   OBJECT-COMPUTER. nom-de-l'ordinateur.
                   ----------------
 
                 < SPECIAL-NAMES. noms-spéciaux. >
                   --------------
                 < INPUT-OUTPUT SECTION.
                   ------------ --------
                   FILE-CONTROL. sélection-des-fichiers-utilisés.
                   -------------
                 < I-O-CONTROL. contrôle-des-opérations-d'entrées/sorties. > >
                   ------------


|    Changer de couleur
*************************************
*     S P E C I A L - N A M E S     *
*************************************
  A   B
  SPECIAL-NAMES. < nom-fonction IS nom-mnémonique. >
  --------------                --
 
    < CURRENCY SIGN IS symbole-monétaire. >
      --------      --
 
    < DECIMAL-POINT IS COMMA. >
      ------------- -- ------
 
Nom-fonction : CSP                     : Annule le saut de ligne par défaut.
               C01                     : Saut à la page suivante.
               ATTRIBUTE-DATA          : Informations sur une unité.
               I-O-FEEDBACK            : Informations sur une opération E/S
               OPEN-FEEDBACK           : Informations sur un fichier ouvert.
               CONSOLE, SYSTEM-CONSOLE : nom de la console.
               LOCAL-DATA              : Zone de communication utilisateur.
                                         (*LDA)
               REQUESTOR               : Terminal demandeur.





©AF400