xxx

identification division.
program-id. CALL-N.
procedure division.
    display "main-prog"
    call "N1"
    display "return ok"
    stop run.
    
program-id. N1.
procedure division.
    display "N1"
    exit program.
end program N1.

end program CALL-N.