Re: -------Form Problem on 7.3.4 (Digital UNIX)------

Did you install the patch wich upgrades 7.3.4.0.0 to 7.3.4.4.0? This may solve a lot of problems.

Cheers,

Willem

Tapan Trivedi <tapan.trivedi_at_abbnm.com> wrote in message news:37C5BB5A.EB333B69_at_abbnm.com...
> Hey Gurus,
> Hi. I have a form whose code is as follows. I run it and it gives the
> message but does not run the export. It gives the export if I run it
> with the same parameters from the command line. The form has been known
> to run on other systems which have the version 7.3.2. The one on which I
> want to run this is 7.3.4. Do you have any idea what could be happening
> ??
>
> Tapan
>
>
>
>
> >1]DECLARE
> command VARCHAR2(500);
> dummy NUMBER;
>
> status NUMBER;
> errmsg VARCHAR2(80);
> BEGIN
>
> IF :IMPEXP_B.FILEPATH_TF IS NULL THEN
> Crtmsg ('Valid file name must be entered', dummy);
> RETURN;
> END IF;
>
> command := 'USERID=ranger/'||GET_APPLICATION_PROPERTY(PASSWORD)
> ||'@$ORACLE_SID.$ORACLE_HOST';
>
> IF :IMPEXP_B.IMPEXP_RBG = 'EXPORT' THEN
>
> :IMPEXP_B.MESSAGE_TF := 'Export to directory /tmp in progress...';
> SYNCHRONIZE;
>
> command := 'rsh $ORACLE_HOST $ORACLE_HOMEDB/bin/exp '||command||
> ' TABLES=soespa_st, sovars_st, sodepv_st, esdepx_st,
> esdtdx_st,'||
> ' esdldx_st, esdata_st, esdtmx_st, esmndx_st ';
> ELSE
>
> :IMPEXP_B.MESSAGE_TF := 'Import from directory /tmp in
> progress...';
> -- GO_ITEM ('IMPEXP_B.MESSAGE_TF');
> SYNCHRONIZE;
> GO_ITEM ('IMPEXP_B.CANCEL_PB');
>
> command := 'rsh $ORACLE_HOST $ORACLE_HOMEDB/bin/imp IGNORE=Y
> '||command;
> --
> -- Truncate all the study TABLES
> --
> esldbg.DeleteStudyData (status, errmsg);
> IF status != 0 THEN
> HOST ('echo Error deleting study file data ', NO_SCREEN);
> END IF;
>
> END IF;
>
> command := command || ' FILE=/tmp/'||:IMPEXP_B.FILEPATH_TF ||
> ' LOG=/tmp/esa.log';
> --
> -- Execute the command string
>
> HOST ('echo '||'"'||command||'"', NO_SCREEN);
>
> BELL;
> GO_ITEM ('IMPEXP_B.EXECUTE_PB');
> SYNCHRONIZE;
>
> HOST (command, NO_SCREEN);
>
> IF :IMPEXP_B.IMPEXP_RBG = 'EXPORT' THEN
> :IMPEXP_B.MESSAGE_TF := 'Export completed...';
> ELSE
> :IMPEXP_B.MESSAGE_TF := 'Import completed...';
> END IF;
>
> GO_ITEM ('IMPEXP_B.CANCEL_PB');
> SYNCHRONIZE;
> BELL;
Received on Fri Aug 27 1999 - 04:02:31 CDT