How to initialize variables in COBOL

1 Answer

0 votes
IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-PRO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 99V99 VALUE IS 3.14.
   01 A-S PIC A(5) VALUE 'cobol'.
   01 A-VAL PIC 99 VALUE ZERO.
   01 A-NUM2 PIC S9(1)V9(2) VALUE -3.14.

PROCEDURE DIVISION.
   DISPLAY "A-NUM1 : "A-NUM1.
   DISPLAY "A-S : "A-S.
   DISPLAY "A-VAL : "A-VAL.
   DISPLAY "A-NUM2 : "A-NUM2.
STOP RUN.



# run:
#
# A-NUM1 : 03.14
# A-S : cobol
# A-VAL : 00
# A-NUM2 : -3.14

 



answered Sep 17, 2020 by avibootz

Related questions

1 answer 131 views
2 answers 617 views
617 views asked Sep 18, 2020 by avibootz
2 answers 325 views
325 views asked Sep 18, 2020 by avibootz
2 answers 361 views
361 views asked Sep 17, 2020 by avibootz
2 answers 343 views
343 views asked Sep 17, 2020 by avibootz
1 answer 284 views
284 views asked Sep 17, 2020 by avibootz
...