Introducció

En aquest tema, aprendrem sobre les variables i constants en COBOL, com declarar-les, inicialitzar-les i utilitzar-les en els nostres programes. Les variables i constants són fonamentals per emmagatzemar i manipular dades durant l'execució d'un programa.

Variables en COBOL

Declaració de Variables

En COBOL, les variables es declaren a la secció DATA DIVISION del programa. Les variables es defineixen en la WORKING-STORAGE SECTION o en la LOCAL-STORAGE SECTION. Aquí teniu un exemple bàsic de com declarar variables:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUMBER PIC 9(5).
01 WS-NAME   PIC A(20).
01 WS-SALARY PIC 9(7)V99.

Explicació del Codi

  • 01 WS-NUMBER PIC 9(5): Declara una variable numèrica de 5 dígits.
  • 01 WS-NAME PIC A(20): Declara una variable alfabètica de 20 caràcters.
  • 01 WS-SALARY PIC 9(7)V99: Declara una variable numèrica amb 7 dígits enters i 2 decimals.

Inicialització de Variables

Les variables es poden inicialitzar en el moment de la seva declaració utilitzant la clàusula VALUE:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUMBER PIC 9(5) VALUE 12345.
01 WS-NAME   PIC A(20) VALUE 'JOHN DOE'.
01 WS-SALARY PIC 9(7)V99 VALUE 50000.00.

Utilització de Variables

Les variables es poden utilitzar en diverses operacions com assignacions, càlculs i condicions. Aquí teniu un exemple:

PROCEDURE DIVISION.
    MOVE 100 TO WS-NUMBER.
    DISPLAY 'Number: ' WS-NUMBER.
    ADD 50 TO WS-NUMBER.
    DISPLAY 'Updated Number: ' WS-NUMBER.

Constants en COBOL

Declaració de Constants

Les constants es declaren a la secció DATA DIVISION utilitzant la clàusula CONSTANT. Aquí teniu un exemple:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CONSTANT-CONST PIC 9(5) CONSTANT 100.
01 WS-CONSTANT-NAME  PIC A(20) CONSTANT 'CONSTANT VALUE'.

Utilització de Constants

Les constants es poden utilitzar de manera similar a les variables, però el seu valor no es pot canviar durant l'execució del programa. Aquí teniu un exemple:

PROCEDURE DIVISION.
    DISPLAY 'Constant Value: ' WS-CONSTANT-CONST.
    DISPLAY 'Constant Name: ' WS-CONSTANT-NAME.

Exercicis Pràctics

Exercici 1: Declaració i Inicialització de Variables

Objectiu: Declarar i inicialitzar variables de diferents tipus i mostrar els seus valors.

Instruccions:

  1. Declara una variable numèrica de 4 dígits.
  2. Declara una variable alfabètica de 10 caràcters.
  3. Declara una variable numèrica amb 5 dígits enters i 2 decimals.
  4. Inicialitza les variables amb valors adequats.
  5. Mostra els valors de les variables.

Solució:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-NUMBER PIC 9(4) VALUE 1234.
01 WS-NAME   PIC A(10) VALUE 'EXAMPLE'.
01 WS-PRICE  PIC 9(5)V99 VALUE 123.45.

PROCEDURE DIVISION.
    DISPLAY 'Number: ' WS-NUMBER.
    DISPLAY 'Name: ' WS-NAME.
    DISPLAY 'Price: ' WS-PRICE.
    STOP RUN.

Exercici 2: Utilització de Constants

Objectiu: Declarar constants i utilitzar-les en un programa COBOL.

Instruccions:

  1. Declara una constant numèrica de 3 dígits.
  2. Declara una constant alfabètica de 15 caràcters.
  3. Mostra els valors de les constants.

Solució:

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-CONST-NUMBER PIC 9(3) CONSTANT 999.
01 WS-CONST-NAME   PIC A(15) CONSTANT 'CONSTANT TEXT'.

PROCEDURE DIVISION.
    DISPLAY 'Constant Number: ' WS-CONST-NUMBER.
    DISPLAY 'Constant Name: ' WS-CONST-NAME.
    STOP RUN.

Errors Comuns i Consells

  • Error: No inicialitzar les variables abans d'utilitzar-les.

    • Solució: Assegura't d'inicialitzar les variables amb valors adequats abans d'utilitzar-les en operacions.
  • Error: Intentar canviar el valor d'una constant.

    • Solució: Recorda que les constants no es poden modificar durant l'execució del programa. Utilitza variables si necessites canviar valors.

Conclusió

En aquest tema, hem après com declarar, inicialitzar i utilitzar variables i constants en COBOL. Les variables ens permeten emmagatzemar i manipular dades, mentre que les constants ens proporcionen valors fixos que no canvien durant l'execució del programa. Aquests conceptes són fonamentals per a la programació en COBOL i ens preparen per a temes més avançats.

© Copyright 2024. Tots els drets reservats