#include <stdio.h>

/*
# if !defined OLC93SU523_H
#    include "olc93su523.h"
# endif
*/

#include "f93olc.h"

# if !defined OLC3COMMON_H
#    include "olc3common.h"
# endif


# if !defined ENABLE_H
#    include "enable.h"
# endif



/*
** EnableFirst
** EnableNext
** EnableDelete
*/
STANDARDROUTINES(Enable, EN)


FUNCTION2(
hcg_key EnableCreate,
    hcg_key, EnableWithThisEventType, 
    hcg_key, EnableThisTransition
)
{
    hcg_key ENid;

#ifdef GENV7
    char databuffer[BUFSIZE];
    KEYBUFFER(ENkey);
    KEYBUFFER(TRkey);
    KEYBUFFER(ETkey);

    decode(ETkey, &EnableWithThisEventType);
    decode(TRkey, &EnableThisTransition);

    pr_gen_pkey("JuicePlant", EN, ENkey);
    sprintf(databuffer, " %s %s %s", ENkey, ETkey, TRkey);
    pr_add("JuicePlant", databuffer);
    encode(ENkey, &ENid);

#else

    struct EN *EN_elt;

    EN_elt = pr_create(EN);
    pr_set_key(EN_elt, ETid, EnableWithThisEventType);
    pr_set_key(EN_elt, TRid, EnableThisTransition);
    pr_add("JuicePlant", EN, EN_elt);
    ENid = pr_get_key(EN_elt, ENid);
    
#endif

    return ENid;
}