I think you're looking at a program now.
PERFORM 'SELECT FILENAME BY PART BY.DSND DATE'
FIRST = 1
LOOP WHILE READNEXT ID DO
GOSUB READ.RECORD
IF ID = PREVIOUS.ID THEN CONTINUE
GOSUB OUTPUT.THIS.OLDEST.RECORD
PREVIOUS.ID = ID
REPEAT
STOP
READ.RECORD:
READ REC FROM FILENAME, ID ELSE {what
Ok. In that case do it thusly:
LIST file.name BY PART PART MAX DATE DET.SUP
Gordon J. Glorfield
Sr. Applications Developer
MAMSI (A UnitedHealth Company)
301-360-8839
[EMAIL PROTECTED] wrote on 10/06/2005 02:03:12 PM:
> Sorry,
> My first post on this had an example that was a little ambiguous
It looks like date and part are multi-valued. You can create a dictionary
that takes the MAX on the date field. Sort my descending and use SAMPLE 1
as others have indicated. This should give you just the ID of 1249.
You can also defined this new data reference on-the-fly in the retrieve
stateme