Rational Developer for System z

COBOL 実行階層構造の表示

段落またはセクションへの参照が選択されていると、ポップアップ・メニューから「実行階層を開く」アクションを選択できます。
実行階層」ビューには、段落と各ステートメントの行番号が階層として表示されるため、それらのステートメント間を簡単に移動できます。 「実行階層」ビューには、次の 2 つのモードがあります。 「実行元階層」には、選択された段落への参照が表示されます。例えば、「Copy-input-to-output」という段落があるとすると、「実行元階層」には、その段落へ「Perform Copy-input-to-output」などのステートメントで制御を渡すことができるすべての段落とセクションが表示されます。「実行先階層」には、選択された段落に含まれている、他の段落への参照が表示されます。例えば、「Copy-input-to-output」という段落があるとすると、「実行先階層」には、選択段落の外部へ「Perform Read-next-input-data」などのステートメントで制御を渡すことができるステートメントが表示されます。 実行階層は任意にネストできるため、「実行階層」は、そのネストを全探索できるツリー・ビューになっています。

実行先を強調表示した COBOL コードの例を以下に示します。

* ****************************************************************************
* Utility method for copying input data from the input file to the output file
* ****************************************************************************
  Copy-input-to-output.
* Loop until end of file for input file
     Move "0" to Input-eof
     Perform until
             NOT inputfile-success OR
             NOT outputfile-success
         PERFORM  Read-next-input-data 
         IF inputfile-success
            PERFORM Write-output-data
         End-IF
         End-perform.
      Copy-input-to-output-EXIT.
         EXIT.

* *******************************************
* Utility method for reading from input file
* *******************************************
  Read-input-data.
*    Assume text to be read into Temp-data from IN-INTERNAL-FILE
     Move Spaces to Temp-data.

同じ COBOL プログラムで、実行元を強調表示した例を以下に示します。

 Procedure DIVISION USING PARMS.
* Open the input and/or output files
     PERFORM Open-files.

* Process the user request

     EVALUATE ACTION
         WHEN DO-COPY-DATASET
             PERFORM  Copy-input-to-output. 
         WHEN OTHER
             CONTINUE.
     END-EVALUATE.
     MOVE IN-FILE-STATUS
          TO PARM-IN-FILE-STATUS.
     MOVE OUT-FILE-STATUS
          TO PARM-OUT-FILE-STATUS.
     MOVE IN-VSAM-CODE
          TO PARM-IN-VSAM-CODE.
     MOVE OUT-VSAM-CODE
          TO PARM-OUT-VSAM-CODE.
     PERFORM Close-files.
     goback.

* ***************************************************
* Utility method to open the input and/or output file
* ***************************************************
  Open-files.
* Open the input file
     OPEN I-O IN-INTERNAL-FILE

ご利用条件 | フィードバック

このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)