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 ... 71 72 73 (74) 75 76 77 ... 84 »

■▲▼
1 ハードディスク
まさ 2004-8-20 11:40:00  [返信] [編集]

前から思っていたのですがＥｘｐｒｅｓｓ５８００／６００シリーズ
の純正ハードディスクは高価ですが市販のものは付かないのでしょう
か？
※ちなみにディスクアレイになってます。
2 Re:ハードディスク
amadeus 2004-8-22 22:19:00  [返信] [編集]

一般的にメーカーや販売店や保守会社の立場からだと純正品以外は
「取り付けられない」との回答があるでしょう。
販売する製品については純正品にての動作検証のみをおこなって
保証の対象にしているのですから。
ましてやアレイ構成の場合は、単体のディスクの動作よりも複雑な
条件での環境ですので、より厳しい条件となります。
業務で使用されるのなら純正品の選択しかないでしょう。

でも実際は・・・・・　　やめておきましょう。（笑）

> 前から思っていたのですがＥｘｐｒｅｓｓ５８００／６００シリーズ
> の純正ハードディスクは高価ですが市販のものは付かないのでしょう
> か？
> ※ちなみにディスクアレイになってます。
3 Re:ハードディスク
ＥＸＣＨＡＮＧＥ 2004-8-23 13:06:00  [返信] [編集]

> 前から思っていたのですがＥｘｐｒｅｓｓ５８００／６００シリーズ
> の純正ハードディスクは高価ですが市販のものは付かないのでしょう
> か？
> ※ちなみにディスクアレイになってます。

☆　Ｌｉｎｕｘ、自己責任の時代ですので、そういったことを前提でいくつかの問題点を述べてみましょう。

（１）　現在のＡ−ＶＸは、Ｗｉｎｄｏｗｓ上で動作する「ミドルウエア」ですので、原理的に言えばＷｉｎｄｏｗｓが稼働するかどうかが、まず問題になります。ＰＣサーバといえども、一般に大型のサーバになるほどメーカの独自の機器（または独自仕様のＯＥＭ機器）を搭載したり、ハードの監視用ソフト、ＵＰＳとの連携、等の機能が搭載されています。従って購入時のＷｉｎｄｏｗｓのバージョンを変更することは（ドライバなどの関係で）難しい場合があります。

（２）ミドルウエアとしてのＡ−ＶＸをインストールする場合、独自な（Ａ−ＶＸ向け）ドライバを必要とするのは、フロッピー装置、ＣＭＴ装置などですので、これらの装置は他の装置と交換は出来ないでしょう。

（３）ＤＡＴ装置、ディスク装置、等はＷｉｎｄｏｗｓ上で動作する物であれば、Ａ−ＶＸでも利用できる可能性はあるでしょう。

（４）７００シリーズの場合は、ＰＣサーバではないし、またＷｉｎｄｏｗｓＮＴ３．５１（ＭＩＰＳ用）のドライバがあまり提供されていない、大容量のディスクには対応していない等の問題があるので、適用できる可能性のある機器はごく限られるでしょう。

☆　製品の一部に純正品でないものがある場合、保守契約サービスは原則として受けられないでしょう。この場合、換装パーツをのぞいた部分の保守契約を引き受けてくれる保守会社を探すか、もしくは保守契約なしで運用するか、のどちらかになります。いずれにしてもかなりの部分を「自己責任」で引き受ける必要があります。

☆　以上の観点から、「実務での運用」となるとａｍａｄｅｕｓさんのおっしゃるとおり「やめといたほうが。。」ということになります。

☆　なお、メモリーに関してはサードパーティ製の物で保守会社が認定している物もあるようです（ＡＤＴＥＣ社など）。私は使ったことがないので詳しいことは分かりませんが、一度保守会社にお訊きになってはいかがでしょうか？

☆　あと、メーカさんにお願いしたいのですが、「まささん」と同様の気持ちをもたれているユーザさんはかなりおられると思います。１００シリーズに比べてあまりに高価な増設パーツの価格設定は、オープン連携によるＡ−ＶＸマシーンの高度利用を阻害し、長い目で見れば「さらばレガシー」に結びついていくような気がします。御一考をお願いしたいと思います。


