**判斷星期幾 DATA ss TYPE d VALUE '20090726'. DATA tt TYPE c. tt = ss MOD 7. IF tt > 1. tt = tt - 1. ELSE. tt = tt + 6. ENDIF. WRITE tt.