//**********************************************************************
//* REORGANISE THE AD DATASET (HLQ.SYSTEM.AD)
//* OPCE MUST BE STOPPED
//* IF YOU INTEND TO CHANGE SPACE OR VOLUME PLEASE LOOK AT MEM õALTSPAC
//**********************************************************************
//REORGAD  EXEC PGM=IDCAMS
//HOLD     DD DSN=HLQ.SYSTEM.AD,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
   ALTER     +
           'HLQ.SYSTEM.AD' +
            NEWNAME('HLQ.SYSTEM.ADREORG')
   IF MAXCC = 0 THEN +
   ALTER     +
           'HLQ.SYSTEM.ADDATA' +
            NEWNAME('HLQ.SYSTEM.ADREORG.DATA')
   IF MAXCC = 0 THEN +
   ALTER     +
           'HLQ.SYSTEM.ADINDEX' +
            NEWNAME('HLQ.SYSTEM.ADREORG.INDEX')

   IF MAXCC = 0 THEN +
  DEFINE     +
   CLUSTER ( +
            NAME('HLQ.SYSTEM.AD') +
            MODEL('HLQ.SYSTEM.ADREORG') +
            NONSPANNED +
           ) +
   DATA    ( +
            NAME('HLQ.SYSTEM.ADDATA') +
           ) +
   INDEX   ( +
            NAME('HLQ.SYSTEM.ADINDEX') +
           )

   IF MAXCC = 0 THEN +
   REPRO     +
            IDS('HLQ.SYSTEM.ADREORG') +
            ODS('HLQ.SYSTEM.AD')

   IF MAXCC = 0 THEN +
   DELETE    +
           (HLQ.SYSTEM.ADREORG) +
            CLUSTER +
            PURGE
/*
//**********************************************************************
//* REORGANISE THE OI DATASET (HLQ.SYSTEM.OI)
//* OPCE MUST BE STOPPED
//* IF YOU INTEND TO CHANGE SPACE OR VOLUME PLEASE LOOK AT MEM õALTSPAC
//**********************************************************************
//REORGOI  EXEC PGM=IDCAMS
//HOLD     DD DSN=HLQ.SYSTEM.OI,DISP=OLD
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
   ALTER     +
           'HLQ.SYSTEM.OI' +
            NEWNAME('HLQ.SYSTEM.OIREORG')
   IF MAXCC = 0 THEN +
   ALTER     +
           'HLQ.SYSTEM.OIDATA' +
            NEWNAME('HLQ.SYSTEM.OIREORG.DATA')
   IF MAXCC = 0 THEN +
   ALTER     +
           'HLQ.SYSTEM.OIINDEX' +
            NEWNAME('HLQ.SYSTEM.OIREORG.INDEX')

   IF MAXCC = 0 THEN +
  DEFINE     +
   CLUSTER ( +
            NAME('HLQ.SYSTEM.OI') +
            MODEL('HLQ.SYSTEM.OIREORG') +
            NONSPANNED +
           ) +
   DATA    ( +
            NAME('HLQ.SYSTEM.OIDATA') +
           ) +
   INDEX   ( +
            NAME('HLQ.SYSTEM.OIINDEX') +
           )

   IF MAXCC = 0 THEN +
   REPRO     +
            IDS('HLQ.SYSTEM.OIREORG') +
            ODS('HLQ.SYSTEM.OI')

   IF MAXCC = 0 THEN +
   DELETE    +
           (HLQ.SYSTEM.OIREORG) +
            CLUSTER +
            PURGE
/*
//*