I have a field in this format A:TEST:MONDAY and I only want A:TEST to display on the report. How do I evaluate the field to not display everything from the second colon on? Thanks

This message has been edited. Last edited by: Tracie,

Look up GETTOK function.

Hi Tracie,

Here's an example using the CAR file.

T1_TXT - Your original field
T3_TXT - Your new field(Everything before the second

-*
DEFINE FILE CAR
T_KEY/I3 WITH MODEL = T_KEY + 1;
-*
T1_TXT/A200 = DECODE T_KEY (
1 'A:TEST:MONDAY'
2 'BB:TEST22:TUESDAY'
3 'CCC:TEST333:WEDNESDAY'
ELSE '**');
-*
T1_POS/I3 = POSIT(T1_TXT, 200, ':', 1, 'I3');
-*
T2_TXT/A200 = SUBSTR(200, T1_TXT, T1_POS+1, 200, 200, T2_TXT);
T2_POS/I3 = POSIT(T2_TXT, 200, ':', 1, 'I3');
-*
T3_LEN/I3 = T1_POS + T2_POS -1;
T3_TXT/A200 = SUBSTR(200, T1_TXT, 1, T3_LEN, 200, T3_TXT);
END
-*
TABLE FILE CAR
PRINT
T_KEY
-*
T1_TXT
T1_POS
-*
T2_TXT
T2_POS
-*
T3_LEN
T3_TXT
WHERE RECORDLIMIT EQ 3
END

~Jim

Or, (check out) CONTAINS. As in WHERE Field CONTAINS ':TEST:'.

I think GETTOK, POSIT then SUBSTR will do the job.

If you *always* need to get everything just before the second ":", then tokenizing your field by ":" (using GETTOK as Anatess and Waz mentioned) and capturing the first 2 tokens would give the result you need.

-SET &TKNDEL=':';
DEFINE FILE CAR
FLD/A15 WITH CAR = 'A:TEST:MONDAY';
NEWFLD/A40 = GETTOK(FLD, 15, 1, '&TKNDEL', 15, 'A15') || '&TKNDEL' || 
             GETTOK(FLD, 15, 2, '&TKNDEL', 15, 'A15');
END
TABLE FILE CAR
PRINT CAR AND FLD AND NEWFLD
WHERE RECORDLIMIT EQ 1
END

Thank you for the information. I am all set.