Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- request

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
request
Synopsis
/infobank/programs/util/request/request.for
Description
  Program to generate a request form.

       
AUTHOR
  Clint Steele   1/22/2002


    
Reads
      read (90, '(q,a)') WhoLength, Who(1:WhoLength)
          read (90, '(q,a)', end = 97) TextLength, Text(1:TextLength)
      read (5, '(q,a)', end = 99) FileNameLength, 
     *      FileName(1:FileNameLength)
          read (5, '(q,a)', end = 98) TextLength, Text(1:TextLength)
          read (90, '(q,a)', end = 98) TextLength, Text(1:TextLength)
          read (5, '(q,a)', end = 98) TextLength, Text(1:TextLength)
          read (5, '(q,a)', end = 98) TextLength, Text(1:TextLength)
          read (5, '(q,a)', end = 98) TextLength, Text(1:TextLength)
              read (5, '(q,a)', end = 98) TextLength, Text(1:TextLength)
              read (5, '(q,a)', end = 98) TextLength, Text(1:TextLength)
Writes
          write (91, '(a,/)') 'Requestor -- '//Text(1:TextLength)
          write (91, '(a,/)') 'Date request made -- '//
     *                        Text(1:TextLength)
          write (91, '(a,/)') 'Date required -- '//Text(1:TextLength)
          write (91, '(a,/)') 'Est. time required -- '//
     *        Text(1:TextLength)
          write (91, '(a,/)') 'Date delivered -- '
          write (91, '(a,/)') 'Actual time required -- '
          write (91, '(a,/)') 'Type of Product/Purpose -- '//
     *                        Text(1:TextLength)
                      write (91, '(a)') 'Request Description -- '//
     *                                  Text(1:TextLength)
                      write (91, '(2x,a)') Text(1:TextLength)
                      write (91, '(a)') 'Notes -- '//
     *                    Text(1:TextLength)
                      write (91, '(2x,a)') Text(1:TextLength) 
Opens
      open (unit   = 90,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old',
     *      name   = '/infobank/tmp/request.who.temp')
      open (unit   = 90,
     *      access = 'sequential',
     *      form   = 'formatted',
     *      status = 'old',
     *      name   = '/infobank/tmp/requests.'//
     *               Who(1:WhoLength)//'.temp')
          open (unit   = 91,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'new',
     *          name   = '/task/requests/requests/'//
     *                   Who(1:WhoLength)//'.'//
     *                   FileName(1:FileNameLength))
          open (unit   = 90,
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'old',
     *          name   = '/infobank/tmp/request.'//
     *                   Who(1:WhoLength)//'.date.temp')
Calls
      call system ('whoami > /infobank/tmp/request.who.tem
      call system ('/bin/ls -1 /task/requests/requests/ | '//
     *    'grep '//Who(1:WhoLength)//' > 
     *    '/infobank/tmp/requests.'//Who(1:WhoLength)//'.temp')
          call system ('/bin/more '//
     *        '/task/requests/requests/'//
     *         Who(1:WhoLength)//'.'//
     *         FileName(1:FileNameLength))
          call yesno ('Y[N]', Response)
              call system ('/bin/vi '//
     *         '/task/requests/requests/'//
     *         Who(1:WhoLength)//'.'//
     *         FileName(1:FileNameLength))
              call system ('/bin/more /task/requests/requests/'//
     *            Who(1:WhoLength)//'.'//
     *            FileName(1:FileNameLength))
          call system ('/bin/date > /infobank/tmp/request.
     *         Who(1:WhoLength)//'.date.temp')
          call system ('/bin/more /task/requests/requests/'//
     *         Who(1:WhoLength)//'.'//
     *         FileName(1:FileNameLength))

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/util/request/request.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:37:05 PDT 2013  (chd)