      * https://rosettacode.org/wiki/Show_the_epoch#COBOL
       IDENTIFICATION DIVISION.
       PROGRAM-ID. epoch.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  EPOCH-DATE.
           03  YEAR                PIC 9(4).
           03  MONTH               PIC 99.
           03  DDAY                PIC 99.

       PROCEDURE DIVISION.
           MOVE FUNCTION DATE-OF-INTEGER(1) TO EPOCH-DATE

           DISPLAY YEAR "-" MONTH "-" DDAY

           GOBACK
           .
