PROC L800 ;SBLOF DISPLOF ACTBLOCNO
DEF INT ERR=0
DEF STRING[80] _STRG1, _TF
_TF="_N_A_HZ"
WRITE(ERR, _TF, "生成时时间: "<<$A_YEAR<<"."<<$A_MONTH<<"."<<$A_DAY<<"_"<<$A_HOUR<<":"<<$A_MINUTE)
WRITE(ERR, _TF, "当前程序名 :"<<$p_prog[0])
WRITE(ERR, _TF, "设定工件数 :"<<$AC_REQUIRED_PARTS)
WRITE(ERR, _TF, "实际工件数 :"<<$AC_ACTUAL_PARTS)
M30