#!/bin/bash
##############################################################
# システム名    ：eo顧客基幹システム
#
# サブシステム名：料金管理
#
# シェル名      ：同一請求契約提供方式契約抽出
#
# 機能          ：・再計算対象提供方式契約番号情報（マンション相対料金）の提供方式契約番号からマンションオーナー請求契約の提供方式契約番号を紐付け、マンションオーナー請求契約の請求番号を取得する。
#
#・マンションオーナー請求契約の請求番号からマンションオーナー請求契約の請求番号を紐付けし提供方式契約番号を取得する。
#
#
# コマンド形式  ：EO3011259J0.sh
#
# 実行環境      ：.../app/shl
#
# 終了ステータス：ゼロ以外異常
#
# 特記事項      ：特になし
#
# 変更履歴      ：変更日      変更者       障害／仕様変更No.
# v8.00         2014/06/02    FJ) 小掠    【OM-2014-0001786】新規作成
#
##############################################################

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

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

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

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

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

#
#---OPD
#
OPD=$1

#
#---業務で必要な変数定義
#
#xxx=xxxxxxx
##############################################################
# 業務処理
##############################################################
sh ${G_TOOLSH}/EOK010210J0.sh CS00025I $JOBNAME

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

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

#--- 1.入力ファイル
INFILE_1=${MID_DIR_AC}/ACIFM240001.csv
INFILE_1_WK=${MID_DIR_AC}/ACIFM240001_WK.csv
INFILE_2=${MID_DIR_AC}/ACIFM051007.csv
INFILE_2_WK=${MID_DIR_AC}/ACIFM051007_WK.csv

#--- 2.出力ファイル
OUTFILE_WK1=${MID_DIR_AC}/ACIFM051011_WK1_${JOBNAME}.csv
OUTFILE_WK1_1=${MID_DIR_AC}/ACIFM051011_WK1_1_${JOBNAME}.csv
OUTFILE_WK1_2=${MID_DIR_AC}/ACIFM051011_WK1_2_${JOBNAME}.csv
OUTFILE_WK2=${MID_DIR_AC}/ACIFM051011_WK2_${JOBNAME}.csv
OUTFILE_WK3=${MID_DIR_AC}/ACIFM051011_WK3_${JOBNAME}.csv
OUTFILE=${MID_DIR_AC}/ACIFM051011.csv

#--- 3.マッチングDEF
DEFFILE_1=${G_TOOLSH}/util/def/AC_CM_0092.def
DEFFILE_1_WK=${G_TOOLSH}/util/def/AH_CM_0092_${JOBNAME}.def
DEFFILE_2=${G_TOOLSH}/util/def/AC_CM_0093.def
DEFFILE_2_WK=${G_TOOLSH}/util/def/AH_CM_0093_${JOBNAME}.def

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

P1="OPD=,"
P2="SVCCTL=,"
P3="JOB=EO3011259J0,"
P4="IND1=,"
P5="INF1=,"
P6="IND2=,"
P7="INF2=,"
P8="OTD1=,"
P9="OTF1=,"
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

#
#---ファイルのクリア
#
cat /dev/null > ${MID_DIR_AC}/ACIFM051011.csv

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

#--- 入力ファイルの改行コードをunix (LF)に変換する
tr -d "\r" < ${INFILE_1} > ${INFILE_1_WK}
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " tr Error($SVC mv:rc=$rc) "
    echo $JOBNAME " tr Error($SVC mv:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#--- 入力ファイルの改行コードをunix (LF)に変換する
tr -d "\r" < ${INFILE_2} > ${INFILE_2_WK}
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " tr Error($SVC mv:rc=$rc) "
    echo $JOBNAME " tr Error($SVC mv:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#
#再計算対象提供方式契約番号情報（マンション相対料金）(ACIFM051)から
#マンションオーナー請求契約（ACIFM240）に提供方式契約番号でマッチングし
#マンションオーナー請求契約.請求先番号を取得する
#
#--- マッチング-1
cp ${DEFFILE_1} ${DEFFILE_1_WK}
sed -i -e "s%:INF1%${INFILE_2_WK}%" ${DEFFILE_1_WK}
sed -i -e "s%:INF2%${INFILE_1_WK}%" ${DEFFILE_1_WK}

export ZTLOUTFILE=${OUTFILE_WK1}
${G_TOOLSH}/util/bin/ZTLMAT01 ${DEFFILE_1_WK}

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

#--- マッチング結果の分割
bsortex -copy \
  -record recform=txtcsv \
  -input reclen=100 file=${OUTFILE_WK1} \
  -output file=${OUTFILE_WK1_1} case="0.10asc.lt.'0'" reconst=1.12 \
  -output file=${OUTFILE_WK1_2} case=other reconst=0.10

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

#--- 出力ファイルWK1の重複除去
bsortex -sort key=0.10asc \
  -record recform=txtcsv \
  -summary suppress \
  -input reclen=100 file=${OUTFILE_WK1_2} \
  -output file=${OUTFILE_WK2}

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

#
#抽出した請求先番号から(ワーク)から
#マンションオーナー請求契約（ACIFM240）に請求先番号でマッチングし
#マンションオーナー請求契約.提供方式契約番号を取得する
#
#--- マッチング-2
cp ${DEFFILE_2} ${DEFFILE_2_WK}
sed -i -e "s%:INF1%${OUTFILE_WK2}%" ${DEFFILE_2_WK}
sed -i -e "s%:INF2%${INFILE_1_WK}%" ${DEFFILE_2_WK}

export ZTLOUTFILE=${OUTFILE_WK3}
${G_TOOLSH}/util/bin/ZTLMAT01 ${DEFFILE_2_WK}

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

#--- 出力ファイルWK2の改行コードをwindows (CRLF)に変換する
bsortex -copy \
  -record recform=txtcsv \
  -input reclen=100 file=${OUTFILE_WK3},${OUTFILE_WK1_1} \
  -output file=${OUTFILE} linedlmt=crlf

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

#ワーク削除
if [ $WK_RM = "true" ]
then
    rm -f ${INFILE_1_WK}
    rm -f ${INFILE_2_WK}
    rm -f ${DEFFILE_1_WK}
    rm -f ${DEFFILE_2_WK}
    rm -f ${OUTFILE_WK1}
    rm -f ${OUTFILE_WK1_1}
    rm -f ${OUTFILE_WK1_2}
    rm -f ${OUTFILE_WK2}
    rm -f ${OUTFILE_WK3}
fi

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

exit ${G_RTN_NORMAL}