Ir al contenido principal

COBOL para principiantes(#2)

Imagen
De Dr. Lang

En esta serie de post estaremos hablando de tips, ejemplos y cosas sobre el lenguaje COBOL.

Recordar: Existen tres tipos de variables en COBOL.
  1. Alfabéticas: PIC A
  2. Numéricas: PIC 9
  3. Alfanuméricas: PIC X


Uso de MOVE. Empleamos esta palabra reservada para "mover" valores/datos a una variable previamente definida.

*> Variable
01 NUMERO PIC 9(3)V99.

 
*> Uso de MOVE
MOVE 3.5 TO NUMERO. *> HORA NUMERO VALE 003.5

MOVE 0.32 TO NUMERO. *> HORA NUMERO VALE 000.32

Uso de PERFORM. Es similar al CALL de los archivos bat de Windows. Sirve para transferir el control del programa a un párrafo definido. En este ejemplo el párrafo es 'MiFuncion'. Existen formatos que podemos seguir, en este caso es el más simple.

*> DESDE EL 'MAIN' DEL PROGRAMA
PERFORM MiFuncion.


*> Función
MiFuncion.
 DISPLAY "ESTO ES UN MENSAJE"

Ejemplo. Definir dos variables, la primera de tipo numérico (PIC 9). La segunda, de tipo alfanumérico (PIC X). Existe un tercer tipo (PIC A) para variables alfabéticas.  La palabra MOVE nos ayudará a asignar valores. El párrafo MOVIMIENTOS será donde se efectuaran estas operaciones. PERFORM le dará el control dentro del 'MAIN' del programa.

IDENTIFICATION DIVISION.
PROGRAM-ID. USO_DE_MOVE.
AUTHOR HIRONAKAMURA.
INSTALLATION. GITHUB.
DATE-WRITTEN. 16/11/19.
DATE-COMPILED 16/11/19.
SECURITY. NO ES CONFIDENCIAL.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. HP.
OBJECT-COMPUTER. HP.


DATA DIVISION.
WORKING-STORAGE SECTION.
01 PRECIO PIC 9(4)V99.
01 NOMBRE PIC X(30) VALUE "MARIANA".


PROCEDURE DIVISION.
  PERFORM MOVIMIENTOS.
STOP RUN.

MOVIMIENTOS.
  DISPLAY "***USO DE MOVE EN COBOL ***".
  MOVE ZEROS TO PRECIO.
  DISPLAY "PRECIO = "PRECIO.
  MOVE 34.5 TO PRECIO.
  DISPLAY "PRECIO = "PRECIO.
  MOVE 123 TO PRECIO.
  DISPLAY "PRECIO = "PRECIO.
  MOVE 0.76 TO PRECIO.
  DISPLAY "PRECIO = "PRECIO.
  MOVE 1231 TO PRECIO.
  DISPLAY "PRECIO = "PRECIO.
  DISPLAY "NOMBRE (ORIGINAL): "NOMBRE.
  MOVE "LAURA" TO NOMBRE.
  DISPLAY "NOMBRE: "NOMBRE.
  MOVE "JULIA" TO NOMBRE.
  DISPLAY "NOMBRE: "NOMBRE.

COBOL es un lenguaje estructurado donde es importante respetar la lógica secuencial. Un arma de dos filos para los programadores.

En siguientes post trataremos más temas.

Enlaces importantes:
http://www.escobol.com/
Etiquetas:

Comentarios

Publicar un comentario

Entradas populares de este blog

Rocket: un framework web para Rust

De Beta
Rocket Framework es: Un framework web escrito en Rust.   Inspirado en Rails, Flask, Bottle y Yesod.  Admite el manejo de solicitudes HTTP, Web Sockets, JSON, plantillas y más. Creando un proyecto con Rocket Framework En primer lugar, verificamos la instalación de Rust en nuestras máquinas: rustc - - version Continuamos con la configuración de Rust nightly como nuestra cadena de herramientas predeterminada ejecutando el comando: rustup default nightly Si lo prefieres, una vez que configuremos un directorio de proyecto en la siguiente sección, puedes usar anulaciones por directorio para usar la versión nocturna solo para tu proyecto Rocket ejecutando el siguiente comando en el directorio: rustup override set nightly Creamos nuevo proyecto `` hola-rocket `` y nos ubicamos en el directorio creado: cargo new hola - rocket - - bin cd hola - rocket Con Cargo, agregamos la dependencia de rocket: cargo add rocket Abrimos el archivo `` Cargo.toml `` Ca...
Publicar un comentario
Leer más

Odin language: el lenguaje de programación orientado a datos para un desarrollo de software sensato

De Dr. Lang
En esta serie sobre lenguajes de programación hablamos de Odin , un lenguaje orientado a datos. Un nuevo lenguaje de programación que nos podrá recordar a lenguajes como C++, Python, Golang o hasta Rust. Instalación (Windows): 1 2 3 4 $ git clone https://github.com/odin-lang/Odin $ cd Odin $ git pull $ build.bat release Debemos asegurarnos de crear la variable de entorno: Nombre: ODIN_HOME Valor: C:\Users\HP\Documents\pruebasOdin\Odin Ejemplo 1. Como primer programa tendremos al clásico "Hola, mundo". holamundo.odin package holamundo import " core:fmt " main : : proc ( ) { fmt . println ( " ¡Hola, mundo desde Odin! " ) } Construimos: $ odin build holamundo . odin - file Ejecutamos: $ holamundo .exe Recordar que si usamos Visual Studio Code podemos instalar el plugin de Odin Language: https://marketplace.visualstudio.com/items?itemName=DanielGavin.ols Ejemplo 2. Programa que muestre las variables que pod...
Publicar un comentario
Leer más

Programación Windows Batch (CMD) parte 3

De Dr. Lang
Crear ciclos para efectuar operaciones tediosas nos ahorrará tiempo para realizar otras tareas. En está ocasión veremos ciclos con FOR . ¿Cuál es la síntaxis de bucle FOR en Windows Batch? Si está dentro de un archivo *.bat : FOR %%variable IN (seq) DO operaciones Si lo ejecutamos en una terminal: FOR %variable IN (seq) DO operaciones Ejemplo 1 . Recorrer una secuencia de números del 0 al 5: recorrer.bat @ echo off FOR %%i in ( 0 1 2 3 4 5 ) DO echo Hola no. %%i pause Nos imprimirá en pantalla: Hola no. 0 Hola no. 1 Hola no. 2 Hola no. 3 Hola no. 4 Hola no. 5 ¿Puedo usar contadores? Si, se pueden usar. Ejemplo 2 . Uso de contadores: contador.bat @ echo off set numeros = 1 2 3 4 5 6 7 8 9 10 set cont = 0 for %%a in ( %numeros% ) do ( echo Hola no. %%a :: Contador set /a cont+ = 1 ) echo Total: %cont% Este código nos imprimirá, además de los mensajes Hola no. 0 ..., el total de valores conta...
3 comentarios
Leer más