检查所有资产的剩余折旧年限

DECLARE
    CURSOR  c_asset  IS
       SELECT  fab.asset_id,
             fab.asset_number,
             fb.book_type_code
         FROM  fa_additions_b fab,
             fa_books       fb
        WHERE  fab.asset_id  =  fb.asset_id
          AND  fb.date_ineffective  IS   NULL
          AND  fb.transaction_header_id_out  IS   NULL
          AND  fb.period_counter_fully_retired  IS   NULL ;

   l_prorate_date DATE;
    -- l_book_type_code varchar2(20);
    -- l_asset_id number;
   l_remaining_life_years   NUMBER ;
   l_remaining_life_months  NUMBER ;
   l_min_cpod              DATE;
   l_num_per_fiscal_year    NUMBER ;
   dummy_num                NUMBER ;
BEGIN

    FOR  i  IN  c_asset
   LOOP
   
       -- get prorate date
       SELECT   /* adjusted_recoverable_cost,  */
       prorate_date
         INTO   /* :Inquiry_books.adjusted_recoverable_cost,  */
             l_prorate_date
         FROM  fa_books
        WHERE  book_type_code  =  i.book_type_code
          AND  asset_id  =  i.asset_id
          AND  date_ineffective  IS   NULL ;
   
       SELECT   MIN (calendar_period_open_date)
         INTO  l_min_cpod
         FROM  fa_deprn_periods
        WHERE  book_type_code  =  i.book_type_code;
   
       -- get fiscal year
       SELECT  number_per_fiscal_year
         INTO<