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

SET PASS = !@#$%