4 Re:ハードディスク
まさ 2004-8-24 9:38:00  [返信] [編集]

皆さん返信有難うございます。

そうですね、おっしゃる通り何か有った時のリスクを考えると純正品
が一番安心して使用していられますね。
現在、大容量のＨＤがかなり安価で手に入る時代ですので思ったまで
です。
5 Re:ハードディスク
ＢＬＵＥＬＩＯＮ 2004-8-27 9:12:00  [返信] [編集]

うちの640ADには、安い120maのHDやメモリがついております。

実際同じEXPRESSでおなじ規格なのに値段が相当ちがいますよね

CPUも120MAのP2の450でDUALです



まーやり方によっては120MAな一般のPC（ノートを含む）でもA-VXはうごきますからね　ノートで動くAVXは感動的でした（笑）



ただし　テスト環境のみの構成で、本番環境で保守なしで運用する勇気はありません



ちなみ全体の構成としては

Windowsは最新のIDEをCドライブしてセットアップしAVX系はもともとのRAIDのドライブに入れています。



6 Re:ハードディスク
ターラヤン 2004-8-30 1:54:00  [返信] [編集]

> うちの640ADには、安い120maのHDやメモリがついております。

> 実際同じEXPRESSでおなじ規格なのに値段が相当ちがいますよね

> CPUも120MAのP2の450でDUALです

>

> まーやり方によっては120MAな一般のPC（ノートを含む）でもA-VXはうごきますからね　ノートで動くAVXは感動的でした（笑）

>

ノートパソコンで動きましたか。

てっきり普通のＰＣサーバ（ＩＡサーバ）のハードを基本的に流用して、若干の改造が

入っているのだろうと思っていました。

改造が入るにしても、ＣＰＵやハードディスクに手を入れられるとは思えないので、

マザーボード辺りでしょうかね。



私もハードディスクは見たことがありますが、普通のＳＣＳＩのハードディスクのようでした。

動作保障代やＡ−ＶＸ代を含めた値段なのでしょうが、Ｓ３１００やＳ７２００時代と比べると安いものの、

現在の一般的な水準と比べると高いような気がします。





P.S.Express以外のいろいろなパソコンにA-VX入れるのはライセンス上問題があるかも・・というのは野暮な話ですよね。

NECの人も見ているかもしれないので、とりあえず内輪の話にしておきましょう。

7 Re:ハードディスク
BLUELION 2004-8-30 8:02:00  [返信] [編集]



> P.S.Express以外のいろいろなパソコンにA-VX入れるのはライセンス上問題があるかも・・というのは野暮な話ですよね。

> NECの人も見ているかもしれないので、とりあえず内輪の話にしておきましょう。

>

そうですね　ただかなり特殊な手続きしないと動かないし



　ＰＳ　当然　著作権上に問題があるのはわかっているので環境はすぐ消しました
8 Re:ハードディスク
assisi 2004-9-4 8:27:00  [返信] [編集]

> 皆さん返信有難うございます。
> そうですね、おっしゃる通り何か有った時のリスクを考えると純正品
> が一番安心して使用していられますね。
> 現在、大容量のＨＤがかなり安価で手に入る時代ですので思ったまで
> です。

メモリーは　ハギワラシスコム製で使用できますよ
純正品より　かなり安いです
増設もパソコンと一緒で簡単にできます
全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 構造化プログラミングの方法
江須扇 2004-8-19 14:00:00  [返信] [編集]

こんにちは、ご無沙汰しております。江須扇です。

今日は初歩的な事をご教授していただきたく投稿しました。
過去のＣＯＢＯＬのプログラムはＧＯ　ＴＯ　だらけなのでメンテナンスは、
そのままＧＯ　ＴＯ　だらけで修正しております。
構造化プログラミングはいままでしていないので、いまさらと思っておりまし
たが、新規プログラムをＧＯＴＯレスで作ろうと思ったのですが中々巧くいき
ません。サンプルを作ったのですが、おかしいところを添削していただけない
でしょうか？

