When the dbget gets to the end of the data set (condition word = 2) then do:
000100
000200** Close Data Set **
000300 Call "dbclose" Using
000400 -BASE-ID,
000500 DS-
000600 MODE-2,
000700 DB-STATUS
000800 End-Call.
000900
This will reset the pointers so that the next call to dbget for this set will
be at the beginning of the data set.
HTH
This E-Mail & responses may be reviewed by BCBS NE security.
BCBS NE
2401 South 73rd Street
P.O.Box 241739
Omaha NE 68124-5739
Phone 402 392 4223 Fax 402 392 4158
E-Mail [log in to unmask]