Re: DDS WITH SELECT

Shannon,

you better reverse the code, and work with an omit:

A          R IMHISTF                   PFILE(IMHIST)
 * 
A          K ITNBR 
A          K HOUSE 
A          K TRNDT                     DESCEND 
 * 
A          O TCODE                     COMP(EQ 'CU')
A          O TCODE                     COMP(EQ 'PH')


That way, records with TCODE 'CU' or 'PH' are omitted.

What I think happens in your file, is that a record with 'CU' is selected, 
because it fits the "doesn't equal 'PH'" clause, and vice versa.

HTH,

Peter Colpaert
Application Developer
Massive - Kontich, Belgium
-----
Yoda of Borg are we.  Futile is resistance, assimilated will you be.
-----




Shannon.Wolf@xxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
29/07/2005 14:15
Please respond to RPG programming on the AS400 / iSeries

 
        To:     rpg400-l@xxxxxxxxxxxx
        cc: 
        Subject:        DDS WITH SELECT


In the following DDS I am trying to exclude records with certain 
transaction types.  To do this you'll see I put a select with a "COMP(NE 
'CU')".  When I look at the file or run the program that uses this DDS, I 
still get records with 'CU' and 'PH' transactions.  Am I forgetting 
something?
A          R IMHISTF                   PFILE(IMHIST)
 * 
A          K ITNBR 
A          K HOUSE 
A          K TRNDT                     DESCEND 
 * 
A          S TCODE                     COMP(NE 'CU')
A          S TCODE                     COMP(NE 'PH')