Se encontraron 61 coincidencias

por f_caballero
13 Abr 2019, 07:44
Foro: TSO ISPF
Tema: Concatenar librerias SYSPROC con comando ALLOCATE
Respuestas: 3
Vistas: 308

Re: Concatenar librerias SYSPROC con comando ALLOCATE

Hola, prueba el comando ALTLIB, yo lo he usado en algún programa REXX para poder llamar a otros míos también. altlib activate application(clist) dataset(clist.name) uncond quiet Aquí va la URL del manual por si quieres ver más cosillas: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com...
por f_caballero
24 Mar 2019, 10:25
Foro: JCL
Tema: copiar ficheros masivamente
Respuestas: 2
Vistas: 234

Re: copiar ficheros masivamente

¿Puedes codificar una programa REXX o CLIST? Si la respuesta es si, bastaría con que le des la lista variable y establezcas un bucle en el que: - desde el DSN origen compongas el nombre de salida - hagas los ALLOC de SYSUT1 y SYSUT2 (entrada y salida) - llamas, dentro del REXX, al programa ICEGENER ...
por f_caballero
09 Mar 2019, 06:54
Foro: JCL
Tema: Renombrar fichero con fecha
Respuestas: 8
Vistas: 421

Re: Renombrar fichero con fecha

Puedes hacerlo "con un JCL" teniendo siempre en cuenta que el JCL se limita a invocar programas. Los programas a utilizar serían: 1) un SORT que leyera el fichero y generase un segundo fichero de salida con las instrucciones del RENAME para el segundo programa. 2) El segundo programa sería un IDCAMS...
por f_caballero
21 Nov 2018, 08:58
Foro: Sistema operativo
Tema: Copiar nombre de fichero con campo variable para tenerlo como literal
Respuestas: 2
Vistas: 662

Re: Copiar nombre de fichero con campo variable para tenerlo como literal

Hola, no se si contesto muy tarde, tengo unas preguntas para intentar ver cómo solucionalrlo: ¿Dónde quieres guardar ese nombre de fichero? ¿De qué tipo de variable para la fecha estamos tratando? ¿Es una variable del planificador (CTM, TWS u otro)? ¿Es una variable del sistema? ¿O se trata de una v...
por f_caballero
23 Sep 2018, 07:32
Foro: DB2 y otras bases de datos
Tema: Comparar mismo campo de dos registros distintos
Respuestas: 1
Vistas: 495

Re: Comparar mismo campo de dos registros distintos

Hola, puedes probar este join. Según las especificaciones que proporcionas. Es probable que haya otros formatos de query "más modernos" y de mejor rendimiento, pero básicamente sería esto. SELECT A.CONTRATO, A.OPER, A,IMPORTE, B,OPER, B.IMPORTE FROM TABLA A, TABLA B WHERE A.OPER = 'A217' AND B.CONTR...
por f_caballero
30 Jun 2018, 13:35
Foro: Cobol
Tema: Realizar redondeo (Rounded) siempre hacia arriba
Respuestas: 2
Vistas: 1203

Re: Realizar redondeo (Rounded) siempre hacia arriba

Prueba esto: 01 campo1 pic 9(5)v92 value 125,01. 01 campo2 pic 9(5). ADD 0,99 TO CAMPO1 GIVING CAMPO2. Esto debería devolverte 126 en CAMPO2. Puede que el COBOL no esté escrito correctamente, hace tiempo que no lo uso, revisa la sintaxis de la instrucción ADD. La idea es que dá igual el valor de la ...
por f_caballero
07 Abr 2018, 14:11
Foro: Cobol
Tema: CONVERTIR UN ENTERO A DECIMAL DE ACUERDO A UN INDICADOR
Respuestas: 4
Vistas: 1850

Re: CONVERTIR UN ENTERO A DECIMAL DE ACUERDO A UN INDICADOR

Hola, no sería correcto dividir el número entre dígito multiplicado por 10, habrá que dividirlo entre 10 ELEVADO A dígito.
De esta forma hacemos la división entre 1 seguido de tantos ceros como se indica en la potencia.
601234567 ==> 01234567 / 1000000 = 01,234567
Espero que sirva.
por f_caballero
28 Sep 2017, 03:45
Foro: REXX
Tema: Ayuda ejercicio
Respuestas: 5
Vistas: 2875

