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

NECオフコン関連
オフコン一般
情報

ＮＥＣのオフコン情報掲示板（ノウハウ系）

ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。

1: ＃ＮＦＣＮＶの制限？(2)   2: LLNIPの印刷(3)   3: ＃ＢＫＵＰでｕｓｂに直接出力できますか？(3)   4: A−VXのプリンタ設定方法が分かりません(2)   5: ＯＳのＣＤについて(4)   6: 初期プログラムに関する質問(4)   7: ボリュームMAPにあるが、#ABCだとファイルがみつからない(2)   8: SYS@DDFの復旧(2)   9: スプールデータの取り出し方法についての質問(10)   10: SG処理にて、PAGW実行中にエラーが発生しました(9)   11: ソースライブラリの一括検索(9)   12: 帳表をＰＤＦ印刷する方法（PRINTVEWを使わず）はありますか(2)   13: SKYLINKでテーブルを検索するとエラーとなる(1)   14: オフコン(3)   15: 管理人さんへの質問です(3)   16: #LTEDITでフォームのソースを指定するとメンバーが見つからないと表示される(4)   17: UPS無しの構成へのシステム移行(12)   18: #NFCNV でパソコンへ転送すると、データの先頭に空白がついてしまう(3)   19: CBL85資産をＯＰＥＮｃｏｂｏｌに移行する(3)   20: COBOLソースから仕様書の鏡作成ツール(3)   21: PrintBridgeの使い方(8)   22: WSエミュレータをWindows7Pro32bitSP1PCにインストール出来なくなった(1)   23: 漢字とANKの縮小印字について(3)   24: #NFCNVで先頭のカラムが０になるのは？(2)   25: N7884-14Bと互換性があるプリンタについて(2)   26: 表示（印刷）を任意の順番にしたいのですが・・・(6)   27: JSまたはPMのコールが間違っています(3)   28: ページプリンターのＳＧ方法(2)   29: SMARTの画面明細項目が終われない(8)   30: ＡＶＸでの外字(槇）について(6)  

 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ 
« 1 ... 65 66 67 (68) 69 70 71 ... 84 »

■▲▼
1 ＃ＬＢＭにおいて日付を選択できるか？
富山清風 2005-4-28 17:59:00  [返信] [編集]

なんでも聞いてみますが


現在、＃ＬＢＭでＳＵ／ＣＵ等を移動する際に、メンバ名の範囲指定は出来ますが、「更新日」の指定が出来ません。

実運用では、いついつ以降更新したメンバのみを移動したいことがたびたびありますが、

良い方法はなく、SCS=YESとして、画面表示を行い、「更新日」を目で確認しながら、選択しているのが現状です。


そこで、全国のＩＴＯＳユーザーに、名案を提供していただきたく、掲示しました。


名案を下さい。



2 Re:＃ＬＢＭにおいて日付を選択できるか？
Tama 2005-4-30 12:24:00  [返信] [編集]

あまりスマートな方法ではないのですが私が使用しているやり方を説明します。

CALL "CBLRUN"　で#LBMをCOBOLから処理するプログラムを組みま

す。

あとは、旧家イトウ家の小技裏技（その７）で紹介されている方法でファイルの内容をＳＥＱファイルに取り込み準読みしながら

日付を判断して別のLMLなりSULなりにコピーさせていけばいいか

と思います。
3 Re:＃ＬＢＭにおいて日付を選択できるか？
Tama 2005-4-30 12:35:00  [返信] [編集]

話は変わりますが、以前から社内で使用しているプログラムで
２つのファイルを比較して更新日が違っているMEMBERをリスト
アップするプログラムがあるのですが、ソースが残っていない
のでどのような方法を使っているのかが分かりません。


これが出来たらもっと簡単に処理できそうなんですが・・・
4 Re:＃ＬＢＭにおいて日付を選択できるか？
Ａ-ＶＸの鉄人 2005-5-7 10:22:00  [返信] [編集]

％のリビジョンチェッカーはＮＥＣ製で探してもソースはありませんよ。スプール⇒プリントビュー⇒Ｅｘｃｅｌシートにすれば

可能です。でもプリントビューが無くても最初は大変ですが単にコピー＆ペーストでＥＸＣＥＬシート化しあとはそちらでメンテすればいいと思いますよ。



