Long filenames for txt files fail

[Petri]

(Sorry for cross-posting, but this is really an important & urgent thing!)

In a very specific system for a client, I need to generate a series of text files, automatically named.

The syntax & circumstances may result in quite long names and on the Mac OS9 platform (my development platform), I realise that they exceed the maximum allowed length.

Unfortunately, the same seems to be the case on the Windows platform (the client's platform.) When the name string exceeds the Mac filename limitation, export fails.

Is anyone on Windows kind enough to run this script and report how many 'abc's they get? This is really puzzling!

PROCEDURE test;

VAR

i, n : INTEGER;

output, fName, addition : STRING;

BEGIN

PUTFILE('Data set name', GETFNAME, output);

addition := ' abc';

FOR i := 1 TO 10 DO BEGIN

REWRITE(output);

output := CONCAT(output, addition);

WRITELN(i);

CLOSE(output);

END;

END;

RUN(test);

TIA!

[Petri]

Answer received, but the problem still has not been solved. There is something strange in this: the test script works, but in the real thing, long file names still fail.