Hern�n
Espero te sirva.
C/EXEC SQL
C+ DECLARE A CURSOR FOR Select MAX(LIQDD), sum(TOTLIQ) from FLIQLNG
c+ where
C+ LIQA4=(Select AA from FHOY where DIAS=0) and
C+ LIQMM=(Select MM from FHOY where DIAS=0) Group by LIQDD
C/END-EXEC
C/EXEC SQL
C+ OPEN A
C/END-EXEC
C/EXEC SQL
C+ FETCH A INTO :var1, :var2
C/END-EXEC
C*
C*
C SQLCOD DOWEQ *ZEROS
CC/EXEC SQL
C+ INSERT INTO archivo VALUES(:var1, :var2)
C/END-EXEC
C/EXEC SQL
C+ FETCH A INTO :var1, :var2
C/END-EXEC
C END
Fernando
"HUICI, HERNAN"
<[EMAIL PROTECTED] Para: "'[EMAIL PROTECTED]'"
m.ar> <[EMAIL PROTECTED]>
Enviado por: cc:
forum.help400-request@ Asunto: RE: Desafio SQL
(posible solucion...)
combios.es
04/03/2003 12:10
Por favor, responda a
forum.help400
por aqui podria estar la solucion: es efectivamente esto lo que pretendo
lograr!! bien, como tendria que escribir el programa SQLRPGLE para guardar
los resultados de la sentencia SELECT en un archivo �? ya sea uno o varios
registros �?
> ----------
> De: [EMAIL PROTECTED]:[EMAIL PROTECTED]
> Responder a: [EMAIL PROTECTED]
> Enviado el: martes, 04 de marzo de 2003 11:15
> Para: [EMAIL PROTECTED]
> Asunto: RE: Desafio SQL (in + :variable)
>
>
> �El resultado es un registro o varios registros?
> �Al resultado lo utiliza otro PGM o es solo un valor hist�rico?
> Si quer� que el resultado se guarde en otro archivo necesit�s un INSERT
> "INTO"....
>
>
>
>
>
> "HUICI, HERNAN"
>
> <[EMAIL PROTECTED] Para:
> "'[EMAIL PROTECTED]'"
> m.ar>
> <[EMAIL PROTECTED]>
> Enviado por: cc:
>
> forum.help400-request@ Asunto: RE:
Desafio
> SQL (in + :variable)
> combios.es
>
>
>
>
>
> 04/03/2003 11:32
>
> Por favor, responda a
>
> forum.help400
>
>
>
>
>
>
>
>
> el problema es que no se RPG.
> yo solo necesito crear un programa SQLRPGLE para poder a�adir este
> programa
> en el WRKJOBSCDE a las 7:00 hs. a fin de lograr que esta sentencia SQL se
> ejecute diariamente.
> como podria lograr lo que pretendo con esta SELECT sin la ":variable" del
> INTO �? No hay una forma de hacerlo con una variable de otro tipo, como
> por
> ejemplo, un campo de otro archivo creado para tal fin �?
>
> > ----------
> > De: Cubero, Rafael (R.)[SMTP:[EMAIL PROTECTED]
> > Responder a: [EMAIL PROTECTED]
> > Enviado el: martes, 04 de marzo de 2003 10:53
> > Para: '[EMAIL PROTECTED]'
> > Asunto: RE: Desafio SQL
> > Car�cter: Privado
> >
> > El sql necesita que le definas con la sentencia INTO donde te deja los
> > valores que te recupera la select, que seran variables del RPG que
deben
> > estar definidas con las mismas caracteristicas que lo recuperado en tu
> > caso podria ser:
> > C/EXEC SQL
> > C+ Select LIQDD, sum(TOTLIQ) from FLIQLNG
> > c* into :sumatorio
> > c+ where
> > C+ LIQA4=(Select AA from FHOY where DIAS=0) and
> > C+ LIQMM=(Select MM from FHOY where DIAS=0) Group by LIQDD
> > C/END-EXEC
> >
> > Debes definir sumatorio como variable empaquetada de la longitud que
> > consideres oprotuno.
> >
> > Suerte.
> >
> >
> > -----Original Message-----
> > From: HUICI, HERNAN [mailto:[EMAIL PROTECTED]
> > Sent: martes 4 de marzo de 2003 14:36
> > To: 'AS/400 Forum Help'
> > Subject: Desafio SQL
> > Importance: High
> > Sensitivity: Private
> >
> >
> > hola, a ver quien me puede ayudar con esto... estoy intentando este
> > programita SQLRPGLE pero me da error de compilacion diciendome "falta
> > sentencia INTO" ???? que me falta? como lo puedo hacer para que este
> > SELECT
> > compile? desde ya las habituales gracias a todos por la ayuda! saludos!
> >
> > C/EXEC SQL
> > C+ Select LIQDD, sum(TOTLIQ) from FLIQLNG where
> > C+ LIQA4=(Select AA from FHOY where DIAS=0) and
> > C+ LIQMM=(Select MM from FHOY where DIAS=0) Group by LIQDD
> > C/END-EXEC
> >
> > ___________________________________
> >
> > Hern�n N. HUICI
> > Departamento de Sistemas
> > 4379-4350 Int.283
> > [EMAIL PROTECTED]
> >
> > www.disprofarma.com.ar
> >
> >
> > _____________________________________________________
> > Forum.HELP400 es un servicio m�s de NEWS/400.
> > � Publicaciones Help400, S.L. - Todos los derechos reservados
> > http://www.help400.es
> > _____________________________________________________
> >
> > Para darte de baja, env�a el mensaje resultante de pulsar
> > mailto:[EMAIL PROTECTED]
> >
> > _____________________________________________________
> > Forum.HELP400 es un servicio m�s de NEWS/400.
> > � Publicaciones Help400, S.L. - Todos los derechos reservados
> > http://www.help400.es
> > _____________________________________________________
> >
> > Para darte de baja, env�a el mensaje resultante de pulsar
> > mailto:[EMAIL PROTECTED]
> >
>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]
>
>
>
>
>
> _____________________________________________________
> Forum.HELP400 es un servicio m�s de NEWS/400.
> � Publicaciones Help400, S.L. - Todos los derechos reservados
> http://www.help400.es
> _____________________________________________________
>
> Para darte de baja, env�a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]
>
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
