In this example, one tape volume SL1000 is to be rekeyed with two key labels.
Neste exemplo, um volume de fita SL1000 deve ser recodificado com dois rótulos de chave.

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

Parent topic: IEHINITT Examples