//---------------------------------------------------------------------------
//  rightstr2   :   文字列の右から指定した文字数だけを取得する。
//                  (２バイト文字も１文字と数える)
//      [Usage] :
//          call rightstr2 $$in_str, ##num;
//          $$out_str = $$return;
//
//          $$in_str    :   文字列
//          ##num       :   指定文字数
//          $$out_str   :   取得された文字列
//
//  備考：  実行には strlen2, midstr2 サブルーチンが必要
//
rightstr2:
    call strlen2 $$1;
    ##pos = ##return - ##2;
    if( ##pos < 0 ) ##pos = 0;
    call midstr2 $$1, ##pos, ##2;
    return $$return;
//---------------------------------------------------------------------------