DECLARE
   CURSOR c_path
   IS
      SELECT attachpath
        FROM PATHTAB
       WHERE apid = :parameter.apid;

   file_name   VARCHAR2 (500);
   v_path      VARCHAR2 (200);
   v_name      VARCHAR2 (1000);
   v_doc       VARCHAR2 (10);
   v_grn       VARCHAR2 (30);
BEGIN
   IF :STSHPADV3.filename IS NULL
   THEN
      IF common.raise_alert ('NOTE', 'File Not Uploaded..! ')
      THEN
         NULL;
      END IF;
   ELSE
      OPEN c_path;

      FETCH c_path INTO v_path;

      CLOSE c_path;

      v_name := v_path || '\' || :STSHPADV3.filename;

      IF common.raise_alert (
            'CAUTION',
            'Do you want to Delete ' || :STSHPADV3.filename || '   ...? ')
      THEN
         HOST ('DEL v_name', NO_PROMPT);

         IF common.raise_alert ('NOTE', 'File Deleted Successfully...! ')
         THEN
            NULL;
         END IF;
      END IF;
   END IF;
END;

HOST ('DEL v_name', NO_PROMPT);

SELECT attachpath
  INTO v_path
  FROM PATHTAB
  WHERE apid = :parameter.apid;

OPEN c_path;
FETCH c_path INTO v_path;
CLOSE c_path;

HOST ('DEL C:/temprep/docs/test.txt');

HOST('DEL v_name',NO_PROMPT);

HOST('DEL '||v_name,NO_PROMPT);