/* CopyRight 2001 EndUser4gl */
/* Ph Bergougnoux            */

#include "executeX.h"
#define C_CMP_TAILLE_NOM_DICT 60


extern long
OPCExecute_xxx(long OPCcodeExe)
{
  char name[C_CMP_TAILLE_NOM_DICT] = "\0";
   
 double Dval  = 0 ;
   
    switch( OPCcodeExe)
   {
     
/*  C A S E ******************************************* */ 
case CodexCaseDepileDouble :
	OPCF_Pile_Depile(P_NAMEVAR, (void *)name );
	OPCF_Pile_Depile(P_DOUBLE, (void *)&Dval );
				OPC_Depile_All();
		 break;
	 default :
			return  EUError;
    }
  return (0);
}