|
1:ステーション番号を取得したいのです ろろけい 12/02 12:10 2008/12/02 11:52 件名 ステーション番号を取得したいのです 内容 はじめまして。 A-VXに関する情報が少ない中で、このサイトの存在はとても助かっています。 管理人さんに感謝です。 質問させてください。 COBOLプログラムで、 「今実行している端末のステーション番号を取得する」 といったことは、できますでしょうか？ 同じプログラム（たとえば伝票入力処理など）を複数のユーザが使っているわけですが、ユーザごとの要望に、より柔軟に応えるためには、ステーション番号を取得するのが一番わかりやすいかなと思いまして…。 また、「動作をユーザごとに分ける」ために、何か他の方法をご存知の方がいらっしゃれば、教えていただければと思います。 現時点で、一部のプログラムでは、最初に自分のコード（社員番号等）を入れさせて、それによって分岐させる、という方法はとっています。 が、処理によっては、毎回コードを入れさせるほどでもないものもありまして、そのようなときに、ステーション番号が取得できたらいいなと感じているわけです。 3:Re:ステーション番号を取得したいのです 12/02 12:34 ろろけいさん、がんばってますね。 ステーション番号の取得は、 こんな感じでしょうか 000220 WORKING-STORAGE SECTION. 000240 01 WK-STNNO PIC X(06). 000390 CALL CBLSTNNO USING WK-STNNO. 結果 WK-STNNO にステーション番号がえってきます 結果例としては ”STN001”､”STN012”など 参考になれば、幸いです 2:Re:ステーション番号を取得したいのです アギー 12/02 12:34 確か、”CBLSTN”でしたか？システムサブルーチンが用意されています。詳細については、600シリーズ添付のＣＤマニュアルで確認してください。 4:Re:ステーション番号を取得したいのです ろろけい 12/02 13:16 アギーさん 富山清風さん さっそくのお返事、ありがとうございます。 システムサブルーチン ”CBLSTNNO” で、ばっちり取得できました！ おかげさまで、プログラムの幅が広がります。 他のシステムサブルーチンについても、今後いろいろ研究してみたいと思います。 とても助かりました。 ありがとうございました。 |