Hi guys, something tricky:

I have a subheader field that relies on another field for its sort order. So, the data source looks like this:

FIELD1   FIELD2   FIELD3
------   ------   ----------------------
Q        3        This is 
Q        4        just made up
Q        5        fields for
R        1        use as
T        8        an example to
T        9        show the db
U        2        structure

Now, I need to print this report:

Subhead: R
use as

Subhead: U
structure

Subhead: Q
This is
just made up
fields for

Subhead: T
an example to
show the db

So, how can I effect a Sort on FST.FIELD2 on a BY FIELD1 report without having to do 2 passes to the db?

Thanks,
Anatess

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

Hi Ana,

A solution for you:

-SET &ECHO=ALL;
-* File anatess03.fex
-*
FILEDEF ANA DISK ANA.TXT
-RUN
-WRITE ANA Q        3        This is 
-WRITE ANA Q        4        just made up
-WRITE ANA Q        5        fields for
-WRITE ANA R        1        use as
-WRITE ANA T        8        an example to
-WRITE ANA T        9        show the db
-WRITE ANA U        2        structure
-RUN
EX -LINES 8 EDAPUT MASTER,ANA,C,MEM
FILENAME=ANA, SUFFIX=FIX
SEGNAME=ANA, SEGTYPE=S0
FIELDNAME=F1, ALIAS=F1, USAGE=A1, ACTUAL=A1, $
FIELDNAME=FX, ALIAS=FX, USAGE=A8, ACTUAL=A8, $
FIELDNAME=F2, ALIAS=F2, USAGE=I2, ACTUAL=A1, $
FIELDNAME=F0, ALIAS=F0, USAGE=A1, ACTUAL=A8, $
FIELDNAME=F3, ALIAS=F3, USAGE=A14, ACTUAL=A14, $
-RUN
TABLE FILE ANA
SUM COMPUTE SF2/I2=FST.F2; NOPRINT
BY TOTAL SF2 NOPRINT BY F1 NOPRINT
PRINT F3 AS ''
BY TOTAL SF2 NOPRINT BY F1 NOPRINT
ON F1 SUBHEAD
"Subhead: <F1 "
END
  

BRILLIANT!

Thanks, Danny.

ummm ... the arrangement of data in the illustration suggests that all you really need is

print field3
by field1
by field2

Jack,

quote:

print field3
by field1
by field2

You probably mean...

  
print field3 
by field2 
by field1

but then how do you insert the SUBHEAD?