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]