概要
- サブストリング組み込み関数(%SST)を使用します。
サンプルソース
DCL VAR(&YYMD) TYPE(*CHAR) LEN(8) VALUE('20081231') DCL VAR(&MMMM) TYPE(*CHAR) LEN(2) DCL VAR(&DDDD) TYPE(*CHAR) LEN(2) CHGVAR VAR(&MMMM) VALUE(%SST(&YYMD 5 2)) CHGVAR VAR(&DDDD) VALUE(%SST(&YYMD 7 2))
DCL VAR(&YYMD) TYPE(*CHAR) LEN(8) VALUE('20081231') DCL VAR(&MMMM) TYPE(*CHAR) LEN(2) DCL VAR(&DDDD) TYPE(*CHAR) LEN(2) CHGVAR VAR(&MMMM) VALUE(%SST(&YYMD 5 2)) CHGVAR VAR(&DDDD) VALUE(%SST(&YYMD 7 2))