SEM - checking validity periods in FOX.

Question

Hi,
I need to include a check function before data is written into the cube.
EXIT function is not meeting my needs.
So, I need to check this using FOX.
Has any one done this before?
Users enter CAL QUARTER & VALID FROM & VALID TO dates & I need to check if VALID DATES are falling in the same quarter or not.
Info objects that we are dealing with are 0CALQUARTER, 0CRM_VALIDF & 0CRM_VALIDT.
if users enter 3/2005 & 7/1/2005 & 9/30/2005, no message.
if users enter 3/2005 & 8/1/2005 & 12/31/2005, message needed to change valid to date.
if users enter 3/2005 & 6/1/2005 & 7/31/2005, message needed to change valid from date.
Appreciate any help.

Answer 1

Marc,
thanks for your reply & it's good to see you back on SDN.
We are still on 3.x version which is not allowing me to use (SUBSTR) function.
I've developed similar code & just posting the same incase if it helps any one working on 3.x versions. (Ofcourse, credit goes to you as you helped me to develop part of the code 6 months back, if I remember correctly)
now, a major debate is going on among our users.
FOX code is raising messages & at the same time, layout is taking incorrect entries as well & freezing the row with no option of changing the incorrect entry(meaning, users can't change the incorrect entry rather they have to delete & re-enter again).
Is the way it works? Is there any way of avoiding this? Is there any way of changing directly "VALID DATES" right after the error message?
Attribue Char relationship gives an option of changing the incorrect attribute.
Can we not do something in this case to change the Dates?
Appreciate any help.
Mary,
Can we use concatenation in FOX?
<Code>
DATA CM TYPE 0CALMONTH.
DATA CM_END TYPE 0CALMONTH.
DATA CQ TYPE 0CALQUARTER.
DATA CQ_TEMP TYPE 0CALQUARTER.
DATA DATE_S TYPE D.
DATA DATE_E TYPE D.
DATA ACT_S TYPE 0CRM_VALIDF.
DATA ACT_E TYPE 0CRM_VALIDT.
DATA MAT TYPE 0MATERIAL.
FOREACH MAT, CQ, ACT_S, ACT_E.
DO.
IF CQ = '20001'.
IF ACT_S < DATE_S.
MESSAGE E001 (ZTEST_SEM) WITH ACT_S CQ_TEMP MAT .
ELSEIF ACT_S > DATE_E.
MESSAGE E001 (ZTEST_SEM) WITH ACT_S CQ_TEMP MAT .
ENDIF.
EXIT.
ELSE.
CQ = TMVL( CQ, -1 ).
CM = TMVL( CM, +3 ).
CM_END = TMVL( CM, +2).
DATE_S = C2DATE(CM,S).
DATE_E = C2DATE(CM_END,E).
ENDIF.
ENDDO.
ENDIF.
ENDFOR.