JCL - IEHINITT Multiple Control Statements with NUMBTAPE



Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

JCL - IEHINITT Example 13: Multiple Control Statements with NUMBTAPE
  • In this example, three tape volumes 001200, 001201, and 001202 are to be rekeyed with the same key labels specified for the first REKEY control statement with NUMBTAPE specified.
    The second control statement specifies one tape SL8000 to be rekeyed with different key labels.
    Note, that KEYLABL2 and its associated KEYENCD2 are omitted, thus the same key label and encoding mechanism values specified for the KEYLABL1 and the KEYENCD1 keywords are used for both key labels.

  • Neste exemplo, três volumes de fita 001200, 001201 e 001202 devem ser recodificados com os mesmos rótulos de chave especificados para a primeira instrução de controle REKEY com NUMBTAPE especificado.
    A segunda instrução de controle especifica uma fita SL8000 a ser recodificada com diferentes rótulos de chave.
    Observe que KEYLABL2 e seu KEYENCD2 associado são omitidos, portanto, o mesmo rótulo de chave e valores de mecanismo de codificação especificados para as palavras-chave KEYLABL1 e KEYENCD1 são usados ??para ambos os rótulos de chave.
  //TAPEJOB	JOB	…
  //STEP1	EXEC	PGM=IEHINITT
  //SYSPRINT	DD	SYSOUT=A
  //REKEY6	DD	UNIT=(TAPE,1,DEFER)
  //REKEY7	DD	UNIT=(TAPE)
  //SYSIN	DD	*
    REKEY6	REKEY	SER=001200,NUMBTAPE=3,
				KEYLABL1=firstkeylabel,KEYENCD1=L,
				KEYLABL2=secondkeylabel,KEYENCD2=H
    REKEY7	REKEY	SER=SL8000, 
				KEYLABL1=differentfirstkeylabel,KEYENCD1=L,
  /*

Parent topic: IEHINITT Examples



© Copyright IBM Corp.