AS/400 - URGENTE PROBLEMAS ....

BEUNAS TARDE,

Soy completamente nuevo en AS/400, el problema que tengo es que estoy haciendo una aplicación para cargar los datos de un archivo plano que generan en AS/400, y lo tengo que montar a una tabla de acces..

El problema es que no puedo leer los campos que estan empaquetado……

Por favor me pueden ayudar…. Es urgente……

Gracias

janer/

Ya solucionaste el problema ?

slds
Daniel

janer/

Si tenes las as/400, por ahi quiero que ejecutes el siguiente comando:

dspffd biblioteca/archivo

Te va a traer toda la lista de campos del archivo dador de AS/400, con el siguiente formato:
Field Level Information
Data Field Buffer Buffer Field Column
Field Type Length Length Position Usage Heading
ABCWHS CHAR 2 2 1 Both Almacen
Field text . . . . . . . . . . . . . . . : Almacen
Coded Character Set Identifier . . . . . : 37
ABCNUM PACKED 10 0 6 3 Both N°PreArmado
Field text . . . . . . . . . . . . . . . : N°PreArmado
ABCRUT CHAR 10 10 9 Both Ruteo
Field text . . . . . . . . . . . . . . . : Ruteo

Fijate que el segundo campo ABCNUM es --> PACKED, apartir del formato que envies, te ayudo a hacer una dds en AS/400 con los mismos campos pero sin empaquetar. Entonces sólamente tenes que copiar desde el FILEPAC(Archivo con campos empaquetados) a FILENOP (Archivo de campos sin empaquetar) y Ya tenes tu problema solucionado.

LA copia la haces con este comando de as/400.

===> CPYF FROMFILE(BIB/FILEPAC) TOFILE(BIB/FILENOP) MBROPT(*ADD) FMTOPT(*MAP *DROP)

De Ahi en mas trabajas con el archivo filenop, que va a tener los campos soneados y no empaquetados.

slds
Daniel