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 ... 63 64 65 (66) 67 68 69 ... 108 »

Re:FTP受信
goodmoon 2006-8-25 13:47:00  [返信] [編集]

よしぼ〜さん、江須扇さん、ターラヤンさん、色々書き込み頂き有難うございます。

調べてみたのですが、どうやら現在使用しているＡ−ＶＸIVにはＦＴＰサーバの機能は

組み込まれているようです。

あまり知識がないので少々不安ではありますが、これで何とかがんばってみます。



あと江須扇さんが

＞Ａ−ＶＸのＦＴＰサーバー機能は受信後のＪＯＢ実行は可能だと

と書かれていますが、これは受信後に自動で何らかのＪＯＢを実行する事が可能という意味でしょうか？

もしそういう意味でしたら説明書の何処を参照すれば良いでしょうか？

「ＦＴＰサーバ説明書」を発見したので参照したのですが、そういった記述は無かったようです。

何度も申し訳ありませんがお返事頂ければ大変助かります。

よろしくお願い致します。
Re:FTP受信
ターラヤン 2006-8-25 1:25:00  [返信] [編集]

皆さん、こんにちは。



よしぼ〜さんや江須扇さんが既に書いてあるとおりですが、

Ａ−ＶＸ側でｆｔｐサーバを立てれば、Ｗｉｎｄｏｗｓ側は

普通のｆｔｐクライアントでｏｐｅｎ、ｇｅｔ、ｐｕｔが

そのまま使えたはずです。

Ａ−ＶＸとｗｉｎｄｏｗｓでは文字コードが異なりますが、

サーバ側の設定をきちんとすれば、文字コードも変換して

くれたはずです。



Re:FTP受信
江須扇 2006-8-24 23:50:00  [返信] [編集]

＞ＷｉｎｄｏｗｓからＦＴＰ送信してＡ−ＶＸで受け取れないか

と言う事は、

Ｗｉｎｄｏｗｓ側がＦＴＰクライアント送信

Ａ−ＶＸ側がＦＴＰサーバー受信

という事ですよね。

従って、よしぼ〜さんが答えていただいた通りＡ−ＶＸ側に、

ＦＴＰサーバーの有償ソフトが必要となると思います。

既にあれば、その機能を使えば良いのではと思います。



無いのであれば購入するしかないのですが、簡易的な方法としては、



やはり、サーバー側の共有フォルダーに転送して＃ＮＦＣＮＶで

アップロードするという方法になると思います。



一連の流れを自動実行するとすれば、

938 「ジョブ起動ユーティリティ」のＵＷＳＣでの代替方法

をご参照ください。



クライアントでエミュレーターを起動しないという事ですとやはり、

ＦＴＰサーバーでの方法になると思います。

Ａ−ＶＸのＦＴＰサーバー機能は受信後のＪＯＢ実行は可能だと

記憶しております。
Re:FTP受信
よしぼ〜 2006-8-24 18:14:00  [返信] [編集]

はじめまして。



当方、Express5800/670Xiを使用しております。

FTP環境を構築しています。



江須扇さんのご想像のとおり、FTPクライアントと

FTPサーバーは別の有償ソフトになっております。



FTPクライアントは、A-VXからのアクションで

データの送信と受信が可能ですが、Windowsから

A-VX にデータを送信することはできません。

それをするためには、FTPサーバーが必要です。



Re:FTP受信
goodmoon 2006-8-24 13:39:00  [返信] [編集]

江須扇さん、はじめまして。

お返事ありがとうございます。

現在使用している機種はExpress5800/680Aiです。

ですので＃ＮＦＣＮＶは使用できるのですが、今回は自サーバのＷｉｎｄｏｗｓ側からのアクションでＡ−ＶＸ側へデータを送信する方法がないものかと考えているのです。

私もあまり詳しくないのでＷｉｎｄｏｗｓからＦＴＰ送信してＡ−ＶＸで受け取れないかと単純に考えていたのですが・・・

