Manual Progress Mio v332v

. Cuando se ha terminado de escribir el código de nuevo procedimiento en el buffer, se debe guardar para crear un nuevo archivo con la extensión.p. Para hacer esto, se usa la opción save del menú file o . Se debe agregar la extensión .p en el nombre del archivo ya que al abrirlo en otra ocasión posterior, PROGRESS emplea un filtro en donde se muestran todos los archivos .p. Para abrir un archivo .p creado anteriormente, se puede usar la opción open del menú file o la tecla .

Si se quiere saber cuales archivos están abiertos o sin guardar, se puede usar la combinación de las teclas o seleccionar la opción list del menú Buffer Cuando se está trabajando con varios archivos o buffers que no se han guardado, y se desea saber cuales son los que se encuentran activos, se emplea la combinación de teclas o se selecciona la opción List del menú Buffer. La caja de diálogo que muestra la lista de los buffers abiertos, muestra resaltado el que se está usando ese momento al final de la lista. Sin embrago se puede seleccionar otro buffer haciendo doble clic en el nombre del que se desea ir , o seleccionándolo y seleccionando el botón OK. Para desplazarse entre los buffers estando en la ventana de edición, se puede usar la tecla para ir al siguiente buffer, o la combinación de las teclas <Shift> para ir al buffer anterior. Lista de Buffers Cuando se trabaja con un grupo de procedimientos por periodos de tiempo largos, se puede lograr que este grupo de procedimientos se abra cada vez que se invoque al editor. El editor de procedimientos permite guardar una lista de buffers con la que está trabajando. Para incluir los archivos necesarios en una lista de buffer, todo lo que se necesita hacer es abrirlos todos en el editor como buffers y posteriormente seleccionar la opción Preferences del menú options. La próxima vez que se abra el editor, se abrirá con todos los archivos que se colocaron en la lista de buffer. Ventanas de procedimientos múltiples Con PROGRESS es posible trabajar con varias ventanas en la pantalla a la vez, esto tiene la ventaja de que se pueda cortar, copiar y pegar entre las ventanas. Cómo insertar campos de Base de datos en un procedimiento Cuando se hace clic en el botón derecho del mouse, se despliega un menú pop-up el que se pueden ejecutar alguna de las tareas que se encuentran en la barra de menús del editor. De esta manera se pueden insertar dentro del código del procedimiento elementos tales como nombres o campos de la Base de datos conectada o el contenido de un archivo. Verificación de sintaxis Para verificar la sintaxis de un procedimiento, éste se puede correr para probarlo y usar el depurador (debugger) del editor. También se puede revisar la sintaxis mediante las teclas <Shift> o seleccionando la opción check sintaxis del menú Compile. Ayuda sobre la sintaxis Si no se tiene la seguridad de que un estatuto o parte de él este correcta, se puede obtener ayuda del tema, marcando la palabra clave y presionando la tecla . Si la palabra tiene

más de un significado, se despliega una caja dialogo de búsqueda en donde se puede especificar alguno de los tópicos. Como correr un procedimiento Para correr un procedimiento se puede presionar la tecla o seleccionar la opción Run del menú Compile. Cuando se corre un procedimiento en el Editor de Procedimientos, PROGRESS primero lo compila temporalmente y posteriormente lo ejecuta. Se puede compilar permanentemente un procedimiento y convertirlo en un archivo con extensión .r, pero se debe hacer separadamente. Se puede compilar un procedimiento con le estatuto COMPILE o usando la opción Application Compiler del menú Tools. El estatuto COMPILE Se puede usar el estatuto COMPILE en una ventana de procedimiento en donde se debe especificar: el procedimiento que se va a compilar, si se desea que el archivo sea guardado en un archivo de código .r o en una versión de archivo de sesión compilada (SCV), en diferentes listas de archivos. Para iniciar la compilación de un procedimiento cuando se usa el estatuto COMPILE, se debe correr el procedimiento que lo contiene.

Cómo usar la herramienta Application Compiler Para compilar un procedimiento cuando está desplegado como buffer actual, en una ventana de procedimiento, se puede emplear la opción Application Compiler del menú Tools, esto permite definir los parámetros iterativamente con aquello que se hayan especificado en el estatuto COMPILE. COMPILE nom_proc SAVE

= expresión-lógica

INTO

nombre-dir

[ LISTING lista-nom-arch ] [ XREF xref-nom-arch ] Cuando se usa el estatuto COMPILE en una ventana de procedimiento, se debe indicar:

• • •

Cuál procedimiento se va a compilar Si se quiere guardar el archivo compilado como un archivo permanente .r o en un archivo de sesión compilada (SCV) Las diferentes listas

Para iniciar la compilación de un procedimiento con el estatuto COMPILE, se corre el procedimiento que contiene a dicho estatuto. También se puede compilar cuando se encuentra desplegado usando la opción Application Compiler del menú Tools. Esta opción permite iterativamente definir los parámetros. El empleo de la opción Compiler del menú Options permite definir algunos parámetros opcionales del comando compile de la misma manera que se haría con es estatuto COMPILE. CAPÍTULO V SINTAXIS DEL LENGUAJE DE PROGRESS PROGRESS es un lenguaje de cuarta generación. PROGRESS posee una sintaxis muy parecida al inglés hablado y proporciona estatutos muy poderosos para: • Tener ala Base de Datos • Programar interfaces de s (UI) Así mismo, proporciona todo el flujo y control para la construcción típica de un lenguaje de tercera generación (3GL).

Elementos del lenguaje En la siguiente tabla se listan los componentes de la sintaxis del lenguaje de PROGRESS. Elementos del lenguaje

Descripción

Statements Variables

Definen una acción o proceso Guardan datos en memoria para su procesamiento

Elementos de base de datos Operadores

Guardan datos en la base de datos Símbolos que ejecutan operaciones matemáticas o comparaciones Combinación de variables, campos de base de datos y operadores, que juntos producen algún valor. Comentarios, o referencias especiales, referencias tales como archivos include. Unidad de ejecución compuesta de una o más instrucciones. Grupo de declaraciones que son parte de la misma rama de condición o de un ciclo Están predefinidas, están dentro de un proceso, tales como cálculos o conversiones Unidades de despliegue en pantalla, que pueden aceptar datos del , de las variables de la aplicación, de archivos o de la base de datos.

Expresiones Símbolos especiales Procedimientos Blocks Funciones Obetos de interface de

Símbolos especiales En PROGRESS se utilizan los siguientes símbolos en sus procedimientos: Símbolo /* */ * Punto ( . )

Dos Puntos ( : )

Papel Encierran un comentario Comodín, sustituye a cualquier grupo de caracteres • Termina una instrucción • Comodín para un carácter • Separador. Separa el nombre de la base de datos del nombre de la tabla y del nombre del campo Terminación de Block, encabezado o etiqueta de Block. Introduce una atributo a la sintaxis de traducción

? ~ “” o ‘‘ {nombre-archivo} {} [] {&}

Introduce un atributo a un objeto o método Designa un valor desconocido Causa que el siguiente carácter sea tratado como literal Encierra a una cadena de caracteres Incluye referencia de archivo Argumentos de paso Referencia a una matriz, se usa para subindicar la matriz y los valores iniciales Variable del preprocesador Objetos de interfase de

