How to :Oracle Apps Concurrent Program : Host: program Return WARNING status

#!/bin/bash
#
# PATH=$PATH:/usr/local/bin
if (test "$GET_ARG" != "GET_ARG") then
arguments="$@"; export arguments
GET_ARG=GET_ARG; export GET_ARG
exec /bin/ksh -c "$0 $arguments"
fi

shift

#
---------------------------------------------------------------------------
# Remove standard parameters
#
---------------------------------------------------------------------------
for i in $1 $2 $3 $4 $5 $6 $7
do
eval $i
echo $i
shift
done
export FCP_REQID FCP_LOGIN FCP_USERID FCP_USERNAME
export FCP_PRINTER FCP_SAVE_OUT FCP_NUM_COPIES
echo "Exiting"$FDP_WARNIN

MYSTATUS=`sqlplus -s $FCP_LOGIN < SET HEADING FEEDBACK OFF PAGESIZE 0
declare
l_result boolean;
l_session_id number;
begin
fnd_global.INITIALIZE(l_session_id, null, null, null,null, -1, null, null, null, null, $FCP_REQID, null,null,null,null,null,null,-1);

l_result := fnd_concurrent.set_completion_status('WARNING','Review log file for details.');
commit;
end;
/
exit;
!`


This is taken from http://forums.oracle.com