Question

How to define an exabyte constant in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. EXABYTE-DEMO.

DATA DIVISION.
WORKING-STORAGE SECTION.

*> 78-level items are true COBOL constants.
*> They cannot be changed at runtime.

*> 1 EiB = 2^60 = 1,152,921,504,606,846,976 bytes
78  EXABYTE-EIB  VALUE 1152921504606846976.

*> 1 EB = 10^18 = 1,000,000,000,000,000,000 bytes
78  EXABYTE-EB   VALUE 1000000000000000000.

PROCEDURE DIVISION.
    DISPLAY "1 EiB = " EXABYTE-EIB " bytes".
    DISPLAY "1 EB  = " EXABYTE-EB  " bytes".

    STOP RUN.
    

    
*> run:
*>
*> 1 EiB = 1152921504606846976 bytes
*> 1 EB  = 1000000000000000000 bytes
*>

 

70+ SQL courses for beginners and professionals