Expanded description
| Topic |
Description |
| Name |
fieldplancheck |
| Synopsis |
/infobank/programs/html/fieldplancheck/fieldplancheck.for |
| Description |
Program to generate a MOPS-like field schedule
based on InfoBank field activity information.
|
| Author |
Clint Steele 8/12/2005
|
| Opens |
open (unit = 90,
* access = "sequential",
* form = "formatted",
* status = "unknown",
* name = "/tmp/fieldplancheck.04s.temp")
open (unit = 91,
* access = "sequential",
* form = "formatted",
* status = "unknown",
* name = "/tmp/fieldplancheck.04ids.temp")
open (unit = 90,
* access = "sequential",
* form = "formatted",
* status = "unknown",
* name = "/tmp/fieldplancheck.05s.temp")
open (unit = 91,
* access = "sequential",
* form = "formatted",
* status = "unknown",
* name = "/tmp/fieldplancheck.05ids.temp")
open (unit = 90,
* access = "sequential",
* form = "formatted",
* status = "unknown",
* name = "/tmp/fieldplancheck.04ids.temp")
open (unit = 90,
* access = "sequential",
* form = "formatted",
* status = "unknown",
* name = "/tmp/fieldplancheck.05ids.temp")
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/fieldplancheck.dates.temp')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/fieldplancheck.all.temp')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
* '.chief')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
* '.project')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
* '.platform')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
* '.activitytype')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//
* ID(1:1)//'/'//
* ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
* '.organization')
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 96)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 95)
* ALineLength, ALine(1:ALineLength)
read (92, '(t10,q,a)')
* ChiefLength, Chief(1:ChiefLength)
read (92, '(t10,q,a)')
* ProjectLength, Project(1:ProjectLength)
read (92, '(t10,q,a)')
* PlatformLength, Platform(1:PlatformLength)
read (92, '(t10,q,a)')
* ActivityTypeLength, ActivityType(1:ActivityTypeLength)
read (92, '(t10,q,a)')
* OrganizationLength,
* Organization(1:OrganizationLength)
|
| Writes |
write (91, '(a)') ALine(67:ALineLength-1)
write (91, '(a)') ALine(67:ALineLength-1)
write (ALine, '(1024x)')
write (ALine, '(1024x)')
write (ALine, '(1024x)')
write (Chief, '(1024x)')
write (Project, '(1024x)')
write (Platform, '(1024x)')
write (ActivityType, '(1024x)')
write (Organization, '(1024x)')
write (91, '(a)')
* char(9)//Chief(1:ChiefLength)//char(9)//char(9)//
* Project(1:ProjectLength)//char(9)//char(9)//
|
| Calls |
call system ("/bin/ls -ld /infobank/?/*04*/ > "//
* "/tmp/fieldplancheck.04s.temp")
call system ("/bin/ls -ld /infobank/?/*05*/ > "//
* "/tmp/fieldplancheck.05s.temp")
call changecase ('SMALLS', ALine(1:ALineLength))
call stringlen (ALine, ALineLength)
call system ('/bin/cat /infobank/'//
* ALine(1:1)//'/'//
* ALine(1:ALineLength)//'/meta/'//
* ALine(1:1)//'-'//ALine(2:2)//'-'//
* ALine(3:4)//'-'//ALine(5:6)//'.dates >> '//
* '/tmp/fieldplancheck.04dates_all.temp')
call system ('/bin/cat /infobank/'//
* ALine(1:1)//'/'//
* ALine(1:ALineLength)//'/meta/'//
* ALine(1:1)//'-'//ALine(2:3)//'-'//
* ALine(4:5)//'-'//ALine(6:7)//'.dates >> '//
* '/tmp/fieldplancheck.04dates_all.temp')
call changecase ('SMALLS',ALine(1:ALineLength))
call stringlen (ALine, ALineLength)
call system ('/bin/cat /infobank/'//
* ALine(1:1)//'/'//
* ALine(1:ALineLength)//'/meta/'//
* ALine(1:1)//'-'//ALine(2:2)//'-'//
* ALine(3:4)//'-'//ALine(5:6)//'.dates >> '//
* '/tmp/fieldplancheck.05dates_all.temp')
call system ('/bin/cat /infobank/'//
* ALine(1:1)//'/'//
* ALine(1:ALineLength)//'/meta/'//
* ALine(1:1)//'-'//ALine(2:3)//'-'//
* ALine(4:5)//'-'//ALine(6:7)//'.dates >> '//
* '/tmp/fieldplancheck.05dates_all.temp')
call system ('/bin/grep " 10/" '//
* '/tmp/fieldplancheck.04dates_all.temp > '//
* '/tmp/fieldplancheck.04dates_10.temp')
call system ('/bin/grep " 11/" '//
* '/tmp/fieldplancheck.04dates_all.temp > '//
* '/tmp/fieldplancheck.04dates_11.temp')
call system ('/bin/grep " 12/" '//
* '/tmp/fieldplancheck.04dates_all.temp > '//
* '/tmp/fieldplancheck.04dates_12.temp')
call system ('/bin/cat '//
* '/tmp/fieldplancheck.04dates_10.temp '//
* '/tmp/fieldplancheck.04dates_11.temp '//
* '/tmp/fieldplancheck.04dates_12.temp '//
* ' | /bin/sort -k 2,2 -u > '//
* '/tmp/fieldplancheck.04dates.temp')
call system ('/bin/sort -k 2,2 -u '//
* '/tmp/fieldplancheck.05dates_all.temp > '//
* '/tmp/fieldplancheck.05dates.temp')
call system ('/bin/rm /tmp/fieldplancheck.*dates_*.temp')
call system ('/bin/cat /tmp/fieldplancheck.??dates.temp > '//
* '/tmp/fieldplancheck.dates.temp')
call system ('/bin/rm /tmp/fieldplancheck.*ids.temp')
call system ('/bin/rm /tmp/fieldplancheck.??dates.temp')
call stringlen (ID, IDLength)
call changecase ('SMALLS', ID(1:IDLength))
call changecase ('CAPITALS', LongID)
call system ('/bin/grep -v Woods '//
* '/tmp/fieldplancheck.all.temp > '//
* '/infobank/programs/html/fieldplancheck/'//
* 'fieldplancheck.results')
call system ('/bin/rm /tmp/fieldplancheck.all.temp')
|
|
