|
1:旧家イトウ家の小技裏技（その１５） 江須扇 12/31 09:07 ------------------------------------------------------------------------------------------- その１５）ＷｉｎｄｏｗｓＡＰでのソース編集 ------------------------------------------------------------------------------------------- 最新版のＦｉｌｖｅｒｔ（Ｖｅｒ５．０）ではＡ−ＶＸのソースエディターが提供されたようです。 その機能を真似てＪＣＬを作ってみました。 ＳＹＳ＠ＪＳＬに下記のをＪＣＬ名ＰＣＥＤＩＴと登録し修正したいソースをＴＥＳＴ０１とした時 ＲＵＮ ＰＣＥＤＩＴ，（ＴＥＳＴ０１）； で可能です。 但し、Ｗｉｎｄｏｗｓ側のエディターの自動起動はＰＣ／ＷＳ−ＥＭＬがＵ７５８３０−Ｐ７０３以降になります。 自動起動はエミュレータを立ち上げ直後は巧く行きますが、何度もやるとゴミが入りファイルが呼べません。 ターラヤンさんのＣＯＢＯＬで作ったものを使うほうが確実です。 手動起動ならば、Ａ−ＶＸ�鍵聞澆任△譴丕錬砲隼廚い泙后� Ａ−ＶＸ?は＃ＰＣＣＮＶは共有ファイルは指定できないので無理と思います。 代替機能として＃ＦＴＣＮＶを使えば可能かもしれません（たぶん） なお、元ソースを置換しますのでテストはくれぐれもご注意ください。 ＳＵＬのバックアップを採る事をお奨めします。 また、更新番号（ＲＥＶ）は付きませんのでその点もご理解ください。 以下、サンプルＪＣＬ ------------------------------------------------------------------------------------------- /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:Ｗｉｎｄｏｗｓ ＡＰ起動でうまくいかないことがある件について tahrayan 01/01 01:56 江須扇さん、その他の皆さん、あけましておめでとうございます。 > 但し、Ｗｉｎｄｏｗｓ側のエディターの自動起動はＰＣ／ＷＳ−ＥＭＬがＵ７５８３０−Ｐ７０３以降になります。 > 自動起動はエミュレータを立ち上げ直後は巧く行きますが、何度もやるとゴミが入りファイルが呼べません。 今試せないので分かりませんが、 > // Q00NOTEPAD \\EXP600\LINKA-VX\COBOLSOURCE.CBL ; の後から１バイト空白をJSで渡せる文字列ぎりぎりまで、ひたすら入力していってもダメなのでしょうか。 私も昔ＣＯＢＯＬでＷｉｎｄｏｗｓ ＡＰ実行プログラムを作ったとき、うまく実行できないことがありました。 「文字列が２５０文字に足りない場合は、２５０文字まで１バイト空白で埋める」という１文に気が付かなかったためでした。 文字列の後にゴミがあると、正しく動かないことがあるようなので、文字列の後を１バイト空白で埋めると良いようです。 3:Re: Ｗｉｎｄｏｗｓ ＡＰ起動でうまくいかないことがある件について 江須扇 01/01 02:37 > 江須扇さん、その他の皆さん、あけましておめでとうございます。 ターラヤンさん、その他のみなさま、あけましておめでとうございます。本年も宜しくお願い申し上げます。m(_ _)m > > 但し、Ｗｉｎｄｏｗｓ側のエディターの自動起動はＰＣ／ＷＳ−ＥＭＬがＵ７５８３０−Ｐ７０３以降になります。 > > 自動起動はエミュレータを立ち上げ直後は巧く行きますが、何度もやるとゴミが入りファイルが呼べません。 > > 今試せないので分かりませんが、 > > // Q00NOTEPAD \\EXP600\LINKA-VX\COBOLSOURCE.CBL ; > の後から１バイト空白をJSで渡せる文字列ぎりぎりまで、ひたすら入力していってもダメなのでしょうか。 補足説明を忘れていますが（その１４）同様４バイト目はＥｓｃ（２７１６進）は必要です。 ＪＣＬのＤＩＳＰＬＡＹ命令の制限で８０桁までしか表示できません。 ２５６桁にする為に；（セミコロン）を４行目に入れるとＪＣＬエラーです。 ２行目に８０桁のところではＪＣＬエラーにはなりませんが、一度ＪＣＬを使うと前述の通りゴミがＪＣＬのバッファーに残り巧くいかない場合があります。 > 私も昔ＣＯＢＯＬでＷｉｎｄｏｗｓ ＡＰ実行プログラムを作ったとき、うまく実行できないことがありました。 > 「文字列が２５０文字に足りない場合は、２５０文字まで１バイト空白で埋める」という１文に気が付かなかったためでした。 > 文字列の後にゴミがあると、正しく動かないことがあるようなので、文字列の後を１バイト空白で埋めると良いようです。 ＣＯＢＯＬでプログラムを作るしかないかもしれませんね。 どうせ作るなら＃ＬＢＭや＃ＮＦＣＮＶの呼び出しを含め全てをＣＯＢＯＬで作りたいと思うのですが思うだけで作るところまで行きません。 4:Re: Ｗｉｎｄｏｗｓ ＡＰ起動でうまくいかないことがある件について tahrayan 01/04 16:23 よく考えてみれば、たしかに８０桁までしか指定できませんでした。正月気分ですっかり頭がぼけていたようです。 説明書上はＪＣＬで使えるとは一言も書いていないようなので、もしかしたらサポート外の使用方法で、うまく使えなくても文句は言えないのかもしれませんが・・・。 入力バッファぐらいクリアして欲しい、という気もします。 > > 今試せないので分かりませんが、 > > > // Q00NOTEPAD \\EXP600\LINKA-VX\COBOLSOURCE.CBL ; > > の後から１バイト空白をJSで渡せる文字列ぎりぎりまで、ひたすら入力していってもダメなのでしょうか。 > > 補足説明を忘れていますが（その１４）同様４バイト目はＥｓｃ（２７１６進）は必要です。 > ＪＣＬのＤＩＳＰＬＡＹ命令の制限で８０桁までしか表示できません。 > ２５６桁にする為に；（セミコロン）を４行目に入れるとＪＣＬエラーです。 > ２行目に８０桁のところではＪＣＬエラーにはなりませんが、一度ＪＣＬを使うと前述の通りゴミがＪＣＬのバッファーに残り巧くいかない場合があります。 > |