Hi,
i think for you guys this is quiet easy. I want to make a distinct count on a table file. And i have only one column as result. I want to put this result into a &variable to use it for an output.

Regards

Christian

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

Consider HOLDing your selection and using &LINES or &RECORDS.

  
-SET &ECHO=ALL;
APP APPENDPATH IBISAMP
-RUN
TABLE FILE CAR
SUM
  CNT.DST.COUNTRY
ON TABLE SAVE
END
-RUN
-READ SAVE &CNTRY_CNT.I5.
-TYPE &CNTRY_CNT
-EXIT

Output:

  
ALPHANUMERIC RECORD NAMED  SAVE
 0 FIELDNAME                         ALIAS         FORMAT        LENGTH
 COUNTRY                           COUNTRY       I5              5
 COUNTRY                           COUNTRY       A10            10
 TOTAL                                                          15
 -READ SAVE &CNTRY_CNT.I5.
 -TYPE     5

quote:

-READ SAVE &CNTRY_CNT.I5.

One caveat: The length of the saved field may be 5 or 9, depending on SET COUNTWIDTH.

quote:

Originally posted by Doug:
Consider HOLDing your selection and using &LINES or &RECORDS.

More specifically, HOLD the list of distinct values, as in

 TABLE FILE CAR
 COUNT ENTRIES BY SEATS
 ON TABLE HOLD
 END

&LINES        =        3 <--
&RECORDS      =       18

If you just HOLD the count, &LINES will be one, while &RECORDS will be the number of records contributing to the result set, not the count of distinct values.

 TABLE FILE CAR
 WRITE CNT.DST.SEATS
 ON TABLE HOLD
 END

&LINES        =        1 <--
&RECORDS      =       18

Hi Tom,

looks great!! But i don't understand why webfocus knows that COUNTRY = CNTRY.
Strange!!

Regards

Christian

I don't even know why COUNTRY = CNTRY? What do you mean?

The example is doing a -READ(Dialogue Manager) and setting the ampere &CNTRY_CNT and the ampere has the value of the DISTINCT COUNT...

Jack, Never used COUNTWIDTH = ON; seems a waste, really:

  
-SET &ECHO=ALL;
APP APPENDPATH IBISAMP
-RUN
TABLE FILE CAR
SUM
  CNT.DST.SEATS/I11
ON TABLE SAVE
END
-RUN

-READ SAVE &CNTRY_CNT.I11.
-TYPE &CNTRY_CNT
-EXIT

J,

quote:

More specifically, HOLD the list of distinct values

I was just giving direction rather then a definitive answer. There's lots of ways to skin this cat.