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     Error Message FOCEXEC

Read-Only Read-Only Topic
Go
Search
Notify
Tools
Error Message FOCEXEC
 Login/Join
 
<GGOFAnalyst>
posted
I'm getting an error that says CONTROL LINE NOT RECOGNIZED IN FOCEXEC.
I'm not sure what this message means exactly and why I'm getting it.

TABLE FILE PCALLS
SUM
CNT.REGARDINGOBJECTID &RSMPRNT.EVAL AS ''
ACROSS VALUE AS ''
BY REGION1
BY CREATEDBYNAME &RSMPRNT1.EVAL
&WHERERGN
ON TABLE HOLD AS SUBACROSS
END
-RUN

CHECK FILE SUBACROSS HOLD
-RUN

FILEDEF HOLD1 DISK HOLD1.FEX
-RUN

TABLE FILE HOLD
PRINT
FIELDNAME
COMPUTE ASNAME/A100 = IF FIELDNAME EQ 'CREATEDBYNAME' THEN 'AS ''Created By'''
ELSE IF FIELDNAME EQ 'MISSINGSUBJECT' THEN 'AS ''Missing Subject'''
ELSE IF FIELDNAME EQ 'ACB' THEN 'AS ''ACB'''
ELSE IF FIELDNAME EQ 'ACCOUNTINQUIRY' THEN 'AS ''Account Inquiry'''
ELSE IF FIELDNAME EQ 'DEALERREPKITREQUEST' THEN 'AS ''Dealer Rep Kit Request'''
ELSE IF FIELDNAME EQ 'DIPOUTGOING' THEN 'AS ''DIP (Outgoing)'''
ELSE IF FIELDNAME EQ 'DSCFULLREPORT' THEN 'AS ''DSC Full Report'''
ELSE IF FIELDNAME EQ 'DSCINQUIRY' THEN 'AS ''DSC Inquiry'''
ELSE IF FIELDNAME EQ 'DSCREFUND' THEN 'AS ''DSC Refund'''
ELSE IF FIELDNAME EQ 'FULLFREEUNITREPORT' THEN 'AS ''Full Free Unit Report'''
ELSE IF FIELDNAME EQ 'FULLTRIALBALANCEREPORT' THEN 'AS ''Full Trial Balance Report'''
ELSE IF FIELDNAME EQ 'INCOMETRUSTS' THEN 'AS ''Income Trusts'''
ELSE IF FIELDNAME EQ 'MARKETINGFULFILLMENT' THEN 'AS ''Marketing Fulfillment'''
ELSE IF FIELDNAME EQ 'OTHER' THEN 'AS ''Other'''
ELSE IF FIELDNAME EQ 'PPNSLINKNOTES' THEN 'AS ''PPNs (Link Notes)'''
ELSE IF FIELDNAME EQ 'PRODUCTINQUIRY' THEN 'AS ''Product Inquiry'''
ELSE IF FIELDNAME EQ 'STATEMENTREQUEST' THEN 'AS ''Statement Request'''
ELSE IF FIELDNAME EQ 'TAXINQUIRY' THEN 'AS ''Tax Inquiry'''
ELSE IF FIELDNAME EQ 'FLOWTHROUGH' THEN 'AS ''Flow Through'''
ELSE IF FIELDNAME EQ 'MARKETCONDITIONS' THEN 'AS ''Market Conditions'''
ELSE IF FIELDNAME EQ 'BOOKMEETING' THEN 'AS ''Book Meeting'''
ELSE IF FIELDNAME EQ 'FOLLOWUP' THEN 'AS ''Follow-up'''
ELSE IF FIELDNAME EQ 'FUNDCAMPAIGN' THEN 'AS ''Fund Campaign'''
ELSE IF FIELDNAME EQ 'INTRODUCTION' THEN 'AS ''Introduction'''
ELSE IF FIELDNAME EQ 'INFORMATIONCHANGE' THEN 'AS ''Information Change'''
ELSE IF FIELDNAME EQ 'MARKETING' THEN 'AS ''Marketing'''
ELSE IF FIELDNAME EQ 'PROBLEMRESOLUTION' THEN 'AS ''Problem Resolution'''
ELSE IF FIELDNAME EQ 'RSMPROJECT' THEN 'AS ''RSM Project'''
ELSE IF FIELDNAME EQ 'REPCOMPLAINT' THEN 'AS ''Rep Complaint'''
ELSE IF FIELDNAME EQ 'REPREQUESTCHANGEMEETING' THEN 'AS ''Rep Request/Change Meeting'''
ELSE IF FIELDNAME EQ 'REPINQUIRY' THEN 'AS ''Rep Inquiry'''
ELSE IF FIELDNAME EQ 'THANKYOU' THEN 'AS ''Thank You'''
ELSE IF FIELDNAME EQ 'REPREQUESTPROMOS' THEN 'AS ''Rep Request Promos'''
ELSE IF FIELDNAME EQ 'INCOMETRUSTS' THEN 'AS ''Income Trusts'''
ELSE IF FIELDNAME EQ 'PROSPECTUS' THEN 'AS ''Prospectus'''
ELSE IF FIELDNAME EQ 'DUEDILIGENCE' THEN 'AS ''Due Diligence'''
ELSE 'AS ' | FIELDNAME;
WHERE FIELDNAME NE 'REGION1'
ON TABLE HOLD AS HOLD1
END
-RUN