5 Re:＃ＬＢＭにおいて日付を選択できるか？
苦労人 2006-2-9 17:02:00  [返信] [編集]

こんな過去の情報のＲＥＳですみません。

当社のサーバでは、％が入っているライブラリに％３というものも入っていて、こちらに日付指定メンバ抽出という機能があります。

コピー速度はちょっと遅いのですが、目で確認しながら抽出するよりは正確なので結構使ってます。
6 Re:＃ＬＢＭにおいて日付を選択できるか？
ターラヤン 2006-2-11 0:29:00  [返信] [編集]

情報ありがとうございます。



％３というものがあるのですか。

いろいろ便利なものがあるのですね。



あまり聞いたことのないものですが、もしＮＥＣさんが密かに？作ったものなら、

秘密にしないで製品として販売すれば結構売れるのではないかと思うのですが。



それとも何かの製品の中に入っている物なのでしょうか。

7 「％」､「％２」､「％３」とはなんですか？
富山清風 2006-2-13 12:24:00  [返信] [編集]

「％」､「％２」､「％３」とはなんですか？

%ALGEN,%CATM,%CUENT,%DEVSV,...のＬＭのはいっている？？？製ユーティリティのことですか？私は１種類しかもっていないので、％？かはわかりませんが。

8 Re:「％」､「％２」､「％３」とはなんですか？
あゆりーな 2006-2-13 18:45:00  [返信] [編集]

％は、%ALGENを起動するメニューです。

#ABCみたいなものです。

％２は％の96番から起動します。



実は私も%ALGENなどを直起動していたので

メニューがあることを知りませんでした

（今日上司に教えてもらいました）。

基本的に使うのは%ALGEN・%CRSEL・%LBCHKだけで

他の使い方は知りません。

何か「これは便利！」というのがあったら教えてほしいです。
9 Re:「％」､「％２」､「％３」とはなんですか？
苦労人 2006-2-14 14:24:00  [返信] [編集]

こんにちは！

弊社のＡＶＸ（開発マシン）に入っている「％」には

1. ソース　一列印字
2. ソース　二列印字
3. ソース　二列印字（改定版）
4. 文字列　検索
5. リビジョン　チェッカー
6. ＱＬサブヘッダー　メンテ
7. ＪＳ／ＰＭ　ＲＵＮコマンド
8. ＳＭＡＲＴパラメータリスト
9. ＣＵＬ　ダンプリスト
10. ＬＭＬ　ダンプリスト
11. ＥＡＳＹ　ＣＯＰＹ
12. ライブラリ　障害復旧
13. アロケートＪＳ生成
14. デアロケートＪＳ生成
96. ＊　＊　＊　＊　＊
98. ＊　＊　＊　＊　＊

・・・と、以上の機能が選択できます。

ちなみに96を選択すると「％２」が起動され、98は何も起動されません。

「％２」では

1. 有償ロック　メンテ
2. ＳＹＳ＠ＦＤＦ　メンテ
3. ライブラリ　メンテ
4. ＥＵＦカタログ　メンテ
5. 拡張ボリューム　ダンプ
13. 神　経　衰　弱
14. オ　セ　ロ

以上の機能が選択できます。

13,14はご愛嬌でしょう。（うちの環境では選択するとステーションコマンドエラーでコケてしまいます）

そして謎の「％３」（％からは連動してません）ですが

01 ... カタログメンテナンス
02 ... 色指定
03 ... ％ＤＥＬＳＶ
04 ... 辞書ユーティリティ
05 ... ＳＹＳ＠ＦＤＦ　チェック
06 ... 漢字変換ツール(JIPS <-> S7200)
07 ... 文字列検索
08 ... 漢字コード変換
09 ... アロケート件数計算
10 ... カレンダー
11 ... ＣＯＰＹ　＆　ＣＡＬＬ　一覧表
12 ... 電卓
13 ... 日付指定メンバ抽出
14 ... Ｉ／Ｏマトリックス
15 ... 文字列一括変換
16 ... ＲＤＢキー階層チェック
17 ... ＮＣタイプへの変換
18 ... プリンタ占有
19 ... ボリュームイニシァライズ処理
20 ... ％４