項目Ａと項目Ｂを入力しその表示をして項目Ｂに戻るというものです。
また、項目ＢでＢＴＡＢをすれば項目Ａに戻る必要もあります。
項目Ａ又は項目ＢでＰＦ９を入力すると終了とします。
実際はＭＡＩＮ−ＲＴＮはもっと複雑になります。

コーディング例

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

000010 IDENTIFICATION   DIVISION.
000020 PROGRAM-ID.      ACPTST.
000030 ENVIRONMENT      DIVISION.
000040 CONFIGURATION    SECTION.
000050 SOURCE-COMPUTER. EXPRESS5800.
000060 OBJECT-COMPUTER. EXPRESS5800.
000070 DATA             DIVISION.
000080 WORKING-STORAGE  SECTION.
000090 77  A-CELL       PIC  X(05).
000100 77  B-CELL       PIC  X(05).
000110 01  SWITCH-FLAG  PIC  9(01) VALUE 0.
000120 88  SWITCH-HTAB             VALUE 1.
000130 88  SWITCH-BSKIP            VALUE 9.
000140 SCREEN  SECTION.
000150 SD  GAMEN END    STATUS IS  END-STATUS.
000160 01  ACEP-A CLEAR SCREEN.
000170     02 LINE 05   COLUMN 10 PIC X(05) USING A-CELL.
000180 01  ACEP-B.
000190     02 LINE 10   COLUMN 10 PIC X(05) INTO  B-CELL.
000200 01  DISP-C.
000210     02 LINE 15   COLUMN 10 PIC N(05) FROM  A-CELL.
000220     02 LINE 20   COLUMN 10 PIC N(05) FROM  B-CELL WAIT.
000230 PROCEDURE        DIVISION.
000240 INIT-RTN.
000250     SET SWITCH-BSKIP TO TRUE.
000260     PERFORM UNTIL END-STATUS = "P9"
000270       EVALUATE TRUE
000280           WHEN SWITCH-BSKIP
000290                ACCEPT    ACEP-A
000300                IF END-STATUS = "01"
000310                                     SET SWITCH-HTAB TO TRUE
000320                END-IF
000330           WHEN SWITCH-HTAB
000340                DISPLAY   ACEP-A
000350                ACCEPT    ACEP-B
000360                EVALUATE  END-STATUS
000370                    WHEN  "01"       PERFORM MAIN-RTN
000380                    WHEN  "09"       SET SWITCH-BSKIP TO TRUE
000390                END-EVALUATE
000400       END-EVALUATE
000410     END-PERFORM.
000420     STOP RUN.
000430******************************************************************
000440 MAIN-RTN.
000450     DISPLAY DISP-C.
2 （再投稿）構造化プログラミングの方法
江須扇 2004-8-19 14:18:00  [返信] [編集]


コーディング例


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

000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. ACPTST.
000030 ENVIRONMENT DIVISION.
000040 CONFIGURATION SECTION.
000050 SOURCE-COMPUTER. EXPRESS5800.
000060 OBJECT-COMPUTER. EXPRESS5800.
000070 DATA DIVISION.
000080 WORKING-STORAGE SECTION.
000090 77 A-CELL PIC X(05).
000100 77 B-CELL PIC X(05).
000110 01 SWITCH-FLAG PIC 9(01) VALUE 0.
000120 88 SWITCH-HTAB VALUE 1.
000130 88 SWITCH-BSKIP VALUE 9.
000140 SCREEN SECTION.
000150 SD GAMEN END STATUS IS END-STATUS.
000160 01 ACEP-A CLEAR SCREEN.
000170     02 LINE 05 COLUMN 10 PIC X(05) USING A-CELL.
000180 01 ACEP-B.
000190     02 LINE 10 COLUMN 10 PIC X(05) INTO B-CELL.
000200 01 DISP-C.
000210     02 LINE 15 COLUMN 10 PIC N(05) FROM A-CELL.
000220     02 LINE 20 COLUMN 10 PIC N(05) FROM B-CELL WAIT.
000230 PROCEDURE DIVISION.
000240 INIT-RTN.
000250     SET SWITCH-BSKIP TO TRUE.
000260     PERFORM UNTIL END-STATUS = "P9"
000270       EVALUATE TRUE
000280           WHEN SWITCH-BSKIP
000290                ACCEPT ACEP-A
000300                IF END-STATUS = "01"
000310                                     SET SWITCH-HTAB TO TRUE
000320                END-IF
000330           WHEN SWITCH-HTAB
000340                DISPLAY ACEP-A
000350                ACCEPT ACEP-B
000360                EVALUATE END-STATUS
000370                    WHEN "01" PERFORM MAIN-RTN
000380                    WHEN "09" SET SWITCH-BSKIP TO TRUE
000390                END-EVALUATE
000400       END-EVALUATE
000410     END-PERFORM.
000420     STOP RUN.
000430******************************************************************
000440 MAIN-RTN.
000450     DISPLAY DISP-C.
3 Re:（再投稿）構造化プログラミングの方法
ＥＸＣＨＡＮＧＥ 2004-8-20 3:40:00  [返信] [編集]

