Sergio.
Que alguien me corrija si estoy equivocado, pero con SQL no se pueden leer
miembros de datos directamente, por lo que te sugiero que hagas lo siguiente:
1. Por cada miembro de datos que contenga el archivo, crea un ALIAS
CREATE ALIAS BrasilDB.Alias_Miembrox FOR BrasilDB.Nomarq(miembro_de_datos)
2. O haste un PA externo y lo haces con RPG, que es más fácil (en este caso)
haber si te sirve...
saludos!!
From: borto...@hotmail.com
To: forum.help400@listas.combios.es
Subject: RE: Stored procedure
Date: Mon, 14 Feb 2011 15:33:14 -0300
Si es una de las posibilidades que el archivo contenga varios miembros y deba
leer solamente uno de ellos que se le estaría pansando por parámetro.
Aqui esta el stored procedure y marcado esta el nombre del archivo que debería
contener el miembro.
Muchas gracias.
Sergio
CREATE PROCEDURE ISAPWWW.SP_DSTC_SE1_S2_BR (
IN USERIN CHAR(10) ,
IN NOMARQ CHAR(10) ,
IN CTCEIN NUMERIC(5, 0) ,
IN FECDIN NUMERIC(8, 0) ,
IN FECHIN NUMERIC(8, 0) ,
IN STSIN NUMERIC(3, 0) )
DYNAMIC RESULT SETS 1
LANGUAGE SQL
SPECIFIC ISAPWWW.SP_DSTC_SE1_S2_BR
NOT DETERMINISTIC
READS SQL DATA
CALLED ON NULL INPUT
SET OPTION ALWBLK = *NONE ,
ALWCPYDTA = *OPTIMIZE ,
COMMIT = *NONE ,
DECRESULT = (31, 31, 00) ,
DFTRDBCOL = *NONE ,
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
SRTSEQ = *HEX
BEGIN
DECLARE C0 CURSOR FOR (
SELECT CCNPED , CCNNFI , CCCTCE , CCTCOM , CCORIG , CCNFOR , CCTFOR , CCNPJD ,
CCCEPD , CCLOCD ,
CCDIAE , CCMESE , CCAÑOE , CCHRUD , CCHRUM , CCHRUA , CCDDEC , CCMMEC , CCAAEC
, CCDDCO , CCMMCO , CCAACO , CCPLLA ,
CASE
WHEN CCBAJA <> ' ' THEN 4
WHEN CCHRUM = 0 AND CCMMEC = 0 AND CCMMCO = 0 THEN 1
WHEN CCHRUM > 0 AND CCMMEC = 0 AND CCMMCO = 0 THEN 2
WHEN CCMMEC > 0 AND CCTCOM IN ( '51' , '52' ) THEN 5
WHEN CCMMEC > 0 AND CCTCOM NOT IN ( '51' , '52' ) THEN 3
END
AS CPSTS , 'BRASILBD' AS PDLFAC , 'DSTCONC' AS PDFFAC , '*FIRST' AS PDMFAC FROM
BRASILBD . NOMARQ , ISAPWWW . PWUSERCTCE
WHERE CUSER = UCASE ( USERIN ) AND ( CCCTCE = CCTCE OR CCTCE = 99999 ) AND
CCBAJA = ' ' )
ORDER BY CCCTCE , CCTCOM , CCORIG , CCNFOR , CCTFOR
FETCH FIRST 2000 ROWS ONLY OPTIMIZE FOR 30 ROWS
;
OPEN C0 ;
END ;
From: pmoli...@hotmail.com
To: forum.help400@listas.combios.es
Subject: RE: Stored procedure
Date: Mon, 14 Feb 2011 18:25:25 +0000
Hola Sergio.
podrías ser un poco más específico? es un solo archivo que vas a leer pero con
distintos miembros?
podrías poner como tienes el Stored procedure escrito?
Saludos!!
From: borto...@hotmail.com
To: forum.help400@listas.combios.es
Subject: Stored procedure
Date: Mon, 14 Feb 2011 14:33:41 -0300
Buenas tardes, estamos realizando un stored procedure dentro del AS/400 y nos
encontramos con un problema, para lo cual se nos ocurrieron dos soluciones:
1) Pasar por parametro el nombre del archivo que vamos a leer, que en cada
corrida podría ser de nombre variable (para que por cada corrida el archivo
tenga la misma estructura, pero distinto nombre), es este caso se nos presenta
la dificultad de como hacer para utilizar el parametro de entrada como nombre
del archivo.
2) Para la segunda solución, se nos había ocurrido que lo variable sea el
nombre del miembro, pero no sabemos como en el select leer el especificamente
ese miembro.
Si alguien puede darnos una idea de como poder encarlo se lo agradeceremos
enormemente.
Saludos.
Sergio
____________________________________________________ �nete a Recursos AS400,
nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones
Help400, S.L.
____________________________________________________ �nete a Recursos AS400,
nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones
Help400, S.L.
____________________________________________________ �nete a Recursos AS400,
nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones
Help400, S.L. ____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
