Enterprise COBOL for z/OS, V4.2, Language Reference
Um item de dados definido com a frase OBJECT REFERENCE é uma referência a objeto.
Um item de dados de referência do objeto é um item elementar de 4 bytes.
- class-name-1
- Um nome de classe opcional.
Você deve declarar a class-name-1 no parágrafo REPOSITORY na CONFIGURATION SECTION da classe que contém ou do programa mais externo.
Se especificado, class-name-1 indica que data-name-1 sempre se refere a uma instância de objeto da classe class-name-1 ou a uma classe derivada de class-name-1.
Importante: O Desenvolvedor deve garantir que o objeto referenciado atenda a esse requisito; violações não são diagnosticadas.
Se class-name-1 não for especificado, a referência do objeto poderá se referir a um objeto de qualquer classe.
Nesse caso, data-name-1 é uma referência universal a objetos.
Você pode especificar data-name-1 em um item de grupo alfanumérico sem afetar a semântica do item de grupo.
Não há conversão de valores ou outro tratamento especial das referências de objeto quando são executadas instruções que operam no grupo.
O grupo continua se comportando como um item de grupo alfanumérico.
Uma referência a objeto pode ser definida em qualquer seção da divisão de dados de uma definição de fábrica, definição de objeto, método ou programa.
Um item de dados de referência a objeto pode ser usado apenas em:
- Uma instrução SET (apenas no formato 7)
- Uma condição de relação
- Uma declaração INVOKE
- A frase USING ou RETURNING de uma instrução INVOKE
- A frase USING ou RETURNING de uma instrução CALL
- Uma divisão de procedimento do programa ou instrução ENTRY, USING ou RETURNING
- Uma divisão de procedimento do método USING ou RETURNING frase
Itens de dados de Object-reference:
- São ignorados nas operações CORRESPONDING
- Não são afetados pelas instruções INITIALIZE
- Pode ser o assunto ou objeto de uma cláusula REDEFINES
- Não pode ser uma variável condicional
- Pode ser gravado em um arquivo (mas após a leitura subsequente do registro, o conteúdo da referência do objeto é indefinido)
Uma cláusula VALUE para um item de dados de referência a objeto pode conter apenas NULL ou NULLS.
Você pode usar a cláusula SYNCHRONIZED com a cláusula USAGE OBJECT REFERENCE para obter um alinhamento eficiente do item de dados de referência ao objeto.
As cláusulas DATA FORMAT, JUSTIFIED, PICTURE e BLANK WHEN ZERO não podem ser usadas para descrever itens de grupo ou elementares definidos com a cláusula
USAGE OBJECT REFERENCE.
© Copyright IBM Corp.