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


########################################################################
#                                                                      #
# EBM BATCH JOB MACRO :     LIBLIST                                    #
# Purpose             :     Display the current search path for the    #
#                           type specified                             #
#                                                                      #
########################################################################
. 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
       if [ "$SAVE_TYPE" = "ALL" -o "$SAVE_TYPE" = "all" ]
       then
          SAVE_TYPE='PGM,PROC'
          export SAVE_TYPE
       fi
    ;;
    verbose|VERBOSE)
      VERBOSE=YES; export VERBOSE
    ;;
    *)
      echo " "
      print_message LIBLIST "ERROR invalid parameter specified :   $i" 
      echo " "
      . set_jobstatus_abort
      ABORT=NO; export ABORT
    ;;
  esac
done
            
SAVE_TYPE="`echo $SAVE_TYPE | tr '[a-z]' '[A-Z]'`"; export SAVE_TYPE

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

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

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


   if [ -f libdef_${LIBTYPE}_job.${EBMSYS}.${JON} ]
   then
      . libdef_${LIBTYPE}_job.${EBMSYS}.${JON}
   fi

   if [ -f libdef_${LIBTYPE}_step.${EBMSYS}.${JON} ]
   then
      . libdef_${LIBTYPE}_step.${EBMSYS}.${JON}
   fi

   case $TYPE in
      CAT|cat)
         if [ "a$STEP_CAT" != "a" ]
         then
            SEARCH_PATH=$STEP_CAT;export SEARCH_PATH
         else
            if [ "a$JOB_CAT" != "a" ]
            then 
               SEARCH_PATH=$JOB_CAT;export SEARCH_PATH
            fi
         fi
      ;;

      PGM|pgm) 

         if [ "a$JOBLIB" != "a" ]
         then
            SEARCH_PATH=$JOBLIB;export SEARCH_PATH
         fi
      ;;

      PROC|proc)

         if [ "a$JOBPROCPATH" != "a" ]
         then
            SEARCH_PATH=$JOBPROCPATH; export SEARCH_PATH
         else
            if [ "a$PROCLIB" != "a" ]
            then
               SEARCH_PATH=$PROCLIB; export SEARCH_PATH
            fi
         fi 
      ;;

      *)
         print_message LIBLIST "ERROR invalid syntax: type=$TYPE"
         . set_jobstatus_abort
         ABORT=NO; export ABORT
      ;;
   esac
   

   if [ "$TYPE" = "CAT" ]
   then
      if [ "$SEARCH_PATH" = "MASTERCAT" ]
      then
         SEARCH_PATH=''; export SEARCH_PATH 
      fi
   fi

   echo " "
   if [ "a$SEARCH_PATH" != "a" ]
   then
      echo " "
      print_message LIBLIST "type=$TYPE"
      case $EBM_OS_NAME in
         NT)
            SEARCH_PATH="`ebmsed $SEARCH_PATH splitconcpaths`";export SEARCH_PATH
         ;;
         *)
            SEARCH_PATH="`echo $SEARCH_PATH|sed 's/:/ /g'`";export SEARCH_PATH
         ;;
      esac
      FILLER="                         "; export FILLER
      dir_1="yes"; export dir_1
  
      for dir in `echo $SEARCH_PATH`
      do
         if [ "$dir_1" = "yes" ]
         then
            echo "${FILLER}lib=$dir"
            dir_1=no; export dir_1
         else
            echo "${FILLER}    ${dir}"
         fi
      done
 
   else
      print_message LIBLIST "type=$TYPE (none defined)"
   fi
done

exit 0