「％４」はLMが無くて起動できないゲームメニューでした。

何れの機能も、使えるものや使えないもの様々です。

ちょっと起動するのに躊躇するようなメンテナンス機能もあり、未だかつて起動した事の無いものもあります。

％の文字列検索なんて、ソースライブラリの中から特定の文字列を含むものを検索してくれ、結構便利に使用してます。
全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 ＣＯＢＯＬからレコード長の変更ができるか？
富山清風 2005-4-28 17:39:00  [返信] [編集]

なんでも聞いてみますが


現在、ＣＯＢＯＬでは物理ファイル名の変更ができますが、

ＲＣ（レコード長）、ＢＦ（ブロッキングファクタ）、ＫＰ（キーポジション）、ＫＬ（キーレングス）を指定/変更する方法はありますかね？


もし、変更ができれば、社内ユーティリティが作れそうな気がするのですが。


現在は、ＲＣ／ＢＦ／ＫＰ／ＫＬの可能性のある組み合わせをあらかじめ想定して、

社内ユーティリティをつくっていますが、ハターンが多いと、ステップ数が、
かさんでたいへんですのて、解決したいのですが！！

全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 RDBQでのデータデータディクショナリの分け方
Tama 2005-4-22 12:24:00  [返信] [編集]

RDBQを起動すると通常はSYS@DDFを読み込みますがこれ以外
のファイルから読み込むことは可能でしょうか？

現在、表定義が300以上になり一覧から探すのも大変なので
EIGYOU@DDF、KEIRI@DDFなど部門ごとに整理したいと思って
います、よろしくお願いします。

2 良い方法はないのかも
ターラヤン 2005-4-26 1:19:00  [返信] [編集]

こんにちは。


誰か良い方法を知っているかなと思っていたのですが、
どうも良い方法はなさそうですね。


たしかにたくさんの表定義をしていると、探すのは
大変かもしれません。何か良い方法があるとよいのですが。



3 Re:良い方法はないのかも
MAKI 2005-4-26 10:23:00  [返信] [編集]

> こんにちは。
>
> 誰か良い方法を知っているかなと思っていたのですが、
> どうも良い方法はなさそうですね。
>
> たしかにたくさんの表定義をしていると、探すのは
> 大変かもしれません。何か良い方法があるとよいのですが。
>

RDBで使う表は、SYS@DDF以外に、SYS@DBDIRとか
SYS@CATとかが関係しているのでDDFの使い分けは
難しいだろうなと思って見ていたのですが。

マニュアルを見直してみたところ
RDBQ2のマニュアルの環境設定の中に、表の階層表示
が設定できるように書いてありました。

＃DDMの補助機能で表の階層化もできるようです。
SYS@DDFの中で表定義を階層化して使えということの
ようです。

ただし、RDBQでは使えないみたいです。
実行環境がないのでこちらでは確認できません。

あしからず。
4 Re:良い方法はないのかも
Tama 2005-4-26 12:26:00  [返信] [編集]

みなさん、Ｒｅｓありがとうございます。


あれから私もマニュアルを読み返したりと色々調べてみたのです
がSYS@DDF以外を使用するのはどうやら無理そうですね。


MAKIさんに教えて頂いた階層化ですが、説明書を見ながら試して
みたところグループ化できました。
#DDMでグループを登録してRDBQ2で階層化表示に切り替えたら登
録したグループで表示されました。
ただ、社内ではRDBQ2は使用していなかったので担当者を集めて
一から教育のしなおしが必要になりそうです。

5 一度「ＲＤＢＱ２」を使うと！！
ＥＸＣＨＡＮＧＥ 2005-4-26 21:24:00  [返信] [編集]

> ただ、社内ではRDBQ2は使用していなかったので担当者を集めて
> 一から教育のしなおしが必要になりそうです。
>


＊　よく古くからＡ−ＶＸを使ってきたベテランの方ほど、
　　ＲＤＢＱにこだわりのある方がおられます。
　　しかし、一度「ＲＤＢＱ２」を覚えて使ってみると、
　　使い勝手が良いので、
　　とてもＲＤＢＱへ戻りたいとは思わなくなります。
　　

