Es una Base de Datos.

Es una colección de información interrelacionada así como un conjunto de programas para tener acceso a dicho datos, usada para las aplicaciones de una organización. El objetivo de una base de datos es proporcionar un entorno que sea conveniente y eficiente para extraer y almacenar información. Algunos de los problemas que se presentan cuando no se utiliza una base de datos son:

 • Redundancia e inconsistencia de los datos: Debido a que los archivos de programas de aplicaciones son creados por diferentes personas a través del tiempo, puede ocurrir que los archivos tengan diferente formato o se encuentren duplicados, de la misma manera puede ocurrir que los programas para acceder a la información se encuentre en más de un sitio.
• Desarrollos de múltiples aplicaciones para la recuperación de la información: Un sistema de información basado en Base de datos pretende desarrollar aplicaciones de uso general para la recuperación de la información, tratando de establecer estándares tanto en las aplicaciones como en la forma de almacenar los datos.
• Proliferación de archivos: Pretende aislar los datos de las aplicaciones para un mejor control de tal manera que no se tenga que modificar la estructura de la Base de datos cuando se desarrolle una nueva aplicación.
• Evitar el acceso simultaneo de los usuarios a la misma información: Control de acceso a la información ara evitar su inconsistencia, permitiendo que solamente un usuario tenga acceso a los datos y colocando candados hasta que estos sean liberados.
• Problemas de seguridad: Implantar las restricciones de seguridad para tener acceso a los datos.
• Problemas de integridad: Colocar restricciones de consistencia de datos.

Sistema de información: Conjunto de elementos interrelacionados que tiene como fin suministrar a los usuarios la información requerida para la toma de decisiones.

Sistema administrador de Base de datos(Data Base Manager System): Es un conjunto de herramientas integrado que proporciona el entorno para un eficiente almacenamiento y recuperación de la información.

Abstracción de los datos Un objetivo importante en un sistema de Base de datos es proporcionar a los usuarios una visión abstracta de los datos; el sistema esconde ciertos detalles de cómo se almacenan y mantiene los datos.

Nivel físico: En este nivel se describe como están los datos realmente almacenados, se describen en detalle las estructuras de datos complejas.

• Nivel conceptual: En este nivel se describe que datos son almacenados realmente y las relaciones que existen entre ellos. Este nivel lo emplean los administradores de la Base de datos ya que ellos deben decidir que información es la que se almacena.
• Nivel de visión: Este nivel es empleado por los usuarios ya que ellos solamente necesitan ver los datos con los que va a trabajar.

El Metaesquema

 • Es un conjunto de tablas relacionadas, la cual nos indica la descripción de la estructura de una base de datos.
• Contiene la definición para describir los componentes de una base de datos, tales como tablas, campos, índices entre otros.
 • También contiene elementos y mensajes de validación.
 • Es el corazón de la base de datos en PROGRESS.
• Al momento de crear una base de datos “EMPTY” , se tiene toda la información básica necesaria para crear el esquema de una aplicación.

Definición de una base de datos

• Nombre de Tablas, Campos e Índices: o Máximo de 32 caracteres de largo. o Debe de comenzar por un carácter alfabético (A-Z, o a-z). 9 Caracteres alfabéticos (A-Z o a-z). 9 Dígitos (0-9). 9 Caracteres especiales($,&,%,-). o Es insensitivo al uso de mayúsculas.

Crear Tabla

•  Table Name 
•  Etiqueta 
•  Descripción 
•  Nombre para “DUMP”.
•   TRIGGERS y Atributos de traducción. 
•  Validación de borrado.
•   Hidden
•   Frozen 
•  String Attrs. 
•  Data server 
•  Check CRC 
•  Overdrable

AppServers

OpenEdge AppServer es un motor de transacciones basado en estándares que proporciona una base confiable para
Transacciones seguras de alto volumen e independencia de la interfaz de usuario.
Al dividir las aplicaciones y separar la lógica de procesamiento de negocios de la lógica de la interfaz de usuario, puede
Accede a las aplicaciones a través de prácticamente cualquier interfaz. La lógica empresarial centralizada mejora la productividad al
proporcionándole un único punto para gestionar el acceso a los datos y procesos. Dado que la lógica de negocio se ejecuta
por separado de la interfaz de usuario de la aplicación, se puede utilizar una amplia variedad de clientes para ampliar la compatibilidad con
Estrategias agresivas de crecimiento.
Figura 4: OpenEdge AppServer Technology

