I use a slightly different Data Description.  Perhaps it works better?  All The empty Fillers are missing and the usage is COMP-5

      01 entry-data.

          10 entry-data-attribute PIC X(4) COMP-5.

          10 entry-data-date-stamp.

              20 stamp-year   PIC X(4) COMP-5.

              20 stamp-month  PIC X(2) COMP-5.

              20 stamp-day    PIC X(2) COMP-5.

              20 stamp-hour   PIC X(2) COMP-5.

              20 stamp-minute PIC X(2) COMP-5.

              20 stamp-sec    PIC X(2) COMP-5.

              20 stamp-msec   PIC X(2) COMP-5.

              20 stamp-dst    PIC X    COMP-5.

              20 stamp-size   PIC X(8) COMP-5.

          10 entry-data-name.

              20 name-length  PIC X(2) COMP-5 value 50.

              20 name-text.

                21 F-MES      PIC XXX.

                21 F-FILLER   pic x(47).

Regards Rolf

tHE ATTACHED PROGRAM WORKS OK.  you must consider:

The yaer is the 4 digit year of the filedate minus 1900

The Month is a value 0 - 11  0= January

I recomend to look at the Help for the CBL_DIR_SCAN  there are explained the values for the Date-Stamp

The attributes must be analyzed by BIT values

If I can help you, please let me kow.

Rolf

Thank you very much, Rolf.

I have i not seen it in the Help - Sorry.