RPGの取得日付についてiSerise
RPGで日付を取得する場合、以下の二種類の方法があり用途に応じて使い分けてください。
1. *DATEによる取得
この場合は、ジョブ日付となり、システム日付が変わっても起動された(サイン・オン)ジョブの日付のまま
となります。又、CHGJOB DATEパラメータで任意に変える事が出来ます。
用途
帳票を過去日付で再度作成する場合などに使用します。
日付の変更方法
CHGJOB DATE(030301)
→ これで2003/03/01となります。
2. TIME命令による取得
上記のジョブ日付とは異なり、システム日付となります。プログラムが稼動中に日付が変わると取得する
日付も変わります。テストで過去日付でテストしようと思ってもAS400のマシン日付を変えないと出来ませ
ん。本番稼動中だと変えると大変な事になりますから、注意が必要です。
用途
日付を故意に変えられない場合や、ファイルの作成日付、更新日付に使用します。
日付の変更方法
CHGSYSVAL SYSVAL(QDATE) VALUE('030301')
→ これで2003/03/01となります。