Algunos beneficios clave de OpenEdge AppServer incluyen:
• Proporciona acceso directo a la misma lógica empresarial desde una amplia variedad de OpenEdge y la industria común
Tecnología, que le ofrece muchas opciones sobre cómo interactúa su aplicación con sus usuarios finales.
• Desconecta la ubicación del hardware físico de su aplicación, lo que proporciona flexibilidad para configurar y
manteniendo su entorno operativo.
• Admite el procesamiento asíncrono para un tiempo de respuesta de la aplicación más rápido.
• Garantiza la confiabilidad al ofrecer balanceo de carga y failover Reduce los requisitos de hardware al proporcionar
administración del Estado.

Función TRIM

Elimina los espacios en blanco iniciales y finales, u otros caracteres especificados, de una expresión CHARACTER o LONGCHAR. El tipo de datos del valor devuelto coincide con el tipo de datos de la expresión pasada a la función.

DISPLAY LENGTH(«holaffff») LABEL «Byte Length».

DEFINE VARIABLE  i AS INTEGER NO-UNDO.
DEFINE VARIABLE  cvarcuentas AS CHARACTER NO-UNDO.
cvarcuentas = «19.1000.1200».
IF num-entries(cvarcuentas,».») <> 2 THEN
      DO i = 1 TO NUM-ENTRIES(cvarcuentas):
        display ENTRY(i,cvarcuentas).
      END.
ELSE DO:
      display num-entries(cvarcuentas,».»).
END.

Using UNDO, LEAVE on a block

En esta sección, prueba un ejemplo que usa UNDO, LEAVE en un bloque. Para deshacer y dejar el bloque que actualiza la tabla OrderLine

FOR EACH ttOline WHERE ttOline.TransType = «»:
    …
    /* Find corresponding bUpdateOline */
    FIND OrderLine WHERE OrderLine.OrderNum = ttOline.OrderNum AND
      OrderLine.LineNum = ttOline.LineNum EXCLUSIVE-LOCK.
    …
    BUFFER-COPY bUpdateOline TO OrderLine. /* Save OrderLine changes. */
    RELEASE OrderLine.

    /* Re-find the db record to capture any changes made by a trigger. */
    FIND OrderLine WHERE OrderLine.OrderNum = bUpdateOline.OrderNum AND
      OrderLine.LineNum = bUpdateOline.LineNum NO-LOCK.
    BUFFER-COPY OrderLine TO bUpdateOline.
    IF bUpdateOline.ExtendedPrice >
      (ttOline.ExtendedPrice * 1.2) THEN DO:
      cMessage = «Line » + STRING(OrderLine.LineNum) +
        «: Can’t increase price by more than 20%.».
      UNDO, LEAVE.
    END.    …
  END. /* DO FOR EACH ttOline */

Este podría no ser el comportamiento que desea. Por un lado, es posible que desee que todas las líneas de orden se confirmen juntas o que se deshagan si alguna falla. En otro caso, es posible que desee procesar cada OrderLine como una transacción separada, pero continúe si una de ellas falla. Mira ambos casos.
En el primer caso, desea que todas las actualizaciones de OrderLine tengan éxito o fracasen juntas. Si cualquiera falla su validación, todos se retrotraen.

Para confirmar todos los registros de OrderLine juntos o deshacerlos si falla alguna actualización de un registro:

1. Defina que el alcance de la transacción sea mayor que una única iteración del bloque FOR EACH colocando un nuevo bloque DO TRANSACTION a su alrededor. Luego, agregue una etiqueta para ese nuevo bloque para identificar cuánto deshacer en su declaración UNDO:

  OlineBlock:
  DO TRANSACTION:
    FOR EACH ttOline WHERE ttOline.TransType = «»:
2. Change the UNDO statement to undo the entire larger transaction and to leave that outer block as well:
 UNDO OlineBlock, LEAVE OlineBlock.
Remember that the default is to undo and leave the innermost block with the error property, the FOR EACH block.
3. Add another END statement to match the new DO TRANSACTION statement that begins the new block:
      END. /* ELSE DO If we updated the OrderLine */
    END./* DO FOR EACH ttOline */
  END. /* new DO TRANSACTION block */
