Windowsのように印刷時の出力先を簡単に変更できないでしょうか？
Question
WindowsではExcelやWordを使用している時に印刷先を簡単に変更することができます。
IBM i （AS/400）とWindowsのアプリケーションでは異なると思いますが簡単に変更することはできますでしょうか。
ユーザーにはコマンド入力させたくないのでCHGJOBコマンド自体は使用させないようにしたいです。
Answer
CHGJOBとRTVJOBAを組み合わせて簡単なプログラムを用意してはいかがでしょうか。
※動きのイメージをするだけなので、中身はありません。テストの為にWRKACTJOBを印刷するようにしています。
F6を押すと、OUTQを選択する以下のプログラムをCALLします。
まずは、現在のOUTQを表示させています。
QPRINT以下の3つは決め打ちです。お客様が変更したいOUTQを入れることを想像してみてください。
4つ目は上位者向けを考えてみました。OUTQとOUTQの存在するライブラリーを指定して変更することを可能にするために用意しました。
中のソースは至ってシンプルです。
始めのプログラムからF6が押されたら、OUTQのパラメタを付けて以下のプログラムをCALLするだけです。
変更プログラムのサンプルソースは以下の通りです。
本来であれば、選択の1は一つしか許可しないので、重複のチェックを入れてください。
それと、4つ目は任意でOUTQとLibraryを指定するため、存在チェックも必要となりますので入れるようにしてください、
凝った動きにするのであれば、変更前と変更後の画面を用意して、「変更しますが、よろしいですか？」の画面を出しても良いと思います。
上記のサンプルは機能強化やエラー処理、例外処理を含んでおりませんので、必要に応じてカスタマイズしてみてください。
こういった機能を考えてコーデイングするのって、意外と楽しいですよね。
ユーザーに使い易くなったと言われるように頑張ってください。
by けやきのじぃじ
