MQSeries.net :: View topic - require help in developing a coding logic

newbuddy · Posted: Tue May 17, 2011 4:22 am Post subject:

This is the basic coding done :

CREATE COMPUTE MODULE NA_DB2_Sync_Out_Compute
CREATE FUNCTION Main() RETURNS BOOLEAN
BEGIN

SET OutputRoot.MQMD.Format = 'MQSTR ';
SET OutputRoot.MQMD.CodedCharSetId = 37;
SET OutputRoot.MQRFH2 = NULL;

SET OutputRoot.Properties.MessageDomain = 'MRM';
SET OutputRoot.Properties.MessageFormat = 'CWF1';

SET OutputRoot.Properties.MessageType = 'contact admin';

SET OutputRoot.Properties.MessageSet = 'LTVS4TO002001';

DECLARE CH_HRS_PART CHARACTER ' ';
DECLARE contact admin REFERENCE TO RF_EautoDealerLocator.contact admin;
DECLARE contact admin REFERENCE TO contact admin.contact admin;

DECLARE RF_OutDB2Sync REFERENCE TO OutputRoot.MRM;
CREATE FIELD OutputRoot.MRM AS RF_OutDB2Sync;
DECLARE reset CHARACTER '';
SET reset = InitMessageSet(RF_OutDB2Sync);

SET IN_COUNT = 1;
WHILE LASTMOVE(contact admin) DO
SET CH_ENDTIME = '';
IF (IN_COUNT <=5 AND RF_EautoDealerLocator.NAVAMLocatorLanguage = 'ENG') THEN
IF(LENGTH(FUNC_FormatHHMM(contact admin.PartsHoursEndTime)) > 0) THEN
SET CH_ENDTIME = ' to '||FUNC_FormatHHMM(contact admin.PartsHoursEndTime);
ELSE
SET CH_ENDTIME = ' ';
END IF;
SET CH_HRS_PART = COALESCE(CH_HRS_PART||' <br> '||COALESCE(Days_Translation(contact admin.PartsHoursStartDay),'')||' '||COALESCE(FUNC_FormatHHMM(contact admin.PartsHoursStartTime),'')||CH_ENDTIME||' '||COALESCE(TRIM(contact admin.PartsHoursComments),''),'');
SET IN_COUNT = IN_COUNT +1;
END IF;

IF (IN_COUNT <=5 AND RF_EautoDealerLocator.NAVAMLocatorLanguage = 'FRE') THEN

IF(LENGTH(FUNC_FormatHHMM_FR(contact admin.PartsHoursEndTime)) > 0) THEN

SET CH_ENDTIME = ' Ã ' ||FUNC_FormatHHMM_FR(contact admin.PartsHoursEndTime);
ELSE
SET CH_ENDTIME = ' ';
END IF;
SET CH_HRS_PART = COALESCE(CH_HRS_PART||' <br> '||COALESCE(Days_Translation_FR(contact admin.PartsHoursStartDay),'')||'
'||COALESCE(FUNC_FormatHHMM_FR(contact admin.PartsHoursStartTime),'')||CH_ENDTIME||' '||COALESCE(TRIM(contact admin.PartsHoursComments),''),'');
SET IN_COUNT = IN_COUNT +1;
END IF;

IF (IN_COUNT <=5 AND RF_EautoDealerLocator.NAVAMLocatorLanguage = 'SPA') THEN
IF(LENGTH(FUNC_FormatHHMM(contact admin.PartsHoursEndTime)) > 0) THEN
SET CH_ENDTIME = ' a ' ||FUNC_FormatHHMM(contact admin.PartsHoursEndTime);
ELSE
SET CH_ENDTIME = ' ';
END IF;
SET CH_HRS_PART
= COALESCE(CH_HRS_PART||' <br> '||COALESCE(Days_Translation_SP(contact admin.PartsHoursStartDay),'')||' '||COALESCE(FUNC_FormatHHMM(contact admin.PartsHoursStartTime),'')||CH_ENDTIME||' '||COALESCE(TRIM(contact admin.PartsHoursComments),''),'');
SET IN_COUNT = IN_COUNT +1;
END IF;
MOVE contact admin NEXTSIBLING REPEAT TYPE NAME;
END WHILE;

SET RF_OutDB2Sync.contact admin.contact admin = COALESCE(ReplaceSpecialChars(SUBSTRING(CH_HRS_PART FROM 8 FOR 140)),'');
SET RF_OutDB2Sync.contact admin.contact admin = COALESCE(FUNC_FormatYYYYMMDDHHMMSS(contact admin.contact admin[1].NAVAMPartsHoursCreated),'');
SET RF_OutDB2Sync.contact admin.contact admin = COALESCE(FUNC_FormatYYYYMMDDHHMMSS(contact admin.contact admin[1].NAVAMPartsHoursLastUpdated),'');

CREATE FUNCTION FUNC_FormatHHMM_FR(CH_InputDate CHARACTER) RETURNS CHARACTER
BEGIN
DECLARE CH_TargetTime CHARACTER;
DECLARE CH_DateTemp CHARACTER;
DECLARE IN_TempHr_1 INTEGER;
DECLARE IN_TempHr_2 INTEGER;
DECLARE IN_TargetHr INTEGER;
DECLARE CH_TargetHr CHARACTER;

SET CH_DateTemp = CH_InputDate;

SET IN_TempHr_1 = CAST(SUBSTRING ( CH_DateTemp FROM 12 FOR 2 ) AS INTEGER);
SET IN_TempHr_2 = CAST(SUBSTRING ( CH_DateTemp FROM 15 FOR 2 ) AS INTEGER);

IF(IN_TempHr_1 = 00 AND IN_TempHr_2 = 00) THEN
SET CH_TargetHr = '12h Minuit';
ELSEIF(IN_TempHr_1 = 12 AND IN_TempHr_2 = 00) THEN
SET CH_TargetHr = '12h midi';
ELSEIF(IN_TempHr_1 = 12 AND IN_TempHr_2 <> 00) THEN
SET CH_TargetHr = '0'||'h'||SUBSTRING ( CH_DateTemp FROM 15 FOR 2 );
ELSE
SET CH_TargetHr = CAST(IN_TempHr_1 AS CHARACTER)||'h'||SUBSTRING ( CH_DateTemp FROM 15 FOR 2 );
END IF;

RETURN CH_TargetHr;
END;

In the above coding when the below condition is getting satisfied:-
IF (IN_COUNT <=5 AND RF_EautoDealerLocator.NAVAMLocatorLanguage = 'FRE') THEN

then the coding line in it

SET CH_HRS_PART = COALESCE(CH_HRS_PART||' <br> '||COALESCE(Days_Translation_FR(contact admin.PartsHoursStartDay),'')||'
'||COALESCE(FUNC_FormatHHMM_FR(contact admin.PartsHoursStartTime),'')||CH_ENDTIME||' '||COALESCE(TRIM(contact admin.PartsHoursComments),''),'');

is invoking a function

FUNC_FormatHHMM_FR(contact admin.PartsHoursStartTime) and in this function the below condition is getting satisfied eventhough
no data/value is being passed into the contact admin.PartsHoursStartTime from in put file.

IF(IN_TempHr_1 = 00 AND IN_TempHr_2 = 00) THEN
SET CH_TargetHr = '12h Minuit';

can you please help me with a logic which can take care of it?