Create or Replace Procedure Vendor_detail is
Begin
Declare
    Cursor vendcur is Select vendcode,vendname from vendmast;
    Var_vendcur Vendcur%rowtype;
    MxGrndt Grinmain.Grindt%type;
    Grnno   Grinmain.Grinno%type;
Begin
   Open Vendcur;
   Loop
   Fetch Vendcur into var_vendcur;
   Exit when Vendcur%NotFound;
        Begin
           Select Max(grindt) Into MxGrndt
             From Grinmain
            where Vendcode = Var_vendcur.vendcode;
           Begin
                Select grinno Into Grnno
                  From Grinmain
                 Where Grindt = MxGrndt;
           Dbms_output.Put_line(' Vendname '||Var_vendcur.vendname||' Vendcode '||var_Vendcur.vendcode);
           Exception
                 When Too_many_rows Then
                      null;
                    --message('two many transaction on the date '||MxGrndt||' Vendcode '||var_vendcur.vendcode);
           End;                    
        Exception
            When No_Data_Found Then
                 null;
               --Message('No Grin''s prepared this vendor '||Var_vendcur.vendcode);
        End;
    End Loop;
    Close Vendcur;
End;
   
End;