Form Calling from Report 6i

 procedure U_1ButtonAction is

res number;

did number;

begin

 

  IF :P_USER IS NULL THEN

  Srw.MESSAGE(1,'User / Deptt Info Missing..');

  Else

  select deptt_id into did from smf_user  where upper(USER_LOGIN)  =  upper(:p_user) ;

  if nvl(did,0) = 7 then

    res := DDE.App_Begin('C:\orant\BIN\ifrun60.exe I:\development\SMF_PO_AUDUT.fmx smerp2122/makers@erp OUTER_CALL='||:pono_m  ,DDE.App_Mode_MAXIMIZED);

  else

  Srw.MESSAGE(1,'For Audit Deptt Only..');

  end if;

  END IF;

exception when no_data_found then Srw.MESSAGE(1,upper(:p_user));

end;