Sunday, September 8, 2019

JCL to create alternative index

//IBMUSERA JOB NOTIFY=&SYSUID
//***CREATION OF ALTERNATIVE INDEX*****
//S1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  DEFINE ALTERNATEINDEX(NAME(IBMUSER.RATNESH.ALX)-
  RELATE(IBMUSER.RATNESH.KSDS)-
  VOLUMES(ZASYS1)-
  CISZ(4096)-
  RECORDSIZE(15,15)-
  FREESPACE(10,10)-
  KEYS(4,5)-
  TRK(10,10)-
  UPGRADE)
/*

No comments:

Post a Comment