with t(docid, docstate, createdat, article, quantity) as (
select 'ЗПЦВУс00039', 1, date '2021-10-13', '068356', 5 from dual union all
select 'ЗПЦВУс00039', 1, date '2021-10-13', '022159', 2 from dual union all
select 'ЗПЦВУс00039', 1, date '2021-10-13', '225000', 1 from dual union all
select 'ЗПЦВУс00040', 3, date '2021-10-13', '235578', 1 from dual union all
select 'ЗПЦВУс00040', 3, date '2021-10-13', '278497', 10 from dual union all
select 'ЗПЦВУс00041', 1, date '2021-10-13', '210611', 10 from dual union all
select 'ЗПЦВУс00041', 1, date '2021-10-13', '154213', 5 from dual union all
select 'ЗПЦВУс00041', 1, date '2021-10-13', '242080', 2 from dual
)

SELECT json_object('id'        VALUE t.docid,
                   'docstate'  VALUE t.docstate,
                   'createdat' VALUE t.createdat,
                   'items'     VALUE json_object('article' value t.article,
                                                 'quantity' value t.quantity
                                                )
                  ) ORDERS
from t;                  

{"id":"ЗПЦВУс00039","docstate":1,"createdat":"2021-10-13T00:00:00","items":{"article":"068356","quantity":5}}
{"id":"ЗПЦВУс00039","docstate":1,"createdat":"2021-10-13T00:00:00","items":{"article":"022159","quantity":2}}
{"id":"ЗПЦВУс00039","docstate":1,"createdat":"2021-10-13T00:00:00","items":{"article":"225000","quantity":1}}
{"id":"ЗПЦВУс00040","docstate":3,"createdat":"2021-10-13T00:00:00","items":{"article":"235578","quantity":1}}
{"id":"ЗПЦВУс00040","docstate":3,"createdat":"2021-10-13T00:00:00","items":{"article":"278497","quantity":10}}


--- хочу так ---

{"id":"ЗПЦВУс00039","docstate":1,"createdat":"2021-10-13T00:00:00","items":[{"article":"068356","quantity":5}, {"article":"022159","quantity":2},{"article":"022159","quantity":2}]}
{"id":"ЗПЦВУс00040","docstate":3,"createdat":"2021-10-13T00:00:00","items":[{"article":"235578","quantity":1},{"article":"278497","quantity":10}]}

create or replace procedure htp_print_clob(
    p_clob in out nocopy clob
)
is
    v_clob_size       number default sys.dbms_lob.getlength(p_clob);
    v_buff_size       number default sys.dbms_lob.getChunkSize(p_clob);  -- 32000
    v_chunk_count     number default trunc(v_clob_size / v_buff_size);
    v_remainder_size  number default mod(v_clob_size, v_buff_size);
    p            integer default null;
begin
    if (v_clob_size <> 0)
    then
      if ( v_chunk_count > 0 )
      then
          for i in 0 .. v_chunk_count - 1
          loop
              htp.prn(
                  sys.dbms_lob.substr(p_clob, v_buff_size, (i * v_buff_size) + 1)
              );
              p := i * v_buff_size + 1;
          end loop;
      end if;
      if ( v_remainder_size > 0 )
      then
          htp.prn(
              sys.dbms_lob.substr(p_clob, v_remainder_size, (v_chunk_count * v_buff_size) + 1)
          );
      end if;
    end if;
  return;
end;
/

CREATE OR REPLACE PROCEDURE GET_SMORDERS ( a_request  varchar2)
AS
    TYPE TStringHash IS TABLE OF VARCHAR2(256) INDEX BY VARCHAR2(256);
    lh_hdr              TStringHash;
    l_hdr               VARCHAR2(256);
    l_response_status   INTEGER := 200;
    l_ccontent_type     VARCHAR2(64) := 'application/json';
    l_in_headers        VARCHAR2(4000);
    l_clob              CLOB;