Un objeto de interfase de (UI) permite desplegar gráficamente los datos en la pantalla. La siguiente tabla lista algunos de los elementos que se pueden usar cuando se trabaja con objetos: Elemento Object Events Trigger Handle Attribute Method

Descripción Elemento básico o componente de la GUI Acción emprendida por el sobre algún objeto Respuesta programada para un evento. Indicador nombrado para un objeto. Alguna característica de un objeto ya sea que se puede leer o asignar diferente valor Acción sobre algún objeto que regresa algún valor

Componentes de los estatutos La sintaxis de los estatutos de PROGRESS esta formada por una combinación de: Una palabra clave (keyword) obligatoria, parámetros y opciones específicas del estatuto, frases, expresiones y un terminador de estatuto que generalmente es un punto (.) Componente Keyword Parametre(s) and Option(s) Phrase(s) Expression

Papel Es el verbo principal de la declaración, designa la acción o el proceso que se ha de ejecutar Información adicional que indica que algo esta cambiando la acción o proceso designado por la declaración. Algún elemento común del lenguaje significa que pueden aparecer en algunas declaraciones de PROGRESS Es una combinación de variables, constantes y operadores que evalúan a un elemento de

Terminator

la sintaxis. Es el que le indica PROGRESS que termina una declaración.

Uso de variables Para poder usar una variable en PROGRESS, es necesario primero definirla, declarando su tipo y opcionalmente la forma en que se desplegará y posteriormente se le deben asignar los valores correspondientes. La definición de una variable reserva espacio para ella en un buffer similar al buffer de registro (llamado buffer de variable) Definición de variables Cuando se define una variable, se debe especificar si es una sola variable o una matriz describirla indicando el tipo de dato, valor inicial (si debe llegar alguno), etiqueta y los colores del fondo y primer plano, asi como la forma en que se visualizará usando algún tipo de objeto de la UI.

Sintaxis AS tipo-dato [ FORMAT (formato) ] DEFINE VARIABLE nom-var LIKE campo [ [ NOT ] CASE-SENSITIVE ] [DECIMALS n ] [EXTENT n ] [ INITIAL valores ] [LABEL string] [ BGCOLOR expression ] [ FGCOLOR expression ] [ NO-UNDO ] Asignación de valores a las variables En PROGESS se pueden asignar valores a las variables, fundamentalmente de dos maneras: Sintaxis • •

Especificando un valor inicial con el estatuto DEFINE VARIABLE Usando el estatuto ASSIGN

El uso del estatuto ASSIGN permite agrupar la asignación de valores de diferentes variables con un solo estatuto. Agrupando varias variables con este estatuto produce un código ejecutable más pequeño y rápido. Sintaxis ASIGN variable = valor [ variable = valor ... ] Ejemplo: ASSIGN Var1 = 3.1 Var2 = “hola” Var3 = 1 Var4 = 2 Uso del comando display

El comando DISPLAY mueve los datos del buffer de registros al buffer de la pantalla (se despliegan los valores de las variables en la pantalla) Sintaxis DISPLAY

Expresión [ format-phrase ] SPACE [(N)] SKIP [(n)]

[frame-phrase]

En la siguiente tabla se indica el significado de cada uno de los parámetros que se emplean con el estatuto DISPLAY: Parámetro Expresión Format-phrase Frame-phrase SPACE [(N)]

SKIP [(N)]

Designa Lo que se despliega. Puede ser una variable, una constante o un campo de base de datos Como se despliega el dato Características del marco que contiene los elementos desplegados. Número de espacios que se despliegan. Puede ser cero o un número positivo. Si es mayor el espacio del que cabe en la línea, PROGRESS salta a la siguiente línea y no despliega más espacios. Número de líneas que debe saltar: • Si n es cero o si no se especifica , PROGRESS salta a la siguiente línea, a menos que ya haya saltado a una nueva línea debido a la longitud de los datos desplegados. • Si se especifica SKIP (1) PROGRESS salta a una nueva línea sin importar que ya haya saltado una nueva línea.

Introducción de valores para las variables Estatutos para aceptar entradas del Para permitir al introducir datos se usan los siguientes estatutos SET, PROMPT-FOR Y UPDATE. PROMPT-FOR

Interactúa solamente con el buffer de pantalla, permite al introducir valores pero no los pasa al buffer de registro por lo que no se pueden tomar valores para usarlos ya que dichos valores permanecen en el buffer de pantalla solamente. Para poder usar estos valores se debe usar la función INPUT. Ejemplo: /* p5-13 */ DEFINE VARIABLE nombre AS CARÁCTER FORMAT “X (20)” LABEL “Introduzca su nombre”. DEFINE VARIABLE saludo AS CARÁCTER FORMAT “X (27)” PROMPT-FOR nombre. ASSIGN saludo = “Hola, ” + INPUT nombre + “!” . DISPLAY saludo. El estatuto SET Se le puede pedir al que introduzca un valor , que será asignado a una variable (PROGRESS lo pasa del buffer de pantalla al buffer de registro)

Ejemplo: /* p5-12 */ DEFINE VARIABLE name AS CARÁCTER FORMAT “X (20)” LABEL “Introduzca su nombre”. DEFINE VARIABLE saludos AS CARÁCTER FORMAT “X (27)” SET name. ASSIGN saludos = “Hola, ” + name + “ ! ” . DISPLAY saludos. El estatuto UPDATE El estatuto UPDATE despliega los campos o variables, solicita al una entrada y posteriormente la coloca tanto en el buffer de pantalla como en los campos o variables específicos. Es una combinación de los siguientes estatutos: • • •

DISPLAY ya que pasa los valores de los campos o variables al buffer de pantalla y los despliega. PROMPT-FOR ya que solicita al datos y los coloca en el buffer de pantalla. ASSIGN porque pasa los datos del buffer de pantalla al buffer de registro.

Sintaxis UPDATE [{field [format-phrase][WHEN expression]}| {TEXT (field [format-phrase]…)}| {field = expression }| {constant [ A T n|TO n]}| {^}|{SPACE [(n)]}|{SKIP[(n)]}]…. [GO-ON (key-label…)] [frame-phrase] [editing-phrase] [NO-ERROR] Ejemplo de sintaxis UPDATE record [EXCEPT field….] [frame-phrase] [NO-ERROR] En el siguiente ejemplo, el procedimiento permite desplegar cada registro de la tabla customer así como modificar el nombre y el límite de crédito. LA opción VALIDATE en le primer estatuto UPDATE garantiza que se introduzcan valores menores de 500,000. La opción HELP despliega un mensaje para tal efecto. /* r-updat2.p */ FOR EACH customer: UPDATE customer.name Credit-limit VALIDATE (credit-limit < 500000, “Too high”) HELP “Enter credit-limit < 500000”. FOR EACH order OF customer: DISPLAY order-num. UPDATE promise-date ship-date VALIDATE(ship-date < today, “Ship date must be later than today ”). END END El segundo block lee cada registro de la tabla order que pertenece a customer, despliega el campo order-num y permite modificar los campos promise-date y ship-date. La opción VALIDATE asegura que no se introduzca un fecha de envío anterior a la actual. Este procedimiento.....sigue

