Hallo,
was hälst Du von der Möglichkeit mit den Directory API's die Files im Verzeichnis zu lesen und dann die jeweilige Datei. Im Feld streamfile ist dann der Dateiname.
PHP-Code:
         ctl-opt main(main) dftactgrp(*no) option(*nounref);
      //------------------------------------------------------------------//
      //                                                                  //
      // Directory lesen                                                  //
      //                                                                  //
      //-----------------                                                 //
      // R.Ross 06.2017 *                                                 //
      //------------------------------------------------------------------//
      // Open-Directory                                                   //
      //------------------------------------------------------------------//

         dcl-pr opendir      pointer extproc(*dclcase);
                 dirname     pointer value options(*string);
         end-pr;

      //------------------------------------------------------------------//
      // Read-Directory                                                   //
      //------------------------------------------------------------------//

         dcl-pr readdir      pointer extproc(*dclcase);
                 dir_p       pointer value options(*string);
         end-pr;

      //------------------------------------------------------------------//
      // Close-Directory                                                  //
      //------------------------------------------------------------------//

         dcl-pr closedir     int(10) extproc(*dclcase);
                 dirname     pointer value options(*string);
         end-pr;

      //------------------------------------------------------------------//
      // Array Directory Data                                             //
      //------------------------------------------------------------------//

         dcl-s   dirent_p    pointer;                 // DirectoryEntryPtr

         dcl-ds  dsdirent    qualified based(dirent_p);
                  *n         char(16);
                  *n         uns(10);
                  fileno     uns(10);
                  reclen     uns(10);
                  *n         int(10);
                  *n         char(08);
                  nlsinfo    char(12);
                  nlsccsid   int(10)  overlay(nlsinfo:01);
                  nlsentry   char(02) overlay(nlsinfo:05);
                  nlslang    char(03) overlay(nlsinfo:07);
                  nlsreser   char(03) overlay(nlsinfo:10);
                  namelen    uns(10);
                  name       char(640);
         end-ds;

      //------------------------------------------------------------------//
      // Main                                                             //
      //------------------------------------------------------------------//
         dcl-proc main;

         dcl-s   directory   varchar(256);            // Directory
         dcl-s   file        varchar(256);            // File
         dcl-s   streamfile  varchar(256);            // StreamFile
         dcl-s   dir_p       pointer;                 // Directory-Pointer

           directory = '/home/import/xml';

           dir_p = opendir(directory);                // Open Directory

           if dir_p = *null;                          // Directory not exist
              return;
           endif;

           dou dirent_p = *null;                      // Loop ReadDir
             dirent_p = readdir(dir_p);               // ReadDir
             if dirent_p <> *null;                    // DirEntry exist
                file = %str(%addr(dsdirent.name));    // FileName
                if file <> '.' and file <> '..';
                   streamfile = %trim(directory) + '/' + %trim(file);
                endif;
             endif;
           enddo;

           closedir(directory);                       // Close Directory

         end-proc;
      //------------------------------------------------------------------// 
Herzliche Grüße
Rainer Ross