出口ダブル

Question

を実行するには、IS-それが実行ダブルを終了することができ：

   PERFORM VARYING J FROM 1 BY 1 UNTIL J>10 
        PERFORM VARYING K FROM 1 BY 1 UNTIL K>3 
         IF J=2 and K=2 
         EXIT PERFORM 
         ELSE 
         display "LABEL A ===> PROCEDURE NOM_PROC2 " 
           "J=/"J"/ AND K=/"K"/" 
         END-IF 
        END-PERFORM 
       END-PERFORM 

私はPERFORM EXITIと試みたが、それは私のために動作しません。

Answer 1

は約方法：

DisplayLabel section. 
      PERFORM VARYING J FROM 1 BY 1 UNTIL J>10 
       PERFORM VARYING K FROM 1 BY 1 UNTIL K>3 
        IF J=2 and K=2 
        EXIT SECTION 
        ELSE 
        display "LABEL A ===> PROCEDURE NOM_PROC2 " 
          "J=/"J"/ AND K=/"K"/" 
        END-IF 
       END-PERFORM 
      END-PERFORM 
exit section. 

コールとDisplayLabel部 "DisplayLabelを行う"

Answer 2

あなたの質問が正しく理解されている場合は、をと入力してPERFORMsとEXIT PERFORMの両方を終了します。以下の手法が有効です。

01 SWITCHES. 
    05 EOL-SW PIC X VALUE 'N'. 
     88 EOL  VALUE 'Y'. 
     88 NOT-EOL VALUE 'N'. 

SET NOT-EOL TO TRUE 
PERFORM VARYING J FROM 1 BY 1 UNTIL J>10 OR EOL 
    PERFORM VARYING K FROM 1 BY 1 UNTIL K>3 OR EOL 
     IF J=2 and K=2 
      SET EOL TO TRUE 
     ELSE 
      display "LABEL A ===> PROCEDURE NOM_PROC2 " 
        "J=/"J"/ AND K=/"K"/" 
     END-IF 
    END-PERFORM 
END-PERFORM 

これまでの質問から、PL/IをCOBOLに変換していることを示しました。言葉や文章の言語と同じように、コンピュータ言語には、よく翻訳されないイディオムや口語があります。

私は論理的に、これは同等であると信じています。

PERFORM VARYING J FROM 1 BY 1 UNTIL J>2 
    PERFORM VARYING K FROM 1 BY 1 UNTIL K>2 
     display "LABEL A ===> PROCEDURE NOM_PROC2 " 
      "J=/"J"/ AND K=/"K"/" 
    END-PERFORM 
END-PERFORM 

Answer 3

AFTER変える力があなたの元のコードは、PL/Iであり、あなたの場合

perform varying j from 1 by 1 until j > 10 
     after k from 1 by 1 until k > 3 
      if j = 2 and k = 2 then 
       exit perform 
      else 
       display "j: " j ", k: " k 
      end-if 
    end-perform 

prompt$ cobc -xj exitnest.cob 
j: 01, k: 01 
j: 01, k: 02 
j: 01, k: 03 
j: 02, k: 01 
prompt$ 

COBOL 2014（案）仕様は、まあ14.9.27.2

10) At least six AFTER phrases shall be permitted in varying-phrase. 

Answer 4

を持って行って使用してくださいプログラムの構造を変更できない場合は、GO TOを使用してください。

PL/IはSTOP、RETURN（それらのいずれもがあなたの状況に適している）、LEAVEまたはGOTOとDOを終了することができます。

LEAVE label 

または

GOTO label 

あなたは

GO TO label 

にそれらのいずれかを変更し、同じ結果を持っているでしょう。わずかな構文の違いを除いて、既存のラベルを変更する必要はなく、ラベルの後にあるコードについて考える必要はありません。

コードの構造を変更できる場合は、すでに2つの良い答えがあります。 Brian Tiffin'sは一番ですが、cschneidはCOBOLのプログラマの大半にはっきりしています。彼らは、同じPERFORMで何度も "変わる"方法を知らないでしょう。