[[lbpf:dsi:moe:distribution:equipes:mainframe:bibliothequejcl|Retour à la Bibliothèque JCL]]
=====BASEOUVE=====
===Définition===
Ce JCL sert à ouvrir des Bases
===Code===
	//LUA1937K JOB 'R10350',CLASS=A,MSGCLASS=X,
	//             MSGLEVEL=(1,1),TIME=200,REGION=4000K,                    
	//             NOTIFY=&SYSUID                                           
	//*=====================================================================
	//*        O U V E R T U R E  B A S E  D E  T E S T                     
	//*=====================================================================
	//STADLR  EXEC PGM=IEBEDIT                                              
	//SYSPRINT DD  SYSOUT=*                                                 
	//SYSIN    DD  DUMMY                                                    
	//SYSUT2   DD  SYSOUT=(A,INTRDR),DCB=BLKSIZE=80                         
	//SYSUT1   DD  DATA,DLM=XX                                              
	/*$VS,'LST START DATABASE DLRBASE DLRXBAS'          **Changer "LST" selon l'environnement d'utilisation                    
	XX                                                                      
	//*                                                                     
	//WAIT01   EXEC PGM=WAITSYS,PARM='00000500'