Jcl define ficheros VSAM

Jcl define ficheros VSAM

Lo publico abajo:


//P010 EXEC SYSCMD,COND=(0,NE)
//SYSIN DD *
F CICSPFOR,'CEMT S FI(ULTCTA) CLO DIS'
/*
//*****************************************************
//P030 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL PRO.TRC.ASIGCTA.POSI.KSDS PURGE CL
SET MAXCC = 0

DEF CLUSTER -
(NAME(PRO.TRC.ASIGCTA.POSI.KSDS) -
RECORDS (500 50) -
RECORDSIZE (61 61) -
VOLUME (PRO004) -
KEYS (17 0) -
SHR (2 3) -
FREESPACE (01 01) -
NONSPANNED -
REPLICATE -
SPEED -

IMBED -
REUSE -
INDEXED) -
DATA (NAME(PRO.TRC.ASIGCTA.POSI.DATA) -
CYL (1,1) -
CISZ(4096)) -
INDEX (NAME(PRO.TRC.ASIGCTA.POSI.INDEX) -
TRACKS (1,1) -
CISZ(1024))
/*
//*****************************************************
//P100 EXEC SYSCMD,COND=(0,NE)
//SYSIN DD *
F CICSPFOR,'CEMT S FI(ULTCTA) OPE ENA'
/*

//P010 EXEC SYSCMD,COND=(0,NE)
//SYSIN DD *
F CICSPFOR,'CEMT S FI(ULTCTA) CLO DIS'
/*
//*****************************************************
//P030 EXEC PGM=IDCAMS,COND=(0,NE)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEL PRO.TRC.ASIGCTA.POSI.KSDS PURGE CL
SET MAXCC = 0

   DELETE  (PCDS.VM.PACCOM)         -
           PURGE                    -
           CLUSTER
   DEFINE  CLUSTER(                 -
             NAME(PCDS.VM.PACCOM)   -
             RECORDS(9000 500)      -
             SPEED                  -
             LOG(NONE)              -
             STORCLAS(RLSPROD)      -
             REUSE                  -
             INDEXED                -
             KEYS (46 0)            -
             RECORDSIZE (620 620)   -
             SHR (2)                -
                )                   -
           DATA(NAME(PCDS.VM.PACCOM.DATA) -
           CISZ(6656))                      -
           INDEX(NAME(PCDS.VM.PACCOM.INDEX))

/*
//*****************************************************
//P100 EXEC SYSCMD,COND=(0,NE)
//SYSIN DD *
F CICSPFOR,'CEMT S FI(ULTCTA) OPE ENA'
/*