baja - TEC-Digital

More documents

Recommendations

Info

$Edición de textos científicos con LaTeX - TEC Digital - Tecnológico ...$

I.C. RENE EDMUNDO CUEVAS VALENCIA. usando el comando READ. El acceso secuencial puede ser posicionado por el COMANDO START. Si el archivo tiene MODO DE ACCESO SECUENCIAL, entonces el siguiente formato del COMANDO READ se utiliza: READ nombre-arch RECORD [INTO identificador] AT END instrucción-imperativa. Un ciclo a través de esta instrucción accesara los registros en orden según su localidad física. Al igual que el WRITE secuencial de un archivo relativo, el elemento de datos asociado ala frase RELATIVE KEY recibirá el valor de una dirección relativa del registro del archivo a medida que se lee. La condición AT END sucede cuando se encuentra al fin de archivo. El comando START puede utilizarse para posicionar las lecturas secuénciales subsecuentes. El formato del verbo START es el siguiente: EQUAL TO = START nombre-arch [KEY IS GREATER THAN nombre-dato] > NOT LESS THA NOT < [INVALID KEY instruccion-imperativa] El posicionamiento se realiza de tal forma que la dirección relativa (del siguiente registro a se acezado por el READ) produzca la relación especificad hacia el elemento asociado a la frase RELATIVE KEY (declarada en la FILE CONTROL). El nombre dato especificado en la instrucción START debe ser el mismo que el nombre del elemento asociado a la frase RELATIVE KEY para el archivo, Si la frase KEY del comando START se omite, se asume la relación =. La condición INVALID KEY sucede Si: 1. No existe registro con esta dirección relativa (para la relación =). 2. No existe registro en ninguna posición mayor a la especificada por la llave (para la relación >) 3. No existe registro en la posición especificada por la llave o en ninguna posición mayor (para la relación NOT
I.C. RENE EDMUNDO CUEVAS VALENCIA. objetivo y no un sinónimo. Un ejemplo de la lógica básica para este proceso es el siguiente, donde las mismas entradas de la DIVISION DE AMBIENTE y la DIVISIÓN DE DATOS son utilizadas, como en el segmento anterior de programa, con la dicción de la bandera: 02 B-ENCONTRO PIC X. 88 BUSCANDO VALUE ‘B’. 88 ENCONTRO VALUE ‘Y’. 88 NO- ENCONTRO VALUE ‘N’. MANEJADOR. OPEN INPUT EMP-MSTR ACCEPT NUM-EMPLEADO. PERFORM ENCUENTRA-NUM-EMPL UNTIL NUM-EMPLEADO = ZEROS. CLOSE EMP-MSTR. STOP RUN. ENCUENTRA-NUM-EMPL. PERFORM APLICA-FUNCION-HASH. MOVE ‘B’ TO B-ENCONTO. READ EMP-MSTRO INVALID KEY MOVE ‘N’ TO B-ENCONTRO. PERFORM VERIF-REG UNTIL NO-ENCONTRO OR ENCONTRO. IN NO-ENCONTRO. DISPLAY ‘EMPL’ NUM-EMPL ‘NO ESTA EN EL ARCHIVO’ ELSE DISPLAY REG-EMP ACCEPT NUM-EMPLEADO. VERIFICA-REG IF NUM-EMP = NUM-EMPLEADO MOVE ‘Y’ TO B-ENCONTRO ELSE ADD 1 TO DIRECCIÓN READ REG-EMP INVALID KEY MOVE ‘N’ TO B-ENCONTRO. AOLICA-FUNCION-HASH. Otra vez note que el simple sondeo lineal se utiliza sin encadenamiento de sinónimos. Si un archivo relativo tiene MODO DE SCCESO DINAMICO, entonces puede manejarse la recuperación de registros tanto secuencial como directa (aleatoria). Actualización de un archiva Cuando un archivo de COBOL se actualiza éste debe abrirse para E/S. Entonces los nuevos registros pueden agregarse usando el comando WRITE; los riesgos existentes se pueden remover usando el comando DELETE; los registros pueden modificarse usando el comando REWRITE. Si el archivo tiene MODO DE ACCESO SECUENCIAL, entonces el comando WRITE no podrá usarse. Los registros serán acezados en orden consecutivo. La forma secuencial del formato DELETE es: MATERIAL DE APOYO A LA MATERIA DE ESTRUCTURAS DE DATOS III - 71 -
Page 1 and 2:
I.C. RENE EDMUNDO CUEVAS VALENCIA.
Page 3 and 4:
Page 5 and 6:
Page 7 and 8:
Page 9 and 10:
Page 11 and 12:
Page 13 and 14:
Page 15 and 16:
Page 17 and 18:
Page 19 and 20: I.C. RENE EDMUNDO CUEVAS VALENCIA.
Page 69: I.C. RENE EDMUNDO CUEVAS VALENCIA.
Page 77: I.C. RENE EDMUNDO CUEVAS VALENCIA.
show all

baja - TEC-Digital

Create successful ePaper yourself

Delete template?

Save as template?