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

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.