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 ... 39 40 41 (42) 43 44 45 ... 108 »

Re:CULについて・・
温泉好きのうさぎ 2009-4-22 16:15:00  [返信] [編集]

サブプログラム「Ｓ」は、COBOL で記述されているプログラムですよね？
そして、この「Ｓ」が XXSUL に入っているのであれば、このコンパイルの JS を使って CU を作成することが可能です。


ただし、JS を最後まで実行させてしまうと、後半の #LBM が走ることにより、XXCUL から、この「Ｓ」が削除されてしまいますので、CBL85 が実行され


K C1232:　表示を終了しました　(0:NEXT/1:RESTART/2:PRINT) 　 _ A CBL85　01


と表示されたら、画面確認待ちのときに、Enterキーを叩かず、業務放棄してください。


この後、通常どおりこの JS を使って主プログラム「Ｐ」をコンパイルしてください。
Re:CULについて・・
IGA 2009-4-22 11:58:00  [返信] [編集]

大変ご親切にありがとうございます。
いつもLMLを生成しているＪＳは以下のとおりです。
でも、意味がよくわかりません・・。

貼り付ける際、どうしても改行がずれてしまいます。
みずらくてすみません。





// ◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎ ;
// ◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎ ;
// ◎◎◎                                                          ◎◎◎ ;
// ◎◎◎      ＣＯＢＯＬ                                          ◎◎◎ ;
// ◎◎◎                                                          ◎◎◎ ;
// ◎◎◎                                                          ◎◎◎ ;
// ◎◎◎                                     SUF = XXSUL          ◎◎◎ ;
// ◎◎◎                                     LBF = XXLIB          ◎◎◎ ;
// ◎◎◎                                     CUF = XXCUL          ◎◎◎ ;
// ◎◎◎                                     PRD =                ◎◎◎ ;
// ◎◎◎                                     NXT = LINK           ◎◎◎ ;
// ◎◎◎                ＰＲＧ＝＆０                              ◎◎◎ ;
// ◎◎◎                ＧＦＣ＝＆１                              ◎◎◎ ;
// ◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎ ;
// ◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎ ;
/SET SKIP;                                                               
/ASSIGN OEFN=USERCUL,EFN=XXCUL;                                          
/ASSIGN OEFN=USERLML,EFN=XXLML;                                            
/RUN CBL85,SIZ=63,SSW1=ON,PRI=7;                                           
SUD=MSD_SUF=XXSUL_LBD=MSD_LBF=MALIB_CUD=MSD   _CUF=XXCUL_                  
WKD=TEM001_WSZ=8000_PRD=STN_PRG=&0_MOD=REP_DBG=NO_OPT=YES_                 
DLM=ALL_BUF=MINIMUM_CMO=COBOL74_RNG=YES_RRM=MOVE-MODE_                     
SLM=SOU_SSN=S00_RSN=S00_STN=N25_USG=MULTI-SEPARATE_                        
DIO=NO_NXT=LINK_                                                           
/> ;                                                                      

/> ;                                                                       
/RUN #LBM,FIL=SYS@LML,DEV=MSD,SIZ=63;                                      
PRD=PRN999_MDE=MSD_MFI=USERCUL_ACT=DEL_SCS=NO_NAM=&0_NAM=_ACT=999_DIR=NO_  
MDE=MSD_MFI=XXLML_ACT=CHA_NAM=&0_GFC=&1_                                   
MDE=END_                                                                   
/> ;


Re:CULについて・・
富山清風 2009-4-21 19:42:00  [返信] [編集]

ご苦労されていますね。



COBOLソース-->（CBL85)-->CUL(*1)



画面ソース-->（#SFGEN)-->CUL(*2)



(*1)n個+(*2)n個-->LINK-->LML



#LBMにて､SUL間､CUL間､LML間の移動ができます。



CULへ落とすには：CBL85の出力先をCUL（コンパイルユニットライブラリ）にすれば出きます



>LMLへは、ベンダーが残したJSがあるので、実行すると、

>自動的に#CBL85、#LINK、#LBMが走ってくれます。

