[[lbpf:dsi:moe:distribution:equipes:mainframe:bibliothequejcl|Retour à la Bibliothèque JCL]]
=====SELLENR=====
===Définition===
Ce JCL sert à recopier les X Derniers enregistrements d'un fichier
===Code===
	//LUA1937K JOB (ETUD,N,DEV,F),'F OCTROI ',CLASS=A,MSGCLASS=X,       
	//             REGION=4M,MSGLEVEL=(1,1),NOTIFY=&SYSUID,TIME=60      
	//JOBLIB   DD DSN=LDE0000.ESSAIS.LOAD,               **Bibliothèque de programme à utiliser               
	//            DISP=SHR                                              
	//         DD DSN=LE10000.BATC.LOAD,                                
	//            DISP=SHR                                              
	//*
	//*Définition des Fichiers à utilisé : Entree=Fichier d'entrée  Sortie=Fichier de sortie
	//*
	//PARM     SET ENTREE=(Fichier d'origine)                    
	//PARM     SET SORTIE=(Fichier recepteur)                    
	//* 
	//*Suppression du fichier de Sortie, Pour ne pas avoir de plantage 
	//*                                                        
	//DELFIC   EXEC PGM=IEFBR14                                             
	//PARM     SET D='DISP=(MOD,DELETE,),SPACE=(TRK,(1,1),RLSE)'            
	//FIC      DD &D,DSN=&SORTIE                                            
	//ALLOCFIC EXEC PGM=IEFBR14                                             
	//*                                                                     
	//SYSOUT   DD SYSOUT=*                                                  
	//FICA     DD DSN=&SORTIE,                                              
	//            DISP=(NEW,CATLG,CATLG),                                   
	//            UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE),                        
	//            DCB=*.SORTIN    ***Prends les valeurs du JCL en entrée                             
	//*
	//TOOL     EXEC PGM=ICETOOL                                             
	//TOOLMSG  DD SYSOUT=*                                                  
	//DFSMSG   DD SYSOUT=* 
	//SYSOUT   DD SYSOUT=*                             
	//SYMNOUT  DD SYSOUT=* 
	//*     
	//*FICHIER ENTREE    
	//*
	//ENTREE   DD DSN=&ENTREE,DISP=SHR                 
	//*     
	//*FICHIER SORTIE    
	//*                                                 
	//SORTIE   DD DSN=&SORTIE,DISP=SHR                 
	//TOOLIN   DD *                                    
	 SUBSET FROM(ENTREE) TO(SORTIE) KEEP INPUT LAST(5)  ** Prendre dans le fichier d'entrée vers le fichier de sortie les 5 derniers enregistrements