      * https://fr.wikiversity.org/wiki/COBOL/Sous-programmes
000001 IDENTIFICATION DIVISION.
000002   PROGRAM-ID. a.
000003 PROCEDURE DIVISION.
000004 prog.
000005   DISPLAY "Vous êtes dans A".
000006   CALL "b".
000007   DISPLAY "Vous êtes de retour dans A".
000008   STOP RUN.
000009 END PROGRAM a.
000010****************************
000011 IDENTIFICATION DIVISION.
000012   PROGRAM-ID. b.
000013 PROCEDURE DIVISION.
000014 prog.
000015   DISPLAY "Vous êtes dans B".
000016   EXIT PROGRAM.
000017 END PROGRAM b.
