si, una de las grandes ventajas del RPG IV es el rpg-free, y desde la version v5r3 o v5r4 (no recuerdo bien) se pueden incluir sentencias sql embebidas sin necesidad de los feos delimitadores de RPG fixed-format.
hace falta un (sencillo) manual (en español) de rpg-free, seria un puntazo que IBM hiciera uno de aquellos maravillosos redbooks. Guillermo. El 11 de marzo de 2010 14:13, Carlos Pedrozo <[email protected]>escribió: > > 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. Sign up > now. <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 >
____________________________________________________ © 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