何か良い方法はないでしょうか？
Re:FTP受信
江須扇 2006-8-24 12:49:00  [返信] [編集]

goodmoonさん初めまして江須扇と申します。

まず機種はなんでしょうか？

Ｅｘｐｒｅｓｓ５８００／７００シリーズ以降であれば、

標準装備の＃ＮＦＣＮＶで、自サーバーのＷｉｎｄｏｗｓ領域の

共有フォルダへの読み書きはできます。

Ｓ７２００シリーズ以前の機種でしょうか？

その場合は有償ソフトにＦＴＰはあったと記憶しております。

有償ソフトの為、添付マニュアル等は私はもっておりません。

有償ソフト購入時に添付されているマニュアルで確認して

いただくか購入先のＳＥに確認するのが良いと思います。

ＦＴＰ機能としては理論的には

ＦＴＰクライアント送信、

ＦＴＰクライアント受信

ＦＴＰサーバー送信

ＦＴＰサーバー受信

４種あると思いますが、１有償ソフトで全てできたのか、

別々の有償ソフトになっていたのかまったく記憶がありません。

ＦＴＰクライアント、ＦＴＰサーバーと２種類の有償ソフトに

なっているとすれば、たぶん送受信機能はあると想像しますが・・・・

すいません、まったく答えになってないですね。
FTP受信
goodmoon 2006-8-24 11:02:00  [返信] [編集]

A-VXからWindowsへFTP送信でデータを出力したことはあるのですが、その逆の受信というのは可能なものなのでしょうか？

あまり詳しくないので検討違いの質問でしたら申し訳ありません。
Re:[5]:１６進を１０進に変換する方法
ゼロ 2006-8-22 13:02:00  [返信] [編集]

ありがとうございます、希望通りの結果を得ることができました。

プログラムもすっきりして大満足です。



上１桁が負を表すってことをすっかり忘れていました、２進数なんて２０年近く前に情報処理二種の試験勉強した依頼なんで。



次の課題はデータのデータ上に直接持っていないデータの追加可能件数をどうやって求めるか頭をひねってみようと思います。
「ジョブ起動ユーティリティ」のＵＷＳＣでの代替方法
江須扇 2006-8-19 23:22:00  [返信] [編集]

パソコン側でデータを作った後に、自動的に、オフコン側での処理を
する場合は、通常は「ジョブ起動ユーティリティ」を使いますが、
パソコン側の自動実行を含めて実行する場合はフリーソフトの、
ＵＷＳＣを使うと便利です。

http://www.h7.dion.ne.jp/~umiumi/

具体的にはWeb-EDIのデータを自動的にオフコンに取り込む処理で
使っております。


そのエミュレータの起動のサンプルスクリプトです。
参考になればとアップロードしました。
SAMPLEというＡＰを実行して終わるサンプルです。
WindowsXPでは巧くいきますがなぜかMeでは画面が読み取れません、
従ってXPのみの対応です。



但し
ＳＧは　ＷＳモード　WSM=25R
でエミュレータのフォントサイズは２４にしてあります。

-----------------------------------------------------------

public fontsize
public xx1
public yy1
fontsize=24
disp=getid("WSｴﾐｭﾚｰﾀ","EmlMainWnd")
ifb disp < 0 then
　exec("c:\ws-eml\pcws32.exe")
　sleep (3)    
　repeat
　　sleep (1)
　　disp=getid("WSｴﾐｭﾚｰﾀ","EmlMainWnd")
　until disp<>0
　repeat
　　sleep (1)
　　posxy(2,1)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
　until acep="CO"
　sckey(disp,VK_ALT,C,L)
　repeat
　　sleep (1)
　　posxy(1，11)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
　until acep="識"
　sckey(disp,0,0,0,VK_RETURN)
　repeat
　　sleep (1)
　　posxy(4,1)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
　until acep="RU"
else
　repeat
　　sleep (1)
　　posxy(2,5)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
　until acep="^^"
endif