☆　バッチ処理プログラムでは、専ら「構造化」で書くのですが、入力系（会話型）では、ＧＯＴＯをつかっていますので、あまりいい考えは浮かばないのですが。。

例えば、次のような考え方はダメでしょうか。。

　MOVE 1  TO CUR-POSITION
  MOVE 2  TO CUR-POSITION-MAX
  MOVE SPACE  TO END-STATUS
*
  PERFORM  UNTIL END-STATUS = "P9"
              OR CUR-POSITON > CUR-POSITION-MAX
    EVALUATE  CUR-POSITION
      WHEN 0
      WHEN 1
             ACCEPT   ACEP-A-ACP
             EVALUATE END-STATUS 
               WHEN "09"
                    SUBTRACT 1  FROM CUR-POSITION
               WHEN OTHER
                    DISPLAY ACEP-A-DSP
                    ADD 1       TO   CUR-POSITON
             END-EVALUATE
      WHEN 2
             ACCEPT  ACEP-B-ACP 
             EVALUATE END-STATUS 
               WHEN "09"
                    SUBTRACT 1  FROM CUR-POSITION
               WHEN OTHER
                    DISPLAY ACEP-B-DSP
                    ADD 1       TO   CUR-POSITON
             END-EVALUATE
      WHEN OTHER
             CONTINUE
    END-EVALUATE
  END-PERFORM.

5 Re:（再投稿）構造化プログラミングの方法
ＥＸＣＨＡＮＧＥ 2004-8-20 11:39:00  [返信] [編集]

ＷＨＥＮ　０　の時の取り扱いがまずいので、訂正です。
まだまだヘンかも。。。
適当に直して下さい。


*
PERFORM UNTIL END-STATUS = "P9"
           OR FOCUS-POSITON > FOCUS-POSITION-MAX
*
  EVALUATE FOCUS-POSITION
    WHEN 1
          ACCEPT ACEP-A-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN OTHER
                DISPLAY ACEP-A-DSP
                ADD 1 TO FOCUS-POSITON
          END-EVALUATE
    WHEN 2
          ACCEPT ACEP-B-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN OTHER
                DISPLAY ACEP-B-DSP
                ADD 1 TO FOCUS-POSITON
          END-EVALUATE
    WHEN OTHER
          CONTINUE
  END-EVALUATE
*
  IF FOCUS-POSITION = 0
    THEN MOVE 1 TO FOCUS-POSITION
  END-IF
*
END-PERFORM.
6 もう少しだけ直しました。
ＥＸＣＨＡＮＧＥ 2004-8-20 13:09:00  [返信] [編集]

もう少しだけ直しました。
　いかがでしょうか？


MOVE 1 TO FOCUS-POSITION.
MOVE 2 TO FOCUS-POSITION-MAX.
MOVE SPACE TO END-STATUS.
MOVE SPACE TO WINDOW-STATUS.
*
PERFORM UNTIL END-STATUS = "P9"
             OR WINDOW-STATUS = "EXIT"
