T A R E A    11

Cobol

Sintaxis y simbolos

• Comentarios: un texto que no es mostrado o utilizado para el algoritmo del programa, sino que es una guía o comentario para el programador que esté modificando o realizando el programa.
  • Sintaxis: Se utiliza el signo * seguido del comentario.
  • También después de concluir una linea de codigo, se puede redactar el comentario y terminar este con un punto. (Se resaltará en negritas).
• Palabras reservadas:
  • Palabras clave como agregar, aceptar, mover, etc.
  • Caracteres Especiales palabras como +, -, * , <, <=
  • Las constantes son figurativos valores constantes como CERO, espacios
• Tipos de datos: División de Información se utiliza para definir las variables utilizadas en el programa.
  • Nombres de Datos: Nombres de datos debe estar definido en la División de Información antes de utilizarlas en la Division de Procedure.
    • División de Información se utiliza para definir las variables utilizadas en el programa.
    • Sintaxis valida: WS-NAME
  • Número de Nivel: Número de nivel se utiliza para especificar el nivel de datos en un registro.
    • 01 - Descripción del registro entrada
    • 02 A 49 - Grupo elemental y elementos
    • 66 - Cláusula Rename elementos
    • 77 - Elementos que no pueden ser sub-divididos
    • 88 - Nombre de la Condición de entrada.
    • Sintaxis: 01 WS-CLASS PIC 9(2) VALUE '10'.
  • Número de Nivel: Número de nivel se utiliza para especificar el nivel de datos en un registro.
    • 9 - Valor numerico
    • A - Orden alfabetico
    • X - Alnumerico
    • V - Decimal implicito
    • S - Signo
    • P - Decimal asumido
    • Ejemplos:
      • 01 WS-NUM1 PIC S9(3)V9(2) --------> WS-NUM1 : +000.00
      • 01 WS-NUM2 PIC PPP999. --------> WS-NUM2 : .000000
      • 01 WS-NUM3 PIC S9(3)V9(2) VALUE -123.45. --------> WS-NUM3 : -123.45
      • 01 WS-NAME PIC A(6) VALUE 'ABCDEF'. --------> WS-NAME : ABCDEF
• Entradas y salidas: Entrada/Salida los verbos se usan para obtener los datos del usuario y mostrar la salida de programas COBOL.
  • Aceptar Verbo: Aceptar verbo se utiliza para obtener datos como la fecha, hora y día del sistema operativo o directamente desde el usuario.
  • Sintaxis: ACCEPT WS-DATE FROM SYSTEM-DATE.
  • Mostrar verbo: Mostrar verbo se usa para mostrar la salida de un programa COBOL.
  • Sintaxis: DISPLAY "System date is : " WS-DATE.

Esqueleto

IDENTIFICATION DIVISION.

PROGRAM-ID. XXXX.

   DATA DIVISION

   *Programa

   RPOCEDURE DIVISION

   *Programa

STOP RUN.

Uso

Aplicación para editar y ejecutar

Un plugin de Visual Cobol para Visual Studio O Open Cobol. También existe el Online COBOL Compiler para compilar desde la web.

Paradigma

Paradigma Imperativo.

Ejemplo

IDENTIFICATION DIVISION.

PROGRAM-ID. HELLO.

>

   DATA DIVISION.

       WORKING-STORAGE SECTION.

       01 WS-NUM1 PIC 9(9).

       01 WS-NUM2 PIC 9(9).

       01 WS-NUM3 PIC 9(5).

       01 WS-NUM4 PIC 9(6).

       01 WS-ADDRESS.

       05 WS-HOUSE-NUMBER PIC 9(3).

       05 WS-COUNTRY PIC X(5).

       05 WS-PINCODE PIC 9(6).

       01 WS-ADDRESS1.

       05 WS-HOUSE-NUMBER1 PIC 9(3).

       05 WS-COUNTRY1 PIC X(5).

       05 WS-PINCODE1 PIC 9(6).

>

   PROCEDURE DIVISION.

       A000-FIRST-PARA.

       MOVE 123456789 TO WS-NUM1.

       MOVE WS-NUM1 TO WS-NUM2 WS-NUM3.

       MOVE WS-NUM1(3:6) TO WS-NUM4.

       MOVE 123 TO WS-HOUSE-NUMBER.

       MOVE 'INDIA' TO WS-COUNTRY.

       MOVE 112233 TO WS-PINCODE.

       MOVE WS-ADDRESS TO WS-ADDRESS1.

>

       DISPLAY "WS-NUM1     : " WS-NUM1

       DISPLAY "WS-NUM2     : " WS-NUM2

       DISPLAY "WS-NUM3     : " WS-NUM3

       DISPLAY "WS-NUM4     : " WS-NUM4

       DISPLAY "WS-ADDRESS  : " WS-ADDRESS

       DISPLAY "WS-ADDRESS1 : " WS-ADDRESS1

>

STOP RUN.