RPG

248. システム日付を 8桁で表示するには ?

DSPF の DDS ソースで

      A                                  2 61' 日付 '
      A                                  2 70DATE EDTCDE(Y)

のように記述すれば 6桁日付が 16/04/18 のように表示されることは
よく知られているが、それでは 8桁日付を表示するには
どのように記述すればよいのだろうか ?
これも簡単で ….

      A                                  2 61' 日付 '
      A                                  2 70DATE(*YY) EDTCDE(W)

のようにして DATE(*YY) と記述すればよい。
これで 2016/04/18 のように表示される。
ただし 編集コードは Y ではなく W である。
編集コード Y は MM/DD/YY 型式用の編集コードであり Y で編集すると
20/16/0418 のような(MM/DD/YYYY) 表示になってしまう。
日本で Y が長らく普及していたのは 6桁日付であれば
たまたま同じ結果を得られたせいであろう。
YYYY/MM/DD 型式の編集コードは W であるのでお忘れなく。