Using get_application_property(CONFIG) in 6i and 10g

Question

Hi,
for a short time, our application has to run with 6i and 10g at the same time. We have to use the new constant CONFIG also in 6i. How can I mask this constant that it works correctly. Implementing it like this doesn't work:
PROCEDURE gui$new_session
IS
pl_id ParamList;
form_name varchar2(100);
lo_connect varchar2(250);
lo_url varchar2(200);
lo_conf varchar2(50);
co_config CONSTANT NUMBER := 'CONFIG';
BEGIN
form_name := replace(pdb_anwendung.get_anw_exe('PRAG_MENUE45'), '.FMX','');
IF get_application_property(USER_INTERFACE) <> 'WEB' THEN
RUN_PRODUCT(FORMS, form_name, ASYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id, NULL);
ELSE
lo_connect := get_application_property(USERNAME)||'/'||get_application_property(PASSWORD)||'@'||get_application_property(CONNECT_STRING);
lo_conf := get_application_property(co_config);
lo_url := 'javascript:window.open("/forms/frmservlet?config='||lo_conf||'&form='||form_name||'&userid='||lo_connect||'","","location=no,toolbar=no,menubar=no,status=no,");self.close();';
WEB.SHOW_DOCUMENT(lo_url,'_blank');
END IF;
END;
Unfortunately, I can't set the constant CONFIG directly into get_application_property (what is working properly used directly in 10g) because then I get a compilation error in 6i. Can somebody help me?
Regards,
Heike

Answer 1

Clearly...
co_config CONSTANT NUMBER := 'CONFIG';... won't work because you are assigning a varchar value to a number. CONFIG (without the quotes) is a built-in constant in Forms 10g that has a value of 221. So you could try this (notice there are no single quotes)...
co_config CONSTANT NUMBER := CONFIG;... but I doubt that will compile in 6i as CONFIG won't be defined. So maybe you could use...
co_config CONSTANT NUMBER := 221;It's bad practice to hard-code a value like that though.