• 締切済み

RPGプログラミングによる印刷時間の出し方

現在日付は UDATE Y 25 で出せるのは分かっています。 で、安易ですが現在時刻も UTIME 40 みたいな感じで出せるかと思ったら出せませんでした。 出力時間を印刷するにはどういう風に記述すればよろしいでしょうか?

みんなの回答

  • mkt8589
  • ベストアンサー率25% (47/181)
回答No.1

再び失礼します。 RPGIIIの話しですが、意向に沿うかどうか… 日付は予約フィールドUDATEがありますが、時間はありません。そこでフィールドを作ってやります。 C仕様書で演算命令部にTIME で結果フィールド欄にTIMEPR(これは私が使っていた頃のフィールド名)6桁の0(小数点です) 後はO仕様書でTIMEPRを指定すれば出力できます。:は自動編集で出力されたと思います

hikari_tai
質問者

お礼

お礼が送れて申し訳ございません。 教えていただいたやり方では上手くできませんでした。 ただちょっとやり方を変えたらできました。 理由がなぜかは理解できていませんが、 またの機会がありましたら宜しくお願いします。

hikari_tai
質問者

補足

アドバイスありがとうございます。 ご指示の通りC仕様書でTIMEを使い、 結果のフィールドでTIMEPRで、 桁数を6にして、小数点を0にしました。 そして、O仕様書でTIMEPRを指定しました。 でも出力された画面には000000と表示されてしまいます。 以下にある程度のプログラムを載せておきますので、 修正個所などよろしければ教えていただけないでしょうか? <C仕様書の内容>              TIME        TIMEPR  60    L1        Z-ADD0      L1KEN   60    01 1      ADD  L1KEN  L1KEN L1 01 L1KEN  ADD  LRKEN  LRKEN   60 <O仕様書の内容> QPRINT H   02   1P       OR        OF                         10 ’MHINR01’                         35 ’ 品目マスタ集計 ’                         45 ’ 作成日 ’               UDATE Y   55               TIMEPR    65                         72 ’PAGE.’               PAGE  Z   80 っというような感じになっています。

関連するQ&A