Dividing a file.

[Vishwanath G N]

Hi All,

I have a file lets say with 990 records. I want to divide it into separate files with 100 records each and last few records in one file.

How can I do it using rexx.


Currently I am just reading the records in a stem with do loop I am segregating 100 records and writing them.


Is there any other simple way to do it?

[NicC]

Use DFSort

But if you really need to do it in Rexx:

Code: Select all

0 - read a record
1 - allocate first output file
2 - do while not eof
3 - Read record
4 - write record
5 - increment counter
6 - when counter = 100
     set counter to 0
     close current file
     open next file
end do while

is one way to do it. The way you are doing it is another and probably simpler.