Hola foro; una humilde contribucion para los programadores de RPG. Encontre en la web y me parecio interesante compartir con Uds.
SQL embebido en free Rpg; faciliando enormente la tarea de consulta y reporte.
Adjunto codigo fuente :
/free
exsr rt_limpia ; // Selecciona Datos
en SQL
EXEC SQL Declare MyCsrA Cursor for Select
campo, count(*) as Cant
from BIBLIOTECA/ARCHIVO
where AKADCD = 'XXXXXX'
Group by CAMPO
Order by CAMPO
for read only;
// Abre Cursor
EXEC SQL Open MyCsrA;
For I to 999999 by 1; // Lee Cursor
EXEC SQL Fetch next from MyCsrA INTO :campo, :cant ;
// Fin de Cursor
If SQLSTT = '02000' ;
EXEC SQL Close MyCsrA ;
Leave ;
endif ;
// Carga el
Sub-file
exsr rt_cargaSf;
EndFor ;
/end-free
Saludos
Carlos Pedrozo
_________________________________________________________________
Your E-mail and More On-the-Go. Get Windows Live Hotmail Free.
https://signup.live.com/signup.aspx?id=60969____________________________________________________ © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es ---------------------------------------------------- Para darte de baja visita la siguente URL: http://listas.combios.es/mailman/listinfo/forum.help400
