Continuando con el aprendizaje incremental, a partir del programa 01 agregaremos declaración de
variables y utilización de funciones de recuperación de Fecha y Hora del sistema de forma
muy sencilla.
Si no ha creado el programa, por favor previamente lea el capitulo "Para Comenzar" y luego continuar
con este ejemplo.
Una vez que se encuentra en el Editor de Programación ABG ingresar el siguiente código:
DefVar &Fecha *Num 8 0 *Local 1
Sentencia = DefVar
Observaciones = Define variables que serán utilizadas en el Evento (todas las variables locales se identifican
como primer caracter &).
Parámetros: (8)
1) Nombre de la varieble = &Fecha
2) Tipo de variable = *Num
Valores posibles:
Valor
Detalle
*BIN
Numerica binaria
*CHR
Caracter
*DATE
Fecha
*DEC
Numerica empaquetada
*LIKEFLD
Leer atributos de campo
*LIKEFLD
Leer atributos de campo n
*LIKETBL
Copiar campos de una tabla, redefine variable especificada
*NUM
Numerica
*TIME
Hora
*TIMESTAMP
Fecha (ccaammdd), horas(hhmmss) y millonesima de segundos
3) Longitud = 08
4) Cantidad de digitos decimales = 0
5) Entorno de definicián = *Local
Valores posibles:
Valor
Detalle
*GLOBAL
Para todos los Eventos
*LOCAL
Para el Evento
*PARM
Recibida como parametro
6) Elementos (Cantidad de elementos de un vector) = En blanco en el ejemplo
7) Nombre de la varieble de referencia (Redefine) = en blanco
8) Desplazamiento de la variable de referencia = en blanco
Se definen 2 variables &Fecha y &Hora
ExTime *FECHA *CAMD &Fecha
Sentencia = ExTime
Observaciones = Recupera Fecha y Hora del Sistema asignandole el valor a la variable definida.
Parámetros: (3)
1) Código del valor recuperado = &FECHA
Valores posibles:
Valor
Detalle
*FECHA
Retorna la Fecha
*HORA
Retorna la Hora
2) Formato de la variable recuperada = *CAMD
Valores posibles:
Valor
Detalle
*CAMD
Fecha en formato ccaammdd
*DMCA
Fecha en formato ddmmccaa
*H
Hora (HH)
*HM
Hora y minutos (HHMM)
*HMS
Hora, minutos y segundos (HHMMSS)
3) Nombre de la Variable donde se deposita el resultado = &Fecha
ExeMsg "&Fecha - &Hora - Hola Mundo...............................-" +
09 02 *1 *Cancel
Sentencia = ExeMsg
Observaciones = Permite visualizar un mensaje y esperar una accion, donde INTRO confirma y F12 cancela.
Un parametro en particular puede permitir ingresar una opcion la cual se valida con el
contenido de la variables &*LISTA.
Parámetros: (6)
1) Mensaje de texto con longitud máxima de 60 caracteres = "&Fecha - &Hora - Hola Mundo...............................-"
(en este caso primero reemplaza por el nombre de las variables por su contenido y posteriormente
visualiza el texto).
2) Número de fila inicial del mensaje = 09
3) Número de Columna inicial del mensaje = 02
4) Cantidad de líneas a utilzar por el mensaje = *1
Valores posibles:
Valor
Detalle
*OPCION
Ingresa una opcion
*1
Utiliza una linea
*2
Utiliza dos lineas
*3
Utiliza tres lineas
5) Acción a realizar después de dar ENTER = *Cancel
Valores posibles:
Valor
Detalle
*CANCEL
Finaliza con este formato
*ENDTRN
Finaliza la transaccion
*NONE
Ignorar F12
*PREVIOUS
Continuar la ejecucion en el formato previo
*RETURN
Retornar de la rutina
Las sentencias más siguientes representan el mensaje en 2 y 3 líneas
Una vez que ingresó todo el código grabar, salir del editor, Compilar el Programa y
Ejecutar el Programa
