PERFORM命令（セクション実行）

COBOL
       WORKING-STORAGE SECTION.
       01 I PIC 9 VALUE 0.
       01 R PIC X(29).
       PROCEDURE DIVISION.
           PERFORM A.
           PERFORM B 3 TIMES.
           PERFORM C.
           DISPLAY R.
           STOP RUN.
       A SECTION.
           DISPLAY 'セクションAを実行しました。'.
       B SECTION.
           ADD 1 TO I.
           DISPLAY I ':セクションBを実行しました。'.
       C SECTION.
           MOVE 'セクションＣの結果' TO R.

VB.NET
Aは単純にプロシジャを実行するだけです。
Bは引数をプロシジャに渡して実行します。
Cは結果を親プロシジャに返します。Console.WriteLineの引数の中に入れて一行で記述し楽をしています。
Module Module1
    Sub Main()
        A()
        B(3)
        Console.WriteLine(C())
    End Sub
    Private Sub A()
        Console.WriteLine("プロシジャAを実行しました。")
    End Sub
    Private Sub B(ByVal i As Integer)
        For j As Integer = 1 To i
            Console.WriteLine(j & ":プロシジャBを実行しました。")
        Next
    End Sub
    Private Function C() As String
        Return Format(Now, "yyyy/MM/dd HH:mm:ss dddd")
    End Function
End Module

お役に立てましたか？
ＩＴ、プログラミングのランキングサイトはこちらです。

最新記事の自動受信登録はこちらです。