sckey(disp,S,A,M,P,L,E,VK_OEM_PLUS,VK_RETURN)
repeat
　　sleep (10)
　　posxy(2,5)
　　acep=POSACC(disp,xx1,yy1)
　　print acep
until acep="^^"
sckey(disp,VK_ALT,C,O)

procedure posxy (lin,col)
　　xx1 = fontsize / 2 - 1 + ( col - 1 ) * fontsize / 2
　　yy1 = fontsize + 1 + ( lin - 1 ) * ( fontsize + 2 )
fend
Re:[5]:１６進を１０進に変換する方法
江須扇 2006-8-19 16:49:00  [返信] [編集]

ご指摘の通りですね。

COMP-1場合、
−３２７６８≦ｘ≦３２７６７
となり、上１桁目のビットは負をあらわすので、
１６進数を単純に１０進数に戻せない場合があると言うことですね。

例えば、

02 REI1 USAGE IS COMP-1
02 REI1-ANS PIC 9(5)

IF REI1 < 0
   THEN COMPUTE REI1-ANS = REI1 + 65536
   ELSE MOVE REI1 TO REI1-ANS
END-IF

等の工夫が必要という事ですね。


２バイトまでしか使えないので、
４バイトの場合はCOMP-2を使いますがこれも
−２１４７４８３６４８≦ｙ≦２１４７４８３６４７
なので

02 REI2 USAGE IS COMP-2
02 REI2-ANS PIC 9(10)

IF REI2 < 0
   THEN COMPUTE REI2-ANS = REI2 + 4294967296
   ELSE MOVE REI2 TO REI2-ANS
END-IF

６バイトの場合は

02 REI3.
  03 REI31 USAGE IS COMP-1
  03 REI32 USAGE IS COMP-2
02 REI31-ANS PIC 9(05)
02 REI32-ANS PIC 9(10)
02 REI3-ANS  PIC 9(15)

IF REI31 < 0
   THEN COMPUTE REI31-ANS = REI31 + 65536
   ELSE MOVE REI31 TO REI31-ANS
END-IF
IF REI32 < 0
   THEN COMPUTE REI32-ANS = REI32 + 4294967296
   ELSE MOVE REI32 TO REI32-ANS
END-IF
COMPUTE REI3-ANS = REI31-ANS * 4294967296 + REI32-ANS

等の作業が必要と言うことでしょうか？
Re:１６進を１０進に変換する方法
江須扇 2006-8-19 7:35:00  [返信] [編集]

>２バイト単位しか利用できませんが、USAGE COMP-1
>を利用したらいかがでしょうか？


という事で、４バイトの場合は、 USAGE COMP-2
を利用していただくこととなります。
但し、
COMP-1 が−３２７６８≦ｘ≦３２７６７
COMP-2 が−２１４７４８３６４８≦ｙ≦２１４７４８３６４７
となります。

詳しくは、ＣＯＢＯＬ言語説明書、２．４．３．４　データの表現形式
をご覧下さい。
Re:１６進を１０進に変換する方法
ゼロ 2006-8-18 10:18:00  [返信] [編集]

遅くなりましたが、江須扇様レスありがとうございました。


USAGE COMP-1を使用してレコード長、ブロック長、更新回数は問題なく１０進に変換できました。


01 FDF-RECORDSIZE　PIC X(2).　　：　内容　'0256'(h)
01 WORK-RECORDSIZE.
　02 WORK-RSIZ1　　PIC X(5).
　02 WORK-RSIZ2　　REDEFINES WORK-RSIZ1 USAGE COMP-1.

MOVE FDF-RECORDSIZE TO WORK-RSIZ2.


これで、WORK-RSIZ1の内容が’256d’になっていました。

USAGE COMP-1の仕組みがよく理解できていないので結果論ですが、１６進数→１０進数の変換は出来たようです。

問題になったのが第１〜第４エクステント開始終了アドレス。
これは上記の方法で変換するとまったく意味不明な値が帰ってきたので下記のような変換テーブルを作って１バイトづつ判断して内部１６進から外部１６進に変換しました。
あとは１６進→１０進への計算ルーチンを作って１０進にしました。
もっといい方法があるかもしれませんがこれしか思いつきませんでした。


