#include <stdio.h>
#include <string.h>
#include <sqlda.h>
#include <sqlcpr.h>
#include <stdlib.h>
#include "getA0TargInp.h"
#include "utilDB.h"
#include "modelStruct.h"

#define NO_DATA_FOUND 0;

EXEC SQL INCLUDE SQLCA.H;

EXEC SQL BEGIN DECLARE SECTION;
int a0TargInpCnt=0;
EXEC SQL END DECLARE SECTION;


void a0TargInpCnt (const char* runDt, char *dow, char *verName )
{

        EXEC SQL SELECT COUNT('1')
                   INTO :a0TargInpCnt
                   FROM(SELECT NVL(b.equip_cd,'NULL'),
                                NVL(a.minm_a0_chg_allw,0),
                                NVL(a.max_a0_chg_allw,0),
                                NVL(a.a0_inctv, 0),
                                NVL(a.apply_cnstrn_flag,'NULL'),
                                NVL(a.hard_cnstrn_flag,'NULL'),
                                NVL(a.bank_start,0),
                                NVL(a.bank_end,0)
                         FROM a0_targ_inp a,
                                 a0_targ_inp_equip b
                        WHERE a.A0_TARG_INP_ID=b.a0_targ_inp_id(+)
                        AND a.da_mon=DECODE(a.da_mon,'Y','Y',:dow[0])
                        AND a.da_tue=DECODE(a.da_tue,'Y','Y',:dow[1])
                        AND a.da_wed=DECODE(a.da_wed,'Y','Y',:dow[2])
                        AND a.da_thur=DECODE(a.da_thur,'Y','Y',:dow[3])
                        AND a.da_fri=DECODE(a.da_fri,'Y','Y',:dow[4])
                        AND a.da_sat=DECODE(a.da_sat,'Y','Y',:dow[5])
                        AND a.da_sun=DECODE(a.da_sun,'Y','Y',:dow[6])
                        AND a.ver_id=(select ver_id FROM versions WHERE ver_nm=:verName)
                        AND a.eff_dt<=:runDt
                        AND a.discont_dt>=:runDt
                        AND NVL(b.EQUIP_GRP_FLAG,'N')='N'
 UNION
                        SELECT NVL(b.equip_cd,'NULL'),
                                NVL(a.minm_a0_chg_allw,0),
                                NVL(a.max_a0_chg_allw,0),
                                NVL(a.a0_inctv, 0),
                                NVL(a.apply_cnstrn_flag,'NULL'),
                                NVL(a.hard_cnstrn_flag,'NULL'),
                                NVL(a.bank_start,0),
                                NVL(a.bank_end,0)
                        FROM a0_targ_inp a,
                                a0_targ_inp_equip b
                        WHERE a.A0_TARG_INP_ID=b.a0_targ_inp_id(+)
                        AND a.da_mon=DECODE(a.da_mon,'Y','Y',:dow[0])
                        AND a.da_tue=DECODE(a.da_tue,'Y','Y',:dow[1])
                        AND a.da_wed=DECODE(a.da_wed,'Y','Y',:dow[2])
                        AND a.da_thur=DECODE(a.da_thur,'Y','Y',:dow[3])
                        AND a.da_fri=DECODE(a.da_fri,'Y','Y',:dow[4])
                        AND a.da_sat=DECODE(a.da_sat,'Y','Y',:dow[5])
                        AND a.da_sun=DECODE(a.da_sun,'Y','Y',:dow[6])
                        AND a.ver_id=(select ver_id FROM versions WHERE ver_nm=:verName)
                        AND a.eff_dt<=:runDt
                        AND a.discont_dt>=:runDt
                        AND NVL(b.EQUIP_GRP_FLAG,'N')='Y');


}


void populateModelA0TargInp(struct a0_targ_inp* a0TargInp, void** modelStruct)
{
        int i=0;
        struct  model_a0_targ_inp *tmp,model;
       * modelStruct=(struct model_a0_targ_inp *)calloc(a0TargInpCnt,sizeof(model));

        tmp=*modelStruct;



        for(i;i<a0TargInpCnt;i++)
        {


                 strcpy(tmp->equipCd,a0TargInp->equipCd);
                tmp->minChgAllowed=a0TargInp->minChgAllowed;
                tmp->maxChgAllowed=a0TargInp->maxChgAllowed;
                tmp->a0Inctv=a0TargInp->a0Inctv;
                strcpy(tmp->applCnstrnFlag,a0TargInp->applCnstrnFlag);
                strcpy(tmp->hardCnstrnFlag,a0TargInp->hardCnstrnFlag);
                tmp->bankStart=a0TargInp->bankStart;
                tmp->bankEnd=a0TargInp->bankEnd;


                tmp=tmp+1;
                a0TargInp=a0TargInp+1;

        }

}






