[[lbpf:dsi:moe:distribution:equipes:mainframe:bibliothequejcl|Retour à la Bibliothèque JCL]]
=====CICSCFIL=====
===Définition===
Ce JCL sert à fermer des fichiers CICS
===Code===
	//LUA1937K JOB (ETUD,N,DEV,F),'HOM OPECICS',MSGCLASS=X,                 
	//          REGION=0M,CLASS=L,MSGLEVEL=(1,1),                           
	//          NOTIFY=&SYSUID,RESTART=*                                    
	//*                                                                     
	//* - Fermeture DU CICS + Fermeture DES BASE DLI                        
	//*                                                                     
	//**********************************************************************
	//* Fermeture DE TOUS LES FICHIERS CICS                                 
	//**********************************************************************
	//OPECICS  EXEC PGM=IEBEDIT,COND=(4,LT)                                 
	//SYSPRINT DD SYSOUT=*                                                  
	//SYSIN    DD DUMMY                                                     
	//SYSUT2   DD SYSOUT=(A,INTRDR),DCB=BLKSIZE=80                          
	//SYSUT1   DD DATA,DLM=XX                                               
	/*$VS,'RO T=0,*ALL,F LI33*,CEMT SET FI(*) CLO ENA'        **A modifier : Li33* selon l'environnement d'utilisation et FI(*) remplacer "*" par le nom du fichier ou a laisser si on veut fermer tout les fichiers
	XX