Asignar múltiples valores a variables con MOVE

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.

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.

Resultado

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.

Las 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:

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:

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

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