2-Variables.cbl

      ******************************************************************
      * Author: Cristopher Bohol
      * Date: March 29, 2022
      * Purpose: Programming Languages Report
      * Tectonics: cobc
      ******************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. DECLARING_VARIABLES.
       DATA DIVISION.
      *working storage defines variables
       WORKING-STORAGE SECTION.
      *define a number with a sign, 3 numbers, a decimal, and then
      *two numbers aafter the decimal. by default it should be 0 filled
       01 FIRST-VAR PIC S9(3)V9(2).
      *do the same thing as above but actually initialize
      *to a number -123.45
       01 SECOND-VAR PIC S9(3)V9(2) VALUE -123.45.
      *defines an alphabetic string and initialize it to abcdef
       01 THIRD-VAR PIC A(6) VALUE 'ABCDEF'.
      *define an alphanumeric string and initialize it to a121$
       01 FOURTH-VAR PIC X(5) VALUE 'A121$'.
      *create a grouped variable
       01 GROUP-VAR.
           05 SUBVAR-1 PIC 9(3) VALUE 337.
      *    create 3 alphanumerics, but use less than
      *    the allocated space for each of them
           05 SUBVAR-2 PIC X(15) VALUE 'LALALALA'.
           05 SUBVAR-3 PIC X(15) VALUE 'LALALA'.
           05 SUBVAR-4 PIC X(15) VALUE 'LALALA'.

      *print our variables
       PROCEDURE DIVISION.
       DISPLAY "1ST VAR :"FIRST-VAR.
       DISPLAY "2ND VAR :"SECOND-VAR.
       DISPLAY "3RD VAR :"THIRD-VAR.
       DISPLAY "4TH VAR :"FOURTH-VAR.
       DISPLAY "GROUP VAR :"GROUP-VAR.
       END PROGRAM DECLARING_VARIABLES.