Title: Consulta SQL Embebido

Hola a todos.

        Estoy intentando hacer un SQLRPG en donde yo le meto por parámetro una consulta SQL (no siempre es la misma), posición desde registro y posición hasta registro, para que el programa me devuelva un resultSet.

        He estado buscando documentación y no llego a ver si puedo llegar hacer lo que quiero. El FETCH me pide un descriptor y un área de almacenamiento de registro, que no tengo ni idea que es. Si fuera siempre el mismo resultado podría hacer una DS pero siempre es variable....

        ¿Alguno me puede dar una pista o ayuda al respecto?
                                                      
c     *entry        plist                                         
c                   Parm                    SQLP           2000   
C                   Parm                    Desde             5 0 
C                   Parm                    Hasta             5 0 
                                                                  
C                   EVAL      dif=hasta-desde                     

C/Exec Sql                                           
C+ DECLARE C1 SCROLL CURSOR FOR :SQLP                
C/End-Exec                                           
                                                     
C/Exec Sql                                           
C+ OPEN C1                                           
C/End-Exec                                           
                                                     
C/Exec Sql                                           
C+ FETCH RELATIVE :DESDE FROM C1 FOR :DIF ROWS USING DESCRIPTOR      
C+ :DESCRIPTOR INTO :AREA_ALMACENAMIENTO_REGISTRO                    
C/End-Exec                                           
                                                     
C/Exec Sql                                           
C+ SET RESULT SETS CURSOR C1                         
C/End-Exec                              

                    
Un saludo,

Jesús

Responder a