Fileaid - to copy records from input based on condition

//PARMTMP1 EXEC  PGM=PARMIN,                                           
//          PARM='$$DD01 USER  IF=(122,NE,C''TORONTO''),WRITE=NWCLMCH,'
//SYSIN    DD  DSN=&&CTL01,                                            
//             DISP=(,PASS),                                           
//             UNIT=SYSDA,                                             
//             SPACE=(80,3)                                            
//*                                                                    
//PARMTMP2 EXEC  PGM=PARMIN,                                           
//           PARM='             IF=(122,EQ,C''TORONTO''),WRITE=NWCLMTO'
//SYSIN    DD  DSN=&&CTL02,                                            
//             DISP=(,PASS),                                           
//             UNIT=SYSDA,                                             
//             SPACE=(80,3)                                            
//*                                                                    
//STEP020  EXEC  PGM=FILEAID                                         
//SYSPRINT DD  SYSOUT=*                                              
//*                                                                  
//DD01     DD  DSN=&TYPE1.CCPU.PU0700DP.FTPDS.NEWCLAIM.BKUP(+1),     
//             DISP=SHR                                              
//NWCLMCH  DD  DSN=&TYPE1.CCPU.PU0700DP.NEWCLAIM.CHI,                
//             DISP=(,CATLG,DELETE),                                 
//             UNIT=SYSDA,                                           
//             SPACE=(CYL,(1,1),RLSE),                               
//             DCB=RECFM=FB                                          
//*                                                                  
//NWCLMTO  DD  DSN=&TYPE1.CCPU.PU0700DP.NEWCLAIM.TORO,               
//             DISP=(,CATLG,DELETE),                                 
//             UNIT=SYSDA,                                           
//             SPACE=(CYL,(1,1),RLSE),                               
//             DCB=RECFM=FB                                          
//*                                                                  
//SYSIN    DD  DSN=&&CTL01,                                          
//             DISP=(OLD,DELETE) 
//         DD  DSN=&&CTL02,      
//             DISP=(OLD,DELETE) 
//*                              


Copies the records from input to NWCLMCH if position 122 is not equal to TORONTO, and,  copies records from input to NWCLMTO if position 122 is equal to TORONTO