int getA0TargInp (const char* runDt, char * dow, char *verName, void** modelStruct )
{
                        struct a0_targ_inp* a0TargInp;
                        struct a0_targ_inp a0;
                        int cnt;


                        EXEC SQL DECLARE get_a0_targ_inp CURSOR FOR
                                        SELECT NVL(b.equip_cd,'NULL'),
                                                NVL(a.minm_a0_chg_allw,0),
                                                NVL(a.max_a0_chg_allw,0),
                                                NVL(a.a0_inctv, 0),
                                                NVL(a.apply_cnstrn_flag,'NULL'),
                                                NVL(a.hard_cnstrn_flag,'NULL'),
                                                NVL(a.bank_start,0),
                                                NVL(a.bank_end,0)
                                         FROM a0_targ_inp a,
                                                 a0_targ_inp_equip b
                                        WHERE a.A0_TARG_INP_ID=b.a0_targ_inp_id(+)
                                        AND a.da_mon=DECODE(a.da_mon,'Y','Y',:dow[0])
                                        AND a.da_tue=DECODE(a.da_tue,'Y','Y',:dow[1])
                                        AND a.da_wed=DECODE(a.da_wed,'Y','Y',:dow[2])
                                        AND a.da_thur=DECODE(a.da_thur,'Y','Y',:dow[3])
                                        AND a.da_fri=DECODE(a.da_fri,'Y','Y',:dow[4])
                                        AND a.da_sat=DECODE(a.da_sat,'Y','Y',:dow[5])
                                        AND a.da_sun=DECODE(a.da_sun,'Y','Y',:dow[6])
                                        AND a.ver_id=(select ver_id FROM versions WHERE ver_nm=:verName)
                                        AND a.eff_dt<=:runDt
                                        AND a.discont_dt>=:runDt
                                        AND NVL(b.EQUIP_GRP_FLAG,'N')='N'
                                        UNION
                                        SELECT NVL(b.equip_cd,'NULL'),
                                                NVL(a.minm_a0_chg_allw,0),
                                                NVL(a.max_a0_chg_allw,0),
                                                NVL(a.a0_inctv, 0),
                                                NVL(a.apply_cnstrn_flag,'NULL'),
                                                NVL(a.hard_cnstrn_flag,'NULL'),
                                                NVL(a.bank_start,0),
                                                NVL(a.bank_end,0)
                                        FROM a0_targ_inp a,
                                                a0_targ_inp_equip b
                                        WHERE a.A0_TARG_INP_ID=b.a0_targ_inp_id(+)
                                        AND a.da_mon=DECODE(a.da_mon,'Y','Y',:dow[0])
                                        AND a.da_tue=DECODE(a.da_tue,'Y','Y',:dow[1])
                                        AND a.da_wed=DECODE(a.da_wed,'Y','Y',:dow[2])
                                        AND a.da_thur=DECODE(a.da_thur,'Y','Y',:dow[3])
                                        AND a.da_fri=DECODE(a.da_fri,'Y','Y',:dow[4])
                                        AND a.da_sat=DECODE(a.da_sat,'Y','Y',:dow[5])
                                        AND a.da_sun=DECODE(a.da_sun,'Y','Y',:dow[6])
                                        AND a.ver_id=(select ver_id FROM versions WHERE ver_nm=:verName)
                                        AND a.eff_dt<=:runDt
                                        AND a.discont_dt>=:runDt
                                        AND NVL(b.EQUIP_GRP_FLAG,'N')='Y';



                        /*
                        Get the no of records that query might fetch so that dynamic memory allocation can be done
                        */

                        a0TargInpCnt(runDt,dow,verName);

                         if(a0TargInpCnt==0)
                        {

                                return NO_DATA_FOUND;
                        }
                        else
                        {

                           /*
                                Decalre array of structure dynamically so that this array can hold the result set of query
                                */

                                a0TargInp =( struct a0_targ_inp *)calloc(a0TargInpCnt,sizeof(a0));

                                EXEC SQL WHENEVER sqlerror DO handleError("Error occured during fetch of a0 Target input  data");

                                EXEC SQL OPEN get_a0_targ_inp;

                                EXEC SQL WHENEVER NOT FOUND DO break;

                                for(;;)
                                {
                                        EXEC SQL FOR :a0TargInpCnt FETCH get_a0_targ_inp INTO :a0TargInp;

                                }



                                EXEC SQL CLOSE get_a0_targ_inp;


                               populateModelA0TargInp(a0TargInp, modelStruct);

                                if(a0TargInp)
                                free(a0TargInp);

                                return (a0TargInpCnt);
                        }

}