IDENTIFICATION DIVISION.
       PROGRAM-ID. PROGRAM-PRINC.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 IDENT PIC 9(3) VALUE ZEROS.
       01 NOMBRE PIC A(25) VALUE SPACES.

       PROCEDURE DIVISION.
           CALL 'LINKB01' USING IDENT, NOMBRE.
           DISPLAY 'PROGRAMA PRINCIPAL'.
           DISPLAY 'ID : ' IDENT.
           DISPLAY 'NOMBRE : ' NOMBRE.
           STOP RUN.