/* DKCM003: ÄÉÁÂÁÆÅÉ OUTPUT 200ÁÑÉ ÁÐÏ ÔÏ ÔÁÌ1 ÌÅ ÐÁÃÉÅÓ */ */

/* ÐÉÓÔÙÓÅÉÓ ÊÅÖÁËÁÉÏÕ ÊÁÉ ÅÍÇÌÅÑÙÌÅÍÏ STATUS, */

/* ÊÁÉ ÅÍÇÌÅÑÙÍÅÉ ÌÅ ÔÉÓ ÁÐÏÑÑÉØÅÉÓ ÔÏÍ CTDKCM02 */

/* AUTHOR : EVANGELOS KOULIS */

/* CREATION : ÁÕÃÏÕÓÔÏÓ 2008 */

/* B A T C H P L I - D B 2 */

/*******************************************************************/

/* NPK 06-04-2012 */

/* ÊËÇÓÇ ÔÇÓ ÑÏÕÔÉÍÁÓ DKRCM01 ÃÉÁ ÅÉÓÁÃÙÃÇ ÓÔÏÉ×ÅÉÙÍ ÓÔÏ CRM */

/*******************************************************************/

DKCM003: PROC OPTIONS(MAIN);

/*-----------------------------------------------------------*/

/* BUILTIN FUNCTIONS */

/*-----------------------------------------------------------*/

DCL NULL BUILTIN;

DCL ADDR BUILTIN;

DCL SUBSTR BUILTIN;

DCL DATETIME BUILTIN;

DCL DKRCM01 ENTRY (CHAR(200), /* RECDBCR */

CHAR(2) , /* SOURCESYSTEMID */

CHAR(30) /* TRANSTYPECD */

)

RETURNS( FIXED BIN(31)); /*SQLCODE*/

FETCH DKRCM01 ;

/******* DCLGEN *******/

EXEC SQL INCLUDE CTDKCM02;

EXEC SQL INCLUDE SQLCA;

/************************/

% INCLUDE DAYRTNS;

DCL MY_RECDBCR CHAR(200) BASED(ADDR(RECDBCR));

/************************************/

/* ÐÑÏÓÄÉÏÑÉÓÌÏÓ, ÐÅÑÉÃÑÁÖÇ ÁÑ×ÅÉÙÍ */

/************************************/

DCL PRINT FILE RECORD SEQUENTIAL OUTPUT

ENV(FB RECSIZE(133) CTLASA);

DCL LINE CHAR (133) INIT(' ');

DCL 1 LINE1 BASED(ADDR(LINE)),

2 CTLCHR1 CHAR(1) INIT('1'),

2 GRAMMH CHAR(132) INIT(' ');

DCL 1 LNX BASED(ADDR(LINE)),

2 CTLCHR CHAR(1) INIT('1'),

2 LEKTIKO CHAR(60) INIT(' '),

2 ARITHMOS CHAR(16) INIT(' '),

2 FILLME CHAR(56) INIT(' ');

DCL ANSWR FILE RECORD SEQUENTIAL INPUT ENV(FB RECSIZE(200));

% INCLUDE RECDBCR;

DCL SUM_CREDIT PIC 'ZZ.ZZZ.ZZZ.ZZ9V,99' INIT(0);

/***************************************************************/

DCL WS1_ARLOG FIXED(9) INIT(0);

DCL WS1_POSON FIXED(13,2) INIT(0);

DCL WS1_POSOXRPI FIXED(13,2) INIT(0);

DCL WS1_HMEKD FIXED(7) INIT(0);

DCL WS1_HMVAL FIXED(7) INIT(0);

DCL WS1_MHTRWO CHAR(12) INIT('');

DCL WS2_MHTRWO PIC '(12)9' INIT(0);

DCL WS1_KATMAXOR FIXED(5) INIT(0);

DCL WS2_KATMAXOR PIC '(4)9' INIT(0);

/***************************************************************/

/***************************************************************/

DCL ANSWR_CNT PIC '(9)Z9' INIT(0);

DCL ANSWR_U_CNT PIC '(9)Z9' INIT(0);

DCL ANSWR_S_CNT PIC '(9)Z9' INIT(0);

DCL INSCM02_CNT PIC '(9)Z9' INIT(0);

DCL PIC_MHTRWO PIC '(5)9' INIT(0);

DCL PIC_POSO PIC '(11)9V.99' INIT(0);

DCL PIC_ARLOG PIC '(9)9' INIT(0);

/***************************************************************/

% PAGE;

