[掲示板に戻る]

---

ステーション番号を取得したいのです ろろけい 2008-12-2 12:10

Re:ステーション番号を取得したいのです アギー 2008-12-2 12:34

Re:ステーション番号を取得したいのです 富山清風 2008-12-2 12:34

Re:ステーション番号を取得したいのです ろろけい 2008-12-2 13:16

---

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