>CULへ落とすにはどうすればいいのでしょうか？

一般的(?)には「自動的にCBL85、#LINK」のJSと「CBL85のみ」のJS、「#SFGENのみ」のJS、の３種類あり\r

メインソースは「CBL85+#LINK」タイプを\r

画面は「#SFGENのみ」タイプを\r

サブルーチンは「CBL85のみ」タイプを使用するものと思われます。

「自動的にCBL85、#LINK、#LBM」が入っているJSライブラリに「CBL85のみ」のJSもあるものと思われますが・・・



JS内容を紹介していただければ、もう少し詳しい説明ができますが・・・



以上
CULについて・・
IGA 2009-4-21 17:29:00  [返信] [編集]

以前大変お世話になりました。


主プログラムを一部修正してコンパイルしたら、
修正箇所とまったく無関係である部分の、画面制御が変わってしまいました。
原因がわからず、ここ数週間ずっと調査してやっとわかりました。


#ABCで、CUL（コンパイルユニットライブラリ）のファイルディレクトリを確認したところ、
主プログラム「Ｐ」が呼び出している、サブプログラム「Ｓ」の、
CULのCOMPILED日付が、いつの間にかかなり古い日付に戻っていました。
見ればすぐわかる明らかに、異常に古い日付でした。
おそらく前任プログラマーがミスって、古いソースを上かぶせしてしまって、
そのまま放置してしまったかと思われます。


しかたがないので、COBOLソースを最新状態に修正しましたが、
どうすればCULに落ちるのかがわかりません。
大変基礎的なことですみません。
LMLへは、ベンダーが残したJSがあるので、実行すると、
自動的に#CBL85、#LINK、#LBMが走ってくれます。
CULへ落とすにはどうすればいいのでしょうか？


