#include <stdio.h>
#include <string.h>

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

#include "f93olc.h"

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


# if !defined EVENTTYPE_H
#    include "eventtype.h"
# endif


/*
** EventTypeFirst
** EventTypeNext
** EventTypeDelete
*/
STANDARDROUTINES(EventType,ET)

FUNCTION3(
hcg_key EventTypeCreate,
    const char *, EventTypesLabel,
    hcg_key,        SMid,
    const char *, EventTypesDescription
)
{
    hcg_key ETid;

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

    decode(SMkey, &SMid);
    pr_gen_pkey("JuicePlant", ET, ETkey);
    sprintf(databuffer, 
            " %s %s %.*s %.*s",
            ETkey,    
            SMkey,
            EventTypesLabelMaxLen,
            EventTypesLabel,
            EventTypesDescriptionMaxLen,
            EventTypesDescription);
    pr_add("JuicePlant", databuffer);
    encode(ETkey, &ETid);
#else
    struct ET *ET_elt;

    ET_elt = pr_create(ET);
    pr_set_key(ET_elt, SMid, SMid);
    pr_set_str(ET_elt, Label, EventTypesLabel);
    pr_set_str(ET_elt, Descrip, EventTypesDescription);
    pr_add("JuicePlant", ET, ET_elt);
    ETid = pr_get_key(ET_elt,ETid);
#endif

    return ETid;

}

GETROUTINE(const char *,EventType,ET,Label)
GETROUTINE(const char *,EventType,ET,Descrip)
COPYROUTINE(EventType,ET,Label)
COPYROUTINE(EventType,ET,Descrip)