Progress - Como Puedo declarara un cursor en Progress 4gl

define var economico like pt_mstr.pt_dsgn_grp no-undo.

define var parte like pt_part init "" no-undo.

define var numman as integer init 0 no-undo.

define var numcom as integer init 0 no-undo.

declare c1 cursor for

        select pt_dsgn_grp, pt_part from pt_mstr.

open c1.

repeat:

       fetch c1 into economico, parte.

       if integer(economico) < 10000   then

           display "(M) Subemsamble ..." economico parte with frame a.

       else

            display "(P) Materia Prima ..." economico parte with frame a.

end.

close c1.