-IF &USERTYPE EQ 'CSDS' THEN GOTO SUBCS
-ELSE IF &USERTYPE IN ('RSM', 'ISR', 'SC') THEN GOTO SUBSALES
-ELSE GOTO SUBALL;

-SUBCS
TABLE FILE SUBACROSS
PRINT
-MRNOEDIT -INCLUDE HOLD1
BY REGION NOPRINT
&WHERERGN
ON TABLE ROW-TOTAL/D15 AS 'Total'
ON REGION SUBHEAD
"
Everything works up to CHECK FILE.
 
Report This Post
Expert
posted Hide Post
Don't you get a line number where the error occurs?

If you're not running this code from within MRE, you will get an error on

"-MRNOEDIT -INCLUDE HOLD1" - MRNOEDIT means nothing outside MRE.


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
<GGOFAnalyst>
posted
No that's the thing, I don't get a line number.
But I test it out and I know that the error shows when it starts CHECK.
 
Report This Post
Expert
posted Hide Post
Try removing the -MRNOEDIT.

You're probably running this program from a form in an HTML page and calling it as a self-service fex and not as an MRE fex, so -MRNOEDIT won't be valid.


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
<GGOFAnalyst>
posted
I tried that but that also gives me an error saying Cannot parse can't open HOLD1.fex. It may be corrupted.
 
Report This Post
Member
posted Hide Post
Can you tell if the TABLE on the HOLD file is running?

Typically that type of error (control line not recognized) is for dialog manager. I noticed that you don't have a space before the ELSE in this:

-IF &USERTYPE EQ 'CSDS' THEN GOTO SUBCS
-ELSE IF &USERTYPE IN ('RSM', 'ISR', 'SC') THEN GOTO SUBSALES
-ELSE GOTO SUBALL;

I wasn't able to reproduce your error but you could try changing it to:

-IF &USERTYPE EQ 'CSDS' THEN GOTO SUBCS
- ELSE IF &USERTYPE IN ('RSM', 'ISR', 'SC') THEN GOTO SUBSALES
- ELSE GOTO SUBALL;

I hope that might help.


WF Reporting Server 71x, 76x
 
Posts: 15 | Registered: September 10, 2007Report This Post
<GGOFAnalyst>
posted
No the problem isn't the spaces.
 
Report This Post
Expert
posted Hide Post
Sorry, leave the -MRNOEDIT in.

It may be your HOLD1 file. You need to look at it to see if it was created correctly. To do this, allocate it to a directory on the server, for instance:

FILEDEF HOLD1 DISK D:\IBI\TEMP\HOLD1.FEX


Then run your code and take a look at HOLD1.FEX in D:\IBI\TEMP.


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
Virtuoso
posted Hide Post
quote:
BY CREATEDBYNAME &RSMPRNT1.EVAL
&WHERERGN


With the BY on CREATEDBYNAME, what are the amper variables doing for you? Have you tried running with a '-SET &ECHO=ALL;' to see if that would help?


Leah
 
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004Report This Post
<GGOFAnalyst>
posted
This is what's in the HOLD1 File.

CREATEDBYNAME AS 'Created By'
-Pick a Subject- AS -Pick a Subject-
ACB AS 'ACB'
Account Inquiry AS Account Inquiry
DIP (Outgoing) AS DIP (Outgoing)
DSC Inquiry AS DSC Inquiry
Marketing Fulfillment AS Marketing Fulfillment
Other AS Other
Statement Request AS Statement Request
 
Report This Post
Virtuoso
posted Hide Post
What you're saying is in HOLD1 does not match what you have in your IF statements in the compute. Is that just what is "supposed" to be in the HOLD1?

Most likely what you need to do is HOLD FORMAT ALPHA. It appears that you're trying to re-use the hold file as a flat file(or text file in the case of a FEX) so it's best to save it out that way using format alpha.

This message has been edited. Last edited by: Darin Lee,


Regards,

Darin



In FOCUS since 1991
WF Server: 7.7.04 on Linux and Z/OS, ReportCaster, Self-Service, MRE, Java, Flex
Data: DB2/UDB, Adabas, SQL Server Output: HTML,PDF,EXL2K/07, PS, AHTML, Flex
WF Client: 77 on Linux w/Tomcat
 
