1Create or replace procedure Pr_mytest is2 3 4 5V_test Number (8) :=123;6V_char VARCHAR2 (Ten):='Database';7C_CHANGL Constant Number ( A,2) :=3.14;8V_BM t_hq_ryxx.bum%type; 9Type Ty_ry isRecord--a record type in a composite type that defines a new record typeTen ( OneV_XINGM t_hq_ryxx.xingm%type, AV_XINGB t_hq_ryxx.xingb%type, -V_gongz Number (Ten,2) - ); the -V_ry Ty_ry; --variables that declare this type of record - -V_ryrow T_hq_ryxx%rowtype; --all fields of the table + - + A at begin - -V_char: ='Hello'; ---c_chang1: =12.45; - - SelectCount1) into V_test fromt_hq_ryxx; inDbms_output.put_line (V_char | |', test stored procedure, record number of bars ='||v_test); - to SelectBum into V_BM fromT_hq_ryxxwhereRowNum =1; +Dbms_output.put_line (V_char | |', test stored procedure, record number of bars ='||V_BM); - the SelectXingm,xingb,gongz into V_ry fromT_hq_ryxxwhereRowNum =1; *Dbms_output.put_line ('Record type ='|| V_RY.V_XINGM | |' '|| V_RY.V_XINGB | |' '||V_ry.v_gongz); $ Panax Notoginseng Select* Into V_ryrow fromT_hq_ryxxwhereRowNum =1; -Dbms_output.put_line ('row Record type ='|| V_RYROW.XINGM | |' '|| V_RYROW.XINGB | |' '|| v_ryrow.gongz| |' '||v_ryrow.nianl); the + A the +End Pr_mytest;
PL/SQL Programming key statement output collation