Buscar en este blog

Cargando...

martes, 16 de agosto de 2016

Oferta de empleo: programador cobol

Saludos coboleros!

Desde la empresa SERRA JULIA, S.L. nos hacen llegar esta oferta, en la que buscan un programador cobol para mantenimiento de su software de facturación y gestión.

La empresa está situada en Cabrera de Mar, Barcelona.

Si estás interesado, puedes contactar con ellos en info[arroba]serrajulia[punto]com

Suerte!

lunes, 8 de agosto de 2016

JFY: alinear campos en JCL

Una opción que podemos utilizar tanto con OUTREC como con INREC es la de "justificar" a izquierda o derecha con JFY.

Os dejo a continuación un ejemplo de OUTREC para fichero de longitud fija FB y de longitud variable VB.

FICHERO DE ENTRADA:

+----1----+----2----+----3----+----4----+----5-
***************************** Top of Data *****

2015-01-01DATOS VARIABLES     T 20
FFFF6FF6FFCCEDE4ECDCCCDCE44444E4FF4444444444444 20150010014136205199123520000030200000000000000 -----------------------------------------------

2015-01-01DATOS VARIABLES LARGO   40 FFFF6FF6FFCCEDE4ECDCCCDCE4DCDCD444FF44444444444 20150010014136205199123520319760004000000000000 -----------------------------------------------
2015-01-01DATOS VARIABLES MAS L        45              
FFFF6FF6FFCCEDE4ECDCCCDCE4DCE4D44444444FF444444 20150010014136205199123520412030000000045000000 -----------------------------------------------

2015-01-01DATOS VARIABLES LARGO              51
FFFF6FF6FFCCEDE4ECDCCCDCE4DCDCD44444444444444FF
20150010014136205199123520319760000000000000051
-----------------------------------------------
 


Si os fijáis, de la posición 36 a la 51 tenemos un campo con diferente número de espacios a la izquierda del dato que nos interesa.

lunes, 11 de julio de 2016

Calcular pistas (TRK) y cilindros (CYL)

Este es un artículo enviado por la compañera SonAle Lg que habréis visto comentar en el blog alguna vez.
Esperamos verla publicando a menudo a partir de ahora :-)
 
Muchas veces nos preguntamos como coboleros, ¿Cómo especificar el tamaño que tendrá un archivo, dependiendo de la cantidad de datos a procesar?
Primero, nótese que ocupamos el concepto de "posiciones" lo cual para nosotros es un equivalente a "bytes".
Segunda, te mostraremos donde se especifica lo del tamaño que se va a calcular, dentro del JCL como se muestra a continuación en este ejemplo:

//******************************************************
//******************** BORRADO *************************
//BORRADO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
  DEL FICHERO.DE.SALIDA
  SET MAXCC = 0
//******************************************************
//*********** EJECUCION DEL PROGRAMA PRUEBA3 ***********
//P001 EXEC PGM=PRUEBA7
//SYSOUT DD SYSOUT=*
//ENTRADA DD DSN=FICHERO.DE.ENTRADA,DISP=SHR
//SALIDA DD DSN=FICHERO.DE.SALIDA,
//      DISP=(NEW,CATLG,DELETE),SPACE=(TRK,(50,10)),
//      DCB=(RECFM=FB,LRECL=107,BLKSIZE=0)
/*

Sin más preámbulos, comencemos. Primeramente que nada tendremos que guiarnos por lo siguiente:
1 Track = 48 KB
1 Cylinder = 720 KB
1 Cylinder = 15 Tracks

miércoles, 22 de junio de 2016

Sort vol.2.3: OUTREC. Ficheros VB

Para aquellos que trabajéis con ficheros de longitud variable VB os traigo un ejemplo de como hacer un OUTREC.

Hay que tener en cuenta que en los ficheros de longitud variable las 4 primeras posiciones contienen la longitud de cada registro.
Así como a la hora de contar posiciones para posicionarnos en un campo empezamos por la 5, al hacer el outrec la información de las 4 primeras posiciones también hay que llevársela al fichero de salida.

Por otro lado, en un fichero VB habrá registros que no lleguen a ocupar la longitud máxima, por lo que si no indicamos qué hacer, el SORT dará error al no saber cómo rellenar o ignorar esas posiciones.

En el manual de DFSORT de IBM nos indican como solucionar los casos en que tenemos registros con diferentes longitudes (es decir, no todos los registros del fichero tienen la longitud máxima):
"If a variable-length record was too short to contain all INREC, OUTREC, or OUTFIL fields, use an INREC or OUTREC statement with operands OVERLAY or IFTHEN as appropriate, or an OUTFIL statement with operands OVERLAY, IFTHEN, or BUILD and VLFILL=C 'x' or VLFILL=X 'yy' as appropriate, to prevent DFSORT from terminating"

En nuestro ejemplo vamos a usar un OUTREC con OVERLAY.

lunes, 11 de mayo de 2015

Equipos económicos con GNU COBOL

Hace unos días compartíamos en facebook el artículo de LinuxCasual sobre el nuevo open cobol: GNU COBOL.

Ahora, estos compañeros han puesto a la venta varios equipos informáticos de segunda mano a muy buen precio y, durante esta semana, para los lectores de Consultorio Cobol traen regalo:
  • 10 euros de descuento
  • 1 tarjeta de red gigabit ethernet adicional (sujeto a existencias)
  • mysql server, mysql workbench, GNU Cobol y Open Cobol IDE instalados (solo si el sistema operativo es Debian 8.0 o similar)

Os dejo a continuación las características completas de estos equipos. Para pedidos y más información podéis contactar con www.sixfinger.net en sixfinger.net[arroba]gmail[punto]com

Los ordenadores son DELL de sobremesa de segunda mano, con:

Procesador Intel Core 2 Duo
4 GB de RAM
80 GB de disco (tipo A)
160 GB de disco duro (tipo B) con controladora RAID
Tarjeta de red Intel ethernet 10/100
Pantalla de 19 pulgadas (tipo A)
Pantalla de 20 pulgadas (tipo B)
Teclado y ratón.
Sistema operativo: Debian GNU Linux 8.0 LXDE (consultar otras opciones)

Los de tipo A se venden a 160 euros y los de tipo B a 175 euros.

Atienden peticiones de instalación de software adicional en caso necesario. Piraterías abstenerse.
Los precios no incluyen impuestos y corresponden a entrega en Torrejón de Ardoz (Madrid) en horario comercial.
Las recogidas en Torrejón se pueden pagar con tarjeta o en efectivo. El resto por transferencia bancaria a ING DIRECT.
Con un pequeño sobrecoste adicional, enviamos a toda la península. Baleares y Canarias consultar.


No perdáis esta oportunidad!