COBOL - Configuracin del Entorno

Instalar COBOL en Windows/Linux

Existen muchos Mainframe Los Emuladores disponibles para Windows, lo que se puede utilizar para escribir y aprender simples programas COBOL.

Uno de los emuladores es Hrcules, que se puede instalar fcilmente en Windows siguiendo unos sencillos pasos como se indica a continuacin:

Descargue e instale el emulador Hercules, que est disponible en el sitio de la casa de Hrcules: www.hercules-390.eu
Una vez que haya instalado el paquete en mquina Windows, se crear una carpeta como C:\hrcules\mvs\cobol.
Ejecutar la lnea de comandos (CMD) y llegar al directorio C:\hrcules\mvs\cobol en CMD.

Hercules es el resultado de una implementacin de software de fuente abierta de la mainframe System/370 y de la ESA/390 arquitecturas, adems de los ltimos 64 bits z/Architecture. Hrcules se ejecuta bajo Linux, Windows, Solaris, FreeBSD y Mac OS X.

Un usuario puede conectarse a un servidor central en un nmero de maneras diferentes, un cliente ligero, un terminal, Virtual Client System (VCS), o Virtual Desktop System (VDS). Cada usuario vlido dado un id de inicio de sesin para entrar en el Z/OS interfaz (TSO/E o ISPF).

Compilar programas COBOL.

Con el fin de ejecutar un programa COBOL en modo de proceso por lotes utilizando JCL, es preciso compilar el programa, y un mdulo de carga se crea con todos los sub-programas. El JCL utiliza el mdulo de carga y no el programa en el momento de la ejecucin. Las bibliotecas de carga se concatenan y dada en el JCL en el momento de la ejecucin mediante JCLLIB o STEPLIB.

Hay muchas utilidades mainframe compilador para compilar un programa COBOL. Algunas empresas utilizan herramientas de administracin de cambios como actuacin, que compila y almacena todas las versiones del programa. Esto es til en el seguimiento de los cambios realizados en el programa.

//COMPILE   JOB ,CLASS=6,MSGCLASS=X,NOTIFY=&SYSUID             
//*            
//STEP1     EXEC IGYCRCTL,PARM=RMODE,DYNAM,SSRANGE
//SYSIN     DD DSN=MYDATA.URMI.SOURCES(MYCOBB),DISP=SHR
//SYSLIB    DD DSN=MYDATA.URMI.COPYBOOK(MYCOPY),DISP=SHR
//SYSLMOD   DD DSN=MYDATA.URMI.LOAD(MYCOBB),DISP=SHR
//SYSPRINT  DD SYSOUT=*
//*

Es un IBM IGYCRCTL compilador COBOL utilidad. Las opciones del compilador se pasan con el PARM parmetro. En el ejemplo anterior, RMODE indica al compilador que utilice modo de direccionamiento relativo en el programa. El programa COBOL se transmite mediante el parmetro SYSIN. Copybook es la biblioteca utilizada por el programa en SYSLIB.

Ejecutar programas COBOL.

A continuacin es un JCL ejemplo en caso de que el programa se ejecuta MIPROG utilizando el archivo de entrada MYDATA.URMI.INPUT y produce dos archivos de salida en el carrete.

//COBBSTEP  JOB CLASS=6,NOTIFY=&SYSUID
//
//STEP10    EXEC PGM=MYPROG,PARM=ACCT5000
//STEPLIB   DD DSN=MYDATA.URMI.LOADLIB,DISP=SHR
//INPUT1    DD DSN=MYDATA.URMI.INPUT,DISP=SHR
//OUT1      DD SYSOUT=*
//OUT2      DD SYSOUT=*
//SYSIN     DD *
//CUST1     1000
//CUST2     1001
/*

El mdulo de carga de MIPROG se encuentra en MYDATA.URMI.LOADLIB. Esto es importante sealar que el JCL se puede utilizar para un no-COBOL DB2 slo en el mdulo.

Ejecutar COBOL DB2 programas

Para la ejecucin de una COBOL-DB2 programa especializado, IBM se utiliza la utilidad en el JCL y el programa, DB2 y se pasan los parmetros necesarios como entrada a la utilidad.

Los pasos seguidos en la realizacin de un COBOL DB2 programa son los siguientes:

Cuando el COBOL DB2 programa se compila, DBRM (Solicitud de Base Module) es creado junto con el mdulo de carga. El DBRM contiene las sentencias SQL del COBOL programas con su sintaxis se comprueba que es correcta.
El DBRM est vinculado a la DB2 (medio ambiente) en el que el COBOL. Esto se puede hacer utilizando la utilidad IKJEFT01 en un JCL.
Despus del enlace, el COBOL DB2 se ejecuta el programa mediante IKJEFT01 (de nuevo) con la biblioteca de carga y el DBRM biblioteca como la entrada para el.

//STEP001  EXEC PGM=IKJEFT01
//*
//STEPLIB  DD DSN=MYDATA.URMI.DBRMLIB,DISP=SHR
//*
//input files
//output files
//SYSPRINT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISPLAY  DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD *

   DSN SYSTEM(SSID)
   RUN PROGRAM(MYCOBB) PLAN(PLANNAME) PARM(parameters to cobol program) -
   LIB('MYDATA.URMI.LOADLIB')
   END
/*

En el ejemplo anterior, MYCOBB es el COBOL DB2 ejecucin de programa utilizando IKJEFT01. Por favor tenga en cuenta que el nombre del programa,DB2 Sub-System Id (SSID), y DB2 nombre del Plan se aprob en el SYSTSIN DD. El DBRM biblioteca se especifica en la STEPLIB.

Pruebe en lnea, opcin

Usted realmente no tiene que configurar su propio entorno para empezar a aprender lenguaje de programacin COBOL. Razn es muy simple, ya hemos establecido entorno de programacin COBOL en lnea, de modo que se puede compilar y ejecutar todos los ejemplos disponibles en lnea al mismo tiempo cuando usted est haciendo su teora. Esto le da confianza en lo que estn leyendo y para comprobar el resultado con las diferentes opciones. Sintase libre para modificar cualquier ejemplo y ejecutar en lnea.

Pruebe el siguiente ejemplo usando nuestro Probar opcin disponible junto con el cdigo de nuestra pgina web.

IDENTIFICACIN DIVISIN.
PROGRAMA-ID. HOLA.

PROCEDIMIENTO DIVISIN.
PANTALLA "Hello World".
FIN DE FUNCIONAMIENTO.

Cuando se compila y ejecuta el programa antes mencionado, se produce el resultado siguiente:

Hello World

Para algunos de los ejemplos de este tutorial, usted encontrar laprobar opcin en nuestro sitio web selecciones de cdigo en la esquina derecha que te llevar a la compilador en lnea. As que tan slo hacer uso de ella y disfrutar de su aprendizaje. Intente que opcin sera trabajar slo con el cdigo compatible con OpenCOBOL. Los programas que requieren JCL (archivo de entrada, archivo de salida o parmetros) para su ejecucin, no se ejecute en Tryit opcin.

Print Page