Unstring

Hi,

I would like to unstring a text file,but there is one problem on my side.
There are no delimiters on the file, the fields are continuous
ex:
202510152352000015465652
first 8 bytes - date
second 4 bytes - time
last 12 bytes are the size

thank you, best regards

Hi Carl

If the input record has a fixed layout then you don't need to use Unstring.
Instead you can just use a basic variable declaration to split them up:

IDENTIFICATION DIVISION.
PROGRAM-ID. "DATA".

DATA DIVISION.
  WORKING-STORAGE SECTION.
    01  WS-INP         PIC X(24) value "202510152352000015465652".
    01  WS-OUT-REC.
       05  WS-OUT-DATE       PIC X(8).
       05  WS-OUT-TIME        PIC X(4).
       05  WS-OUT-SIZE        PIC X(12).

PROCEDURE DIVISION.

     MOVE WS-INP TO WS-OUT-REC
     DISPLAY "WS-OUT-DATE: " WS-OUT-DATE
     DISPLAY "WS-OUT-TIME: " WS-OUT-TIME
     DISPLAY "WS-OUT-SIZE: " WS-OUT-SIZE

STOP RUN.

Output:
WS-OUT-DATE: 20251015
WS-OUT-TIME: 2352
WS-OUT-SIZE: 000015465652

This is just an example to show it being split up into the individual fields.