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 SECUENCIAL

Ver el tema anterior Ver el tema siguiente Ir abajo

FICHERO VSAM SECUENCIAL

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

- DECLARACION DEL FICHERO VSAM

SELECT FICHERO2 ASSIGN TO FICHERO2
ORGANIZATION IS INDEXED
ACCESS MODE IS SEQUENTIAL
RECORD KEY IS CLAVE2
FILE STATUS IS CHK2.

FD FICHERO2.
01 REGISTRO2.
05 PIC X(?).
05 CLAVE2 PIC 9(?).

- APERTURA DEL FICHERO VSAM

OPEN INPUT FICHERO2.
OPEN I-O FICHERO2.

- START DEL FICHERO VSAM

MOVE DATOS TO CLAVE2
START FICHERO2 KEY IS <CONDICION> CLAVE2
INVALID KEY
IF CHK2 = CODIGO
<PROCESO> O <ERROR>
ELSE
<PROCESO> O <ERROR>
END-IF
NOT INVALID KEY
IF CHK2 = 00
<PROCESO>
ELSE
<ERROR>
END-IF
END-START

- LECTURA DEL FICHERO VSAM VOLCANDO EN UNA VARIABLE

READ FICHERO2 INTO VARIABLE
AT END
FIN-FICHERO
NOT AT END
IF CHK2 = 00
<PROCESO>
ELSE
<ERROR>
END-IF
END-READ.

- LECTURA DEL FICHERO VSAM VOLCANDO EN EL REGISTRO DE DEFINICION DEL FICHERO

READ FICHERO2
AT END
FIN-FICHERO
NOT AT END
IF CHK2 = 00
<PROCESO>
ELSE
<ERROR>
END-IF
END-READ.

- ESCRITURA DEL REGISTRO EN EL FICHERO

WRITE REGISTRO2 FROM VARIABLE

- REESCRITURA DEL REGISTRO EN EL FICHERO

REWRITE REGISTRO2 FROM VARIABLE

- BORRADO DEL REGISTRO DEL FICHERO

DELETE FICHERO2

- CERRADO DEL FICHERO VSAM

CLOSE FICHERO2.
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.