Note that a block label, such as OlineBlock:, does not require a matching END statement. It is simply an identifier for a place in the code and does not actually start a block of its own.
4. Make a change to the code that restores the original values to the temp-table if there’s an error. Because the error might not be on the line that’s current when you leave the block, you need to re-read all the OrderLines for the Order and buffer-copy their values back into the update copies of each of the temp-table records, in a FOR EACH loop:
  IF cMessage NE «» THEN DO:
    FOR EACH OrderLine
      WHERE OrderLine.OrderNum = bUpdateOline.OrderNum NO-LOCK:
      FIND bUpdateOline WHERE OrderLine.LineNum = bUpdateOline.LineNum
        AND bUpdateOline.TransType = «U».
      BUFFER-COPY OrderLine TO bUpdateOline.
    END.
    RETURN cMessage.
  END.
Now if you make changes to three OrderLines, and the second of the three is invalid, then all three changes are rolled back because they’re all part of one large transaction. You see this reflected in your window.

NUM-ENTRIES function
Devuelve el número de elementos en una lista de cadenas de caracteres como un valor INTEGER
list
Una expresión de caracteres que contiene una lista de cadenas de caracteres separadas con un delimitador de caracteres. La lista puede ser una variable de tipo CHARACTER o LONGCHAR. NUM-ENTRIES devuelve el número de elementos en la lista. Específicamente, NUM-ENTRIES devuelve el número de delimitadores más 1, y devuelve 0 si la lista es igual a la cadena vacía («»).
character
Un delimitador que definas para la lista. El valor predeterminado es una coma (,). Esto permite que las funciones operen en listas separadas por comas. Si utiliza un carácter alfabético, este delimitador distingue entre mayúsculas y minúsculas.
DEFINE VARIABLE ix      AS INTEGER   NO-UNDO.
DEFINE VARIABLE regions AS CHARACTER NO-UNDO
  INITIAL «Northeast,Southest,Midwest,Northwest,Southwest».

REPEAT ix = 1 TO NUM-ENTRIES(regions):
  DISPLAY ENTRY(ix, regions) FORMAT «x(12)».
END.

Declaración de  RETURN
Abandona el procedimiento local o remoto o el bloque de funciones definidas por el usuario, el bloque desencadenante, el bloque desencadenante de la base de datos, el bloque de métodos de una clase, el bloque constructor de clases o el bloque de acceso a la propiedad, y regresa al procedimiento de llamada, función definida por el usuario, Método, constructor, o propiedad accesor. Si no hay una persona que llama, RETURN regresa al Editor de procedimientos u otra herramienta ADE o Progress Developer Studio para OpenEdge que invocó el procedimiento, la función definida por el usuario, el bloque desencadenante, el activador de la base de datos, el método basado en clases, el constructor o el acceso a la propiedad.

DISPLAY statement

Mueve los datos a un búfer de pantalla y muestra los datos en la pantalla u otro destino de salida. El AVM utiliza marcos para mostrar datos. Un cuadro describe cómo se organizan los datos constantes y variables para la visualización y la entrada de datos. Puede dejar que ABL construya marcos predeterminados o puede describir explícitamente los marcos y sus características.

    DISPLAY  cvarcuentas + » => » + ccodpres WITH FRAME a COLUMN 1 ROW 1 1 COLUMN.

&SCOPED-DEFINE preprocessor directive
Define una constante de tiempo de compilación (nombre del preprocesador) no global.

&SCOPED-DEFINE preprocessor-name definition

preprocessor-name
El nombre del preprocesador (constante de tiempo de compilación) que proporciona. Las palabras clave reservadas de ABL están permitidas, pero no pueden usarse en expresiones de preprocesador.
definition
Una cadena de caracteres (o referencias de preprocesador que evalúan a una cadena de caracteres) cuyo contenido el preprocesador sustituye al nombre de preprocesador durante la compilación. Si la definición es más larga que en línea, una tilde (~) al final de una línea indica la continuación a la siguiente línea.

&SCOPED-DEFINE tblCta {&tbCuenta}

Notas
* Debe colocar la directiva & SCOPED-DEFINE al principio de una línea, precedida solo por espacios en blanco, caracteres de tabulación o comentarios (/ * comentario * /). El preprocesador recorta todos los espacios iniciales y finales de la definición.
* La sintaxis de las directivas & GLOBAL-DEFINE y & SCOPED-DEFINE son idénticas, pero estas directivas se utilizan de manera diferente.

DEFINE BUFFER statement

DEFINE BUFFER bffAfc FOR {&tblCta}.