Re: Ayuda ejercicio

Hola, dos cosas a corregir:
1) No me llamo Francisco.
2) En el PARSE te falta la variable de origen de los datos: PARSE VAR origen DEST1 DEST2 .
"origen" sería el elemento del stem e proceso: registro.I
por f_caballero
22 Sep 2017, 10:41
Foro: REXX
Tema: Ayuda ejercicio
Respuestas: 5
Vistas: 2875

Re: Ayuda ejercicio

Hola, si los registros son como parece, con los campos separados por blancos, puedes: 1) Utilizar la función WORD variable = WORD(registro,numero de la palabra que busco) ó 2) Utilizar el PARSE VAR para cargar las variables que necesites. PARSE VAR registro palabra1 palabra2 . (el punto descarta el ...
por f_caballero
06 Ago 2017, 07:47
Foro: REXX
Tema: Programa REXX (condicion reverse)
Respuestas: 2
Vistas: 1943

Re: Programa REXX (condicion reverse)

Hola, no parece que el problema esté en el DO. Yo he probado con esto y funciona: /* REXX */ lines.1 = "ABCDEFG" LINES.0 = 1 DO I=1 TO LINES.0 SAY I"."STRIP(LINES.I)"-"REVERSE(STRIP(LINES.I)) END La salida me muestra esto: 1.ABCDEFG-GFEDCBA ¿Cómo es de grande la longitud del registro del fichero? ¿E...
por f_caballero
08 Jul 2017, 08:43
Foro: REXX
Tema: Crear archivos y luego realizar un write
Respuestas: 3
Vistas: 2011

Re: Crear archivos y luego realizar un write

Hola, a mi me parece que estás leyendo el fichero en vez de escribirlo.
DISKR es READ
DISKW es WRITE
REGISTRO. = "ESCRIBO UN REGISTRO ATR EN EL ARCHIVO"
"ALLOC F(SAL) DSNAME("NAMEFILE") MOD REUSE"
ADDRESS TSO "EXECIO * DISKR SAL(STEM REGISTRO. FINIS"
"FREE FI(SAL)"
por f_caballero
03 Jun 2017, 08:56
Foro: DB2 y otras bases de datos
Tema: QUERY CONSULTAR LAS TABLAS RELACIONADAS
Respuestas: 1
Vistas: 1262

Re: QUERY CONSULTAR LAS TABLAS RELACIONADAS

No se si será una errata, pero por si acaso. En vez de TBNAME = "VE%" has de poner TBNAME LIKE "VE%".
Entiendo que buscas tablas que empiezan por VE (que es lo que significa LIKE "VE%") y no tablas que se llaman VE% (que es lo que significa = "VE%" )
Suerte.
por f_caballero
03 Ago 2014, 09:56
Foro: Productos de software
Tema: Filtrar campos en el File Manager
Respuestas: 1
Vistas: 2047

Re: Filtrar campos en el File Manager

Hola, yo recuerdo haber usado esta utilidad incluyendo codigo REXX para seleccionar y formatear rgistros. Te incluyo la dirección de la página del manual, cuyo capítulo 5 creo que es el que más te puede ayudar. Suerte. http://publibfp.dhe.ibm.com/epubs/pdf/fmnu1m00.pdf Chapter 5. Filtering records w...
por f_caballero
03 Ago 2013, 09:03
Foro: JCL
Tema: SORT CON FORMATEO
Respuestas: 7
Vistas: 5149

Re: SORT CON FORMATEO

Hola, puedes probar esto: Preguntar por el contenido del último byte considerando la longitud que sería la correcta y rellenar por la izquierda. Por ejemplo, si el registro tuviera que terminar en la posición 47 suponiendo siete dígitos en la última cantidad OUTREC IFTHEN=(WHEN=(47,1,CH,NE,C' '),BUI...
por f_caballero
09 Mar 2013, 11:03
Foro: Cobol
Tema: Acerca de LINKAGE SECTION
Respuestas: 1
Vistas: 1900

Re: Acerca de LINKAGE SECTION

Simplemente ponlo así:


LINKAGE SECTION.
COPY REGISTRO.

Si la COPY ya incluye un nivel 01, no debes especificarlo en el programa.

Efectivamente, DFHEIBLK y DFHCOMMAREA las incluye el traductor de CICS "de oficio".


Saludos.