cobol

CALCULO DE CILINDROS

Un disco 3390 tiene las siguientes características:
15 TRACK por CYLINDER
3,300 CYLINDER por UNIT
49,500 TRACK por UNIT

56,664 Bytes por TRACK
849,960 Bytes porCYLINDER
42,073,020,000 Bytes por UNIT


CALCULO DE ESPACIO

EN DISCO:
Para calcular el espacio en cilindros, favor de seguir los siguientes pasos:
1.- Calculo en bytes para el caso de archivossecuenciales.
ESPACIO = (TAMAÑO DEL REGISTRO) X (EL NUMERO TOTAL DE REGISTROS)
+ 20 % DE ESPACIO LIBRE POR CRECIMIENTO.

2.- Conversión a tracks.
TRACKS = ESPACIO TOTAL DEL ARCHIVO EN BYTES/ 56664
(1 TRACK = 56664 BYTES)

3.- Conversión a cilindros.
CYLS = NUMERO DE TRACKS / 15
(1 CYL = 15 TRACKS)

EJEMPLOS:
Se requiere calcular el espacio de un archivo que va a tener1,233,500 registros con longitud de 247 bytes.
1.- ESPACIO = 247 x 1233500 = 304,674,500 BYTES + 60,934,900 (20%) = 365,609,400 BYTES
2.- TRACKS = 365,609,400 / 56,664 = 6,452.234 TRACKS
3.- CYL =6,452.234 / 15 = 430.15 CYL
Por lo anterior el espacio de este archivo se codifica SPACE=(CYL,(450,225),RLSE)
Y su definición completa es:
//SALIDA DD DSN=XXXX.AP.FIX.XXXXX.XXXX,
//DISP=(NEW,CATLG,DELETE),
// UNIT=3390,
// SPACE=(CYL,(450,225),RLSE),
// DCB=(RECFM=FB,LRECL=247,BLKSIZE=0,DSORG=PS)


Serequiere calcular el espacio de un archivo que va a tener 23 registros con longitud de 80 bytes.
1.- ESPACIO = 80 x 23 = 1,840 BYTES + 368 (20%) = 2,208 BYTES
2.- TRACKS = 2,208 / 56,664 =0.03896 TRACKS
3.- CYL = 0.03896 / 15 = 0.0026 CYL
Como el espacio mínimo en producción es 1 CYL, en casos como este se recomienda codificar el siguiente espacio: SPACE=(CYL,(2,1),RLSE) para respetarla regla que el espacio primario siempre sea el doble del secundario.
Y su definición completa es:
//SALIDA DD DSN=XXXX.AP.FIX.XXXXX.XXXX,
// DISP=(NEW,CATLG,DELETE),
//...