＊　もっとも、ＳＫＹＬＩＮＫを使いかけると、
　　さらに使い勝手が良くて。。
　　とてもＲＤＢＱ、ＲＤＢＱ２へ戻りたくなくなります。
　　同時に、オフコンの殺風景さを実感してしまいます。


＊　ところで、ＳＫＹＬＩＮＫから見たときに
　　Ａ−ＶＸディレクトリツリーが階層構造に見えるように
　　出来ないのかなあ？？


　　
6 Re:RDBQでのデータデータディクショナリの分け方
アレックス 2005-4-27 11:17:00  [返信] [編集]

皆さんはじめまして、お邪魔いたします。
ＳＹＳ＠ＤＤＦへの併合は必要ですが、ＪＣＬを作成すれば可能
です。


/ASSIGN EFN=EIGYOU@DDF,OEFN=SYS@DDF;
/RUN RDBQ,DEV=MSD;
/> ;


こんな感じです。
ユーザー側のＤＤＦを修正した際は必ずＳＹＳ＠ＤＤＦに併合
してください。

7 Re:「RDBQでのデータデータディクショナリの分け方」に関心
富山清風 2005-4-27 20:15:00  [返信] [編集]

> /ASSIGN EFN=EIGYOU@DDF,OEFN=SYS@DDF;
> /RUN RDBQ,DEV=MSD;
> /> ;


上記方法に関心しました。
さっそく、動作確認してみました。ＯＫでした。


最初、Tamaさんの質問をみた時は、絶対不可能だと思っていましたし､
「返信」がなかなかないので、全国のだれがみても不可能ではないかと思っていました。が、そんな方法があったとは！！
関心しきりです。

皆さんも、「不可能」とは思わずにどんどん質問して、
「不可能」を「可能」にしましょう。


「オフコンの和」をもっともっと広げましょう



8 Re:RDBQでのデータデータディクショナリの分け方
ターラヤン 2005-4-28 0:36:00  [返信] [編集]

> 皆さんはじめまして、お邪魔いたします。

アレックスさん、はじめまして。


> ＳＹＳ＠ＤＤＦへの併合は必要ですが、ＪＣＬを作成すれば可能
> です。
>
>/ASSIGN EFN=EIGYOU@DDF,OEFN=SYS@DDF;
>/RUN RDBQ,DEV=MSD;
>/> ;


ASSIGNを使って、ファイル名を変更するのですか。
正直そんな方法は思いつきませんでした。


SYS@DBDIRなどの構造を考えると、ちゃんとできるのかと疑問もあるのですが、
実際に問題なく使えているのなら、これで分けることができるということですね。

それにしても、すばらしい。



9 Re:RDBQでのデータデータディクショナリの分け方
Tama 2005-4-28 12:50:00  [返信] [編集]

このような方法は思いつきませんでした。

ＪＳを作ってメニュー登録しておけばよさそうですね。



Ａ−ＶＸを使いはじめて十数年ですがずっと悩んでい

たのですっきりしました。

10 Re:RDBQでのデータデータディクショナリの分け方
ＥＸＣＨＡＮＧＥ 2005-4-28 13:41:00  [返信] [編集]

> /ASSIGN EFN=EIGYOU@DDF,OEFN=SYS@DDF;
> /RUN RDBQ,DEV=MSD;
> /> ;
>
> こんな感じです。
> ユーザー側のＤＤＦを修正した際は必ずＳＹＳ＠ＤＤＦに併合
> してください。
>


＊　まったくすばらしい！！　私もそう思います。

＊　ＪＣＬで／ＡＳＳＩＧＮを使って実ファイルを割り当てるとい
　　うやり方は、ＮＥＣ以外のオフコンでは一般的に使われていま
　　すが、ＮＥＣではあまり使っていないように思います。

＊　それにしても、こういうところで／ＡＳＳＩＧＮを使うという
　　のは誰も思いつかない手法ですね。スゴイ。

＊　ちなみに私は、もっと単純で
　　ＤＢ表の参照権にＨ１（販売関連）、Ｋ１（経理関連）とかを

