x

BAR(barlength, infield, maxvalue, 'char', output)

donde:

barlength

Numérico

Es la longitud máxima de la barra, en caracteres. Si este valor es menor o igual a 0, la función no devuelve una barra.

infield

Numérico

Es el campo de datos, trazado como un diagrama de barras.

maxvalue

Numérico

Es el valor máximo de una barra. Este valor debe ser superior al valor máximo guardado en infield. Si infield es mayor que maxvalue, la función usa maxvalue y devuelve una barra de la máxima longitud.

'char'

Alfanumérico

Es el carácter repetido, entre comillas simples, que crea las barras. Si especifica más de un carácter, sólo se usa el primero.

output

Alfanumérico

Es el nombre del campo que contiene el resultado, o el formato del valor de salida puesto entre comillas solas. El campo de salida debe ser lo suficientemente largo para contener una barra de la máxima longitud, definida por barlength.

Principio de página

Ejemplo: Cómo producir un diagrama de barras

BAR crea un diagrama de barras para el campo CURR_SAL y guarda la salida en SAL_BAR. Esta barra no puede tener más de 30 caracteres de longitud y el valor que representa no puede ser mayor a 30,000.

TABLE FILE EMPLOYEE
PRINT CURR_SAL AND COMPUTE
SAL_BAR/A30 = BAR(30, CURR_SAL, 30000, '=', SAL_BAR);BY LAST_NAME BY FIRST_NAME
WHERE DEPARTMENT EQ 'PRODUCTION';
END

La salida es:

LAST_NAME       FIRST_NAME         CURR_SAL  SAL_BAR 
---------       ----------         --------  -------
BANNING         JOHN             $29,700.00  =========================== 
IRVING          JOAN             $26,862.00  ========================== 
MCKNIGHT        ROGER            $16,100.00  ================ 
ROMANS          ANTHONY          $21,120.00  ===================== 
SMITH           RICHARD           $9,500.00  ========== 
STEVENS         ALFRED           $11,000.00  ===========

Principio de página

Ejemplo: Cómo crear un diagrama de barras con una escala

BAR crea un diagrama de barras para el campo CURR_SAL. A continuación, la solicitud reemplaza el nombre de campo SAL_BAR por una escala, mediante la frase AS.

Para ejecutar esta solicitud en una plataforma en que la fuente por defecto es proporcional, emplee una fuente no proporcional o emita SET STYLE=OFF.

SET STYLE=OFF

TABLE FILE EMPLOYEE
HEADING
"CURRENT SALARIES OF EMPLOYEES IN PRODUCTION DEPARTMENT"
"GRAPHED IN THOUSANDS OF DOLLARS"
" "
PRINT CURR_SAL AS 'CURRENT SALARY'
AND COMPUTE
    SAL_BAR/A30 = BAR(30, CURR_SAL, 30000, '=', SAL_BAR);
    AS '    5   10   15   20   25   30,----+----+----+----+----+----+'
BY LAST_NAME AS 'LAST NAME'
BY FIRST_NAME AS 'FIRST NAME'
WHERE DEPARTMENT EQ 'PRODUCTION';
ON TABLE SET PAGE-NUM OFFON TABLE SET
STYLE * GRID=OFF, $END

La salida es:

CURRENT SALARIES OF EMPLOYEES IN PRODUCTION DEPARTMENT 
GRAPHED IN THOUSANDS OF DOLLARS
                                               5 10 15 20 25 30 
LAST NAME    FIRST NAME    CURRENT SALARY ----+----+----+----+----+----+ 
---------    ----------    -------------- ------------------------------ 
BANNING      JOHN          $29,700.00     ============================= 
IRVING       JOAN          $26,862.00     =========================== 
MCKNIGHT     ROGER         $16,100.00     ================ 
ROMANS       ANTHONY       $21,120.00     ===================== 
SMITH        RICHARD        $9,500.00     ========== 
STEVENS      ALFRED        $11,000.00     ===========