Posts: 2298 | Location: Salt Lake City, Utah | Registered: February 02, 2007Report This Post
Expert
posted Hide Post
Do you remember way back to Oct 4 when the program apparently was working:

Need help with using Across to show output

What happened since?


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
<GGOFAnalyst>
posted
Everything was working except I wasn't getting the correct data. The joins/tables were working properly, so I had to recode it.
Now everything works fine except for this part!
 
Report This Post
Expert
posted Hide Post
It appears the HOLD1 file contains the text values extracted from MS CRM, which it shouldn't.

Do you recall in the original program that you had a DEFINE, are you still doing this:

COMPUTE SUBJECT/A255 = IF VALUE EQ '-Pick a Subject' THEN 'MISSINGSUBJECT'
ELSE IF VALUE EQ 'ACB' THEN 'ACB'
ELSE IF VALUE EQ 'Account Inquiry' THEN 'ACCOUNTINQUIRY'
ELSE IF VALUE EQ 'Dealer Rep kit Request' THEN 'DEALERREPKITREQUEST'
ELSE IF VALUE EQ 'DIP (Outgoing)' THEN 'DIPOUTGOING'
ELSE IF VALUE EQ 'DSC Full Report' THEN 'DSCFULLREPORT'
ELSE IF VALUE EQ 'DSC Inquiry' THEN 'DSCINQUIRY'
ELSE IF VALUE EQ 'DSC Refund' THEN 'DSCREFUND'
ELSE IF VALUE EQ 'Full Free Unit Report' THEN 'FULLFREEUNITREPORT'
ELSE IF VALUE EQ 'Full Trial Balance Report' THEN 'FULLTRIALBALANCEREPORT'
ELSE IF VALUE EQ 'Income Trusts' THEN 'INCOMETRUSTS'
ELSE IF VALUE EQ 'Marketing Fulfillment' THEN 'MARKETINGFULFILLMENT'
ELSE IF VALUE EQ 'Other' THEN 'OTHER'
ELSE IF VALUE EQ 'PPNs (Link Notes)' THEN 'PPNSLINKNOTES'
ELSE IF VALUE EQ 'Product Inquiry' THEN 'PRODUCTINQUIRY'
ELSE IF VALUE EQ 'Statement Request' THEN 'STATEMENTREQUEST'
ELSE IF VALUE EQ 'Tax Inquiry' THEN 'TAXINQUIRY'
ELSE IF VALUE EQ 'Flow Through' THEN 'FLOWTHROUGH'
ELSE IF VALUE EQ 'Market Conditions' THEN 'MARKETCONDITIONS'
ELSE IF VALUE EQ 'Book Meeting' THEN 'BOOKMEETING'
ELSE IF VALUE EQ 'Follow-up' THEN 'FOLLOWUP'
ELSE IF VALUE EQ 'Fund Campaign' THEN 'FUNDCAMPAIGN'
ELSE IF VALUE EQ 'Introduction' THEN 'INTRODUCTION'
ELSE IF VALUE EQ 'Information Change' THEN 'INFORMATIONCHANGE'
ELSE IF VALUE EQ 'Marketing' THEN 'MARKETING'
ELSE IF VALUE EQ 'Problem Resolution' THEN 'PROBLEMRESOLUTION'
ELSE IF VALUE EQ 'RSM Project' THEN 'RSMPROJECT'
ELSE IF VALUE EQ 'Rep Complaint' THEN 'REPCOMPLAINT'
ELSE IF VALUE EQ 'Rep Request/Change Meeting' THEN 'REPREQUESTCHANGEMEETING'
ELSE IF VALUE EQ 'Rep Inquiry' THEN 'REPINQUIRY'
ELSE IF VALUE EQ 'Thank You' THEN 'THANKYOU'
ELSE IF VALUE EQ 'Rep Request Promos' THEN 'REPREQUESTPROMOS'
ELSE IF VALUE EQ 'PPNs (Link Notes)' THEN 'PPNSLINKNOTES'
ELSE IF VALUE EQ 'Income Trusts' THEN 'INCOMETRUSTS'
ELSE IF VALUE EQ 'Prospectus' THEN 'PROSPECTUS'
ELSE IF VALUE EQ 'DSC Refund' THEN 'DSCREFUND'
ELSE IF VALUE EQ 'Due Diligence' THEN 'DUEDILIGENCE'
ELSE IF VALUE EQ 'Flow Through' THEN 'FLOWTHROUGH'
ELSE IF VALUE EQ 'Market Conditions' THEN 'MARKETCONDITIONS'
ELSE VALUE;


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
<GGOFAnalyst>
posted
Yea I'm still doing that but I've separated the cf_subjectclientsales and cf_subjectsales.
I've done this:

