VERBE

CATÉGORIE

ACCEPT

  ACCEPT ["nomvariable"]
         {[AT LINE "no_ligne"] 
         [COLUMN  "no_colonne"]| 
         [FROM DATE]}.
        
         nomvariable : le nom d'une variable.

ADD

  ADD "nombre|variable" TO "variable" [,"variable2"].

CLOSE

  CLOSE nomfichier [, nomfichier].

COMPUTE

  COMPUTE " nomvariable " = {'constante' | "nomvariable"} 
                                                       {+ | - | / | *} 
                                                       {constante' | "nomvariable"} [...].
  EXEMPLE: COMPUTE X = ( Y + 2 ) / 3 + Z.
  

  DISPLAY {"nomvariable" |& 'constante' [...]} 
          [AT LINE "no_ligne"]
          [COLUMN  "no_colonne"].

         nomvariable : -peut être une chaine en guillemet, 
                       -un nom d'une variable,
                       -un ensemble de chaine et de nom 
                        séparé par des virgules.

GO TO

  GO TO "nomparagraphe".

IF

  IF "condition" {"instructions" ...  | NEXT SENTENCE }
  [ELSE {"instructions" ... | NEXT SENTENCE }].

MOVE

  MOVE [ALL] source TO destination [, destin, ...].
  
         source : {'constante' | "nomvariable"}
         destination : "nomvariable"

MULTIPLY


  MULTIPLY "variable" BY "nombre|variable".

OPEN

  OPEN {"mode" nomfichier [, nomfichier]
        "mode" nomfichier [, nomfichier]
        ...}.
        
        mode : {INPUT | OUTPUT | I-O | EXTEND}
                · INPUT :  fichier d'entrée seulement
                · OUTPUT :  fichier de sortie seulement
                · I-O :  fichier d'entrée-sortie  (sur disque seulement)
                · EXTEND :  fichier séquentiel auquel on ajoute à la fin

PERFORM (boucle)


  PERFORM "nomparagraphe" [{THROUGH | THRU} "nomparagraphe2"] 
                        [UNTIL "condition"].

READ

  READ "nomfichier" [ FROM "nomenregistrement" ]
       {AT END|INVALID KEY} "instructions".

SET

  SET "indice" TO "n".

SUBTRACT

  SUBTRACT "nombre|variable" FROM "variable".

WRITE

  WRITE "nomenregistrement" [FROM "nomenregistrement"]
      [AFTER ADVANCING {PAGE|{variable|nombre}|n LINE[S]]
        · AFTER ADVANCING 1 LINE  passe à la prochaine ligne.
        · AFTER ADVANCING 2 LINES laisse une ligne blanche.
        · AFTER ADVANCING 3 LINES laisse deux lignes blanches.
      [INVALID KEY "instruction"].

Emplacement

"nomvariable"

   Déclaré dans la "DATA DIVISION".

Mot Réservé

"constante"

   SPACE, SPACES

Syntaxe

"condition"

  opérateurs : > < = NOT AND OR ()
               NOT =
               
               NOT NUMERIC
               
  
Constantes NUMÉRIQUES
· 1 à 18 chiffres plus le point et/ou le signe
· ne se terminent pas par un point (123. n' est pas acceptable)
123.4567	+12345678	-0.676767
MULTIPLY NOMBRE BY  123.0.  ce point termine la ligne.
	et non pas
MULTIPLY NOMBRE BY 123.. 
	(un point pour la constante et un pour la phrase !)

                  9.
                  0.
                  9V9.
                  P.

     01   [NOM].
     02 [NOM].
             03 [NOM]       PIC {X[(n)]|&9[(n)]}{...} [VALUE "chaine|nombre|'constante'"].
                            9[(n)]V[9[(n)]]
        88 [NOM]              VALUE IS "CHAINE"|"NOMBRE".
     02 [NOM] PIC X.
                  A.
                  Z.
01 [NOM] REDEFINES [NOM2] [PIC [...]].
   02 [NOM3] OCCURS [n] TIMES INDEXED BY [NOM_INDICE] PIC [ESPACE-VARIABLE].

   appel d'un élément :
    [NOM3](n) 
     premier : n=0;
   
   9 [COMP].

Hyperliens...

Lire les commentaires | Laisser un commentaire