Oracle Forms Developer – Form Builder Reference, Volume 1

• On Windows 95 platforms the FORM_SUCCESS built-in will always return TRUE for HOST
commands which fail. This includes calls to command.com or OS functions, any 16-bit DOS or
GUI application, or an invalid command. 32-bit applications will correctly return TRUE if executed
sucessfully and FALSE if failed.
HOST examples
254
/*
** built-in: HOST
** Example: Execute an operating system command in a
** subprocess or subshell. Uses the
** ’Get_Connect_Info’ procedure from the
** GET_APPLICATION_PROPERTY example.
*/
PROCEDURE Mail_Warning( send_to VARCHAR2) IS
the_username VARCHAR2(40);
the_password VARCHAR2(40);
the_connect VARCHAR2(40);
the_command VARCHAR2(2000);
BEGIN
/*
** Get Username, Password, Connect information
*/
Get_Connect_Info(the_username,the_password,the_connect);
/*
** Concatenate together the static text and values of
** local variables to prepare the operating system command
** string.
*/
the_command := ’orasend ’||
’ to=’||send_to||
’ std_warn.txt ’||
’ subject="## LATE PAYMENT ##"’||
’ user=’||the_username||
’ password=’||the_password||
’ connect=’||the_connect;
Message(’Sending Message...’, NO_ACKNOWLEDGE);
Synchronize;
/*
** Execute the command string as an O/S command The
** NO_SCREEN option tells forms not to clear the screen
** while we do our work at the O/S level "silently".
*/
Host( the_command, NO_SCREEN );
/*
** Check whether the command succeeded or not
*/
IF NOT Form_Success THEN
Message(’Error -- Message not sent.’);
ELSE
Message(’Message Sent.’);
END IF;
END;