Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     Extract all Characters Before @ symbol in email address

Read-Only Read-Only Topic
Go
Search
Notify
Tools
Extract all Characters Before @ symbol in email address
 Login/Join
 
Kymber
Member
posted
I want to grab every character before the ' @ ' symbol.

E.g jsimpson@usa.com

I want to grab 'jsimpson'

Can anyone point me in the right direction.

Thanks,

Kymber
 
Posts: 18 | Registered: February 18, 2008Report This Post
Francis Mariani
Expert
posted Hide Post
Use the GETTOK character function.

In Dialogue Manager:

-*GETTOK(INFIELD, INLEN, TOKNUM, DELIM, OUTLEN, OUTFIELD)

-SET &EMAIL_ADD = 'duke.ellington@jazz.com';

-SET &EMAIL_ADD1 = GETTOK('&EMAIL_ADD.EVAL', &EMAIL_ADD.LENGTH, 1, '@', &EMAIL_ADD.LENGTH, 'A&EMAIL_ADD.LENGTH');

-TYPE &EMAIL_ADD1

In a DEFINE or COMPUTE statement:

EMAIL_ADD1/A40 = GETTOK(EMAIL_ADD, 200, 1, '@', 40, 'A40');


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
mgrackin
Virtuoso
posted Hide Post
Use the GETTOK function.


Thanks!

Mickey

FOCUS/WebFOCUS 1990 - 2011
 
Posts: 995 | Location: Gaithersburg, MD, USA | Registered: May 07, 2003Report This Post
Kymber
Member
posted Hide Post
DEFINE FILE FDATA
EMAILUSERID/A30 = EMAIL.EMAILADDRESS;
GETUSERID/A30 = GETTOK(EMAILUSERID, EMAILUSERID.LENGTH, 1,'@', EMAILUSERID.LENGTH, GETUSERID);
END
-RUN

TABLE FILE FDATA
PRINT
GETUSERID
WHERE TYPE EQ 'EMAIL';
WHERE GETUSERID EQ LOCASE(8,'&LOGASS','A8');
ON TABLE PCHOLD FORMAT PDF
END
-RUN

I am getting an error saying
(FOC003) THE FIELDNAME IS NOT RECOGNIZED: GETUSERID

Suggestions?

Kymber
 
Posts: 18 | Registered: February 18, 2008Report This Post
Francis Mariani
Expert
posted Hide Post
You will have an error before the "(FOC003) THE FIELDNAME IS NOT RECOGNIZED: GETUSERID" error - only the first error is valid.

.LENGTH only works in Dialogue Manager. In FOCUS code, you have to specify the length as a numeric value:

DEFINE FILE CAR
EMAILUSERID/A30 = 'THIS.IS@TEST.COM';
GETUSERID/A30 = GETTOK(EMAILUSERID, 30, 1,'@', 30, GETUSERID);
END
-RUN

TABLE FILE CAR
PRINT
GETUSERID
COUNTRY
END
-RUN


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Kymber
Member
posted Hide Post
SOLUTION:

I hard coded the EMAILUSERID.LENGTH to 30 and I got the correct results.


Before:

GETUSERID/A30 = GETTOK(EMAILUSERID, EMAILUSERID.LENGTH, 1,'@', EMAILUSERID.LENGTH, GETUSERID);

After:

GETUSERID/A30 = GETTOK(EMAILUSERID, 30, 1,'@', 30, GETUSERID);

Magic!!!
 
Posts: 18 | Registered: February 18, 2008Report This Post
Prarie
Virtuoso
posted Hide Post
Well it does not like your define. You are using the -SET example that Fransis gave you...you should be using the DEFINE. You do not need the .LENGTH


In Focus since 1993. WebFOCUS 7.7.03 Win 2003
 
Posts: 1903 | Location: San Antonio | Registered: February 28, 2005Report This Post
Prarie
Virtuoso
posted Hide Post
Thanks Francis...you were still there.


In Focus since 1993. WebFOCUS 7.7.03 Win 2003
 
Posts: 1903 | Location: San Antonio | Registered: February 28, 2005Report This Post
Kymber
Member
posted Hide Post
Thanks Guys! Smiler
 
Posts: 18 | Registered: February 18, 2008Report This Post
Tom Flynn
Expert
posted Hide Post
"AND" Prarie, a wonderful Gal from Texas!!!! Winky

This message has been edited. Last edited by: Tom Flynn,


Tom Flynn
WebFOCUS 8.1.05 - PROD/QA
DB2 - AS400 - Mainframe
 
Posts: 1972 | Location: Centennial, CO | Registered: January 31, 2006Report This Post
j.gross
Virtuoso
posted Hide Post
quote:
... In FOCUS code, you have to specify the length as a numeric value

No longer true. 
DEFINE FILE CAR
-* highjack a field to hold the email address:
 STANDARD= EDIT(MODEL,'9.gross@midwoodds.com');
-* these calls are invarient w/r/t change in declared length of the STANDARD field:
 USERID/A20 = GETTOK(STANDARD, LENV(STANDARD,'I2'), 1,'@', 20, USERID);
 DOMAIN/A20 = GETTOK(STANDARD, LENV(STANDARD,'I2'), 2,'@', 20, DOMAIN);
END

TABLE FILE CAR 
WRITE USERID DOMAIN 
BY CAR BY MODEL BY STANDARD
END

LENV() was introduced with varchar (AnV) fields, to provide access to the 'length of content' -- but it also accepts char (An) fields, returning the declared length.

This is useful for database fields whose length may be subject to change, and with 'A0' formal arguments in Maintain functions.


- Jack Gross
WF through 8.1.05
 
Posts: 1925 | Location: NYC | In FOCUS since 1983 | Registered: January 11, 2005Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     Extract all Characters Before @ symbol in email address

Copyright © 1996-2020 Information Builders