OPEN FILE(ANSWR),FILE(PRINT);

ON ENDFILE(ANSWR) GOTO TELOS;

READ_ANSWR:

READ FILE(ANSWR) INTO(RECDBCR);

ANSWR_CNT = ANSWR_CNT + 1;

CALL INSERT_CRM;

IF RECDBCR.STATUS ^= '00' THEN CALL WRITE_REJ;

ELSE DO;

ANSWR_S_CNT = ANSWR_S_CNT + 1;

SUM_CREDIT = SUM_CREDIT + RECDBCR.POSON;

END;

GOTO READ_ANSWR;

/*******************************************************************/

WRITE_REJ: PROC;

/*******************************************************************/

ANSWR_U_CNT = ANSWR_U_CNT + 1;

CTDKCM02.COD_CHANNEL = 1;

WS2_MHTRWO = RECDBCR.MHTRWO;

CTDKCM02.KEY_AR_PAGIA = WS2_MHTRWO;

CTLCHR1 = ' ';

GRAMMH = 'MHTRWO='!!RECDBCR.MHTRWO!!', WS2_MHTRWO='!!

WS2_MHTRWO!!', KEY_AR_PAGIA='!!CTDKCM02.KEY_AR_PAGIA;

WRITE FILE(PRINT) FROM(LINE1);

CTDKCM02.COD_TYP_PAGIA = 1;

WS2_KATMAXOR = RECDBCR.KATMAXOR;

CTDKCM02.COD_KATMA = WS2_KATMAXOR;

CTLCHR1 = ' ';

GRAMMH = 'KATMAXOR='!!RECDBCR.KATMAXOR!!', WS2_KATMAXOR='!!

WS2_KATMAXOR!!', COD_KATMA='!!CTDKCM02.COD_KATMA;

WRITE FILE(PRINT) FROM(LINE1);

CTDKCM02.KEY_D_ARLOG1 = RECDBCR.ARLOG;

CTLCHR1 = ' ';

GRAMMH = 'KEY_D_ARLOG1='!!CTDKCM02.KEY_D_ARLOG1;

WRITE FILE(PRINT) FROM(LINE1);

IF RECDBCR.ARLOG > 80000000 THEN

CTDKCM02.COD_D_EFARM1 = '70';

ELSE

CTDKCM02.COD_D_EFARM1 = '90';

CTLCHR1 = ' ';

GRAMMH = 'COD_D_EFARM1='!!CTDKCM02.COD_D_EFARM1;

WRITE FILE(PRINT) FROM(LINE1);

CTDKCM02.KEY_D_ARLOG2 = 0;

CTLCHR1 = ' ';

GRAMMH = 'KEY_D_ARLOG2='!!CTDKCM02.KEY_D_ARLOG2;

WRITE FILE(PRINT) FROM(LINE1);

CTDKCM02.COD_D_EFARM2 = '';

CTLCHR1 = ' ';

GRAMMH = 'COD_D_EFARM2='!!CTDKCM02.COD_D_EFARM2;

WRITE FILE(PRINT) FROM(LINE1);

CTDKCM02.AMT_D_POSO = RECDBCR.POSON;

CTLCHR1 = ' ';

GRAMMH = 'AMT_D_POSO='!!CTDKCM02.AMT_D_POSO;

WRITE FILE(PRINT) FROM(LINE1);

CTDKCM02.COD_DEBCRE = RECDBCR.KWDXRPIS;

CTLCHR1 = ' ';

GRAMMH = 'COD_DEBCRE='!!CTDKCM02.COD_DEBCRE;

WRITE FILE(PRINT) FROM(LINE1);

CTDKCM02.CHR_USER_ID = 'DKCM003 ';

SELECT (RECDBCR.STATUS);

WHEN ('01')

CTDKCM02.CHR_REJ_DESCR = 'ÁÍÕÐÁÑÊÔÏÓ ËÏÃ/ÓÌÏÓ';

WHEN ('02')

CTDKCM02.CHR_REJ_DESCR = 'ËÁÈÏÓ ÁÑÉÈ. ËÏÃ/ÓÌÏÕ';

WHEN ('03')

CTDKCM02.CHR_REJ_DESCR = 'Ï×É ÔÑÅ×ÏÕÌ. ËÏÃÓÌÏÓ';

WHEN ('04')

CTDKCM02.CHR_REJ_DESCR = '×ÑÅÙÓÔÉÊÏ ÐÏÓÏ';

WHEN ('05')

