DECL/CHAR,128,tit1,tit2,tit3,partid1
partid1=PROMPT/'工件号？'
tit1=ASSIGN/' 东风朝阳柴油机有限责任公司'
tit2=ASSIGN/CONCAT(' 工件号： ',partid1,' 操作者：郭作莲')
tit3=ASSIGN/CONCAT(' 日期: ',SDATE(),' 时间: ',STIME(),' 名称： 缸体 工序号：20')
$$'名称： 缸体 工序号：20'）
TEXT/OUTFIL,'===================================================================='
TEXT/OUTFIL,tit1
TEXT/OUTFIL,tit2
TEXT/OUTFIL,tit3
TEXT/OUTFIL,'===================================================================='
