[[lbpf:dsi:moe:distribution:equipes:mainframe:bibliothequejcl|Retour à la Bibliothèque JCL]]
=====CPSLCATA=====
===Définition===
Ce JCL sert à recopier les enregistrements d'un fichier en sélectionnant une catégorie d'enregistrement avec les deux conditions
===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 *                       
	  INCLUDE COND=((pos,lg,ty,comp,DS),OL,(pos,lg,ty,comp,DS))
	  SORT FIELDS=COPY
===Légende===
==Position (pos)== 
	dans le fichier (N°de colonne du premier caractère)
==longueur (lg)== 
	(longueur en nombre de caractères)
==Type de données (ty)==
	CH : 1 to 256 bytes : Character = Caractères Alphanumériques
	AQ : 1 to 256 bytes : Character with alternate collating sequence = Caractères avec des alternances de séquences d'espaces
	ZD : 1 to 256 bytes : Signed zoned decimal = Zone de nombres décimaux signé
	PD : 1 to 255 bytes : Signed packed decimal = Paquet de nombres décimaux signés
	PD0: 2 to 8 bytes : Packed decimal with sign and first digit ignored = Zone de nombres décimaux signé en ignorant le premier nombre
	FI : 1 to 256 bytes : Signed fixed-point = Nombres, signés, en virgule fixe 
	BI : 1 to 256 bytes : Unsigned binary = Nombres binaires non signés
	AC : 1 to 256 bytes : ASCII character = Caractères ASCII
	CSF or FS : 1 to 32 bytes : Signed numeric with optional leading floating sign  
	UFF : 1 to 44 bytes : Unsigned free form numeric = Nombres non signés et de formes libres
	SFF : 1 to 44 bytes : Signed free form numeric = Nombres signés de formes libres
	CSL or LS : 2 to 256 bytes  :Signed numeric with leading separate sign
	CST or TS : 2 to 256 bytes : Signed numeric with trailing separate sign
	CLO or OL : 1 to 256 bytes : Signed numeric with leading overpunch sign
	CTO or OT : 1 to 256 bytes : Signed numeric with trailing overpunch sign
	ASL : 2 to 256 bytes : Signed ASCII numeric with leading separate sign
	AST : 2 to 256 bytes : Signed ASCII numeric with trailing separate sign
==Sens de lecture (sl)==
	A=Ascending : De Bas en Haut
	D=Descending : De Haut en Bas
==Comparateurs (comp)==
	EQ Equal to = Egal à
	NE Not equal to = Non Egal à
	GT Greater than = Plus grand que
	GE Greater than or equal to Plus grand ou egal à
	LT Less than = Plus petit que
	LE Less than or equal to = Plus petit ou égal à 
==Donnée à Sélectionner (DS)==
	C'...':Chaine de caractères à spécifier
	UC : Upper Case Characters = Caractères en majuscules
	LC : Lower Case Characters = Caractères en minuscules
	MC : Mixed Case Characters = Mélange de majuscules et de minuscules
	UN : Upper Case or Numeric Characters = Caractères en majuscules ou nombres
	LN : Lower Case or Numeric Characters = Caractères en minuscules ou nombres
	MN : Mixed Case and Numeric Characters = Mélange de majuscules et de minuscules et de nombres
==Opérateurs Logiques (OL)==
	AND = Et
	OR = Ou