RPGの取得日付についてiSerise


RPGで日付を取得する場合、以下の二種類の方法があり用途に応じて使い分けてください。

1. *DATEによる取得

    この場合は、ジョブ日付となり、システム日付が変わっても起動された(サイン・オン)ジョブの日付のまま
    となります。又、CHGJOB DATEパラメータで任意に変える事が出来ます。

   用途
       帳票を過去日付で再度作成する場合などに使用します。

   日付の変更方法
       CHGJOB DATE(030301)    → これで2003/03/01となります。

2. TIME命令による取得

    上記のジョブ日付とは異なり、システム日付となります。プログラムが稼動中に日付が変わると取得する
    日付も変わります。テストで過去日付でテストしようと思ってもAS400のマシン日付を変えないと出来ませ
    ん。本番稼動中だと変えると大変な事になりますから、注意が必要です。

    用途
       日付を故意に変えられない場合や、ファイルの作成日付、更新日付に使用します。

    日付の変更方法
       CHGSYSVAL SYSVAL(QDATE) VALUE('030301')     → これで2003/03/01となります。

HOME   戻る