Enterprise COBOL for z/OS, V4.2, Language Reference
A cláusula RENAMES especifica agrupamentos alternativos e possivelmente sobrepostos de itens de dados elementares.
O número de nível especial 66 deve ser especificado para entradas de descrição de dados que contêm a cláusula RENAMES.
(O número de nível 66 e o data-name-1 não fazem parte da cláusula RENAMES e são incluídos no formato apenas para fins de clareza.)
Uma ou mais entradas RENAMES podem ser gravadas para um registro lógico.
Todas as entradas RENAMES associadas a um registro lógico devem seguir imediatamente a última entrada de descrição de dados desse registro.
- data-name-1
- Identifica um agrupamento alternativo de itens de dados.
Uma entrada de nível 66 não pode renomear uma entrada de nível 01, nível 77, nível 88 ou outra entrada nível 66.
data-name-1 não pode ser usado como um qualificador; ele pode ser qualificado apenas pelos nomes das entradas do indicador de nível ou das entradas do
nível 01.
- data-name-2, data-name-3
- Identifique o agrupamento original de itens de dados elementares; ou seja, eles devem nomear itens elementares ou de grupo na entrada de nível 01 associada e
não devem ter o mesmo nome de dados.
Os dois nomes de dados podem ser qualificados.
data-name-2 e data-name-3 podem fazer referência a qualquer um dos seguintes:
- Um item de dados elementar
- Um item de grupo alfanumérico
- Um item de grupo national
Quando nome-dados-2 ou nome-dados-3 faz referência a um item de grupo nacional, o item referenciado é processado como um grupo (não como um item de dados
elementar da categoria nacional).
A cláusula OCCURS não deve ser especificada nas entradas de dados para data-name-2 e data-name-3 ou para qualquer entrada de grupo à qual eles estejam
subordinados.
Além disso, a cláusula OCCURS DEPENDING não deve ser especificada para nenhum item definido entre data-name-2 e data-name-3.
As palavras-chave THROUGH e THRU são equivalentes.
Quando a frase THROUGH é especificada:
- data-name-1 define um item de grupo alfanumérico que inclui todos os itens elementares que:
- Comece com data-name-2 se for um item elementar ou o primeiro item elementar em data-name-2 se for um item de grupo
- Termine com data-name-3 se for um item elementar ou o último item elementar em data-name-3 se for um item de grupo alfanumérico ou nacional.
-
- A área de armazenamento ocupada pelo item inicial até o item final se torna a área de armazenamento ocupada por data-name-1.
Nota de uso:
O grupo definido com a frase THROUGH pode incluir itens de dados de uso NATIONAL.
A posição do caractere mais à esquerda no data-name-3 não deve preceder a posição do caractere mais à esquerda no data-name-2 e a posição do caractere mais
à direita no data-name-3 não deve preceder a posição do caractere à direita no data-name-2.
Isso significa que o data-name-3 não pode ser totalmente subordinado ao data-name-2.
Quando a frase THROUGH não é especificada:
- A área de armazenamento ocupada por data-name-2 se torna a área de armazenamento ocupada por data-name-1.
- Todos os atributos de dados do nome-de-dados-2 se tornam os atributos de dados para o nome-de-dados-1.
Isso é:
- Quando data-name-2 é um item de grupo alfanumérico, data-name-1 é um item de grupo alfanumérico.
- Quando data-name-2 é um item de grupo national, data-name-1 é um item de grupo nacional.
- Quando data-name-2 é um item elementar, data-name-1 é um item elementar.
A figura a seguir ilustra especificações de cláusulas RENAMES válidas e inválidas.
© Copyright IBM Corp.