PROCEDURE Do_Image (MailId IN arc_mails.mail_id%TYPE,
										IMode	 IN VARCHAR2) IS
  DepName	  VARCHAR2(100);
  FNServer	VARCHAR2(100);
  FNUser		VARCHAR2(30);
  FNPasswd	VARCHAR2(30);
  OPasswd		VARCHAR2(20);
  CnStr			VARCHAR2(20);
  cmnd_text	VARCHAR2(200);
  strLang		VARCHAR2(2);
BEGIN
  SELECT office_docclass, office_fnserver
  INTO   DepName, FNServer
  FROM   arc_office;

  OPasswd := GET_APPLICATION_PROPERTY(PASSWORD);
  CnStr   := GET_APPLICATION_PROPERTY(CONNECT_STRING);
  IF CnStr IS NULL THEN
  	 CnStr := CONST_PKG.CNString;
  END IF;
  FNUser  := CONST_PKG.FNUser;
  APP_USR.passwd('FNET',USER,FNUser,FNPasswd);
  IF IMode = 'S' THEN
     COMMIT_FORM;
  END IF;
  IF NAME_IN('GLOBAL.Language') = CONST_PKG.ArabicLang THEN
  	 strLang := CONST_PKG.ArabicLang_c;
  ELSE
  	 strLang := CONST_PKG.LatinLang_c;
  END IF;
  cmnd_text := 'DiwanRetrival.exe '||USER||','||OPasswd||','||CnStr||','||FNUser||','||
               FNPasswd||','||FNServer||','||MailId||','||DepName||','||strLang||','||IMode;
  HOST(cmnd_text);
  
END;