Expanded description
| Topic |
Description |
| Name |
tabber |
| Synopsis |
/infobank/programs/refmt/tabber/tabber.for |
| Description |
Program to clean up and convert '---' delimited files
to tab delimited.
|
| Author |
Clint Steele, 3/14/2000
|
| Opens |
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/tabber.data.tmp')
open (unit = 94,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/tabber.data.tmp')
|
| Reads |
read (90, '(q,a)', end=99)
* InLength, InLine(1:InLength)
read (94, '(q,a)', end = 999)
* InLength, InLine(1:InLength)
|
| Writes |
write (92, '(a)') OutLine(1:OutLength)
write (OutLine, '(1024x)')
write (92, '(a)') OutLine(1:OutLength)
write (91, 20) (Header(Count)(1:HeadLength(Count)),
* char(9), Count = 1, HeaderCount)
write (91, 20)
* (HeadLine(Count)(1:HeadLength(Count)),
* char(9), Count = 1, HeaderCount)
write (HeadLine(Count), '(1024x)')
write (91, 20)
* (HeadLine(Count)(1:HeadLength(Count)),
* char(9), Count = 1, HeaderCount)
|
| Calls |
call openem (1, -1)
call stringlen (InLine(1:InLength), InLength)
call stringlen (OutLine(1:OutLength), OutLength)
call stringlen (OutLine(1:OutLength), OutLength)
call stringlen (TempHeader(1:Dash-1),
* HeaderLength)
call stringlen (OutLine(1:OutLength), OutLength)
call stringlen (Header(Count), HeadLength(Count))
call stringlen (InLine(1:InLength), InLength)
call stringlen (TempHeader(1:Dash-1),
* HeaderLength)
call stringlen (InLine(Dash+4:InLength),
* HeadLength(Count))
|
|
