ＮＥＣのオフコン情報掲示板（ノウハウ系）
| ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。 |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
| AVX01のホストのブランチ4680のファイル転送ユーティリティー | |
| 困ったさん。 2015-9-3 16:22:00
[返信] [編集] DOSバソコンでB4680で接続して、ファイル転送していますが バソコンをWindowsにしてクライアントにWindowsファイル転送ユーティリティーを入れたら、ファイル転送は動きますか？ | |
| Re: AVX01のソースをAVX02に移行したい | |
| 困ったさん 2015-9-3 9:53:03
[返信] [編集] ご支援ありがとうございます。 やってみる価値はありそうです。 | |
| Re: AVX01のソースをAVX02び移行したい | |
| 温泉好きのうさぎ 2015-9-2 23:56:03
[返信] [編集] 全て自己責任にて作業されるというのでしたら、お教えします。 ディスクバックアップ機能の導入自体は非常に簡単で、モジュールの DLL と バックアップ先設定用の EXE を一つづつコピーするだけです。 まず、A-VX が動作しているとコピーなどができませんので、業務を全て終了して A-VX のシャットダウンを行ってください。 通常の構成であれば、 D:￥AVX￥PAGW￥PAGWTAPE.DLL を、A-VX02 のサーバーから、A-VX01 のサーバーへコピーします。 なお、A-VX01 側に元々存在していたPAGWTAPE.DLL は、必ず別の場所に退避しておいてください。 D:￥AVX￥AVXBKUPSET￥AVXBKUPSET.EXE も同じように、A-VX02 のサーバーから、A-VX01 のサーバーへコピーします。 なお、A-VX01 にフォルダが存在しないはずですから、フォルダは作成してください。 A-VX01 側の AVXBKUPSET.EXE を実行してバックアップ先の設定を行います。 サーバーを再起動して、A-VX を起動します。 #BKUP のテストを行ってください。 以上ですが、動作保証はいっさいいたしません。 万一、サーバーが火を噴くようなことがあっても私に損害賠償請求はしないでください。 お願いいたします。 | |
| Re: AVX01のソースをAVX02び移行したい | |
| 困ったさん 2015-9-2 15:56:53
[返信] [編集] ご回答ありがとうございます。 ＮＦＣＮＶは気がつきませんでした。 本数が多いのと、ＰＭ、CLを必要なので、荒技を実施してみたいですが。。。 簡単にいくものでしょうか？ 顧客からの引き上げ機（ＡＶＸ０１）なので試せるので方法わかれば伝授願います。 | |
| Re: #NFCNVのDOS形式ファイルの出力先について | |
| 温泉好きのうさぎ 2015-9-1 22:25:52
[返信] [編集] JCL ではなくて、COBOL のプログラムから起動する方法ならありますよ。 CD-ROM 媒体のマニュアルではなくて、本の「A-VX 概要マニュアル」というのが サーバーにもれなく一冊付属していたと思います。 これの 第５章「5.9 WSエミュレータのクライアントAP起動機能について」 をご覧ください。 具体的な記述例は、 自身の PC の Cドライブの ABCフォルダにある XYZ.BAT を起動する場合、 WORKING-STRAGE SECTION. 01 WRK-BAT PIC X(254) VALUE “”27”Q00C:￥ABC￥XYZ.BAT”. SCREEN SECTION. 01 SCR-BAT. 02 LINE 1 COLUMN 1 PIC X(254) FROM WRK-BAT. PROCEDURE DIVISION. DISPLAY SCR-BAT. (注) 見栄えのため、上記には2バイト系文字を混ぜて記述しています。 | |
| Re: AVX01のソースをAVX02び移行したい | |
| 温泉好きのうさぎ 2015-9-1 21:34:33
[返信] [編集] 両サーバーがLANで繋がっているのであれば、リモートファイルアクセス (RFA) があります。 #LBM を使って例えば、MDE=MSD と指定するところを、MDE=RMS010 などと指定することにより 簡単に他サーバーのライブラリファイルを参照できます。 なお、RFA をするには両サーバーでメッセージ管理のSGが必要です。 このSGに関して私は詳しい説明ができません。NEC等にお尋ねください。 他の簡単な方法としては、保守したいソースを一本づつ (1) #LBM または #TEDIT にてレコード長80の順編成ファイルに出力 (2) #NFCNV で DOSファイルに変換 (3) DOSファイルをサーバー間コピー (4) #NFCNV で DOSファイルからレコード長80の順編成ファイルに変換 (5) #LBM または #TEDIT にてライブラリファイルに出力 という処理を行えば可能です。 (1)(2)(3) は移行元での作業、(3)(4)(5) は移行先での作業。 しかし、わずかな数であればこれでいいかもしれませんが、 大量のソースをライブラリファイルごと移行したいというのであれば、 A-VX01 側に「ディスクバックアップ機能」を導入すべきです。 SG を工夫することにより、テープ装置も引き続き使用可能となります。 その場合、NEC もしくは販売店等にご相談してください。 「今更 A-VX01 に金はかけたくない、自分でなんとかする」というのであれば、 A-VX02 のディスクバックアップ機能のモジュールをA-VX01 にコピーしてしまう という荒技もありますが、動作保証できずオススメしません。(^^); | |
| Re: ドツトインパクトプリンター ７００ＬＸ | |
| 温泉好きのうさぎ 2015-9-1 20:36:49
[返信] [編集] このプログラムは A-VX ではなく、Open COBOL のものですね。 A-VX は EBCDIC 符号であるのに対し、Open COBOL は JIS7 符号であり、 コード変換されているため、A-VX のマニュアル等を見てもこの制御符号は出てこず、 わからないのだと思います。 結論から申しますと、これは2バイト系文字(漢字)のピッチ詰めを行っている制御符号です。 A-VX メッセージ管理3説明書の付録B 符号変換表の「B.1 JIS7 符号から EBCDIC カタカナ符号への変換表」 に基づいて変換しますと、 ””1A24212474”” → “”3FE04FE080”” ””1A24212078”” → “”3FE04F40A0”” となります。 これで A-VX の制御符号となりましたので、A-VX データ管理説明書の第12章 プリンタファイル、 12.7 プリンタの制御符号、「12.7.5 CEX シーケンス」より、CP 文字ピッチ指定であることがわかります。 ピッチ指定値が、前者は 10.8 ポイント、後者は 14.4 ポイントです。 | |
| AVX01のソースをAVX02び移行したい | |
| 困ったさん 2015-9-1 15:57:32
[返信] [編集] AVX02はテープは使えずＵＳＢです。旧avx01はテープです。 AVX01で保守したソースをAVX02にセットしたいのですが いい方法ありませんか？ また逆のケースもしかりです。 このままでは保守ができません。 | |
| ドツトインパクトプリンター ７００ＬＸ | |
| みか 2015-9-1 15:51:35
[返信] [編集] プリンター ７００ＬＸに印字制御で１８０文字をコボルプログラムで印字しています。 01 MEISAI-GYO. 02 FILLER PIC X(5) VALUE ""1A24212474"". 02 M-MEI PIC N(180). 02 FILLER PIC X(5) VALUE ""1A24212078"". 上記のＭ−ＭＥＩに１バイト文字をセツトしてＷＲＩＴＥ命令で１８０文字が印字出来ています。 ＦＩＬＬＥＲのコントロール文字が判る方は教えて下さい。 退職された先輩が作っていて判りません。宜しくお願いします。 | |
| Re: #NFCNVのDOS形式ファイルの出力先について | |
| けんさん 2015-9-1 13:14:17
[返信] [編集] 途中経過 A-VXから出力先CD-RWは指定できませんでした。 代案で、WINDOWS用フリーソフトのコマンドラインで出力する事にしました。 A-VXのJCLでWindowsAPIを起動する方法があるようです。 マニュアルを探しましたが発見できませんでした。 記載場所をご存知の方、教えて下さい。 または、JCLからWindowsAPIを起動サンプル記述でもかまいません。 よろしくお願いします。 | |
| Re: DAT装置が無い場合の#BKUPによる退避について | |
| けんさん 2015-8-27 11:03:22
[返信] [編集] A-VXディスクバックアップ機能を利用する事で解決しました。 | |
| DAT装置が無い場合の#BKUPによる退避について | |
| けんさん 2015-8-26 14:37:24
[返信] [編集] 機器の更新に伴いDAT装置がNASに変更されました。 バックアップ環境設定ツールでNASのフォルダがCTU設定されているようです。 これまでは#BKUPで必要ファイル(場合によってはボリューム)をDATにコピーしていました。 このNASにバックアップされた情報をコピーする方法はあるのでしょうか。 作業用のライブラリ、ファイルをコピー等するのに困っています。 AVXのバージョンはA-VX02 R3.6です。 | |
| #NFCNVのDOS形式ファイルの出力先について | |
| けんさん 2015-8-26 14:20:27
[返信] [編集] #NFCNVの出力先にCD-RWは指定可能でしょうか。 フォーマットはライブファイルシステム形式を予定しています。 元々は#FLCNVでFDU000に出力していました。 取引先の機器変更でDOS形式CSVファイルに出力する事になりそうです。 AVXのバージョンはA-VX02 R3.6です。 環境が用意できない為テストが出来ません。 よろしくお願いします。 | |
| Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます | |
| MAKI 2015-8-4 14:53:18
[返信] [編集] HIGH-VALUEは内部コードはFFなんで数値項目にMOVEしようとすると 不正十進数エラーになっているということではないでしょうか。 わざとアボートさせてプログラムを終了させているなんてことは ないでしょうね？ | |
| Re: AT ENDは正しく動いているのでは？ | |
| gai 2015-7-23 15:07:40
[返信] [編集] 説明わかりづらくてすみません。 省略してシンプルに書きすぎたのと、 情報開示の問題で大変わかりづらくなってしまいました。 階層構造になっており、�／董´∋辧´Ｂ� となっております。 ただし、これでもさらに上位階層のルーチンがあります。 そこまで疑うとキリがありませんし ファイルレイアウトがどうなってるんだとか、 ＤＢの詳細はどうだとかいう話にもなってしまいますので、 あきらめます。 でもずいぶんスッキリしました。 ありがとうございました！ *********************************************************** � �PERFORM DELETE-PROC UNTIL WK-DNO NOT = XXXX-DNO. *********************************************************** �� *********************************************************** DELETE-PROC SECTION. KK-010. DELETE XXXX-F INVALID KEY MOVE MSG-ABC TO KB-MSG1 MOVE XX-KEY TO KB-MSG2 PERFORM MSG-RTN THRU MSG-EXT. PERFORM READ-PROC. KK-DELETE-EXIT. EXIT. *********************************************************** �� *********************************************************** READ-PROC SECTION. K-010. READ XXXX-F NEXT AT END MOVE HIGH-VALUE TO XXXX-KEY2. READ-EXIT. EXIT. *********************************************************** XXXX-KEY2 は数字項目 集団項目 XXXX-DNO 9(06) XXXX-KNO 9(02) WK-DNO 9(06) はブレークしたときXXXX-DNOを退避するワーク項目 | |
| AT ENDは正しく動いているのでは？ | |
| ターラヤン 2015-7-22 0:23:55
[返信] [編集] HIGH-VALUEを8888・・に直してうまく動くようになったのでしたら、良いとは思いますが・・・ もともとのご質問は 「最終レコードが削除されたら、レコードがなくなるので、AT END になると思うのですが、 なぜAT END GOTO ABC-090が無視されてしまうのでしょうか？」 だったと思います。 「最後のレコードがDELETE されたあと、 再度READ命令を実行した際、 READ XXXX NEXT AT END の直後に DISPLAY したところ ”１０” が表示されました。」 ということならば、 AT ENDの直後のDISPLAY文が実行されたということですので、 「最終レコードが削除されたら、レコードがなくなるので、AT ENDになっている」 のではないでしょうか。 プログラムの一部分しか見えないので、はっきりとはわかりませんが、 実はGOTO文の前にHIGH-VALUEをMOVEする処理もあるようですし、 例えば、MOVEとGOTOの間の別の命令があって不正十進エラーになっているとか、 XXXX-KEY2が英数字項目で定義されていて、HIGH-VALUEを入れた後に どこかでXXXX-KEY2を使って計算して（例えばCOMPUTE A=XXXX-KEY/2のように） 不正十進エラーになっているとか AT ENDとGOTOの間が空いているのなら、GOTOでジャンプしない経路があり予想外の場所を実行しているとか どこかにロジックに誤りがあるのではないか、という気もします。 | |
| Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます | |
| ＥＸＣＨＡＮＧＥ 2015-7-19 16:24:12
[返信] [編集] ☆ 拝見させていただいて、前任者はかなり古風なソフト書法をご存じの方と思います。ひょっとしたらＡ−ＶＸ以外でのＣＯＢＯＬを使っておられた経験者かも？low-value high-valueをendがらみで使われているところなんかそれっぽい感じがします） ☆それはともかく、私は江須扇さんのご指摘が（現在なら）妥当な書法ではないかと同感いたします。 以下、（江須扇氏より引用） >それにしても旧１００からＣＯＢＯＬがあったのでそれを引き継いだプログラムが多いので >ＧＯ ＴＯ ありありのプログラムはやむを得ないかもしれませんが >新規であればＣＯＢＯＬ８５はＥＮＤ−ＸＸＸとＰＥＲＦＯＲＭ を使った構造化プログラムが作成が可能になります。 >データベースのＳＥＬＥＣＴと命令と組み合わせると かなりすっきりしたプログラムになります。 | |
| Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます | |
| GAI 2015-7-17 15:57:23
[返信] [編集] こんにちは。 ためしに、 MOVE HIGH-VALUE TO XXXX-KEY2. ↓ MOVE 88888888 TO XXXX-KEY2. とやったら、エラーにならなくなりました。 上位のロジックでは、 XXXX-KEY2 が 88888888 だったら、 処理修了的に手続きを仕込みました。 とりあえず無理やりですが、これで運用はできそうですが、 なんで HIGH-VALUE を入れたら 十進数エラーなのかは不思議です。 | |
| Re: AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます | |
| gai 2015-7-17 14:09:40
[返信] [編集] こんにちは。 各所にDISPLAYを入れて、 fileSTATUSを表示してみました。 最後のレコードがDELETE されたあと、 再度READ命令を実行した際、 READ XXXX NEXT AT END の直後に DISPLAY したところ ”１０” が表示されました。 10はAT ENDですよね？ 表示したあと、そこで 十進数エラーになります。 もしかしたら、KEYに HIGH-VALUE を入れているからいけないのでですか？？ READ XXXX NEXT AT END DISPLAY STS UPON AAA-GDD MOVE HIGH-VALUE TO XXXX-KEY2. と書いてあります。 | |
| Re: 久々ＣＯＢＯＬ８５を見ました。（AT END が無視されて、再度、DELETE処理を行い、 不正十進数エラーで アボートしてしまいます） | |
| gai 2015-7-17 13:14:47
[返信] [編集] ありがとうございます。 ＦＩＬＥ ＳＴＡＴＵＳでソースを検索したところ、 FILE-CONTROL.で なんこかのSELECT で FILE STATUS IS XXXXX と書いてありました。 file statusとは この記述のことでしょうか？ ここで定義しておきながら、 実際のprocedure divisionでは、 file status xxxx は使っておりませんが。 したがって、FILE status を全処理で DISPLAYしてみます。 |
| 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ |
BluesBB ©Sting_Band