declare  
    json1 varchar2(200); 
    json2 varchar2(200); 
    json3 varchar2(200);  
     
begin  
    json1 := json_object('1' value 1, '2' value 2, '3' value 3);  
    DBMS_OUTPUT.put_line (json1);  
     
    json2 := json_object('state' value 'AZ', 'car' value 'P1', 'pet' value 'Dog');  
    DBMS_OUTPUT.put_line (json2);  
     
    json3 := json_object( 
        'json1' value json1,  
        'json2' value json2  
        );  
    DBMS_OUTPUT.put_line (json3);  
     
    select json_object( 
        'json1' value json1,  
        'json2' value json2  
        ) 
        into json3 
    from dual;  
    DBMS_OUTPUT.put_line (json3);  
     
    json3 := json_object( 
        'json1' value json_object('1' value 1, '2' value 2, '3' value 3),  
        'json2' value json_object('state' value 'AZ', 'car' value 'P1', 'pet' value 'Dog')  
        );  
    DBMS_OUTPUT.put_line (json3);  
end;