Re: Copiar spool a archivo .txt

2019-12-26 Por tema Raul Bascones
En versión 7.2: CPYSPLF FILE(Tu_Spool_File) TOFILE(*TOSTMF) TOSTMF('/Directorio/Tu_Spool_File.txt') WSCST(QWPDEFAULT) El jue., 26 dic. 2019 a las 19:11, Miguel SB () escribió: > Buenas tardes, > Tengo la siguiente consulta: como puedo copiar un archivo de spool a un > arc

Re: Recuperar columnas de una tabla

2019-09-17 Por tema Raul Bascones
Buenas días, Tal vez te pueda valer así: select column_name, cast(column_heading as char(100)) from qsys2/syscolumns where table_name=trim(:@table) and Table_schema=trim(:@esquema); He puesto 100 por poner algo. Un saludo. El mar., 17 sept. 2019 a las 9:08, Alberto Martinez (< alberto.mar

Re: Validar parámetro de mandato

2019-07-16 Por tema Raul Bascones
Buenos días Javier, No sé si te estoy entendiendo bien pero creo que lo podrías hacer estableciendo a 1 el valor de MIN. Te pego uno que tengo por aquí: TOFILE: PARM KWD(TOSTMF) TYPE(*CHAR) LEN(256) MIN(1) + EXPR(*YES) PROMPT('Archivo continuo destino

SQL Stored Procedures

2018-09-23 Por tema Raul Bascones
Buenos días, Necesito algún manual para desarrollar Stored Procedures en SQL para el AS. ¿Sabéis dónde puedo encontrar manuales en PDF? Muchas gracias y un saludo. Raúl Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Foru

Re: RECUPERAR FILA/COLUMNA PANTALLA EN COBOL/400

2017-10-28 Por tema Raul Bascones
Hola Javier. Además de las formas que ya te han comentado. En COBOL sería igual que en RPG. Más o menos así : ENVIRONMENT DIVISION. SPECIAL-NAMES. I-O-FEEDBACK I-O-F. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT PANTA ASSIGN WORKSTATION-PANTA

Re: SENTENCIA ACCEPT X FROM DATE (COBOL)

2017-10-17 Por tema Raul Bascones
Saludos, > > > > Javier > > > > *From:* forum.help400-boun...@listas.combios.es [ > mailto:forum.help400-boun...@listas.combios.es > ] *On Behalf Of *Raul Bascones > *Sent:* martes, 17 de octubre de 2017 11:18 > *To:* forum.help400 > *Subject:* Re: SENTENCIA AC

Re: SENTENCIA ACCEPT X FROM DATE (COBOL)

2017-10-17 Por tema Raul Bascones
Se me olvidaba, el tipo de miembro debe ser CBLLE. El 17 de octubre de 2017, 11:07, Javier Baca escribió: > Hola Lluis : > > > > Muchas gracias pero, por desgracia, no me ha funcionado, ya el propio > editor dice esto : > > > > “FUNCTION es una palabra reservada en el estándar ANSI > > COBOL 1

Re: SENTENCIA ACCEPT X FROM DATE (COBOL)

2017-10-17 Por tema Raul Bascones
Buenos días Javier, Si compilas con ILE (CRTBNDCBL) funciona . El 17 de octubre de 2017, 11:07, Javier Baca escribió: > Hola Lluis : > > > > Muchas gracias pero, por desgracia, no me ha funcionado, ya el propio > editor dice esto : > > > > “FUNCTION es una palabra reservada en el estándar ANSI

Re: Conversor CSB34

2017-09-25 Por tema Raul Bascones
ramientas para convertir los archivos, incluso en > online > > Luego yo tengo desarrollado unas funciones para "escribir" en el IFS > directamente el XML para pagos SEPA > > El 25 de septiembre de 2017, 9:22, Raul Bascones > escribió: > >> Buenos días, >>

Re: Conversor CSB34

2017-09-25 Por tema Raul Bascones
talles. > > > > Saludos, > > > > Javier Mora > > > > *De:* forum.help400-boun...@listas.combios.es [mailto: > forum.help400-boun...@listas.combios.es] *En nombre de *Raul Bascones > *Enviado el:* lunes, 25 de septiembre de 2017 9:23 > *Para:* forum.help

Conversor CSB34

2017-09-25 Por tema Raul Bascones
Buenos días, Alguien no tendría un conversor del cuaderno 34 (transferencias) de plano a xml, da igual en lo que sea, COBOL, RPG Lo agradecería en el alma. Un saludo, Raúl Báscones Únete a Recursos AS400, nuestra Comunidad ( http://bi

Re: Servidor impresion windows

2016-01-15 Por tema Raul Bascones
Cómo solución hasta que se arregle el problema de impresión, podías cambiar el atributo de los archivos de impresión a SAVE(*YES) para no perderlos (me imagino que ya pudieras tenerlo así). Un saludo, Raúl El 15 de enero de 2016, 11:20, Javier Mora escribió: > A mí me parece un poco complicad

Re: COBOL y SQL embebido IF dentro de WHERE

2016-01-13 Por tema Raul Bascones
Buenos días Juan Ramón, No sé si ya te enviaron un ejemplo, de todas formas te adjunto uno por si acaso (es un fichero de texto). Saludos y feliz año a todos!!! Raúl El 12 de enero de 2016, 16:03, Juan Ramón Garcia escribió: > Hola a tod@s: > > Nunca me he encontrado con este problema pero..

Re: Servicios web

2015-11-19 Por tema Raul Bascones
o fechas se tendria que modificar el > algoritmo de tratamiento de cadenas. > > La solucion retorna en un parametro tipo Vector, para ser tratado en > cualquier programa RPG, donde contiene los nombres de los datos y su > contenido. > > Si tienes cualquier duda adicional por favor c

Re: Servicios Web

2015-11-19 Por tema Raul Bascones
. > > Saludos. > > > > > El 18 de noviembre de 2015, 14:31, Raul Bascones > escribió: > >> Buenos días. >> >> Necesito llamar/consumir un servicio web desde un programa RPG/COBOL. Si >> alguien pudiera echarme un cable se l

Servicios Web

2015-11-18 Por tema Raul Bascones
Buenos días. Necesito llamar/consumir un servicio web desde un programa RPG/COBOL. Si alguien pudiera echarme un cable se lo agradecería, sobre todo en por dónde debo empezar... Muchas gracias y un saludo. Raúl Únete a Recursos AS400, nuestra

Re: cpysplf tofile(*stmf)

2015-06-25 Por tema Raul Bascones
tofile(*stmf) > > > > No lo está. > > > > Saludos, > > > > Javier > > > > *De:* forum.help400-boun...@listas.combios.es [ > mailto:forum.help400-boun...@listas.combios.es > ] *En nombre de *Raul Bascones > *Enviado el:* jueves, 25 de junio de 2015 11:54 &g

cpysplf tofile(*stmf)

2015-06-25 Por tema Raul Bascones
Buenos días, Alguien sabe si está soportado "CPYSPLF TOFILE(*STMF)" en versión 6.1 mediante alguna PTF. Sé que en 7.1 sí que lo está. Un saludo y muchas gracias de antemano. Raúl Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd

Re: COMO SABER LA IP DE UN TRABAJO

2015-03-23 Por tema Raul Bascones
Prueba con esto a ver si te vale: PGM (&DEVICE) DCL &DEVICE*CHAR 10 DCL &BUFFER*CHAR 2000 DCL &BUFFERLEN *INT 4 2000 DCL &ERROR *CHAR 50 DCL &IP*CHAR 15 CALL QDCRDEVD (&BUFFER &BUFFERLEN 'DEVD0600' &DEVICE &ERROR) CHGVAR &IP %SST(&BUFFER 878 15) S

Re: Client Access

2015-02-02 Por tema Raul Bascones
e de transferencia > de excel > > http://www-01.ibm.com/support/docview.wss?uid=nas8N1019608 > > > El 2 de febrero de 2015, 12:50, Raul Bascones > escribió: > >> Buenos días, >> >> Necesitaría saber cuál es la versión mínima o necesaria que tengo que >> i

Re: Client Access

2015-02-02 Por tema Raul Bascones
En el mensaje anterior se me olvidó poneros la versión del sistema, estamos en 6.1. Gracias. El 2 de febrero de 2015, 12:50, Raul Bascones escribió: > Buenos días, > > Necesitaría saber cuál es la versión mínima o necesaria que tengo que > instalar de Client Access para Windo

Client Access

2015-02-02 Por tema Raul Bascones
Buenos días, Necesitaría saber cuál es la versión mínima o necesaria que tengo que instalar de Client Access para Windows 7/32 para poder ejecutar las transferencias de ficheros desde Excel 2007. Con la que tengo actualmente, la 4.5, no me aparecen los complementos de transferencias. Agradezco de

Re: Eliminación de nulos en un archivo lógico

2014-10-20 Por tema Raul Bascones
Buenos días Jesús, Tal vez te pueda valer mediante vistas de SQL. Te lo intento plasmar mediante un ejemplo: Definición del archivo físico PRUEBA: Campo TipoLong Nulos -- - CAMPO1CHAR 10 no CAMPO2CHAR 10 sí La vista a gen

Re: consulta / origen tecla de funcion

2014-10-02 Por tema Raul Bascones
Con la palabra clave RTNCSRLOC 'Devolver ubicación de cursor' a nivel de registro. Me explico con un ejemplo: R F1 RTNCSRLOC(*RECNAME ®CUR &CAMPOCU- R &POSCUR) REGCUR10A H CAMPOCUR10A H POSCUR 4S 0H En los sigui

Re: Pregunta rpg

2014-05-30 Por tema Raul Bascones
SHTDN (Shut Down) En formato free: %SHTDN (Shut Down) Con esto más que monitorizar estarías comprobando. No sé si te puede valer. Un saludo El 29 de mayo de 2014, 23:50, rpalomi...@gmail.com escribió: > Buenas tardes!! Como puedo monitorear dentro de un rpgile que acaban de > matarme con

Re: Restar días a una fecha en SQL

2014-04-28 Por tema Raul Bascones
Además de lo que te han comentado, si la tienes en un campo numérico en formato MMDD select date(substr(digits(CampoFechaNumerico), 1, 4) || '-' || substr(digits(CampoFechaNumerico), 5, 2) || '-' || substr(digits(CampoFechaNumerico), 7, 2) ) - 3 days from tabla El 28 de

Re: Problema con acceso a carpeta de red

2014-04-23 Por tema Raul Bascones
Con NombreSistema o IP, me refiero al del iSeries El 23 de abril de 2014, 14:34, Raul Bascones escribió: > Intenta cambiando por NombreSistema o IP > > > El 23 de abril de 2014, 12:42, A. N. escribió: > >> Buenos días, tengo un usuario que quiere acceder a una

Re: Problema con acceso a carpeta de red

2014-04-23 Por tema Raul Bascones
Intenta cambiando por NombreSistema o IP El 23 de abril de 2014, 12:42, A. N. escribió: > Buenos días, tengo un usuario que quiere acceder a una carpeta de red del > ISeries, cuando va a acceder y teclea el usuario y contraseña, delante del > usuario le coloca el nombre del pc con lo cual

Re: Error en archivo

2014-03-05 Por tema Raul Bascones
Hola Miguel Angel, Puedes intentar forzar un Compromiso/Retrotracción con el mandato "WRKCMTDFN". Con esto eliminarías los cambios pendientes ... Espero que te sirva. Un saludo. El 4 de marzo de 2014, 17:32, Miguel Angel escribió: > Buenos días Foro, ahí les va la consulta a ver si alguien l

Re: Ayuda!

2014-02-26 Por tema Raul Bascones
Todo depende del programa al que llames y como esté implementado. Un ejemplo sencillo: /*/ PGM (&NFACT) DCL &NFACT*CHAR 13 /* NUM. FACTURA */ DCL &MDTOPC *CHAR 132 'C:\ARCHIV~1\CONSULTA ' STRPCO MONMSG (IWS4010 IWS4032) CHGVAR &MDTOPC (&MDTOPC

Re: Identificación de un caracter en un campo

2014-01-28 Por tema Raul Bascones
Una posible forma (en Rpg) sería así: h DFTACTGRP(*NO) d Campo S 20a Inz('aa, b') d Destino S 20a Inz(*Blanks) d Origen S 20a Inz(*Blanks) d PosComaS 2S 0 Inz(*Zeros) /free PosComa = %scan(',': Campo:

Re: Listas de ibliotecas en los SQL incrustrados

2013-10-14 Por tema Raul Bascones
Buenos días, Échale un vistazo al parámetro OPTION de los mandatos de compilación: CRTSQLRPG, CRTSQLRPGI. Estos pueden tener los siguientes valores referentes al convenio de denominación: *SYS (por defecto) "biblioteca/archivo" y *SQL "esquema.tabla". No sé si por ahí pueden ir los tiros. A la ho

Re: Select into :variable en sql dinamico

2013-06-18 Por tema Raul Bascones
La solución alternativa es la que ha comentado Javier Mora, yo la he probado y funciona perfectamente. Buenísima aportación ! Siempre se aprende algo. Muchas gracias. El 18 de junio de 2013 07:48, alberto escribió: > Hola > Esta consulta ya ha salido alguna vez en el Foro, pero al final

Re: Select into :variable en sql dinamico

2013-06-18 Por tema Raul Bascones
Copio y pego *"SELECT INTO* * * *Invocation * * * *This statement can only be embedded in an application program. It is an* *executable statement that cannot be dynamically prepared. It must not be specified in REXX."* Referencias: IBM i: DB2 for i SQL Reference El 18 de junio de 2013 07:48,

Re: PREGUNTA COBOL

2011-12-02 Por tema Raul Bascones
En el copy/paste, se me olvido los retornos de RESULT: OUTPUT 01 RESULT PIC S9(3) USAGE PACKED-DECIMAL. *> 0 Primer caracter donde es encontrado *= 0 No localizado *- 1 Error: PATTERN mayor que SCAN *

Re: PREGUNTA COBOL

2011-12-02 Por tema Raul Bascones
Yo creo que esto te puede valer: WORKING-STORAGE SECTION. * Párametros QCLSCAN --- INPUT 01 SCAN PIC X(80) VALUE " PRUEBA LETRA CON QCLSCAN". INPUT 01 LEN-SCAN PIC S9(3) USAGE PACKED-DECIMAL VALUE 80. INPUT 01 W-START PIC

Re: Mandato CPYFRMPCD

2011-04-26 Por tema Raul Bascones
CPYFRMPCD se usa para el sistema de de archivos QDLS, para copiar desde otro sistema de archivos debes usar, si no recuerdo mal, CPYFRMSTMF o CPYFRMIMPF. En estos mandatos debes poner los caracteres delimitadores de registro y de campos. Ahora mismo no tengo ningún ejemplo, si eso mañana lo busco

Re: EJECUTAR SENTENCIAS SQL QUE ESTAN DENTRO DE UN MIEMBRO

2011-04-22 Por tema Raul Bascones
Separa cada sentencia con punto y coma (;). No valen sentencias SELECT aisladas, solo valido UPDATE, DELETE y sentencias DDL. Si no utilizas control de compromiso ejectuar con COMMIT(*NONE). ¿Te da algún error al ejecutar? Saludos. El 21 de abril de 2011 15:35, Fco. Javier B. L. escribió: > B

Re: Ayuda con consulta SQL

2011-04-04 Por tema Raul Bascones
Hola Miguel, yo no le veo ningún problema en la segunda forma de plantearlo y pienso que es lo correcto. Otra posible forma (quizas algo más engorrosa) sería así: SELECT * FROM ( SELECT * FROM ventas INNER JOIN empleados ON ventas.id_Vendedor = empleados.id_Empleado ) AS A

Re: DUMP a un JOB

2011-04-01 Por tema Raul Bascones
Tal vez así: STRSRVJOB JOB(Trabajo_A_Volcar) DMPJOB ENDSRVJOB Saludos. El 31 de marzo de 2011 22:57, Fabio Valverde escribió: > Buenas , necesito una ayuda sobre DUMP: > > Es posible realizar un Vuelco a un JOB desde otro JOB, esto lo necesito > porque tengon JOB que se encarga de eliminar lo

Re: Duda para crear un logico

2011-03-03 Por tema Raul Bascones
Entiendo que quieres sumar los campos y no concatenarlos. Si es así, mediante DDS no se puede hacer, pero puedes realizarlo mediante SQL creandote una vista. Sería más o menos así: CREATE VIEW Libreria/Vista AS SELECT codigo, (campoA + campoB) as campoC FROM Fichero Si fuera conc

Re: VARIABLE EN CPYTOSTMF

2011-02-01 Por tema Raul Bascones
Sería más o menos así: DCL &VAR *CHAR 132 CHGVAR &VAR ('/QSYS.LIB/SAVF.LIB/' *CAT &ODLBNM *TCAT '.FILE') CPYTOSTMF FROMMBR(&VAR) TOSTMF('/PRUEBA/') Saludos, Raúl El 1 de febrero de 2011 21:07, Jose Lingeri escribió: > Buenas, alguien sabe si se le puede pasar una variable al CPYTOSTMF? >

Re: Consulta Técnica, DFTACTGRP

2011-02-01 Por tema Raul Bascones
Perdón quise decir: OVRDBF file SHARE(*YES) OVRSCOPE(*JOB) OPNQRYF ... El 1 de febrero de 2011 20:50, Raul Bascones escribió: > Una posible solución sería: > > OVRDBF file SHARE(*YES) OPNSCOPE(*JOB) > OPNQRYF ... > > Saludos. Raúl > > El 1 de febrero de 201

Re: Consulta Técnica, DFTACTGRP

2011-02-01 Por tema Raul Bascones
Una posible solución sería: OVRDBF file SHARE(*YES) OPNSCOPE(*JOB) OPNQRYF ... Saludos. Raúl El 1 de febrero de 2011 18:04, Nicolas Machado < nicolas.mach...@metodo.com.ar> escribió: > Buenas, tengo una consulta. > > Resulta que estoy usando un Archivo desde un CLP con el comando OVRDBF, >

Re: AYUDA EN SQL COMPLEJO

2011-01-27 Por tema Raul Bascones
ELF=&DT=19940818181324 > y > no lo encuentro. > O hay otro manual más actualizado? Porque el que yo estoy mirando es del > 94. > Saludos. > > Javier. > > > > > > -- > > > > Message: 2 > > Date: Tue, 25 Jan

Re: DIFERENCIA ENTRE LA CURLIB Y LA LISTA DE BIBLIOTECAS

2011-01-27 Por tema Raul Bascones
Correcto. Además a la hora de crear un objeto si no especificas una biblioteca esté se creará en la CURLIB y si esta no está establecida se creará en la QGPL. Saludos El 27 de enero de 2011 08:51, Fco. Javier B. L. escribió: > > Buenos días : > ¿Alguien me puede aclarar la diferencia que hay ent

Re: AYUDA EN SQL COMPLEJO

2011-01-25 Por tema Raul Bascones
No sé si puede valer: SELECT * FROM ( SELECT cabfra.* , detfra.*, substr(detfra.descri, 35,10) presupuesto FROM cabfra INNER JOIN detfra ON cabfra.nfactura = detfra.nfactura WHERE cabfra.anyo = Anyo_deseado ) AS facturas INNER JOIN ( SELECT cabppto.*, detppto

Re: Ayuda con SUBFICHERO

2010-10-22 Por tema Raul Bascones
Yo lo tengo hecho así: A R SUBF SFL A*campos del subfile A R CONTROL SFLCTL(SUBF) A SFLCSRRRN(&CSRRRN) ACSRRRN 5S 0H Después de lectura/esc

Re: ultimo registro SQL

2010-09-22 Por tema Raul Bascones
timo > movimiento de un tipo determinado en un artículo. > Probaré la solucion que me das, concatenando año y semana. > Salut > > > *Raul Bascones * > Enviado por: forum.help400-boun...@listas.combios.es > > 21/09/2010 10:01 > Por favor, responda a > "forum.he

Re: ultimo registro SQL

2010-09-21 Por tema Raul Bascones
La primera consulta yo la haría así: SELECT Codigo_de_Articulo, max(Fecha_de_Movimiento) FROM Tabla GROUP BY Codigo_de_Articulo Luego el FETCH . No sé si puede valer Saludos El 20 de septiembre de 2010 17:57, escribió: > Hola Foro > Estoy haciendo una consulta dentro de otra, y me

Re: Compatibilidad de versiones

2010-08-23 Por tema Raul Bascones
Desde versión 6.1, para los mandatos CRTxxxPGM, donde xxx = CL, RPG, CBL (entorno OPM) el parámetro TGTRLS me da los siguientes valores: *CURRENT *PRV V5R3M0 V5R4M0 V6R1M0 No sé si te puede valer .. Saludos. El 23 de agosto de 2010 14:13, escribió: > > Hola estimados foreros: > > E

Re:

2010-08-17 Por tema Raul Bascones
loni. Dpto. Organización > > > Raul Bascones escribió: > > Esta forma: > > delete from biblioteca/archivo where (clave1, clave2) in (Select clave1, > clave2 from biblioteca/archivo fetch first 10 rows only) > > no funciona, la primera si. Cuando es más de un campo se deben

Re:

2010-08-16 Por tema Raul Bascones
Esta forma: delete from biblioteca/archivo where (clave1, clave2) in (Select clave1, clave2 from biblioteca/archivo fetch first 10 rows only) no funciona, la primera si. Cuando es más de un campo se deben concatenar los campos para su comprobación con "IN", mas o menos sería así: delete from bib

Re: Resumen de Forum.help400, Vol 45, Envío 43

2010-07-29 Por tema Raul Bascones
Aparte de como te han comentado anteriormente con los campos CLOB, solo se me ocurre que lo implementes con 2 archivos Saludos El 29 de julio de 2010 11:29, Rodrigo Fiotto escribió: > Buenas > Lo que necesito es que la Longitud de registro sea de 5. > > Saludos > > > > > [image: I

Re: GOBACK

2010-07-14 Por tema Raul Bascones
Depende del tipo de programa que este ejecutando y siempre desde la linea de mandatos, me explico: - Si el COBOL es OPM con GOBACK en la siguiente llamada debería inicializar las variables. - Si el COBOL es ILE con GOBACK en la siguiente llamada mantiene el estado y valor de las variables. Para e

Barcode

2010-07-07 Por tema Raul Bascones
Cambie el asunto . Todo depende del tipo de código de barras que uses, yo uso CODE128 y le paso 26 caracteres numéricos en un campo alfanumérico. No sé que tipo de código de barras estas usando ... Saludos. -- Mensaje original -- Necesito una ayuda, por favor: tengo una apl

Re: Chain en COBOL

2010-06-18 Por tema Raul Bascones
ot;REGISTRO NO EXISTE". Un saludo. El 19 de junio de 2010 08:38, Raul Bascones escribió: > Con la estructura de fichero que tu envias, sería así: > > MOVE W-CAMPO1 TO CAMPO1. > MOVE W-CAMPO2 TO CAMPO2. > MOVE W-CAMPO3 TO CAMPO3. > MOVE B"0" TO IN

Re: Chain en COBOL

2010-06-18 Por tema Raul Bascones
Con la estructura de fichero que tu envias, sería así: MOVE W-CAMPO1 TO CAMPO1. MOVE W-CAMPO2 TO CAMPO2. MOVE W-CAMPO3 TO CAMPO3. MOVE B"0" TO IND(59). READ FICHERO INVALID KEY MOVE B"1" TO IND(59). IF IND(59) = B"1" THEN DISPLAY "REGISTRO NO EXISTE". Un saludo.

Re: Rutina en cobol para hacer un READE

2010-06-16 Por tema Raul Bascones
Suponiendo que el formato y claves del fichero son así: A R RREG A K CAMPO1 A K CAMPO2 A K CAMPO3 Si quisieras acceder por clave parcial, yo lo haría así MOVE W-CAMPO1 TO CAMPO1. MOVE W-CAMPO2 TO CAMPO2. MOVE B"0" TO W-EOF. START FICHERO KEY = CA

Re: DDS Campos memo

2010-05-18 Por tema Raul Bascones
Hasta donde yo sé, lo más parecido son los campos CLOB, BLOB y DBCLOB. Este tipo de datos no los puedes crear vía DDS, su creación se debe realizar mediante SQL. Su tratamiento también debe ser mediante SQL embebido y con lenguajes ILE. Saludos. El 18 de mayo de 2010 19:30, Martín Esquivel H.

Re: SQL PACKAGE

2010-05-12 Por tema Raul Bascones
Se crean solos. Mirate esta dirección: http://www-03.ibm.com/systems/i/software/db2/sqlperffaq.html El 12 de mayo de 2010 12:42, Maria Bes Esteban escribió: > Hola a todos, > > Tengo una consulta sobre SQL, normalmente en un SQLRPG efectúo sentencias > PREPARE para efecturar un SQL interactivo

Re: Consulta sobre Journal

2009-11-20 Por tema Raul Bascones
No se si te puede valer así: Lee diario, receptor actual (salida a fichero): DSPJRN JRN(DIARIO) RCVRNG(*CURRENT) OUTPUT(*OUTFILE) OUTFILE(QTEMP/DIARIO) o Lee diario, receptor actual y todos los demás (salida a fichero): DSPJRN JRN(DIARIO) RCVRNG(*CURCHAIN) OUTP

Re: Seleccionar registros de los ultimos 7 días

2009-11-10 Por tema Raul Bascones
Con esta sentencia creo que te funcionará: select * from TABLA where cast(substr(fecha_ingreso, 1, 4) || '-' || substr(fecha_ingreso, 5, 2) || '-' || substr(fecha_ingreso, 7, 2) as date) > curdate() - 7 days Si no recuerdo mal creo que debes te

Re: cobol/400

2009-11-03 Por tema Raul Bascones
Otra opción, si no puedes crear el ALIAS es copiarlo de la siguiente forma: 0057.00FD FICHERO. 0058.0001 R-FICHERO. 0059.00COPY DDSR-ALL-FORMATS OF FICHERO. (Con DDSR y no DDS) Un saludo. El 3 de noviembre de 2009 11:49, ajulvez <

Re: cobol/400

2009-11-03 Por tema Raul Bascones
Añadele un alias sin Ñ, por ejemplo: 0012.00 ACAMPOÑ10A ALIAS(CAMPON) y luego en la COPY dentro del COBOL, lo copias asi: 0057.00FD FICHERO. 0058.0001 R-FICHERO. 0059.00COPY DD-ALL-FORMATS OF FICHERO.

Re: Cambio de Objetos poseidos por un usuario

2009-07-31 Por tema Raul Bascones
Repito el correo, que me lie un poco: Un pequeño CL, que haga lo siguiente: 1.- DSPUSRPRF USRPRF(Usuario_Poseedor) TYPE(*OBJOWN) OUTPUT(*OUTFILE) OUTFILE(QTEMP/Objetos_del_Usuario) 2.- Por cada registro: CHGOBJOWN OBJ(&OOLIB/&OOOBJ) OBJTYPE(&OOTYPE) +

Re: Cambio de Objetos poseidos por un usuario

2009-07-31 Por tema Raul Bascones
31 de julio de 2009 11:22, Raul Bascones escribió: > Un pequeño CL, que haga lo siguiente: > > 1.- DSPUSRPRF USRPRF(Usuario_Poseedor) TYPE(*OBJAUT) OUTPUT(*OUTFILE) > OUTFILE(QTEMP/Objetos_del_Usuario) > 2.- Por cada registro: > CHGOBJOWN

Re: Cambio de Objetos poseidos por un usuario

2009-07-31 Por tema Raul Bascones
Un pequeño CL, que haga lo siguiente: 1.- DSPUSRPRF USRPRF(Usuario_Poseedor) TYPE(*OBJAUT) OUTPUT(*OUTFILE) OUTFILE(QTEMP/Objetos_del_Usuario) 2.- Por cada registro: CHGOBJOWN OBJ(&OALIB/&OAOBJ) OBJTYPE(&OATYPE) + NEWOWN(Nuevo_

Re: Parámetro en definición de mandato

2009-02-10 Por tema Raul Bascones
listas.combios.es [mailto: > forum.help400-boun...@listas.combios.es] *En nombre de *Raul Bascones > *Enviado el:* lunes, 09 de febrero de 2009 12:02 > *Para:* forum.help400 > *Asunto:* Re: Parámetro en definición de mandato > > Yo lo haría así: > >

Re: Parámetro en definición de mandato

2009-02-09 Por tema Raul Bascones
Yo lo haría así: PARM KWD(TOFILE)+ TYPE(QUAL2)+ DFT(*NONE) + SNGVAL( (*NONE ))+ PROMPT('A ARCHIVO') QUAL2: Q

Re: Parametros en COBOL/400 (OPM)

2008-04-10 Por tema Raul Bascones
Alex, muchas gracias por la sugerencia que me haces, pero para hacer lo que me comentas sobre el uso de NULL se debe trabajar con punteros y este no es el caso. De todas formas con tu sugerencia me diste la idea de desarrollarlo de otra manera que paso a explicarte por si a alguien le pudiera ser

Parametros en COBOL/400 (OPM)

2008-04-08 Por tema Raul Bascones
Hola mi duda es la siguiente: - Es posible monitorizar de alguna forma en un pgm COBOL el mensaje MCH0801: No se ha pasado el argumento asociado con un parámetro externo o interno. - Lo que necesito es llamar a un determinado pgm COBOL una vez con 2 parámetros y otras con 3 Muchas gracias _

Re: Delete en sql con rrn

2008-04-01 Por tema Raul Bascones
delete from Nombre_Tabla where rrn(Nombre_Tabla) between RRNInicial and RRNFinal El día 1/04/08, Jaime Villa Torres <[EMAIL PROTECTED]> escribió: > > Señores, una ayuda, tengo un RRN inicial y un RRN final, y requiero > borrar los registros comprendidos entre estos dos rrn, por medio de una >