PERFORM 指令 (COBOL)

PERFORM 指令會將控制明確地傳送至一或多個陳述式，並在完成執行指定的陳述式之後，隱含地將控制傳回至下一個可執行陳述式。 無法縮寫關鍵字。

指令

有效的 z/OS® Debugger 指令。

參照

有效的 z/OS Debugger COBOL 參照。

條件

簡式關係條件。

指令

有效的 z/OS Debugger 指令。

使用注意事項

• 只有在 FROM 和 BY 關鍵字的右側，才接受常數作為 參照 。
• 索引名稱和浮點變數無法作為 VARYING 參照。
• BY 詞組中不支援索引名稱。
• 僅支援行內 PERFORM(但所執行的指令可以是 z/OS Debugger 程序呼叫)。
• 不支援 COBOL AFTER 詞組。
• 視窗日期欄位無法用作 VARYING 參照、 FROM 參照、 或 BY 參照。
• 如需下列 COBOL 關鍵字的說明，請參閱 Enterprise COBOL for z/OS Language Reference :
  • AFTER
  • BEFORE
  • BY
  • FROM
  • TEST
  • UNTIL
  • VARYING
  • WITH
• 對於最佳化 COBOL 程式， PERFORM 指令無法參照最佳化工具所捨棄的任何變數。
• 對於最佳化 COBOL 程式，如果指定 VARYING 詞組，則第一個參照只能參照階段作業變數。
• 如果您輸入含有 DATA 參數的 PLAYBACK ENABLED ，且編譯單元支援 DATA 參數，則 PERFORM 指令可以參照程式變數，且 VARYING 運算元 (如果指定的話) 必須參照階段作業變數。 例如：

  PERFORM VARYING session-var-1 FROM program-var-1 BY program-var-2
     UNTIL program-var-3 = program-var-4

範例

• 設定岔斷點於陳述式號碼 10 ，以將變數 a 的值移至變數 b ，然後列出 x的值。

  AT 10 PERFORM
    MOVE a TO b;
    LIST (x);
  END-PERFORM;

• 針對介於 2 和 30 之間的每一個偶數值 (包括 2 和 30) ，列出 height 的值。

  PERFORM WITH TEST AFTER
    VARYING height FROM 2 BY 2
      UNTIL height = 30
        LIST height;
  END-PERFORM;

• 將游標放在 COBOL 執行的段落開頭，然後按 PF5。

如需本主題所討論資料的相關資訊，請參閱下列主題。

• 相關參照
• Enterprise COBOL for z/OS 語言參照