HP3000-L Archives

February 1999, Week 4

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Peter Chong Sr. Systems Analyst (MRP/ERP)" <[log in to unmask]>
Reply To:
Peter Chong Sr. Systems Analyst (MRP/ERP)
Date:
Fri, 26 Feb 1999 10:16:47 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (57 lines)
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?

ATOM RSS1 RSS2