Problem:

Is possible to join together three files into only one file?

Resolution:

Yes, using x"91" funtion 35.

Example program:

       01  result          pic x comp-x.

       01  function-code   pic x comp-x value 35.

       01  parameter.

           03  name-len   pic x comp-x.

           03  progname   pic x(99).

       procedure division.

       move "COPY a b c d" to progname

       move length of progname to name-len

       call x"91" using result

                        function-code

                        parameter

       if result = 0

         display "Concatenation successful"

       else

         display "Error : ", result

       end-if

       goback

       .

This program will concatenate three files called a, b and c into one single file called d.