Las Expresiones PROGRESS Las expresiones son parecidas a una formula en donde se combinan variables y/o constantes junto con algunos operadores. Los elementos que se pueden usa son: constantes, variables, campos de base de datos atributos de los objetos y operadores.

Operadores Los operadores que se usan en PROGRESS pueden ser aritméticos, lógicos o de comparación, en las siguientes tablas se muestran los tres tipos: Operadores Aritméticos Símbolo + -

* /

Operación Valor positivo Suma numérico y de operandos de fecha Concatenación de operandos string • Valor negativo • Resta numérica y de operandos de fecha Multiplicación de dos operandos de fecha División de dos operandos numéricos, produce un valor decimal.

Operadores Lógicos Palabra clave(operador) AND OR NOT

Operación Y lógico, produce un valor verdadero solamente si ambos operadores son verdaderos. O lógico produce un valor verdadero si uno de los operandos es verdadero. Negación lógica niega el valor de un operando lógico.

Operadores de comparación Símbolo del operador = <> > < >= <=

Palabra clave EQ EN GT LT GE LE BEGINS MATCHES CONTAINS

Designa Igualdad Desigualdad Mayor que Menor que Mayor o igual que Menor o igual que Revisa si un string comienza con otro string Compara un string con un patrón Revisa si un string en un campo de palabra indexada contiene un substring

Para evaluar una expresión, PROGRESS sigue el siguiente orden: 1. Funciones. 2. Expresiones dentro de paréntesis. 3. Operadores. • Signo. • Multiplicación, división, módulo. • Suma, resta (incluyendo operaciones con fecha). • MATCHES, BEGINS, operadores de comparación. • NOT • AND • OR Conexión a una base de datos con código Estatuto CONNECT Para que un procedimiento que accesa a una base de datos, corra debe contenerse a la base de datos referida esto se puede hacer desde el DATA DICTIONARY o bien mediante el estatuto CONECT desde un procedimiento. Para que el se conecte a una o más bases de datos se deben usar el estatuto CONNECT. Las operaciones que se emplean para conectarse a una base de datos son las mismas que se usan en el diccionario de datos. Al conectarse a una base de datos se puede usar o no el nombre físico con el path completo. También se puede indicar un nombre lógico, sin embargo si no se indica el nombre lógico, PROGRESS le asigna uno usando el mismo nombre del archivo sin extensión o path. El nombre lógico es necesario para desconectarse de la base de datos. Sintaxis: CONNECT ({physical-name} [options] options ) [NO-ERROR] Desconexión de una base de datos Estatuto DISCONNECT Para desconectarse de una o más bases de datos desde un procedimiento se usa el estatuto DISCONNECT Sintaxis: DISCONNECT {logical-name} [NO-ERROR] /*Programa para conectar y desconectar bases de datos */ CONNECT ... \nom-bd. DISCONNECT nom-bd (LOGICO). Las funciones de PROGRESS Las funciones son procedimientos preconstruidos que pueden tomar parámetros y siempre regresan un valor. Cuando se usa una función, el valor que regresa se puede desplegar o asignarlo a una variable o campo de base de datos. PROGRESS proporciona un gran número de funciones, entre las que se encuentran funciones para:

• • • • • •

Verifica el estado de una conexión a una base de datos. Manipulación del PROPATH. Manipulación y cálculo de fechas. Manipulación de strings. Conversiones de tipo de datos. Comandos del sistema operativo.

Funciones de conexión Las funciones relacionadas con la conexión permite verificar la conexión a una base de datos y regresa alguna información de la misma. En la siguiente tabla se describen algunas de las funciones de conexión: Función CONNECTED

Sintaxis CONNECTED (“nom-log base datos”)

NUM-DBS

NUM_DBS

DBNAME

DBNAME

LDBNAME

LDBNAME(“logical-name” | integer)

PDBNAME

PDBNAME(“logical-name” | integer)

DBTYPE

DBTYPE(“logical-name” | integer)

Regresa Verdadero si la conexión es exitosa Número de base de datos conectadas Nombre físico o lógico de la base de datos conectada, dependiendo del nombre usado par ala conexión Nombre lógico de la base de datos conectada Nombre físico de la base de datos conectada Tipo de base e datos conectada (PROGRESS, Oracle, etc.)

Se pueden ejecutar comandos del sistema operativo desde un procedimiento de PROGRESS usando una combinación de los siguientes estatutos y funciones: Estatuto / Función Sintaxis OPSYS OPSYS OS-COMMAND OS-COPY OS-APPEND OS-RENAME OS-DELETE OS-CREATE-DIR OS-GETENV

