Published on: Wednesday, November 15, 2023

DATE YYYYMMDD

How to use DATE YYYYMMDD

WORKING-STORAGE SECTION.
  01 WS-DATE PIC X(8).

PROCEDURE DIVISION.
  ACCEPT WS-DATE FROM DATE YYYYMMDD
  DISPLAY 'Current date ='
          WS-DATE(1:4) '-'
          WS-DATE(5:2) '-'
          WS-DATE(7:2)
  GOBACK.