How do I get a list of files on disc into JSL?

[Kyle Hamar <kyle.hamar@gmail.com>]

I would like to run a series of test on some local data files. The
scheduling part is easy (attached below.)

If all my files are in one location (ie. directory) I would like to
automate loading the list of files to be acted upon. Can this be done
in JSL? My goal is to replace the hard-coded "files = {list}" with a
routine to access a given directory and act upon every file at that
location.

How do I list files in a directory from JMP?

Kyle

================================

// With a given list of files:
files = {       "first",
                "second",
                "third",
                "fourth"};

PeriodicCheck = expr(    write("Checking Now\!r");
                                stamp = Format(today(),"yyyymmdd");
                                write(stamp||" "||Format(today(),"h:m:s")||" ");
                                write("Scheduling all tasks listed\!r");
                                schedule(5, task1);
                                schedule(10, task2);
                                //add more tasks here
                                schedule(20, PeriodicCheck)     );

task1 = expr( ); // ommitted for brevity

task2 = expr (
                        for (r=1, r<=n items(files), r++,
                                Write(r,". Working on file: "||files[r]);
                                Write("\!r"); //new line
                                );
                        write("task 2 completed at 
"||Format(today(),"h:m:s")||" \!r");
                        write("=================================\!r \!r");      
                        );
PeriodicCheck;