ABL le proporciona un búfer predeterminado para cada tabla o tabla temporal que use en un procedimiento o clase. ABL usa ese búfer para almacenar un registro a la vez de la tabla, ya que los registros se necesitan durante el procedimiento o la clase. Si necesita más de un registro o búfer a la vez para una tabla, puede usar esta declaración para definir búferes alternativos que se crean en el momento de la compilación para usar en uno o más procedimientos, o dentro de una sola clase o jerarquía de clases.

DISPLAY statement

Mueve los datos a un búfer de pantalla y muestra los datos en la pantalla u otro destino de salida. El AVM utiliza marcos para mostrar datos. Un cuadro describe cómo se organizan los datos constantes y variables para la visualización y la entrada de datos. Puede dejar que ABL construya marcos predeterminados o puede describir explícitamente los marcos y sus características.

DEFINE VARIABLE ccodpres AS CHARACTER.
DEFINE VARIABLE lipoa AS INTEGER.
DEFINE VARIABLE cpartida AS CHARACTER.
DEFINE VARIABLE cvarcuentas AS CHARACTER.
DEFINE VARIABLE cMtP AS CHARACTER.
    cvarcuentas = ‘19.1000.1200.122.1221.20.05.01.1.1.12590’.
    ccodpres    = STRING(ENTRY(1,cvarcuentas,».»),»99″) + «.» + STRING(ENTRY(6,cvarcuentas,».»),»99″) + «.» + STRING(ENTRY(7,cvarcuentas,».»),»99″) + «.» + STRING(ENTRY(8,cvarcuentas,».»),»99″) + «.» + STRING(ENTRY(9,cvarcuentas,».»),»99″) + «.» + STRING(ENTRY(10,cvarcuentas,».»),»99″).
    lipoa       = INT(ENTRY(11,cvarcuentas,».»)).
    cpartida    = ENTRY(5,cvarcuentas,».»).
    DISPLAY  cvarcuentas + » => » + ccodpres WITH FRAME a COLUMN 1 ROW 1 1 COLUMN.

&SCOPED-DEFINE preprocessor directive
Define una constante de tiempo de compilación (nombre del preprocesador) no global.

&SCOPED-DEFINE preprocessor-name definition

preprocessor-name
El nombre del preprocesador (constante de tiempo de compilación) que proporciona. Las palabras clave reservadas de ABL están permitidas, pero no pueden usarse en expresiones de preprocesador.
definition
Una cadena de caracteres (o referencias de preprocesador que evalúan a una cadena de caracteres) cuyo contenido el preprocesador sustituye al nombre de preprocesador durante la compilación. Si la definición es más larga que en línea, una tilde (~) al final de una línea indica la continuación a la siguiente línea.

&SCOPED-DEFINE tblCta {&tbCuenta}

Notas
* Debe colocar la directiva & SCOPED-DEFINE al principio de una línea, precedida solo por espacios en blanco, caracteres de tabulación o comentarios (/ * comentario * /). El preprocesador recorta todos los espacios iniciales y finales de la definición.
* La sintaxis de las directivas & GLOBAL-DEFINE y & SCOPED-DEFINE son idénticas, pero estas directivas se utilizan de manera diferente.

DEFINE BUFFER statement

DEFINE BUFFER bffAfc FOR {&tblCta}.

ABL le proporciona un búfer predeterminado para cada tabla o tabla temporal que use en un procedimiento o clase. ABL usa ese búfer para almacenar un registro a la vez de la tabla, ya que los registros se necesitan durante el procedimiento o la clase. Si necesita más de un registro o búfer a la vez para una tabla, puede usar esta declaración para definir búferes alternativos que se crean en el momento de la compilación para usar en uno o más procedimientos, o dentro de una sola clase o jerarquía de clases.

EMPTY-TEMP-TABLE( ) method

Elimina todos los registros de una tabla temporal asociada con un objeto de búfer o de una tabla temporal identificada directamente por un controlador de objeto de tabla temporal.
Cuando se vacía una tabla temporal que se define como UNDO en una transacción, el AVM borra los registros individualmente. Esto es menos eficiente que vaciar la tabla temporal fuera de la transacción, donde el AVM borra todos los registros en la tabla temporal como una unidad.
Tipo de devolución: LÓGICA

EMPTY TEMP-TABLE ttCta.

BUFFER-FIELD( ) method

Devuelve un identificador a un campo particular en el búfer.
Return type: HANDLE
Applies to: Buffer object handle
Syntax

BUFFER-FIELD ( field-number | field-name )

field-number
Una expresión entera que representa el número de secuencia del campo en el búfer.
field-name
A CHARACTER string Expresión que representa el nombre del campo en el búfer.