Question

How to define a terabyte constant in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. TERABYTE-DEMO.

DATA DIVISION.
WORKING-STORAGE SECTION.

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

*> 1 TiB = 2^40 = 1,099,511,627,776 bytes
78  TERABYTE-TIB  VALUE 1099511627776.

*> 1 TB = 10^12 = 1,000,000,000,000 bytes
78  TERABYTE-TB   VALUE 1000000000000.

PROCEDURE DIVISION.
  DISPLAY "1 TiB = " TERABYTE-TIB " bytes".
  DISPLAY "1 TB  = " TERABYTE-TB  " bytes".
  STOP RUN.



*> run:
*> 
*> 1 TiB = 1099511627776 bytes
*> 1 TB  = 1000000000000 bytes
*>

 

70+ SQL courses for beginners and professionals