En este caso es gx400dcl.cs, pero tambien realice esto a mano me registra el programa en el AS pero aun así al ejecutar la página web esta se cae mandando el error antes mencionado.

Ahora les muestro en la linea de comando lo realizado en AS

 > DROP PROCEDURE AINF000                                              

   AINF000 en *LIBL de tipo *N no encontrado.                          

 > CREATE PROCEDURE AINF000 (INOUT CHAR(10), INOUT CHAR(1),            

   INOUT NUMERIC(2, 0), INOUT CHAR(1), INOUT CHAR(2), INOUT CHAR(4),   

   INOUT NUMERIC(2, 0), INOUT NUMERIC(2, 0)) EXTERNAL NAME AINF000     

   LANGUAGE RPG GENERAL                                                

   Se ha creado la rutina AINF000, pero no puede salvarse y restaurarse

Donde en la primera viñeta elimino el procedimiento en el as que incluso me dice que no ha encontrado ya que no existe, luego en la segunda viñeta creo el procedimiento con el mensaje que da abajo.

atento a sus comentarios.

El 26 de diciembre de 2012 10:30, Gustavo Trentini <rgt@legadoit.com.ar> escribió:

Christian, hace tiempo me sucedió algo similar con un modelo JAVA, que el proceso que tenía que hacer el CREATE PROCEDURE en el AS cancelaba. Pero recuerdo que las sentencias las escribía en un programa que creo se llamaga CRTJDBCCALL.JAVA (o algo similar). Fijate si encontrás el proceso que te escribe GX para hacer esto en NET y fijate la sentencia que te está intentando ejecutar. Por el mensaje de error, tiene pinta de que no te está encontrando el objeto (AINF000) por la lista de bilbiotecas que está usando. Si el objeto existe y encontrás la sentencia, tratá de ejecutarla a "mano" calificando la biblioteca donde realmente se encuentra el objeto.

 

Saludos y suerte.

Lic. Gustavo Trentini
Desarrollo de Sistemas


Paraguay 1873 | Rosario | Argentina
+54 341 4854415 | www.legadoit.com.ar

 

De: Christian Berrios [mailto:berrios.christian@gmail.com]
Enviado el: miércoles, 26 de diciembre de 2012 09:50 a.m.

Para: as400-l@gxtech.com.uy
Asunto: [as400-l] Re: Implementación GX

 

Estimados, gracias por sus respuestas, la solución que use fue la siguiente:

 

En la creación del dataview en el record format, ingrese el nombre del registro de las tablas a las que estaba haciendo los dataview, con esto pude compilar en rpg sin problemas.

 

Ahora tengo el siguiente problema:

 

Los procedimientos RPG los tengo como main para ejecutarlos como procedimientos almacenados.

 

En un modelo nuevo WEB Genexus X Ev 1 U8 .Net contra ISeries, los declaro en el datastore, como lista externa de procedimientos almacenados, y en la lista de librerías, agrego la biblioteca donde se encuentra el procedimiento almacenado. Hasta aca todo perfecto bajo las normas de genexus, ya que al momento de especificar el objeto solo me da el warning del llamado al procedimiento con una función deprecate como indica la linea de más abajo:

 