　　設定しておいて、オペレータコードごとに
　（Ａ−ＶＸで全ての業務ＡＰを操作するオペレータ）：
　　　　セキュリティコードに、Ｈ１、Ｋ１の両方を含ませる。
　　（ＲＤＢＱ２で販売のみを検索するオペレータ）：
　　　　セキュリティコードに、Ｈ１のみを含ませる。
　　（ＲＤＢＱ２で経理関連のみを検索するオペレータ）：
　　　　セキュリティコードに、Ｋ１のみを含ませる。

　　等々、、とやって部門ごとのセキュリティと兼ね備えて
　　のぞかせるようにしていました。

　　特に仮想表（結合表も含めて）を作っておいて
　　これに参照権を設定する、とすることで
　　表の数は増えますが、オペレータごとにＤＢの見え方を
　　コントロールすることができるかと思います。
　（それにＲＤＢＱの段階で結合表を作成できない操作員も
　　多々ありますし。。）





全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 Ａ−ＶＸのＬＭをＥｍａｉｌで送る方法はありますか？
富山清風 2005-4-18 20:21:00  [返信] [編集]

いつも楽しくみています。

非常に初歩的な質問ですが、
Ａ−ＶＸ(ITOS)のＬＭをＥｍａｉｌで送る方法はありますか？

この掲示板をみておられる方々は、いろいろな方法をご存知かとおもいますので、いい回答をお待ちしております。

2 Re:Ａ−ＶＸのＬＭをＥｍａｉｌで送る方法はありますか？
MAKI 2005-4-18 22:35:00  [返信] [編集]

> いつも楽しくみています。
>
> 非常に初歩的な質問ですが、
> Ａ−ＶＸ(ITOS)のＬＭをＥｍａｉｌで送る方法はありますか？
>
> この掲示板をみておられる方々は、いろいろな方法をご存知かとおもいますので、いい回答をお待ちしております。
>

やったことはないんで自信はないんですが。
LMのメンバーは、レコード長２５６のSEQファイルに落とすことが
できます。（逆もできます）

LM→SEQは、＃LBMのSELECT
SEQ→LMは、＃LBMのコピーだったと思います。

で、SEQファイルは、＃NFCNVで、PCのファイルにすることが
できますね。

Emailで一回に送れるデータ量が気になりますが、
ファイルを圧縮すれば送信はできそうな気がします。

参考まで。

3 Re:Ａ−ＶＸのＬＭをＥｍａｉｌで送る方法はありますか？
ターラヤン 2005-4-19 0:07:00  [返信] [編集]

> いつも楽しくみています。
>
> 非常に初歩的な質問ですが、
> Ａ−ＶＸ(ITOS)のＬＭをＥｍａｉｌで送る方法はありますか？

こういう方法もあります。

ＬＭをフロッピーディスクに入れる。
フロッピーディスクのイメージをＷｉｎｄｏｗｓのバイナリ
イメージに変換してメールで送る。
相手先で、バイナリイメージからフロッピーディスクに戻す。
フロッピーディスクからＬＭを取り出す。


バイナリイメージにするには、例えばシステムポート株式会社
の「仮想FDファイル変換」ツールがあります。

http://www.systemport.co.jp/download/index.htm

システムポート株式会社のＨＰ
の製品情報のところにあります。

ちなみにＡ−ＶＸと相性が悪いようで、Express5800/600シリーズ
上（サーバ上）で、この「仮想FDファイル変換」ツールを
インストールするとＡ−ＶＸが正しく動かなくなります。

600シリーズ以外のＰＣを使う必要があります。

あとは、ＮＥＣのＡ−ＶＸ０１形式フロッピーディスク変換ツール

を使う手もあります。
入手方法は、現在２つあります。最近の６００ｘｉシリーズ
（正確にはＯＳがＡ−ＶＸ０１のもの）には標準で付いている
ので、それを使用する。

最近、ＮＥＣの販売店向けのＨＰに公開されたので、そこから
入手する。
（販売店に入手をお願いするとか、何らかの手段で入手して
ください。）
やり方は、
変換ツールで変換すると、フロッピーディスク上にＰＡＦＤＵ０００
という名前のファイルができるので、それをメールに添付して送る。
相手先では、いったんＰＡＦＤＵ０００を１．４４ＭＢのフロッピー
ディスクに入れて、それを変換ツールで従来の形式の
フロッピーディスクに戻す。

ただし、こちらは本来の用途ではないので、何か問題が発生する
可能性もあり。
私自身は、この方法で何度かメールのやりとりして問題なく相手
に渡せています。

