How can one create CAPI manually?

Question

Hei,
we are in the process of migrating from headstart 5.2 to 6.5. We are in making trial migrations everyday, make the stage to create CAPI via procedure. Setting context for workarea is proving tricky..
The major problem observed so far is the length of irid which is 42 long, and irid parameter is defined with 22 length in jr_context.set_workarea(irid); The procedure is compiling but getting an exception at run time..here is the sample with two example tables. We shal appreciate any tips to fgo move forward:
CREATE OR REPLACE procedure opprett_capi
as
--TYPE tbl_list IS TABLE OF VARCHAR2(300) INDEX BY BINARY_INTEGER;
--lv_tbl_list tbl_list;
lv_tab_lst varchar(300);
lv_irid i$sdd_workareas.irid%TYPE;
MVA3_SERVER constant varchar2(30) := 'MVA3_SERVER (MVA)';
lv_antall NUMBER(10);
lv_act_status char(1);
lv_mesg varchar2(50);
lv_errcode number(38);
begin
-- The irid is 826581404640873523725741275569692818
select irid into lv_irid from i$sdd_workareas;
jr_context.set_workarea(lv_irid);
cdapi.initialize(MVA3_SERVER);
lv_act_status := 'N';
cdapi.open_activity;
lv_tab_lst := 'FLS_ARKIVERTE_BREV |FLS_AVDELINGER |';
hsu_capi.run(lv_tab_lst,'Y');
cdapi.close_activity(lv_act_status);
commit;
dbms_output.put_line(lv_act_status);
EXCEPTION
WHEN OTHERS THEN
lv_mesg := SQLERRM;
lv_errcode := SQLCODE;
dbms_output.put_line('This error was returned: '||TO_CHAR(lv_errcode)||': '||lv_mesg);
end opprett_capi;
show errors

Answer 1

You should look in the hsustart.fmb form to see how it initializes the context workarea. This code is fired on the when-button-pressed trigger in the WKA block. You will need to mimic this same code in your procedure.
Regards,
Lauri