/* 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";
  char value[255] = "\0";
   
   switch( OPCcodeExe)
   {
     
/* ****************** **********************  C A S E ******************************************* */ 

	case CodexCaseDepileChar :
	OPCF_Pile_Depile(P_NAMEVAR, (void *)name);
    	OPCF_Pile_Depile(P_STRING, (void *)value );
	
 		OPC_Depile_All();
		 break;
	 default :
		return  EUError;
   }
  return (0);
}