Null Value Item

Question

Hi all,
As per below coding in my application need to export each column data to excel. total column of my table is 10.
Normally , the 5th column usually is null value and other
column is not null.
the question is below coding can't loop 6-10th column due to 5th column is null value then break.
everybody can tell me how to cause pl/sql can loop 6-10th column even 5th column is null ?
FOR k IN 1..10
LOOP
IF NOT NAME_IN(:system.cursor_item) IS NULL THEN
args:=CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, j);
CLIENT_OLE2.ADD_ARG(args, k);
cell := CLIENT_OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
font := CLIENT_OLE2.GET_OBJ_PROPERTY (cell, 'Font') ;
CLIENT_OLE2.DESTROY_ARGLIST(args);
IF GET_ITEM_PROPERTY(:system.cursor_item,COLUMN_NAME) = 'TS_IMP_TYPE' THEN
IF NAME_IN(:system.cursor_item) = 'EI' THEN          list_index := 1;
ELSIF NAME_IN(:system.cursor_item) = 'LI' THEN
     list_index := 2;
ELSE
     list_index := 3;
END IF;
CLIENT_OLE2.SET_PROPERTY(cell, 'Value', GET_LIST_ELEMENT_LABEL('TSCNTRMOV.TS_IMP_TYPE',list_index));          
ELSIF GET_ITEM_PROPERTY(:system.cursor_item,DATATYPE) = 'DATE' THEN
IF GET_ITEM_PROPERTY(:system.cursor_item,COLUMN_NAME) = 'TS_TRANS_DATE' THEN
CLIENT_OLE2.SET_PROPERTY(cell, 'Value', TO_CHAR(TO_DATE(NAME_IN(:system.cursor_item)),'DD-MM-RRRR HH24:MI:SS'));
ELSE
     CLIENT_OLE2.SET_PROPERTY(cell, 'Value', TO_CHAR(TO_DATE(NAME_IN(:system.cursor_item)),'DD-MM-RRRR'));
END IF;
ELSE
CLIENT_OLE2.SET_PROPERTY(cell, 'Value', name_in(:system.cursor_item));
END IF ;
CLIENT_OLE2.SET_PROPERTY(cell, 'ColumnWidth', '20');
CLIENT_OLE2.SET_PROPERTY (font, 'Name', 'Times New Roman');     
CLIENT_OLE2.SET_PROPERTY (font, 'Size', '14');
CLIENT_OLE2.RELEASE_OBJ(font);
CLIENT_OLE2.RELEASE_OBJ(cell);
next_item;
END IF;
END LOOP;
best regards
boris

Answer 1

Hi Gerd,
tks for yr remind.
i have another one question. can u help me ?
my trigger is use for export data to excel from data block. i feel it process slow too. because it is a one by one column/row insert.
how to enchance the performance from coding ?
i know that use table type in trigger for store a heap of data then insert to excel once. but i don't know how to implement. can u tell me how to do that .
tks a lot.
pls see below trigger is one by one insert.
PROCEDURE EXPORT_EXCEL IS
app CLIENT_OLE2.OBJ_TYPE;
workbooks CLIENT_OLE2.OBJ_TYPE;
workbook CLIENT_OLE2.OBJ_TYPE;
worksheets CLIENT_OLE2.OBJ_TYPE;
worksheet CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;
cell CLIENT_OLE2.OBJ_TYPE;
font CLIENT_OLE2.OBJ_TYPE;
patterns CLIENT_OLE2.OBJ_TYPE;
j INTEGER;
k INTEGER;
file_name_cl VARCHAR2(32767);
item_prompt VARCHAR2(32767);
fir_item VARCHAR2(80);
cur_item VARCHAR2(80);
list_index NUMBER (1);
user_cancel EXCEPTION;
BEGIN
-- create a new document
app := CLIENT_OLE2.CREATE_OBJ('Excel.Application');
CLIENT_OLE2.SET_PROPERTY(app,'Visible',1);
workbooks := CLIENT_OLE2.GET_OBJ_PROPERTY(app, 'Workbooks');
workbook := CLIENT_OLE2.INVOKE_OBJ(workbooks, 'add');
worksheets := CLIENT_OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');
worksheet := CLIENT_OLE2.Invoke_OBJ(worksheets, 'Add');
go_block('TSCNTRMOV_HB');
j:=2; /* Represents row number */
k:=1; /* Represemts column number */
args:=CLIENT_OLE2.CREATE_ARGLIST;
     CLIENT_OLE2.ADD_ARG(args, j);
     CLIENT_OLE2.ADD_ARG(args, k);
     cell:=CLIENT_OLE2.GET_OBJ_PROPERTY(worksheet, 'Cells', args);
     CLIENT_OLE2.DESTROY_ARGLIST(args);
     CLIENT_OLE2.SET_PROPERTY(cell, 'Value', 'Container Movement Report');
     font := CLIENT_OLE2.GET_OBJ_PROPERTY (cell, 'Font') ;
     CLIENT_OLE2.SET_PROPERTY (font, 'Name', 'Times New Roman');
     CLIENT_OLE2.SET_PROPERTY (font, 'Size', '18');
     CLIENT_OLE2.SET_PROPERTY (font, 'Bold', True);
     CLIENT_OLE2.RELEASE_OBJ(font);
     CLIENT_OLE2.RELEASE_OBJ(cell);
     /* Add the column headings using item prompts */
     j:=4 ;
     fir_item := Get_Block_Property ( :SYSTEM.CURRENT_BLOCK, FIRST_ITEM );
     WHILE ( fir_item IS NOT NULL ) LOOP
          cur_item := :SYSTEM.CURRENT_BLOCK || '.' || fir_item ;
          item_prompt := GET_ITEM_PROPERTY(cur_item, label);
     args:=CLIENT_OLE2.CREATE_ARGLIST;
     CLIENT_OLE2.ADD_ARG(args, j);
     CLIENT_OLE2.ADD_ARG(args, k);
     cell := CLIENT_OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
     font := CLIENT_OLE2.GET_OBJ_PROPERTY (cell, 'Font') ;
     patterns := CLIENT_OLE2.GET_OBJ_PROPERTY (cell, 'INTERIOR') ;
