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.



Read-Only Read-Only Topic
Go
Search
Notify
Tools
Normalised database
 Login/Join
 
Virtuoso
posted
We have a database table that holds 2000 or 3000 records.
The master looks like:
FILE=codings, SUFFIX=EDA
SEGNAME=CODINGS, SEGTYPE=S0, $
  FIELD=CODETYPE, ALIAS=CODETYPE, USAGE=A4, ACTUAL=A4, $
  FIELD=CODEFIELD, ALIAS=CODERING, USAGE=A4, ACTUAL=A4, $
  FIELD=DESCREPTION, ALIAS=OMSCHRIJVING, USAGE=A25, ACTUAL=A25, $
  FIELD=CODE_STATUS, ALIAS=CODE_STATUS, USAGE=A1, ACTUAL=A1, $
  FIELD=AMOUNT, ALIAS=BEDRAG, USAGE=P15.2, ACTUAL=P8, $
  FIELD=PRIORITY, ALIAS=PRIORITEIT, USAGE=A1, ACTUAL=A1, $
  FIELD=CODE_FLAGS, ALIAS=CODE_FLAGS, USAGE=A9, ACTUAL=A9, $


The first two fields are keyfields.

In the database we put several groups of decoding information like:
 
CODETYPE CODEFIELD DESCRIPTION
ACCM     FTER      Frank T
ACCM     XXYZ      mister xyz
(these are accountmanagers)
LND      FR        France
LND      BL        Belgium
LND      US        USA
(these are countrycodes)
CUR      EUR       Euro
CUR      USD       US dollar
CUR      ..
(these are currency codes)
etc


I use those different groups in all kind of reports.

I would like to make a master for every group based on the first key.
In the SQL world I would create views, but in the RMS database that is not possible.

If I could create a master descreption for each that holds a line like:
WHERE CODETYPE EQ 'CUR'
Then I have what I need.

Would this be possible?

Frank




Frank

prod: WF 7.6.10 platform Windows,
databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7
test: WF 7.6.10 on the same platform and databases,IE7

 
Posts: 2387 | Location: Amsterdam, the Netherlands | Registered: December 03, 2006Report This Post
Virtuoso
posted Hide Post
quote:
The master looks like:

FILE=codings, SUFFIX=EDA
SEGNAME=CODINGS, SEGTYPE=S0, $
FIELD=CODETYPE, ALIAS=CODETYPE, USAGE=A4, ACTUAL=A4, $
FIELD=CODEFIELD, ALIAS=CODERING, USAGE=A4, ACTUAL=A4, $
FIELD=DESCREPTION, ALIAS=OMSCHRIJVING, USAGE=A25, ACTUAL=A25, $
FIELD=CODE_STATUS, ALIAS=CODE_STATUS, USAGE=A1, ACTUAL=A1, $
FIELD=AMOUNT, ALIAS=BEDRAG, USAGE=P15.2, ACTUAL=P8, $
FIELD=PRIORITY, ALIAS=PRIORITEIT, USAGE=A1, ACTUAL=A1, $
FIELD=CODE_FLAGS, ALIAS=CODE_FLAGS, USAGE=A9, ACTUAL=A9, $


You can add defines to your master file description, but I believe you need a reporting object with filters to do what you want, but there may be other ways.


Leah
 
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004Report This Post
Master
posted Hide Post
I am not sure why you would want to make a master file for each type by you could do it with a WebFOCUS DBA Statement.

  
FILE=codings, SUFFIX=EDA
SEGNAME=CODINGS, SEGTYPE=S0, $
  FIELD=CODETYPE, ALIAS=CODETYPE, USAGE=A4, ACTUAL=A4, $
  FIELD=CODEFIELD, ALIAS=CODERING, USAGE=A4, ACTUAL=A4, $
  FIELD=DESCREPTION, ALIAS=OMSCHRIJVING, USAGE=A25, ACTUAL=A25, $
  FIELD=CODE_STATUS, ALIAS=CODE_STATUS, USAGE=A1, ACTUAL=A1, $
  FIELD=AMOUNT, ALIAS=BEDRAG, USAGE=P15.2, ACTUAL=P8, $
  FIELD=PRIORITY, ALIAS=PRIORITEIT, USAGE=A1, ACTUAL=A1, $
  FIELD=CODE_FLAGS, ALIAS=CODE_FLAGS, USAGE=A9, ACTUAL=A9, $
END
DBA=!@#$%,$
USER=, ACCESS=R, RESTRICT=VALUE, NAME=CODINGS,
                          VALUE=CODETYPE EQ 'CUR',$


Scott




Scott

 
Posts: 865 | Registered: May 24, 2004Report This Post
Virtuoso
posted Hide Post
I think it could be possible to use the rectype attribute here, giving a seperate segment and fieldnames dependent on the value in the codetype field.
It's a long time since I used this on RMS, but I have used it more recently on VSAM and I believe the workings are the same.


Alan.
WF 7.705/8.007
 
Posts: 1451 | Location: Portugal | Registered: February 07, 2007Report This Post
Virtuoso
posted Hide Post
quote:
END
DBA=!@#$%,$
USER=, ACCESS=R, RESTRICT=VALUE, NAME=CODINGS,
VALUE=CODETYPE EQ 'CUR',$



thanks for the reactions and Scotts solution works.

I just do notunderstand the '!@#$%' is that something like 'everything is ok?'




Frank

prod: WF 7.6.10 platform Windows,
databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7
test: WF 7.6.10 on the same platform and databases,IE7

 
Posts: 2387 | Location: Amsterdam, the Netherlands | Registered: December 03, 2006Report This Post
Master
posted Hide Post
Yes, It can be what ever you want. If you do
SET PASS = !@#$%

Then execute a table request then you will get all records, else you only get CUR records.




Scott

 
Posts: 865 | Registered: May 24, 2004Report This Post
Virtuoso
posted Hide Post
Hi TS
As said it works, but not from the GUI. I get strange errors.
I will put this solution as request by the webfocus tech boys and let you know what comes out.




Frank

prod: WF 7.6.10 platform Windows,
databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7
test: WF 7.6.10 on the same platform and databases,IE7

 
Posts: 2387 | Location: Amsterdam, the Netherlands | Registered: December 03, 2006Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic


Copyright © 1996-2020 Information Builders