GREEN  ORANGE  PURPLE 
LOW     .      STEVE   . 
LOW     .      .       SALLY 
LOW     .      .       HARRIET 
LOW     COSMO  .       . 
MEDIUM .       REG     . 
MEDIUM FRANZ   .       . 
HIGH   .       JACK    . 
HIGH   .       .       JILL 
HIGH   SUZIE   .       . 
HIGH   MARY    .       . 

       GREEN   ORANGE  PURPLE 
LOW    COSMO   STEVE   SALLY 
LOW    .       .       HARRIET 
MEDIUM FRANZ   REG     . 
HIGH   SUZIE   JACK    JILL 
HIGH   MARY    .       . 

SET ASNAMES     = ON
SET HOLDLIST    = PRINTONLY
SET HOLDFORMAT  = ALPHA
SET PAGE        = NOLEAD
-RUN

-*-- Create the master for PEOPLE ------------------------------------
APP FI DATAMAST DISK PEOPLE.MAS
-RUN

-WRITE DATAMAST FILE=PEOPLE, SUFFIX=FIX, $
-WRITE DATAMAST SEGNAME=SEG1, SEGTYPE=S0, $
-WRITE DATAMAST   FIELD=RISK  , ALIAS=E01, USAGE=A8, ACTUAL=A08, $
-WRITE DATAMAST   FIELD=COLOUR, ALIAS=E02, USAGE=A8, ACTUAL=A08, $
-WRITE DATAMAST   FIELD=NAME  , ALIAS=E03, USAGE=A8, ACTUAL=A08, $

-*-- Create the data file for PEOPLE ---------------------------------
FILEDEF PEOPLE DISK PEOPLE.FTM
-RUN
-*            123456781234567812345678
-WRITE PEOPLE HIGH    ORANGE  JACK
-WRITE PEOPLE HIGH    PURPLE  JILL
-WRITE PEOPLE HIGH    GREEN   SUZIE
-WRITE PEOPLE HIGH    GREEN   MARY
-WRITE PEOPLE MEDIUM  ORANGE  REG
-WRITE PEOPLE MEDIUM  GREEN   FRANZ
-WRITE PEOPLE LOW     ORANGE  STEVE
-WRITE PEOPLE LOW     PURPLE  SALLY
-WRITE PEOPLE LOW     PURPLE  HARRIET
-WRITE PEOPLE LOW     GREEN   COSMO

-*-- Create the Matrix Report for PEOPLE -----------------------------
TABLE FILE PEOPLE
PRINT
NAME
ACROSS COLOUR AS ''
BY RISK AS ''
ROWS
'LOW' OVER
'MEDIUM' OVER
'HIGH'
END
-RUN

  
DEFINE FILE PEOPLE
 KEY/A16=RISK | COLOUR ;
END
-* generate LIST=relative line number of name, within Colour (column) and Risk value (block of rows).
TABLE FILE PEOPLE
  LIST NAME RISK COLOUR
    BY KEY NOPRINT
    BY NAME NOPRINT
  ON TABLE HOLD
END

TABLE FILE HOLD
  WRITE NAME
  ACROSS COLOUR AS ''
  BY RISK
    ROWS 'LOW' OVER 'MEDIUM' OVER 'HIGH'
  BY LIST NOPRINT
END

        GREEN      ORANGE     PURPLE 
LOW     COSMO           STEVE HARRIET   SALLY 
MEDIUM  FRANZ       REG         
HIGH    MARY SUZIE JACK       JILL   

quote:

Yes Jack, this is exactly what I said.

TABLE FILE PEOPLE
WRITE NAME
OVER      RISK
OVER      COLOUR
OVER      COMPUTE LIST/I5= IF RISK EQ LAST RISK AND COLOUR EQ LAST COLOUR THEN LAST LIST + 1 ELSE 1;
  BY RISK
    ROWS 'LOW' OVER 'MEDIUM' OVER 'HIGH'
  BY TOTAL LIST NOPRINT
  ACROSS COLOUR AS ''
END