#include <stdio.h>

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

#include "f93olc.h"


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


# if !defined ACTIVECLASS_H
#    include "activeclass.h"
# endif



/*
**  ActiveClassFirst
**  ActiveClassNext
**  ActiveClassDelete
*/
STANDARDROUTINES(ActiveClass, AC)

FUNCTION2(
hcg_key ActiveClassCreate,
    const char *, ActiveClassName, 
    hcg_key,      SMid
)
{
    hcg_key ACid;

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

    pr_gen_pkey("JuicePlant", AC, ACkey);
    decode(SMkey, &SMid);
    sprintf(databuffer, 
            " %s %s %.*s",
            ACkey,
            SMkey,    
            ActiveClassNameMaxLen,
            ActiveClassName);
    pr_add("JuicePlant", databuffer);
    encode(ACkey, &ACid);

#else

    struct AC *AC_elt;

    AC_elt = pr_create(AC);
    pr_set_key(AC_elt, SMid, SMid);
    pr_set_str(AC_elt, Name, ActiveClassName);
    pr_add("JuicePlant", AC, AC_elt);
    ACid = pr_get_key(AC_elt, ACid);
    
#endif
    return ACid;
}