INITIALIZE命令

COBOL
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 A.
          02 A1 PIC X(10) .
          02 A2 PIC S9(12).
       PROCEDURE DIVISION.
           INITIALIZE A.
           STOP RUN.

VB.NET
Module Module1
    Public Structure A
        Public A1 As String
        Public A2 As Decimal
        Public Sub Clear()
            A1 = Space(10)
            A2 = 0
        End Sub
    End Structure

    Sub Main()
        Dim A0 As A
        A0.Clear()
    End Sub
End Module

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

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