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

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.

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

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.

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?'

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.

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.