warning: spc0145: Calling stored procedure 'AINF000' in datastore 'PPC' via the call keyword is deprecated. (Events, Line: 889#987e06db-145d-4376-9be0-ee0c676e663b, Details#609421dc-feff-4798-aea2-3dbe12f519f4)

 

Ahora el problema se produce al ejecutar el objeto y llamar el procedimiento, arrojando el siguiente error:

 

Error de servidor en la aplicación '/UAIUAIAS400'.

---

SQL0204 AINF000 en de tipo *N no encontrado.

Descripción: Excepción no controlada al ejecutar la solicitud Web actual. Revise el seguimiento de la pila para obtener más información acerca del error y dónde se originó en el código.

Detalles de la excepción: IBM.Data.DB2.iSeries.iDB2SQLErrorException: SQL0204 AINF000 en de tipo *N no encontrado.

Error de código fuente:

Se ha generado una excepción no controlada durante la ejecución de la solicitud Web actual. La información sobre el origen y la ubicación de la excepción pueden identificarse utilizando la excepción del seguimiento de la pila siguiente.

Seguimiento de la pila:

[iDB2SQLErrorException (0x80004005): SQL0204 AINF000 en  de tipo *N no encontrado.]    IBM.Data.DB2.iSeries.iDB2Exception.throwDcException(MpDcErrorInfo mpEI, MPConnection conn) +146    IBM.Data.DB2.iSeries.iDB2Command.reportDCError(Int32 rc) +586    IBM.Data.DB2.iSeries.iDB2Command.Prepare() +461    IBM.Data.DB2.iSeries.iDB2Command.ExecuteNonQuery() +110    GeneXus.Data.GxDataRecord.ExecuteStoredProcedure(IDbCommand cmd) +16    GeneXus.Data.ADO.GxCommand.ExecRpc() +610   [GxADODataException: SQL0204 AINF000 en  de tipo *N no encontrado.]    GeneXus.Data.ADO.GxCommand.ExecRpc() +902    GeneXus.Data.ADO.GxCommand.FetchDataRPC(IDataReader& dr) +78   [GxADODataException: SQL0204 AINF000 en  de tipo *N no encontrado.SQL0204 AINF000 en  de tipo *N no encontrado.]    GeneXus.Data.ADO.GxCommand.FetchDataRPC(IDataReader& dr) +366    GeneXus.Data.NTier.ADO.CallCursor.execute() +86    GeneXus.Data.NTier.DataStoreProvider.execute(Int32 cursor, Object[] parms, Boolean batch) +609    GeneXus.Data.NTier.DataStoreProvider.execute(Int32 cursor, Object[] parms) +11    GeneXus.Programs.presprueba.E163Z2() +1200    GeneXus.Programs.presprueba.EVT3Z2() +891   GeneXus.Programs.presprueba.DispatchEvents() +5    GeneXus.Programs.uai1.EVT0H2() +1166    GeneXus.Programs.uai1.webExecute() +131    GeneXus.Programs.presprueba.webExecute() +251    GeneXus.Http.GXHttpHandler.ProcessRequest(HttpContext httpContext) +266   [Exception: GXApplication exception]    GeneXus.Http.GXHttpHandler.ProcessRequest(HttpContext httpContext) +355    System.Web.CallHandlerExecutionStep.System.Web.HttpApplication.IExecutionStep.Execute() +181    System.Web.HttpApplication.ExecuteStep(IExecutionStep step, Boolean& completedSynchronously) +75

 

---

Información de versión: Versión de Microsoft .NET Framework:2.0.50727.5466; Versión ASP.NET:2.0.50727.5456

 

 

Esperando se encuentren bien y atento a sus comentarios, me despido cordialmente deseándoles feliz navidad a todos.

 

  

Christian Berrios Sepúlveda.

Ing. Industrial.

Analista Genexus.

 

 

 

 

 

 

El 7 de diciembre de 2012 09:48, Christian Berrios <berrios.christian@gmail.com> escribió:

Estimad@s, buenos dias.

Estoy implementando GeneXus desde 0, para formar un área de desarrollo. Esta tiene un ISeries con compilador rpg.

En este ISeries ya instale la biblioteca GX y estoy creando tablas y procedimientos.

Mi problema es que cuando creo procedimientos que leen Dataview, estos no se compilan en el ISeries.

                             Visualizar Mensajes                            
                                                     Sistema:   ISISDAF      
Cola  . . . . . :   CBS                     Programa  . . . :   *DSPMSG      
  Biblioteca  . :     QUSRSYS                 Biblioteca  . :                
Gravedad  . . . :   00                      Entrega . . . . :   *BREAK      
                                                                             
Teclee respuesta (si necesario), pulse Intro.                                
  * Could not create Procedure PPRC01 in library GWEB.                      
                                                                             
                                                                             
                                                                             
                                                                        Final
F3=Salir           F11=Eliminar un mensaje                  F12=Cancelar    
F13=Eliminar todo  F16=Eliminar todo excepto no respondido  F24=Más teclas   

 

El procedimiento hace lo siguiente

 

for each order NIMICE, UIMICE, ICLICE 

 

endfor

 

 

Procedure Prc01 Navigation Report

¡Error! Nombre de archivo no especificado.

Name ¡Error! Nombre de archivo no especificado.Prc01 ¡Error! Nombre de archivo no especificado. Description Prc01 ¡Error! Nombre de archivo no especificado. ¡Error! Nombre de archivo no especificado. ¡Error! Nombre de archivo no especificado. Output Devices None ¡Error! Nombre de archivo no especificado. Environment ¡Error! Nombre de archivo no especificado. RPG for iSeries ¡Error! Nombre de archivo no especificado. Spec. Version ¡Error! Nombre de archivo no especificado. 9_0_6-009 ¡Error! Nombre de archivo no especificado. Form Class Graphic ¡Error! Nombre de archivo no especificado. Program Name PPrc01 ¡Error! Nombre de archivo no especificado. Parameters ¡Error! Nombre de archivo no especificado. Levels ¡Error! Nombre de archivo no especificado. For Each PFMICE10 (Line: 1) ¡Error! Nombre de archivo no especificado. Order: NIMICE , UIMICE , ICLICE Index: LFMICE10 Navigation filters: Start from: FirstRecord Loop while: NotEndOfTable ¡Error! Nombre de archivo no especificado.=PFMICE10( ICLICE) INTO ICLICE UIMICE NIMICE

 

Donde PFMICE10 esta asociado al dataview

 

 

Estimados necesito saber si falta algo que configurar en el ISeries o Genexus para poder realizar esto ya que necesito realizar SP para mejorar performance de aplicación

 

Atento a sus comentarios.

 

 

 

 

--
Christian Berríos Sepúlveda
Ing. Industrial.
Analista Genexus
Movil : 09-9185722

 

--
Christian Berríos Sepúlveda
Desarrollador Genexus
Movil : 09-9185722

--
Christian Berríos Sepúlveda
Desarrollador Genexus
Movil : 09-9185722