In this example, two tape volumes, 005000, and SL8000, are to be rekeyed.
Each tape volume is to be rekeyed with different set of key labels and encoding mechanisms.

Neste exemplo, dois volumes de fita, 005000 e SL8000, devem ser recodificados.
Cada volume de fita deve ser recodificado com um conjunto diferente de rótulos de chave e mecanismos de codificação.

  //TAPEJOB	JOB	…
  //STEP1	EXEC	PGM=IEHINITT
  //SYSPRINT	DD	SYSOUT=A
  //REKEY4	DD	UNIT=(TAPE,1,DEFER)
  //REKEY5	DD	UNIT=(TAPE)
  //SYSIN	DD	*
    REKEY4	REKEY	SER=005000,												
                                KEYLABL1=firstkeylabel,KEYENCD1=L,
				KEYLABL2=secondkeylabel,KEYENCD2=H
    REKEY5	REKEY	SER=SL8000, 
				KEYLABL1=differentfirstkeylabel,KEYENCD1=L,
				KEYLABL2=differentsecondkeylabel,KEYENCD2=H
  /*

Parent topic: IEHINITT Examples