#!/bin/bash
##############################################################
# システム名    ：eo顧客基幹システム
#
# サブシステム名：請求収納
#
# シェル名      ：割賦未納月数情報作成
#
# 機能          ：督促対象情報より「割賦催告状出力判定対象データ」を抽出し、請求契約番号に紐づいた割賦契約番号毎に未納の割賦料金が存在するレコードを集約し、割賦未納月数情報を作成する。
#
#債権より未納債権の取得する（イベントコード：割賦催告状作成日より求めた過去直近請求年月を使用）下記の条件が対象
#債権ステータス="020"請求確定 ,"030"リアル収納,"040"仮収納 
#
#割賦債権内訳より、割賦契約番号単位未納月数を取得する
#
#割賦契約より、機器提供サービス契約番号を取得し、割賦未納月数情報に格納する
##
#
# コマンド形式  ：EO6260110J0.sh
#
# 実行環境      ：.../app/shl
#
# 終了ステータス：ゼロ以外異常
#
# 特記事項      ：特になし
#
# 変更履歴      ：変更日      変更者       障害／仕様変更No.
# v4.00           2013/06/04  FJ）狭間     【ST4-2013-0000462】性能改善の為、アンロード＆マッチング形式に変更
# v5.00           2013/06/27  FJ）狭間     【ST4-2013-0000479】性能改善の為、nkfでの改行コード変換を廃止
# v6.00           2013/12/03  FJ）黒木     【OM-2013-0004360】 割賦催告状印刷ツール（ACCESS)にて取込エラー
# v6.01           2013/12/12  FJ）伊藤     【OM-2013-0004954】 割賦契約、割賦プランからの抽出条件を、請求年月月末断面からバッチ運用日に変更
# v9.00           2014/05/05  FJ）小掠     【ANK-2054-00-00】 複数端末対応
# v9.01           2014/07/18  FJ）早崎     【OM-2014-0002458】36回払いの契約情報も割賦催告状情報に出力するように変更
##############################################################

##############################################################
# 環境変数定義
##############################################################

#
#---ツール格納場所
#
G_TOOLSH=.

#
#---環境変数定義Shell呼び出し
#
. EOK010110J0.sh

#
#---ＪＯＢ名
#
JOBNAME=`basename $0 | sed -e "s/\.sh//g"`

#
#---サービス（業務プロセス）
#
SVC=$JOBNAME

#
#---OPD
#
OPD=$1

#
#---業務で必要な変数定義
#

#---ワークファイル削除モード
WK_RM=true

#---マッチング処理でLeftjoinがNULL時に"を付けなくする（マッチング使用時は必須）
export ZTLQUOTES=''

#---運用日付取得
if [ "${OPD}" = "" ]; then
   . EOK010310J0.sh "BDATE"
else
   RSLT_OPEDATE="${OPD}"
fi

#--- 請求年月取得
#割賦催告状作成日
EVENT_CD_01="40"
. EO3SEIKYYM2.sh ${EVENT_CD_01} ${RSLT_OPEDATE} ${JOBNAME}

##############################################################
# 業務処理
##############################################################
sh ${G_TOOLSH}/EOK010210J0.sh CS00025I $JOBNAME

#
#---パラメタ定義
#

P1="OPD=,"
P2="SVCCTL=JBSbatMultiServiceControl,"
P3="JOB=EO6260110J0,"
P4="IND1=CHIFM189.def,"
P5="INF1=${MID_DIR_CH}/CHIFM189001.csv,"
P6="IND2=,"
P7="INF2=,"
P8="OTD1=CHIFM168.def,"
P9="OTF1=${MID_DIR_CH}/CHIFM168001.csv,"
P10="OTD2=,"
P11="OTF2=,"
P12="TABLENAME=,"
P13="SQLKEY=,"
P14="SQLPARAM=,"
P15="ERRFILE=,"
P16="RECOVERY=,"
P17="BREAKPTN=,"
P18="FREE="
PARA="$P1$P2$P3$P4$P5$P6$P7$P8$P9$P10$P11$P12$P13$P14$P15$P16$P17$P18"

