01 TEST-DATE.
05 D-YEAR PIC 9(4).
05 D-MONTH PIC 9(2).
05 D-DAY PIC 9(2).
add 1 to d-month.
If you definately need the field in x-format, then add the
following
01 TEST-NUM-DATE REDEFINES TEST-DATE.
05 NUM-D-YEAR PIC 9(4).
05 NUM-D-MONTH PIC 9(2).
05 NUM-D-DAY PIC 9(2)...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.