01 H-TABLE  PIC X(16) VALUE ""00010203・・・0D0EOF"".
01 H-TBL　　REDEFINES H-TABLE PIC X(1) OCCURS 16 TIMES.
01 D-TABLE  PIC X(32) VALUE "00010203・・・0D0E0F".
01 D-TBL　　REDEFINES D-TABLE PIC X(2) OCCURS 16 TIMES.

Re:１６進を１０進に変換する方法
ちょっと前までA-VXユーザ 2006-8-17 23:18:00  [返信] [編集]

USAGE COMP-1 って、２進数ですね。

１６進数は、４bits表現で、０〜９，Ａ〜Ｆですよね。

きっと間違っていないと思いますが、ちょっと気になって、



余計なお世話だったかな？



以上
Re:ご苦労様です−３　（聞くと怖い話）
ちょっと前までA-VXユーザ 2006-8-17 23:15:00  [返信] [編集]

今は、A-NXが手元で使えないので、詳細に分かりませんが、

確か、#SABC4 と言うUTLで、COBOL85で作ったLMから、

リンクされているCU名、REV(=SU のREV)が表示出来たはずですね。

COPY原文名、REVも表示（印刷？）出来たと思います。

IDSPと言う、シンボルデバッガがリリースされて少し経ってから

この機能が追加されたと記憶。

COBOL85の翻訳時に、DDFから直接COPY原文を生成出来ましたね。

この辺りを使っていると、非常に便利だった　と記憶。

違っていたら、ごめんなさい。



以上

ご苦労様です−３　（聞くと怖い話）
ＥＸＣＨＡＮＧＥ 2006-8-8 8:52:00  [返信] [編集]

＊　もう一つ言い忘れたことがありました。



＊　ＳＹＳ＠ＤＤＦには現状運用システムと一致した内容がある。と申しましたが、実はこれには重大な注意事項があります。



＊　Ａ−ＶＸでは、ＣＯＢＯＬの項目定義とＤＤＦのＤＢ定義とが別々に管理されているため、両者に不一致があってもＣＯＢＯＬプログラムとしては問題なしに稼働してしまう。という問題があります。



＊　ＡＳ／４００等では、例えばＣＲＴＰＦコマンドを実行するとＤＤＳの定義に基づいて、物理ファイルのアロケートとディクショナリへの登録を同時に実行してくれるので、ＤＤＳ定義（項目定義）、物理ファイル、ディクショナリ定義簿の三者が完全に一致するのですが、

Ａ−ＶＸでは歴史的にファイルベース−−＞データベースと追加されてきた経緯からか、このような厳密さがありません。



＊　コピー句とＤＤ定義の不一致を調べる方法としては、ＲＤＢＱ２等でデータを覗いてみて、中身が妥当かどうか（桁ずれなども含めて）確認するぐらいしか方法がないようです。

ご苦労様です−２
ＥＸＣＨＡＮＧＥ 2006-8-8 8:22:00  [返信] [編集]

＊　内容の補足です。説明がワンステップ抜けていました。

　　差し替えて下さい。



＊ RUN #DDM; −−−＞　２．表定義　−−＞　ＭＳＤ　ＳＹＳ＠ＤＤＦ　１．ＯＫ　−−＞　（以下同様です）。。。



ご苦労様です
ＥＸＣＨＡＮＧＥ 2006-8-8 7:57:00  [返信] [編集]

＊　ヨードさんこんにちわ。なかなかたいへんみたいですね。

　　乗せ換えというのは、何度経験してもいつも何か隘路があるようです。



＊　さて、レイアウトの件の続きですが、＃ＤＤＭを使ってＳＹＳ＠ＤＤＦをプリントアウトすることが出来ればＣＯＰＹ句がなくてもかなりな情報が手にはいると思います。



