COBOL - Funções intrínsecas - MIN
A função "FUNCTION MIN" retorna o conteúdo do argumento que contém o menor valor.
Regras:
Exemplos:
*----------------------------------------------------------------- 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 MIN (2, 10, 15, 20, 25) DISPLAY 'FUNCTION MIN ........ - ' WSS-RESULTADO * Resultado: FUNCTION MIN ......... - 0000000002 * exemplo 02: COMPUTE WSS-RESULTADO = FUNCTION MIN (WS-MIN-1 , WS-MIN-2 , WS-MIN-3 , WS-MIN-4) DISPLAY 'FUNCTION MIN ........ - ' WSS-RESULTADO * Resultado: FUNCTION MIN ......... - 0000000005