sh ${G_TOOLSH}/EOK010210J0.sh CS00027I $JOBNAME

#--- 出力ファイル
OUTFILE_CHIFM189001=${MID_DIR_CH}/CHIFM189001.csv

#--- 入力ファイル
INFILE_CHIFM101017=${MID_DIR_CH}/CHIFM101017.csv
INFILE_CHIFM101017_SORT_WRK1=${MID_DIR_CH}/${JOBNAME}_CHIFM101017_SORT_WK1.csv

#--- 1.割賦債権内訳（CH_T_KAP_SAIKEN_UCWK）
SQLFILE_CH0761_02=${SQL_DIR}/CH_U_CH0761_02.sql
SQLFILE_CH0761_02_WRK=${SQL_DIR}/${JOBNAME}_CH_U_CH0761_02_WRK.sql

CSVFILE_CH0761_02_UNLOAD_WRK=${MID_DIR_CH}/${JOBNAME}_CH0761_02_UNLOAD_WK1.csv

#--- 2.債権（CH_T_SAIKEN）
SQLFILE_CH0011_12=${SQL_DIR}/CH_U_CH0011_12.sql
SQLFILE_CH0011_12_WRK=${SQL_DIR}/${JOBNAME}_CH_U_CH0011_12_WRK.sql

CSVFILE_CH0011_12_UNLOAD_WRK=${MID_DIR_CH}/${JOBNAME}_CH0011_12_UNLOAD_WK1.csv

#--- 3.料金項目抽出変換（CH_M_PRC_KMK_CS_CHGE）
SQLFILE_CH0401_17=${SQL_DIR}/CH_U_CH0401_17.sql
SQLFILE_CH0401_17_WRK=${SQL_DIR}/${JOBNAME}_CH_U_CH0401_17_WRK.sql

CSVFILE_CH0401_17_UNLOAD_WRK=${MID_DIR_CH}/${JOBNAME}_CH0401_17_UNLOAD_WK1.csv

#--- 4.割賦契約（KK_T_KAP_KEI）
SQLFILE_KK2541_01=${SQL_DIR}/CH_U_KK2541_01.sql
SQLFILE_KK2541_01_WRK=${SQL_DIR}/${JOBNAME}_CH_U_KK2541_01_WRK.sql

CSVFILE_KK2541_01_UNLOAD_WRK=${MID_DIR_CH}/${JOBNAME}_KK2541_01_UNLOAD_WK1.csv

#--- 5.割賦プラン（KK_M_KAP_PLAN）
SQLFILE_KK2521_01=${SQL_DIR}/CH_U_KK2521_01.sql
SQLFILE_KK2521_01_WRK=${SQL_DIR}/${JOBNAME}_CH_U_KK2521_01_WRK.sql

CSVFILE_KK2521_01_UNLOAD_WRK=${MID_DIR_CH}/${JOBNAME}_KK2521_01_UNLOAD_WK1.csv

#--- 割賦債権内訳マッチング１
DEFFILE_0077=${G_TOOLSH}/util/def/CH_CM_0077.def
DEFFILE_0077_WRK=${G_TOOLSH}/util/def/${JOBNAME}_CH_CM_0077_MATCHING_WK1.def

CSVFILE_0077_MATCHING_WRK1=${MID_DIR_CH}/${JOBNAME}_CH_CM_0077_MATCHING_WK1.csv
CSVFILE_0077_SORT_WRK1=${MID_DIR_CH}/${JOBNAME}_CH_CM_0077_SORT_WK1.csv
CSVFILE_0077_SORT_WRK2=${MID_DIR_CH}/${JOBNAME}_CH_CM_0077_SORT_WK2.csv

