Re: Tilde delimited fields in a PC file - how to upload & convert fields toAS/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
+---