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     [SOLVED] Using the Decode Command

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[SOLVED] Using the Decode Command
 Login/Join
 
Joe Beydoun
Gold member
posted
Need help figuring out my security routine. I have a .fex that builds a list of Territories available for a user, however, if the user is not in the list, i want to ignore the where clause and give them all avaialable territories:

-SET &WINID = CNCTUSR('A20');
-SET &WINID = UPCASE(20,&WINID,'A20');
SET ASNAMES = ON
TABLE FILE PE_ZSASECBP
BY 'ZSATERI' AS 'TERRITORY'
WHERE ZSAUSID EQ '&WINID';
ON TABLE HOLD AS SECTERI FORMAT ALPHA
END

TABLE FILE PE_ZZTTERAP
BY ZZTTERI
-*I want to ignore this statement if &WINID is not in file PE_ZSASECBP
WHERE ZZTTERI IN FILE SECTERI;
END

I'm toying the the DECODE command, but can't figure out the syntax and placement.

Thanks in advance.

This message has been edited. Last edited by: Joe Beydoun,


version 8202M
Reporting Server on
Windows Server using DB2 Connect to access data from iseries.
 
Posts: 78 | Registered: December 29, 2009Report This Post
Prarie
Virtuoso
posted Hide Post
I think what you really need is FOC_NONE.

Do a search on the forum and see if it helps.
 
Posts: 1903 | Location: San Antonio | Registered: February 28, 2005Report This Post
Wep5622
Virtuoso
posted Hide Post
-SET &WINID = CNCTUSR('A20');
-SET &WINID = UPCASE(20,&WINID,'A20');

SET ASNAMES = ON
TABLE FILE PE_ZSASECBP
BY 'ZSATERI' AS 'TERRITORY'
WHERE ZSAUSID EQ '&WINID';
ON TABLE HOLD AS SECTERI FORMAT ALPHA
END

-SET &NEEDWHER = DECODE &LINES(0 '-*' ELSE 'WHERE ZZTTERI IN FILE SECTERI;');

TABLE FILE PE_ZZTTERAP
BY ZZTTERI
-*I want to ignore this statement if &WINID is not in file PE_ZSASECBP
-*WHERE ZZTTERI IN FILE SECTERI;
&NEEDWHER.EVAL
END


I expect there is also a trick involving FOC_NONE to disable that WHERE-clause if &LINES EQ 0 after PE_ZSASECBP.


WebFOCUS 8.1.03, Windows 7-64/2008-64, IBM DB2/400, Oracle 11g & RDB, MS SQL-Server 2005, SAP, PostgreSQL 11, Output: HTML, PDF, Excel 2010
: Member of User Group Benelux :
 
Posts: 1669 | Location: Enschede, Netherlands | Registered: August 12, 2010Report This Post
Joe Beydoun
Gold member
posted Hide Post
I know, but i need to conditionally apply it based on where a variable exists in a file.


version 8202M
Reporting Server on
Windows Server using DB2 Connect to access data from iseries.
 
Posts: 78 | Registered: December 29, 2009Report This Post
Joe Beydoun
Gold member
posted Hide Post
WEP, that's the trick i'm looking for.


version 8202M
Reporting Server on
Windows Server using DB2 Connect to access data from iseries.
 
Posts: 78 | Registered: December 29, 2009Report This Post
Joe Beydoun
Gold member
posted Hide Post
Turns out i didn't need the Decode command, didn't realize I can use the lines parameter, I feel like a little grasshopper, thanks WEP:

-SET &WINID = CNCTUSR('A20');
-SET &WINID = UPCASE(20,&WINID,'A20');
SET ASNAMES = ON
TABLE FILE PE_ZSASECBP
BY 'ZSATERI' AS 'TERRITORY'
WHERE ZSAUSID EQ '&WINID';
ON TABLE HOLD AS SECTERI FORMAT ALPHA
END
-SET &LIMIT_TERI = IF &LINES EQ 0 THEN 'OFF' ELSE 'ON'

-SET &WHERE_TERI = IF &LIMIT_TERI EQ 'ON' THEN 'WHERE ZHETERI IN FILE SECTERI;' ELSE ' ';

TABLE FILE PE_ZZTTERAP
BY ZZTTERI
&WHERE_TERI
END

This message has been edited. Last edited by: Joe Beydoun,


version 8202M
Reporting Server on
Windows Server using DB2 Connect to access data from iseries.
 
Posts: 78 | Registered: December 29, 2009Report 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     [SOLVED] Using the Decode Command

Copyright © 1996-2020 Information Builders