Coastal & Marine Geology InfoBank

USGS InfoBank program -- barcodes


InfoBank Programs:	by Name by Data Type General Tools GIS Plotting Web USGS Disclaimer InfoBank Programs Boothill

**Expanded description**
Topic	Description
Name	barcodes
Synopsis	/infobank/programs/dbase/barcodes/barcodes.for
Description	Program to update holdings databases based on new bar code reader information.
Author	Clint Steele 5/13/2005
Reads	read (90, '(q,a)', end=99) * BarLineLength, BarLine(1:BarLineLength) read (BarLine(1:Slash1-1), '(i)') Day read (BarLine(Slash1+1:Slash2-1), '(i)') Month read (BarLine(Slash2+1:Comma1-1), '(i)') Year read (BarLine(Comma2+1:BarLineLength), '(i)', err = 2) * BarCode
Writes	write (91, '(i8.8,a,i8.8,a,i2.2,a,i2.2,a,i4.4)') * ItemNumber,char(9), * ContainerNumber,char(9), * Day,'/',Month,'/',Year
Calls	call openem (1,-1)

Accessibility FOIA Privacy Policies and Notices

U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/dbase/barcodes/barcodes.doc.html
Page Contact Information: Clint Steele
Page Last Modified: Sat Jul 23 03:15:42 PDT 2005 (wcs)

Accessibility FOIA Privacy Policies and Notices
U.S. Department of the Interior \| U.S. Geological Survey URL: http://walrus.wr.usgs.gov/infobank/programs/dbase/barcodes/barcodes.doc.html Page Contact Information: Clint Steele Page Last Modified: Sat Jul 23 03:15:42 PDT 2005 (wcs)