1: /* $Header$ */ 2: 3: /* 4: * Author: Peter J. Nicklin 5: */ 6: 7: /* 8: * pbclear() clears the current database buffer CURPBUF. 9: */ 10: extern char *CURPBUF; /* current database buffer */ 11: extern char *FP; /* next non-key field */ 12: extern char *KP; /* next key field */ 13: 14: void 15: pbclear() 16: { 17: CURPBUF[0] = '\0'; 18: FP = KP = CURPBUF; 19: }