//---------------------------------------------------------------------------
//  TOUPPER     :   半角英小文字を大文字に変換するルーチン
//      [Usage] :
//          call TOUPPER $$in_str;
//          $$out_str = $$return;
//
//          $$in_str    :   変換する文字列
//          $$out_str   :   変換後の文字列
//
TOUPPER:
    $$r= "";
    ##s = strlen( $$1 );
    while( ##s > 0 ){
        ##s = ##s - 1;
        ##c = ascii( midstr( $$1, ##s, 1 ) );
        if( ##c > 96 && ##c < 123 ) ##c = ##c - 32;
        $$r = char( ##c ) + $$r;
    }
    return $$r;
//---------------------------------------------------------------------------