Hi,

I'm unsure how to get data in a table from one 'format' (rows) to related columns using FOCUS.
To illustrate what I need:

I have a table with the following data:
comp SuperComp
1 1
4 1
4 4
10 4
11 11
12 11

I need all related items to be next to each other in columns. so, 1 is related to 4 and 4 is related to 10 - the output I need is then:

NewComp1 NewComp2 NewComp3
1 4 10
11 12 .

I have tried every way I can think of to get the data in this format with no luck. Any ideas would be most appreciated!

Jinx.

This message has been edited. Last edited by: Jinx,

Two caveats:
1. This code assumes the data is already sorted by columns SUPERCOMP and COMP.
2. Data relationships had to be assumed based on the data provided, since the relationships were not really explained.

APP FILEDEF TESTMAS DISK testdata.mas
-RUN
-WRITE TESTMAS FILENAME=TESTDATA,SUFFIX=FIX
-WRITE TESTMAS SEGNAME=TESTDATA,SEGTYPE=S0
-WRITE TESTMAS FIELDNAME=COMP      ,ALIAS=COMP      ,FORMAT=I2 ,ACTUAL=A2 ,$
-WRITE TESTMAS FIELDNAME=SUPERCOMP ,ALIAS=SUPERCOMP ,FORMAT=I2 ,ACTUAL=A2 ,$
-*
APP FILEDEF TESTDATA DISK testdata.ftm
-RUN
-WRITE TESTDATA 0101
-WRITE TESTDATA 0401
-WRITE TESTDATA 0404
-WRITE TESTDATA 1004
-WRITE TESTDATA 1111
-WRITE TESTDATA 1211
-RUN
-*
DEFINE FILE TESTDATA
 BYSORT    /I2 = IF SUPERCOMP NE LAST SUPERCOMP AND SUPERCOMP NE LAST COMP THEN (BYSORT + 1) ELSE BYSORT ;
 ACROSSSORT/I2 = IF BYSORT NE LAST BYSORT THEN 1 ELSE IF COMP NE LAST COMP THEN (ACROSSSORT + 1) ELSE ACROSSSORT ;
END
-*
TABLE FILE TESTDATA
 SUM    FST.COMP
 BY     BYSORT     NOPRINT
 ACROSS ACROSSSORT NOPRINT
END

This message has been edited. Last edited by: Dan Satchell,

Thanks for the suggestion. It does help me somewhat.

Jinx.