You can declare a file global.  I think the syntax is
FD filename EXTERNAL.
You can also use HP intrinsics to do I/O and you can pass the file
descriptors.
i.e. fopen/hpfopen, fwrite, etc.

----- Original Message -----
From: "Tracy Pierce" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Thursday, January 17, 2002 4:34 PM
Subject: [HP3000-L] file handling in recursive subpgm?


> I have a little program TREE which calls itself to an unknown depth; each
of
> these must be able to write to a shared file.  Cobol's the only available
> language, and I can find no mechanism for passing a file handle (other
than
> "BY CONTENT", which roughly says 'useless' (31500-900001 p 11-21 -22)).
> DISPLAY works fine, but I actually want to put the output places other
than
> on the terminal screen.  I've tried :RUN TREEcaller > tempfile, which
> basically works, but I need 3 files - $stdin, $stdlist, and an output
file.
>
> Any ideas?
>
> Tracy Pierce
>
> :RUN TREETEST.OBJ;XL="*XL"
> Enter TREE to display:A
> +B
> |+C
> ||+E
> || +G
> || +H
> || |+I
> || |+J
> || | +K
> || | +L
> || +Q
> |+D
> +E
> |+G
> |+H
> ||+I
> ||+J
> || +K
> || +L
> |+Q
> +F
>  +E
>   +G
>   +H
>   |+I
>   |+J
>   | +K
>   | +L
>   +Q
> Enter TREE to display:A<<CONTROL-Y>>
> (Q)uit, (E)dit settings, (R)esume?:Q
> :
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *