ＮＥＣのオフコン情報掲示板（ノウハウ系）
| ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。 |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
| ■▲▼ | ||
| 1 | 旧家イトウ家の小技裏技（その１５） | |
| 江須扇 2003-12-31 9:07:00
[返信] [編集] ------------------------------------------------------------------------------------------- その１５）ＷｉｎｄｏｗｓＡＰでのソース編集 ------------------------------------------------------------------------------------------- 最新版のＦｉｌｖｅｒｔ（Ｖｅｒ５．０）ではＡ−ＶＸのソースエディターが提供されたようです。 その機能を真似てＪＣＬを作ってみました。 ＳＹＳ＠ＪＳＬに下記のをＪＣＬ名ＰＣＥＤＩＴと登録し修正したいソースをＴＥＳＴ０１とした時 ＲＵＮ ＰＣＥＤＩＴ，（ＴＥＳＴ０１）； で可能です。 但し、Ｗｉｎｄｏｗｓ側のエディターの自動起動はＰＣ／ＷＳ−ＥＭＬがＵ７５８３０−Ｐ７０３以降になります。 自動起動はエミュレータを立ち上げ直後は巧く行きますが、何度もやるとゴミが入りファイルが呼べません。 ターラヤンさんのＣＯＢＯＬで作ったものを使うほうが確実です。 手動起動ならば、Ａ−ＶＸ�鍵聞澆任△譴丕錬砲隼廚い泙后� Ａ−ＶＸ?は＃ＰＣＣＮＶは共有ファイルは指定できないので無理と思います。 代替機能として＃ＦＴＣＮＶを使えば可能かもしれません（たぶん） なお、元ソースを置換しますのでテストはくれぐれもご注意ください。 ＳＵＬのバックアップを採る事をお奨めします。 また、更新番号（ＲＥＶ）は付きませんのでその点もご理解ください。 以下、サンプルＪＣＬ ------------------------------------------------------------------------------------------- /RUN #LBM; PRD=PRN999_ MDE=MSD_ MCI=_ MFI=WORKSUL_ ←ソースの入っているライブラリ名 ACT=SELECT_ ←抽出を指定 ODE=MSD_ OCI=_ OFI=CIF_ ←８０バイトのカードイメージファイル NAM=&0_ ←ＪＣＬの仮パラメータ（メンバー名入力用） ODE=999_ ACT=999_ DIR=NO_ MDE=END_ /> ; /RUN #NFCNV; MN1=C_ ←変換指定 MN2=AD_ ←Ａ−ＶＸ形式からＤＯＳ形式を指定 PA1=MSD_ PA2=_ PA3=CIF_ ←８０バイトのカードイメージファイルを指定 PA4=1_ PA5=C80_ ←英数字項目８０桁を指定 PB1=G:\LINKA-VX\COBOLSOURCE.CBL_ ←共有フォルダーを指定 PB2=TXTJ_ ←テキスト（ＪＩＳ）を指定 PB3=EXCLUSIVE_ ←排他モードを指定 PB7=C_ PB8=CREATE_ ←生成モードを指定 MN1=Q_ /> ; // S0101407; // S0101006; // Q00NOTEPAD \\EXP600\LINKA-VX\COBOLSOURCE.CBL ; ←共有フォルダを指定 // ; // ; // ; // ＥＤＩＴが終了したら再開(CTRL+PF5)してください。 ; /PAUSE ; /RUN #NFCNV,DEV=MSD; MN1=C_ ←変換指定 MN2=DA_ ←ＤＯＳ形式からＡ−ＶＸ形式を指定 PA1=MSD_ PA2=_ PA3=CIF_ ←８０バイトのカードイメージファイルを指定 PA4=1_ PA5=C80_ ←英数字項目８０桁を指定 PB1=G:\LINKA-VX\COBOLSOURCE.CBL_ ←共有フォルダーを指定 PB2=TXTJ_ ←テキスト（ＪＩＳ）を指定 PB3=PROTECT_ ←保護モードを指定 PB7=C_ PB9=COPY_ ←複写モードを指定 MN1=Q_ /> ; /RUN #LBM; PRD=PRN999_ MDE=MSD_ MCI=_ MFI=WORKSUL_ ←ソースの入っているライブラリ名 ACT=REPLACE_ ←置換を指定 IDE=MSD_ ICI=_ IFI=CIF_ ←８０バイトのカードイメージファイル TYP=COBOL_ ←ＣＯＢＯＬを指定 LIN=YES_ NAM=&0_ ←ＪＣＬの仮パラメータ（メンバー名入力用） NAM=_ IDE=999_ ACT=999_ DIR=NO_ MDE=END_ /> ; ------------------------------------------------------------------------------------------- 今年最後の小技裏技をお届けしました。 本年は誠にありがとうございました。 来年も引き続き、小技裏技を投稿しますので宜しくお付き合いをお願い申し上げます。 | ||
| 2 | Ｗｉｎｄｏｗｓ ＡＰ起動でうまくいかないことがある件について | |
| ターラヤン 2004-1-1 1:56:43
[返信] [編集] 江須扇さん、その他の皆さん、あけましておめでとうございます。 > 但し、Ｗｉｎｄｏｗｓ側のエディターの自動起動はＰＣ／ＷＳ−ＥＭＬがＵ７５８３０−Ｐ７０３以降になります。 > 自動起動はエミュレータを立ち上げ直後は巧く行きますが、何度もやるとゴミが入りファイルが呼べません。 今試せないので分かりませんが、 > // Q00NOTEPAD \\EXP600\LINKA-VX\COBOLSOURCE.CBL ; の後から１バイト空白をJSで渡せる文字列ぎりぎりまで、ひたすら入力していってもダメなのでしょうか。 私も昔ＣＯＢＯＬでＷｉｎｄｏｗｓ ＡＰ実行プログラムを作ったとき、うまく実行できないことがありました。 「文字列が２５０文字に足りない場合は、２５０文字まで１バイト空白で埋める」という１文に気が付かなかったためでした。 文字列の後にゴミがあると、正しく動かないことがあるようなので、文字列の後を１バイト空白で埋めると良いようです。 | ||
| 3 | Re: Ｗｉｎｄｏｗｓ ＡＰ起動でうまくいかないことがある件について | |
| 江須扇 2004-1-1 2:37:58
[返信] [編集] > 江須扇さん、その他の皆さん、あけましておめでとうございます。 ターラヤンさん、その他のみなさま、あけましておめでとうございます。本年も宜しくお願い申し上げます。m(_ _)m > > 但し、Ｗｉｎｄｏｗｓ側のエディターの自動起動はＰＣ／ＷＳ−ＥＭＬがＵ７５８３０−Ｐ７０３以降になります。 > > 自動起動はエミュレータを立ち上げ直後は巧く行きますが、何度もやるとゴミが入りファイルが呼べません。 > > 今試せないので分かりませんが、 > > // Q00NOTEPAD \\EXP600\LINKA-VX\COBOLSOURCE.CBL ; > の後から１バイト空白をJSで渡せる文字列ぎりぎりまで、ひたすら入力していってもダメなのでしょうか。 補足説明を忘れていますが（その１４）同様４バイト目はＥｓｃ（２７１６進）は必要です。 ＪＣＬのＤＩＳＰＬＡＹ命令の制限で８０桁までしか表示できません。 ２５６桁にする為に；（セミコロン）を４行目に入れるとＪＣＬエラーです。 ２行目に８０桁のところではＪＣＬエラーにはなりませんが、一度ＪＣＬを使うと前述の通りゴミがＪＣＬのバッファーに残り巧くいかない場合があります。 > 私も昔ＣＯＢＯＬでＷｉｎｄｏｗｓ ＡＰ実行プログラムを作ったとき、うまく実行できないことがありました。 > 「文字列が２５０文字に足りない場合は、２５０文字まで１バイト空白で埋める」という１文に気が付かなかったためでした。 > 文字列の後にゴミがあると、正しく動かないことがあるようなので、文字列の後を１バイト空白で埋めると良いようです。 ＣＯＢＯＬでプログラムを作るしかないかもしれませんね。 どうせ作るなら＃ＬＢＭや＃ＮＦＣＮＶの呼び出しを含め全てをＣＯＢＯＬで作りたいと思うのですが思うだけで作るところまで行きません。 | ||
| 4 | Re: Ｗｉｎｄｏｗｓ ＡＰ起動でうまくいかないことがある件について | |
| ターラヤン 2004-1-4 16:23:44
[返信] [編集] よく考えてみれば、たしかに８０桁までしか指定できませんでした。正月気分ですっかり頭がぼけていたようです。 説明書上はＪＣＬで使えるとは一言も書いていないようなので、もしかしたらサポート外の使用方法で、うまく使えなくても文句は言えないのかもしれませんが・・・。 入力バッファぐらいクリアして欲しい、という気もします。 > > 今試せないので分かりませんが、 > > > // Q00NOTEPAD \\EXP600\LINKA-VX\COBOLSOURCE.CBL ; > > の後から１バイト空白をJSで渡せる文字列ぎりぎりまで、ひたすら入力していってもダメなのでしょうか。 > > 補足説明を忘れていますが（その１４）同様４バイト目はＥｓｃ（２７１６進）は必要です。 > ＪＣＬのＤＩＳＰＬＡＹ命令の制限で８０桁までしか表示できません。 > ２５６桁にする為に；（セミコロン）を４行目に入れるとＪＣＬエラーです。 > ２行目に８０桁のところではＪＣＬエラーにはなりませんが、一度ＪＣＬを使うと前述の通りゴミがＪＣＬのバッファーに残り巧くいかない場合があります。 > | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| ■▲▼ | ||
| 1 | 旧家イトウ家の小技裏技（その１４） | |
| 江須扇 2003-12-13 6:06:03
[返信] [編集] ------------------------------------------------------------------------------------------- その１４）ＪＣＬで直接ＷｉｎｄｏｗｓＡＰの起動 ------------------------------------------------------------------------------------------- この方法にはやはりＥｓｃ（１６進２７）が必要です。 その方法はその１２を参照ください。 ［例］ // Q00README.TXT ; /> ; やはり、／／ Ｑの間にはスペースとＥｓｃが入っています。 これで拡張子に関連付けられているプログラムで開くことができます。 上記は実際に呼び出しはできています。 その１３であればREADME.TXTをZ:\QUP\TEST.TXTば良いと思います。 但し、Ｑ０１のＷｅｂＳｉｔｅ呼び出しはゴミが入って巧く呼べません。 私もターラヤンさんと同じようにＣＯＢＯＬで呼び出しプログラムを作って、メニューから社内ＬＡＮのシステム改善履歴ページを呼べる様にしております。 あとは、ＲＤＢ／ＥＵＦ�兇離泪縫絅▲襪鬟機璽弌爾縫ぅ鵐好函璽襪靴童討戮詬佑砲靴討�ります。（これは直接ＪＣＬ起動です） ------------------------------------------------------------------------------------------- なお補足ですかその１１、１２は全バージョン可能と思います。 当然ながら、その１３、１４はPC/WSエミュレータ(32)［U75830-P703］以降が必要です。 | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| ■▲▼ | ||
| 1 | 旧家イトウ家の小技裏技（その１３） | |
| 江須扇 2003-12-13 5:45:26
[返信] [編集] ------------------------------------------------------------------------------------------- その１３）ユーザーＡＰのＪＣＬでのパラメータの取り込み ------------------------------------------------------------------------------------------- 処理が一部だけ違ってるだけや、固定項目がちょっと違うだけで何本も同じようなプログラムを作るのは無駄ですし保守も大変です。 そこでＪＣＬで変数を取り込めば良いのです。 ＪＲＣＯＤＥ（ＣＯＭＰＬＥＴＩＯＮ−ＣＯＤＥ）やセンススイッチを使う方法があります。 しかしこの方法ではかなり条件が制約されます。 そこでプログラムの最初でＡＣＣＥＰＴをしいろいろ取り込めは良いのです。 ［例］ /RUN #NFCNV; MN1=C_MN2=AD_PA1=MSD_PA2=_ PA3=SWPATCH_PA4=1_PA5=C80_PB1=C:\QUP\TEST.TXT_ PB2=TXTJ_PB3=EXCLUSIVE_PB7=C_PB8=ADD_MN1=Q_ /> ; /RUN UTUNOM; NOTEPAD Z:\QUP\TEST.TXT_ /> ; ------------------------------------------------------------------------------------------- ［例］はターラヤンさんの［技術メモ→ＣＯＢＯＬサンプルプログラム→・COBOLプログラムからWindows APを起動する。→・クライアントＡＰ起動機能について］を利用してます（無断借用ごめんさい） 実際に試していませんが、多分大丈夫と思います。 次回は更に荒業をご披露します。 | ||
| 3 | 旧家イトウ家の小技裏技（その１３）(補足） | |
| 江須扇 2003-12-16 9:39:55
[返信] [編集] こんにちはターラヤンさん 実際に仮想ＦＤ試しました。 パソコンはＮＥＣのＰＣ９８−ＮＸのＭＡＴＥです。 特に問題はありませんでした。 見事、ダウンロードしたＬＭでの実行ができました。 以下のＪＣＬのパラメータで実行ができました。 /RUN UTUNOM,FIL=WORKLML,DEV=MSD; C:\WS-EML\README.TXT_ /> ; もちろん、以下のパラメータも問題なく実行できました。 /RUN UTUNOM,FIL=WORKLML,DEV=MSD; NOTEPAD C:\WS-EML\README.TXT_ /> ; ただ、試用期間が１４日なので来年からはためせません。 | ||
| 2 | Re:旧家イトウ家の小技裏技（その１３）(補足） | |
| ターラヤン 2003-12-16 17:02:24
[返信] [編集] > こんにちはターラヤンさん > 実際に仮想ＦＤ試しました。 > パソコンはＮＥＣのＰＣ９８−ＮＸのＭＡＴＥです。 > 特に問題はありませんでした。 > 見事、ダウンロードしたＬＭでの実行ができました。 > 確認していただき、ありがとうございました。 本当はフリーで同じようなソフトがないか探していました。 | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| ■▲▼ | ||
| 1 | 旧家イトウ家の小技裏技（その１２） | |
| 江須扇 2003-12-13 4:18:15
[返信] [編集] ------------------------------------------------------------------------------------------- その１２）ＪＣＬのＰＡＵＳＥ画面のカラー化 ------------------------------------------------------------------------------------------- ＪＣＬを実行する時に画面メッセージをＪＣＬで表示させてＰＡＵＳＥで止める事はよく有りませんか。 その時にカラー表示が出来たと思ったことは有りませんか？ 本日はカラー化の方法をご説明します。 制御符号の方法は（その４）をご確認ください。 ［例］ // S0101407; 00010 // S0101006; 00020 // DISPLAY DISPLAY DISPLAY; 00030 /PAUSE PAUSE PAUSE PAUSE; 00040 /> ; 00050 例は白にリバース表示しブリンキングをします。 一行目、二行目の ／／ Ｓ の間にはスペースとＥｓｃ（１６進で２７）が入っています。 ＪＣＬをＣＩＦ（カードイメージファイル）へ出力してそのままＤＯＳへ変換しましたので、画面上にＥｓｃが入っているのでおかしく表示されるかもしれません。 ------------------------------------------------------------------------------------------- ＃ＴＥＤＩＴは昔はＳＭＡＲＴのパラメータも変更できたのですが、 変更したパラメータでいろいろ問題が発生したのでＳＭＡＲＴやＲＤＢのパラメータは＃ＴＥＤＩＴでは変更できなくなりました。 たぶんその時かその後にやはり同じような理由で１６進入力を禁止にしたのではと私は想像しております。 そこでＥｓｃのＪＣＬへの入れ方は＃ＴＥＤＩＴでＥｓｃの無い状態で作成しそれをＣＩＦへ出力します。 出力したＦＩＬＥを＃ＦＩＬＥＭで４バイト目をＥｓｃに変更します。 ＃ＴＥＤＩＴで再度読み込みＪＳＬへ出力すれば完成です。 なお、一度作ったＥｓｃは＃ＴＥＤＩＴでその場所をさわらなければ変更は可能ですので、行、桁、色等は変更できます。 ＃ＦＩＬＥＭのパラメータ例は以下の通りです。 RUN #FILEM; *** ENTER PARAMETERS *** INPUT DEVICE; IDE=MSD INPUT COMPANY IDENTIFICATION; ICI= INPUT FILE NAME; IFI=CIF OUTPUT DEVICE; ODE=NO DELETED RECORD; DEL=NO PRINT DEVICE; PRD=PRN999 FIELD FORMAT; FLD=H80 | ||
| 2 | 旧家イトウ家の小技裏技（その１２）（補足） | |
| 江須扇 2003-12-13 4:36:35
[返信] [編集] 以前のＣＯＢＯＬのサンプルプログラムをそうでしたが、コピー＆ペーストで貼り付けるとなぜか半角スペースが詰まってしまうので、スペースを全角にして再度パラメータ部分のみアップします。 このサイトの仕様なのでしょうかね。 | ||
| 3 | タイトル画面の色を変更できる方法について | |
| ターラヤン 2003-12-16 15:41:33
[返信] [編集] >>以前のＣＯＢＯＬのサンプルプログラムをそうでしたが、コピー＆ペーストで貼り付けるとなぜか半角スペースが詰まってしまうので、スペースを全角にして再度パラメータ部分のみアップします。 >>このサイトの仕様なのでしょうかね。 半角スペースが詰まってしまうのは、htmlの仕様ですね。 ＪＳ中に直接制御符号が使えることは初めて知りました。 実は昔、私の同僚がＡ−ＶＸのタイトル画面（Ａ−ＶＸと花文字で書いてある画面）の色を真っ赤にしたり黄色にしたりしていました。 その時はその方法を教えてくれず色の変更方法がわからずじまいだったのですが、今回江須扇さんの情報でピンと来るものがあって試してみたところ、見事に成功しました。 つまり、タイトル画面の下のＲＵＮコマンドで制御符号を入力することによって、色が変更できるということでした。 長年の疑問がようやく解決しました。 | ||
| 4 | 旧家イトウ家の小技裏技（その１２）（補足２） | |
| 江須扇 2003-12-31 7:38:17
[返信] [編集] ＃ＴＥＤＩＴで１６進が入らない理由はなんとなく解かりました。 Ａ−ＶＸは １バイト入力モード（英数カタカナ入力） ２バイト入力モード（日本語入力） があり、その後 ＭＩＸモード（１バイト２バイト混在入力モード）が追加されました。 ＡＬＴ＋Ｊで１６進入力が出来るのは１バイト入力モードのみで、 ２バイトやＭＩＸ時は１６進の代わりに区点やＪＩＳ等の漢字コードの入力となり、１６進が入力できません。 当初のＣＯＢＯＬでの日本語表記は ＮＨ”ヒラカ゛ナ”（１バイト表記） ＮＫ”カタカナ”（１バイト表記） ＮＸ”２１２１”（１６進表記） でした。 その後 ＮＣ”日本語”（２バイト表記） が加わったとき＃ＴＥＤＩＴも混在入力可能に仕様が変わったため１６進入力ができなくなったのではと思います。 | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| ■▲▼ | ||
| 1 | 旧家イトウ家の小技裏技（その１１） | |
| 江須扇 2003-12-13 3:05:48
[返信] [編集] ------------------------------------------------------------------------------------------- その１１）１６進データの直接入力例 ------------------------------------------------------------------------------------------- パックデータの固定数字を変換するのに＃ＦＬＣＮＶ等を使おうと思ったがありませんか？ ＳＥＬ＝パラメータではパックデータの比較も可能ですが ＯＵＴ＝パラメータの＠定数＠ではパックデータを入れることができません。 そこで１６進入力の登場です。例としては二桁のパックデータ０２を固定的にサイン付きで登録したい場合は ＯＵＴ＝パラメータの中で＠の次に ＡＬＴ＋Ｊで１６進モードにし００と入力します。 再度ＡＬＴ＋Ｊで１６進モードにして２Ｃと入力します。 次に＠で囲みます。画面上には２桁のように見えると思います。 ------------------------------------------------------------------------------------------- 以前はこの方法でデータの修正をしておりましたが最近はＲＤＢＱ２の一括更新機能でしておりますので、１６進入力のお世話にはあまりなってないのが現状です。 ようやく（その１０）の例が作れました。 次回は＃ＴＥＤＩＴでやりたかった事を紹介します。 | ||
| 全部読む 最新50 1-100 板のトップ リロード | ||
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
BluesBB ©Sting_Band