Expanded Description
| Topic |
Description |
| Name |
section111 |
| Synopsis |
/infobank/programs/html/makefmeta/section111.for |
| Description |
Subroutine to output DATA SET CREDIT formal metadata.
|
| Reads |
read (TempUnit, '(t10,q,a)', end = 98)
* NameLength(NameCount),
* Name(NameCount)(1:NameLength(NameCount))
|
| Writes |
write (OutUnit, '(4x,a)') 'Data_Set_Credit:'
write (OutUnit, '(27x,a)')
* Name(Loop)(1:NameLength(Loop))//');'
write (OutUnit, '(27x,a)')
* Name(NameCount)(1:NameLength(NameCount))//')'
|
| Opens |
open (unit = TempUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
* '.crew')
|
| Calls |
|
|
