//CREAVSAM JOB (),LOADVSAM,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),
//             REGION=1024K,NOTIFY=&SYSUID
//DELDEF EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
 DELETE IBMUSER.CICS.CLIENTES
 SET MAXCC = 0
 DEFINE CLUSTER                                     -
      (NAME(IBMUSER.CICS.CLIENTES) VOLUMES(ZARES1)  -
      TRACKS(15 15) INDEXED                         -
      SHAREOPTIONS(1 3) UNIQUE                      -
      RECORDSIZE(84 84)                             -
      KEYS(9 0)                                     -
     )                                              -
    DATA (NAME(IBMUSER.CICS.CLIENTES.DATA))         -
    INDEX (NAME(IBMUSER.CICS.CLIENTES.INDEX))
//*
//CARGA    EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//UIN      DD *
000000000123456789012345678901234567890123456789012345678901234567890123
000000001MARCELO             AUGUSTO             PI Y MARGALL
000000002NORA                ADRIANA             RUTA 205
000000003EMMA                NICOLE              AV.ALTE BROWN
000000004MICAELA             AGUSTINA            LEBENSOHN
/*
//OUT   DD DSN=IBMUSER.CICS.CLIENTES,DISP=OLD
//SYSIN DD *
 REPRO INFILE(UIN) OUTFILE(OUT)
/*