読者です 読者をやめる 読者になる 読者になる

タイガー!タイガー!じれったいぞー!(SE編)

AS400,WAS,GlassFish,Java,JavaEE,JSF等の開発における日々の気づきをまとめたブログ(備忘録)。

【AS400】CL-文字変数の一部取り出し

概要

  • サブストリング組み込み関数(%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))