This is a classical case for a "declare" block:
procedure Your_Proc is
begin
... get Var_Strt and Var_End here ...
declare
Gear : a_gear (var_strt..var_end);
begin
... use your variable here ...
end;
end Your_Proc;
--
J-P. Rosen
Adalog
2 rue du Docteur Lombard, 92441 Issy-les-Moulineaux CEDEX
Tel:
+33 1 45 29 21 52
https://www.adalog.fr