COBOL - Sintaxis Básica


Advertisements

Conjunto de caracteres

"Los personajes son los más bajos en la jerarquía y que no se puede dividir más. El COBOL Juego de caracteres incluye 78 caracteres que se muestran a continuación:

CarácterDescripción
A-ZAlfabetos(mayúsculas)
A-zAlfabeto (Minúsculas)
0-9Valor Numérico
Espacio
+Signo más
-Signo menos o guión
*Asterisco
/Barra inclinada
$Símbolo de moneda
,Coma
;Punto y coma
.Punto decimal o Período
"Comillas
(Paréntesis izquierdo
)Paréntesis derecho
>Mayor que
<Menos de
:Colon
'Apóstrofe
=Signo Igual

Hoja de codificación

El programa de origen de COBOL debe estar escrito en un formato aceptable para los compiladores. Programas COBOL se escriben en hojas codificación COBOL. Hay 80 caracteres en cada una de las líneas de un hoja de codificación.

Posiciones de caracteres se agrupan en los siguientes cinco campos:

Posiciones Campo Descripción
1-6 Números de la columna Reservado para los números de línea.
7 Indicador Puede tener asterisco ( * ) indicando las observaciones, un guión ( -) en la que se indica continuación y barra diagonal ( / ) en la que se indica de forma.
8-11 UNA Zona COBOL todos las divisiones, secciones, párrafos y algunas entradas especiales debe comenzar en la zona A.
12-72 Zona B Las instrucciones COBOL debe comenzar en la zona B.
73-80 Área de identificación Se puede utilizar como necesaria por el programador.

Ejemplo

El siguiente ejemplo muestra una codificación COBOL hoja:

000100 IDENTIFICACIÓN DIVISIÓN. 000100
000200 PROGRAMA-ID. HOLA. 000101
000250 * ESTE ES UN COMENTARIO LÍNEA
000300 000102 PROCEDIMIENTO DIVISIÓN. 000103
000350 A000-PRIMER PÁRR. 000104
000400 PANTALLA "Codificación".  000105
000500 FIN DE FUNCIONAMIENTO. 000106

JCL para ejecutar el programa COBOL:

//MUESTRA TRABAJOS TESTJCL,XXXXXX) ,CLASS=A,MSGCLASS=C
//PASO1 EXEC PGM=HOLA

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

Hoja de codificación

Cadenas de caracteres

Las cadenas de caracteres se forman combinando caracteres individuales. Una cadena de caracteres puede ser un

  • Comentario
  • Literal, o
  • COBOL palabra.

Todas las cadenas de caracteres debe ser finalizado con separadores. Un separador es utilizado para separar las cadenas de caracteres.

Con frecuencia utilizan separadores : Espacio, coma, Punto, apóstrofe, paréntesis izquierdo y derecho, y comillas.

Comentario

Un comentario es una cadena de caracteres que no afecta a la ejecución de un programa. Puede ser cualquier combinación de caracteres.

Hay dos tipos de comentarios:

Línea de comentario

Línea de comentario puede ser escrito en cualquier columna. El compilador no comprueba una línea de comentario para la sintaxis y lo trata de documentación.

Entrada de comentario

Las entradas de comentarios son los que se incluyen en los párrafos opcionales de una identificación División. Están escritas en la Zona B y a los programadores utilizar como referencia.

El texto resaltado en negrita son los comentarios entradas en el siguiente ejemplo:

000100 IDENTIFICACIÓN DIVISIÓN. 000100
000150 PROGRAMA-ID. HOLA. 000101
000200 AUTOR. TUTORIALSPOINT. 000102
000250 * ESTE ES UN COMENTARIO LÍNEA
000300 000103 PROCEDIMIENTO DIVISIÓN. 000104
000350 A000-PRIMER PÁRR. 000105
000360/ Primer párrafo comienza - Propósito de Documentación 000106
000400 "línea de comentario".  000107
000500 FIN DE FUNCIONAMIENTO. 000108

JCL COBOL para ejecutar programas anteriores:

//MUESTRA TRABAJOS TESTJCL,XXXXXX) ,CLASS=A,MSGCLASS=C
//PASO1 EXEC PGM=HOLA

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

Línea de comentario

Literal

Literal es una constante que es codificada directamente en el programa. En el siguiente ejemplo: "Hola Mundo" es literal.

PROCEDIMIENTO DIVISIÓN.
PANTALLA "Hello World".

Hay dos tipos de literales como se explica a continuación:

Literal Alfanumérico

Alfanuméricos son literales entre comillas o apóstrofe. Puede tener una longitud de hasta 160 caracteres. Un apóstrofe o un presupuesto puede ser una parte de un literal sólo si está sincronizado. Inicio y fin de la literal debe ser la misma, ya sea apóstrofe o el presupuesto.

Ejemplo

El ejemplo siguiente muestra válida y alfanuméricos los literales no válido:

Válido:
"Esto es válido",
"Esto es válido"
"Este no es válido"

no es válido:
"Esto no es válido"
"Esto no es válido"

Literal Numérico

Un literal numérico es una combinación de dígitos del 0 al 9, +, -, o punto decimal. Puede tener una longitud de hasta 18 caracteres. Signo no puede ser el de la derecha. Punto decimal no debe aparecer en el extremo.

Ejemplo

El ejemplo siguiente muestra válidos y no válidos los literales numéricos:

Válido:
100
10,9
-1,9

válido:
1,00
10.
10.9 -

COBOL Palabra

COBOL Palabra es una cadena de caracteres que puede ser una palabra reservada o definido por el usuario. Puede tener una longitud de hasta 30 caracteres.

Definido por el usuario

Definido por el usuario se utilizan palabras para nombrar archivos, datos, registros, párrafo nombres y secciones. Letras, números y guiones están permitidos mientras formando palabras definidas por el usuario. No puede utilizar COBOL palabras reservadas.

Palabras reservadas

Palabras reservadas son palabras predefinidas en COBOL. Diferentes tipos de palabras reservadas que utilizamos con frecuencia son los siguientes:

  • Palabras clave tales como agregar, ACEPTAR, mover, etc.

  • Caracteres Especiales palabras como +, -, * , <, <=, etc

  • Las constantes son figurativos valores constantes como CERO, espacios, etc. Todos los valores de las constantes de las constantes figurativas se mencionan en la tabla siguiente:

Las constantes figurativas

Las constantes figurativas Descripción
ALTA DE VALORES Uno o más caracteres que va a ser la posición más alta en orden descendente.
BAJA DE VALORES Uno o más caracteres con ceros en representación binaria.
CERO/CERO Uno o más un cero, dependiendo de el tamaño de la variable.
ESPACIOS Uno o más espacios en blanco.
LAS COMILLAS Comillas simples o dobles.
TODO literal Rellena los datos con Literal.
Advertisements