Y4DATE は、パターン 'YYMMDD' を使って日付の値をとり、2 桁の年を 4 桁の年にして日付の値を戻します。
|
d に計算タイプ (必須) および文字タイプを保持する必要があります。 そうでない場合は、d は文字に変換されます。
戻り値は、属性 CHAR(8) NONVARYING をとっており、次のように計算されます。
dcl y2 pic'99';
dcl y4 pic'9999';
dcl cc pic'99';
y2 = substr(d,1,2);
cc = w/100;
if y2 < mod(w,100) then
y4 = 100*cc + 100 + y2;
else
y4 = 100*cc + y2;
return( y4 || substr(d,3) );