ORACLE中RECORD、TABLE的真实项目中的使用

/*
  PRAS资金保留和解保留对账  BODY
*/
PROCEDURE proc_fund_check(in_trans_date IN  VARCHAR, -- 交易工作日期
                          oi_flag       OUT VARCHAR,
                          oi_msg        OUT VARCHAR) AS
                          
  CURSOR cur_hold_event_no IS
      SELECT ROWID, HOLD_EVENT_NO -- 渠道事件编号
        FROM LOA_FUND_HOLD_DTL
       WHERE TRANS_DATE = in_trans_date
         AND AVAILAB_FLAG = '1';
         
BEGIN
  FOR rec IN ( SELECT CHANESQ, DRACCNO, DRCURTYPE, AMOUNT1
                 FROM FOA_FUND_HOLD_DTL_TEMP
                WHERE DEAL_FLAG = '0'
                  AND CHANLTYPE = '105' ) LOOP
    my_map(rec.chanesq).chanesq_id := rec.chanesq; -- 渠道时间编号
    my_map(rec.draccno).draccno_id := rec.draccno; -- 账号
    my_map(rec.drcurtype).drcurtype_id := rec.drcurtype; -- 币种
  END LOOP;