How to use TABLE_FROM_BLOCK in forms 10g ??????

Question

i have use the procedure below code in when-validate of a database item in forms6i its working fine ,but the same form i have compiled in forms10g and then when the when validate is fired it gives following error
frm-40933 Cannot populate table because datatype is incorrect.
CODE :-
PROCEDURE CHK_DISB_DT(RECNO NUMBER) IS
LOAN_DISB_TBL_TYPE ITEMS_IN_BLOCK;--DECLARE A VAIRIABLE OF TYPE ITEMS_IN_BLOCK
TYPE LOAN_DISB_REC IS RECORD(LNA_DISB_DATE DATE);     
TYPE LOAN_DISB_TABLE IS TABLE OF LOAN_DISB_REC INDEX BY BINARY_INTEGER;
LOAN_DISB_TBL LOAN_DISB_TABLE;
I NUMBER;
DT DATE;
BEGIN
LOAN_DISB_TBL_TYPE(2):='LNA_DISB_DATE';
TABLE_FROM_BLOCK(LOAN_DISB_TBL,'PT_EMP_LOAN_ADV_DISB',1,ALL_RECORDS,LOAN_DISB_TBL_TYPE);          
DT:=TRUNC(LOAN_DISB_TBL(RECNO).LNA_DISB_DATE);
END LOOP;

Answer 1

You've specified the lna_disb_date item to be the stored in the second field in the record but only 1 field has been defined for the record.
TryLOAN_DISB_TBL_TYPE(1):='LNA_DISB_DATE';Since you're only using the data from 1 record in the table you could make the code more efficient by using "recno, recno" instead of "1, all_records" and then reference the date as "dt := trunc(loan_disb_tbl(1).lna_disb_date)". Note that doing this might give a different error message to what you previously may have seen when recno is greater than the number of records in the block. So if recno could ever be too large then you should test to find the error which is generated.