FETCH_RECORDS parser error

Question

Hi All
Iam new in oracle
I have extracted FETCH_RECORDS code of from a help topic
of oracle form version 6.0
On compilation I am getting an error
Error 103 at line 9 column 2
Encountered the symbol numrecs when expecting one of the following :
. ( @ % - + / mod rem then an exponent [**] and or ||
the sybmol then was substituted for numreces to continue
When I have refered to documentation I looked
PLS-00103: %s
Cause: This error message is from the parser. It found a token (language element) that is inappropriate in this context.
But still couldn't to correct the code
I need a help please.
thanks in advance
declare
NUMBER     numrecs      ;
BEGIN
IF :Global.Using_Transactional_Triggers = 'TRUE'
numrecs := Get_Block_Property(' bus' ,RECORDS_TO_FETCH);
** Call user exit to determine if there are any
** more records to fetch from its cursor. User Exit
** will return failure if there are no more
** records to fetch.
User_Exit('my_fetch block=EMP remaining_records');
** If there ARE more records, then loop thru
** and create/populate the proper number of queried
** records. If there are no more records, we drop through
          ** and do nothing. Form Builder takes this as a signal that
** we are done. */
          IF Form_Success THEN
/* Create and Populate 'numrecs' records */
FOR j IN 1..numrecs LOOP
               Create_Queried_Record;
** User exit returns false if there are no more
     ** records left to fetch. We break out of the
     ** if we've hit the last record.
User_Exit('my_fetch block=EMP get_next_record');
IF NOT Form_Success THEN EXIT;
END IF;
END LOOP;
          END IF;
** Otherwise, do the right thing.
          ELSE
               Fetch_Records;
          END IF;
          END;

Answer 1

declare
numrecs NUMBER ;
BEGIN
IF :Global.Using_Transactional_Triggers = 'TRUE'
numrecs := Get_Block_Property(' bus' ,RECORDS_TO_FETCH);
** Call user exit to determine if there are any
** more records to fetch from its cursor. User Exit
** will return failure if there are no more
** records to fetch.
User_Exit('my_fetch block= bus remaining_records');
** If there ARE more records, then loop thru
** and create/populate the proper number of queried
** records. If there are no more records, we drop through
** and do nothing. Form Builder takes this as a signal that
** we are done. */
IF Form_Success THEN
/* Create and Populate 'numrecs' records */
FOR j IN 1..numrecs LOOP
Create_Queried_Record;
** User exit returns false if there are no more
** records left to fetch. We break out of the
** if we've hit the last record.
User_Exit('my_fetch block=EMP get_next_record');
IF NOT Form_Success THEN EXIT;
END IF;
END LOOP;
END IF;
** Otherwise, do the right thing.
ELSE
Fetch_Records;
END IF;
END;Error 103 at line 6 column1
Encountered the symbol  " numrces " when expecting one of the following
.[ @ %&  - + / rem  then an  exponent [**] mod and or || 
The symbol then was substituted for " numrces " to  continue