Question

How to define a storage with different data description in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-PRO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-A.
   02 A-NUM1 VALUE '19873902'.
   02 A-NUM2 REDEFINES A-NUM1 PIC 9(8).

PROCEDURE DIVISION.
   DISPLAY "A-NUM1 : "A-NUM1.
   DISPLAY "A-NUM2 : "A-NUM2.

STOP RUN.


# run:
#
# A-NUM1 : 19873902
# A-NUM2 : 19873902

 

Cleaner teeth, healthier you!
Get The Secret to a Bright and Healthy Smile