create   or   replace   procedure  backup_cl_user  is
  tablename  varchar2 ( 40 );
  last_date  varchar2 ( 8 );
  str_sql  varchar2 ( 500 );
begin
   select  to_char(sysdate, ' yyyymm ' )  into  tablename  from  dual;
  tablename: = ' service_reg_cl_ ' || tablename;
   select  to_char(sysdate - 60 , ' yyyymmdd ' )  into  last_date  from  dual;
  str_sql: = ' insert into  ' || tablename || '  select * from service_reg_cl where state= '' 60H ''  and unreg_date< ''' || last_date || '''   ' ;
  dbms_output.put_line(str_sql);
   execute  immediate str_sql;
   commit ;
  
  str_sql: = ' delete from service_reg_cl where state= '' 60H ''  and unreg_date< ''' || last_date || '''' ;
  dbms_output.put_line(str_sql);  
   execute  immediate str_sql;
   commit ;
end  backup_cl_user;