Job/JCL is to search a PS(Partitioned Sequential) file for a particular string

//SEARCH@ JOB (acct#),’Searching a PS Library’,CLASS=0,MSGCLASS=J
//* THIS JOB WILL SEARCH A PS(Sequential file)
//STEP020 EXEC PGM=FILEAID,REGION=4M
//DD10 DD DSN=input.dsn,DISP=SHR
//DD10O DD DSN=output.dsn,
// DISP=(NEW,CATLG,CATLG)
//SYSOUT DD SYSOUT=*
//SYSIN DD *
$$DD10 USER IF=(1,0,C’search string’),WRITE=DD10O