Asignar múltiples valores a variables con MOVE - Capítulo 17

Curso de COBOL desde cero


Hasta ahora habíamos visto cómo asignar un valor a una variable con MOVE. En este capítulo vamos un poco más allá. Vamos a asignar valores a múltiples variables en una sola instrucción.

Código

IDENTIFICATION DIVISION.
PROGRAM-ID. CAPITULO-17.

DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01  NUM1 PIC 99.
01  NUM2 PIC 99.
01  NUM3 PIC 99.
01  NUM4 PIC 99.
01  NUM5 PIC 99.
01  NUM6 PIC 99.

PROCEDURE DIVISION.
MOVE 10 TO NUM1 NUM2 NUM3 NUM4 NUM5 NUM6.
DISPLAY NUM1.
DISPLAY NUM2.
DISPLAY NUM3.
DISPLAY NUM4.
DISPLAY NUM5.
DISPLAY NUM6.

STOP RUN.

END PROGRAM CAPITULO-17.
10
10
10
10
10
10

Puedes utilizar esta forma de asignación con otros tipos de datos, no solo con números.

Para que no quede tan corto este capítulo, te voy a enseñar el uso de algunas palabras reservadas de COBOL para las variables.

Palabras reservadas SPACE y SPACES

En COBOL se recomienda que todas las variables sean iniciadas para evitar errores, no obstante, puede que en el desarrollo de tu programa, tengas claras las variables pero no los datos a introducir en ellas.

Si no quieres inicializar una variable con ningún valor, puedes hacerlo con un valor vacío de dos formas, por ejemplo, en una variable de tipo texto, se puede dejar un string vacío o con un espacio en blanco:

Código

01 TEXTO PIC XX VALUE ""
01 TEXTO PIC XX VALUE " "

No obstante, COBOL tiene una forma más elegante y apropiada para hacer esto, se trata de hacer uso de la palabra reservada SPACE o SPACES:

Código

01 TEXTO PIC XX VALUE SPACE
01 TEXTO PIC XX VALUE SPACES

Palabras reservadas ZERO, ZEROS y ZEROES

Si tu variable es de tipo numérico SPACE o SPACES no va a funcionar, ya que son de tipo string.
Para las variables numéricas puedes escribir un 0 o bien, puedes usar las palabras ZERO, ZEROS o ZEROES

Código

01 NUMERO PIC 99 VALUE 0
01 NUMERO PIC 99 VALUE ZERO
01 NUMERO PIC 99 VALUE ZEROS
01 NUMERO PIC 99 VALUE ZEROES

Suscríbete a mi canal de YouTube para apoyarme

Si te ha gustado este curso y crees que el trabajo merece la pena, te agradeceré eternamente que te suscribas a mi canal de YouTube para apoyarme y que pueda seguir haciendo cursos gratuitos.

Además, si te encanta la programación, tienes un montón más de cursos gratuitos para ver.

No solo eso, podrás participar enviándome comentarios con tus sugerencias para temas específicos o cursos completos o incluso las dudas que tengas y las intentaré ir resolviendo en los cursos que estén todavía abiertos.


Comentarios

Si te quedan dudas sobre el temario, sobre COBOL, o cualquier otra cosa relacionada o simplemente quieres agradecer, aquí tienes tu sitio para dejar tu granito de arena. Gracias por tus comentarios y por darle vida a este sitio web.