どちらの方法もフロッピーディスクをそのままバイナリ化する
ので、１ＭＢぐらいのファイルになりますが、
ＬＺＨとかＺＩＰで圧縮するとかなり小さくなります。
特に、フォーマットした直後のフロッピーディスクならば、
かなり小さくなります。
逆に使い込んだ（要するにいろんなファイルが入れたり、
削除したりしたフロッピーディスク）
だと、（データが削除されていても、内部にごみデータとして
残っているので）あまり圧縮が利かずにあまり小さくならない
ことがあります。

フォーマットしたばかりのフロッピーディスクを使い、送りたい
ＬＭだけを入れると良い。


4 補足です。
ターラヤン 2005-4-19 0:12:00  [返信] [編集]

> あとは、ＮＥＣのＡ−ＶＸ０１形式フロッピーディスク変換ツール
> を使う手もあります。
> 入手方法は、現在２つあります。最近の６００ｘｉシリーズ
> （正確にはＯＳがＡ−ＶＸ０１のもの）には標準で付いている
> ので、それを使用する。
> 最近、ＮＥＣの販売店向けのＨＰに公開されたので、そこから
> 入手する。
> （販売店に入手をお願いするとか、何らかの手段で入手して
> ください。）



ＮＥＣの販売店向けのＨＰにあるのは、６００シリーズ（無印、
Ａｉ、ｘｉ）で汎用に使えるツールです。
たぶん本来の公開の意図としては、Ａ−ＶＸ０１にバージョン
アップする人用だと思います。
こういう使い方をしてＯＫかどうか不明ですが、逆にこのような
使い方は許さないとも書いていない。

5 Re:やってみました
富山清風 2005-4-19 18:05:00  [返信] [編集]

MAKIさん　さっそくのご回答ありがとうございます。



以下の手順でテスト的に実行してみたところ、うまく出来そうですね。

送信側:STEP-1:#LBM__:ACT=SELECTでLMを256のSEQファイルヘ

送信側:STEP-2:#NFCNV:OP(256のSEQ)→PCへ

送信側:STEP-3:ﾒｰﾙ___:添付して、送る

受信側:STEP-4:#NFCNV:PC→OP(256のSEQ)へ

受信側:STEP-5:#LBM__:ACT=COPY等で256のSEQファイルよりLMファイルへ



ＬＭが２５６のＳＥＱにセットできるとは！！



なんでも聞いてみるものですね



まだ、質問があったら、聞ますのでよろしくお願いします。



全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 ＭＩＸ項目の１，２バイト文字判断
うどん 2005-4-13 10:41:00  [返信] [編集]

お世話になります。

早速ですが、ＭＩＸ項目内の文字を１バイトか２バイトか判断するのに

（ＣＯＢＯＬ内で）何か良い手は無いでしょうか？



やりたい事は、送先住所というＭＩＸ項目を伝票に出力したいのですが、

横幅の印字文字が限られている為、自動で改行しないいけません。

改行というのがくせ者で、２バイト文字が離れない(?)様にしないと

文字化けしてしまいます。



現在のフォーマットは、日本語（Ｎタイプ）で定義されているので

気にしなくて良かったのですが．．



宜しくお願い致します。
2 Re:ＭＩＸ項目の１，２バイト文字判断
富山清風 2005-4-13 13:03:00  [返信] [編集]

「うどん」さん、こんにちは。



私は以下のようにして判断しています。



１バイトづつ順次チェックし、下記テーブルと照合し、

「Ａ」であれば、ANKであり、

「Ｊ」であれば、全角の前半であるため、

次の１バイト（全角の後半）と合わせて２バイトすなわち全角１文字として扱っています。



ちなみに、下記の表は、「A-VX�献瓮奪察璽鹸浜�３説明書の付録ＢのＢ−６に記載されているものを使っています」



以上ですが、お役にたてば幸いです。