CTDKCM02.CHR_REJ_DESCR = 'Ë/ÓÌÏÓ ÅÔÅÑÏÕ ÊÁÔ/ÔÏÓ';

WHEN ('06')

CTDKCM02.CHR_REJ_DESCR = 'ÐÏÓÏ ÌÇÄÅÍ';

WHEN ('07')

CTDKCM02.CHR_REJ_DESCR = 'ËÏÃÁÑÉÁÓÌÏÓ ÊËÅÉÓÔÏÓ';

WHEN ('08','10')

CTDKCM02.CHR_REJ_DESCR = 'ÌÇ ÁÐÏÄÅÊÔÏ ÊÁÈÏËÉÊÏ';

WHEN ('09')

CTDKCM02.CHR_REJ_DESCR = 'ÁÍÕÐÁÑÊÔÏÓ ÊÙÄ. ÐÅËÁÔÇ';

WHEN ('11')

CTDKCM02.CHR_REJ_DESCR = 'ÐÏÓÏ ÌÅ ÄÅÊÁÄÉÊÁ';

WHEN ('12')

CTDKCM02.CHR_REJ_DESCR = 'ÐÏÓÏ ÐÁÍÙ ÁÐÏ ÔÏ ÏÑÉÏ';

WHEN ('13')

CTDKCM02.CHR_REJ_DESCR = 'VALEUR ÅÊÔÏÓ ÏÑÉÙÍ';

WHEN ('14')

CTDKCM02.CHR_REJ_DESCR = 'ÁËËÇÓ ÔÑÁÐÅÆÁÓ ËÏÃÁÑ.';

WHEN ('15')

CTDKCM02.CHR_REJ_DESCR = 'ÌÇ ÁÐÏÄÅÊÔÏ ÊÁÈÏËÉÊÏ';

WHEN ('16')

CTDKCM02.CHR_REJ_DESCR = 'ËÁÈÏÓ ÌÏÑÖÇ ÐÏÓÏÕ';

WHEN ('17')

CTDKCM02.CHR_REJ_DESCR = 'ÁÐÙËÅÉÁ ÂÉÂËÉÁÑÉÏÕ';

WHEN ('18')

CTDKCM02.CHR_REJ_DESCR = 'Å×ÅÉ ÏÑÏÕÓ';

WHEN ('19')

CTDKCM02.CHR_REJ_DESCR = 'Å×ÅÉ ÄÅÓÌÅÕÈÅÉ ÐÏÓÏ';

WHEN ('20')

CTDKCM02.CHR_REJ_DESCR = 'ÌÇ ÅÐÁÑÊÅÓ ÕÐÏËÏÉÐÏ';

WHEN ('21')

CTDKCM02.CHR_REJ_DESCR = 'VALEUR > ÇÌ.ËÇÎ. ÍÏÌÉÌ.';

WHEN ('22')

CTDKCM02.CHR_REJ_DESCR = 'ÌÇ ÅÐÁÑÊÅÓ ÕÐÏËÏÉÐÏ (Ì)';

WHEN ('23')

CTDKCM02.CHR_REJ_DESCR = 'ËÁÈÏÓ ÍÏÌ. (ÅÕÑÙ)';

WHEN ('24')

CTDKCM02.CHR_REJ_DESCR = 'ÌÅÃÁËÏ ÐËÇÈÏÓ ÅÃÃÑÁÖ.';

OTHERWISE

CTDKCM02.CHR_REJ_DESCR = '*********************';

END;

EXEC SQL

INSERT INTO CTDKCM02

(

COD_CHANNEL,

KEY_AR_PAGIA,

COD_TYP_PAGIA,

COD_KATMA,

KEY_D_ARLOG1,

COD_D_EFARM1,

KEY_D_ARLOG2,

COD_D_EFARM2,

AMT_D_POSO,

DAT_REJECT,

COD_DEBCRE,

CHR_REJ_DESCR,

CHR_USER_ID,

KEY_TIMESTAMP

)

VALUES

(

:CTDKCM02.COD_CHANNEL,

:CTDKCM02.KEY_AR_PAGIA,

:CTDKCM02.COD_TYP_PAGIA,

:CTDKCM02.COD_KATMA,

:CTDKCM02.KEY_D_ARLOG1,

:CTDKCM02.COD_D_EFARM1,

:CTDKCM02.KEY_D_ARLOG2,

:CTDKCM02.COD_D_EFARM2,

:CTDKCM02.AMT_D_POSO,

CURRENT DATE,

:CTDKCM02.COD_DEBCRE,

:CTDKCM02.CHR_REJ_DESCR,

:CTDKCM02.CHR_USER_ID,

CURRENT TIMESTAMP

);

