Oracle Forms Developer – Form Builder Reference, Volume 1

174
RETURN NUMBER IS
the_Rowcount NUMBER;
rg_id RecordGroup;
gc_id GroupColumn;
col_val VARCHAR2(80);
Exit_Function Exception;
BEGIN
/*
** Determine if record group exists, and if so get its ID.
*/
rg_id := Find_Group( the_rg_name );
IF Id_Null(rg_id) THEN
Message(’Record Group ’||the_rg_name||’ does not exist.’);
RAISE Exit_Function;
END IF;
/*
** Make sure the column name specified exists in the
** record Group.
*/
gc_id := Find_Column( the_rg_name||’.’||the_rg_column );
IF Id_Null(gc_id) THEN
Message(’Column ’||the_rg_column||’ does not exist.’);
RAISE Exit_Function;
END IF;
/*
** Get a count of the number of records in the record
** group
*/
the_Rowcount := Get_Group_Row_Count( rg_id );
/*
** Loop through the records, getting the specified column’s
** value at each iteration and comparing it to ’the_value’
** passed in. Compare the values in a case insensitive
** manner.
*/
FOR j IN 1..the_Rowcount LOOP
col_val := GET_GROUP_CHAR_CELL( gc_id, j );
/*
** If we find a match, stop and return the
** current row number.
*/
IF UPPER(col_val) = UPPER(the_value) THEN
RETURN j;
END IF;
END LOOP;
/*
** If we get here, we didn’t find any matches.
*/
RAISE Exit_Function;
EXCEPTION
WHEN Exit_Function THEN
RETURN 0;
END;