dadlllink_file

This library contains functions for copying ASCII files from the source site to the target site and for compressing and decompressing ASCII files.

Note on the function specifications: "iff" means "if and only if".

function extern long lfile.compress.or.uncompress.files(
                long no.files,
                const domain daxch.path file.name() fixed,
                const long active.batl(),
                long do.compress )

pre   : The number of elements of the arrays(file.name, active.batl)
        Filenames in file.name array contain the full path name
post  : If return then for all 1 <= n <= no.files where active.batl(n):
        the local file file.name(n) has been replaced by:
                if do.compress = true: its compressed version
                if do.compress = false: its uncompressed version
        For all 1 <= n <= no.files where not active.batl(n):
        no (un)compress action has been done
return: False if at least one file to be (un)compressed could not be
        (un)compressed;
                true if all files to be (un)compressed have been
                (un)compressed successfully.
desc  : This funcion is used to compress or uncompress the files.
        No file has to be (un)compressed have been (un)compressed
        sucessfully.

function extern long lfile.retrieve.files(
                domain daxch.link link,
                long no.files,
                const domain daxch.path source.file.name() fixed,
                const domain daxch.path target.file.name() fixed,
                const long active.batl(),
                domain daxch.comp startup.company )

pre   : The number of elements of the arrays (source.file.name,
        target.file.name, active.batl) >= no.files
        Filenames in source.file.name and target.file.name include
        the full path name.
|N/a            For all 1 <= n <= no.files the directory of the
|N/a            target.file.name(n) exists
post  : If return then for all 1 <= n <= no.files where not
        isspace(source.file.name(n)) and active.batl(n):
        the file source.file.name(n) from the source system of
        the exchange link ha sbeen copied to a local file
        target.file.name(n).
For all 1 <= n <= no.files where isspace(source.file.name(n))
        or not active.batl(n): no file has been copied
return: False if the exchange link does not exist or at least one file
                to be copied could not be copied;
                True if all fiels to be copied have been copied
                successfully

desc  : This function is used to copy the files for a batch to import
        from the source system to the target system.
        No file has been copied if:
        - there is no corresponding export batch line at the source
          site (this is the case if the source.file.name is empty), or
        - the import batch line is inactive.