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


########################################################################
#                                                                      #
# EBM BATCH JOB MACRO :     LIBDROP                                    #
# Purpose             :     Reset the search path for program          # 
#                           executables and/or procedures to the       # 
#                           default directory(s).                      # 
#                                                                      #
########################################################################
. verify_jobstatus
. beginjob.${EBMSYS}.${JON}
. current_proc_level.${EBMSYS}.${JON}

ABORT=NO; export ABORT

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

if [ "a$BATCH_MODE" = "aMVS" ]
then
   if [ "a$STEPNAME" != a ]
   then
      . check_bypass_step

      if [ "$BYPASS" = "YES" ]
      then
          exit 0
      fi
   fi
fi

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}
else
   cat <$DEVNULL > setparm.${EBMSYS}.${JON}.${PROC_LEVEL}
   chmod 755 setparm.${EBMSYS}.${JON}.${PROC_LEVEL}
fi


for argument in $*
do
  i=`eval echo $argument`
  case $i in
    type=*|TYPE=*)
       SAVE_TYPE="`eval echo $i|cut -f2 -d'='`";  export SAVE_TYPE
    ;;
    lib=*|LIB=*)
       LIB="`eval echo $i|cut -f2 -d'='`"; export LIB
    ;;
    verbose|VERBOSE)
      VERBOSE=YES; export VERBOSE
    ;;
    *)
      print_message LIBDROP "ERROR Invalid parameter specified :   $i" 
      . set_jobstatus_abort
      ABORT=YES; export ABORT
    ;;
  esac
done

if [ "a$ABORT" = "YES" ]
then
   exit 0
fi

SAVE_TYPE="`echo $SAVE_TYPE | tr '[a-z]' '[A-Z]'`"; export TYPE

if [ "$SAVE_TYPE" = "ALL" ]
then
   SAVE_TYPE='PGM,PROC'
   export SAVE_TYPE
fi

LIBSCOPE=job; export LIBSCOPE


if [ "$VERBOSE" = "YES" ]
then
   echo " "
   print_message LIBDEF "----------Starting in verbose mode----------"
fi

for t in `echo $SAVE_TYPE|sed 's/,/ /g'`
do
   LIBTYPE=`echo $t|cut -f1 -d' '`; export LIBTYPE

   TYPE=$LIBTYPE; export LIBTYPE

   LIBTYPE="`echo $LIBTYPE | tr '[A-Z]' '[a-z]'`"; export LIBTYPE

   case $LIBTYPE in
      cat|pgm|proc)
            rm -f libdef_${LIBTYPE}_${LIBSCOPE}.${EBMSYS}.${JON}
      ;; 
      *)
         print_message LIBDROP "ERROR invalid syntax: type=$TYPE"
         . set_jobstatus_abort
         ABORT=YES; export ABORT
         break
      ;;
   esac

   if [ "$VERBOSE" = "YES" ]
   then
      print_message LIBDROP "type=$TYPE is reset to system default"
   fi
done
exit 0
