Hola/
Otra Forma de crear los archivos y es la mas usada en as/400, ya que dispones de la base de datos es la siguiente:
Este es un ejemplo de una DDS , archivo base de datos con la descripción de cada campo.
Los campos que se repiten al final son los campos que van a formar parte de la clave del archivo.
Una vez que hayas creado el mismo , tenes que compilarlo con la opcion 14 y F4.
Create Physical File (CRTPF)
Type choices, press Enter.
File . . . . . . . . . . . . . . > ACPCLIPF Name
Library . . . . . . . . . . . > BIBLIOTOBJ Name, *CURLIB
Source file . . . . . . . . . . > QDDSSRC Name
Library . . . . . . . . . . . > BIBLIOTSRC Name, *LIBL, *CURLIB
Source member . . . . . . . . . > ACPCLIPF Name, *FILE
Record length, if no DDS . . . . Number
Generation severity level . . . 20 0-30
Flagging severity level . . . . 0 0-30
File type . . . . . . . . . . . *DATA *DATA, *SRC
Member, if desired . . . . . . . *FILE Name, *FILE, *NONE
Text 'description' . . . . . . . *SRCMBRTXT
espero te sirva .
****************************
A*-------------------------------------------------------------
A UNIQUE
A R RACPCLIP
*
A CLIPER 6 COLHDG('Per-YYYYMM')
A CLITDI 12 COLHDG('Tip.Distrib')
A CLICOP 12 COLHDG('Whs/Suc.')
A CLICUS 12 COLHDG('Cliente Padre')
A CLIARS 10 COLHDG('Moneda/ARS')
A CLIVAL 20S 6 COLHDG('Valor')
*
A K CLIPER
A K CLITDI
A K CLICOP
A K CLICUS
A K CLIARS