$LISTFIND

$LISTFIND(list,value[,startafter])

list	有効なリストに評価される式。リストにはエンコードが含まれるので、list は Caché ObjectScript $LISTBUILD 関数を使用して作成されるか、または $LIST を使用して他のリストから抽出されなければなりません。
value	検索要素を含む式。これは文字列です。
startafter	オプション — リスト位置として翻訳される整数式。この位置の後の要素から検索を開始します。ゼロと –1 が有効値で、–1 は要素を返しません。ゼロが既定です。

$LISTFIND 関数は、指定された list で、要求された value の最初のインスタンスを検索します。startafter 引数で指定された位置の次の要素から検索を開始します。startafter 引数を省略すると、$LISTFIND は startafter 引数値を 0 とみなし、先頭要素 (要素 1) から検索を開始します。値が見つかると、$LISTFIND は一致する要素の位置を返します。値が見つからない場合、$LISTFIND は 0 を返します。startafter 引数が存在しないリスト・メンバを参照する場合も、$LISTFIND 関数は同様に 0 を返します。

この関数は、データ型 SMALLINT を返します。

以下の例は、要求された文字列の最初に発生した位置である 2 を返します。

   SET a=$LISTBUILD("Red","Blue","Green")
   &sql(SELECT $LISTFIND(:a,'Blue')
   INTO :b
   FROM Sample.Person)
   WRITE !,"The position is ",b

以下の例は 0 を返し、要求された文字列が見つからなかったことを表します。

   SET a=$LISTBUILD("Red","Blue","Green")
   &sql(SELECT $LISTFIND(:a,'Orange')
   INTO :b
   FROM Sample.Person)
   WRITE !,"The position is ",b

以下の例は、startafter 引数の使用結果を示します。最初の例は、要求された文字列が startafter 位置にあるため、要求した文字列が見つからず 0 を返します。

   SET a=$LISTBUILD("Red","Blue","Green")
   &sql(SELECT $LISTFIND(:a,'Blue',2)
   INTO :b
   FROM Sample.Person)
   WRITE !,"The position is ",b

2 番目の例は、startafter がゼロ (既定値) に設定されているため、要求された文字列が先頭位置にあるのを見つけます。

   SET a=$LISTBUILD("Red","Blue","Green")
   &sql(SELECT $LISTFIND(:a,'Red',0)
   INTO :b
   FROM Sample.Person)
   WRITE !,"The position is ",b

3 番目の例は、要求された文字列の 1 つ目が startafter 位置より前にあるため、2 つ目を見つけて 5 を返します。

   SET a=$LISTBUILD("Red","Blue","Green","Yellow","Blue")
   &sql(SELECT $LISTFIND(:a,'Blue',3)
   INTO :b
   FROM Sample.Person)
   WRITE !,"The position is ",b

$LISTFIND 関数は、完全な要素のみと一致します。したがって、以下の例ではすべての要素に “B” が含まれるものの、リスト要素が文字列 “B” とは同じでないため、0 を返します。

   SET a=$LISTBUILD("ABC","BCD","BBB")
   &sql(SELECT $LISTFIND(:a,'B')
   INTO :b
   FROM Sample.Person)
   WRITE !,"The position is ",b

list 引数の式が有効なリストに評価されない場合は、–400 SQL の致命的なエラーが発生します。

   SET a="Blue"
   &sql(SELECT $LISTFIND(:a,'Blue')
   INTO :b
   FROM Sample.Person)
   WRITE !,"Error code ",SQLCODE
   WRITE !,"The position is ",b

startafter 引数の値が -1 の場合、$LISTFIND は常にゼロ (0) を返します。

   SET a=$LISTBUILD("Red","Blue","Green")
   &sql(SELECT $LISTFIND(:a,'Blue',-1)
   INTO :b
   FROM Sample.Person)
   WRITE !,"Error code ",SQLCODE
   WRITE !,"The position is ",b

startafter 引数の値が -1 より小さい場合、$LISTFIND 関数を呼び出すと、–400 SQL の致命的なエラーが発生します。

   SET a=$LISTBUILD("Red","Blue","Green")
   &sql(SELECT $LISTFIND(:a,'Blue',-3)
   INTO :b
   FROM Sample.Person)
   WRITE !,"Error code ",SQLCODE
   WRITE !,"The position is ",b