Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報
[掲示板に戻る全部  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 最新50
BluesBB ©Sting_Band