Rational Developer for System z
Enterprise PL/I for z/OS, Version 3.8, 言語解説書

Y4JULIAN

Y4JULIAN は、パターン 'YYDDD' を使って日付の値をとり、2 桁の年を 4 桁の年にして日付の値を戻します。

構文図を読む構文図をスキップする>>-Y4JULIAN(d-+----+-)-----------------------------------------><
              '-,w-'
 
d
日付を表すストリング式。 d の長さは、少なくとも 5 でなければなりません。5 より長い場合は、余分の文字を先行ブランクにしなければなりません。

d に計算タイプ (必須) および文字タイプを保持する必要があります。 そうでないと、文字に変換されます。

w
整数に変換できる式 (1950 など) を指定します。 負の場合、コードを実行するときに年の値から減算されるようにオフセットを指定します。 省略される場合は、w は、WINDOW コンパイル時オプションに指定された値に デフォルトで設定されます。

戻り値は、属性 CHAR(7) NONVARYING をとっており、次のように計算されます。

  dcl y2 pic'99';
  dcl y4 pic'9999';
  dcl c  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) );

Y4JULIAN('99001',1950) は '1999001' を戻します。
Y4JULIAN('00001',1950) は '2000001' を戻します。

Terms of use | Feedback

This information center is powered by Eclipse technology. (http://www.eclipse.org)