COBOL - SPECIAL-NAMES - www.cadcobol.com.br



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

COBOL - SPECIAL-NAMES

O parágrafo SPECIAL-NAMES é o nome de um parágrafo ENVIRONMENT DIVISION no qual os nomes de ambiente estão relacionados aos nomes mnemônicos especificados pelo usuário.

O parágrafo SPECIAL-NAMES:

  • Relaciona nomes de ambiente especificados pela IBM a nomes mnemônicos definidos pelo usuário
  • Relaciona nomes de alfabeto a conjuntos de caracteres ou sequências de intercalação
  • Especifica caracteres simbólicos
  • Relaciona nomes de classe a conjuntos de caracteres
  • Especifica um ou mais valores de sinal de moeda e define um símbolo de figura para representar cada valor de sinal de moeda nas cláusulas PICTURE
  • Especifica que as funções da vírgula e do ponto decimal devem ser trocadas nas cláusulas PICTURE e literais numéricos
  • Relaciona xml-schema-names a ddnames ou nomes de variáveis ??de ambiente, identificando arquivos que contêm esquemas XML

As cláusulas no parágrafo SPECIAL-NAMES (NOMES ESPECIAIS) podem aparecer em qualquer ordem.

Format: SPECIAL-NAMES paragraph


environment-name-1
Dispositivos do sistema ou ações padrão do sistema executadas pelo compilador.

As especificações válidas para o environment-name-1 são mostradas na tabela a seguir.

Table 1. Meanings of environment names (Significados dos nomes do ambiente)

environment-name-1 Significado Permitido em
SYSIN SYSIPT System logical input unit (Unidade de entrada lógica do sistema) ACCEPT
SYSOUT SYSLIST SYSLST System logical output unit (Unidade de saída lógica do sistema) DISPLAY
SYSPUNCH SYSPCH System punch device (Dispositivo de perfuração do sistema) DISPLAY
CONSOLE Console ACCEPT and DISPLAY
C01 through C12 Skip to channel 1 through channel 12, respectively (Pule para o canal 1 até o canal 12, respectivamente) WRITE ADVANCING
CSP Suppress spacing (Suprimir espaçamento) WRITE ADVANCING
S01 through S05 Pocket select 1 through 5 on punch devices (Pocket selecione 1 a 5 em dispositivos perfurados) WRITE ADVANCING
AFP-5A Advanced Function Printing (Impressão de funções avançadas) WRITE ADVANCING

environment-name-2
Um comutador de indicador de status programável pelo usuário (UPSI) de 1 byte.
As especificações válidas para o nome do ambiente 2 são UPSI-0 a UPSI-7.

mnemonic-name-1 , mnemonic-name-2
mnemonic-name-1 e mnemonic-name-2 seguem as regras de formação para nomes definidos pelo usuário.
mnemonic-name-1 pode ser usado nas instruções ACCEPT, DISPLAY e WRITE.
mnemonic-name-2 pode ser referenciado apenas na instrução SET.
mnemonic-name-2 pode qualificar os nomes da condição 1 ou 2 .

Nomes mnemônicos e nomes de ambiente não precisam ser exclusivos.
Se você escolher um nome mnemônico que também seja um nome de ambiente, sua definição como um nome mnemônico terá precedência sobre sua definição como um nome de ambiente.

ON STATUS IS, OFF STATUS IS
Os switches UPSI processam condições especiais dentro de um programa, como o processamento no início ou no final do ano.
Por exemplo, no início da PROCEDURE DIVISION, um switch UPSI pode ser testado; se estiver ON, a ramificação especial é tomada.

condition-1, condition-2
Os nomes de condições seguem as regras para nomes definidos pelo usuário.
Pelo menos um caractere deve ser alfabético.
O valor associado ao nome da condição é considerado alfanumérico.
Um nome de condição pode ser associado ao status ligado ou desligado de cada comutador UPSI especificado.

Na PROCEDURE DIVISION, o status do comutador UPSI é testado através do nome da condição associado.
Cada nome da condição é equivalente a um item de nível 88; o nome mnemônico associado, se especificado, é considerado a variável condicional e pode ser usado para qualificação.

Os nomes de condição especificados no parágrafo SPECIAL-NAMES (NOMES ESPECIAIS) de um programa que contém podem ser referenciados em qualquer programa contido.


© Copyright IBM Corp.