0028.00 D******************************************************
0029.00 DTimeStamp S Z
0030.00 D*
0031.00 C******************************************************
0032.00 C*
0033.00 C EVAL TimeStamp = %TimeStamp()
0034.00 C TimeStamp DSPLY
0035.00 C EVAL *INLR='1'
0036.00 C RETURN
哈哈~~~
DSPLY 2012-10-15-03.23.58.788000