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
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/request.who.temp')
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/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 = '/tmp/request.'//
* Who(1:WhoLength)//'.date.temp')
|
| 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)
|
| Calls |
call system ('whoami > /tmp/request.who.temp')
call system ('/bin/ls -1 /task/requests/requests/ | '//
* 'grep '//Who(1:WhoLength)//' > '//
* '/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 > /tmp/request.'//
* Who(1:WhoLength)//'.date.temp')
call system ('/bin/more /task/requests/requests/'//
* Who(1:WhoLength)//'.'//
* FileName(1:FileNameLength))
|
|
