EBS 资产批量报废 - API （do_retirement）

DECLARE
  l_trans_rec        fa_api_types.trans_rec_type;
  l_dist_trans_rec   fa_api_types.trans_rec_type;
  l_asset_hdr_rec    fa_api_types.asset_hdr_rec_type;
  l_asset_retire_rec fa_api_types.asset_retire_rec_type;
  l_asset_dist_tbl   fa_api_types.asset_dist_tbl_type;
  l_subcomp_tbl      fa_api_types.subcomp_tbl_type;
  l_inv_tbl          fa_api_types.inv_tbl_type;
  l_return_status    VARCHAR2(1);
  l_mesg_count       NUMBER;
  l_mesg             VARCHAR2(4000);
BEGIN
  -- 初始化  
  dbms_output.enable(1000000);
  fa_srvr_msg.init_server_message;
  -- Get standard who info  
  -- 资产id  
  l_asset_hdr_rec.asset_id := 418;
  -- 账簿  
  l_asset_hdr_rec.book_type_code :