Problem:

I would like to split my file into files . The split is defined by the value of one field

Resolution:

This is an example :

The key of the split is the fifth character.

The ouput files are sorted with the key that is defined as the first character

SORT FIELDS(1,1,CH,A) RECORD (F 20)

        USE fileabc.dat

        OUTFIL

  INCLUDE=(5,1,CH,EQ,C'A')

          GIVE filea.dat RECORD (F 20)

        OUTFIL

  INCLUDE=(5,1,CH,EQ,C'B')

          GIVE fileb.dat RECORD (F 20)

        OUTFIL

  INCLUDE=(5,1,CH,EQ,C'W')

          GIVE filew.dat RECORD (F 20)