RE: VAX to AS/400 packed field conversion problem

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Uros

Do the fields in your VAX file have a fixed length? If so, do this:

- You could create another physical file, same as the final destination 
file, with Zoned instead of Packed fields on the 400. The Zoned fields 
should have the same length and precision as the Packed fields. All fields 
need to have the same names in both files.

- FTP the VAX file directly to the physical file, ASC transfer type. New 
member will be added, if MAXMBRS is set for that.

   put  file.vax  /qsys.lib/libname.lib/filename.file/mbrname.mbr

or

   put file.vax libname/filename.mbrname

- CPYF VAXPF 400PF FMTOPT(*MAP)

The FTP works - I just tried it. Simple,

Luck

Vern

At 04:29 PM 1/7/2003 -0500, you wrote:
> Richard,
>
> I believe we could do this, but it still presents a programming/prep
> step in the equation. I actually found a link from '99 about an
> identical problem, and it looks like the solution we have in place
> (convert to signed, then FTP, then back to packed) is closest to the
> easiest (FDF notwithstanding), unless there is new functionality
>
> Thanks anyhow, appreciate the feedback, here is the link to the
> discussion thread, FYI...
>
> http://archive.midrange.com/midrange-l/199903/msg00503.html
>
> Uros
>
> -----Original Message-----
> From: midrange-l-bounces@midrange.com
> [mailto:midrange-l-bounces@midrange.com] On Behalf Of Richard B Baird
> Sent: Tuesday, January 07, 2003 3:16 PM
> To: Midrange Systems Technical Discussion
> Subject: Re: VAX to AS/400 packed field conversion problem
>
>
>
> uros,
>
> can the VAX export a comma delimited ascii file from the original?  if
> so, ftp it to the IFS and I think you can do a CPYFRMIMPF directly to
> your physical file.
>
>
>
> ---original message-----
> Hey gang, trying to transfer files from a VAX system to the 400. We
> currently have a process in place that converts the packed fields on the
> VAX to signed numerics, then we FTP them ASCII and finally, copy from
> the flat file on the 400 to the database on the 400 that contains packed
> fields. Is there a simpler way to do this, I was playing around with the
> *TBL option on the CPYFRMSTMF (trying to copy to IFS as is), and trying
> to research what character set ID I would need to convert to (is VAX
> ascii?), but this does not seem to work?
>
> Any ideas how to simplify?
>
> Thanks,
> Uros