*記日志模塊
*程序名：jrz
*程序員：莊稼
*開發日期：1997.11.20
*最后修改日期：
*修改記錄

*變量說明

parameters czy,cz
private all except p_*

do dksjk with 'rzk','rzk'
append blank
replace 日期 with date(),;
  時間 with time(),;
  操作員 with czy,;
  操作 with cz