Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- barcodes

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
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
Opens
Calls
      call openem (1,-1)

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo 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: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:39 PDT 2013  (chd)