输出当前计算机时间的一个简单DMIS例子。

DECL/COMMON, CHAR, 256, KNPTC1
$$当前计算机时间
KNPTC1=ASSIGN/STIME()

DECL/COMMON,CHAR,10,C_H

C_H = ASSIGN/SUBSTR(KNPTC1,7,8)
$$当前秒数
KNPTN3 = ASSIGN/VAL(C_H)

TEXT/OUTFIL,'现在时间是：'
WRITE/DID(DEFAULTSCREEN),KNPTC1

TEXT/OUTFIL,'现在秒时是：'
WRITE/DID(DEFAULTSCREEN),C_H

------------------------------------------------------------------------
环游世界，梦想人生。