*
  EVALUATE FOCUS-POSITION
    WHEN 1
          ACCEPT ACEP-A-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN OTHER
                DISPLAY ACEP-A-DSP
                PERFORM ACEP-A-CHECK-SUB
                IF ERR-FLAG = 1
                  THEN
                      DISPLAY ERROR-MSG-A
                  ELSE
                      ADD 1 TO FOCUS-POSITON
                END-IF
          END-EVALUATE
    WHEN 2
          ACCEPT ACEP-B-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN OTHER
                DISPLAY ACEP-B-DSP
                PERFORM ACEP-B-CHECK-SUB
                IF ERR-FLAG = 1
                  THEN
                      DISPLAY ERROR-MSG-B
                  ELSE
                      ADD 1 TO FOCUS-POSITON
                END-IF
          END-EVALUATE
    WHEN OTHER
          CONTINUE
  END-EVALUATE
*
  IF FOCUS-POSITION = 0
    THEN MOVE 1 TO FOCUS-POSITION
  END-IF
*
  IF FOCUS-POSITION > FOCUS-POSITION-MAX
    THEN MOVE "EXIT" TO WINDOW-STATUS
  END-IF
*
END-PERFORM.
7 Re:もう少しだけ直しました（その２）
ＥＸＣＨＡＮＧＥ 2004-8-21 12:20:00  [返信] [編集]

もう少しだけ直しました。（その２）
　いかがでしょうか？？


*
MOVE 1 TO FOCUS-POSITION.
MOVE 2 TO FOCUS-POSITION-MAX.
MOVE SPACE TO END-STATUS.
MOVE SPACE TO WINDOW-STATUS.
*
PERFORM UNTIL END-STATUS = "P9"
             OR WINDOW-STATUS = "EXIT"
*
  EVALUATE FOCUS-POSITION
    WHEN 1
          ACCEPT ACEP-A-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN "01"
                DISPLAY ACEP-A-DSP
                PERFORM ACEP-A-CHECK-SUB
                IF ERR-FLAG = 1
                  THEN
                      DISPLAY ERROR-MSG-A
                  ELSE
                      ADD 1 TO FOCUS-POSITON
                END-IF
            WHEN OTHER
                CONTINUE
          END-EVALUATE
    WHEN 2
          ACCEPT ACEP-B-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN "01"
                DISPLAY ACEP-B-DSP
                PERFORM ACEP-B-CHECK-SUB
                IF ERR-FLAG = 1
                  THEN
                      DISPLAY ERROR-MSG-B
                  ELSE
                      ADD 1 TO FOCUS-POSITON
                END-IF
            WHEN OTHER
                CONTINUE
          END-EVALUATE
    WHEN OTHER
          CONTINUE
  END-EVALUATE
*
  IF FOCUS-POSITION = 0
    THEN MOVE 1 TO FOCUS-POSITION
  END-IF
*
  IF FOCUS-POSITION > FOCUS-POSITION-MAX
    THEN MOVE "EXIT" TO WINDOW-STATUS
  END-IF
*
END-PERFORM.
8 Re:もう少しだけ直しました（その２）
江須扇 2004-8-22 12:53:00  [返信] [編集]

ＥＸＣＨＡＧＥさん早速いろいろと回答を頂きありがとうございます。
いろいろと考えていただきありがとうございます。

結論としてはやはり自分で何らかのスイッチを定義する必要があると言う事ですか。
Ａ−ＶＸのＣＯＢＯＬの機能で使えるものは無いということですね。

もう一度、やりたい事を説明しますと


項目Ａ入力
↓＿＿↑（ＢＴＡＢを押すと項目Ａに戻る）
項目Ｂ入力
↓＿＿↑（項目Ｂに戻る、入力すると結果表示に行く）
結果表示

という処理です。

ＥＸＣＨＡＧＥさんの例では結果表示はもう一ランク上で括れということですね。


*
MOVE 1 TO FOCUS-POSITION.
MOVE 2 TO FOCUS-POSITION-MAX.
MOVE SPACE TO END-STATUS.
MOVE SPACE TO WINDOW-STATUS.
*
PERFORM UNTIL END-STATUS = "P9"　　　　　　　　←私か追加した部分
             OR WINDOW-STATUS = "EXIT"　　　 　←私か追加した部分
　　PERFORM UNTIL END-STATUS = "P9"
             OR WINDOW-STATUS = "EXIT"
*
〜中略〜
（ＥＸＣＨＡＮＧＥさんの内容）
*
　　END-PERFORM　
結果表示処理　　　　　　　　　　　　　　 　←私か追加した部分
MOVE 2 TO FOCUS-POSITION.　　　　　　  　　←私か追加した部分
END-PERFORM.　　　　　　　　　　　　　　   ←私か追加した部分
STOP RUN.　　　　　　　　　　　　　　　  　←私か追加した部分

9 Re:もう少しだけ直しました（その２）
ＥＸＣＨＡＮＧＥ 2004-8-22 13:50:00  [返信] [編集]

☆　「雛形」ではカーソルの位置の制御を、FOCUS-POSITIONで

　　行っていますので、

　　例えば項目Ｂの入力後、項目Ｂの再入力へＬＯＯＰさせたい場合は、 FOCUS-POSITIONを変更せずに進めるとうまくいくのでは

　　ないかと思います。（間違ってたらごめんなさい）



　　項目入力時に（ＨＴＡＢ）（ＢＳＫＩＰ）以外のキーを押下した場合も（Ｆ９）をのぞいて同じ項目の再入力に戻ります。

　

☆　なおＡ−ＶＸの場合、ＳＫＩＰキーの扱いが問題かとも思います。

　経験された方はご存じと思うのですが、数字項目の表示位置が初期状態では「空白」（＝文字）となるので「０」等を編集表示（例：ＺＺＺＺ−）しておかないと、いきなりＳＫＩＰを押下−−＞「ＮＯＮ−ＮＵＭＥＲＩＣ」エラーになります。入力後、カンマ付編集をしている場合も（カンマが文字と見なされるので）要注意です。この辺をうまく織り込もうとすると「雛形」を使っても結構、面倒な気がします。





*
MOVE 1 TO FOCUS-POSITION.
MOVE 2 TO FOCUS-POSITION-MAX.
MOVE SPACE TO END-STATUS.
MOVE SPACE TO WINDOW-STATUS.
*
PERFORM UNTIL END-STATUS = "P9"
             OR WINDOW-STATUS = "EXIT"
*
  EVALUATE FOCUS-POSITION
    WHEN 1
          ACCEPT ACEP-A-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN "01"
                DISPLAY ACEP-A-DSP
                PERFORM ACEP-A-CHECK-SUB
                IF ERR-FLAG = 1
                  THEN
                      DISPLAY ERROR-MSG-A
                  ELSE
                      ADD 1 TO FOCUS-POSITON
                END-IF
            WHEN OTHER
                CONTINUE
          END-EVALUATE
    WHEN 2
          ACCEPT ACEP-B-ACP
          EVALUATE END-STATUS
            WHEN "09"
                SUBTRACT 1 FROM FOCUS-POSITION
            WHEN "01"
                DISPLAY ACEP-B-DSP
                PERFORM ACEP-B-CHECK-SUB
                IF ERR-FLAG = 1
                  THEN
                      DISPLAY ERROR-MSG-B
                  ELSE
                      （処理結果表示）
                      （FOCUS-POSITONを１ＵＰしない）
                END-IF
            WHEN OTHER
                CONTINUE
          END-EVALUATE
    WHEN OTHER
          CONTINUE
  END-EVALUATE
*
  IF FOCUS-POSITION = 0
    THEN MOVE 1 TO FOCUS-POSITION
  END-IF
*
  IF FOCUS-POSITION > FOCUS-POSITION-MAX
    THEN MOVE "EXIT" TO WINDOW-STATUS
  END-IF
*
END-PERFORM.

10 Re:もう少しだけ直しました（その２）
江須扇 2004-8-24 15:34:00  [返信] [編集]

ＥＸＣＨＡＮＧＥさん、いろいろとありがとうございます。