#--- 割賦契約マッチング
DEFFILE_0075=${G_TOOLSH}/util/def/CH_CM_0075.def
DEFFILE_0075_WRK=${G_TOOLSH}/util/def/${JOBNAME}_CH_CM_0075_MATCHING_WK1.def

CSVFILE_0075_MATCHING_WRK1=${MID_DIR_CH}/${JOBNAME}_CH_CM_0075_MATCHING_WK1.csv

#--- 割賦債権内訳マッチング２
DEFFILE_0076=${G_TOOLSH}/util/def/CH_CM_0076.def
DEFFILE_0076_WRK=${G_TOOLSH}/util/def/${JOBNAME}_CH_CM_0076_MATCHING_WK1.def

CSVFILE_0076_MATCHING_WRK1=${MID_DIR_CH}/${JOBNAME}_CH_CM_0076_MATCHING_WK1.csv

#
#--- サブルーチン（UNLOAD）
#
UNLOAD(){
#unload
sh ${G_TOOLSH}/EOKULD03.sh $1 $2
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " unload error($2:rc=$rc) "
    echo $JOBNAME " unload error($2:rc=$rc) "
    exit ${G_RTN_ERROR}
fi
}

#
#--- 各ファイルの存在チェックを行う
#
#--- 入力ファイル
if [ ! -r ${INFILE_CHIFM101017} ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " File is nonexist(${INFILE_CHIFM101017}) "
    echo $JOBNAME " File is nonexist(${INFILE_CHIFM101017}) "
    exit ${G_RTN_ERROR}
fi
#--- 1.割賦債権内訳（CH_T_KAP_SAIKEN_UCWK）
if [ ! -r ${SQLFILE_CH0761_02} ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " File is nonexist(${SQLFILE_CH0761_02}) "
    echo $JOBNAME " File is nonexist(${SQLFILE_CH0761_02}) "
    exit ${G_RTN_ERROR}
fi
#--- 2.債権（CH_T_SAIKEN）
if [ ! -r ${SQLFILE_CH0011_12} ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " File is nonexist(${SQLFILE_CH0011_12}) "
    echo $JOBNAME " File is nonexist(${SQLFILE_CH0011_12}) "
    exit ${G_RTN_ERROR}
fi
#--- 3.料金項目抽出変換（CH_M_PRC_KMK_CS_CHGE）
if [ ! -r ${SQLFILE_CH0401_17} ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " File is nonexist(${SQLFILE_CH0401_17}) "
    echo $JOBNAME " File is nonexist(${SQLFILE_CH0401_17}) "
    exit ${G_RTN_ERROR}
fi
#--- 4.割賦契約（KK_T_KAP_KEI）
if [ ! -r ${SQLFILE_KK2541_01} ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " File is nonexist(${SQLFILE_KK2541_01}) "
    echo $JOBNAME " File is nonexist(${SQLFILE_KK2541_01}) "
    exit ${G_RTN_ERROR}
fi
#--- 5.割賦プラン（KK_M_KAP_PLAN）
if [ ! -r ${SQLFILE_KK2521_01} ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " File is nonexist(${SQLFILE_KK2521_01}) "
    echo $JOBNAME " File is nonexist(${SQLFILE_KK2521_01}) "
    exit ${G_RTN_ERROR}
fi
#--- 割賦債権内訳マッチング１
if [ ! -r ${DEFFILE_0077} ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " File is nonexist(${DEFFILE_0077}) "
    echo $JOBNAME " File is nonexist(${DEFFILE_0077}) "
    exit ${G_RTN_ERROR}
fi
#--- 割賦契約マッチング
if [ ! -r ${DEFFILE_0075} ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " File is nonexist(${DEFFILE_0075}) "
    echo $JOBNAME " File is nonexist(${DEFFILE_0075}) "
    exit ${G_RTN_ERROR}
fi
#--- 割賦債権内訳マッチング２
if [ ! -r ${DEFFILE_0076} ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " File is nonexist(${DEFFILE_0076}) "
    echo $JOBNAME " File is nonexist(${DEFFILE_0076}) "
    exit ${G_RTN_ERROR}
fi

#
#--- UNLOAD処理
#
#--- パラメータセット
#--- 1.割賦債権内訳（CH_T_KAP_SAIKEN_UCWK）
cp -f ${SQLFILE_CH0761_02} ${SQLFILE_CH0761_02_WRK}

#--- 2.債権（CH_T_SAIKEN）
cp -f ${SQLFILE_CH0011_12} ${SQLFILE_CH0011_12_WRK}
sed -i -e "s%\:SAIKEN_YM%'${SEIKY_YM}'%"                 ${SQLFILE_CH0011_12_WRK}

#--- 3.料金項目抽出変換（CH_M_PRC_KMK_CS_CHGE）
cp -f ${SQLFILE_CH0401_17} ${SQLFILE_CH0401_17_WRK}
sed -i -e "s%\:OPE_DATE%'${RSLT_OPEDATE}'%"              ${SQLFILE_CH0401_17_WRK}

#--- 4.割賦契約（KK_T_KAP_KEI）
cp -f ${SQLFILE_KK2541_01} ${SQLFILE_KK2541_01_WRK}
sed -i -e "s%\:SEIKY_YM_END_DAY%'${RSLT_OPEDATE}'%"  ${SQLFILE_KK2541_01_WRK}

#--- 5.割賦プラン（KK_M_KAP_PLAN）
cp -f ${SQLFILE_KK2521_01} ${SQLFILE_KK2521_01_WRK}
sed -i -e "s%\:SEIKY_YM_END_DAY%'${RSLT_OPEDATE}'%"  ${SQLFILE_KK2521_01_WRK}

#--- UNLOAD実行
#--- 1.割賦債権内訳（CH_T_KAP_SAIKEN_UCWK）
UNLOAD ${SQLFILE_CH0761_02_WRK}  ${CSVFILE_CH0761_02_UNLOAD_WRK} &

#--- 2.債権（CH_T_SAIKEN）
UNLOAD ${SQLFILE_CH0011_12_WRK}  ${CSVFILE_CH0011_12_UNLOAD_WRK} &

#--- 3.料金項目抽出変換（CH_M_PRC_KMK_CS_CHGE）
UNLOAD ${SQLFILE_CH0401_17_WRK}  ${CSVFILE_CH0401_17_UNLOAD_WRK} &

#--- 4.割賦契約（KK_T_KAP_KEI）
UNLOAD ${SQLFILE_KK2541_01_WRK}  ${CSVFILE_KK2541_01_UNLOAD_WRK} &

#--- 5.割賦プラン（KK_M_KAP_PLAN）
UNLOAD ${SQLFILE_KK2521_01_WRK}  ${CSVFILE_KK2521_01_UNLOAD_WRK}

# すべての抽出が終了するのを待つ
wait

#
#--- 入力ファイル絞込み処理
#
#--- ソートを行う
bsortex \
  -sort key="1.10asca" \
  -record recform=txtcsv \
  -input reclen=100 \
  file=${INFILE_CHIFM101017} \
  -output file=${INFILE_CHIFM101017_SORT_WRK1} \
  linedlmt=lf ;
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " sort Error(${INFILE_CHIFM101017_SORT_WRK1} sort:rc=$rc) "
    echo $JOBNAME " sort Error(${INFILE_CHIFM101017_SORT_WRK1} sort:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#
#--- マッチング処理
#
# パラメータセット
#--- 割賦債権内訳マッチング１
cp -f ${DEFFILE_0077} ${DEFFILE_0077_WRK}
sed -i -e "s%\:CHIFM101017%${INFILE_CHIFM101017_SORT_WRK1}%"        ${DEFFILE_0077_WRK}
sed -i -e "s%\:CSVFILE_CH0761_02%${CSVFILE_CH0761_02_UNLOAD_WRK}%"  ${DEFFILE_0077_WRK}
sed -i -e "s%\:CSVFILE_CH0011_12%${CSVFILE_CH0011_12_UNLOAD_WRK}%"  ${DEFFILE_0077_WRK}
sed -i -e "s%\:CSVFILE_CH0401_17%${CSVFILE_CH0401_17_UNLOAD_WRK}%"  ${DEFFILE_0077_WRK}
# マッチング処理→入力ファイルへ
(export ZTLOUTFILE=${CSVFILE_0077_MATCHING_WRK1}
${G_TOOLSH}/util/bin/ZTLMAT01 ${DEFFILE_0077_WRK})
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " マッチング処理 Error(${DEFFILE_0077_WRK} ZTLOUTFILE:rc=$rc) "
    echo $JOBNAME " マッチング処理 Error(${DEFFILE_0077_WRK} ZTLOUTFILE:rc=$rc) "
    exit ${G_RTN_ERROR}
fi
#--- ソートを行う
bsortex \
  -sort key="0.10asca,1.10asca,2.12asca,3.12asca,4.6asca,5.10asca" \
  -record recform=txtcsv \
  -input reclen=100 \
  file=${CSVFILE_0077_MATCHING_WRK1} \
  -output file=${CSVFILE_0077_SORT_WRK1}
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " sort Error(${CSVFILE_0077_SORT_WRK1} sort:rc=$rc) "
    echo $JOBNAME " sort Error(${CSVFILE_0077_SORT_WRK1} sort:rc=$rc) "
    exit ${G_RTN_ERROR}
fi
#--- 集約を行う
bsortex \
  -sort key="0.10asca,1.10asca,2.12asca,3.12asca,4.6asca" \
  -record recform=txtcsv \
  -input reclen=100 \
  file=${CSVFILE_0077_SORT_WRK1} \
  -summary suppress last \
  -output file=${CSVFILE_0077_SORT_WRK2}
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " sort Error(${CSVFILE_0077_SORT_WRK2} sort:rc=$rc) "
    echo $JOBNAME " sort Error(${CSVFILE_0077_SORT_WRK2} sort:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#
#--- マッチング処理２
#
# パラメータセット
#--- 割賦契約マッチング
cp -f ${DEFFILE_0075} ${DEFFILE_0075_WRK}
sed -i -e "s%\:CSVFILE_KK2541_01%${CSVFILE_KK2541_01_UNLOAD_WRK}%"  ${DEFFILE_0075_WRK}
sed -i -e "s%\:CSVFILE_KK2521_01%${CSVFILE_KK2521_01_UNLOAD_WRK}%"  ${DEFFILE_0075_WRK}
# マッチング処理→入力ファイルへ
(export ZTLOUTFILE=${CSVFILE_0075_MATCHING_WRK1}
${G_TOOLSH}/util/bin/ZTLMAT01 ${DEFFILE_0075_WRK})
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " マッチング処理 Error(${DEFFILE_0075_WRK} ZTLOUTFILE:rc=$rc) "
    echo $JOBNAME " マッチング処理 Error(${DEFFILE_0075_WRK} ZTLOUTFILE:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#
#--- マッチング処理３
#
# パラメータセット
#--- 割賦債権内訳マッチング２
cp -f ${DEFFILE_0076} ${DEFFILE_0076_WRK}
sed -i -e "s%\:CHIFM101017%${INFILE_CHIFM101017_SORT_WRK1}%"        ${DEFFILE_0076_WRK}
sed -i -e "s%\:CSVFILE_0077%${CSVFILE_0077_SORT_WRK2}%"             ${DEFFILE_0076_WRK}
sed -i -e "s%\:CSVFILE_0075%${CSVFILE_0075_MATCHING_WRK1}%"         ${DEFFILE_0076_WRK}
# マッチング処理→入力ファイルへ
(export ZTLOUTFILE=${CSVFILE_0076_MATCHING_WRK1}
${G_TOOLSH}/util/bin/ZTLMAT01 ${DEFFILE_0076_WRK})
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " マッチング処理 Error(${DEFFILE_0076_WRK} ZTLOUTFILE:rc=$rc) "
    echo $JOBNAME " マッチング処理 Error(${DEFFILE_0076_WRK} ZTLOUTFILE:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#--- ソートを行う

# OM-2014-0002458 MOD START
#bsortex \
#  -sort key="1.10asca,18.12asca,21.6ascr" \
#  -record recform=txtcsv \
#  -input reclen=300 \
#  file=${CSVFILE_0076_MATCHING_WRK1} \
#  include="28.1asc.lt.'0'.and.30.2asc.eq.'02'" \
#  -output file=${OUTFILE_CHIFM189001} \
#  linedlmt=crlf ;
bsortex \
  -sort key="1.10asca,18.12asca,21.6ascr" \
  -record recform=txtcsv \
  -input reclen=300 \
  file=${CSVFILE_0076_MATCHING_WRK1} \
  include="28.1asc.lt.'0'.and.30.2asc.eq.'02'.or.28.1asc.lt.'0'.and.30.2asc.eq.'03'" \
  -output file=${OUTFILE_CHIFM189001} \
  linedlmt=crlf ;
rc=$?
# OM-2014-0002458 MOD END

if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " sort Error(${OUTFILE_CHIFM189001} sort:rc=$rc) "
    echo $JOBNAME " sort Error(${OUTFILE_CHIFM189001} sort:rc=$rc) "
    exit ${G_RTN_ERROR}
fi


#
#---ＡＰＬ起動
#

java ${JAVA_OPTION} -jar ${JAR_DIR}/koptBatch.jar $PARA

rc=$?
ERR_FLG=0
if [ $rc -ne 0 ]
then
   if [ $rc -ne 4 ]
   then
       if [ $rc -ne 8 ]
       then
           if [ $rc -ne 127 ]
           then
              sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " PROGRAM Error($SVC program:rc=$rc) "
              echo $JOBNAME " PROGRAM Error($SVC program:rc=$rc) "
              exit ${G_RTN_ERROR}
           fi
       fi
    fi
    ERR_FLG=1
fi

exit_rc=$rc

#ワーク削除
if [ $WK_RM = "true" ]
then
    rm -f ${SQLFILE_CH0761_02_WRK}
    rm -f ${SQLFILE_CH0011_12_WRK}
    rm -f ${SQLFILE_CH0401_17_WRK}
    rm -f ${SQLFILE_KK2541_01_WRK}
    rm -f ${SQLFILE_KK2521_01_WRK}
    rm -f ${CSVFILE_CH0761_02_UNLOAD_WRK}
    rm -f ${CSVFILE_CH0011_12_UNLOAD_WRK}
    rm -f ${CSVFILE_CH0401_17_UNLOAD_WRK}
    rm -f ${CSVFILE_KK2541_01_UNLOAD_WRK}
    rm -f ${CSVFILE_KK2521_01_UNLOAD_WRK}
    rm -f ${DEFFILE_0077_WRK}
    rm -f ${DEFFILE_0075_WRK}
    rm -f ${DEFFILE_0076_WRK}
    rm -f ${INFILE_CHIFM101017_SORT_WRK1}
    rm -f ${CSVFILE_0077_MATCHING_WRK1}
    rm -f ${CSVFILE_0077_SORT_WRK1}
    rm -f ${CSVFILE_0077_SORT_WRK2}
    rm -f ${CSVFILE_0075_MATCHING_WRK1}
    rm -f ${CSVFILE_0076_MATCHING_WRK1}
fi

#
#--- ジョブの終了メッセージを出力する
#
sh ${G_TOOLSH}/EOK010210J0.sh CS00028I $JOBNAME
sh ${G_TOOLSH}/EOK010210J0.sh CS00026I $JOBNAME

exit $exit_rc