Re: [Tiny-cobol-users] Dynamic assign of a file

[David E. <de...@ar...>]

At 11:19 AM 23/07/02 +0200, Joel Van Boeckel wrote:

> SELECT  FLUP-FILE
>        ASSIGN TO "/tmp/FFLUP"
>
> This select statement assigns a file to a real name file.
> Is it possible, on Linux systems, to link this file dynamically, for
> instance by mean of an environment variable exported before execution.

The 'EXTERNAL' clause in the 'SELECT' statement can be used to relate
internal to external filenames at run time, by using environment variables.

The syntax is a follows.
SELECT ... ASSIGN TO EXTERNAL { variable | literal }

Example (Win32):

SET FILENAMEOUT=C:\somepath\somefile
....
SELECT FILE-OUT ASSIGN TO EXTERNAL "FILENAMEOUT" .

In this case the stored value of the literal or variable is used as an
environment variable which is used to determined the actual filename.

If no environment variable is found or is empty, then the filename defaults
to the value stored in the literal or variable.

A working example can be found 'test19b.cob' in the 'test.code' directory.

Hope this helps.




David Essex