オフコン練習帳

8 Re:もう少しだけ直しました（その２）

江須扇 2004-8-22 12:53 [返信] [編集]

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

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

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

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

という処理です。

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

*
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.　　　　　　　　　　　　　　　  　←私か追加した部分

構造化プログラミングの方法江須扇 2004-8-19 14:00

（再投稿）構造化プログラミングの方法江須扇 2004-8-19 14:18

Re:（再投稿）構造化プログラミングの方... ＥＸＣＨＡＮＧＥ 2004-8-20 3:40

Re:（再投稿）構造化プログラミングの方... ＥＸＣＨＡＮＧＥ 2004-8-20 11:39

もう少しだけ直しました。ＥＸＣＨＡＮＧＥ 2004-8-20 13:09

Re:もう少しだけ直しました（その２）ＥＸＣＨＡＮＧＥ 2004-8-21 12:20

Re:もう少しだけ直しました（その２）江須扇 2004-8-22 12:53 ←いまここ～

Re:もう少しだけ直しました（その２）ＥＸＣＨＡＮＧＥ 2004-8-22 13:50

Re:もう少しだけ直しました（その２）江須扇 2004-8-24 15:34