//---------------------------------------------------------------------------
//  STRSTR      :   大・小文字かを無視して文字列の中から文字列を探すルーチン
//      [Usage] :
//          call STRSTR $$str, $$s_str;
//          ##s = ##return;
//
//          $$str       :   被検索文字列
//          $$s_str     :   検索文字列
//          ##s         :   見つかった位置(strstr()と同じ仕様)
//
//  備考：  実行には TOLOWER サブルーチンが必要
//
STRSTR:
    call TOLOWER $$1;
    $$1 = $$return;
    call TOLOWER $$2;
    $$2 = $$return;

    return strstr( $$1, $$2 );
//---------------------------------------------------------------------------