*COMDECK CURDATE
       01 WK-DATE.
           02 Y    PICTURE 99.
           02 M    PICTURE 99.
           02 D    PICTURE 99.
       01 WK-DATEX. 
           02 MX   PICTURE 99.
           02 FILLER   PICTURE X   VALUE "/". 
           02 DX   PICTURE 99.
           02 FILLER   PICTURE X   VALUE "/". 
           02 YX   PICTURE 99.
