構造化プログラミングの方法
8:Re:もう少しだけ直しました（その２）
江須扇 08/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.　　　　　　　　　　　　　　　  　←私か追加した部分


前次1-新書板
BluesBB ©Sting_Band