Subject: | |
From: | |
Reply To: | Peter Chong Sr. Systems Analyst (MRP/ERP) |
Date: | Fri, 26 Feb 1999 10:16:47 -0800 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Hi, Stefano
This might be stupid answer, but....
Can you download file with FTP or NFT/32 to PC
and Import to MS Access Data base(about 2 gig? Max) with
delimited file then export to Text file and Upload to HP3000 using
FTP or NFT/32 or ODBC/32 with schema editor will write directly
into HP3000.
Or write Quiz with index command like this
acc ABC
; some big file with more than 50000 record
def delrec char*128 = " "
rep summ delrec
set subfile name sdelfile keep
set rep lim 50000
go
:FCOPY FROM=*DELFILE;TO=SDELFILE
; Let say comma is delimiter
; Max character is 128
; Max field is 64 character
; Max number of field is 5
def delInd1 = index(delrec,' , ' )
def field1 char*64 = delrec[1:delind1 - 1]
def delrec2 char*128 = delrec[delind1+1:128 - delind1]
def delind2 = index(delrec2,' , ')
def field2 char*64 = delrec2[1:delind2 -1]
def delrec3 char*128 = delrec2[delind2+1:128 - delind2]
def delind3 = index(delrec3,' , ')
def field3 char*64 = delrec3[1:delind3 -1]
def delrec4 char*128 = delrec3[delind3 +1:128 - delind3]
def delind4 = index(delrec4,' , ')
def field4 char*64 = delrec4[1:delind4 -1]
def delrec5 char*128 = delrec4[delind4 +1:128 - delind4]
def delind5 = index(delrec5,' , ')
def field5 char*64 = delrec5[1:delind5 -1]
.......
set subfile name sfixfile keep
set rep lim 50000
rep summ field1 field2 field3 field4 field5 ....
go
Just my 0.02 $
Peter C. 714.956.9200 x 363
Stefano wrote in message <[log in to unmask]>...
>I have a pipe delimited file that I wish to convert to fix format. This
>file is large and will only get bigger so downloading to speadsheet is
>not an option. Changing the source program is also not an option
>because the program exists on an as400 and no one here knows how to
>tweak it. I would like to use a simple tool like suprtool, but i am not
>sure how to approach it. Any one have any ideas?
|
|
|