JOIN CREATEDBY IN MSCRM_PHONECALL TO SYSTEMUSERID IN CRMSYSTEMUSER AS J1

-IF &USERTYPE IN ('RSM', 'ISR', 'SC') GOTO SALES
-ELSE GOTO CSDS;

-SALES

TABLE FILE MSCRM_PHONECALL
PRINT
CF_SUBJECTSALES
REGARDINGOBJECTID
REGARDINGOBJECTTYPECODE
CREATEDBY
CREATEDBYNAME
SUBJECT
&WHEREPOS
&WHEREDATE1
ON TABLE HOLD AS PCALL
END
-RUN

TABLE FILE MSCRM_STRINGMAP
PRINT
ATTRIBUTEVALUE
ATTRIBUTENAME
VALUE
COMPUTE SUBJECTS/A255 = IF VALUE EQ '-Pick a Subject-' THEN 'MISSINGSUBJECT'
ELSE IF VALUE EQ 'Book Meeting' THEN 'BOOKMEETING'
ELSE IF VALUE EQ 'DSC Refund' THEN 'DSCREFUND'
ELSE IF VALUE EQ 'Due Diligence' THEN 'DUEDILIGENCE'
ELSE IF VALUE EQ 'Flow Through' THEN 'FLOWTHROUGH'
ELSE IF VALUE EQ 'Follow-up' THEN 'FOLLOWUP'
ELSE IF VALUE EQ 'Fund Campaign' THEN 'FUNDCAMPAIGN'
ELSE IF VALUE EQ 'Income Trusts' THEN 'INCOMETRUSTS'
ELSE IF VALUE EQ 'Information Change' THEN 'INFORMATIONCHANGE'
ELSE IF VALUE EQ 'Introduction' THEN 'INTRODUCTION'
ELSE IF VALUE EQ 'Market Conditions' THEN 'MARKETCONDITIONS'
ELSE IF VALUE EQ 'Marketing' THEN 'MARKETING'
ELSE IF VALUE CONTAINS 'PPN' THEN 'PPNSLINKNOTES'
ELSE IF VALUE EQ 'Problem Resolution' THEN 'PROBLEMRESOLUTION'
ELSE IF VALUE EQ 'Prospectus' THEN 'PROSPECTUS'
ELSE IF VALUE EQ 'Rep Complaint' THEN 'REPCOMPLAINT'
ELSE IF VALUE EQ 'Rep Inquiry' THEN 'REPINQUIRY'
ELSE IF VALUE EQ 'Rep Request Promos' THEN 'REPREQUESTPROMOS'
ELSE IF VALUE EQ 'Rep Request/Change Meeting' THEN 'REPREQUESTCHANGEMEETING'
ELSE IF VALUE EQ 'RSM Project' THEN 'RSMPROJECT'
ELSE IF VALUE EQ 'Thank You' THEN 'THANKYOU'
ELSE VALUE;
WHERE OBJECTTYPECODE = 4210 AND ATTRIBUTENAME EQ 'cf_subjectsales'
WHERE ATTRIBUTEVALUE IS NOT MISSING;
ON TABLE HOLD AS SALESSUB
END
-RUN

JOIN CF_SUBJECTSALES IN PCALL TO ATTRIBUTEVALUE IN SALESSUB AS J2

-GOTO MAIN

-CSDS

TABLE FILE MSCRM_PHONECALL
PRINT
CF_SUBJECTCLIENTSERVICES
REGARDINGOBJECTID
REGARDINGOBJECTTYPECODE
CREATEDBY
CREATEDBYNAME
SUBJECT
BY CF_SUBJECTCLIENTSERVICES
&WHEREPOS
&WHEREDATE1
ON TABLE HOLD AS PCALL
END
-RUN

