¡Esta es una revisión vieja del documento!

identification division.
program-id. profesor.
environment division.
configuration section.
data division.
working-storage section.
procedure division.
begin section.
begin-it.
     display " Hola desde main!".
     display "  Llamando subrutina1!".
     perform subrutina1.
     display "          He vuelto desde subrutina1!".
     display "  Llamando subrutina2!".
     perform subrutina2.
     display "          He vuelto desde subrutina2!".
     display "  Eso es todo, amigos!".
     stop run.
subrutina1 section.
sub1.
     display "                Hola desde subrutina1!".
subrutina2 section.
sub2.
     display "                Hola desde subrutina2!".