我有下一个程序:BEGINDECLAREretribAnINTEGERDEFAULT0;DECLAREcPostINTEGER(11);DECLAREdoneINTDEFAULT0;DECLAREcurTipoCURSORFORSELECTRETRIBUCION_ANUAL*1.05ASRET_ANFROMEMPLEADOSWHEREID_CPOSTAL%2=0;DECLARECONTINUEHANDLERFORNOTFOUNDSETdone=1;OPENcurTipo;REPEATFETCHcurTipoINTOretribAn,cPost;IFNOTdoneTHENUPDATEEM