在CL中如何得到当前的年月

Question

如题，在CL中如何得到当前的年月以及上个月份

Answer 1

楼上说的非常的有道理啊

Answer 2

谢谢各位

Answer 3

上月要判断下。。。

Answer 4

DCL        VAR(&QDATETIME) TYPE(*CHAR) LEN(20)      
             DCL        VAR(&SYDT     ) TYPE(*DEC ) LEN(08 0)   
             DCL        VAR(&SYTM     ) TYPE(*DEC ) LEN(06 0)        
/* システム日付・時刻　取得                                      
         RTVSYSVAL  SYSVAL(QDATETIME) RTNVAR(&QDATETIME)     
             CHGVAR     VAR(&SYDT) VALUE(%SST(&QDATETIME 1 )   
             CHGVAR     VAR(&SYTM) VALUE(%SST(&QDATETIME 9 6))