Intrinsic functions - Enterprise COBOL for z/OS 6.3.0
A função "FUNCTION MAX" retorna o conteúdo do argumento que contém o maior valor.
| Tipo de argumento |
Tipo de função |
| Alphabetic |
Alphanumeric |
| Alphanumeric |
Alphanumeric |
| National |
National |
| All arguments integer (includes integer arguments of usage NATIONAL) |
Integer |
| Numeric (some arguments can be integer) (includes numeric arguments of usage NATIONAL) |
Numeric |
- argument-1
- é um alfabético, alfanumérico, inteiro ou um argumento numérico
Regras:
- Os argumentos devem ser todos alfabéticos, todos alfanuméricos, todos inteiros ou todos numérico, exceto os argumentos inteiros e numéricos que
podem ser mixados e alfabéticos com alfanuméricos que também podem ser mixados.
- O tipo da função depende dos argumentos, tais como:
- a. alfabético e/ou alfanuméricos - todos argumentos alfanuméricos
- b. inteiro - todas os argumentos devem ser inteiros.
- c. numérico - alguns argumentos podem ser inteiros.
- Caso mais de um argumento tiver o mesmo valor, e este valor é o máximo, o valor retornado consiste no maior conteúdo desses elementos.
- Se só um argumento for fornecido, o valor retornado consiste no conteúdo desse argumento.
- Se o tipo da função é alfanumérica, o tamanho do valor retornado é o mesmo do tamanho do argumento selecionado como máximo.
*-----------------------------------------------------------------
WORKING-STORAGE SECIOTN.
*-----------------------------------------------------------------
01 WS-AUXILIARES.
05 WS-MIN-1 PIC 9(010) VALUE 5.
05 WS-MIN-2 PIC 9(010) VALUE 10.
05 WS-MIN-3 PIC 9(010) VALUE 15.
05 WS-MIN-4 PIC 9(010) VALUE 20.
05 WSS-RESULTADO PIC 9(010) VALUE ZEROES.
*-----------------------------------------------------------------
PROCEDURE DIVISION.
*-----------------------------------------------------------------
* sintaxe do comando
* exemplo 01:
COMPUTE WSS-RESULTADO = FUNCTION MAX (2, 10, 15, 20, 25)
DISPLAY 'FUNCTION MAX ........ - ' WSS-RESULTADO
* Resultado: FUNCTION MAX ......... - 0000000025
* exemplo 02:
COMPUTE WSS-RESULTADO = FUNCTION MAX (WS-MIN-1 ,
WS-MIN-2 ,
WS-MIN-3 ,
WS-MIN-4)
DISPLAY 'FUNCTION MAX ........ - ' WSS-RESULTADO
* Resultado: FUNCTION MAX ......... - 0000000020
© Copyright IBM Corp.
|