BEGIN
  
    -- Заголовки и прочие параметры входящего запроса
    --lh_hdr('SERVER_SOFTWARE')       := OWA_UTIL.get_cgi_env('SERVER_SOFTWARE');
    lh_hdr('SERVER_NAME')           := OWA_UTIL.get_cgi_env('SERVER_NAME');
    --lh_hdr('GATEWAY_INTERFACE')     := OWA_UTIL.get_cgi_env('GATEWAY_INTERFACE');
    --lh_hdr('SERVER_PROTOCOL')       := OWA_UTIL.get_cgi_env('SERVER_PROTOCOL');
    --lh_hdr('SERVER_PORT')           := OWA_UTIL.get_cgi_env('SERVER_PORT');
    lh_hdr('REQUEST_METHOD')        := OWA_UTIL.get_cgi_env('REQUEST_METHOD');
    --lh_hdr('PATH_INFO')             := OWA_UTIL.get_cgi_env('PATH_INFO');
    --lh_hdr('PATH_TRANSLATED')       := OWA_UTIL.get_cgi_env('PATH_TRANSLATED');
    --lh_hdr('SCRIPT_NAME')           := OWA_UTIL.get_cgi_env('SCRIPT_NAME');
    lh_hdr('QUERY_STRING')          := OWA_UTIL.get_cgi_env('QUERY_STRING');
    lh_hdr('REMOTE_HOST')           := OWA_UTIL.get_cgi_env('REMOTE_HOST');
    lh_hdr('REMOTE_ADDR')           := OWA_UTIL.get_cgi_env('REMOTE_ADDR');
    --lh_hdr('AUTH_TYPE')             := OWA_UTIL.get_cgi_env('AUTH_TYPE');
    lh_hdr('REMOTE_USER')           := OWA_UTIL.get_cgi_env('REMOTE_USER');
    --lh_hdr('REMOTE_IDENT')          := OWA_UTIL.get_cgi_env('REMOTE_IDENT');
    --lh_hdr('CONTENT-TYPE')          := OWA_UTIL.get_cgi_env('CONTENT-TYPE');
    --lh_hdr('CONTENT-LENGTH')        := OWA_UTIL.get_cgi_env('CONTENT-LENGTH');
    --lh_hdr('HTTP_ACCEPT')           := OWA_UTIL.get_cgi_env('HTTP_ACCEPT');
    --lh_hdr('HTTP_ACCEPT_LANGUAGE')  := OWA_UTIL.get_cgi_env('HTTP_ACCEPT_LANGUAGE');
    --lh_hdr('HTTP_USER_AGENT')       := OWA_UTIL.get_cgi_env('HTTP_USER_AGENT');
    --lh_hdr('HTTP_COOKIE')           := OWA_UTIL.get_cgi_env('HTTP_COOKIE');

    l_hdr := lh_hdr.FIRST;
    WHILE l_hdr IS NOT NULL LOOP
        IF lh_hdr(l_hdr) IS NOT NULL THEN
            l_in_headers := l_in_headers||CHR(10)||l_hdr||': '||lh_hdr(l_hdr);
        END IF;
        l_hdr := lh_hdr.NEXT(l_hdr);
    END LOOP;

    insert into request_log(request) values (a_request || CHR(10) || l_in_headers);

    OWA_UTIL.STATUS_LINE(nstatus => l_response_status, bclose_header => FALSE);
    OWA_UTIL.MIME_HEADER(ccontent_type => l_ccontent_type, bclose_header => FALSE);
    OWA_UTIL.HTTP_HEADER_CLOSE();
    dbms_lob.createtemporary(l_clob, true);
        
    SELECT   json_object('objects' VALUE 
                   json_arrayagg(
                     json_object('object' VALUE
                       json_object('id'        VALUE d.id,
                                   'docstate'  VALUE d.docstate,
                                   'createdat' VALUE d.createdat,
                                   'items'     VALUE json_arrayagg(json_object('article' value s.article,
                                                                  'quantity' value s.quantity
                                                                  ) returning CLOB )
                                   returning CLOB )
                      returning CLOB )
                    returning CLOB )
                  returning CLOB )
                  into l_clob
            FROM smdocuments@dboffice d, smspecor@dboffice s
           where d.createdat = trunc(sysdate)
             and d.doctype = 'OR'
             and s.doctype = d.doctype
             and s.docid = d.id
           group by d.id, d.docstate, d.createdat;

    htp_print_clob(l_clob);
    
    
END GET_SMORDERS;
/