IF SQLCODE ^= 0 THEN DO;

CTLCHR1 = ' ';

GRAMMH = 'ERROR INSERTING INTO CTDKCM02, SQLCODE='!!

SQLCODE;

WRITE FILE(PRINT) FROM(LINE1);

CALL ERROR_ABEND;

END;

ELSE INSCM02_CNT = INSCM02_CNT + 1;

END WRITE_REJ;

/*******************************************************************/

INSERT_CRM: PROC;

DCL RC FIXED BIN(31);

RC = DKRCM01(MY_RECDBCR,'57','1') ;

IF RC ^= 0 THEN DO;

CTLCHR1 = ' ';

GRAMMH = 'ERROR CALLING ROUTINE DKRCM01 FOR CRM '!!

'SQLCODE = '!!RC ;

WRITE FILE(PRINT) FROM(LINE1);

END;

END INSERT_CRM ;

/*******************************************************************/

/*=================================================*/

ERROR_ABEND: PROC;

/*=================================================*/

DCL BOOM DEC FIXED(1,0) INIT(0) ;

DCL ZERO DEC FIXED(1,0) INIT(0) ;

CTLCHR1 = ' ';

GRAMMH = 'TO ÐÑOÃÑÁÌÌÁ ÈÁ KAÍÅÉ CANCEL CANCEL CANCEL';

WRITE FILE(PRINT) FROM(LINE1);

BOOM = BOOM / ZERO;

END ERROR_ABEND;

TELOS:

CTLCHR1 = ' ';

GRAMMH = '===============================================';

WRITE FILE(PRINT) FROM(LINE1);

CTLCHR1 = ' ';

GRAMMH = ' ÅÊÔÕÐÙÓÇ ÓÕÌÖÙÍÉÁÓ ÔÏÕ ÐÑÏÃÑÁÌÌÁÔÏÓ *DKCM003* ';

WRITE FILE(PRINT) FROM(LINE1);

CTLCHR1 = ' ';

GRAMMH = '===============================================';

WRITE FILE(PRINT) FROM(LINE1);

CTLCHR1 = ' ';

GRAMMH = ' ÇÌÅÑÏÌÇÍÉÁ KAI ÙÑÁ ÑÏÇÓ : ' !!

SUBSTR(DATETIME,7,2)!!'.'!!SUBSTR(DATETIME,5,2)!!'.'!!

SUBSTR(DATETIME,1,4)!!'-'!!SUBSTR(DATETIME,9,2)!!':'!!

SUBSTR(DATETIME,11,2)!!':'!!SUBSTR(DATETIME,13,2);

WRITE FILE(PRINT) FROM(LINE1);

CTLCHR1 = ' ';

GRAMMH = '-------------------------------------------------';

WRITE FILE(PRINT) FROM(LINE1);

CTLCHR1 = ' ';

GRAMMH = 'ÄÉÁÂÁÓÔÇÊÁÍ ÁÐÏ ÔÏ OUPUT TOY TAM1 (ÐÉÓÔÙÓÅÉÓ) = ' !!

ANSWR_CNT;

WRITE FILE(PRINT) FROM(LINE1);

CTLCHR1 = ' ';

GRAMMH = 'ÅÐÉÔÕ×ÅÉÓ ÐÉÓÔÙÓÅÉÓ = '!!

ANSWR_S_CNT;

WRITE FILE(PRINT) FROM(LINE1);

CTLCHR1 = ' ';

GRAMMH = 'ÓÕÍÏËÉÊÏ ÐÏÓÏ ÐÏÕ ÐÉÓÔÙÈÇÊÅ = '!!

SUM_CREDIT;

WRITE FILE(PRINT) FROM(LINE1);

CTLCHR1 = ' ';

GRAMMH = 'ÁÐÏÑÑÉÖÈÅÉÓÅÓ ÐÉÓÔÙÓÅÉÓ = '!!

ANSWR_U_CNT;

WRITE FILE(PRINT) FROM(LINE1);

CTLCHR1 = ' ';

GRAMMH = 'ÅÃÃÑÁÖÅÓ ÓÔÏÍ ÐIÍÁÊÁ ÁÐÏÑÑÉØÅÙÍ (CTWBOTP2) = '!!

INSCM02_CNT;

WRITE FILE(PRINT) FROM(LINE1);

CLOSE FILE(ANSWR),FILE(PRINT);

END DKCM003;