"001420 01  CON-CNV-TBL."
"001430****                                        0123456789ABCDEF"
"001440     03  F               PIC  X(16)  VALUE "AAAAJAJAJJJAAAAA".     0"
"001450     03  F               PIC  X(16)  VALUE "AAAAJAAJAAJJAAAA".     1"
"001460     03  F               PIC  X(16)  VALUE "JJJJJJAAJJJJJAAA".     2"
"001470     03  F               PIC  X(16)  VALUE "JJAJJJJAJJJJAAJA".     3"
"001480     03  F               PIC  X(16)  VALUE "AAAAAAAAAAAAAAAA".     4"
"001490     03  F               PIC  X(16)  VALUE "AAAAAAAJAJAAAAAA".     5"
"001500     03  F               PIC  X(16)  VALUE "AAJJJJJJJJJAAAAA".     6"
"001510     03  F               PIC  X(16)  VALUE "JJJJJJJJJJAAAAAA".     7"
"001520     03  F               PIC  X(16)  VALUE "JAAAAAAAAAAJAAAA".     8"
"001530     03  F               PIC  X(16)  VALUE "AAAAAAAAAAAJJAAA".     9"
"001540     03  F               PIC  X(16)  VALUE "JJAAAAAAAAAJAAAA".     A"
"001550     03  F               PIC  X(16)  VALUE "JAJJJJJJJJAAAAAA".     B"
"001560     03  F               PIC  X(16)  VALUE "JAAAAAAAAAJJJJJJ".     C"
"001570     03  F               PIC  X(16)  VALUE "AAAAAAAAAAJJJJJJ".     D"
"001580     03  F               PIC  X(16)  VALUE "AJAAAAAAAAJJJJJJ".     E"
"001590     03  F               PIC  X(16)  VALUE "AAAAAAAAAAJJJJJJ".     F"
"001600 01  CON-CNV-TBL-R       REDEFINES CON-CNV-TBL."
"001610     03  CON-CNV-T-O     OCCURS 256."
"001620       05  CON-CNV-T-1   PIC  X(01)."


----------end

3 Re:ＭＩＸ項目の１，２バイト文字判断
うどん 2005-4-13 18:07:00  [返信] [編集]

富山清風さん

さっそくの回答ありがとうございます。



２バイト文字の１バイト目が、A-VX�献瓮奪察璽鹸浜�３説明書の

付録ＢのＢ−６の表にある値(１６進)なら２バイト文字という形で

解釈しました。



テストプログラムを作成して動かしましたが、半角スペース(40H）

も２バイトとして認識してしまいますよね？

表の見かたが間違っているのでしょうか？

4 Re:ＭＩＸ項目の１，２バイト文字判断
富山清風 2005-4-13 18:23:00  [返信] [編集]

列と行が逆ではないですか？

5 勘違いしてました
うどん 2005-4-14 15:52:00  [返信] [編集]

> 列と行が逆ではないですか？



思いっきり勘違いしてました。

例えば、チェックしたい値が”P2”(16進でD7)なら、前回提示頂いた

ソース内の CON-CNV-T-1 のインデックスの値が、216の値を参照

するという事ですね。

(CON-CNV-T-1(216)の値は”A”なので、１バイト文字となる)



あと、コボルで16進にする命令とか無いですよね？

6 Re:勘違いしてました
富山清風 2005-4-14 18:46:00  [返信] [編集]

> あと、コボルで16進にする命令とか無いですよね？



方法は色々あると思いますが私し以下のようにしています。



002080 01  WK-CNV-COMP                 COMP-1.
002090 01  WK-CNV-COMP-R           REDEFINES WK-CNV-COMP.
002100     03  WK-CNV-00           PIC X(01).
002110     03  WK-CNV-ANK          PIC X(01).
                                                            

004050         MOVE    LOW-VALUE       TO  WK-CNV-00.
004060         MOVE    WK-1 (IX-WORK)  TO  WK-CNV-ANK.
004080         COMPUTE WK-CNV-COMP     =   WK-CNV-COMP + 1
004090         IF    ( CON-CNV-T-1(WK-CNV-COMP) =   "J" )
004120             MOVE    "ANKﾅｼ"     TO  STS-ANK-UMU
004110         ELSE
004120             MOVE    "ANKｱﾘ"     TO  STS-ANK-UMU
004130         END-IF


参考までに



全部読む 最新50 1-100 板のトップ リロード

 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ 
« 1 ... 65 66 67 (68) 69 70 71 ... 84 »

BluesBB ©Sting_Band