Descripción Verifica en que sistema operativo esta corriendo el programa OS-COMMAND[SILENT] Sale al sistema operativo y ejecuta el comando-y-parámetros comando indicado. OS-COPY(fuente destino Copia un archivo OS-APPEND(fuente destino) Fusiona dos archivos OS-RENAME(oldname new Cambia el nombre a un archivo name) OS-DELETE(nom-archivo) Elimina un archivo OS-CREATE-DIR(nom-dir) Crea un directorio OS-GETENV(en-var-name) Obtiene información de las variables

OS-DRIVES OS-ERROR

OS-DRIVES OS-ERROR

Reporta los drives disponibles Verifica el estado de error después de ejecutar un comando del sistema operativo.

Funciones String y sus operadores Los string se pueden concatenar usando el operador (+) para pegar dos o más strings de la siguiente manera: String1 + String2 En la siguiente tabla se describe algunas de las funciones y operaciones que se puedan aplicar a los strings: Función STRING BEGINS MATCHES

LENGTH INDEX R-INDEX SUBSTRING Función SUBSTRING Statement CAPS LC FILL TRIM LEFT-TRIM RIGHT-TRIM OVERLAY

Sintaxis STRING(valor) string1 BEGINS string2 string MATCHES patron

Operación Convierte otro tipo de dato en string. Revisa si string1 comienza con string2. Revisa si string cumple con el patrón, que puede contener comodines: Punto (.)- para un carácter Asterisco(*)- para cualquier número de caracteres, incluyendo nulos. LENGTH(string) Regresa el número de caracteres o bytes contenidos en string. INDEX(fuente, Regresa la posición del string destino en el destino[,inicio]) string fuente. R-INDEX(fuente, Igual que index, pero ejecuta la búsqueda destino[,inicio]) de derecha a izquierda. SUBSTRING (string, Extrae un substring de una longitud posición, [longitud]) comenzando en la posición señalada del string. SUBSTRING (destino, Substituye el contenido de una variable o posición, [longitud]) = string campo destino con el string, iniciando en la posición señalada en destino. CAPS (string) Convierte un string en mayúsculas. LC (string) Convierte un string en minúsculas. FILL (string,n) Crea un string del string de entrada, repetido n veces. TRIM (string, [trim-chars]) Corta los primeros y últimos espacios de string. LEFT-TRIM (string, [trimCorta los espacios iniciales. chars]) RIDTH-TRIM (string, [trim- Corta los últimos espacios. chars]) OVERLAY (destino, Sobrescribe en destino la expresión en la posición [,longitud[,tipo]]) = posición señalada.

expresión En la siguiente tabla se describen algunas de las funciones y operaciones que se pueden aplicar a un string: contiene una lista de elementos. La lista se delimita por comas por omisión, sin embargo, se puede indicar otro delimitador. Función LOOKUP

Sintaxis LOOCKUP (string, list[,delimitador]) ENTRY (index, list[delimitador]) NUM-ENTRIES (list([,delimitador]))

ENTRY NUM-ENTRIES

Operación La posición del string en lista. El carácter es índice en el string. Número de elementos en la lista.

Funciones para fechas Las funciones relacionadas con las fechas permiten obtener la fecha actual o manipular la información de fechas. En la siguiente tabla se hace una descripción de las funciones de fecha: Función Today Date Day Month Weekday Year ( ) Time ( )

Sintaxis

Operación TODAY Regresa la fecha actual del S. O. DATE(mes, día, año /fecha-string) Convierte un string a tipo date. DAY (fecha-expresión) Regresa el número correspondiente al día. MONTH(fecha-expresión) Regresa el número correspondiente al mes. WEEKDAY(fecha-expresión) Regresa el string correspondiente al día. YEAR(fecha-expresión) Regresa el número correspondiente al año. TIME Regresa la hora del sistema operativo.

Ejemplo: /* Operaciones con la función DATE*/ DEFINE VARIABLE days_since AS INTEGER FORMAT ”9999”. day_since = TODAY – DATE (“01 / 01 / 2005 “) . DISPLAY “Hoy es “ TODAY. DISPLAY “Hoy es el “ days_since “avo. Día del año.” WITH NO-LABELS. Funciones numéricas y operadores

Junto con las operaciones aritméticas se pueden usar la operación TRUNCATE y el operador MODULE para operar con valores numéricos, también se pueden convertir otros tipos de datos a tipos de datos numéricos. En la siguiente tabla se indica el uso de las funciones: Función INTEGER

Sintaxis INTEGER(expresión)

DECIMAL

DECIMAL(expresión)

TRUNCATE

TRUNCATE(decimal, numdec) Num1 MODULE num2

MODULO

operación Convierte a la expresión en enteros tipo fecha. Convierte la expresión a dato tipo decimal. Trunca num-dec de decimal Divide num1 entre num2 y regresa el residuo.

Usando Set Se puede utilizar el SET para vaciar pronto algunos valores, y entonces estos valores son asignados a las variables.(Progress mueve el registro del buffer). El siguiente ejemplo permite la entrada hasta el primer nombre. /* Programa que ejemplifica el uso del SET */ DEFINE VARIABLE nombre AS CHARACTER FORMAT “X(20)” LABEL “Escribe tu primer nombre”. DEFINE VARIABLE saludo AS CHARACTER FORMAT “X(27)”. SET nombre. ASSIGN saludo = “Hola, ” + nombre + “ ! “ . DISPLAY saludo. Usando el Prompt-For PROMPT-FOR permite el uso de la entrada de valores, pero no permite mover el valor entre el buffer de registro. Por eso tú no puedes referirlo, desde que un valor entra en el buffer de pantalla tu lo puedes referir al uso de la función INPUT. /* Programa que ejemplifica el uso del PROMPT-FOR */ DEFINE VARIABLE nombre AS CHARACTER FORMAT “X(20)” LABEL “Escribe tu primer nombre”. DEFINE VARIABLE saludo AS CHARACTER FORMAT “X(27)”. PROMPT-FOR nombre. INPUT nombre. ASSIGN saludo = “Hola, ” + nombre + “ ! “ . DISPLAY saludo.

NOTA: Poner INPUT. ASSIGN saludo = “Hola, ” + INPUT nombre + “ ! “ . BLOQUES EN PROGRESS ¿ Qué es un bloque ?. Una serie de estatutos que PROGRESS trata como una sola unidad para definirles características. -Generalmente un bloque comienza con un estatuto de encabezado y concluye con un estatuto END. Tipos de Bloques Procedimientos: - Procedimiento principal. - Procedimiento interno. - Procedimiento externo (programas). Triggers. Bloques de control: - DO. - REPEAT. - FOR EACH.

Reglas generales para bloques. - Siempre inician con un estatuto de encabezado de bloque. - Siempre terminan con un estatuto END. - Tienen servicios implícitamente definidos llamados propiedades de bloque. - Algunos bloques pueden ser nombrados. - A varios bloques es posible definirles servicios de forma explícita. Bloques de Control - Bloque de DO. Es usado generalmente para agrupar estatutos y éstos sean tratados como una sola unidad. Sintaxis parcial: { label : } DO { FOR record } { variable = expression 1 TO expression 2 { BY k } } { WHILE expression }:

/*Programa que ejemplifica el uso del DO*/ DEFINE VARIABLE i As INTEGER. Mensaje: DO i=1 TO 5 BY 1: DISPLAY “Progress ”. END. Bloque de REPEAT. Este bloque tiene implícito el servicio de ciclo. Sintaxis parcial: [ label:] REPEAT [FOR record [variable = expresion1 TO expresion2 [BY k] ] [WHILE expresion ]: /*Programa que ejemplifica el uso del REPEAT*/ DEFINE VARIABLE i AS INTEGER . REPEAT i = 1 TO 10 BY 1: DISPLAY “ Progress “. END. /*Programa que ejemplifica el uso del REPEAT*/ DEFINE VARIABLE i AS INTEGER. DEFINE VARIABLE count AS INTEGER FORMAT “99” INITIAL 0. DEFINE VARIABLE nombre AS CHARACTER FORMAT “X(20)” LABEL “lista de nombres”. SET nombre. REPEAT i = 1 TO NUM-ENTRIES(nombre) BY 1: DISPLAY ENTRY(I, nombre) FORMAT “X(25)”. ASSIGN count = count + 1. END. MESSAGE “Hay “ count “lista de nombre”. Bloque de FOR EACH Este bloque tiene implícito el servicio de ciclo. Es también una estructura esencial para moverse a través de registros en la base de datos. Sintaxis. [label:] FOR [ EACH|FIRST|LAST]record-phrase [variable = expression1 TO expression2 [ BY k]] [WHILE expression ][WHERE expression]: /*PROGRAMA NO. Pendiente*/ FOR EACH CLIENTE: DISPLAY nombre. END.

Estatuto IF.....THEN.....ELSE Este estatuto permite ejecutar una de dos acciones, dependiendo de las condiciones en el momento de correr. Sintaxis: IF condición THEN expresión 1 [ELSE expresión 2] Estatuto Case Sintaxis: CASE expression: WHEN value1 [.. OR WHEN valuen....] THEN { OTHERWISE { } END [ CASE]

}

WHEN...

/* Programa que ejemplifica el uso del CASE */ DEFINE VARIABLE os AS CHAR. ASSIGN os = OPSYS. CASE os: WHEN “UNIX” THEN UNIX is. WHEN “MSDOS” OR WHEN “OS2” THEN OS-COMMAND dir. WHEN “VMS” THEN VMS directory. WHEN “BTOS” THEN BTOS “[sys]<sys>files.run” files. OTHERWISE DISPLAY OPSYS “Es un sistema Operativo no soportado”. END CASE. Definición de la condición de salida del ciclo. Para terminar un ciclo iteractuante, se utiliza los siguientes mecanismos: o Usar el valor de una variable como limites inferior y superior. o Agregando la expresión WHILE: o Usando el estatuto LEAVE: DO...WHILE Sintaxis: [etiqueta:] DO[WHILE expresión] Estatutos…. END: REPEAT… WHILE Sintaxis:

[etiqueta:] REPEAT [WHILE expresión] Estatutos…. END. Acciones dentro del ciclo. Estatuto NEXT [etiqueta] LEAVE

Especifica... Va directamente al final del block e inicia el procesamiento de su siguiente interacción. Sale del block y continua procesando el siguiente estatuto.

LEAVE Sintaxis: loop: REPEAT: estatutos... IF......THEN......LEAVE loop. estatutos END. Laboratorio 1. Hacer un programa que permita al introducir su nombre completo y se muestren las iniciales. Solución DEFINE VARIABLE lnombre AS CHAR FORMAT “X(15)” LABEL “Apellido Paterno”. DEFINE VARIABLE fnombre AS CHAR FORMAT “X(25)” LABEL “Primer nombre”. DEFINE VARIABLE mi AS CHAR FORMAT “X(15)” LABEL “Apellido materno”. DEFINE VARIABLE Monograma AS CHAR FORMAT “X(40)”. SET fnombre lnombre mi. ASSIGN Monograma = CAPS (SUBSTRING ( fnombre,1,1)) + CAPS ( SUBSTRING ( lnombre,1,1)) + CAPS ( SUBSTRING ( mi,1,1)). DISPLAY Monograma 2. Hacer un programa que muestre la fecha actual y diga cuantos años le faltan para el 2020. Solución:

DEFINE VAR tday AS DATE. DEFINE VAR tyear AS INTEGER. DEFINE VARIABLE yleft AS INTEGER FORMAT 9. ASSIGN tday = TODAY tyear = YEAR (tday) yleft = 2020 - tyear. DISPLAY “La fecha de hoy es:” tday SKIP (1). DISPLAY “Faltan” yleft “años hasta llegar al 2020”. 3. Hacer un programa que diga que día de la semana es hoy. Si es sábado o domingo, que salude al deseándole un feliz fin de semana. Sí es viernes que despliegue el mensaje “¡Al fin es viernes!”. Solución: DEFINE VAR tday AS DATE. DEFINE VAR wdayi AS INT. DEFINE VAR wday AS CHAR INITIAL [“Domingo, Lunes, Martes, Miércoles, Jueves, Viernes, Sábado”]. ASSIGN tday = TODAY. wdayi = WEEKDAY(tday). DISPLAY “La fecha de Hoy es:” tday SKIP (1) WITH NO-LABEL. CASE wdayi: WHEN 1 OR WHEN 7 THEN DISPLAY “¡Que tengas un buen fin de semana!”. WHEN 6 THEN DISPLAY “¡Finalmente es Viernes!”. OTHERWISE DISPLAY SKIP (1) “Hoy es” + STRING(ENTRY(WEEKDAY(tday), wday)) + “.” FORMAT “X(25)”. END CASE. COMANDOS A UTILIZAR o o o o o o o o

Filosofía de movimiento de datos. Uso de FIND * Uso de Queries. Modificación de información. Creación de registros . Borrado de registros. Uso del Browse. Frame

Comandos a utilizar en el manejo de tablas • • • •

ALTAS INSERT BAJAS DELETE CAMBIOS UPDATE CONSULTAS DISPLAY

NOTA: UNDO, RETRY: Cancela el mensaje y reintenta al posicionarse de nuevo en la captura. Estatuto FIND • Para accesar un registro específico de la base de datos y ponerlo en el buffer de registro, se utiliza el estatuto Find. •

El estatuto Find requiere que se le especifique el registro a encontrar.

•

Find hace uso de un índice.

Sintaxis del estatuto FIND FIND [ FIRST | LAST | NEXT | PREV | CURRENT ] record [ OF table ] [ WHERE expression ] [ USE - INDEX index ] [ USING field ] [ NO- ERROR ] /*Para encontrar el cliente número 2 :*/ FIND articulos WHERE articulos.noart = 2. /* Para desplegar los datos del cliente encontrado:*/ DISPLAY articulos. /*Para desplegar ciertos datos del cliente :*/ DISPLAY articulos.nomart articulos.Cantidad articulos.descart. /*Para desplegar haciendo excepciones:*/ DISPLAY articulos EXCEPT articulos.nomart. /* encontrar el ultimo articulo. Nota: que es el ultimo en la base de datos*/ FIND LAST articulos. DISPLAY articulos.noart articulos.nomart. PAUSE. /*Encontrar el articulo numero 3*/ FIND articulos WHERE articulos.noart = 3.

DISPLAY articulos.noart articulos.nomart. PAUSE. Función AVAILABLE Devuelve un valor lógico indicando si en el buffer de registro indicado hay un registro disponible. Para usarse en conjunto con el estatuto FIND, debe usarse con la opción de NO-ERROR. Sintaxis: AVAILABLE record *Programa que ejemplifica el uso del available*/ REPEAT: PROMPT-FOR articulos.noart. FIND articulos USING nomart NO-ERROR. IF AVAILABLE articulos THEN DISPLAY nomart cantidad descart. ELSE MESSAGE "Not found". END. ¿ Que son los queries ? • Es una solicitud de información a la base de datos. • Es un conjunto de registros de base de datos; puede consistir de una o más tablas, y puede contener todos los registros de una tabla en particular, o bien sólo un subconjunto de registros. Características Para utilizar un QUERY es necesario seguir la secuencia: • Definir el QUERY.Abrir el QUERY.Hacer uso del QUERY. • Cerrar el QUERY Uso de Queries Definición del Query Sintaxis (parcial):Define Query query-name For archivo • [Fields/Except[ field-list] [Cache n] • [Scrolling]. •

La definición del query requiere que le sean definidas todas las tablas a ser utilizadas.

Cache Indica el número de registros que serán mantenidos en memoria. La opción SCROLLING debe ser usada cuando se desea tener la capacidad de reposicionarse libremente en el query. En caso de ser seleccionada la opción caché es activada por default la opción Scrolling.

• • •

Uso del estatuto GET Funciona parecido a un estatuto FIND, con la diferencia de que este estatuto funciona con un query definido. El estatuto GET mueve información de la base de datos al buffer de registro.

Estatuto GET

Sintaxis GET {FIRST|NEXT|PREV|LAST|CURRENT} query [NO-ERROR]

* Después de un estatuto GET es posible usar la función AVAILABLE para verificar si fue posible traer un registro al buffer. * Características del estatuto GET •

Cuando se aplica el estatuto GET a un query que referencia a varias tablas, el estatuto regresa un conjunto de registros que corresponde a un “renglón” de la consulta.

* Si se ejecuta un GET NEXT después del último registro disponible del query, la condición de error NO se habilita. Se debe aplicar la función Available para probar si se regresó el registro. *Cuando se ejecuta el estatuto GET, cualquier trigger de FIND definido para las tablas se ejecuta. /*Ejemplo del QUERY y el estatuto GET*/ DEFINE QUERY q-prueba FOR articulos. OPEN QUERY q-prueba FOR EACH articulos. GET FIRST q-prueba. REPEAT WHILE AVAILABLE articulos: DISPLAY articulos.noart articulos.nomart. GET NEXT q-prueba. END. Estatuto Update * Sintaxis (parcial): UPDATE [field [ WHEN expression {SPACE [(n ) ]} | { SKIP [(n)]}]]...[NO ERROR] * El estatuto Update realiza lo siguiente:* Crea una interfase default. * Despliega datos del registro(DISPLAY). * Habilita la captura y bloquea la ejecución para permitirle al interactuar con los datos (PROMPT-FOR). * Asigna los cambios (ASSIGN). * El registro cuyos datos se actualizarán debe estar en el buffer de registro.

* El estatuto Update realiza el siguiente movimiento de información: /*Programa que ejemplifica el uso del UPDATE*/ DEFINE VARIABLE v-articulo LIKE articulos.noart. /*Nótese que para salir del ciclo repeat es necesario presionar la tecla Esc, durante la captura de v-articulo*/ REPEAT: UPDATE v-articulo. FIND articulos WHERE articulos.noart = v-articulo NO-ERROR. IF AVAILABLE articulos THEN DO: DISPLAY articulos.noart. UPDATE articulos.nomart articulos.descart articulos.Cantidad. END. END. CREACION DE REGISTROS Estatuto CREATE o Sintaxis:

CREATE: record [NO-ERROR]

Este estatuto crea un registro nuevo vacío y la copia al buffer de registro. Si hay valores iniciales estos son asignados aquí . Es recomendable permitir actualizar la información inmediatamente después de haber creado el registro. /*Programa para crear Registros */ /*Nótese que para salir del ciclo de REPEAT es necesario presionar la tecla ESC o F4 durante la captura del PROMPT-FOR*/ REPEAT: PROMPT-FOR articulos.noart. FIND articulos WHERE articulos.noart = INPUT articulos.noart NO-ERROR. /* Si no existe se crea y se le asigna una llave solicitada */ IF NOT AVAILABLE articulos THEN DO: CREATE articulos. ASSIGN articulos.noart. END. UPDATE articulos EXCEPT articulos.noart WITH 2 COLUMNS. END.

Estatuto Message Sintaxis (parcial): MESSAGE mensaje { SKIP [ (n) ]} [ VIEW AS ALERT-BOX] [tipo-ventana][ BUTTONS tipo-botones ] [ UPDATE variable ]. Notas sobre el estatuto MESSAGE: El mensaje es desplegado en el área de mensajes si la ventana activa la tiene definida, de lo contrario usa una caja de alerta. Estatuto INSERT Sintaxis: INSERT record [EXCEPT field...][NO-ERROR] Este estatuto crea un nuevo registro de base de datos, despliega los valores iniciales para los campos del registro permite capturar sus valores, y asigna dichos valores al registro. Este estatuto es una combinación de los estatutos CREATE Y UPDATE. /*Muestra como se utiliza el insert */ REPEAT: INSERT articulos WITH 2 COL. END. BORRADO DE REGISTROS Estatuto DELETE o Sintaxis ERROR] • •

DELETE record [VALIDATE (condition, msg-expression)] [NO-

El registro a borrar debe estar disponible en el buffer de registro. Este estatuto no mueve información, solamente borra al registro del buffer de registro y le indica al manejador de base de datos que debe borrarse físicamente.

/*Programa para borrar registros*/ define variable sn as character format "x(1)" LABEL "¿Seguro que desea borrar archivo? (s/n)". define frame a nomart skip Cantidad skip descart skip with side-labels centered.

define frame b sn with side-labels centered 1 down. repeat for articulos: PROMPT-FOR nomart. FIND articulos USING nomart no-error. if not available articulos then do: message "Número de artículo no existe, Favor de verificar". end. else do: DISPLAY nomart Cantidad descart WITH frame a . /* SIDE-LABELS centered.*/ set sn with 1 down. if sn = 's' then do: message "Artículo Borrado con éxito". delete articulos. end. else do: message "Artículo No ha sido Borrado". end. end. end. U s o d e l Bro w s e ¿ Qué es un Browse ? Es una lista de selección de registros de la base de datos. o Sintaxis (parcial): DEFINE BROWSE browse-name QUERY query-name DISPLAY { column -list | {record [ EXCEPT field...]}} [browse-enable-phrase] Estatuto Release Verifica que un registro cumpla con un campo obligatorio y las definiciones únicas del índice. Elimina el registro del buffer y lo asocia a la base de datos si lo ha de modificar. FRAMES ¿Qué es un Frame? o Un frame es un área rectangular que Progress usa para desplegar objetos a nivel de campo.

Estatuto Enable Valida entradas para uno o más niveles de campo y [widgets] del frame del child dentro de un frame. /*Programa que muestra el funcionamiento del QUERY, BROWSE, RELEASE, FRAME, BOTTON */ DEFINE BUTTON upd-articulos LABEL "Cambios articulos". DEFINE BUTTON exit-app LABEL "Exit". DEFINE VARIABLE methRtn AS LOGICAL. DEFINE VARIABLE curr-articulos AS ROWID. DEFINE QUERY seq-articulos FOR articulos. DEFINE BROWSE brow-articulos QUERY seq-articulos DISPLAY noart nomart WITH 10 DOWN. FORM upd-articulos exit-app SKIP(1) brow-articulos WITH FRAME main-frame. FORM articulos EXCEPT descart WITH FRAME curr-frame COLUMN 40. OPEN QUERY seq-articulos FOR EACH articulos. ON VALUE-CHANGED OF brow-articulos DO: DISPLAY articulos EXCEPT descart WITH FRAME curr-frame SIDE-LABELS. curr-articulos = ROWID(articulos). END. ON CHOOSE OF upd-articulos DO: /* TRANSACTION */ FIND articulos WHERE ROWID(articulos) = curr-articulos EXCLUSIVE-LOCK. UPDATE articulos WITH FRAME cust-frame VIEW-AS DIALOG-BOX TITLE "articulos Update". methRtn = brow-articulos:REFRESH(). DISPLAY articulos EXCEPT descart WITH FRAME curr-frame

SIDE-LABELS. RELEASE articulos. END. ENABLE ALL WITH FRAME main-frame. APPLY "VALUE-CHANGED" TO brow-articulos. PAUSE 0 BEFORE-HIDE. WAIT-FOR CHOOSE OF exit-app OR WINDOW-CLOSE OF DEFAULT-WINDOW. /* Programa que ejemplifica el uso del ENABLE*/ DEFINE BUTTON btn1 SIZE-PIXELS 80 BY 50 LABEL “1”. DEFINE BUTTON btn2 SIZE-PIXELS 80 BY 50 LABEL “2”. DEFINE BUTTON btn3 SIZE-PIXELS 80 BY 50 LABEL “3”. DEFINE BUTTON btn4 SIZE-PIXELS 80 BY 50 LABEL “4”. DEFINE BUTTON btn-done SIZE-PIXELS 100 BY 70 LABEL “Done”. DEFINE FRAME f-buttons btn1 btn2 SKIP (1) btn3 btn4 SKIP (2) btn-done WITH 2 COLUMNS. ENABLE btn1 btn2 btn3 btn4 btn-done WITH FRAME f-buttons. WAIT-FOR CHOOSE OF btn-done IN FRAME f-buttons. Manejo De Errores Procesamiento de errores El procesamiento de los errores de Progress depende del tipo de error generado. Progress reconoce los siguiente errores: • Error generado por procedimiento. • Una tecla predefinida de ERROR. • Una tecla predefinida de ENDKEY. • La tecla de END-ERROR. • Una falla del sistema o software.

Tipo de Error * Error de procedimiento Presionar la tecla * predefinida de ERROR. * Presionar la tecla predefinida ENDKEY * Presionar la tecla de END-ERROR. * Presionar la tecla de STOP. * Cuando falle el sistema

Acción * UNDO RETRY * UNDO RETRY * UNDO LEAVE * UNDO LEAVE ó UNDO RETRY * Deshace la transacción actual y corre el proc. de inicio. * Deshace cualquier transacc. incompleta para todos los s del sistema.

El procesamiento de error es un servicio asociado a bloques. La propiedad de error puede ser manipulada usando la frase NO ERROR en los encabezados de los bloques: o FOR EACH. o DO. o REPEAT. El procesamiento default es deshacer y reintentar el proceso del bloque (UNDO, RETRY). Side-Labels El uso de SIDE-LABELS coloca la etiqueta de las variables a su izquierda en lugar de colocarlas como cabeceras de columnas en la parte superior del marco. Cuando no se especifican las etiquetas los nombres de las variables actúan como etiquetas. DEFINE VAR var1 AS DECIMALS 1. DEFINE VAR var2 AS CARÁCTER FORMAT “X(5)” CASE_SENSITIVE: DEFINE VAR arr AS INTEGER extent 3. Define var var4 as char format “Q 9” extent 4 initial [1, 2, 3, 4]. Def var var5 as logical format “in/out” initial “in”. Assign var1 = 3.1 var2 = “HOLA” arr[1] = 1 arr[2] = 2 arr[3] = 3. Display “aqui están los valores de hoy: “

var1 FORMAT “99.99” var2 arr[1] arr[2] arr[3] arr4[1] var4[2] var5 with side-labels. Como ordenar el contenido de un marco en columnas n COLUMN Con esta opción se presentan los elementos del marco en una o más columnas. En este caso PROGRESS usa la opción SIDE-LABELS por omisión, tomando en como etiquetas los nombres de las variables. DEFINE VAR var1 AS DECIMALS 1. DEFINE VAR var2 AS CARÁCTER FORMAT “X(5)” CASE_SENSITIVE: DEFINE VAR arr AS INTEGER extent 3. Define var var4 as char format “Q 9” extent 4 initial [1, 2, 3, 4]. Def var var5 as logical format “in/out” initial “in”. Assign var1 = 3.1 var2 = “HOLA” arr[1] = 1 arr[2] = 2 arr[3] = 3. Display “aquí están los valores de hoy: “ var1 FORMAT “99.99” var2 arr[1] arr[2] arr[3] arr4[1] var4[2] var5 with 1 column.. Cuando se usa la opción n COLUMNS se debe tomar en cuenta el espacio que se necesita para mostrar los datos en cada columna. Si los datos que se despliegan ocupan más espacio que del que se dispone para cada columna, PROGRESS trunca los datos. Como usar la opción NO-BOX El uso de esta opción elimina el marco dentro del cual se despliegan los elementos. /*Ejemplo:*/ DEFINE VAR var1 AS DECIMALS 1. DEFINE VAR var2 AS CARÁCTER FORMAT “X(5)” CASE_SENSITIVE: DEFINE VAR arr AS INTEGER extent 3. Define var var4 as char format “Q 9” extent 4 initial [1, 2, 3, 4].

Def var var5 as logical format “in/out” initial “in”. Assign var1 = 3.1 var2 = “HOLA” arr[1] = 1 arr[2] = 2 arr[3] = 3. Display “aquí están los valores de hoy: “ var1 FORMAT “99.99” var2 arr[1] arr[2] arr[3] arr4[1] var4[2] var5 with 2 columns NO-BOX. Uso de la opción CENTERED La opción centered se emplea para centrar el marco de despliegue dentro de la ventana de PROGRESS. /*Ejemplo*/ DEFINE VAR var1 AS DECIMALS 1. DEFINE VAR var2 AS CARÁCTER FORMAT “X(5)” CASE_SENSITIVE: DEFINE VAR arr AS INTEGER extent 3. Define var var4 as char format “Q 9” extent 4 initial [1, 2, 3, 4]. Def var var5 as logical format “in/out” initial “in”. Assign var1 = 3.1 var2 = “HOLA” arr[1] = 1 arr[2] = 2 arr[3] = 3. Display “aquí están los valores de hoy: “ var1 FORMAT “99.99” var2 arr[1] arr[2] arr[3] arr4[1] var4[2] var5 with 2 columns centered. Como colocar en una posición exacta el marco de despliegue Con las opciones ROW y COLUMN se pueden colocar el marco de despliegue en cualquier posición de la ventana.

/*Ejemplo*/

DEFINE VAR var1 AS DECIMALS 1. DEFINE VAR var2 AS CARÁCTER FORMAT “X(5)” CASE_SENSITIVE: DEFINE VAR arr AS INTEGER extent 3. Define var var4 as char format “Q 9” extent 4 initial [1, 2, 3, 4]. Def var var5 as logical format “in/out” initial “in”. Assign var1 = 3.1 var2 = “HOLA” arr[1] = 1 arr[2] = 2 arr[3] = 3. Display “aquí están los valores de hoy: “ var1 FORMAT “99.99” var2 arr[1] arr[2] arr[3] arr4[1] var4[2] var5 with 2 columns column 15 row 5. Como asignarle un título al marco Para asignarle un título al marco se usa la opción TITLE. El título se mostrará en la parte superior del marco, dentro de la ventana de despliegue de PROGRESS. DEFINE VAR var1 AS DECIMALS 1. DEFINE VAR var2 AS CARÁCTER FORMAT “X(5)” CASE_SENSITIVE: DEFINE VAR arr AS INTEGER extent 3. Define var var4 as char format “Q 9” extent 4 initial [1, 2, 3, 4]. Def var var5 as logical format “in/out” initial “in”. Assign var1 = 3.1 var2 = “HOLA” arr[1] = 1 arr[2] = 2 arr[3] = 3. Display “aquí están los valores de hoy: “ var1 FORMAT “99.99” var2 arr[1] arr[2] arr[3] arr4[1] var4[2] var5 with 2 columns centered row 3 title “mi marco”. Como colocar la presentación de los datos en un marco. Con la frame phrase se pueden indicar el aspecto general del marco, como por ejemplo su ubicación dentro de la ventana. También se controla el aspecto de los campos dentro del marco al declarar los parámetros del marco tales como SIDE-LABELS y n COLUMNS.

Así mismo, se puede controlar el aspecto y la localización exacta de los elementos del marco usando format phrase para cada uno de los elementos dentro del marco. Siempre que se despliegan variables, constantes, expresiones o campo de base de datos, PROGRESS sigue las siguientes reglas: • Si el marco utiliza etiquetas para las columnas, PROGRESS calcula el ancho de las columnas tomando como referencia la etiqueta mayor de las columnas o el mayor de los datos. Utiliza el tipo de dato y las etiquetas definidas en el diccionario de datos o en el estatuto DEFINE FRAME o DISPLAY. • Los elementos están colocados en una posición dentro del marco. Si se hace referencia a la misma variable o campo de base de datos en el mismo marco, PROGRESS los despliega en la misma posición dentro del marco. • Las etiquetas de columna de matrices incluyen un subíndice dentro de corchetes, pero solamente si PROGRESS conoce el subíndice en el momento de compilar (sí el subíndice no es variable). Control de justificación y ubicación de los elementos La justificación de los elementos dentro del marco (variable o campos de base datos)se pueden controlar usando una de las siguientes format phrase: Para colocar un elemento Al final de alguna columna dentro del marco Justificado a la izquierda en una posición particular column / row dentro del marco Alineado con el punto en una posición particular Alineado a la derecha en una posición particular column/row dentro del marco Alineado a la izquierda en una posición particular column/row dentro del marco.

Usar la format phrase TO n AT COLUMN col ROW row COLON col o AT COLUMN col ROW row COLON-ALIGNED AT COLUMN col ROW row RIGHTALIGNED AT COLUMN col ROW row LEFTALIGNED

El empleo de la opción TO para especificar el extremo izquierdo del elemento Con el empleo de la opción TO de la format phrase se pueden colocar los elementos dentro de un marco para que se desplieguen en una columna determinada. En el siguiente ejemplo se nota que no es necesario alinear los elementos a la derecha, debido a que los elementos de datos de tipo CARÁCTER y LOGICAL están lineados dentro de sus campos. /*Ejemplo/ define var dec1 as decimal decimals 1 initial 3.1. def var int1 as integer initil 0. Define var int-arr1 as integer extent 3 initial [1, 2, 3] format “9”. Def var dia1 as date.

Def var char1 as format “x(5)” case-sensitive initial “hola”. Def var char-arr1 as char format “q9” extent 4 initial [1, 2, 3, 4]. Def var logl as logical format “In/out” initial “in”. Assign dia1 = TODAY. DISPLAY “aqui estaán los valores de hoy:” dec1 format “99.99” int1 format “9” dia1 char1 char-arr1[1] char-arr[2] char-arr[3] log1 WITH SIDE-LABELS CENTERED.

TO 40 TO 40 TO 40 TO 40 TO 40 TO 40 TO 40 TO 40 TO 40

Colocar usar las opciones AT y COLON Con la opción AT de la format phrase, se puede indicar un lugar exacto para cada elemento dentro del marco. También se puede indicar el alineamiento, ya sea al a izquierda, derecha o los dos puntos para separar los datos de su etiqueta en la posición indicada con la opción AT. Si se desea, se pueden alinear los separadores dos puntos de los elementos dentro del marco usando la opción COLON en la format phrase. La palabra calve AT se refiere al marco y no a la ventana. Para cambiar la ubicación del marco dentro de la ventana se usan las palabras clave CENTERED o ROW y COLUMN (después de la palabra clave WITH). /*Ejemplo*/ def var dec1 as decimals 1 initial 3.1. def var int1 as int initial 0. Def var int-arr1 as int 3 initial [1, 2, 3] format “9”. Def var dea1 as date. Def var char1 as char format “x(5)” case-sensitive initial “Hola”. Def var char-arr1 as char format “Q9” Extent 4 initial [1, 2, 3, 4]. Def var log1 as logical format “ In / out” initial “in”. Assign dia1 = today. Display “aqui están los valores de hoy:” at column 30 row 1 right-aligned dec1 format “99.99” at column 30 row 2 right-aligned int1 format “9” at column 30 row 3 right-aligned int-arr[1] at column 30 row 4 right-aligned int arr[2] at column 30 row 5 right-aligned int-arr[3] at column 30 row 6 right-aligned dia1 at column 30 row 7 left-aligned char1 at column 30 row 8 leftt-aligned

char-arr[1] at column 30 row 9 colon-aligned char-arr[2] at column 30 row 10 colon-aligned char-arr[3] colon 30 log1 colon 30 with side-labels centered. Como definir un marco Con el uso de la frame-phrase junto con el uso de estatuto DISPLAY u otros estatutos se pueden definir objetos- marco que posteriormente pueden ser usados en estatutos que despliegan datos. El estatuto DEFINE-FRAME le da un nombre a un marco y define sus características de despliegue. Posteriormente se pueden desplegar los elementos dentro del marco al hacer referencia a él a través del nombre indicado en éste estatuto. Sintaxis DEFINE-FRAME nom-marco [form-item][frame-phrase] Form-item field[format-phrase] variable [at-phrase] SPACE[n] SKIP[n] Como hacer referencia a un marco con nombre Una vez que se haya definido un marco, se puede usar el siguiente formato para framephrase junto con el estatuto DISPLAY: DISPLAY ..... UIT[FRAME nom-marco] Como usar un marco definido Existen varias razones para usar marcos con nombre. Se tiene control explícito sobre las cuales los mismos elementos de marco se muestran; una vez creada la plantilla del marco, se puede usar par desplegar los mismo elementos en el mismo formato en diferentes lugares del código, sin tener que repetir la definición del despliegue; se puede reusar la definición del marco en más de un procedimiento; se puede definir y usar más de un marco en un procedimiento, mostrando los mismos campos diferentes veces en diferentes posiciones en la misma pantalla. Si se usa el marco por omisión que proporciona PROGRESS para el bloque de procedimiento, no se puede lograr la salida deseada. Si se indica el mismo nombre de la variable más de una vez en el mismo marco, PROGRESS despliega todas las ocurrencias de la variable en la misma posición.

/*Ejemplo*/

Def var nombre as char format “x(10)” label “Nombre” initial “Juan”. Def var appelido as char format “x(15)” label “Apellido” initial “Pérez”. Def var cia as char format “x(15)” label “compañía ” initial “PROGRESS”. Display nombre at row1 column 8 apellido at row 1 column 15 cia row 1 column 25 with centered. Display nombre at row 5 column 8 “trabaja en “ at row 5 column 15 cia at row 5 column 25 with no-labels centered no-box row 2. Para obtener las salida deseada, se utilizan dos marcos, uno para desplegar las variables en una columna y otra para mostrarlas en forma de oración. Se usan dos DISPLAY para referirse a esos marcos, indicando cual variable va dentro de cual parco para un despliegue determinado. /*Ejemplo/ Def var nombre as char format “x(10)” label “Nombre” initial “Juan”. Def var apellido as char format “x(15)” label “Apellido” initial “Pérez”. Def var cia as char format “x(15)” label “compañía ” initial “PROGRESS”. Define frame f-nombre nombre colon 15 apellido colon 15 cia colon 15 with side-labels row 1 centered. Define frame f-cia nombre at row 2 column 8 “ trabaja en ” at row 2 column 15 cia at row 2 column 25 with no-labels centered no-box. Display nombre apellido cia with frame f-nombre. Display nombre cia with frame f-cia.

Manual Progress Mio v332v

Overview 4q3b3c

More details 26j3b

Related Documents 171j1w

Manual Progress Mio v332v

Manual Progress. 5d1z1

Yamaha Mio Service Manual 29274h

Progress i5p2f

Progress i5p2f

Service Manual - Mio 5a1y1g

More Documents from "Miguel Gomez" 5k6t62

Test General Ceifas 5y7313

Elementos Del Negocio Juridico 282p5i

Tarea 2 Educacion A Distancia 135e2m

2c82t

2c82t

Contestacion Demanda 4t1b4y