Mainframe: How to Replace Spaces with String in Input File

If I find a space in position 63-72, I need to replace with 9999-99-99.Is there any way to perform this?

My Input looks like the following records

Input:

AAAAAAAA 2006-09-01 XXXXXXXXXX 001 000 BBBBBBBB 2006-06-01 XXXXXXXXXX 001 000 CCCCCCC 2006-01-01 2006-05-31 001 000 DDDDDDD 2007-01-01 XXXXXXXXXX 001 000

And the output should be

Output:

AAAAAAAA 2006-09-01 9999-99-99 001 000 BBBBBBBB 2006-06-01 9999-99-99 001 000 CCCCCCCC 2006-01-01 2006-05-31 001 000 DDDDDDD 2007-01-01 9999-99-99 001 000

The following Sort step with control card having keywords IFTHEN and OVERLAY would give the solution to the above problem.

Code:

//STEP01 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=YOUR INPUT FILE, // DISP=SHR //SORTOUT DD DSN=YOUR OUTPUT FILE, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(CYL,(X,Y),RLSE) //SYSIN DD * //SYSIN DD * SORT FIELDS=COPY OUTREC IFTHEN=(WHEN=(63,10,CH,EQ,C’ ‘), OVERLAY=(63:C’9999-99-99′)) /*