SEARCH命令

プログラム中にデータを組み込み表引き（テーブルサーチ）を実行します。

COBOL
        DATA DIVISION.
        WORKING-STORAGE SECTION.
        01 DATA1.
         02  PIC X(5) VALUE '01 冬'.
         02  PIC X(5) VALUE '02 冬'.
         02  PIC X(5) VALUE '03 春'.
         02  PIC X(5) VALUE '04 春'.
         02  PIC X(5) VALUE '05 春'.
         02  PIC X(5) VALUE '06 夏'.
         02  PIC X(5) VALUE '07 夏'.
         02  PIC X(5) VALUE '08 夏'.
         02  PIC X(5) VALUE '09 秋'.
         02  PIC X(5) VALUE '10 秋'.
         02  PIC X(5) VALUE '11 秋'.
         02  PIC X(5) VALUE '12 冬'.
        01 REDEFINES DATA1 .
         02 A OCCURS 12 INDEXED I.
          03 A1 PIC 99.
          03    PIC X.
          03 A2 PIC XX.
        PROCEDURE DIVISION.
           SET I TO 1.
           SEARCH A
               WHEN A1(I) = '09'
                   DISPLAY A2(I) UPON CONSOLE
           END-SEARCH.
           STOP RUN.

VB.NET
Hashtableにデータを組み込み表引きを実行します。

Module Module1
    Public A As New Hashtable
    Public Sub InitializeA()
        A.Add(1, "冬")
        A.Add(2, "冬")
        A.Add(3, "春")
        A.Add(4, "春")
        A.Add(5, "春")
        A.Add(6, "夏")
        A.Add(7, "夏")
        A.Add(8, "夏")
        A.Add(9, "秋")
        A.Add(10, "秋")
        A.Add(11, "秋")
        A.Add(12, "冬")
    End Sub
    Sub Main()
        InitializeA()
        Console.WriteLine(A(9))
    End Sub
End Module

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

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