Auxílios do VisualAge Generator

EZESYS

EZESYS identifica o ambiente no qual o programa está executando.

A seguir os valores válidos para EZESYS:

Usos

EZESYS pode ser utilizado como qualquer um dos seguintes:

As características de EZESYS a seguir:

Tipo de dados: Caractere
Comprimento dos dados em bytes: 8 (preenchido com espaços em branco)
Valor salvo pelos segmentos: Sim

Considerações sobre Definição

Os testes de EZESYS são implementados como testes de runtime, não como testes de geração. Pode-se então usar EZESYS em conjunto com as instruções IF, WHILE, e TEST para incluir ou excluir opcionalmente funções em programas gerados.

Considere a seguinte seqüência de código:

IF EZESYS NOT IMSVS;
   MY_VSAM_FUNC;     /* Efetuar a função VSAM */
END;

Como VSAM não é suportado no ambiente IMS/VS, não é possível gerar o programa para IMS/VS. Para gerar o programa para IMS/VS, você deve deslocar as funções VSAM para outro programa e alterar a instrução IF da seguinte forma:

IF EZESYS NOT IMSVS;
  CALL VSAMAPP VSAM_FUNC,RECORD;
END;

É preciso tomar medidas semelhantes para executar opcionalmente qualquer função que vá ser gerada para um ambiente, mas não para outro.

Ambientes de Destino

Suportado em todos os ambientes sem considerações de compatibilidade.

Exemplos

A seguir um exemplo de CICS para OS/2:

IF EZESYS IS OS2CICS;

A seguir um exemplo de OS/2 (GUI) e Windows:

IF EZESYS IS WINGUI;
  MOVE "Windows" TO ENVRECD.UI;
  ELSE;
  IF EZESYS IS OS2GUI;
    MOVE "OS/2" TO ENVRECD.UI;
  ELSE;
    MOVE "NPT" TO ENVRECD.UI;
END;
END;

A instrução "IF EZESYS IS WINGUI;" acima poderia ser codificada em função de programa GUI ou não-GUI e poderia ser gerada e executada em qualquer ambiente de destino. Isto é, EZESYS poderia ser testado sendo WINGUI em qualquer lugar, mas somente testaria "verdadeiro" em um programa GUI executando sob Windows e, testaria "falso" em todos os outros lugares.


[ Início da Página | Página Anterior | Próxima Página | Índice ]