@Lavronacín, te pongo un ejemplo que funciona.
Atencion, el nombre del programa debe de estar bien escrito para identificarlo. Me refiero al "program-id. mundo2". "END PROGRAM mundo2." lo puedes suprimir.
Prueba y me dices si algo no te funciona. O pasa un ejemplo.
Programa inicial:
Código COBOL:
******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. mundo1.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 indice pic 9.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Hello world 1"
ACCEPT indice.
call 'mundo2'.
STOP RUN.
END PROGRAM mundo1.
Programa llamado:
Código COBOL:
******************************************************************
* Author:
* Date:
* Purpose:
* Tectonics: cobc
******************************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. mundo2.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 indice pic 9.
PROCEDURE DIVISION.
MAIN-PROCEDURE.
DISPLAY "Hello world 2"
ACCEPT indice.
STOP RUN.
END PROGRAM mundo2.