TABLE FILE MSCRM_STRINGMAP
PRINT
ATTRIBUTEVALUE
ATTRIBUTENAME
VALUE
COMPUTE SUBJECTS/A255 = IF VALUE EQ '-Pick a Subject-' THEN 'MISSINGSUBJECT'
ELSE IF VALUE EQ 'ACB' THEN 'ACB'
ELSE IF VALUE EQ 'Account Inquiry' THEN 'ACCOUNTINQUIRY'
ELSE IF VALUE EQ 'Dealer Rep kit Request' THEN 'DEALERREPKITREQUEST'
ELSE IF VALUE EQ 'DIP (Outgoing)' THEN 'DIPOUTGOING'
ELSE IF VALUE EQ 'DSC Full Report' THEN 'DSCFULLREPORT'
ELSE IF VALUE EQ 'DSC Inquiry' THEN 'DSCINQUIRY'
ELSE IF VALUE EQ 'DSC Refund' THEN 'DSCREFUND'
ELSE IF VALUE EQ 'Flow Through' THEN 'FLOWTHROUGH'
ELSE IF VALUE EQ 'Full Free Unit Report' THEN 'FULLFREEUNITREPORT'
ELSE IF VALUE EQ 'Full Trial Balance Report' THEN 'FULLTRIALBALANCEREPORT'
ELSE IF VALUE EQ 'Income Trusts' THEN 'INCOMETRUSTS'
ELSE IF VALUE EQ 'Market Conditions' THEN 'MARKETCONDITIONS'
ELSE IF VALUE EQ 'Marketing Fulfillment' THEN 'MARKETINGFULFILLMENT'
ELSE IF VALUE EQ 'Other' THEN 'OTHER'
ELSE IF VALUE CONTAINS 'PPN' THEN 'PPNSLINKNOTES'
ELSE IF VALUE EQ 'Product Inquiry' THEN 'PRODUCTINQUIRY'
ELSE IF VALUE EQ 'Statement Request' THEN 'STATEMENTREQUEST'
ELSE IF VALUE EQ 'Tax Inquiry' THEN 'TAXINQUIRY'
ELSE VALUE;
WHERE OBJECTTYPECODE = 4210 AND ATTRIBUTENAME EQ 'cf_subjectclientservices'
WHERE ATTRIBUTEVALUE IS NOT MISSING;
ON TABLE HOLD AS CLIENTSUB
END
-RUN

JOIN CF_SUBJECTCLIENTSERVICES IN PCALL TO ATTRIBUTEVALUE IN CLIENTSUB AS J3

-MAIN

TABLE FILE PCALL
PRINT
REGARDINGOBJECTID
CREATEDBYNAME
REGARDINGOBJECTTYPECODE
BY CREATEDBY
BY VALUE
ON TABLE HOLD AS PCALLS
END
-RUN

SET NODATA = 0
JOIN CREATEDBY IN PCALLS TO SYSTEMUSERID IN CRMSYSTEMUSER TAG CRBY AS J4
JOIN REGARDINGOBJECTID IN PCALLS TO CONTACTID IN MSEXT_CONTACTVIEW TAG CON AS J6

TABLE FILE PCALLS
PRINT *
COMPUTE REGION1/A300=IF REGARDINGOBJECTTYPECODE EQ 2 THEN CON.CF_REGIONNAME ELSE BUSINESSUNITIDNAME; AS 'REGION'
REGARDINGOBJECTTYPECODE
BY VALUE
ON TABLE HOLD AS CHECK
END
-RUN

TABLE FILE CHECK
PRINT
CREATEDBYNAME
REGION
ON TABLE HOLD AS CHECK2
END
-RUN

-SET NODATA = 0
DEFINE FILE PCALLS
REGION1/A300=IF REGARDINGOBJECTTYPECODE EQ 2 THEN CON.CF_REGIONNAME ELSE BUSINESSUNITIDNAME;
END

TABLE FILE PCALLS
SUM
CNT.REGARDINGOBJECTID &RSMPRNT.EVAL AS ''
ACROSS VALUE AS ''
BY REGION1
BY CREATEDBYNAME &RSMPRNT1.EVAL
&WHERERGN
ON TABLE HOLD AS SUBACROSS
END
-RUN

-IF &FOCERRNUM NE 0 GOTO ACTIVITY_ERR;
-IF &LINES = 0 THEN GOTO NOREPORT ELSE GOTO PRINTOUT;
-NOREPORT

-INCLUDE FEIPROF1
-IF &FOCERRNUM NE 0 GOTO ACTIVITY_ERR;

TABLE FILE MSEXT_CONTACTVIEW
PRINT
NORPT/A15='NO DATA FOUND';
END
-RUN

TABLE FILE MSEXT_CONTACTVIEW
PRINT
NORPT AS ''
FULLNAME NOPRINT
WHERE RECORDLIMIT EQ 1

-GOTO HSTYLE

-PRINTOUT

-******************************************************************************
-* Extract User Profile
-******************************************************************************
-INCLUDE FEIPROF1
-IF &FOCERRNUM NE 0 GOTO ACTIVITY_ERR;

-******************************************************************************
-* Generate Report
-******************************************************************************

CHECK FILE SUBACROSS HOLD
-RUN

FILEDEF HOLD1 DISK HOLD1.FEX
-RUN

