************************************************************
      * HOLA CICS                                              *
      **********************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. HOLACICS.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      **********************************************************
      * PEGAMOS LA COPY DEL MAPA LOGICO QUE CREAMOS            *
      **********************************************************

       01  HOLAMPI.
            02  FILLER PIC X(12).
       01  HOLAMPO REDEFINES HOLAMPI.
            02  FILLER PIC X(12).

       PROCEDURE DIVISION.

       MOSTRAR-MAPA.

             EXEC CICS SEND MAP('HOLAMP')
                MAPONLY
                ERASE
                NOHANDLE
             END-EXEC.

        FIN-PGM.
             EXEC CICS RETURN
             END-EXEC.
             GOBACK.