ＣＬで８桁日付を取得する方法

DCL VAR(&YMD) TYPE(*CHAR) LEN(6)

DCL VAR(&FMT) TYPE(*CHAR) LEN(4)

DCL VAR(&YYMD) TYPE(*CHAR) LEN(11)

RTVJOBA DATE(&YMD) DATFMT(&FMT)

CVTDAT DATE(&YMD) TOVAR(&YYMD) FROMFMT(&FMT) TOFMT(*YYMD) TOSEP(/)

&YMD : 020115

&YYMD: 2002/01/15

　　ＴＯＳＥＰ（＊ＮＯＮＥ）とすれば

　&YYMD:20020115となります。