#!/bin/bash
##############################################################
# システム名    ：eo顧客基幹システム
#
# サブシステム名：料金管理
#
# シェル名      ：当日料金計算対象サービス契約情報振分
#
# 機能          ：異動契約計算期間初日の処理件数分散を行うために、異動契約蓄積ファイルより当日料金計算対象のサービス契約情報と翌日料金計算対象のサービス契約情報を振り分ける。
#以下の条件に当てはまるサービス契約情報を抽出対象とする。（OR条件）
#・請求契約番号の下1桁が指定した数値と同値のサービス契約情報。（パラメータにて指定（※））
#・加入契約支払方式コードが"002"(個別)以外（全戸一括、居住者一括、ベース、TV親請求）であるサービス契約情報。（請求契約単位に1件でも該当するサービス契約が存在するならば、対象請求契約に紐づく全サービス契約情報を抽出する。）
#
# コマンド形式  ：EO30101F5J0.sh
#
# 実行環境      ：.../app/shl
#
# 終了ステータス：ゼロ以外異常
#
# 特記事項      ：特になし
#
# 変更履歴      ：変更日      変更者       障害／仕様変更No.
# v8.00          2014/04/30   FJ) 狭間    【ST4-2013-0000573】新規作成
# v8.01          2014/04/30   FJ) 狭間    【ST4-2013-0000573】JOB-ID修正
#
##############################################################

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

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

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

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

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

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

#
#---OPD
#
OPD=$1

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

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

#---------------------------------------------------------------------
#--- 引数２の値により、分割対象の請求契約番号末尾を決定する
#---------------------------------------------------------------------
PARAM=$2

