Enterprise COBOL for z/OS, Version 4.2
Para invocar um serviço de Ambiente de Linguagem, use uma instrução CALL com os parâmetros corretos para esse serviço.
Defina as variáveis para a instrução CALL em DATA DIVISION com as definições que são requeridas por esse serviço.
77 ARGUMENT COMP-1.
77 FEEDBACK-CODE PIC X(12) DISPLAY.
77 RESULT COMP-1.
. . .
CALL "CEESSSQT" USING ARGUMENT FEEDBACK-CODE RESULT
No exemplo acima, o serviço Language Environment CEESSSQT calcula o valor da raiz quadrada do argumento da variável e retorna esse valor no resultado da variável.
Você pode escolher se deseja especificar o parâmetro do código de feedback.
Se você especificá-lo, o valor retornado em feedback-code indica se o serviço foi concluído com sucesso.
Se você especificar OMITTED em vez do código de feedback e o serviço não for bem-sucedido, uma condição de Ambiente de linguagem é automaticamente sinalizada para
o gerenciador de condições de Ambiente de linguagem.
Você pode manipular tal condição pela lógica de recuperação implementada em um manipulador de condição escrito pelo usuário ou permitir o processamento do Ambiente
de Linguagem padrão para que ocorram condições não manipuladas.
Em ambos os casos, você evita ter que escrever uma lógica para verificar o código de feedback explicitamente após cada chamada.
Se você chamar um serviço que pode ser chamado de Ambiente de linguagem e especificar OMITTED para o código de feedback, o registro especial RETURN-CODE será
definido como 0 se o serviço for bem-sucedido.
Não é alterado se o serviço não for bem-sucedido. Se você não especificar OMITTED para o código de feedback, o registro especial RETURN-CODE será sempre definido
como 0, independentemente de o serviço ter sido concluído com êxito.
Example: Language Environment callable services -
Exemplo: serviços chamáveis ??de ambiente de linguagem
© Copyright IBM Corp.