Le programme appelant doit déclarer les mêmes variables dans sa WORKING-STORAGE SECTION , puis les passer via USING .
LINKAGE SECTION : passer des paramètres entre programmes
Lorsque vous utilisez CALL pour exécuter un sous-programme, celui-ci peut recevoir des données du programme principal. Ces données sont déclarées dans une zone spéciale : la LINKAGE SECTION . Cette section permet de définir les variables partagées entre les deux programmes.
IDENTIFICATION DIVISION.
PROGRAM-ID. SOUSPROG.
DATA DIVISION.
LINKAGE SECTION.
01 A PIC 9(3).
01 B PIC 9(3).
01 RESULTAT PIC 9(4).
PROCEDURE DIVISION USING A B RESULTAT.
COMPUTE RESULTAT = A + B.
EXIT PROGRAM.
Le programme appelant doit déclarer les mêmes variables dans sa WORKING-STORAGE SECTION , puis les passer via USING .
CALL "SOUSPROG" USING A B RESULTAT.
USING est strictement respecté EXIT PROGRAM
DISPLAY "Entrez deux valeurs :".
ACCEPT A.
ACCEPT B.
CALL "SOUSPROG" USING A B RESULTAT.
DISPLAY "Résultat = " RESULTAT.
La LINKAGE SECTION permet :