API problem

Question

I'm trying to load all the objects into Repository and it runs smoothly to load .fmb or .rpt files.
But when I use my own API script to load some files written in AccessSQL from a Legacy system.
Module Components are empty. There are nothing in there under the directory of "Module Components", "Modules", of "Repository Object Navigator".
Could you please tell me what's wrong with my API?
REM Process Name : MAPI1.SQL
REM Module Name/Reference:N/A
REM Module Type: PL/Sql
REM Global Variables: N/A
REM Process : API Call to insert module components .
REM Calling Module: N/A
REM Modification History :
REM Comments:
set serveroutput on size 1000000
DECLARE
module_to_add ciomodule_component.data; -- Property list for MODULE
act_status varchar2(1); -- Activity status
act_warnings varchar2(1); -- Activity warning flag
mname varchar2(30); -- For Short name
mlname varchar2(70); -- For Name
Mpurp varchar2(70); -- For Purpose
mtype varchar2(40); -- fOR tYPE
cannot_init_appsys exception;
no_matching_mod_found exception;
CURSOR NEW_MODULE IS
SELECT rtrim(a.app_file) app_file,rtrim(a.mod_name) mod_name,rtrim(a.purpose) purpose,c.id id
FROM app_files a,app_dir b,ci_general_modules c
where a.apdir_id = b.id
and c.short_name = upper(b.appdir)
and c.short_name = '&r';
procedure instantiate_messages
is
m_facility varchar2(3);
m_code number;
arg1 varchar2(240);
arg2 varchar2(64);
arg3 varchar2(64);
arg4 varchar2(64);
arg5 varchar2(20);
arg6 varchar2(20);
arg7 varchar2(20);
arg8 varchar2(20);
begin
-- Report all violations regardless of the activity status
-- VIOLATIONS ARE SELECTED FROM THE API VIEW CI_VIOLATIONS
for viol in (select * from ci_violations) loop
dbms_output.put_line( cdapi.instantiate_message(viol.facility,viol.code,
viol.p0,viol.p1,viol.p2,viol.p3,viol.p4,viol.p5,viol.p6,viol.p7 ) );
end loop;
-- Pop messages off the stack and format them into a single text string
while cdapi.stacksize > 0 loop
rmmes.pop( m_facility,m_code,arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8 );
dbms_output.put_line( cdapi.instantiate_message( m_facility,m_code,
arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8 ) );
end loop;
end;
BEGIN
-- Initialize API if not already done
if cdapi.initialized = false then
-- Initialize the API globals
cdapi.initialize(upper('spoc'),1);
end if;
-- Open a new activity
dbms_output.put_line('Opening a new activity');
cdapi.open_activity;
for new_module_rec in new_module loop
-- Get the module values and insert them into variables
-- LOAD THE NEW VALUES INTO THE API VARIABLES
module_to_add.v.name := substr(new_module_rec.app_file,1,20);
module_to_add.v.language_reference := 107;
module_to_add.v.general_module_reference := new_module_rec.id;
-- module_to_add.v.short_name := substr(new_module_rec.mod_name,1,36);
-- module_to_add.v.purpose := substr(new_module_rec.purpose,1,60);
-- SET THE INDICATORS FOR DATA LOAD
-- if module_to_add.v.short_name is not null then
-- module_to_add.i.short_name := true;
-- end if;
if module_to_add.v.name is not null then
module_to_add.i.name := true;
end if;
-- if module_to_add.v.purpose is not null then
-- module_to_add.i.purpose := true;
-- end if;
-- if module_to_add.v.module_type is not null then
-- module_to_add.i.module_type := true;
-- end if;
-- Call the insert procedure for the new module
-- dbms_output.put_line('short_name : '| |module_to_add.v.short_name);
dbms_output.put_line('name : '| |module_to_add.v.name);
-- dbms_output.put_line('purpose : '| |module_to_add.v.purpose);
dbms_output.put_line('Inserting the new module');
ciomodule_component.ins(null,module_to_add);
end loop;
-- Select the property list
-- dbms_output.put_line('type : '| |module_to_add.v.module_type);
-- Validate the activity
cdapi.validate_activity(act_status,act_warnings);
-- Display all violations and other messages regardless of the activity
-- warnings flag
inst antiate_messages;
-- Attempt to close the activity
cdapi.close_activity(act_status);
dbms_output.put_line ('activity status is '| | act_status);
-- If the activity did not close successfully, roll back all changes made
-- during the activity
if act_status != 'Y' then
cdapi.abort_activity;
dbms_output.put_line('Activity aborted with constraint violations');
-- Otherwise, we're done
else
dbms_output.put_line('Activity closed successfully');
end if;
EXCEPTION
WHEN CANNOT_INIT_APPSYS THEN
dbms_output.put_line('cannot initialize API for Application System' | | 'SPOC');
WHEN NO_MATCHING_MOD_FOUND THEN
dbms_output.put_line('No Module to insert');
WHEN OTHERS THEN
-- If any messages have been posted on the stack, then print them now
-- and then roll back all changes made during the activity
if cdapi.stacksize > 0 then
-- Print all messages on the API stack
while cdapi.stacksize > 0 loop
dbms_output.put_line(cdapi.pop_instantiated_message);
end loop;
if cdapi.activity is not null then
cdapi.abort_activity;
dbms_output.put_line('Activity aborted with API errors');
else
dbms_output.put_line('API Session aborted with API errors');
end if;
-- Otherwise, this must have been an ORACLE SQL or internal error so
-- roll back all changes made during the activity and re-raise the
-- exception
else
if cdapi.activity is not null then
cdapi.abort_activity;
dbms_output.put_line('Activity aborted with ORACLE internal errors');
else
dbms_output.put_line('API Session aborted with ORACLE internal errors');
end if;
raise;
end if;
END;
null

Answer 1

Hi,
Dont use private API's as its not feasible to use as AMG.
Use pa_project_pub.update_project API where u can pass class codes as record type.
Regards,
SS.