PGM                                                                     
CPYF FROMFILE(D97092/V2V3JOIN2) TOFILE(D97092/TAPNEWP) MBROPT(*REPLACE) 
ENDPGM                                                                  

   Link back to cl page