手动提交请求集(REQUEST_SET)如何实现

huak

最初由 ZERO_SONG 发布
[B]orapeasant 的方法
v_concurrent_status    := fnd_concurrent.set_completion_status ('WARNING', NULL); [/B]

原来是这么写的：

  function set_completion_status (status  IN  varchar2,
                                  message IN  varchar2) return boolean is
    scode varchar2(1);
    ret_str varchar2(80) := null;
    req_id number;
  begin

    if (upper(status) = 'NORMAL') then
      scode := 'C';
    elsif (upper(status) = 'WARNING') then
      scode := 'G';
    elsif (upper(status) = 'ERROR') then
      scode := 'E';
    else
      fnd_message.set_name('FND', 'CONC-SCS BAD STATUS');
      fnd_message.set_token('STATUS', status);
      return FALSE;
    end if;

    if ( lengthb(message) > 240 ) then
       fnd_file.put_line( fnd_file.log, message);
    end if;

    req_id := fnd_global.conc_request_id;

    ret_str := set_status_autonomous(req_id, scode, message);

    -- if ret_str has some string that means some error otherwise return TRUE
    if ( nvl(lengthb(ret_str), 0 ) > 0 ) then
      Fnd_Message.Set_Name('FND', 'CP-Generic oracle error');
      Fnd_Message.Set_Token('ERROR', ret_str, FALSE);
      Fnd_Message.Set_Token('ROUTINE',
              'FND_CONCURRENT.SET_COMPLETION_STATUS', FALSE);
      return FALSE;
    else
      return TRUE;
    end if;

  end set_completion_status;

test_100

學了！還沒試

AmondaZhou

NICE JOB