As a prototype, I am trying to rank cars in country based on user input.
If I start with this...

quote:

TABLE FILE CAR
PRINT
CAR
BY COUNTRY
ON TABLE
END

Of course, my ouptut will look like:
England jaguar
jenson
triumph
France peugeot
Italy alfa romeo
maserati
Japan datsun
toyota
W Germany audi
bmw

What I am trying to do is reorder the order of the countries so the one
inputted by the user would show up first, with the rest to follow after.

If the user inputted Italy, I like to see this order:

Italy alfa romeo
maserati
England jaguar
jenson
triumph
France peugeot
Japan datsun
toyota
W Germany audi
bmw

I am stuck...Can anyone help me make some progress?

Thanks!

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

-SET &CTRY = 'ITALY';

DEFINE FILE CAR
COUNTRYSORT/A11 = IF COUNTRY EQ '&CTRY' THEN '1' | COUNTRY ELSE '2' | COUNTRY;
END
TABLE FILE CAR
PRINT
CAR
BY COUNTRYSORT NOPRINT
BY COUNTRY
END

As this is user input, I would also have matched the case of the test.

-SET &CTRY = UPCASE(&CTRY.LENGTH,&CTRY,'A&CTRY.LENGTH');

COUNTRYSORT/I1 = IF UPCASE(10,COUNTRY,'A10') EQ '&CTRY' THEN 1 ELSE 2 ;

Thanks Francis

Sure.

-SET &CTRY = 'itAly';

-SET &CTRY = UPCASE(&CTRY.LENGTH, &CTRY, 'A&CTRY.LENGTH');

DEFINE FILE CAR
COUNTRYSORT/A1 = IF COUNTRY EQ '&CTRY' THEN '1'  ELSE '2';
END
TABLE FILE CAR
PRINT
CAR
BY COUNTRYSORT NOPRINT
BY COUNTRY
END