JCL - IEHPROGM Example 5: Rename a Data Set and Define New Passwords

JCL - IEHPROGM Example 5: Rename a Data Set and Define New Passwords

In this example, a data set is renamed.
The data set passwords assigned to the old data set name are deleted.
Then two passwords are assigned to the new data set name.
If the data set is not cataloged, a message is issued indicating that the LOCATE macro instruction ended unsuccessfully.

Neste exemplo, um conjunto de dados é renomeado.
As senhas do conjunto de dados atribuídas ao nome do conjunto de dados antigo são excluídas.
Em seguida, duas senhas são atribuídas ao novo nome do conjunto de dados.
Se o conjunto de dados não estiver catalogado, uma mensagem é emitida indicando que a instrução da macro LOCATE terminou sem sucesso.

                                                                         72
  //ADDPASS  JOB  ...
  //STEP1    EXEC PGM=IEHPROGM,PARM='NOPRINT'
  //SYSPRINT DD  SYSOUT=A
  //DD1      DD  VOLUME=SER=222222,DISP=OLD,
  //             UNIT=disk
  //SYSIN    DD  *
     RENAME DSNAME=OLD,VOL=disk=222222,NEWNAME=NEW
    DELETEP DSNAME=OLD,PASWORD1=KEY
        ADD DSNAME=NEW,PASWORD2=KEY,TYPE=1,                              X
                 DATA='SECONDARY IS READ'
        ADD DSNAME=NEW,PASWORD2=READ,CPASWORD=KEY,TYPE=2,                X
                 DATA='ASSIGNED TO J. DOE'
  /*

The utility control statements are discussed as follows:
As declarações de controle da utilidade são discutidas da seguinte forma:

RENAME specifies that the data set called OLD is renamed NEW.
The operator is required to supply a password to rename the old data set.
DELETEP specifies that the entry for the password KEY is deleted.
Because KEY is a control password in this example, all the password entries for the data set name are deleted.
The VOL parameter is not needed because the protection status of the data set as set in the DSCB is not to be changed; read/write protection is presently set in the DSCB, and read/write protection is desired when the passwords are reassigned under the new data set name.
The ADD statements specify that entries are added for passwords KEY and READ. KEY becomes the control password and allows both read and write access to the data set.
READ becomes a secondary password and allows only read access to the data set.
The VOL parameter is not needed, because the protection status of the data set is still set in the DSCB.

RENAME especifica que o conjunto de dados denominado OLD é renomeado para NOVO.
O operador deve fornecer uma senha para renomear o antigo conjunto de dados.
DELETEP especifica que a entrada para a senha KEY é excluída.
Como KEY é uma senha de controle neste exemplo, todas as entradas de senha para o nome do conjunto de dados são excluídas.
O parâmetro VOL não é necessário porque o status de proteção do conjunto de dados conforme definido no DSCB não deve ser alterado; a proteção contra leitura / gravação está atualmente definida no DSCB e a proteção contra leitura/gravação é desejada quando as senhas são reatribuídas com o novo nome do conjunto de dados.
As instruções ADD especificam que as entradas são adicionadas para as senhas KEY e READ.
KEY torna-se a senha de controle e permite acesso de leitura e gravação ao conjunto de dados.
READ torna-se uma senha secundária e permite apenas acesso de leitura ao conjunto de dados.
O parâmetro VOL não é necessário, porque o status de proteção do conjunto de dados ainda está definido no DSCB.

Parent topic: IEHPROGM Examples