In this example, five tape volumes are to be rekeyed with the same key labels.
Neste exemplo, cinco volumes de fita devem ser recodificados com os mesmos rótulos de chave.

  //TAPEJOB	JOB	…
  //STEP1	EXEC	PGM=IEHINITT
  //SYSPRINT	DD	SYSOUT=A
  //REKEY2	DD	UNIT=(TAPE,1,DEFER)
  //SYSIN	DD	*
    REKEY2	REKEY	SER=( AL1000,AL2000,AL3000,AL4000,AL5000),
				KEYLABL1=firstkeylabel,KEYENCD1=L,
				KEYLABL2=secondkeylabel,KEYENCD2=H
  /*

Parent topic: IEHINITT Examples