Campeonato de Futbol de Primera de Argentina
Mediante este ejemplo pretendemos mostrar lo fácil que es programar con la Herramienta ABG
Estructura de Tablas
Se deben crear 2 tablas para este ejemplo.
PF_EQUIPOS
PF_RESULTA
Ingresar el comando: WRKPGMABG (Trabajar con Programas ABG)
Si creó previamente programas ABG visualizará la lista, caso contrario mostrará la lista vacía
Crear un nuevo programa (F6)
Para crear un nuevo programa AB debe presionar la tecla F6 y mostrará la siguiente pantalla:
Ingresar lo siguiente y a continuación la tecla Enter:
- Tipo : *PGMS
- Nombre : Nombre_del_Nuevo_Programa
Trabajamos con *PGMS PROGRAMA05
Nos posicionamos en la línea correspondiente al programa *PGMS PROGRAMA05 y en la columna izquierda ingresar "M", aparecerá el menú de opciones siguiente:
Seleccionar la opción 02 y presionar Enter
Ingresar el siguiente código
Al regresar al menú ingresar la opción 06 (Editar Código ABG) y la tecla Enter, nos visualizará la lista de Eventos definidos para la transacción *PGMS PROGRAMA05. De igual manera tomar la opción "M" y en el Sub-menú la opción 02 (Modificar Registro)
Tecla Enter para continuar e ingresar el siguiente código ABG
/* Consultar los registros de una con los equipos de Futbool de la */
/* primera division del Futbool Argentino */
/* La tabla existe en la biblioteca de datos con el nombre FP_EQUIPOS */
/* y la estructura de la misma es: */
/* EQP_CODIGO Chr(3) */
/* EQP_NOMBRE Chr(30) */
DefVar &EQP_CODIGO *Chr 3 *None *Local 1
DefVar &EQP_NOMBRE *Chr 30 *None *Local 1
DefVar &TxtAcci *Chr 20 *None *Local 1
DoUntil &*KeyFun = "*F12"
ExSr FmaPanta01
ExeFmt *DatVar 07 02 IngEquipo *NONE *NONE Validar *NONE *NONE
ExSr FmaPanta02
ExeFmt *DatVar 14 02 DatEquipo *NONE *NONE *NONE *NONE *NONE
ExeMsg "Pulse intro x efectuar otra consulta o F12 para finalizar." +
21 02 *1 *NONE
EndDU
BegSr FmaPanta01
Eval &TxtAcci = " (E01 a E20) "
InzPanVar "Consulta de Equipos de Futbool"
FldPanVar 01 *U "Codigo " &EQP_CODIGO " " &TxtAcci
EndSr
BegSr FmaPanta02
InzPanVar "Consulta de Equipos de Futbool - Datos "
FldPanVar 01 *V "Codigo " &EQP_CODIGO " " *NONE
FldPanVar 03 *V "Nombre " &EQP_NOMBRE " " *NONE
EndSr
BegSr Validar /* Buscar codigo de equipo informado */
Eval &HdRtrn = 0
ExSr LeeCodEqui
Select
When &*SqlCod2 = 100
Eval &HdRtrn = 99999
Eval &*ERRTXT = "No existe el codigo indicado (&EQP_CODIGO) "
EndWh
EndSr
BegSr LeeCodEqui /* Leer codigo de equipo */
SqlLee *DYN 9999 *NONE +
"Select EQP_CODIGO, EQP_NOMBRE +
From FP_EQUIPOS +
Where EQP_CODIGO = '&EQP_CODIGO' "
EndSr
Si ahora ejecutamos el programa con la opción 09 mostrará las siguientes pantalla:
