IDENTIFICATION DIVISION.
       PROGRAM-ID. STRIP.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN-FILE
               ASSIGN TO DYNAMIC IN-FILE-NAME
               ORGANIZATION IS LINE SEQUENTIAL.
           SELECT OUT-FILE
               ASSIGN TO DYNAMIC OUT-FILE-NAME
               ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
       FILE SECTION.
       FD  IN-FILE
           RECORD CONTAINS 256 CHARACTERS.
       01  IN-REC                      PIC X(256).

       FD  OUT-FILE
           RECORD CONTAINS 256 CHARACTERS.
       01  OUT-REC                     PIC X(256).

       WORKING-STORAGE SECTION.
       01  IN-FILE-NAME                PIC X(80).
       01  OUT-FILE-NAME               PIC X(80).

       01  SEARCH-TEXT                 PIC X(80).
       01  SEARCH-LEN                  PIC 9(3).

       01  EOF-SW                      PIC X     VALUE 'N'.
       01  TALLY-COUNT                 PIC 9(9).

       PROCEDURE DIVISION.
       MAIN-SECTION.
       MAIN-PARA.
           DISPLAY "ZOEK:"
           ACCEPT SEARCH-TEXT

           INSPECT SEARCH-TEXT
               TALLYING SEARCH-LEN FOR CHARACTERS BEFORE SPACE

           DISPLAY "INFILE:"
           ACCEPT IN-FILE-NAME

           DISPLAY "OUTFILE:"
           ACCEPT OUT-FILE-NAME

           OPEN INPUT  IN-FILE
                OUTPUT OUT-FILE

           PERFORM UNTIL EOF-SW = 'Y'
               READ IN-FILE
                   AT END
                       MOVE 'Y' TO EOF-SW
                   NOT AT END
                       MOVE 0 TO TALLY-COUNT

                       INSPECT IN-REC
                           TALLYING TALLY-COUNT
                           FOR ALL SEARCH-TEXT(1:SEARCH-LEN)

                       IF TALLY-COUNT > 0
                           MOVE IN-REC TO OUT-REC
                           WRITE OUT-REC
                       END-IF
               END-READ
           END-PERFORM

           CLOSE IN-FILE
                 OUT-FILE

           STOP RUN.