TABLE FILE HOLD
PRINT
FIELDNAME
COMPUTE ASNAME/A100 = IF FIELDNAME EQ 'CREATEDBYNAME' THEN 'AS ''Created By'''
ELSE IF FIELDNAME EQ 'MISSINGSUBJECT' THEN 'AS ''Missing Subject'''
ELSE IF FIELDNAME EQ 'ACB' THEN 'AS ''ACB'''
ELSE IF FIELDNAME EQ 'ACCOUNTINQUIRY' THEN 'AS ''Account Inquiry'''
ELSE IF FIELDNAME EQ 'DEALERREPKITREQUEST' THEN 'AS ''Dealer Rep Kit Request'''
ELSE IF FIELDNAME EQ 'DIPOUTGOING' THEN 'AS ''DIP (Outgoing)'''
ELSE IF FIELDNAME EQ 'DSCFULLREPORT' THEN 'AS ''DSC Full Report'''
ELSE IF FIELDNAME EQ 'DSCINQUIRY' THEN 'AS ''DSC Inquiry'''
ELSE IF FIELDNAME EQ 'DSCREFUND' THEN 'AS ''DSC Refund'''
ELSE IF FIELDNAME EQ 'FULLFREEUNITREPORT' THEN 'AS ''Full Free Unit Report'''
ELSE IF FIELDNAME EQ 'FULLTRIALBALANCEREPORT' THEN 'AS ''Full Trial Balance Report'''
ELSE IF FIELDNAME EQ 'INCOMETRUSTS' THEN 'AS ''Income Trusts'''
ELSE IF FIELDNAME EQ 'MARKETINGFULFILLMENT' THEN 'AS ''Marketing Fulfillment'''
ELSE IF FIELDNAME EQ 'OTHER' THEN 'AS ''Other'''
ELSE IF FIELDNAME EQ 'PPNSLINKNOTES' THEN 'AS ''PPNs (Link Notes)'''
ELSE IF FIELDNAME EQ 'PRODUCTINQUIRY' THEN 'AS ''Product Inquiry'''
ELSE IF FIELDNAME EQ 'STATEMENTREQUEST' THEN 'AS ''Statement Request'''
ELSE IF FIELDNAME EQ 'TAXINQUIRY' THEN 'AS ''Tax Inquiry'''
ELSE IF FIELDNAME EQ 'FLOWTHROUGH' THEN 'AS ''Flow Through'''
ELSE IF FIELDNAME EQ 'MARKETCONDITIONS' THEN 'AS ''Market Conditions'''
ELSE IF FIELDNAME EQ 'BOOKMEETING' THEN 'AS ''Book Meeting'''
ELSE IF FIELDNAME EQ 'FOLLOWUP' THEN 'AS ''Follow-up'''
ELSE IF FIELDNAME EQ 'FUNDCAMPAIGN' THEN 'AS ''Fund Campaign'''
ELSE IF FIELDNAME EQ 'INTRODUCTION' THEN 'AS ''Introduction'''
ELSE IF FIELDNAME EQ 'INFORMATIONCHANGE' THEN 'AS ''Information Change'''
ELSE IF FIELDNAME EQ 'MARKETING' THEN 'AS ''Marketing'''
ELSE IF FIELDNAME EQ 'PROBLEMRESOLUTION' THEN 'AS ''Problem Resolution'''
ELSE IF FIELDNAME EQ 'RSMPROJECT' THEN 'AS ''RSM Project'''
ELSE IF FIELDNAME EQ 'REPCOMPLAINT' THEN 'AS ''Rep Complaint'''
ELSE IF FIELDNAME EQ 'REPREQUESTCHANGEMEETING' THEN 'AS ''Rep Request/Change Meeting'''
ELSE IF FIELDNAME EQ 'REPINQUIRY' THEN 'AS ''Rep Inquiry'''
ELSE IF FIELDNAME EQ 'THANKYOU' THEN 'AS ''Thank You'''
ELSE IF FIELDNAME EQ 'REPREQUESTPROMOS' THEN 'AS ''Rep Request Promos'''
ELSE IF FIELDNAME EQ 'INCOMETRUSTS' THEN 'AS ''Income Trusts'''
ELSE IF FIELDNAME EQ 'PROSPECTUS' THEN 'AS ''Prospectus'''
ELSE IF FIELDNAME EQ 'DUEDILIGENCE' THEN 'AS ''Due Diligence'''
ELSE 'AS ' | FIELDNAME;
WHERE FIELDNAME NE 'REGION1'
ON TABLE HOLD AS HOLD1
END
-RUN

-IF &USERTYPE EQ 'CSDS' GOTO SUBCS ELSE IF &USERTYPE IN ('RSM' OR 'ISR' OR 'SC') GOTO SUBSALES ELSE GOTO SUBALL;

-SUBCS
TABLE FILE SUBACROSS
PRINT
-MRNOEDIT -INCLUDE HOLD1
BY REGION NOPRINT
&WHERERGN
ON TABLE ROW-TOTAL/D15 AS 'Total'
ON REGION SUBHEAD
"
 
