Focal Point Banner
Community Center Education Summit Technical Support User Groups
Let's Get Social!

Facebook Twitter LinkedIn YouTube
Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] Drill down report from hyperlink
Go
New
Search
Notify
Tools
Reply
  
[SOLVED] Drill down report from hyperlink
 Login/Join
 
Member
posted
Hello, I am using WF version 7.7.03, on a Oracle platform. I have a report that defaults to an HTMl report with enduser options to select either an excel of pdf version.

The problem that I having currently is that now I have created another report that can be accessed via a hyperlink on a field called risk type. There are at least 5 types (HIGHEST, MODERATE, LOW, N/A (OTHER), OR BLANK. What I'd like to do is have a report where the enduser can select for example the active hyperlink for a record that contains "HIGHEST" and it executes a report in another window only showing the records that contain "HIGHEST" within the field.

Here is the some code from report 1 that produces output options for endusers.

[Code]


-DEFAULT &STATUS = 'Active'
-DEFAULT &PERIOD = 'All'
-DEFAULT &OUTPUT = 'HTML'

SET BYDISPLAY = ON
SET SHOWBLANKS = ON
SET HDAY = CURR
SET BUSDAYS = _MTWTF_

-SET &LST_MONTH = DATECVT((DATEADD((DATECVT(&YYMD,'I8YYMD','YYMD')),'M', -1)),'YYMD','I8YYMD');
-SET &LST_DOM = DATECVT(DATEMOV(DATECVT(&LST_MONTH,'I8YYMD', 'YYMD'),'EOM'), 'YYMD', 'I8YYMD') ;
-SET &BEG_MONTH = DATECVT(DATEMOV(DATECVT(&YYMD,'I8YYMD', 'YYMD'),'BOM'), 'YYMD', 'I8YYMD') ;
-SET &BEG_YEAR = DATECVT(DATEMOV(DATECVT(&YYMD,'I8YYMD', 'YYMD'),'BOY'), 'YYMD', 'I8YYMD') ;
-SET &DISP_BEGYR = EDIT(&BEG_YEAR,'$$$$99/99/') || EDIT(&BEG_YEAR,'9999') ;
-SET &DISP_BEGMO = EDIT(&BEG_MONTH,'$$$$99/99/')|| EDIT(&BEG_MONTH,'9999') ;
-SET &DISP_LDOM = EDIT(&LST_DOM,'$$$$99/99/') || EDIT(&LST_DOM,'9999') ;
-SET &YEAR = EDIT(&LST_MONTH,'9999') ;
-SET &BOYEAR = EDIT(&BEG_YEAR,'9999');
-SET &LST_YEAR = &BOYEAR - 1 ;
-SET &LMONTH = EDIT(&LST_MONTH,'$$$$99') ;
-SET &PERIOD = IF &LMONTH LT 10 THEN EDIT(&LMONTH,'$9') ELSE &LMONTH ;
-SET &MONTH = DECODE &LMONTH(01 January 02 February 03 March 04 April 05 May 06 June 07 July 08 August

DEFINE FILE APSASB
ACNT/I6C = IF ID NE LAST ID THEN 1 ELSE 0 ;
APSTITLE/A800 = TITLE ;


-*CATEGDRC/A400=CATDESC;
-*T_CATEGORY/A400 = EDIT(CATEGDRC, '9999$$$$$');
MOD_POID/A20 = EDIT(POID, '99999$99$9$9999$$999');

END
-*-RUN
-*?FF APSASB
-*
-*
-*END
-*-EXIT
TABLE FILE APSASB
PRINT

APSTITLE AS 'TITLE'
OFFICER_NAME AS 'OFFICER,NAME'
AWARDDT AS 'AWARD,DATE'
AWARD_VALUE AS 'AWARD VALUE'
YTDEXPENDITURE AS 'YTD,EXPENDITURE'
TOTEXPENDITURE AS 'TOTAL,EXPENDITURE'
FINALEXPDTE AS 'FINAL EXP,DATE'
OVERSIGHT_MANAGER AS 'OVERSIGHT,MANAGER'
VENDOR_NAME AS 'VENDOR NAME'
STATUS
STATUSPARM AS 'AWARD,STATUS'
NFE_BUSINESSUNIT AS 'NFE,BUSINESS UNIT'
MWOB
WO
MO
VO
SDB
SDVOSB
SAAO
APAO
BAO
NAO
HAO
OTHER
RISK_LEVEL AS 'RISK LEVEL'
NAICSDESC AS 'NAIC, DESCR'
TASK_ORDER_COUNT AS 'TASK,ORDER,COUNT'
CATDESC AS 'CATAGORY,DESCR'
-* T_CATEGORY AS 'CATAGORY,DESCR'
-*BY POID
BY MOD_POID AS 'POID'
-*&WHERESTATUS
-*IF &STATUS EQ 'Active' GOTO MONTHACTIVE1;
-*IF &PERIOD EQ 'All' GOTO ALLCURMONTH;
-*-MONTHACTIVE1
WHERE AWARDDT LE &LST_MONTH AND STATUSPARM EQ 'Active'
WHERE STATUSPARM EQ 'Active'
-*WHERE STATUSPARM EQ 'Active'
-*WHERE AWARDDT GE '20140101';
WHERE DIVISION EQ 'DRR'
-*WHERE T_CATEGORY NOT LIKE '*BOA'
-*WHERE EDIT(CATEGDRC,'9999') NOT LIKE '%BOA'
-*IF RECORDLIMIT EQ 3000
-*-RUN
-*IF &PERIOD EQ 'All' GOTO ALLCURMONTH;
-*-ALLCURMONTH
-*WHERE FINALEXPDTE GE &BEG_MONTH AND DIVISION EQ 'DRR'
-*-RUN
HEADING
" Contract Risk Rating"
" Total Active Contracts - " "
ON TABLE SUBHEAD
" "

FOOTING BOTTOM
" "
"Prepared by: Sg"
"
"RUN DATE: &DATE &TOD"
-IF &OUTPUT NE 'HTML' GOTO SKIPLINES ;
ON TABLE SET LINES 999999
-SKIPLINES
ON TABLE COLUMN-TOTAL AS 'TOTAL' YTDEXPENDITURE TOTEXPENDITURE

ON TABLE SET PAGE-NUM TOP
-*ON TABLE SET HTMLCSS ON
ON TABLE PCHOLD FORMAT &OUTPUT
-IF &OUTPUT EQ 'PDF' GOTO PDFSTYLE ;
ON TABLE SET STYLE *
UNITS=IN,
LEFTMARGIN=0.0,
TOPMARGIN=.0125,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT, COLUMN=APSTITLE, WRAP=4, $

TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
COLOR='BLACK',
LEFTGAP=.03778,
RIGHTGAP=.03778,
$
TYPE=TABHEADING,
SIZE=9,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=9,
STYLE=BOLD,
$
TYPE=TITLE,
COLOR=WHITE,
-IF &OUTPUT EQ 'HTML' GOTO HTDOC ;
BACKCOLOR=RGB(0 68 136),
-GOTO TTLSTYL
-HTDOC
BACKCOLOR=RGB(26 50 89),
-TTLSTYL
STYLE=+BOLD-UNDERLINE,
JUSTIFY=CENTER,
$
-IF &OUTPUT EQ 'EXL2K' GOTO NODRILL ;

TYPE=DATA,
BACKCOLOR=( RGB(238 238 238) 'WHITE' ),
$
-IF &OUTPUT EQ 'PDF' GOTO NODRILL ;
TYPE=TABHEADING,
IMAGE=app/excel.jpg,
IMAGEALIGN=LEFT,
DRILLMENUITEM='Output to Excel',
FOCEXEC=app/APS_ACTIVE_AWARDS(OUTPUT='EXL2K'),
TARGET='_blank',
$
TYPE=TABHEADING,
IMAGE=app/pdf.jpg,
IMAGEALIGN=LEFT,
DRILLMENUITEM='Output to PDF',
FOCEXEC=app/APS_ACTIVE_AWARDS(OUTPUT='PDF'),
TARGET='_blank',

$

TYPE=DATA,
COLUMN=N26,
COLOR=BLUE,
TARGET='_blank',
FOCEXEC=app/APSRISK_RATING(RISKLEVEL2=RISKLEVEL2),
-* TARGET='_blank', makes the drill down report open in a new window ***
$
-NODRILL
TYPE=GRANDTOTAL,
STYLE=BOLD,
BACKCOLOR=SILVER,
$
-GOTO ENDSTYLING
-PDFSTYLE
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='Letter',
LEFTMARGIN=0.1700,
RIGHTMARGIN=0.000,
TOPMARGIN=0.0125,
BOTTOMMARGIN=0.0125,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT, COLUMN=APSTITLE, WRAP=4, $
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=8,
COLOR='BLACK',
LEFTGAP=.0377,
RIGHTGAP=.0366,
$
TYPE=TABHEADING,
SIZE=9,
STYLE=BOLD,
JUSTIFY=LEFT,
$
TYPE=HEADING,
SIZE=9,
-* JUSTIFY=CENTER,
STYLE=BOLD,
$
TYPE=TITLE,
BORDER=LIGHT,
BORDER-COLOR=RGB(0 68 136),
COLOR='WHITE',
BACKCOLOR=RGB(0 68 136),
STYLE=BOLD,
JUSTIFY=CENTER,
$
TYPE=DATA,
BACKCOLOR=( RGB(238 238 238) 'WHITE' ),
$
TYPE=GRANDTOTAL,
STYLE=BOLD,
BACKCOLOR=SILVER,
$
-ENDSTYLING
ENDSTYLE
END



[code2] issue!

Report 2 - This is the report that I'd like report 1 to filter based on what hyperlink risk status that the enduser selects in report1.

-DEFAULT &STATUS = 'Active'
-DEFAULT &PERIOD = 'All'
-DEFAULT &OUTPUT = 'HTML'
-DEFAULT &RLEVEL = RISKLEVEL2
-***************************************************************************************************************************
SET BYDISPLAY = ON
SET SHOWBLANKS = ON
SET HDAY = CURR
SET BUSDAYS = _MTWTF_

-SET &LST_MONTH = DATECVT((DATEADD((DATECVT(&YYMD,'I8YYMD','YYMD')),'M', -1)),'YYMD','I8YYMD');
-SET &LST_DOM = DATECVT(DATEMOV(DATECVT(&LST_MONTH,'I8YYMD', 'YYMD'),'EOM'), 'YYMD', 'I8YYMD') ;
-SET &BEG_MONTH = DATECVT(DATEMOV(DATECVT(&YYMD,'I8YYMD', 'YYMD'),'BOM'), 'YYMD', 'I8YYMD') ;
-SET &BEG_YEAR = DATECVT(DATEMOV(DATECVT(&YYMD,'I8YYMD', 'YYMD'),'BOY'), 'YYMD', 'I8YYMD') ;
-SET &DISP_BEGYR = EDIT(&BEG_YEAR,'$$$$99/99/') || EDIT(&BEG_YEAR,'9999') ;
-SET &DISP_BEGMO = EDIT(&BEG_MONTH,'$$$$99/99/')|| EDIT(&BEG_MONTH,'9999') ;
-SET &DISP_LDOM = EDIT(&LST_DOM,'$$$$99/99/') || EDIT(&LST_DOM,'9999') ;
-SET &YEAR = EDIT(&LST_MONTH,'9999') ;
-SET &BOYEAR = EDIT(&BEG_YEAR,'9999');
-SET &LST_YEAR = &BOYEAR - 1 ;
-SET &LMONTH = EDIT(&LST_MONTH,'$$$$99') ;
-SET &PERIOD = IF &LMONTH LT 10 THEN EDIT(&LMONTH,'$9') ELSE &LMONTH ;
-SET &MONTH = DECODE &LMONTH(01 January 02 February 03 March 04 April 05 May 06 June 07 July 08 August
- 09 September 10 October 11 November 12 December) ;
-SET &WHERESTATUS = IF RISKLEVEL2 EQ 'HIGHEST' THEN 'WHERE STATUS EQ ''Active'''
- ELSE IF &STATUS EQ 'All' THEN '' ;
-IF &RLEVEL EQ 'HIGHEST' THEN RISKLEVEL2 EQ 'HIGHEST'
ELSE IF = RISKLEVEL2 EQ 'MODERATE' THEN RISKLEVEL2 EQ 'MODERATE'
ELSE IF = RISKLEVEL2 EQ 'LOW' THEN RISKLEVEL2 EQ 'LOW'
ELSE IF = RISKLEVEL2 EQ 'N/A (Only Goods)' RISKLEVEL2 EQ 'N/A (Only Goods)'
ELSE IF = RISKLEVEL2 EQ '' THEN '';

-*******************************************************************************************************************************************
-*DEFINE FILE APSASB
-* ACNT/I6C = IF ID NE LAST ID THEN 1 ELSE 0 ;
-* APSTITLE/A800 = TITLE ;
-*
-*TABLE FILE APSASB
-*PRINT
-* POID
-* APSTITLE AS 'TITLE'
-* OFFICER_NAME AS 'OFFICER,NAME'
-* AWARDDT AS 'AWARD,DATE'
-* AWARD_VALUE AS 'AWARD VALUE'
-* YTDEXPENDITURE AS 'YTD,EXPENDITURE'
-* TOTEXPENDITURE AS 'TOTAL,EXPENDITURE'
-* FINALEXPDTE AS 'FINAL EXP,DATE'
-* OVERSIGHT_MANAGER AS 'OVERSIGHT,MANAGER'
-* VENDOR_NAME AS 'VENDOR NAME'
-* STATUS
-* STATUSPARM AS 'AWARD,STATUS'
-* NFE_BUSINESSUNIT AS 'NFE,BUSINESS UNIT'
-* MWOB
-* WO
-* MO
-* VO
-* SDB
-* SDVOSB
-* SAAO
-* APAO
-* BAO
-* NAO
-* HAO
-* OTHER
-* RISK_LEVEL AS 'RISK LEVEL'
-* NAICSDESC AS 'NAIC, DESCR'
-* TASK_ORDER_COUNT AS 'TASK,ORDER,COUNT'
-* CATDESC AS 'CATAGORY,DESCR'
-*BY ID
-*WHERE FINALEXPDTE GE &BEG_MONTH AND STATUSPARM EQ 'Active'
-*ON TABLE HOLD AS ACTIVEAP FORMAT FOCUS
-*
-*END
-*-EXIT
-*************************************************************************************************************************
-* FILENAME= APSASB
-* ID E01 P20
-* POID E02 A20
-* MIGRATED_ID E03 A60
-* TITLE E04 A800V
-* OFFICER_NAME E05 A35
-* DIVISION E06 A40
-* AWARDDT E07 YYMD
-* AWARD_VALUE E08 D20.2M
-* MTHEXPENDITURE E09 D20.2M
-* YTDEXPENDITURE E10 D20.2M
-* TOTEXPENDITURE E11 D20.2M
-* NEXTPOPDATE E12 YYMD
-* FINALEXPDTE E13 YYMD
-* OVERSIGHT_MANAGER E14 A140V
-* VENDOR_CODE E15 A40V
-* VENDOR_NAME E16 A300V
-* STATUS E17 A20
-* STATUSPARM E18 A6
-* NFE_BUSINESSUNIT E19 A5
-* FAILED_INSTITUTION E20 P20
-* SE_STATUS E21 A3V
-* MWOB E22 A4
-* WO E23 A2V
-* MO E24 A2V
-* VO E25 A2V
-* SDB E26 A3V
-* SDVOSB E27 A6V
-* SAAO E28 A4V
-* APAO E29 A4V
-* BAO E30 A3V
-* NAO E31 A3V
-* HAO E32 A3V
-* OTHER E33 A5V
-* SOURCE_GOODS E34 A3V
-* BV_METHOD E35 A3V
-* PLACE_PERFORMANCE E36 A800V
-* RISK_LEVEL E37 A800V
-* NAICS E38 A6
-* NAICSDESC E39 A200
-* LOCATION E40 A5
-* FISCALYR E41 A4
-* YEARLYID E42 P20
-* ACTIONTYPE E43 A1
-* TASK_ORDER_COUNT E44 P20
-* PROCESS_ID E45 P20
-* SOURCE E46 A8
-* CATCODE E47 P20
-* CATDESC E48 A800V

-***************************************************************************************************************

DEFINE FILE APSASB
ACNT/I6C = IF ID NE LAST ID THEN 1 ELSE 0 ;
APSTITLE/A800 = TITLE ;

RISKLEVEL2/A18 = RISK_LEVEL;

-*CATEGDRC/A400=CATDESC;
-*T_CATEGORY/A400 = EDIT(CATEGDRC, '9999$$$$$');
MOD_POID/A30 = EDIT(POID, '99999$99$9$9999$$999');

END

TABLE FILE APSASB
PRINT

MOD_POID AS 'POID'
APSTITLE AS 'TITLE'
OFFICER_NAME AS 'OFFICER,NAME'
AWARDDT AS 'AWARD,DATE'
AWARD_VALUE AS 'AWARD VALUE'
YTDEXPENDITURE AS 'YTD,EXPENDITURE'
TOTEXPENDITURE AS 'TOTAL,EXPENDITURE'
FINALEXPDTE AS 'FINAL EXP,DATE'
OVERSIGHT_MANAGER AS 'OVERSIGHT,MANAGER'
VENDOR_NAME AS 'VENDOR NAME'
STATUS
STATUSPARM AS 'AWARD,STATUS'
NFE_BUSINESSUNIT AS 'NFE,BUSINESS UNIT'
MWOB
WO
MO
VO
SDB
SDVOSB
SAAO
APAO
BAO
NAO
HAO
OTHER
-* RISKLEVEL2 AS 'RISK LEVEL'
-* RISK_LEVEL AS 'RISK LEVEL'
NAICSDESC AS 'NAIC, DESCR'
TASK_ORDER_COUNT AS 'TASK,ORDER,COUNT'
CATDESC AS 'CATAGORY,DESCR'
-* T_CATEGORY AS 'CATAGORY,DESCR'
-*BY POID
-*BY MOD_POID AS 'POID'
BY RISKLEVEL2 AS 'RISK LEVEL'

WHERE AWARDDT LE &LST_MONTH AND STATUSPARM EQ 'Active'


WHERE DIVISION EQ 'DRR'
WHERE RISKLEVEL2 EQ '&RLEVEL';

-*WHERE T_CATEGORY NOT LIKE '*BOA'
-*WHERE EDIT(CATEGDRC,'9999') NOT LIKE '%BOA'
-*IF RECORDLIMIT EQ 3000
-*-RUN
-*IF &PERIOD EQ 'All' GOTO ALLCURMONTH;
-*-ALLCURMONTH
-*WHERE FINALEXPDTE GE &BEG_MONTH AND DIVISION EQ 'DRR'
-*-RUN
HEADING
" Contract Risk Rating"
" Total Active Contracts - " "
ON TABLE SUBHEAD
" "

FOOTING BOTTOM
" "
"Prepared by: Sg"
""
"Program : Risk Level testing"
"RUN DATE: &DATE &TOD"
-IF &OUTPUT NE 'HTML' GOTO SKIPLINES ;
ON TABLE SET LINES 999999
-SKIPLINES
ON TABLE COLUMN-TOTAL AS 'TOTAL' YTDEXPENDITURE TOTEXPENDITURE

ON TABLE SET PAGE-NUM TOP
-*ON TABLE SET HTMLCSS ON
ON TABLE PCHOLD FORMAT &OUTPUT
-IF &OUTPUT EQ 'PDF' GOTO PDFSTYLE ;
ON TABLE SET STYLE *
UNITS=IN,
LEFTMARGIN=0.0,
TOPMARGIN=.0125,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT, COLUMN=APSTITLE, WRAP=4, $

TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
COLOR='BLACK',
LEFTGAP=.03778,
RIGHTGAP=.03778,
$
TYPE=TABHEADING,
SIZE=9,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=9,
STYLE=BOLD,
$
TYPE=TITLE,
COLOR=WHITE,
-IF &OUTPUT EQ 'HTML' GOTO HTDOC ;
BACKCOLOR=RGB(0 68 136),
-GOTO TTLSTYL
-HTDOC
BACKCOLOR=RGB(26 50 89),
-TTLSTYL
STYLE=+BOLD-UNDERLINE,
JUSTIFY=CENTER,
$
-IF &OUTPUT EQ 'EXL2K' GOTO NODRILL ;

TYPE=DATA,
BACKCOLOR=( RGB(238 238 238) 'WHITE' ),
$
-IF &OUTPUT EQ 'PDF' GOTO NODRILL ;
TYPE=TABHEADING,
IMAGE=app/excel.jpg,
IMAGEALIGN=LEFT,
DRILLMENUITEM='Output to Excel',
FOCEXEC=app/APSRISK_RATING(OUTPUT='EXL2K'),
TARGET='_blank',
$
TYPE=TABHEADING,
IMAGE=app/pdf.jpg,
IMAGEALIGN=LEFT,
DRILLMENUITEM='Output to PDF',
FOCEXEC=app/APSRISK_RATING(OUTPUT='PDF'),
TARGET='_blank',
$
-NODRILL
TYPE=GRANDTOTAL,
STYLE=BOLD,
BACKCOLOR=SILVER,
$
-GOTO ENDSTYLING
-PDFSTYLE
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='Letter',
LEFTMARGIN=0.1700,
RIGHTMARGIN=0.000,
TOPMARGIN=0.0125,
BOTTOMMARGIN=0.0125,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT, COLUMN=APSTITLE, WRAP=4, $
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=8,
COLOR='BLACK',
LEFTGAP=.0377,
RIGHTGAP=.0366,
$
TYPE=TABHEADING,
SIZE=9,
STYLE=BOLD,
JUSTIFY=LEFT,
$
TYPE=HEADING,
SIZE=9,
-* JUSTIFY=CENTER,
STYLE=BOLD,
$
TYPE=TITLE,
BORDER=LIGHT,
BORDER-COLOR=RGB(0 68 136),
COLOR='WHITE',
BACKCOLOR=RGB(0 68 136),
STYLE=BOLD,
JUSTIFY=CENTER,
$
TYPE=DATA,
BACKCOLOR=( RGB(238 238 238) 'WHITE' ),
$
TYPE=GRANDTOTAL,
STYLE=BOLD,
BACKCOLOR=SILVER,
$
-ENDSTYLING
ENDSTYLE
END


After the first report is generated and I select for example a record that contains the hyperlinked word "HIGHEST" OR "MODERATE" I receive the following error message: Your request did not return any output to display.
Possible causes:
- No data rows matched the specified selection criteria.
- Output was directed to a destination such as a file or printer.
- An error occurred during the parsing or running of the request.


--------------------------------------------------------------------------------


(FOC1517) UNRECOGNIZED COMMAND ELSE IF = RISKLEVEL2 EQ 'MODERATE' THEN
RISKLEVEL2 EQ 'MODERATE'
(FOC1517) UNRECOGNIZED COMMAND ELSE IF = RISKLEVEL2 EQ 'LOW' THEN
RISKLEVEL2 EQ 'LOW'
(FOC1517) UNRECOGNIZED COMMAND ELSE IF = RISKLEVEL2 EQ 'N/A (ONLY GOODS)'
RISKLEVEL2 EQ 'N/A (ONLY GOODS)'
(FOC1517) UNRECOGNIZED COMMAND ELSE IF = RISKLEVEL2 EQ '' THEN '';
0 NUMBER OF RECORDS IN TABLE= 0 LINES= 0

This message has been edited. Last edited by: <Kathryn Henning>,


7.7.03

OS/Oracle

Windows
Output:All
 
Posts: 20 | Registered: January 22, 2010Reply With QuoteReport This Post
Platinum Member
posted Hide Post
This is a syntax error. There is no '=' between ELSE IF and RISKLEVEL2.


WebFOCUS 7.7.03
Windows, All Outputs
 
Posts: 125 | Registered: June 17, 2013Reply With QuoteReport This Post
Member
posted Hide Post
Glad to have a second set of eyes to examine my madness. I removed the '=' and now I receive the following error:

(FOC1517) UNRECOGNIZED COMMAND ELSE IF RISKLEVEL2 EQ 'MODERATE' THEN RISKLEVEL2
EQ 'MODERATE'
(FOC1517) UNRECOGNIZED COMMAND ELSE IF RISKLEVEL2 EQ 'LOW' THEN RISKLEVEL2
EQ 'LOW'
(FOC1517) UNRECOGNIZED COMMAND ELSE IF RISKLEVEL2 EQ 'N/A (ONLY GOODS)'
RISKLEVEL2 EQ 'N/A (ONLY GOODS)'
(FOC1517) UNRECOGNIZED COMMAND ELSE IF RISKLEVEL2 EQ '' THEN '' ELSE '';
0 NUMBER OF RECORDS IN TABLE= 0 LINES= 0

You can tell I'm a novice with IF -Then -Else conditional statements. I appreciate your help!


7.7.03

OS/Oracle

Windows
Output:All
 
Posts: 20 | Registered: January 22, 2010Reply With QuoteReport This Post
Expert
posted Hide Post
Dialogue Manager "requires" a dash - to start every line...
Also, you can't have WebFOCUS columns with Dialogue Manager statements, i.e. RISKLEVEL2
And, you need to read up on Dialogue Manager IF-THEN-ELSE syntax and logic, the code will never work...

-IF &RLEVEL EQ 'HIGHEST' THEN RISKLEVEL2 EQ 'HIGHEST' 
ELSE IF = RISKLEVEL2 EQ 'MODERATE' THEN RISKLEVEL2 EQ 'MODERATE'
ELSE IF = RISKLEVEL2 EQ 'LOW' THEN RISKLEVEL2 EQ 'LOW'
ELSE IF = RISKLEVEL2 EQ 'N/A (Only Goods)' RISKLEVEL2 EQ 'N/A (Only Goods)'
ELSE IF = RISKLEVEL2 EQ '' THEN '';


Tom Flynn
WebFOCUS 8.1.05 - PROD/QA
DB2 - AS400 - Mainframe
 
Posts: 1956 | Location: Centennial, CO | Registered: January 31, 2006Reply With QuoteReport This Post
Member
posted Hide Post
Thanks for your help Tom. I figured out another way to get my hyperlinks working for drill down reports. I used a few -DEFAULTH and reference my amper variables in my style sheet under TABHEADING. For example:

TYPE=TABHEADING,
LINE=2,
ITEM=2,
DRILLMENUITEM='Active',
FOCEXEC=app/focexec*******'******),
TARGET='_self',



[Resolved]


7.7.03

OS/Oracle

Windows
Output:All
 
Posts: 20 | Registered: January 22, 2010Reply With QuoteReport This Post
  Powered by Social Strata  
 

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [SOLVED] Drill down report from hyperlink

Copyright © 1996-2018 Information Builders, leaders in enterprise business intelligence.