＊ RUN #DDM; −−−＞　ＭＳＤ　ＳＹＳ＠ＤＤＦ　１．ＯＫ　−−−＞　６．リスト出力　−−＞　全印刷　登録順　ＰＲＮ９９９　１．ＯＫ　で、少なくともデータベースに登録されている表名（物理ファイル、論理ファイルを含めて）および、項目名（前任者がよほど変わった方でない限りＣＯＢＯＬ上の項目名のまま）を印刷出力できます。



＊　ただしこの方法は次の点に注意です。

　（１）ＳＹＳ＠ＤＤＦは現状の運用システムに使われているので、内容の信憑性は高いが、変更を加えると現状システムに重大な問題が起こることがあるので、Ａ?ＶＸ未経験者の場合「リスト出力」程度にした方が安全。　たいていの場合ＳＹＳ＠ＤＤＦ以外にももう一つＸＸＸ＠ＤＤＦという名前のユーザＤＤＦがアロケートされていると思いますので、まずこちらで確かめてからの方がいいでしょう。（前述の　ＭＳＤ　ＳＹＳ＠ＤＤＦのところを　ＭＳＤ　ＸＸＸ＠ＤＤＦに換えて下さい）



　（２）このシステムが　カンパニーで運用されている場合は（チェンジＤＩＲにて、カレントディレクトリ上で運用されている場合は）その状態でリストを出力しても他のカンパニーやグローバルのＤＢ表は出力されません。



　（３）＃ＤＤＭで確認できるのはＤＢ表のみですので、＃ＭＡＰで確認したときの複数索引順編成ファイルのみになります。　相対編成ファイル、シーケンシャルファイル、それから旧式索引順編成等は確認できません。



　（４）リスト出力はかなりの分量になりますのでたくさんのストックフォームをご用意下さい。リスト出力中のＪＯＢのキャンセル（強制終了）は問題ないと思います。　事前にユーザＤＤＦ上でＤＢ表１個、１個出力してみて練習することをおすすめします。

もちろんＳＹＳ＠ＤＤＦの場合も１個１個個別にプリントアウトできます。



　（５）ＳＹＳ＠ＤＤＦをいじくることに自信が持てないときはユーザＤＤＦを対象にして下さい。（ただし現状運用システムと完全に一致してる保証はありませんが。。）



　（６）項目名が分からなくても属性のみ分かれば良いのであれば

RUN RDBQ2;　にてＤＢのデータを直接覗いてみれば良いでしょう。

こちらはエンドユーザ向けのツール（ＡＣＣＥＳＳの初歩みたいなもの）ですので直接データを更新したりしない限り便利な道具です。ココには各項目の属性が表示されます。



Re:順序が逆では？？？
ヨード 2006-8-7 12:00:00  [返信] [編集]

書き込みありがとうございます。

ご指摘頂いた点は、取り越し苦労ではなくまさにその通りです。



現状は、

・前任者の協力が得がたい状況にある。

・稼働中システムとSULの一致は保障できない。

という状況にあります。



それを踏まえて

・出来うる限り前任者の協力を要請

（ソースの有りかすら不明な状況）

それと並行して

・現状システムの分析

・業務フローの再確認と顧客要件(追加、変更)の確認

を実施している状況にあります。



結局のところは再構築となるだろう言う認識のもと

できる限り拾える情報は、拾っておこうというのが

現状といったところでしょうか。

Re:SMARTのデータ入力プログラムについて
MAKI 2006-8-6 16:56:00  [返信] [編集]

最初から修正する予定でしたか。

余計なことを言いました。

SMARTを使うんだったら、特に修正のときは

F3,F4,F9,ADVANCEなどのキーの使い方を覚えると

効率がよくなります。

お勧めします。
Re:１６進を１０進に変換する方法
江須扇 2006-8-5 18:14:00  [返信] [編集]

はじめましてゼロさん、江須扇と申します。



２バイト単位しか利用できませんが、USAGE COMP-1

を利用したらいかがでしょうか？



全く違う利用例ですがこの掲示板の１８１番にUSAGE COMP-1

を使ったＣＯＢＯＬリストが載っております。



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

BluesBB ©Sting_Band