#- 引数２が未設定の場合は異常終了
if [ "${PARAM}" == "" ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " ARGV Error [value=${PARAM}] "
    sh ${G_TOOLSH}/EOK010210J0.sh CS00026I $JOBNAME
    echo $JOBNAME "ARGV Error ${PARAM}"
    exit ${G_RTN_ERROR}
fi

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

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

P1="OPD=,"
P2="SVCCTL=,"
P3="JOB=EO30101F5J0,"
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"

#---------------------------------------------------------------------
#--- ファイル定義
#---------------------------------------------------------------------
#- 入力ファイル：サービス契約情報（異動蓄積）
IN_FILE=${MID_DIR_AC}/ACIFI001005.csv
IN_FILE_WK1=${MID_DIR_AC}/${JOBNAME}_ACIFI001005_WK1.csv

KEY_FILE_WK1=${MID_DIR_AC}/${JOBNAME}_ACIFI001005_KEY_WK1.csv
KEY_FILE_WK2=${MID_DIR_AC}/${JOBNAME}_ACIFI001005_KEY_WK2.csv
KEY_FILE_WK3=${MID_DIR_AC}/${JOBNAME}_ACIFI001005_KEY_WK3.csv
KEY_FILE_WK4=${MID_DIR_AC}/${JOBNAME}_ACIFI001005_KEY_WK4.csv
KEY_FILE_WK5=${MID_DIR_AC}/${JOBNAME}_ACIFI001005_KEY_WK5.csv

#- マッチング定義ファイル
DEF_FILE_AC_CM_0090=${G_TOOLSH}/util/def/AC_CM_0090.def
DEF_FILE_AC_CM_0090_WK1=${G_TOOLSH}/util/def/${JOBNAME}_AC_CM_0090_WK1.def

MAT_FILE_0090_WK1=${MID_DIR_AC}/${JOBNAME}_AC_CM_0090_WK1.csv

#- 出力ファイル：サービス契約情報（異動蓄積）（再取込）
OUT_FILE_SAITRKM=${MID_DIR_AC}/ACIFI001006.csv
#- 出力ファイル：サービス契約情報（異動蓄積）（当日料金計算対象）
OUT_FILE_TOJITU=${MID_DIR_AC}/ACIFI001019.csv

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

#---------------------------------------------------------------------
#--- サービス契約情報（異動蓄積）ファイルの編集
#    マッチングの準備として改行コード変換を行う
#---------------------------------------------------------------------
#- 入力ファイルの改行コードをCRLF→LFに変換する
bsortex -copy\
  -record recform=txtflt fldsep=, \
  -input reclen=400 file=${IN_FILE} \
  -output linedlmt=lf file=${IN_FILE_WK1}
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " bsortex Error($SVC copy1:rc=$rc) "
    echo $JOBNAME " bsortex Error($SVC copy1:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#---------------------------------------------------------------------
#--- 当日料金計算対象KEYファイルの作成
#    振分けの準備として入力ファイルから当日料金計算対象の請求契約番号を抽出する
#---------------------------------------------------------------------
#- 対象となる請求契約番号のKEYファイルを作成する１
#- 請求契約番号の末尾を抽出条件にする為、先頭にコピーして項目を追加する
#- 抽出条件となる請求契約番号（抽出KEY）、請求契約番号、加入契約支払方法コード（抽出KEY）のみに編集する
bsortex -copy\
  -record recform=txtflt fldsep=, \
  -input reclen=400 file=${IN_FILE_WK1} \
  -output file=${KEY_FILE_WK1} \
  reconst=6.10,6.10,30.3
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " bsortex Error($SVC copy2:rc=$rc) "
    echo $JOBNAME " bsortex Error($SVC copy2:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#- 対象となる請求契約番号のキーファイルを作成する２
#- 固定長ファイルとして扱い先頭の請求契約番号の前から9桁を除外する
bsortex -copy\
  -record recform=txtfix \
  -input reclen=100 file=${KEY_FILE_WK1} \
  -output file=${KEY_FILE_WK2} \
  reconst=9.END
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " bsortex Error($SVC copy3:rc=$rc) "
    echo $JOBNAME " bsortex Error($SVC copy3:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#- 対象となる請求契約番号のキーファイルを作成する３
#- 条件に適合する請求契約番号を抽出する
#- 抽出条件：
#-     加入契約支払方法コード≠'002'：個別 かつ 加入契約支払方法コード≠''
bsortex -copy \
  -record recform=txtflt fldsep=, \
  -input reclen=100 file=${KEY_FILE_WK2} \
  include="2.3asc.ne.'002'.and.2.3asc.ge.'0'" \
  -output file=${KEY_FILE_WK3} reconst="1.10,'1'.1asc"
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " bsortex Error($SVC copy4:rc=$rc) "
    echo $JOBNAME " bsortex Error($SVC copy4:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

# 引数２を「,」で分割し、それぞれで抽出する
for PARAM_CUT in `echo ${PARAM} | sed "s/\,/ /g"`
do
    #- 分割した引数が範囲指定（[0-9]-[0-9]形式）かどうかチェック
    PARAM_CHK=`echo ${PARAM_CUT} |grep -e "[0-9]-[0-9]"`
    if [ "${PARAM_CHK}" != "" ]
    then
        #- 範囲指定の最小値
        PARAM_MIN=`echo ${PARAM_CUT}|cut -d- -f1`
        #- 範囲指定の最大値
        PARAM_MAX=`echo ${PARAM_CUT}|cut -d- -f2`
    else
        #- 範囲指定の最小値
        PARAM_MIN=${PARAM_CUT}
        #- 範囲指定の最大値
        PARAM_MAX=${PARAM_CUT}
    fi
    
    #- 対象となる請求契約番号のキーファイルを作成する４
    #- 条件に適合する請求契約番号を抽出する
    #- 抽出条件：
    #-     請求契約番号末尾≧パラメータで指定された最小値 かつ 請求契約番号末尾≦パラメータで指定された最大値
    bsortex -copy \
      -record recform=txtflt fldsep=, \
      -input reclen=100 file=${KEY_FILE_WK2} \
      include="0.1asc.ge.'${PARAM_MIN}'.and.0.1asc.le.'${PARAM_MAX}'" \
      -output file=${KEY_FILE_WK4} reconst="1.10,'1'.1asc"
    rc=$?
    if [ $rc -ne 0 ]
    then
        sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " bsortex Error($SVC copy5:rc=$rc) "
        echo $JOBNAME " bsortex Error($SVC copy5:rc=$rc) "
        exit ${G_RTN_ERROR}
    fi

    #- 抽出結果を前回抽出結果に積み上げる
    cat ${KEY_FILE_WK4} >> ${KEY_FILE_WK3}

done

#- 対象となる請求契約番号のキーファイルを作成する５
#- 抽出結果から重複を除外する
bsortex -sort key="0.10asc" \
  -record recform=txtflt fldsep=, \
  -input reclen=100 file=${KEY_FILE_WK3} \
  -summary suppress first \
  -output file=${KEY_FILE_WK5}
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " bsortex Error($SVC sort6:rc=$rc) "
    echo $JOBNAME " bsortex Error($SVC sort6:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#---------------------------------------------------------------------
#--- サービス契約情報ファイルと当日料金計算対象KEYファイルのマッチング
#    請求契約番号でマッチングし、対象フラグを付加する
#    対象フラグは引き当たった行には'1'が、当たらなかった行には''がセットされる
#---------------------------------------------------------------------
#- マッチング定義にパラメータをセット
cp -f ${DEF_FILE_AC_CM_0090}               ${DEF_FILE_AC_CM_0090_WK1}
sed -i -e "s%:ACIFI001005%${IN_FILE_WK1}%" ${DEF_FILE_AC_CM_0090_WK1} 
sed -i -e "s%:KEY_FILE%${KEY_FILE_WK5}%"   ${DEF_FILE_AC_CM_0090_WK1} 

#- マッチング実行
ZTLOUTFILE=${MAT_FILE_0090_WK1}
export ZTLOUTFILE
wait
${G_TOOLSH}/util/bin/ZTLMAT01 ${DEF_FILE_AC_CM_0090_WK1}
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME " Matching Error($SVC AC_CM_0090:rc=$rc) "
    echo $JOBNAME " Matching Error($SVC AC_CM_0090:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

#---------------------------------------------------------------------
#--- 出力ファイルの作成
#---------------------------------------------------------------------
#- マッチング結果ファイルをマッチングで付加した対象フラグで分割し、出力ファイルを作成する
#- 分割条件：
#-     対象フラグ＝'1' → サービス契約情報（異動蓄積）（当日料金計算対象）
#-     上記以外        → サービス契約情報（異動蓄積）（再取込）
bsortex -copy \
  -record recform=txtflt fldsep=, \
  -input reclen=400 file=${MAT_FILE_0090_WK1} \
  -output linedlmt=crlf file=${OUT_FILE_TOJITU}  case="0.1asc.eq.'1'" reconst="1.END" \
  -output linedlmt=crlf file=${OUT_FILE_SAITRKM} case=other           reconst="1.END"
rc=$?
if [ $rc -ne 0 ]
then
    sh ${G_TOOLSH}/EOK010210J0.sh CS00002E $JOBNAME "0.1asc bsortex Error($SVC copy7:rc=$rc) "
    echo $JOBNAME " bsortex Error($SVC copy7:rc=$rc) "
    exit ${G_RTN_ERROR}
fi

exit_rc=$rc

#--- ワークファイルを削除する
if [ $WK_RM = "true" ]
then
    rm -f ${IN_FILE_WK1}
    rm -f ${KEY_FILE_WK1}
    rm -f ${KEY_FILE_WK2}
    rm -f ${KEY_FILE_WK3}
    rm -f ${KEY_FILE_WK4}
    rm -f ${KEY_FILE_WK5}
    rm -f ${DEF_FILE_AC_CM_0090_WK1}
    rm -f ${MAT_FILE_0090_WK1}
fi

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

exit ${G_RTN_NORMAL}