IDENTIFICATION DIVISION.
PROGRAMM-ID.SCREER.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT FGRILLE ASSIGN TO
WORKSTATION-GPERSONNE
ORGANIZATION
TRANSACTION
CONTROL-AREA
FTOUCHES.
SELECT
FPERSONNEL ASSIGN TO DATABASE-PERSONNEL
ORGANIZATION
SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD FGRILLE LABEL RECORD OMITTED.
01 EGRILLE.
COPY
DDS-PERSONNE1 OF GPERSONNE.
FD FPERSONNEL LABEL
RECORD STANDARD.
01 EPERSONNEL.
COPY DDS-ALL-FORMATS OF
PERSONNEL.
WORKING STORAGE SECTION.
01 FTOUCHES PIC XX.
88 F3 VALUE "03".
PROCEDURE DIVISION.
DEBUT.
OPEN I-O FGRILLE OUTPUT
FPERSONNEL.
TQ.
INITIALIZE PERSONNE1.
WRITE EGRILLE FORMAT "PERSONNE1".
READ FGRILLE.
IF F3 GO TO FIN.
WRITE
EPERSONNEL.
GO TO TQ.
FIN.
CLOSE FGRILLE FPERSONNEL.
STOP RUN.
Nous allons créer un fichier comportant des informations dans lequel
il y aura en plus un nom d'enregistrement.
Pour notre exemple, le nom du fichier est PERSONNEL, le nom d'enregistrement
est ENRPERS.
Pour définir des caractères, on écrit simplement le
nom de la variable et sa taille.
Pour définir des numériques, on écrit le nom de la
variable suivit d'un S et sa taille.
Les décimaux s'écrivent comme pour les grilles d'écran
en mettant le nombre de chiffres total, suivi du S et du nombre de décimales.
Exemple:
R ENRPERS
NOM 32
PRENOM 32
ADRESSE 96
CP 5
VILLE 27
TEL 20
SALAIRE 7S2
Dans le cas ci-dessus, nous avons à faire à un fichier que
l'on a créé, sur lequel nous devons sauvegarder nos propres
données au fur et à mesure des modifications, contrairement
aux grilles d'écran, qui une fois définies, restent telles
quels. Par conséquent, au lieu d'attacher les données à
la station de travail, on les attache à la DATABASE. C'est à
dire que cette fois, le fichier se trouve dans une zone de données.
Pour le reste, cela fonctionne presque comme une grille d'écran,
avec deux noms FPERSONNEL et EPERSONNEL.
Retour au programme.
Un fichier de données peut s'organisé sous trois mode:
-séquentiel
-indéxé
-relatif.
Ici, on traite le cas du séquentiel. C'est à dire que la
recherche des données se fait dans l'ordre du fichier. L'organisation
indéxée se fera dans le chapitre VI: Utilisation
des fichiers indéxés Cette ligne est facultative car
en cobol l'organisation séquentiel est par défaut.
Retour au programme.
Comme je vous l'ai expliqué dans le chapitre sur l'utilisation
des grilles d'écran, on peut definir une seule grille. C'est
ce que l'on fait ici en ne recupérant que la grille PERSONNE1. De
ce fait, si vous faites d'autres programmes utilisant d'autres grilles
vous n'emcombrez pas les précédents programmes et de toute
façon vous n'avez aucunes modifications à y apporter.
Retour au programme.
Ici on défini le fichier de données. Le nom FPERSONNEL doit
donc être clair comme FGRILLE pour les grilles d'écran. Le
LABEL RECORD STANDARD sert quant à lui à donnér le
type d'enregistrement éffectué.
Retour au programme.
Le programme exemple permet de créer des enregistrements, donc le
fichier est ouvert en sortie.
On sort du programme pour mettre des informations dans le fichier. On peut
l'ouvrir en entrée (INPUT) pour les programmes de visualisation
ou d'impression sans modifications des données ou en entrée-sortie
(I-O) pour les mises à jour. On a aussi le mode EXTEND qui permet
de rajouter un enregistrement. Cela signifie que le programme SCREER ne
sert qu'une seule fois pour la création du premier enregistrement.
En entreprise, ce programme ne sera donc pas mis à la disposition
du personnel car si par inadvertance on l'utilise dans le but d'ajouter
un employé on efface tous les autres.
Cela sera expliqué dans le chapitre VII: D'autres
programmes séquentiels.
Retour au programme.
On constate ici que l'on utilise le MOVE CORRESPONDING de la même
manière qu'avec les grilles d'écran. Cependant le MOVE se
fait avec le nom d'enregistrement du fichier ce qui fait une troisième
appellation du fichier: FPERSONNEL, EPERSONNEL et ENRPERS.
Retour au programme.
Le WRITE est obligatoire pour sauvegarder les données sur le disque
dur comme les grilles d'écran pour afficher les données à
l'écran.
Retour au programme.
Le fichier PERSONNEL contient toutes les informations sur un employé
d'une entreprise. Ce programme affiche une grille d'écran sur laquelle
on effectue la saisie des informations et on les sauvegarde dans le fichier.