*COMDECK ACCEPTDT 
           ACCEPT WK-DATE FROM DATE.
           MOVE Y TO YX.
           MOVE M TO MX.
           MOVE D TO DX.
           MOVE WK-DATEX TO CURRENT-DATE. 
