Look up PARSE function of DFSORT in the 'DFSORT Application Programming Guide'.
Few assumptions before the solution, since you have not specified the length of the 'number' that can appear before 'FOR', I have assumed that there can be 50 characters at maximum before 'FOR' appears. Next, you have not specified if the input file is fixed length or variable, I have assumed it to be of fixed length. You have not shown the expected output, I have assumed that the output looks something as below:
A quick and dirty solution: