Jens Hohmann

[◀ JCL Batch Jobs]

Contents

1. Renaming a DASD volume
2. Creating IPL-text

Renaming a DASD volume [▲ Top]

1. put the volume(s) offline
2. run the ICKDSF job
3. put the volume(s) back online

If a volume has no Label you can use VERIFY(*NONE*) or option NOVERIFY (NVFY).

//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1   EXEC PGM=ICKDSF,PARM=NOREPLYU
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 REFORMAT UNITADDRESS(unit1)                               -
          VERIFY(oldvolser1)                               -
          VOLID(newvolser1)
 RFMT UNIT(unit2)                                          -
      VFY(oldvolser2)                                      -
      VOLID(newvolser2)
 RFMT UNIT(unit3)                                          -
      VFY(*NONE*)                                          -
      VOLID(newvolser3)
/*

//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1   EXEC PGM=ICKDSF,PARM=NOREPLYU
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
 RFMT UNIT(unit)                                           -
      VOLID(newvolser)                                     -
      NVFY
/*

Creating IPL-text [▲ Top]

//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1   EXEC PGM=ICKDSF
//SYSPRINT DD  SYSOUT=*
//IPLTEXT  DD  DISP=SHR,DSN=SYS1.SAMPLIB(IPLRECS),
//             UNIT=3390,VOL=SER=volser
//         DD  DISP=SHR,DSN=SYS1.SAMPLIB(IEAIPL00),
//             UNIT=3390,VOL=SER=volser
//IPLVOL   DD  DISP=SHR,UNIT=3390,VOL=SER=sysres
//SYSIN    DD  *
 REFORMAT DDNAME(IPLVOL) IPLDD(IPLTEXT) NOVERIFY BOOTSTRAP
/*