流れの基本は私と同じと思いましたが大きく違うところが解りました。
私はどうしてもメモリの少ない時の癖でプログラムの解りやすさより、ステップ数重視で１ステップでも少なくなる事を考えてしまいます。
保守性を考えたらわかり易さ重視の方が良いようですね。
多分、私の元のコーディングは
ＷＨＥＮ　ＳＷＩＴＣＨ−ＢＴＡＢで１項目の入力
ＷＨＥＮ　ＳＷＩＴＣＨ−ＨＴＡＢで２項目の入力
になっており意味不明という事ですね。
そうですステップ数削減で意味不明です。
３項目を作ったどうするか考えておりませんでした。
それにしてもＣＯＢＯＬ側でもっとステップ数のすくなくなる
命令がないのでしょうかね？
全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 あまり見かけないソフトだが？？？
EXCHANGE 2004-8-7 19:34:00  [返信] [編集]

☆　こんなソフトご存じでしょうか？　Ａ−ＶＸでも利用できるようですが。。。



　ＮＩＳ−ＭＡＩＬ

　（ＵＲＬ）　http://www.nis-mail.com/



全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 コボル上で実行環境の認識
bluelion 2004-7-30 11:10:00  [返信] [編集]

本番環境とテスト環境のＡＶＸ環境があるのですが
コボルの実行時にどちらのＯＳ（マシン）で動いているか認識する方法はあるのでしょうか？

テスト環境と本番環境ではプリンタの番号が違うため
実行時にコボル上で自動でアサインしたいためです
2 追加
ＢＬＵＥＬＩＯＮ 2004-7-30 11:12:00  [返信] [編集]

テスト　A-VX４　640AD

本番　A-VX2　S7200/100

でした
3 Re:コボル上で実行環境の認識
ターラヤン 2004-7-31 19:05:00  [返信] [編集]

> 本番環境とテスト環境のＡＶＸ環境があるのですが
> コボルの実行時にどちらのＯＳ（マシン）で動いているか認識する方法はあるのでしょうか？

ＯＳ（マシン）の識別方法はわかりませんが、

私ならば、ＯＳ別に処理するよりも、テスト環境か本番環境かで分けます。
識別用ファイルを作って、そこに「テスト環境」「本番環境」や「１」「２」などを入れて
それで識別した方が現実的です。


質問内容から考えて、おそらく

IF （S7200だったら）
　ｘｘｘの処理をする
IF （640ADだったら）
　yyyの処理をする

という風なプログラムにしようとしているのではないかと思うのですが、
これでは例えば将来S7200から600xiにした時に「IF (S7200だったら）」という所を
全部「IF (600xiだったら）」に修正して再コンパイルしなければなりません。

実際のところ、どのＯＳかを気にする必要のある処理は、あまりないような気がします。

全部読む 最新50 1-100 板のトップ リロード

■▲▼
1 システムログファイルについて
ＮＥＣｏ 2004-7-21 14:09:00  [返信] [編集]

はじめまして。数年前から仕事でＡ−ＶＸを使用しています。
ＳＧにて「ログ情報の定義」を行いシステムログを採取して
いる場合、ＳＹＳ＠ＬＯＧ０の領域拡張を行いたいなとなっ
たら、

1、「ログ情報の定義」にてシステムログ採取をヤメ
2、再起動後ＳＹＳ＠ＬＯＧ０削除
3、再度「ログ情報の定義」にてシステムログ採取設定
4、ＳＹＳ＠ＬＯＧ０を任意の領域分確保

・・・といった手順をふまねばならないですかね？

すみません長々と・・・・・・
2 Re:システムログファイルについて
ＣＥ担当者 2004-7-22 10:25:00  [返信] [編集]

> 1、「ログ情報の定義」にてシステムログ採取をヤメ
> 2、再起動後ＳＹＳ＠ＬＯＧ０削除
> 3、再度「ログ情報の定義」にてシステムログ採取設定
> 4、ＳＹＳ＠ＬＯＧ０を任意の領域分確保

2で再起動してますが、A-VXでは再起動してしまうとまたログ
採取開始してしまうのでそのままで削除です
その後も再起動は必要無いです。


ご存知かもしれませんが、#ABCでシステムで定義してくださいね^^

全部読む 最新50 1-100 板のトップ リロード

 新規投稿 | スレッド表示 | ツリー表示 | 投稿順表示 | i-mode | トップ 
« 1 ... 71 72 73 (74) 75 76 77 ... 84 »

BluesBB ©Sting_Band