[[lbpf:dsi:moe:distribution:equipes:mainframe:bibliothequejcl|Retour à la Bibliothèque JCL]]
=====CPYSIMPL=====
===Définition===
Ce JCL sert à recopier les enregistrements d'un fichier 
===Code===
	//LUA1937K JOB (EXP),'COPY SIMPLE',CLASS=A,MSGCLASS=X,
	//             REGION=2000K,NOTIFY=LUA1937K           
	//*
	//*Définition des Fichiers à utilisé : FIC1=Fichier d'entrée  FIC2=Fichier de sortie
	//*                                                   
	//         SET FIC1=(Fichier d'origine)        
	//         SET FIC2=(Fichier recepteur)         
	//* 
	//*Suppression du fichier de Sortie, Pour ne pas avoir de plantage 
	//*                                                    
	//DELETE EXEC PGM=IEFBR14                         
	//DD1      DD DSN=&FIC2,DISP=(MOD,DELETE,DELETE), 
	// UNIT=SYSDA,SPACE=(CYL,(0))                
	//*                                                   
	//SORT01   EXEC PGM=SYSABND,PARM='SORT'               
	//SYSUDUMP DD SYSOUT=D                                
	//CEEDUMP  DD SYSOUT=D 
	//SYSOUT   DD SYSOUT=*                
	//*     
	//*FICHIER ENTREE    
	//*                          
	//SORTIN   DD DISP=SHR,DSN=&FIC1      
	//*     
	//*FICHIER SORTIE    
	//*                      
	//SORTOUT  DD DSN=&FIC2,              
	//            DISP=(NEW,CATLG,DELETE),
	//            SPACE=(CYL,(2,2),RLSE), 
	//            DCB=*.SORTIN    ***Prends les valeurs du JCL en entrée 
	//SYSIN    DD *                       
	  SORT FIELDS=COPY