Nuestro primer fichero físico

¿Dónde se guardan los datos? En los ficheros físicos. Normalmente definiremos la estructura del fichero o DDS (Data Description Especification) la ubicaremos en el miembro QDDSSRC, mientras que el fichero físico estará compilado en la librería.

Pongamos como ejemplo un registro típico de empleado:

Para más información sobre las DDS en este enlace.

Las columnas que definen la DDS son:
Dec.

Tipo de Form.

Tipo de nombre

Nombre

Ref.

Long.

Tipo de Datos

Pos.

Funciones

En la primera línea encontramos la definición del nombre del fichero diferenciada por el tipo de nombre R, en nuestro caso EMPREC (empleado-registro).
En las última línea encontramos la definición de las claves por el tipo de nombre K, en nuestro caso solo tenemos una, que será el campo ENUM.
Entre el nombre de registro y las claves tendremos los campos del fichero.

En los campos tendremos:

A*****************************************************************
A* DESCRIPCIÓN: Estas son las DDS del archivo físico EMPREC. *
A* Contiene un formato de registro llamado EMPREC. *
A* Este archivo contiene un registro para cada *
A* de la empresa. *
A*****************************************************************
A*
A	R	EMPREC
A		ENUM		5		0	TEXT('NÚMERO DE EMPLEADO')
A		ENAME		20			TEXT('NOMBRE DE EMPLEADO')
A		ETYPE		1			TEXT('TIPO DE EMPLEADO')
A		EDEPT		3		0	TEXT('DEPARTAMENTO DE EMPLEADO')
A		ENHRS		3		1	TEXT('HRS SEMAN. NORMALES DE EMPLEADO')
A	K	ENUM

• Tipo de Form. : "A"
• Tipo de nombre : vacío
• Nombre : corresponde al nombre del campo
• Ref.: vacío
• Long. : Longitud del campo
• Tipo de Datos : ver más adelante
• Pos.Dec. : Posición/Decimales
• Funciones : dependerá de la situación.

Tipos de datos: En esta columna se pueden determinar los siguientes tipos de datos

• P - Decimal empaquetado
• S – Decimal por zona
• B – Binario
• F – Punto flotante
• A – Carácter

Para intrudir la DDS tan sencillo como ejecutar el SEU:
STRSEU SRCFILE(MYLIB/QDDSSRC) SCRMBR(Nombre_Fichero) TYPE(PF) TEXT('Registro empleado').
Como no nos cabe todo en una sola línea escribiremos STRSEU y pulsaremos F4, llenaremos los diferentes campos con los datos que deseamos:

 Inmediatamente disponemos del SEU para introducir la definición del fichero:

Para compilar el fichero físico tan solo ejecutaremos el comando:
CRTPF FILE(MYLIB/Nombre_Fichero) SRCFILE(MYLIB/QDDSSRC) SIZE(*NOMAX)

Ya tenemos nuestro primer fichero físico!!!!