Se encontraron 56 coincidencias

por f_caballero
30 Jun 2018, 13:35
Foro: Cobol
Tema: Realizar redondeo (Rounded) siempre hacia arriba
Respuestas: 2
Vistas: 123

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: 503

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: 1337

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: 1337

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: 1039

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: 1079

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: 678

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: 1448

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: 3656

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: 1359

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.
por f_caballero
26 Ene 2013, 16:28
Foro: DB2 y otras bases de datos
Tema: Planes DB2 en JCLs
Respuestas: 2
Vistas: 2115

Re: Planes DB2 en JCLs

Hola, el plan DB2 es un componente que se genera antes de ejecutar los programas, suele ir incluido o ligado a los procesos de compilación. Dentro de los planes DB2 podemos encontrar aquellos que denominaremos "estáticos", ya prácticamente en desuso y los que podemos llamar "dinámicos". Los Estático...
por f_caballero
10 Nov 2012, 15:20
Foro: CICS Transaction server
Tema: TRANSACCIÓN AUTOEJECUTABLE
Respuestas: 17
Vistas: 6592

Re: TRANSACCIÓN AUTOEJECUTABLE

De todas formas, los administradores del CICS pueden definir la transacción en una clase que sólo permita la existencia de una transacción "en vuelo" y descarte todas aquellas que se puedan quedar esperando a que termine. Aún así, tu programa "arrancador" debe incluir el control de las posibilidades...
por f_caballero
10 Nov 2012, 15:12
Foro: REXX
Tema: ERROR AL EJECUTAR LISTDSI CON UN REXX COMPILADO
Respuestas: 12
Vistas: 4888

Re: ERROR AL EJECUTAR LISTDSI CON UN REXX COMPILADO

Yo utilizo el stub "MULTI" al compilar. Digamos que "prepara" el programa resultante para ser invocado por cualquier vía de las previstas.
Prueba a ver si mejoras así.


Suerte.
por f_caballero
06 Nov 2012, 08:20
Foro: REXX
Tema: ERROR AL EJECUTAR LISTDSI CON UN REXX COMPILADO
Respuestas: 12
Vistas: 4888

Re: ERROR AL EJECUTAR LISTDSI CON UN REXX COMPILADO

Norberto te pregunta lo mismo que iba a preguntar yo ¿qué stub has usado para linkeditar? Puedes ejecutar el fuente directamente, o el compilado sin linkeditar, poniendo la librería que lo contiene como //SYSEXEC en el paso. En cualquier caso, lo primero que hemos de concretar es si estás obteniendo...
por f_caballero
04 Nov 2012, 08:56
Foro: REXX
Tema: ERROR AL EJECUTAR LISTDSI CON UN REXX COMPILADO
Respuestas: 12
Vistas: 4888

Re: ERROR AL EJECUTAR LISTDSI CON UN REXX COMPILADO

Mi respuesta obedece a mi experiencia con un caso similar. Intentaba ejecutar un REXX compilado y linlkeditado y cuando no lo invocaba desde IKJEFT01 recibía retorno de command not found. Entiendo que LISTDSI es un servicio de TSO que va incorporado en IKJEFT01, por eso es necesario invocar a tu pro...