This repository has been archived by the owner on Nov 17, 2023. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 0
/
DF_CLUSTER.jcl
31 lines (31 loc) · 1.54 KB
/
DF_CLUSTER.jcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
//DEFCLUST JOB (DS),'DIANA SALGUERO',
// CLASS=P,
// REGION=0M,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// NOTIFY=&SYSUID TYPRUN=SCAN
//*
//JOBLIB DD DSN=USERLIB.BATCH,DISP=SHR
//*--------------------------------------------------------------------
//*Definir archivo ESDS y Copiar el archivo PS hacia el ESDS con REPRO
//*--------------------------------------------------------------------
//* ----------------------------------------------------------
//* CREANDO CLUSTER PARA STDMST
//* ----------------------------------------------------------
//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE PRUEBA.CLUSTER.DSR.V.T.FORMA.PAGO CLUSTER PURGE
IF MAXCC = 8 -
THEN -
SET MAXCC = 0
DEFINE CLUSTER(NAME(PRUEBA.CLUSTER.DSR.V.T.FORMA.PAGO) -
INDEXED -
SHR(2,3) -
NOREUSE -
VOLUME(VOL000) -
CYLINDERS(300 100) -
CISZ(4096) -
KEYS(5 0) -
FREESPACE(5 4) -
RECORDSIZE(550 550))