[掲示板に戻る] 全部 1- 最新50 |
1 | ステーション番号を取得したいのです |
ろろけい 2008-12-2 12:10
[返信] [編集] 2008/12/02 11:52 件名 ステーション番号を取得したいのです 内容 はじめまして。 A-VXに関する情報が少ない中で、このサイトの存在はとても助かっています。 管理人さんに感謝です。 質問させてください。 COBOLプログラムで、 「今実行している端末のステーション番号を取得する」 といったことは、できますでしょうか? 同じプログラム(たとえば伝票入力処理など)を複数のユーザが使っているわけですが、ユーザごとの要望に、より柔軟に応えるためには、ステーション番号を取得するのが一番わかりやすいかなと思いまして…。 また、「動作をユーザごとに分ける」ために、何か他の方法をご存知の方がいらっしゃれば、教えていただければと思います。 現時点で、一部のプログラムでは、最初に自分のコード(社員番号等)を入れさせて、それによって分岐させる、という方法はとっています。 が、処理によっては、毎回コードを入れさせるほどでもないものもありまして、そのようなときに、ステーション番号が取得できたらいいなと感じているわけです。 |
|
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”など 参考になれば、幸いです |
|
2 | Re:ステーション番号を取得したいのです |
アギー 2008-12-2 12:34
[返信] [編集] 確か、”CBLSTN”でしたか?システムサブルーチンが用意されています。詳細については、600シリーズ添付のCDマニュアルで確認してください。 |
|
4 | Re:ステーション番号を取得したいのです |
ろろけい 2008-12-2 13:16
[返信] [編集] アギーさん 富山清風さん さっそくのお返事、ありがとうございます。 システムサブルーチン ”CBLSTNNO” で、ばっちり取得できました! おかげさまで、プログラムの幅が広がります。 他のシステムサブルーチンについても、今後いろいろ研究してみたいと思います。 とても助かりました。 ありがとうございました。 |
[掲示板に戻る] 全部 前100 次100 最新50 |
BluesBB ©Sting_Band