言い訳ですが、
メインフレームが専門だったので、Ａ−ＶＸが詳しくわかりません。
事情があってベンダーとの保守契約を打ち切りました。
コンピュータがわかる社員がわたししかおりません。
素人なので、質問の内容じたい、おかしいかもしれません。
CULとLMLの違いもよくわかっていません。
ユーザーCULには#SFGENによって生成された画面フォーマットと、れいのサブプログラム、
ユーザーLMLには普通の主プログラムが入っています。
Re:外字について(日本語文字拡張セットの説明書のなかの・・・）
ターラヤン 2009-4-15 22:28:00  [返信] [編集]

もう自己解決したかもしれませんが。

「Expressサーバ外字ファイル」は、ＮＥＣのＥｘｐｒｅｓｓサーバ独自の外字ファイル。
Ａ−ＶＸシステムからＬＡＮ接続のプリンタやＰＣ／ＷＳエミュレータに外字を表示する
のに使われます。

「Windows外字ファイル」は、マイクロソフトのＷｉｎｄｏｗｓの
外字ファイルです。
メモ帳やワード、エクセルなどで外字を表示するのに使います。

Ｗｉｎｄｏｗｓの外字ファイルは、古いタイプの「userfont.fon」と
フォントの種類ごとに外字を作れる「xxx.TTE」(xxxはEUDCとかいろいろ)という名前の
ものがあります。
ＷｉｎｄｏｗｓＸＰでも「userfont.fon」「XXX.TTE」両方のタイプの外字が使えるようですが、
Ｗｉｎｄｏｗｓ標準の外字ツールで外字を作るとXXX.TTEのタイプになるみたいです。



ちなみに「Ａ−ＶＸ外字ファイル」は、ＬＡＮ接続ではないプリンタや昔の専用端末
などで外字を表示するために使われる外字ファイル。

Re:ファイル削除について
ねこきち 2009-4-8 13:48:00  [返信] [編集]

温泉好きのうさぎ様。ありがとうございます。＃ＡＢＣのファイル詳細情報の表示は頻繁に使用しているのに、気づきませんでした。
外字について(日本語文字拡張セットの説明書のなかの・・・）
富山清風 2009-4-7 16:34:00  [返信] [編集]

お願いします。

ＮＥＣの日本語文字拡張セットのマニュアルの中に
「A-VX外字ファイル」、「Expressサーバ外字ファイル」、
「Windows外字ファイル」の３種類の外字ファイルが
出てきますが、
「Expressサーバ外字ファイル」と「Windows外字ファイル」の両者の
違いがよくわかりません。

初歩的なことのようなのですが、違いを教えてもらえませんか。

お願いします。
Re:ＣＯＢＯＬで日本語のあいまい検索は出来ますか
ぴぴ 2009-4-2 13:52:00  [返信] [編集]

富山清風様、ありがとうございました。



**** 部分一致 !”東”!

SELECT NCFTKC

WHERE ( FTKC-KTNM CHARACTERS WG-N1 )

COUNT IN WG-KAKUNIN .



を使い、検索する事が出来ました。

Ａ−ＶＸのＣＯＢＯＬ８５言語説明書などを読んだのですが、

わからなかったです。

これからは、過去ログも見てから質問します。

Re:ＣＯＢＯＬで日本語のあいまい検索は出来ますか
富山清風 2009-4-1 19:57:00  [返信] [編集]

http://otd10.jbbs.livedoor.jp/286441/bbs_reply?reply=521
あたりが参考になりませんか？


今回、SELECT命令に関して、
私も以下のコーディングで試して、
うまくできましたので、紹介します。


**** 部分一致 !”東”!
     SELECT  NCFTKC
         WHERE ( FTKC-KTNM   CHARACTERS NC”東” )
         COUNT IN WG-KAKUNIN .

**** 前方一致 ”東”!
     SELECT  NCFTKC
         WHERE ( FTKC-KTNM   CHARACTERS LEADING NC”東” )
         COUNT IN WG-KAKUNIN .

**** 後方一致 !”東”
     SELECT  NCFTKC
         WHERE ( FTKC-KTNM   CHARACTERS TRAILING NC”東” )
         COUNT IN WG-KAKUNIN .
     MOVE    NC”東”      TO      WG-N1 -----PIC N(01)


**** 部分一致 !”東”!
     SELECT  NCFTKC
         WHERE ( FTKC-KTNM   CHARACTERS WG-N1 )
         COUNT IN WG-KAKUNIN .


**** 前方一致 ”東”!
     SELECT  NCFTKC
         WHERE ( FTKC-KTNM   CHARACTERS LEADING WG-N1 )
         COUNT IN WG-KAKUNIN .


**** 後方一致 !”東”
     SELECT  NCFTKC
         WHERE ( FTKC-KTNM   CHARACTERS TRAILING WG-N1 )
         COUNT IN WG-KAKUNIN .


（注）検索文字列の桁数が複数ある場合（例:”東”,”東京”など）
　　　は、上記のコーディングの例ではWG-N1､WG-N2などを
　　　複数用意する必要があるかも。


参考になれば幸いです。



Re:ＣＯＢＯＬで日本語のあいまい検索は出来ますか
ぴぴ 2009-4-1 11:17:00  [返信] [編集]

温泉好きのうさぎ様、ありがとうございます。
２０年間、ＣＯＢＯＬの仕事をしていますが、
ＩＮＳＰＥＣＴ命令を使ったことがありませんでした。
これから、試してみたいと思います。
Re:ファイル削除について
温泉好きのうさぎ 2009-3-31 21:27:00  [返信] [編集]

#ABC によってアロケートされたファイルか、#ALLOC によってアロケートされたファイルかを見分けるには、#MAP で詳細情報を表示または印字させます。

最初の行に

NO. 　 1　!ID　 (CID NAME GEN) 　 : 　 ABC-FILE



このように表示されますが、ID の直前に「 ! 」があれば、#ABC によってアロケートされたもの、ここが空白であれば、#ALLOC によってアロケートされたものであることがわかります。



最近のＯＳのバージョンでは、#ABC によってアロケートされたファイルを、#ALLOC によってディアロケートすることはできませんが、逆に #ALLOC によってアロケートされたファイルを、#ABC によってディアロケートすることは可能です。



また、複数索引順編成ファイルについては、#ALLOC によってアロケートされたデータファイルに、#ABC によってキーファイルをアロケートすることはできません。逆も同じであり、同一ユーティリティに限定されます。



当方の環境で、質問者様が行った処理を再現したところ、

#ALLOC によって複数索引順編成ファイルのデータファイルおよびキーファイルをアロケートした後、

#ABC によってキーファイルのディアロケートは可能でしたが、

#ABC によってキーファイルをアロケートしようとしたところ、「ファイル属性エラー」となりました。



古いＯＳのバージョンの場合、このあたりのチェックがかなりゆるかったのではないでしょうか。

Re:ＣＯＢＯＬで日本語のあいまい検索は出来ますか
温泉好きのうさぎ 2009-3-31 17:25:00  [返信] [編集]

INSPECT 命令を使えばいいのではないでしょうか。



書き方の例

INSPECT 　 aaaa 　 TALLYING 　 nnnn 　 FOR 　 ALL 　 xxxx.


aaaa : 検査される項目
nnnn : 出現回数のカウンタ (実行前にゼロクリアしておくこと)
xxxx : 検査したい項目


aaaa および xxxx は、PIC X の基本項目で定義します。PIC N は不可なので再定義等で回避します。
xxxx は、定数で指定することも可能ですが、日本語の場合 NC”漢字” は不可です。”漢字” とだけしてください。
実行後、出現回数の値を調べることによって、結果の有無がわかります。


また、aaaa および xxxx は、部分参照させることも可能ですから、工夫することによって、可変長の検索ができます。

(例)
INSPECT 　 aaaa(bb:cc) 　 TALLYING 　 nnnn 　 FOR 　 ALL 　 xxxx(1:yy).

(意味)
aaaa の bb バイト目から cc バイトの長さの範囲で、xxxx の yy バイトの長さの項目を検査する。

ＣＯＢＯＬで日本語のあいまい検索は出来ますか
ぴぴ 2009-3-31 16:05:00  [返信] [編集]

ＲＤＢＱの検索で例えば会社名に「東」が入っているデータを検索する時は、!”東”!とすると「東京株式会社」、「株式会社東京」などが表示されます。

ＣＯＢＯＬのプログラムで同じ事が出来ますか？

１件データを読んで、会社名をワークに落として、

OCCURS 30 PIC N(01)などと定義して、ひとつひとつ比較するしかないのでしょうか？

ＳＥＬＥＣＴ命令では、あいまい検索が出来ないと思ったのですが、出来る方法はありますか？

Re:ファイル削除について
ターラヤン 2009-3-31 1:46:00  [返信] [編集]

ねこきちさん、こんにちは。



＃ＡＢＣの方が高機能で、＃ＡＬＬＯＣでは作れないファイルがある。

そういった＃ＡＢＣでしか作れないファイルを＃ＡＬＬＯＣで削除したりすると、

何か不都合があるかもしれない。

基本的には、＃ＡＬＬＯＣで作ったファイルは＃ＡＬＬＯＣで変更／削除などを行い、

＃ＡＢＣで作ったファイルは＃ＡＢＣで変更／削除した方が良い、

というような話を昔聞いたことがあります。



複数索引順編成のキーファイルの話ですが、特に手順として書いていないようですが、

キーの再生成はおこなったのですよね？



Re:ＰＩＦからの#SWRIT;について
ターラヤン 2009-3-31 1:24:00  [返信] [編集]

とりあえず出力はできるようになったようで、おめでとうございます。



フロッピーディスクのファイルはグローバルファイルで、

今回CIDなしでPIFを作ったので、このファイルもグローバルファイルですね。



PIFを作るCIDと印字要求をかけるCIDが違うと、印字要求時にエラー（U2209）になります。

#SWRIT実行時にエラーになるとしたら、#SWRITから見て、PIFが見れない、つまり

CIDが異なるのでアクセスできない状態になっている、

ということだと思いますが・・・

PIFを作るのと#SWRITを起動するのは同じオペレータなのですよね・・・

ここがよくわからないところ。



もしかしたら、原則としてPIFはグローバルで作らなければならないのか？

（私は今まで気にせずにCID有りでPIFを使ってましたが、それは間違い？）

ファイル削除について
ねこきち 2009-3-30 16:23:00  [返信] [編集]

＃ＡＬＬＯＣで登録されたファイルか、＃ＡＢＣで登録されたファイルなのか不明なのですが、このファイルを削除する際、＃ＡＬＬＯＣは、＃ＡＬＬＯＣのデリートで、＃ＡＢＣで登録されたファイルは、＃ＡＢＣの削除で　処理しないと、後ほど、ファイルが読めないとか、同名ファイルが登録できないとかって事に
ならないでしょうか？

以前、＃ＡＬＬＯＣで登録した複数索引順編成ファイルのｋｅｙ領域を削除（＃ＡＢＣ）し、再確保（＃ＡＢＣ）したところ、ファイルが読めない事がありました。

この件についてご存知の方、宜しくお願いします。
Re:ＯＣＦの操作員名
ねこきち 2009-3-30 16:12:00  [返信] [編集]

ありがとうございます。

やってみました。大丈夫そうです。
Re:ＰＩＦからの#SWRIT;について
IGA 2009-3-30 14:35:00  [返信] [編集]

ＭＳＤから出ました！



MSD002にファイル名＝ABC、で作成したのですが、

ためしに、グローバルＩＤでログインして、

ＣＩＤ＝スペースで、

ファイルを作成（アローケート）してみました。



普段使用している別のＣＩＤ＝ＸＸ、でログインしなおし、

＃ＳＰＯＯＬ；

↓

複写

↓

印字要求



をしたら出ました！



なぜだかわかりません。

定期業務で使用したいので、

原因調べます。



ちょっと気になるのが、

スプールファイル　SYS@SPXXXX は、

CID＝スペース、つまり、

グローバルで作成されていることです。



●帳票を作ったジョブのＣＩＤ

●スプールファイル（ＳＹＳ＠ＳＰＸＸＸ）のＣＩＤ

●ＰＩＦファイルを作成するＣＩＤ（MSDXXXとかFDUXXX)

●印字用要求をかけるＣＩＤ

●スプールライトを発行するＣＩＤ



これらの関係がなにかありそうです。
Re:ＰＩＦからの#SWRIT;について
IGA 2009-3-30 10:16:00  [返信] [編集]

IGAです。ほんとにすみません。

＞同じ名前のファイルが同じハードディスク（ＭＳＤｘｘｘ）にある
ということはありませんか。
同じファイル名のＰＩＦがあると、ライタが間違って別の同名ファイル
を探しに行って「ファイルが無い」と言われるかもしれません。

鋭いご指摘です。可能性は薄いとは思いますが、
再確認する必要はあると思います。

CIDのからみも怪しいです。CIDをグローバルにしたり、
変えたり、色々実施してみます。


ありがとうございました。
また結果報告させていただきます。
Re:ＰＩＦからの#SWRIT;について
ターラヤン 2009-3-30 1:55:00  [返信] [編集]

返事のないままですみません。



フロッピーディスクでできて、ハードディスクのファイルにすると

ダメのときは、グローバルファイル／ローカルファイルが原因の事

が多いので、それかと思って質問したのですが、違うようですね。



私もフロッピーディスクとハードディスクにＰＩＦを作って、それぞれ

印刷してみましたが、普通に印刷できました。



今のところ、原因は思いつきません。





同じ名前のファイルが同じハードディスク（ＭＳＤｘｘｘ）にある

ということはありませんか。

同じファイル名のＰＩＦがあると、ライタが間違って別の同名ファイル

を探しに行って「ファイルが無い」と言われるかもしれません。







ちなみに、グローバルファイル／ローカルファイルの説明は、

「データ管理説明書」「３．２．１ファイルの参照範囲」にあります。

 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ 
« 1 ... 39 40 41 (42) 43 44 45 ... 108 »

BluesBB ©Sting_Band