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.
Okay Focal Pointers; I can not for the life of me figure out why my casing is not working. Here I only have the LAST_NAME code. Thought I would take out the first name and vnum until I got the last name working. Trying to get the input UPPER CASE to compare to UPPER CASE define field. Please help!!! Thank you in advance.
-SET &ALEN=ARGLEN(&LAST_NAME.LENGTH, &LAST_NAME, 'I2');
-SET &LNSRCH=UPCASE(&ALEN, &LAST_NAME, 'A&ALEN');
JOIN
PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.PIDM IN PEOPLE_FACULTY_DIM TO MULTIPLE
FACULTY_ASSIGNMENT_FACT.FACULTY_ASSIGNMENT_FACT.PIDM IN FACULTY_ASSIGNMENT_FACT
TAG J15 AS J15
END
JOIN
J15.FACULTY_ASSIGNMENT_FACT.COURSE_HISTORY_KEY IN PEOPLE_FACULTY_DIM
TO MULTIPLE COURSE_HISTORY_DIM.COURSE_HISTORY_DIM.COURSE_HISTORY_KEY
IN COURSE_HISTORY_DIM TAG J16 AS J16
END
JOIN
J16.COURSE_HISTORY_DIM.COURSE_HISTORY_KEY IN PEOPLE_FACULTY_DIM TO MULTIPLE
STUDENT_REGISTRATION_FACT.STUDENT_REGISTRATION_FACT.COURSE_HISTORY_KEY
IN STUDENT_REGISTRATION_FACT TAG J17 AS J17
END
JOIN
J17.STUDENT_REGISTRATION_FACT.PIDM IN PEOPLE_FACULTY_DIM TO MULTIPLE
PEOPLE_DIM.PEOPLE_DIM.PIDM IN PEOPLE_DIM TAG J18 AS J18
END
DEFINE FILE PEOPLE_FACULTY_DIM
currentDate/HYYMDS=HGETC(10, currentDate);
PhoneOUT/A15V=
IF PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.PHONE EQ 'NA'
OR PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.PHONE EQ ''
THEN 'na'
ELSE PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.PHONE;
altPhoneOUT/A15V=
IF PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.ALTERNATE_PHONE EQ 'NA'
OR PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.ALTERNATE_PHONE EQ ''
THEN 'na'
ELSE PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.ALTERNATE_PHONE;
VMOUT/A15V=
IF PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.VOICEMAIL_PH EQ 'NA'
OR PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.VOICEMAIL_PH EQ ''
THEN 'na'
ELSE PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.VOICEMAIL_PH;
VMEXTOUT/A10V=
IF PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.VOICEMAIL_EXT EQ 'NA'
OR PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.VOICEMAIL_EXT EQ ''
THEN 'na'
ELSE PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.VOICEMAIL_EXT;
RoomOUT/A15V=
IF PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.ROOM EQ 'NA'
OR PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.ROOM EQ ''
THEN 'na'
ELSE PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.ROOM;
UC_LN/A30=UPCASE(30, J18.PEOPLE_DIM.LAST_NAME, UC_LN);
END
TABLE FILE PEOPLE_FACULTY_DIM
BY 'J16.COURSE_HISTORY_DIM.COURSE_TITLE' AS 'Course Title'
BY 'PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.FULL_NAME' AS 'Instructor Name'
BY 'PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.PhoneOUT' AS 'Phone'
BY 'PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.altPhoneOUT' AS 'Alt Phone'
BY 'PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.VMOUT' AS 'Voicemail '
BY 'PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.VMEXTOUT' AS 'Voicemail,Extention'
BY 'PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.RoomOUT' AS 'Room'
BY 'PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.EMAIL' AS 'Email'
WHERE PEOPLE_FACULTY_DIM.PEOPLE_FACULTY_DIM.ACTIVE_FLAG EQ 1;
WHERE J16.COURSE_HISTORY_DIM.ACTIVE_FLAG EQ 1;
WHERE J17.STUDENT_REGISTRATION_FACT.ACTIVE_FLAG EQ 1;
WHERE (( currentDate GE J16.COURSE_HISTORY_DIM.COURSE_BEGIN_DATE ) AND ( currentDate LE J16.COURSE_HISTORY_DIM.COURSE_END_DATE ));
WHERE ((J18.PEOPLE_DIM.VNUM EQ '&VNUM') OR ((J18.PEOPLE_DIM.UC_LN EQ '&LNSRCH') AND (J18.PEOPLE_DIM.FIRST_NAME EQ '&FIRST_NAME'))) ;
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE = endeflt,
$
This message has been edited. Last edited by: Kerry,
WebFOCUS Server 8.1.05 Windows 2008 Server WebFOCUS AppStudio 8.1.05 Windows 7 Professional IE 11 and Chrome Version 43.0.2357.124 m. Mostly HTML, PDF, Excel, and AHTML
The car file example works. So what am I doing wrong?
Thank you
Michelle
WebFOCUS Server 8.1.05 Windows 2008 Server WebFOCUS AppStudio 8.1.05 Windows 7 Professional IE 11 and Chrome Version 43.0.2357.124 m. Mostly HTML, PDF, Excel, and AHTML
I'm not sure why the UPCASE or LOCASE wouldn't work, but my data is in lowercase word format so I just did LCWORD for the input field and it works. If you happen to see what I was doing wrong, I would love to know. Thanks for helping.
WebFOCUS Server 8.1.05 Windows 2008 Server WebFOCUS AppStudio 8.1.05 Windows 7 Professional IE 11 and Chrome Version 43.0.2357.124 m. Mostly HTML, PDF, Excel, and AHTML
WebFOCUS Server 8.1.05 Windows 2008 Server WebFOCUS AppStudio 8.1.05 Windows 7 Professional IE 11 and Chrome Version 43.0.2357.124 m. Mostly HTML, PDF, Excel, and AHTML