dadlllink_file

このライブラリには、ASCII ファイルをソースサイトから対象サイトにコピーし、ASCII ファイルの圧縮と解凍を行うための関数が含まれています。

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 )

前 : 配列 (file.name, active.batl) の要素の数
file.name 配列内のファイル名はフルパス名が格納されています。
後 : 返値が true (<> 0) である場合、1 <= n <= no.files であるすべての n について、active.batl(n) が true (<> 0) ならば、
ローカルファイル名 file.name(n) が以下で置換されます。
do.compress = true ならば、圧縮されたバージョン
do.compress = false ならば、解凍されたバージョン
1 <= n <= no.files であるすべての n について、active.batl(n) が false ならば、
圧縮 (または解凍) は行われません。
返値: 圧縮 (または解凍) の対象となるファイルが 1 つでも圧縮できない (または解凍できない) 場合に false。
圧縮 (または解凍) されるすべてのファイルが正常に圧縮 (または解凍) された場合に true。
説明 : この関数は、ファイルの圧縮または解凍に使用されます。
圧縮または解凍されるファイルのうち、正常に圧縮または解凍されるものはありません。

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 )

前 : 配列 (source.file.name, target.file.name, active.batl) の要素の数 >= no.files
source.file.name および target.file.name のファイル名にはフルパス名が格納されています。
|N/a 1 <= n <= no.files の場合のすべてについて、
|N/a target.file.name(n) のディレクトリが存在します
後 : 返値が true (<> 0) である場合、
1 <= n <= no.files であるすべての n について、
isspace(source.file.name(n)) ではなく
 active.batl(n) が true (<> 0) であるならば、交換リンクの
ソースシステムからファイル source.file.name(n) が
ローカルファイル target.file.name(n) にコピーされます。
1 <= n <= no.files であるすべての n について、
isspace(source.file.name(n)) であるか、または active.batl(n) が false である場合、ファイルはコピーされません。
返値: 交換リンクが存在しないか、コピーされるファイルのうち少なくとも 1 つがコピー不可の場合に false。コピーされるファイルがすべて正常にコピーされた場合に true

説明 : この関数は、ソースシステムから対象システムにインポートするバッチがファイル (複数可) をコピーする際に使用されます。
以下の場合、ファイルはコピーされません。
- ソースサイトに、対応するエクスポートバッチ行が存在しない (source.file.name が空の場合など)
- インポートバッチ行が ｢無効｣ である