C MOVE UDATE DATE 60 C EXSR DATCHK C****************************************************** C DATCHK BEGSR C****************************************************** C*( t ޥٰ ) FOR YY/MM/DD CSR MOVE *IN51 IN51 1 CSR MOVE *IN52 IN52 1 CSR DATE MULT .0001 $YEAR 20 99 C** SUB 88 $YEAR CSRN99 DATE MULT .01 $MONTH 20 99 CSRN99 Z-ADDDATE $DAY 20 99 CSRN99 $MONTH COMP 12 99 CSRN99 $YEAR MULT .25 $CHKLY 11 50 CSRN99 $MONTH COMP 2 51 CSRN99 $MONTH MULT 1.07 $MONTH H CSRN99 $MONTH DIV 2 $CHKLY 52 CSRN99N51 52$DAY COMP 30 99 CSRN99N51N52$DAY COMP 31 99 CSRN99 51N50$DAY COMP 28 99 CSRN99 51 50$DAY COMP 29 99 CSR MOVE IN51 *IN51 CSR MOVE IN52 *IN52 CSR DATEND ENDSR