RE: Tilde delimited fields in a PC file - how to upload & convert fields to AS/400 physical file

Thanks for all the help everyone.  I was hoping to not have to re-invent the wheel here.  We seem to have some success with Client/Access spliting up the fields for us, and are also playing with CPYFRMIMPF.

Thanks again!

-----Original Message-----
From: boothm@earth.Goddard.edu [mailto:boothm@earth.Goddard.edu]
Sent: Tuesday, February 08, 2000 7:48 PM
To: MIDRANGE-L@midrange.com
Subject: Re: Tilde delimited fields in a PC file - how to upload &
convert fields to AS/400 physical file

Did you find a solution?  Here's my shot at it:

     C                   Z-add     1             I                 3 0
     C                   Z-add     1             J                 3 0
     C     '~'           scan      LongFld2,I    J
     C                   Eval      Field1 = %SUBST(LongFld2:I:(J-1))
     C                   Eval      I=J
     C     '~'           scan      LongFld2,I    J
     C                   Eval      Field3 = %SUBST(LongFld2:I:(J-1))
     C                   Eval      I=J
     C     '~'           scan      LongFld2,I    J
     C                   Eval      Field4 = %SUBST(LongFld2:I:(J-1))
     C                   Eval      I=J
     C     '~'           scan      LongFld2,I    J
     C                   Eval      Field5 = %SUBST(LongFld2:I:(J-1))
     C                   Eval      I=J

etc.... until done.

I didn't do this sample but it, or something near to it, should work
shouldn't it?

_______________________
Booth Martin
boothm@earth.goddard.edu
http://www.spy.net/~booth
_______________________

"Peter Dow" <pcdow@yahoo.com>
Sent by: owner-midrange-l@midrange.com
02/08/2000 03:04 PM
Please respond to MIDRANGE-L

 
        To:     <MIDRANGE-L@midrange.com>
        cc:
        Subject:        Re: Tilde delimited fields in a PC file - how to upload & convert fields
to AS/400 physical file

----- Original Message -----
From: Stone, Joel
To: 'MIDRANGE-L@midrange.com'
Sent: Monday, February 07, 2000 8:05 AM
Subject: Tilde delimited fields in a PC file - how to upload & convert fields to
AS/400 physical file

An example record:
40354~KMART STORE# 37~3665 HWY
6~~DALLAS~TX~77478~~~~~713-980-8888~~~4362~~100~3~0~0~~0~
Are there any utilities to split a file with records as shown above into
an AS/400 PF?  I would like the tilde's gone, where each tilde acts as the
delimiter to begin a new field.
Can Client/Access do this job by itself?
What other options to I have.  Does anyone know of a magazine article with
a free utility program?  Other options?
Must I build the DDS by hand?  I have a listing of field names and
lengths.
The data is from a query tool on a Unix box.
Thanks!

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---