#!/bin/ksh
#**********************************************************************#
#*                                                                    *#
#* Copyright (c) 2001 by Sun Microsystems, Inc.                       *#
#* All rights reserved.                                               *#
#*                                                                    *#
#**********************************************************************#


########################################################################
#                                                                      #
# EBM BATCH JOB MACRO :     ACCEPT                                     #
# Purpose             :     Define data to be supplied directly to an  #
#                           application program. Micro Focus COBOL     #
#                           programs can access this data via the      #
#                           COBOL ACCEPT statement.                    #
########################################################################
. verify_jobstatus
. beginjob.${EBMSYS}.${JON}
. current_proc_level.${EBMSYS}.${JON}

if [ -f beginproc.setparms.${EBMSYS}.${JON}.${PROC_LEVEL} ]
then
   . beginproc.setparms.${EBMSYS}.${JON}.${PROC_LEVEL}
fi

if [ -f setparm.${EBMSYS}.${JON}.${PROC_LEVEL} ]
then
   . setparm.${EBMSYS}.${JON}.${PROC_LEVEL}
fi

if [ -f oncondcode.${EBMSYS}.${JON}.${PROC_LEVEL} ]
then
   . oncondcode.${EBMSYS}.${JON}.${PROC_LEVEL}
fi

if [ -f onretcode.${EBMSYS}.${JON}.${PROC_LEVEL} ]
then
   . onretcode.${EBMSYS}.${JON}.${PROC_LEVEL}
fi

if [ -f label.${EBMSYS}.${JON}.${PROC_LEVEL} ]
then
   . label.${EBMSYS}.${JON}.${PROC_LEVEL}
   if [ "a$BATCH_MODE" = "aMVS" ]
   then  
      . check_bypass_step
      if [ "$BYPASS" = "YES" ]
      then
         exit 0
      fi
   fi
fi


#------------------------------------------------------------------------------
# Assign default values
#------------------------------------------------------------------------------
NORMAL=k       ;export NORMAL
ABEND=k        ;export ABEND

for argument in $*
do
   i=`eval echo $argument`
   case $i in 
      filename=*)
         FILENAME="`eval echo $i|cut -f2 -d'='`" ; export FILENAME
      ;;
      normal=*)
         NORMAL="`eval echo $i|cut -f2 -d'='`" ; export NORMAL
      ;;
      abend=*)
         ABEND="`eval echo $i|cut -f2 -d'='`" ; export ABEND
      ;;
      verbose)
         VERBOSE=YES ; export VERBOSE
       ;;

      *)
         print_message ACCEPT "invalid syntax"
      ;;
  esac
done   
if [ "a$FILENAME" = "a" ]
then
   print_message ACCEPT "Invalid syntax, filename is required"
   . set_jobstatus_abort
else
   case $NORMAL in 
      k|K)
         echo "echo $FILENAME RETAINED" >> ${JON}_WK2n
      ;;
      d|D)
         echo "rm -f $FILENAME" >> ${JON}_WK2n
         echo "echo $FILENAME DELETED" >> ${JON}_WK2n
      ;;
      *)
         print_message ACCEPT "Invalid syntax, normal must be k(keep) or d(delete)"
         . set_jobstatus_abort
      ;;
   esac
   case $ABEND in 
      k|K)
         echo "echo $FILENAME RETAINED" >> ${JON}_WK2a
      ;;
      d|D)
         echo "rm -f $FILENAME" >> ${JON}_WK2a
         echo "echo $FILENAME DELETED" >> ${JON}_WK2a
      ;;
      *)
         print_message ACCEPT "Invalid syntax, normal must be k(keep) or d(delete)"
         . set_jobstatus_abort
      ;;
   esac
fi
if [ "a$VERBOSE" = "aYES" ]
then
   echo "\n"
   print_message ACCEPT "----------Starting in verbose mode----------"
   print_message ACCEPT "filename=$FILENAME"
   print_message ACCEPT "normal=$NORMAL"
   print_message ACCEPT "abend=$ABEND"
fi
. oncondcode.${EBMSYS}.${JON}.${PROC_LEVEL}
if [ -f accept.${EBMSYS}.${JON} ]
then
   cat < $DEVNULL > accept.${EBMSYS}.${JON}
   chmod 755 accept.${EBMSYS}.${JON}
fi
echo "LN_SYSIN=$FILENAME ; export LN_SYSIN" >> accept.${EBMSYS}.${JON}

echo "rm -f $FILENAME" >> ${JON}_WK2n
echo "echo $FILENAME DELETED" >> ${JON}_WK2n
exit 0
