« COBOL/Fonctions intrinsèques » : différence entre les versions

Contenu supprimé Contenu ajouté
catégorisation - Modif. navigateur chapitre
Guillpetiot (discussion | contributions)
mAucun résumé des modifications
Ligne 18 :
Pour faire appel à de telles fonctions, vous devez utiliser l'instruction FUNCTION qui se présente comme ceci :
 
<source lang="cobol">FUNCTION nom [ ( arguments ) ].</source>
 
Le nom de la fonction suit le mot-clé FUNCTION et les (éventuels) arguments sont placés entre parenthèses et séparés par des virgules.
Ligne 71 :
Dans cet exemple, nous demandons à l'utilisateur de saisir trois valeurs entières au clavier, nous affichons ensuite le MIN et le MAX de ces valeurs.
 
<source lang="cobol">
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. ex-functions.
000003
000004 DATA DIVISION.
000005 WORKING-STORAGE SECTION.
000006 77 x PIC 999.
000007000006 77 yx PIC 999.
000008000007 77 zy PIC 999.
000006000008 77 xz PIC 999.
000009
000010 PROCEDURE DIVISION.
000011 saisie.
000012 DISPLAY "x=" NO ADVANCING ACCEPT x.
000013000012 DISPLAY "yx=" NO ADVANCING ACCEPT yx.
000014000013 DISPLAY "zy=" NO ADVANCING ACCEPT zy.
000012000014 DISPLAY "xz=" NO ADVANCING ACCEPT xz.
000015
000016 appel-func.
000017 DISPLAY "min=" FUNCTION MIN (x, y, z).
000018000017 DISPLAY "maxmin=" FUNCTION MAXMIN (x, y, z).
000017000018 DISPLAY "minmax=" FUNCTION MINMAX (x, y, z).
000019 STOP RUN.
000020 END PROGRAM ex-functions.</source>
 
La valeur de retour de la fonction MIN (respectivement MAX) est utilisée par l'instruction DISPLAY.