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] Dialogue Manager

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[Solved] Dialogue Manager
 Login/Join
 
Platinum Member
posted
I have an sql stored procedure focexec that I need it to be able tell if the user logon is in the EmpID field to continue on with the procedure - if not go to the not in scorecard html. Any examples? Not sure if I know what I'm doing. Thanks! I'll keep searching the library.

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


WebFocus 7.7.02 WinXP
 
Posts: 236 | Registered: May 12, 2006Report This Post
Platinum Member
posted Hide Post
Hi Joe,

See if the following code helps:


Best Regards,

Jimmy Pang

-* Checks if logon is in the table
TABLE FILE EMPDATA
PRINT
PIN
LASTNAME
FIRSTNAME
WHERE PIN EQ '&PINNUM'
ON TABLE HOLD AS HOLD1
END
-RUN

-* Checks if it exists
-IF &LINES NE 0 THEN GOTO RUNREC;
[... doesn't exists, this can display error message in HTML form]
-EXIT

-RUNREC
[run your sql procedure]


DEV: WF 7.6.10
TEST: WF 7.6.10
PROD: WF 7.6.10
MRE: WF 7.6.4
OS/Platform: Windows
Dev Studio: WF 7.7
Output: HTML, EXCEL, PDF, GRAPH, LOTUS, CSV
 
Posts: 117 | Location: Toronto, Ontario, Canada | Registered: February 29, 2008Report This Post
Platinum Member
posted Hide Post
I'll try that - thanks!


WebFocus 7.7.02 WinXP
 
Posts: 236 | Registered: May 12, 2006Report This Post
Platinum Member
posted Hide Post
Almost worked Got this message when I tested for Login that is in the file:

ACCESS FILE RECORD ABSENT, WRONG OR INCOMPLETE FOR SEGMENT : SQLOUT

 -* File scorecardtest.fex
-DEFAULT &ppnum = 'PP33963'
-*-SET &ppnum = 'USERID2'
ENGINE SQLMSS SET DEFAULT_CONNECTION IVB
SQL SQLMSS
EX ORBIT.dbo.scorecard '&ppnum'
;
-* checks logon
TABLE FILE SQLOUT
PRINT EmpID
WHERE EmpID EQ '&ppnum'
ON TABLE HOLD AS HOLD1
END
-RUN

-* Checks if it exists
-IF &LINES NE 0 THEN GOTO RUNREC;
-HTMLFORM nodata
-EXIT

-RUNREC


TABLE FILE SQLOUT
PRINT *
ON TABLE HOLD AS SQLOUT
END
DEFINE FILE SQLOUT
USERID/A8='&IBIC_user';
USERID9/A8=(USERID);
USERNUM/A6=EDIT(USERID9, '$$999999');
USERID2/A8=UPCASE(7,USERID9,'A7');
END
-*-SET &ppnum = 'USERID2'
TABLE FILE SQLOUT
-* 1st Macro
-* 2nd Macro
-* 3rd Macro
-* 4th Macro
-*5th Macro
-* First Format
-* Second Format
-*Third Format
-* Forth Format
-* 5th Format
PRINT
     EmpID
     FName
     LName
     Group
     Team
     AHT
     AHTRank
     COMPUTE AHTPer/D6.2% = AHTPerRank * 100;
     AHTPoints
     RpH
     RpHRank
     COMPUTE RpHPer/D6.1% = RpHPerRank * 100;
     RpHPoints
     FCR
     FCRRank
     COMPUTE FCRPer/D6.1% = FCRPerRank * 100;
     FCRPoints
     CIQ
     CIQRank
     COMPUTE CIQPer/D6.1% = CIQPerRank * 100;
     CIQPoints
     MonScore
     MonRank
     COMPUTE MonPer/D6.1% = MonPerRank * 100;
     MonPoints
     TotRank
     TotPoints
     Payout
HEADING
"&ppnum"
FOOTING
""
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE * 


Thanks!


WebFocus 7.7.02 WinXP
 
Posts: 236 | Registered: May 12, 2006Report This Post
Platinum Member
posted Hide Post
Hi Joe,

What is SQLOUT? Is that a table name?
Not sure if holding a file with the same name as table name causes any confusion to WF.

The only other thing that I can see is if this is your entire code, it's missing an 'END' at the end of the program for the last TABLE FILE section of the code.

See if that works.

Best Regards,

Jimmy Pang


DEV: WF 7.6.10
TEST: WF 7.6.10
PROD: WF 7.6.10
MRE: WF 7.6.4
OS/Platform: Windows
Dev Studio: WF 7.7
Output: HTML, EXCEL, PDF, GRAPH, LOTUS, CSV
 
Posts: 117 | Location: Toronto, Ontario, Canada | Registered: February 29, 2008Report This Post
Platinum Member
posted Hide Post
I didn't position the coding it in the right spot. It works now: THANKS!!!

  -* File scorecardtest.fex
-DEFAULT &ppnum = 'PP52054'
-*-SET &ppnum = 'USERID2'
ENGINE SQLMSS SET DEFAULT_CONNECTION IVB
SQL SQLMSS
EX ORBIT.dbo.scorecard '&ppnum'
;

-* Checks if logon is in the table

TABLE FILE SQLOUT
PRINT *
ON TABLE HOLD AS SQLOUT
END

TABLE FILE SQLOUT
PRINT
EmpID
WHERE EmpID EQ '&ppnum'
ON TABLE HOLD AS HOLD1
END
-RUN

-* Checks if it exists
-IF &LINES NE 0 THEN GOTO RUNREC;
-HTMLFORM nodata
-EXIT

-RUNREC



DEFINE FILE SQLOUT
USERID/A8='&IBIC_user';
USERID9/A8=(USERID);
USERNUM/A6=EDIT(USERID9, '$$999999');
USERID2/A8=UPCASE(7,USERID9,'A7');
END




-*-SET &ppnum = 'USERID2'
TABLE FILE SQLOUT
-* 1st Macro
-* 2nd Macro
-* 3rd Macro
-* 4th Macro
-*5th Macro
-* First Format
-* Second Format
-*Third Format
-* Forth Format
-* 5th Format
PRINT
     EmpID
     FName
     LName
     Group
     Team
     AHT/I5
     AHTRank
     COMPUTE AHTPer/D6.1% = AHTPerRank * 100;
     AHTPoints
     RpH
     RpHRank
     COMPUTE RpHPer/D6.1% = RpHPerRank * 100;
     RpHPoints
     FCR
     FCRRank
     COMPUTE FCRPer/D6.1% = FCRPerRank * 100;
     FCRPoints
     CIQ
     CIQRank
     COMPUTE CIQPer/D6.1% = CIQPerRank * 100;
     CIQPoints
     MonScore
     MonRank
     COMPUTE MonPer/D6.1% = MonPerRank * 100;
     MonPoints
     TotRank
     TotPoints
     Payout
HEADING
"&ppnum"
FOOTING
""
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML


WebFocus 7.7.02 WinXP
 
Posts: 236 | Registered: May 12, 2006Report 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] Dialogue Manager

Copyright © 1996-2020 Information Builders