|
NECオフコン関連
オフコン一般
情報
|
ＮＥＣのオフコンを活用するためのノウハウを話し合うための掲示板です。
|
| ■▲▼
|
| 1 |
概要マニュアルの型番は？ |
|
こや 2004-10-1 10:36:00
[返信] [編集]
初めまして。
入社後、Ａ−ＶＸ一筋のこやと申します。
このようなサイトが有った事を大変嬉しく感じています。
で、早速ですが、教えてください。
クライアントＡＰ起動機能の説明に、
>詳細は、ＮＥＣから出ている「概要マニュアル」の「ＷＳエミュレータのクライアントＡＰ起動機能について」を参照してください。
とありますが、マニュアルの背表紙にある型番を教えて頂きたいのですが。詳しく知りたいのですが、マニュアルが見つかりません．．．
ちなみに当方での、動作はＯＫでした！
宜しくお願いします。
|
| 2 |
Re:概要マニュアルの型番は？ |
|
江須扇 2004-10-2 17:40:00
[返信] [編集]
> 初めまして。
> 入社後、Ａ−ＶＸ一筋のこやと申します。
> このようなサイトが有った事を大変嬉しく感じています。
初めまして江須扇と申します。
私もこのサイトに感激し時々、立ち寄る者です。
> で、早速ですが、教えてください。
> クライアントＡＰ起動機能の説明に、
> >詳細は、ＮＥＣから出ている「概要マニュアル」の「ＷＳエミュレータのクライアントＡＰ起動機能について」を参照してください。
> とありますが、マニュアルの背表紙にある型番を教えて頂きたいのですが。詳しく知りたいのですが、マニュアルが見つかりません．．．
> ちなみに当方での、動作はＯＫでした！
> 宜しくお願いします。
このマニュアルは最初は私も迷ってしまいました。
なぜなら、６００シリーズは基本的にはマニュアルレスで、ＣＤが添付されるだけです。紙マニュアルが有るのはＰＣ／ＷＳ−ＥＭＬ位かな？
しかし１冊＋２冊だけはハード購入時に添付されます。１冊はハードの説明書で白の表紙です。あと２冊は橙白の表紙で「システム設定変更の手引き」とこの「概要マニュアル」です。
長々書きましたが、ハードウェア導入時の添付品をお探しください。
但し、Ａ−ＶＸ４、Ｒ４．０以降しかこの事は書いてありません。
という事です。手元にいま無いので申し訳ありませんが型番は不明です。 |
| 3 |
Re:概要マニュアルの型番は？ |
|
ターラヤン 2004-10-4 23:26:00
[返信] [編集]
> 初めまして。
こやさん、はじめまして。
> とありますが、マニュアルの背表紙にある型番を教えて頂きたいのですが。詳しく知りたいのですが、マニュアルが見つかりません．．．
会社にしかマニュアルが無いので、返事が遅くなりました。
裏表紙に書いてある番号ですが、私のところにあるのは
「856-000009-003-A」となっていました。
|
| 4 |
Re:概要マニュアルの型番は？ |
|
いいのかな？ 2004-10-9 22:12:00
[返信] [編集]
概要マニュアルは、サーバを購入すれば添付されてきますよ。
|
| 5 |
有りました．．． |
|
こや 2004-10-12 15:32:00
[返信] [編集]
本棚の後ろに、落っこちていました。
139ページに詳しく載っていますね。
みなさん、お騒がせしました。 |
|
| ■▲▼
|
| 1 |
A-VXをマスターしたいのですが・・・ |
|
やま 2004-9-24 15:29:00
[返信] [編集]
やまと申します。初めまして。
早速ですがA-VXについてなのですが、
今更という感じかもしれませんが、これからA-VXの勉強をしたいと思っています。ですが、講習会はもう現在行われていないようですし、自習用のテキストも販売されていないようです。
どうしたら良いでしょうか。
実は今、基幹システムでA-VXが稼動していまして、もうサポートが無くなっていく方向なら、せめて今動いているCOBOLやJCLのソースを見て（出来ればWindowsまたはFreeBSDに取り出したい）みたいと思いますがこの場合どうすれば可能でしょうか？
|
| 2 |
Re:A-VXをマスターしたいのですが・・・ |
|
江須扇 2004-9-25 15:59:00
[返信] [編集]
> やまと申します。初めまして。
----------------------------------------------------------------------
江須扇ともうします。初めまして。
> 早速ですがA-VXについてなのですが、
> 今更という感じかもしれませんが、これからA-VXの勉強をしたいと思っています。ですが、講習会はもう現在行われていないようですし、自習用のテキストも販売されていないようです。
> どうしたら良いでしょうか。
----------------------------------------------------------------------
仰る通りメーカー（ＮＥＣ）の姿勢がそうだと大変不安になりますね。
大変失礼ですが、販売店にご相談されましたか？その回答は如何でしたか？
具体的には、「徒弟制度的」に販売店の良く知っているＳＥから教えてもらう
しかありません。オフコンは伝統芸能や伝統工芸を守るようなものに成り下がっ
てしまいました。ただ逆説的に考えれば人に支えられた究極のセキュリティ保
護かもしれません。また、これが現状の最大のメリットと私は思います。
場合によっては販売店に煙たがられるので、費用を要求されるかもしれません。
逆にその事でその販売店の姿勢を見たら如何でしょうか？
仮に費用見積が販売店から出てきたら業務ですので上司にご相談されて費用対
効果を検討されるべきとも思います。
オフコンは業務で使用するものですので教育投資は必要と思います。
私の持論ですがオフコンに関わらずパソコンでも教育投資は必要です。利用者
は操作方法の熟知だけで良いので一般知識の範囲内で知っていれば良いのでしょ
うが、社内システムの開発者、運用保守者はそれなりの知識は必要と思います。
従って教育投資の費用は必要と思います。それができなけれは、専門会社にア
ウトソーシングをするしかないと思います。
> 実は今、基幹システムでA-VXが稼動していまして、もうサポートが無くなっていく方向なら、せめて今動いているCOBOLやJCLのソースを見て（出来ればWindowsまたはFreeBSDに取り出したい）みたいと思いますがこの場合どうすれば可能でしょうか？
----------------------------------------------------------------------
上記はこのサイトのあちこち見ていただければ解かると思います。
特に「技術メモ→ユーティリティーの使い方」を見てみたらいかがですか？
また機種やＯＳのバージョンが解かりませんが、Ａ−ＶＸ４Ｒ２．０以降であ
れば、Ｆｉｌｖｅｒｔの最新機能でＷｉｎｄｏｗｓのエディターが使えると思
います。
http://www.ace.comp.nec.co.jp/filvert/verup.html
|
| 3 |
Re:A-VXをマスターしたいのですが・・・ |
|
ターラヤン 2004-9-27 20:19:00
[返信] [編集]
> やまと申します。初めまして。
はじめまして。
>
> 今更という感じかもしれませんが、これからA-VXの勉強をしたいと思っています。ですが、講習会はもう現在行われていないようですし、自習用のテキストも販売されていないようです。
>
たしかに最近は講習会があるという話は聞かないですね。
しかし以前調べた限りでは、定期的に講習会が開かれてはいないようですが、今でも要望があると個別に講習会を開くような仕組みにはなっているようです。
「ようです」というのは、「個別に」という為か、テキストにウン万円、講習会（数時間）がウン十万円と非常にお高く、正直講習会を受けるようなところがあるのかどうか疑問だからです。
今から勉強ということになると、付属のマニュアルなどを見るしかないかもしれません。
やはり誰か詳しい人に聞くしかないのでしょうか？
|
|
| ■▲▼
|
| 1 |
KEISコードからJIPSの変換 |
|
Bluelion 2004-9-24 13:56:00
[返信] [編集]
A-VXで日立のデータ（KEISコード）のMTを処理したいのですが
KEISからの変換ってどうすればいいのでしょうか？
KEISそのものの仕様がわかっていません
うーーん JIPSを処理できるけどJIPS.JISでは提供できない（KEIS）と言う変な話なんですけど
いまS100（S7200内部コード）とKEISの対応表を作って変換プログラムで変換することをかんがえているのですが、ビットのシフトやAND・ORを駆使して変換できないのでしょうかね？
ちなみに外字はなにかに（■とか）おきかえて処理する予定です
以上 おしえてください
|
| 2 |
KEISコードからJIPSの変換 |
|
江須扇 2004-9-25 10:27:00
[返信] [編集]
こんにちは江須扇と申します。
大変失礼ですが、販売店にご相談されましたか？
昔、メーカー（ＮＥＣ）は他社オフコンのリプレース対応としてコード変換のプロ
グラムを販売店に提供していたような気もします。
また、その後、似たような有償ソフトも提供していると思います。
（ＩＢＭ、富士通だけかも日立は？？？？）
ただ、有償ソフトは販売停止になっているかもしれません。
リプレース用のプログラムもユーザーには公開はしてないかもしれません。
以前、コード変換の本も持っていたのですが、誰かに貸したままか、何処かになく
してしまいました。
ＫＥＩＳのコード体系も有った様な記憶です。
基本的にはＪＩＳコード又は区点コードに対して日本語ＯＮ、ＯＦＦコードを付け
て１バイト目と２バイト目を何らかの規則でシフトしていたのではと思います。
あくまでも記憶です。（私はアバウトＳＥ＆兜蟹ＳＥ（シーラカンスＳＥ）です。）
日立側でＪＩＳコードに変換できれば、＃ＫＦＣＮＶを利用できると思います。
下記は昔々作ったＧＯＴＯ有り有りの内部コードとＳＩＦＩＴＪＩＳの変換サブルー
チンです。
参考になればと添付しました。
---------------------------------------------------------------------------
これは、S3100A モデルの #PCCNV で MSDOS テキストファイルを変換したとき当
時の #PCCNV のバージョンでは 1 バイト、2 バイトの混在のフィールドは変換出来
ないので COBOL85 で作成したものです。
方法はちょっと変ですが #PCCNV で全て 1 バイトの ANK 変換をしたファイルを
入力ファイルとし再度 1 バイトで EBCDIC から JIS8 に変換し、1 バイト系か、2
バイト系かをチェックし 2 バイト系は内部漢字コード (J) に変換します。 最後に
また全て、 1 バイトとして、JIS8 から、EBCDIC に変換して、終了します。変換部
分はサブルーチンになっているので、フィールド単位の変換も可能です。
また、NEC 内部から、SIFTJIS もサブルーチンは作ってあります。
000010 IDENTIFICATION DIVISION.
000020*******************************************************************
000030* *
000040* SJIS TO NEC(INTERNAL(E)) << SJ2NEC >> *
000050* UPDATE : 93/11/25 *
000060*******************************************************************
000070 PROGRAM-ID. SJ2NEC.
000080 ENVIRONMENT DIVISION.
000090 CONFIGURATION SECTION.
000100 SOURCE-COMPUTER. NEC.
000110 OBJECT-COMPUTER. NEC.
000120 INPUT-OUTPUT SECTION.
000130 FILE-CONTROL.
000140 SELECT CIFNEC ASSIGN TO CIFNEC-MSD.
000150 SELECT CIFSJIS ASSIGN TO CIFSJIS-MSD.
000160*
000170 DATA DIVISION.
000180 FILE SECTION.
000190*
000200 FD CIFNEC LABEL RECORD IS STANDARD
000210 BLOCK CONTAINS 16 RECORDS
000220 VALUE OF IDENTIFICATION "CIFNEC".
000230 01 CIFNEC-REC PIC X(80).
000240*
000250 FD CIFSJIS LABEL RECORD IS STANDARD
000260 BLOCK CONTAINS 16 RECORDS
000270 VALUE OF IDENTIFICATION "CIFSJIS".
000280 01 CIFSJIS-REC PIC X(80).
000290*
000300*
000310**************************************************************
000320 WORKING-STORAGE SECTION.
000330**************************************************************
000340 01 WORK-AREA.
000350 03 END-FLG PIC X(03) VALUE SPACE.
000360 01 KASAN PIC 9(5).
000370 01 KASAN2 PIC 9(5).
000380 01 EVEN PIC 9(5).
000390 01 DAI PIC 9(5).
000400 01 CNV-AREA.
000410 03 C1 PIC X(1) OCCURS 256 INDEXED BY C1-IDX.
000420 01 CHKK-AREA.
000430 03 FILLER PIC X(1) VALUE LOW-VALUE.
000440 03 CHKK PIC X(1).
000450 01 CHKK2-AREA REDEFINES CHKK-AREA.
000460 03 CHKK2 USAGE COMP-1.
000470 01 CHKT-AREA.
000480 03 FILLER PIC X(1) VALUE LOW-VALUE.
000490 03 CHKT PIC X(1).
000500 01 CHKT2-AREA REDEFINES CHKT-AREA.
000510 03 CHKT2 USAGE COMP-1.
000520 01 CNV-NUMB PIC 9(4).
000530 01 EJ-TBL.
000540 03 FILLER PIC X(16)
000550 VALUE ""000102039C09867F978D8E0B0C0D0E0F"".
000560 03 FILLER PIC X(16)
000570 VALUE ""101112139D0A08871819928F1C1D1E1F"".
000580 03 FILLER PIC X(16)
000590 VALUE ""808182838485171B88898A8B8C050607"".
000600 03 FILLER PIC X(16)
000610 VALUE ""909116939495960498999A9B14159E1A"".
000620 03 FILLER PIC X(16)
000630 VALUE ""20A1A2A3A4A5A6A7A8A95B2E3C282B21"".
000640 03 FILLER PIC X(16)
000650 VALUE ""26AAABACADAEAF61B0625D5C2A293B5E"".
000660 03 FILLER PIC X(16)
000670 VALUE ""2D2F636465666768696A7C2C255F3E3F"".
000680 03 FILLER PIC X(16)
000690 VALUE ""6B6C6D6E6F70717273603A2340273D22"".
000700 03 FILLER PIC X(16)
000710 VALUE ""74B1B2B3B4B5B6B7B8B9BA75BBBCBDBE"".
000720 03 FILLER PIC X(16)
000730 VALUE ""BFC0C1C2C3C4C5C6C7C8C97677CACBCC"".
000740 03 FILLER PIC X(16)
000750 VALUE ""787ECDCECFD0D1D2D3D4D579D6D7D8D9"".
000760 03 FILLER PIC X(16)
000770 VALUE ""7AA0E0E1E2E3E4E5E6E7DADBDCDDDEDF"".
000780 03 FILLER PIC X(16)
000790 VALUE ""7B414243444546474849E8E9EAEBECED"".
000800 03 FILLER PIC X(16)
000810 VALUE ""7D4A4B4C4D4E4F505152EEEFF0F1F2F3"".
000820 03 FILLER PIC X(16)
000830 VALUE ""249F535455565758595AF4F5F6F7F8F9"".
000840 03 FILLER PIC X(16)
000850 VALUE ""30313233343536373839FAFBFCFDFEFF"".
000860 01 JE-TBL.
000870 03 FILLER PIC X(16)
000880 VALUE ""00010203372D2E2F1605150B0C0D0E0F"".
000890 03 FILLER PIC X(16)
000900 VALUE ""101112133C3D322618193F271C1D1E1F"".
000910 03 FILLER PIC X(16)
000920 VALUE ""404F7F7BE06C507D4D5D5C4E6B604B61"".
000930 03 FILLER PIC X(16)
000940 VALUE ""F0F1F2F3F4F5F6F7F8F97A5E4C7E6E6F"".
000950 03 FILLER PIC X(16)
000960 VALUE ""7CC1C2C3C4C5C6C7C8C9D1D2D3D4D5D6"".
000970 03 FILLER PIC X(16)
000980 VALUE ""D7D8D9E2E3E4E5E6E7E8E94A5B5A5F6D"".
000990 03 FILLER PIC X(16)
001000 VALUE ""79575962636465666768697071727374"".
001010 03 FILLER PIC X(16)
001020 VALUE ""75767778808B9B9CA0ABB0C06AD0A107"".
001030 03 FILLER PIC X(16)
001040 VALUE ""202122232425061728292A2B2C090A1B"".
001050 03 FILLER PIC X(16)
001060 VALUE ""30311A333435360838393A3B04143EE1"".
001070 03 FILLER PIC X(16)
001080 VALUE ""B1414243444546474849515253545556"".
001090 03 FILLER PIC X(16)
001100 VALUE ""588182838485868788898A8C8D8E8F90"".
001110 03 FILLER PIC X(16)
001120 VALUE ""9192939495969798999A9D9E9FA2A3A4"".
001130 03 FILLER PIC X(16)
001140 VALUE ""A5A6A7A8A9AAACADAEAFBABBBCBDBEBF"".
001150 03 FILLER PIC X(16)
001160 VALUE ""B2B3B4B5B6B7B8B9CACBCCCDCECFDADB"".
001170 03 FILLER PIC X(16)
001180 VALUE ""DCDDDEDFEAEBECEDEEEFFAFBFCFDFEFF"".
001190**************************************************************
001200 PROCEDURE DIVISION.
001210**************************************************************
001220 HAJIME.
001230 PERFORM INIT-RTN THRU INIT-EXT.
001240 PERFORM MAIN-RTN THRU MAIN-EXT
001250 UNTIL END-FLG = "END".
001260 PERFORM END-RTN THRU END-EXT.
001270**************************************************************
001280* 初期処理
001290**************************************************************
001300 INIT-RTN.
001310 OPEN INPUT CIFSJIS.
001320 OPEN OUTPUT CIFNEC.
001330 INITIALIZE WORK-AREA.
001340 INIT-EXT.
001350 EXIT.
001360**************************************************************
001370* 主 処理
001380**************************************************************
001390 MAIN-RTN.
001400 READ CIFSJIS AT END MOVE "END" TO END-FLG
001410 GO TO MAIN-EXT.
001420 MOVE 80 TO CNV-NUMB.
001430 MOVE CIFSJIS-REC TO CNV-AREA.
001440 PERFORM JE-RTN THRU JE-EXT.
001450 MOVE CNV-AREA TO CIFNEC-REC.
001460 WRITE CIFNEC-REC.
001470 MAIN-EXT.
001480 EXIT.
001490**************************************************************
001500* 終了処理
001510**************************************************************
001520 END-RTN.
001530 CLOSE CIFNEC CIFSJIS.
001540 STOP RUN.
001550 END-EXT.
001560 EXIT.
001570**************************************************************
001580* NEC-INTERNAL(E) TO SIFT-JIS
001590**************************************************************
001600 EJ-RTN.
001610 CALL "CBLCODE" USING CNV-AREA CNV-NUMB EJ-TBL.
001620 SET C1-IDX TO 1.
001630 EJ1-RTN.
001640 MOVE ZERO TO CHKK2
001650 CHKT2
001660 KASAN
001670 KASAN2
001680 EVEN
001690 DAI.
001700 MOVE C1(C1-IDX) TO CHKK.
001710 IF CHKK2 < 96 GO TO EJ3-RTN
001720 ELSE IF CHKK2 < 125 MOVE 81 TO KASAN
001730 ELSE IF CHKK2 > 223 MOVE 112 TO KASAN
001740 ELSE IF CHKK2 > 159 GO TO EJ3-RTN
001750 ELSE IF CHKK2 > 127 MOVE 80 TO KASAN
001760 ELSE IF CHKK2 = 126 MOVE 143 TO CHKK2
001770 MOVE 1 TO EVEN
001780 GO TO EJ2-RTN
001790 ELSE GO TO EJ3-RTN.
001800 DIVIDE 2 INTO CHKK2 GIVING CHKK2 REMAINDER EVEN.
001810 COMPUTE CHKK2 = CHKK2 + KASAN.
001820 EJ2-RTN.
001830 MOVE C1(C1-IDX + 1) TO CHKT.
001840 IF CHKT2 > 95 MOVE 1 TO DAI
001850 ELSE MOVE 0 TO DAI.
001860 COMPUTE CHKT2 = CHKT2 + 31 + DAI - DAI * EVEN + 95 * EVEN.
001870 MOVE CHKK TO C1(C1-IDX).
001880 MOVE CHKT TO C1(C1-IDX + 1).
001890 SET C1-IDX UP BY 2.
001900 IF C1-IDX < CNV-NUMB GO TO EJ1-RTN.
001910 GO TO EJ4-RTN.
001920 EJ3-RTN.
001930 SET C1-IDX UP BY 1.
001940 IF C1-IDX < CNV-NUMB GO TO EJ1-RTN.
001950 EJ4-RTN.
001960 CALL "CBLCODE" USING CNV-AREA CNV-NUMB JE-TBL.
001970 EJ-EXT.
001980 EXIT.
001990**************************************************************
002000* SIFT-JIS TO NEC-INTERNAL(E)
002010**************************************************************
002020 JE-RTN.
002030 CALL "CBLCODE" USING CNV-AREA CNV-NUMB EJ-TBL.
002040 SET C1-IDX TO 1.
002050 JE1-RTN.
002060 MOVE ZERO TO CHKK2
002070 CHKT2
002080 KASAN
002090 KASAN2
002100 EVEN
002110 DAI.
002120 MOVE C1(C1-IDX) TO CHKK.
002130 IF CHKK2 < 96 GO TO JE4-RTN
002140 ELSE IF CHKK2 < 127 GO TO JE3-RTN
002150 ELSE IF CHKK2 < 129 GO TO JE4-RTN
002160 ELSE IF CHKK2 > 239 GO TO JE4-RTN
002170 ELSE IF CHKK2 > 223 MOVE 112 TO KASAN
002180 ELSE IF CHKK2 > 159 GO TO JE4-RTN
002190 ELSE IF CHKK2 > 143 MOVE 80 TO KASAN
002200 ELSE MOVE 81 TO KASAN
002210 IF CHKK2 = 143 MOVE 1 TO DAI.
002220 MOVE C1(C1-IDX + 1) TO CHKT.
002230 IF CHKT2 < 127 MOVE 31 TO KASAN2
002240 MOVE 0 TO EVEN
002250 ELSE IF CHKT2 < 159 MOVE 32 TO KASAN2
002260 MOVE 0 TO EVEN
002270 ELSE MOVE 126 TO KASAN2
002280 MOVE 1 TO EVEN.
002290 JE2-RTN.
002300 COMPUTE CHKK2 = (CHKK2 - KASAN) * 2 + EVEN + EVEN * DAI.
002310 COMPUTE CHKT2 = CHKT2 - KASAN2.
002320 MOVE CHKK TO C1(C1-IDX).
002330 MOVE CHKT TO C1(C1-IDX + 1).
002340 SET C1-IDX UP BY 2.
002350 IF C1-IDX < CNV-NUMB GO TO JE1-RTN.
002360 GO TO JE5-RTN.
002370 JE3-RTN.
002380 COMPUTE CHKK2 = CHKK2 - 32.
002390 MOVE CHKK TO C1(C1-IDX).
002400 JE4-RTN.
002410 SET C1-IDX UP BY 1.
002420 IF C1-IDX < CNV-NUMB GO TO JE1-RTN.
002430 JE5-RTN.
002440 CALL "CBLCODE" USING CNV-AREA CNV-NUMB JE-TBL.
002450 JE-EXT.
002460 EXIT.
---------------------------------------------------------------------------
注）掲示板対応でスペースを２バイトスペースに変更しております。
このリストをそのまま利用する場合は２バイトスペースを１バイトスペース２文
字に戻してしてください。 |
| 3 |
販売店がねー |
|
ＢＬＵＥＬＩＯＮ 2004-9-27 11:26:00
[返信] [編集]
レスありがとうございます
販売店には問い合わせしているのですが、日立との確執があるみたいで
責任ある回答がでてきません
本件には関係ないですがＮＥＣで担当を決めているみたで他の販売店にシステムの保守を頼むと断られてしまいます。この辺のシステムは改善してほしいぞ＞＞NEC
いろいろ調べたところ KEIS ＝ JIS + HEX"8080" でいけそうです
実際コンバートスターでJISからKEISに変換したらそのようになってました
ありがとうございました
|
| 4 |
一応解決！ |
|
BLUELION 2004-10-18 20:07:00
[返信] [編集]
ＪＩＳ第一水準と第二水準を全部手でうって、それをＫＦＣＮＶでＪＩＳにしてそれをから、ＫＥＩＳに変換して、ＪＩＳとＳ１００（内部コード）とＫＥＩＳの変換テーブルを作成しました。
もらったＭＴのデータ（ＫＥＩＳ）からそのテーブルを参照してｓ１００に置き換えるプログラムで一応変換できましたが
新たの問題発生です
ＪＩＳ７８とＫＥＩＳ８３のコードの違いから文字が変わってしまいます。 今度はＪＩＳ８３で拡張と変形された文字を 外字に変換する必要がでてきました。
外字なくなってほしいです(涙）
|
|
| ■▲▼
|
| 1 |
#TEDITで？ |
|
初心者に逆戻り 2004-9-17 9:50:00
[返信] [編集]
極々初歩の質問ですが教えてください。
７年振りにITOS、、いやA-VXを触ることになってしまいました。
5800/600環境は初めてですが端末エミュレータ含めてなかなかいい感じです。
しかし#TEDIT;からCOBOL、TEMPORARY、等々とし、--プロンプトから
R (ソース名) MSD (ソースライブラリ)[Enter]
としてもパラメータが違っているとエラーになってしまいました。
私の記憶が間違っているのかなにか勘違いしているのかはたまた構文が変わってしまったのでしょうか？
|
| 2 |
Re:#TEDITで？ |
|
BLUELION 2004-9-17 11:34:00
[返信] [編集]
COBOLのソースなら
R [MEMBER] MSD SYS@SUL
なんて感じでいいんですよ
基本的には間違いがないようにおもいます |
| 3 |
Re:#TEDITで？ |
|
ＥＸＣＨＡＮＧＥ 2004-9-17 12:48:00
[返信] [編集]
> R (ソース名) MSD (ソースライブラリ)[Enter]
> としてもパラメータが違っているとエラーになってしまいました。
☆ ご質問のパラメータ指定では、 （ソースライブラリ） となっていますが、ライブラリ名の前後に "(" ")"が入ってしまっているのではないでしょうか？ ここは （ ）なしで、
Ｒ （ソースメンバ名） ＭＳＤ ソースライブラリ名 Ｅｎｔｅｒ押下 です。
☆ なお、ソースメンバ名の前後の（ ）は、[ ] でもＯＫなので、私はｓｈｉｆｔキーを押さなくても良い [ ]を使っています。
|
| 4 |
Re:#TEDITで？ |
|
初心者に逆戻り 2004-9-21 11:49:00
[返信] [編集]
お二人にResいただきありがとうございます。
[]は知りませんでした。（忘れているのかも､､orz）
もうちょっと試してみます。
|
| 5 |
Re:#TEDITで？ |
|
江須扇 2004-9-25 9:23:00
[返信] [編集]
亀レスすいません。
江須扇と申します。
＃ＴＥＤＩＴを立ち上げたコマンド入力でＨＥＬＰキー（Ｅｎｄ）キーを押すと下記のようなものがでます。
--------------------------------------------------------------------------------
TOP : 0001 CUR : 0001 END : 9999 TEXT : XXXXXX REV : 9999
--------------------------------------------------------------------------------
* * * #TEDIT COMMAND * * *
01. POSITION; NNNN +NNNN -NNNN -NNNN /STRING/
02. READ; R [(PROGRAM)] DEVICE [[CID] FILE[(VOLUME)]] [L1[,L2]]
03. WRITE; W[N][A/R] DEVICE [[CID] FILE[(VOLUME)]] [L1[,L2]] [PRN[NNN]]
04. INSERT; I
05. DELETE; X [L1[,L2]]
06. SUBSTITUTE; S [L1[,L2]] S/STRING1/[-] [[/STRING2/]/[X]]
07. COPY; C [L1[,L2]] [(NNN)]
08. MOVE; M [L1[,L2]]
09. GLOBAL; G[DEVICE/X] [L1[,L2]] S/STRING/
10. EXCLUDE; E[DEVICE/X] [L1[,L2]] S/STRING/
11. TAB; T / T N1,N2...N20 / T RNN / T ? / T [F/S/U/I]
12. NAME; N PROGRAM [REV.]
13. AUTO; A
14. HISTORY; H[ON/OFF] [PRN999/PRN[NNN]]
SELECT NO.( )
--------------------------------------------------------------------------------
* * *
--------------------------------------------------------------------------------
--
--------------------------------------------------------------------------------
NOTE : FROM= TO=
--------------------------------------------------------------------------------
A #TEDIT 01
また、ＳＣＲＯＬＬＵＰ（Ｓｈｉｆｔ＋Ｐａｇｅｄｏｗｎ）を押すと下記のようなものがでます。番号を選択すると詳細説明がでます。
--------------------------------------------------------------------------------
TOP : 0001 CUR : 0001 END : 9999 TEXT : XXXXXX REV : 9999
--------------------------------------------------------------------------------
15. ZONE; Z [C1[,C2]]
16. IDENTIFY; ID[U/C/ ] /STRING/
17. SPLIT; SPL [U/L/Q] TYPE DEVICE [[CID] FILE[(VOLUME)][,NEW]] SIZE
18. TRANSFER; TR [T1[,T2]]
19. QUIT; Q [REL/SAVE]
* * * #TEDIT PF-KEY * * *
PF1 ... SET NOTE
PF2 ... RESET NOTE
PF3 ... SCROLL UP
PF4 ... SCROLL DOWN
PF5 ... STOP SCROLL
PF6 ... CHANGE SCREEN
SELECT NO.( )
--------------------------------------------------------------------------------
* * *
--------------------------------------------------------------------------------
--
--------------------------------------------------------------------------------
NOTE : FROM= TO=
--------------------------------------------------------------------------------
A #TEDIT 01
以上、亀レスでした。
|
|
| ■▲▼
|
| 1 |
ＲＤＢの部分一致検索 |
|
江須扇 2004-9-11 23:59:00
[返信] [編集]
江須扇です。またまたＣＯＢＯＬの質問です。
ＲＤＢで部分一致検索をしたい場合
ＲＤＢＱ２では ！”ＸＸＸ”！でＯＫです。
ＳＭＡＲＴ�僑釘悗任倭�択指定の８．ＥＱ（部分一致）で可能ですが
ＣＯＢＯＬ８５の場合は、巧くいきません。
右項目にスペースが有る場合はスペースも対象になるようですそこで私は下記
の例の様コーディングをしておりますがこれしかないのでしょうか？
もっと良い方法をご存知の方はお教えください。
----------------------------------------------------------------------
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. SELTST.
000030 ENVIRONMENT DIVISION.
000040 CONFIGURATION SECTION.
000050 SOURCE-COMPUTER. EXPRESS5800.
000060 OBJECT-COMPUTER. EXPRESS5800.
000070 INPUT-OUTPUT SECTION.
000080 FILE-CONTROL.
000090 SELECT RDBFILE ASSIGN TO RDBFILE-RDB.
000100 DATA DIVISION.
000110 FILE SECTION.
000120 FD RDBFILE
000130 LABEL RECORD IS STANDARD
000160 VALUE OF IDENTIFICATION "RDBFILE".
000170 COPY RDBFILE-R OF DDF.
000180 WORKING-STORAGE SECTION.
000210 01 WRK-REC.
000230 02 WRK-CCNT PIC 9(02).
000240 02 WRK-SELECT PIC X(05).
000250 02 WRK-SELECTR1 REDEFINES WRK-SELECT.
000260 03 WRK-SELECT1 PIC X(01).
000270 03 FILLER PIC X(04).
000280 02 WRK-SELECTR2 REDEFINES WRK-SELECT.
000290 03 WRK-SELECT2 PIC X(02).
000300 03 FILLER PIC X(03).
000310 02 WRK-SELECTR3 REDEFINES WRK-SELECT.
000320 03 WRK-SELECT3 PIC X(03).
000330 03 FILLER PIC X(02).
000340 02 WRK-SELECTR4 REDEFINES WRK-SELECT.
000350 03 WRK-SELECT4 PIC X(04).
000360 03 FILLER PIC X(01).
000670 PROCEDURE DIVISION.
000680 INIT-RTN.
000690 ACCEPT WRK-SELECT.
000700 MOVE ZERO TO WRK-CCNT.
000710 INSPECT WRK-SELECT TALLYING WRK-CCNT FOR CHARACTERS
000720 BEFORE " ".
000730 OPEN I-O RDBFILE.
000740 EVALUATE WRK-CCNT
000750 WHEN 1
000760 SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT1
000770 WHEN 2
000780 SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT2
000790 WHEN 3
000800 SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT3
000810 WHEN 4
000820 SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT4
000830 WHEN 5
001040 SELECT RDBFILE WHERE BPW-BUBN CHARACTERS WRK-SELECT
001050 END-EVALUATE.
以下略〜
|
|
|
