Expanded description
| Topic |
Description |
| Name |
emptytail |
| Synopsis |
/infobank/programs/dbase/validator/emptytail.for |
| Description |
Subroutine to verify that the last record of a file is not blank.
|
| Opens |
open (unit = TempUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/tmp/validator.tmp')
|
| Reads |
read (TempUnit, '(a1024)', end=99) ALine
|
| Writes |
write (ALine, '(1024x)')
write (Message, '(a,a,a)')
* InFile(1:InFileLength), ' *** ',
* 'Remove blank line at end of file'
|
| Calls |
call system ('tail -1 '//InFile(1:InFileLength)//
* ' > /tmp/validator.tmp')
call stringlen (ALine, ALineLength)
|
|
