Foro de Cobol
Registrate en el Foro de Cobol y Aporta tus experiencias y conocimientos sobre este lenguaje de programacion, con tu ayuda el foro crecera y todos nos podremos beneficiar de los conocimientos de los demas.

Gracias por entrar a COBOLEROS.ES
Síguenos en Twitter

FICHERO VSAM DINAMICO

Ver el tema anterior Ver el tema siguiente Ir abajo

FICHERO VSAM DINAMICO

Mensaje por Coboler@ el Miér Abr 06, 2011 2:26 am

SELECT FICHERO3 ASSIGN TO FICHERO3
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS CLAVE3
FILE STATUS IS CHK3.

FD FICHERO3.
01 REGISTRO3.
05 PIC 9(?).
05 CLAVE3 PIC X(?).

- APERTURA DEL FICHERO VSAM

OPEN INPUT FICHERO3.
OPEN I-O FICHERO3.

- START DEL FICHERO VSAM

MOVE DATOS TO CLAVE3
START FICHERO3 KEY IS <CONDICION> CLAVE3
INVALID KEY
IF CHK3 = CODIGO
<PROCESO> O <ERROR>
ELSE
<PROCESO> O <ERROR>
END-IF
NOT INVALID KEY
IF CHK3 = 00
<PROCESO>
ELSE
<ERROR>
END-IF
END-START

- LECTURA DEL FICHERO VSAM DE MANERA SECUENCIAL VOLCANDO EN UNA VARIABLE

READ FICHERO3 NEXT INTO VARIABLE
AT END
FIN-FICHERO
NOT AT END
IF CHK3 = 00
<PROCESO>
ELSE
<ERROR>
END-IF
END-READ.

- LECTURA DEL FICHERO VSAM DE MANERA SECUENCIAL VOLCANDO EN EL REGISTRO DEFINIDO EN EL FICHERO

READ FICHERO3 NEXT
AT END
FIN-FICHERO
NOT AT END
IF CHK3 = 00
<PROCESO>
ELSE
<ERROR>
END-IF
END-READ.

- LECTURA DEL FICHERO VSAM DE MANERA DINAMICA VOLCANDO EN UNA VARIABLE

MOVE DATOS TO CLAVE3
READ FICHERO3
INVALID KEY
IF CHK3 = CODIGO
<PROCESO> O <ERROR>
ELSE
<PROCESO> O <ERROR>
END-IF
NOT INVALID KEY
IF CHK3 = 00
<PROCESO>
ELSE
<ERROR>
END-IF
END-READ.

- LECTURA DEL VSAM DINAMICA VOLCANDO EN UNA VARIABLE

MOVE DATOS TO CLAVE3
READ FICHERO3 INTO VARIABLE
INVALID KEY
IF CHK3 = CODIGO
<PROCESO> O <ERROR>
ELSE
<PROCESO> O <ERROR>
END-IF
NOT INVALID KEY
IF CHK3 = 00
<PROCESO>
ELSE
<ERROR>
END-IF
END-READ.

- ESCRITURA DEL FICHERO VSAM

WRITE REGISTRO3 FROM VARIABLE

- REESCRITURA DEL FICHERO VSAM

REWRITE REGISTRO3 FROM VARIABLE

- BORRADO DEL FICHERO VSAM

DELETE FICHERO3

- CERRADO DEL FICHERO VSAM

CLOSE FICHERO3.



avatar
Coboler@
Admin

Mensajes : 215
Reputación : 19
Fecha de inscripción : 02/02/2011
Edad : 37
Localización : Madrid

Ver perfil de usuario http://www.coboleros.es

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.