OPEN API: What do I have to do to create program units?

Question

What do I have to do to create program units? Which properties do I have to set?
I have tried the following code, but it haven't
worked. Could anybody post the example how do that.
I use Forms 6.0 Client/Server, Windows 2000.
Here is my code:
// I believe, the OPEN API is loaded and
// form is created correctly.
// pd2fctx is an open api context; pd2ffmd is a form
char *pu_name="TEST";
char *pu_text="CREATE PACKAGE TEST IS\n"
"PROCEDURE PROC1;\n"
"END;";
d2fpgu *obj=0;
status=d2fpgucr_Create( pd2fctx, pd2ffmd, &obj, (text*)pu_name );
CheckError( status, "d2fpgucr_Create fails" );
// These lines don't set the property values, I don't know why :(
int status=d2fobsn_SetNumProp( pd2fctx, obj, D2FP_PGU_TYP, D2FC_PGTY_PACKAGESPEC );
CheckError( status, "d2fobsn_SetNumProp fails" );
status=d2fobst_SetTextProp( pd2fctx, obj, D2FP_PGU_TXT, (text*)pu_text );
CheckError( status, "d2fobst_SetTextProp fails" );
// It shows this mistake.
status=d2fobgn_GetNumProp( pd2fctx, obj, D2FP_PGU_TYP, & obj_type );
status=d2fobgt_GetTextProp( pd2fctx, obj, D2FP_NAME, (text **)& obj_name );
status=d2fobgt_GetTextProp( pd2fctx, obj, D2FP_PGU_TXT, (text **)& obj_txt );
printf("D2FP_NAME=%s\nD2FP_PGU_TYP=%i\nD2FP_PGU_TXT=%s\n", obj_name, obj_type, obj_txt );
// The result of execution of these lines is:
// D2FP_NAME=TEST
// D2FP_PGU_TYP=0
// D2FP_PGU_TXT=(null)

Answer 1

System Preferences > Keyboard
Enable "Adjust keyboard brightness in low light"
Adjust the slider for "Turn off when computer is not used for"
Best.