CLIENT_OLE2.DESTROY_ARGLIST(args);
     CLIENT_OLE2.SET_PROPERTY(cell, 'Value', item_prompt);
     CLIENT_OLE2.SET_PROPERTY(cell, 'ColumnWidth', '20');
     CLIENT_OLE2.SET_PROPERTY(patterns, 'ColorIndex', '6');     
CLIENT_OLE2.SET_PROPERTY (font, 'Name', 'Times New Roman');     
     CLIENT_OLE2.SET_PROPERTY (font, 'Size', '14');
     CLIENT_OLE2.SET_PROPERTY (font, 'Bold', True);
     CLIENT_OLE2.RELEASE_OBJ(font);
     CLIENT_OLE2.RELEASE_OBJ(cell);
     fir_item := GET_ITEM_PROPERTY( cur_item, NEXTITEM ) ;
     k := k + 1 ;
     END LOOP;
     go_block('TSCNTRMOV');
first_record ;
j:=5; /* Represents row number */
k:=1; /* Represemts column number */
     LOOP
          --FOR k IN 1..38
          --LOOP
          WHILE (GET_ITEM_PROPERTY(:system.cursor_item,VISIBLE) <> 'TRUE') LOOP     
               IF NAME_IN(:system.cursor_item) IS NOT NULL THEN
--     WHILE (NAME_IN(:system.cursor_item) IS NOT NULL) LOOP
          args:=CLIENT_OLE2.CREATE_ARGLIST;
          CLIENT_OLE2.ADD_ARG(args, j);
          CLIENT_OLE2.ADD_ARG(args, k);
          cell := CLIENT_OLE2.GET_OBJ_PROPERTY (worksheet, 'Cells', args);
          font := CLIENT_OLE2.GET_OBJ_PROPERTY (cell, 'Font') ;
     CLIENT_OLE2.DESTROY_ARGLIST(args);
IF GET_ITEM_PROPERTY(:system.cursor_item,COLUMN_NAME) = 'TS_IMP_TYPE' THEN
               IF NAME_IN(:system.cursor_item) = 'EI' THEN
                    list_index := 1;
               ELSIF NAME_IN(:system.cursor_item) = 'LI' THEN
                    list_index := 2;
               ELSE
                         list_index := 3;
                    END IF;
                    CLIENT_OLE2.SET_PROPERTY(cell, 'Value', GET_LIST_ELEMENT_LABEL('TSCNTRMOV.TS_IMP_TYPE',list_index));     
               ELSIF GET_ITEM_PROPERTY(:system.cursor_item,DATATYPE) = 'DATE' THEN
          IF GET_ITEM_PROPERTY(:system.cursor_item,COLUMN_NAME) = 'TS_TRANS_DATE' THEN
               CLIENT_OLE2.SET_PROPERTY(cell, 'Value', TO_CHAR(TO_DATE(NAME_IN(:system.cursor_item)),'DD-MM-RRRR HH24:MI:SS'));
          ELSE
               CLIENT_OLE2.SET_PROPERTY(cell, 'Value', TO_CHAR(TO_DATE(NAME_IN(:system.cursor_item)),'DD-MM-RRRR'));
               END IF;
ELSE
               CLIENT_OLE2.SET_PROPERTY(cell, 'Value', name_in(:system.cursor_item));
               END IF ;
     CLIENT_OLE2.SET_PROPERTY(cell, 'ColumnWidth', '20');
     CLIENT_OLE2.SET_PROPERTY (font, 'Name', 'Times New Roman');     
          CLIENT_OLE2.SET_PROPERTY (font, 'Size', '14');
          CLIENT_OLE2.RELEASE_OBJ(font);
          CLIENT_OLE2.RELEASE_OBJ(cell);
END IF;
NEXT_ITEM;
k := k + 1 ;
     END LOOP;
     j:=j+1;
     k:=1;
     IF :system.last_record = 'TRUE' THEN
     exit;
     ELSE
     next_record;
     END IF;
     END LOOP;     
--CLIENT_OLE2.SET_PROPERTY(app,'Visible',1);
CLIENT_OLE2.RELEASE_OBJ(worksheet);
CLIENT_OLE2.RELEASE_OBJ(worksheets);
     /* release workbook */
     CLIENT_OLE2.RELEASE_OBJ(workbook);
     CLIENT_OLE2.RELEASE_OBJ(workbooks);
     /* Release application */
     CLIENT_OLE2.RELEASE_OBJ(app);
     EXCEPTION
     WHEN user_cancel THEN
     RAISE;
END;