¿COBOL en Visual Studio 2010? ¡Sí!

Para muchos desarrolladores COBOL del mundo (entre los que me incluyo) siempre había sido un deseo confesable el poder usar un único entorno en caso de desarrollar en otros lenguajes habitualmente. Pues bien, este producto, llamado COBOLizer, nos permite mantener nuestras aplicaciones COBOL sin tener que salir de nuestro IDE favorito,Visual Studio 2010. Aporta asistentes para crear proyectos específicos en este lenguaje, Intellisense, Cliente de Terminal integrado para gestionar las operaciones en el mainframe, editor del código fuente personalizado y muchas más novedades. Otra prueba más de que ¡Cobol sigue vivo!.

1 comentario :

  1. Hola.
    Estoy tratando de programar en cobol, en visual studio 2010, una utilidad que maneja una base de datos DB2.

    Debo tener un problema en la configuración del proyecto porque le menu principal, que es una tontería me dá un error que no entiendo.
    el error es: Error 1 COBCH0801 : SQL0104N Se ha encontrado un símbolo "FIN DE SENTENCIA" inesperado a continuación de "USING". Los símbolos esperados pueden incluir: "". C:\Documents and Settings\db2admin\Mis documentos\Visual Studio 2010\Projects\ocaso-db2\ocaso-db2\MENU-PRIN.cbl 1 8 ocaso-db2

    Este error aparece señalado en la frase:
    IDENTIFICATION DIVISION. Es decir al principio dle programa
    el codigo fuente es el siguiente:
    identification division.
    program-id. MENU_PRIN.

    environment division.
    configuration section.

    *as "ocaso_db2.MENU_PRIN".

    data division.
    working-storage section.
    01 W-OP pic x.
    procedure division.
    despliego-menu.
    display "menu-principal" column 1 line 1 reverse-video erase eos
    "MENU PRINCIPAL" Line 2 position 20
    "1) Menu cobro" line 7 column 10
    "2) Menu Polizas" line 9 column 10
    "3) SALIR DEL SISTEMA" LINE 11 COLUMN 10
    "INGRESE UNA OPCION: " LINE 20 COLUMN 5.

    ACEPTO-OPCION.
    ACCEPT W-OP LINE 20 COL 26 PROMPT SIZE 1.

    IF W-OP < 1 OR W-OP > 3 GO TO ACEPTO-OPCION.
    IF W-OP = 1 CALL "menu-cobro".
    IF W-OP = 2 CALL "menu-polizas".
    if W-OP = 3 GO TO FIN.
    GO TO DESPLIEGO-MENU.

    FIN.
    STOP RUN.
    end program MENU_PRIN.

    Por favor, háganme llegar sus sugerencias.

    ResponderEliminar

Buscar en el Blog: