Déclarer une contsante

78 nom_cte VALUE valeur.

IF (cond)

…

ELSE

…

END-IF

PROCEDURE DIVISION.

nom_§.

(col12) …

STOP RUN.

END-PROGRAM nom_prog.

ADD val TO var