#!/bin/ksh
echo "=================================================="
echo "Beginning program " `date "+%m/%d/%y %H:%M:%S"` "\n"
echo "================================================="
#
datadir="path/data";

archdir="path/archive";

userid=apps
pwd=apps
respid=AR
respname='"Responsibility"'
ora_user=SYSADMIN
app_prog_name=AR
conc_prog_name=ARGFL
#
cd $datadir

ls -lrt *.txt | awk '{print $9}' | while read fname

do

echo The file to be passed to importing program is $fname

conc_request=`CONCSUB $userid/$pwd $respid $respname $ora_user WAIT=N
CONCURRENT $app_prog_name $conc_prog_name $fname 'Yes' 'Code' '0''ABCDEFGH''
echo "NEW concurrent request job details: $conc_request"
echo "New concurrent program submitted Request_id : $conc_id"

ok_status=`echo $conc_request'
echo "ok_status(1-Succesful, all other values-Not Successful) : $ok_status"
if [ $ok_status -eq 0 ]
then
echo "Program Unsuccessful. Check log file concurrent request: $conc_id "
v_status=1
else
 mv $fname $archdir

v_status=0
fi

done

exit $v_status

==================================================
Beginning program  02/21/08 16:41:15

=================================================
The file to be passed to importing program is A1.txt
NEW concurrent request job details: CONCSUB $userid/$pwd $respid $respname $ora_user WAIT=N
CONCURRENT $app_prog_name $conc_prog_name $fname Yes ARGFL 0ABCDEFGH
New concurrent program submitted Request_id :
ok_status(1-Succesful, all other values-Not Successful) : echo $conc_request
./ftnew1.sh[33]: $conc_request: unknown test operator
mv: path/archive/A1.txt: rename: Permission denied
The file to be passed to importing program is A2.txt
NEW concurrent request job details: CONCSUB $userid/$pwd $respid $respname $ora_user WAIT=N
CONCURRENT $app_prog_name $conc_prog_name $fname Yes ARGFL 0ABCDEFGH
New concurrent program submitted Request_id :
ok_status(1-Succesful, all other values-Not Successful) : echo $conc_request
./ftnew1.sh[33]: $conc_request: unknown test operator
mv: /path/archive/A2.txt: rename: Permission denied
The file to be passed to importing program is A3.txt
NEW concurrent request job details: CONCSUB $userid/$pwd $respid $respname $ora_user WAIT=N
CONCURRENT $app_prog_name $conc_prog_name $fname Yes ARGFL 0ABCDEFGH
New concurrent program submitted Request_id :
ok_status(1-Succesful, all other values-Not Successful) : echo $conc_request
./ftnew1.sh[33]: $conc_request: unknown test operator
mv: path/archive/A3.txt: rename: Permission denied