Hola a todos
 
El nombre de la tabla si es posible, este tipo de nombres se utiliza en 
sistemas de información que se ejecutan en sistemas 36, tenemos clientes que 
actualmente todavia utilizan programas del sistema 36 en un Iseries y nosotros 
desarrollamos en RPG IV utilizando dichos archivos y se resuelve de la 
siguiente forma:
 
Se debe realizar una alteración temporal antes de ejecutar la setencia SQL, se 
puede hacer desde un CL O desde el mismo programa, el siguiente es un ejemplo 
en rpg IV:
 
 
*=============================================================================================fAF002
  D  if   e           k disk    usropn *                                        
  dPCMD             s            300  *Procedimiento programa QCMDEXC           
                dCMD              pr                  extpgm('QCMDEXC')    dCMD 
                          300a   const                dLON                      
      15p 5 const                 *                                             
                                                c                   exsr      
SR_OPNFL                                     Apertura Archivos *                
                                c                   if        %open(AF002)      
  c                   close     AF002               c                   endif   
                       *                                                c       
            eval      *inlr = *on    *                                          
 
*=============================================================================================
 * Apertura de Archivos                                                         
                
*=============================================================================================
 *                                                                              
               c     SR_OPNFL      begsr                                        
                               *                                                
                                              * Archivo de Afiliados            
                                                             *                  
                                                                           c    
               clear                   PCMD                                     
          c                   eval      PCMD = 'OVRDBF FILE(AF002)    +         
                         c                                     
TOFILE(*LIBL/AF.002)   +                                 c                      
               OPNSCOPE(*JOB)'                                           *      
                                                                                
       c                   monitor                                              
                      c                   callp     CMD(PCMD:%len(PCMD))        
                                     c                   on-error  *all         
                                                    c                   endmon  
                                                                    *           
                                                                                
  c                   if        not %open(AF002)                                
                 c                   open      AF002                   c        
           endif                              *                                 
                   c                   endsr    *                          
 


Date: Thu, 18 Oct 2007 14:02:43 +0200From: [EMAIL PROTECTED]: [EMAIL 
PROTECTED]: Sal en RPG Free tabla cualificada
Hola:
 A continuación les expongo la siguiente duda:
Trabajando en Form – Free  Rpg de AS/400 ,  requiero cualificar un tabla en SQL 
tal como lo indico en este ejempo 
 
Exec Sql                           
  DECLARE C1 CURSOR FOR             
  SELECT * from "QS36F/AF.002";
 
Y me arroja el siguiente error
"No se permite un nombre calificado en este contexto."
 ¿Existe alguna solucion para esto? 
Gracias!
 
_________________________________________________________________
Discover the new Windows Vista
http://search.msn.com/results.aspx?q=windows+vista&mkt=en-US&form=QBRE
__________________________________________________
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 visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400

Responder a