        IDENTIFICATION DIVISION.
        PROGRAM-ID. Example.

        DATA DIVISION.
         WORKING-STORAGE SECTION.
         01 CURRENT-DATE-TIME PIC X(14).
         01 FORMATTED-DATE.
             05 YEAR PIC X(4).
             05 MONTH PIC X(2).
             05 WS-DAY PIC X(2).
         01 DISPLAY-DATE PIC X(10).
         
         PROCEDURE DIVISION.
         MOVE FUNCTION CURRENT-DATE TO CURRENT-DATE-TIME
         
         *> Parse date components
         MOVE CURRENT-DATE-TIME(1:4) TO YEAR
         MOVE CURRENT-DATE-TIME(5:2) TO MONTH
         MOVE CURRENT-DATE-TIME(7:2) TO WS-DAY
         
         *> Format as MM/DD/YYYY
         STRING MONTH '/' WS-DAY '/' YEAR
             INTO DISPLAY-DATE
         END-STRING
         DISPLAY 'Formatted date: ' DISPLAY-DATE.