Report This Post
Expert
posted Hide Post
Try to follow what you're doing - step by step. You've defined SUBJECT but you're using ACROSS VALUE. Is that what you want to do? I'm not sure, but shouldn't it be ACROSS SUBJECT?

Here's a way to save the HOLD files created in between steps, so you you can follow what your program is doing.

1) Create a new fex (filesave) containing the following code. It will set up a folder to save the Masters and data for HOLD files. You will then be able to browse the files to see if they are created correctly.

-*-- Set up a folder to store the temporary WebFOCUS HOLD files ------
-SET &FILE_PATH = '\ibi\apps\temp\ggofanalyst';

-*-- Create the folder if it does not already exist ------------------
DOS mkdir &FILE_PATH
-RUN

-*-- Clear any previous APP MAP command for this app -----------------
APP MAP webfocus_data
-RUN

-*-- Map the folder as a WebFOCUS App folder -------------------------
APP MAP webfocus_data &FILE_PATH
-RUN
-IF &FOCERRNUM NE 0 THEN GOTO FOC_ERROR;

-*-- Designate HOLD location for Master files ------------------------
APP HOLDMETA webfocus_data

-*-- Designate HOLD location for data files --------------------------
APP HOLDDATA webfocus_data
-RUN

2) Include the program at the beginning of your report program.
3) Put
-EXIT
right after the END statement to stop the report program at the point you're experiencing a problem. Run the program and then examine the Master and data HOLD file to see if they look like what you're expecting. If not, correct the code and rerun. If things look good, remove the -EXIT and continue to the next step, with a -EXIT right after the END statement. And so on, until the report works.


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
<GGOFAnalyst>
posted
I figured out the problem. The problem was that I was using Value rather than Subjects.
It's all fixed now.

Thanks Francis for your help.
 
Report This Post
Expert
posted Hide Post
quote:
You've defined SUBJECT but you're using ACROSS VALUE


Like I said!

You, happily, are a real go-getter, but just be careful Smiler

This message has been edited. Last edited by: Francis Mariani,


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
<GGOFAnalyst>
posted
I'm slowly but surely learning Smiler
Yea there's a lot to be careful about.
 
Report This Post
<GGOFAnalyst>
posted
I'm getting the same error for a different report (CONTROL LINE NOT RECOGNIZED IN FOCEXEC).
It's when the CHECK FILE RESULTS3 HOLD starts.
I've tried all the solutions above.

This is my program:

JOIN CREATEDBY IN MSCRM_PHONECALL TO SYSTEMUSERID IN CRMSYSTEMUSER AS J1

TABLE FILE MSCRM_PHONECALL
PRINT
CF_RESULTS
CREATEDBY
CREATEDBYNAME
CREATEDON
REGARDINGOBJECTID
REGARDINGOBJECTTYPECODE
BY CF_RESULTS
&WHEREDATE1
WHERE CF_RESULTS NE 0;
ON TABLE HOLD AS PCALL FORMAT FOCUS INDEX CF_RESULTS
END
-RUN

TABLE FILE MSCRM_STRINGMAP
PRINT
ATTRIBUTENAME
ATTRIBUTEVALUE
COMPUTE RESULT/A255 = IF VALUE EQ '-Pick a Result-' THEN 'MISSINGRESULT'
ELSE IF VALUE EQ 'Call Back Later' THEN 'CALLBACKLATER'
ELSE IF VALUE EQ 'Left Message' THEN 'LEFTMESSAGE'
ELSE IF VALUE EQ 'Meeting Booked' THEN 'MEETINGBOOKED'
ELSE IF VALUE EQ 'No Contact/Answer' THEN 'NOCONTACTANSWER'
ELSE IF VALUE EQ 'Sales' THEN 'SALES'
ELSE IF VALUE EQ 'Service' THEN 'SERVICE'
ELSE VALUE;
WHERE OBJECTTYPECODE EQ 4210 AND ATTRIBUTENAME EQ 'cf_results'
BY ATTRIBUTEVALUE NOPRINT
ON TABLE HOLD AS RESULTS
END

JOIN CF_RESULTS IN PCALL TO ATTRIBUTEVALUE IN RESULTS AS J1

TABLE FILE PCALL
SUM
CNT.RESULT AS 'RESULTS'
MAX.CREATEDBYNAME
REGARDINGOBJECTID
REGARDINGOBJECTTYPECODE
&WHEREDATE1
BY CREATEDBY
BY RESULT
ON TABLE HOLD AS RESULTS2
END
-RUN

TABLE FILE MSEXT_SYSTEMUSERVIEW
PRINT
SYSTEMUSERID
BY SYSTEMUSERID NOPRINT
WHERE POSITION EQ 'ISR'
ON TABLE HOLD AS ISRID
END
-RUN

