Fileaid - To copy records baced on condition

//STEP020  EXEC  PGM=FILEAID                              
//DD01     DD  DSN=&TYPE1.CCUL.UL139.CONSERVE.EXTRACT,    
//             DISP=SHR                                   
//USXTRCT  DD  DSN=&TYPE1.CCCN.CN2300WP.EXTRACT(+1),      
//             DISP=(,CATLG,DELETE),                      
//             UNIT=SYSDA,                                
//             SPACE=(CYL,(1,1)),                         
//             DCB=RECFM=FB                               
//*                                                       
//CANXTRCT DD  DSN=&TYPE1.CCCN.CN2300WP.EXTRACT.CAN(+1),  
//             DISP=(,CATLG,DELETE),                      
//             UNIT=SYSDA,                                
//             SPACE=(CYL,(1,1)),                         
//             DCB=RECFM=FB                               
//*                                                       
//SYSIN    DD  DSN=PAWPC.CICA.PARMLIB(CN230002),                                                                      
//             DISP=SHR                                   
//SYSOUT   DD  SYSOUT=*                                   
//*                                                       

PAWPC.CICA.PARMLIB(CN230002)

$$DD01 USER  IF=(1,EQ,C'E'),             
           ORIF=(1,EQ,C'N'),WRITE=USXTRCT,
             IF=(1,EQ,C'W'),WRITE=CANXTRCT