PRO GetStrDat, timbuf, sDate, len, h=h
;	------------------------------------------------------------
;+							31-Jul-91
;	NAME:
;		GetStrDat
;	Purpose:
;		Create a formatted string containning the date:
;		mn/dd/yr from integer format buffer.
;	CALLING SEQUENCE:
;		GetStrDat, timbuf, sDate, len, h=h
;	Input:
;		timbuf 	2-dimensional day array (days since 79):
;			timbuf(4:6, ndates)
;	Output:
;		stime	returned string listing with dates.
;		len 	length of string.
;	Keyword:
;		h 	header for date
;	History:
;		written 26-Mar-91 by GAL
;		31-July-91, added optional return header
;-
;	------------------------------------------------------------
;	ON_ERROR, 2 	;force a return to caller if error occurs

	t0 = STRING( timbuf(5,*), format='(i2.2)' )
	t1 = STRING( timbuf(4,*), format='(i2.2)' )
	t2 = STRING( timbuf(6,*), format='(i2.2)' )

	sDate = t0+'/'+t1+'/'+t2
	h = 'mm/dd/yy'
	len = 8

	RETURN
	END