SET NODATA = 0
JOIN CLEAR *
JOIN CREATEDBY IN RESULTS2 TO SYSTEMUSERID IN ISRID AS J2
JOIN CREATEDBY IN RESULTS2 TO SYSTEMUSERID IN MSEXT_CRMTEAMCOVERAGEVIEW AS J3
JOIN CREATEDBY IN RESULTS2 TO SYSTEMUSERID IN CRMSYSTEMUSER TAG CRBY AS J6
JOIN REGARDINGOBJECTID IN RESULTS2 TO CONTACTID IN MSEXT_CONTACTVIEW TAG CON AS J7

TABLE FILE RESULTS2
PRINT *
COMPUTE REGION1/A300=IF REGARDINGOBJECTTYPECODE EQ 2 THEN CON.CF_REGIONNAME ELSE BUSINESSUNITIDNAME; AS 'REGION'
REGARDINGOBJECTTYPECODE
BY RESULT
ON TABLE HOLD AS CHECK
END
-RUN

TABLE FILE CHECK
PRINT
CREATEDBYNAME
REGION
ON TABLE HOLD AS CHECK2
END
-RUN

SET NODATA = 0
DEFINE FILE RESULTS2
REGION1/A300=IF REGARDINGOBJECTTYPECODE EQ 2 THEN CON.CF_REGIONNAME ELSE BUSINESSUNITIDNAME;
END

TABLE FILE RESULTS2
SUM
MAX.RESULTS &RSMPRNT.EVAL AS ''
ACROSS RESULT AS ''
BY REGION1
BY CREATEDBYNAME &RSMPRNT1.EVAL
&WHERERGN
-*WHERE SYSTEMUSERID NE ' ';
ON TABLE HOLD AS RESULTS3
END
-RUN

-IF &FOCERRNUM NE 0 GOTO ACTIVITY_ERR;
-IF &LINES = 0 THEN GOTO NOREPORT ELSE GOTO PRINTOUT;
-NOREPORT

-INCLUDE FEIPROF1
-IF &FOCERRNUM NE 0 GOTO ACTIVITY_ERR;

-*DEFINE FILE MSEXT_CONTACTVIEW
-* NORPT/A15='NO DATA FOUND';
-*END
-*RUN

TABLE FILE MSEXT_CONTACTVIEW
PRINT
-*NORPT AS ''
FULLNAME NOPRINT
WHERE RECORDLIMIT EQ 1

-GOTO HSTYLE

-PRINTOUT

-******************************************************************************
-* Extract User Profile
-******************************************************************************
-INCLUDE FEIPROF1
-IF &FOCERRNUM NE 0 GOTO ACTIVITY_ERR;

-******************************************************************************
-* Generate Report
-******************************************************************************

CHECK FILE RESULTS3 HOLD
-RUN

FILEDEF HOLD2 DISK D:\IBI\TEMP\HOLD2.FEX
-RUN

TABLE FILE HOLD
PRINT
FIELDNAME
COMPUTE ASNAME/A100 = IF FIELDNAME EQ 'CREATEDBYNAME' THEN 'AS ''Created By'''
ELSE IF FIELDNAME EQ 'MISSINGRESULT' THEN 'AS ''Missing Result'''
ELSE IF FIELDNAME EQ 'CALLBACKLATER' THEN 'AS ''Call Back Later'''
ELSE IF FIELDNAME EQ 'LEFTMESSAGE' THEN 'AS ''Left Message'''
ELSE IF FIELDNAME EQ 'MEETINGBOOKED' THEN 'AS ''Meeting Booked'''
ELSE IF FIELDNAME EQ 'NOCONTACTANSWER' THEN 'AS ''No Contact/Answer'''
ELSE IF FIELDNAME EQ 'SALES' THEN 'AS ''Sales'''
ELSE IF FIELDNAME EQ 'SERVICE' THEN 'AS ''Service'''
ELSE 'AS ' | FIELDNAME;
WHERE FIELDNAME NE 'REGION1'
ON TABLE HOLD AS HOLD2
END
-RUN

TABLE FILE RESULTS3
PRINT
-MRNOEDIT -INCLUDE HOLD2
BY REGION NOPRINT
&WHERERGN
WHERE REGION NE '';
ON TABLE ROW-TOTAL/D15 AS 'Total'
ON REGION SUBHEAD
"
 
Report This Post
Virtuoso
posted Hide Post
GGOFAnalyst,

Your code is somewhat incomplete here and tehre.
This quite probably happens because you have open carets in your code.
Please include it between the [ code ] and [ /code ] tags so we can try and find the error for you.


GamP

- Using AS 8.2.01 on Windows 10 - IE11.
in Focus since 1988
 
Posts: 1961 | Location: Netherlands | Registered: September 25, 2007Report 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     Error Message FOCEXEC

Copyright © 1996-2020 Information Builders