IDENTIFICATION DIVISION.
       PROGRAM-ID. SUB-PROGRAM.

       DATA DIVISION.
       LINKAGE SECTION.
       01 IDENT PIC 9(3).
       01 NOMBRE PIC A(25).

       PROCEDURE DIVISION USING IDENT, NOMBRE.
           DISPLAY 'SUB PROGRAMA MOVIENDO DATOS A LAS VARIABLES'.
           DISPLAY 'ID RECIBIDO: ' IDENT.
           DISPLAY 'NOMBRE RECIBIDO: ' NOMBRE.
           DISPLAY 'CARGANDO VALORES ID=18 Y NOMBRE=MARCELO'.
           MOVE 18 TO IDENT.
           MOVE 'MARCELO' TO NOMBRE.
           EXIT.