proc 问题求助 ！高手救命！！！

royroyyao

源代码:
...............

exec sql declare t_tmp_cdm_ledger_cur cursor for
    select  ACC ,
            CSTM_NAME ,
            CSTM_NO ,
            PAPER_TYPE ,
            PAPER_NO ,
            CURR_TYPE ,
            SVT_NO ,
            BAL ,
            LAST_TRAN_DATE ,
            LAST_TRAN_TIME ,
            PK_NO ,
            FLAG ,  
            OPEN_DATE ,
            CLS_DATE ,
            OPEN_TLR ,
            CLS_TLR ,
            OPEN_INST from t_tmp_cdm_ledger ;
   
        exec sql open t_tmp_cdm_ledger_cur;
   
        exec sql fetch t_tmp_cdm_ledger_cur into
        :cdm_ledger_tmp.acc,
        :cdm_ledger_tmp.cstm_name,
        :cdm_ledger_tmp.cstm_no,
        :cdm_ledger_tmp.paper_type,
        :cdm_ledger_tmp.paper_no,
        :cdm_ledger_tmp.curr_type,
        :cdm_ledger_tmp.svt_no,
        :cdm_ledger_tmp.bal,
        :cdm_ledger_tmp.last_tran_date,
        :cdm_ledger_tmp.last_tran_time ,
        :cdm_ledger_tmp.pk_no ,
        :cdm_ledger_tmp.flag ,
        :cdm_ledger_tmp.open_date,
        :cdm_ledger_tmp.cls_date,
        :cdm_ledger_tmp.open_tlr,
        :cdm_ledger_tmp.cls_tlr,
        :cdm_ledger_tmp.open_inst;
............


编译时报错：
Warning at line 104, column 18, file SUM_CDM.pc:
        exec sql fetch t_tmp_cdm_ledger_cur into
.................1
PCC-W-02344, Host variable array size mismatch. Using minimum: 1

macrodba

检查一下代码匹配问题

doni

:cdm_ledger_tmp.acc,
        :cdm_ledger_tmp.cstm_name,
        :cdm_ledger_tmp.cstm_no,
        :cdm_ledger_tmp.paper_type,
        :cdm_ledger_tmp.paper_no,
        :cdm_ledger_tmp.curr_type,
        :cdm_ledger_tmp.svt_no,
        :cdm_ledger_tmp.bal,
        :cdm_ledger_tmp.last_tran_date,
        :cdm_ledger_tmp.last_tran_time ,
        :cdm_ledger_tmp.pk_no ,
        :cdm_ledger_tmp.flag ,
        :cdm_ledger_tmp.open_date,
        :cdm_ledger_tmp.cls_date,
        :cdm_ledger_tmp.open_tlr,
        :cdm_ledger_tmp.cls_tlr,
        :cdm_ledger_tmp.open_inst;
以上数组的长度不一样