RE: Restoring a .txt file

1)  Read the IFS file using Scott's IFS api examples.  Convert the field 
using any number of RPG bifs.  Wrap the bif in a MONITOR statement if 
desired.

2)  Convert the IFS file to a flat file.  Parse the string and convert the 
field using any number of RPG bifs.  Wrap the bif in a MONITOR statement 
if desired.

3)  squeal like a pig...
contents of rob/myfile.txt
....+....1....+....2....+
 ************Beginning of
  17.25Long Black Train 
 ************End of Data*

CRTPF FILE(ROB/MYTEXT) RCDLEN(80)
CPYFRMSTMF FROMSTMF('/ROB/MYFILE.TXT') 
TOMBR('/QSYS.LIB/ROB.LIB/MYTEXT.FILE/MYTEXT.MBR') MBROPT(*REPLACE)
CREATE TABLE ROB/MYPRELIM
 (TEXTAMOUNT  CHAR (7 ), 
  DESCRIPTION CHAR (73)) 
CPYF FROMFILE(ROB/MYTEXT) TOFILE(ROB/MYPRELIM) MBROPT(*REPLACE) 
FMTOPT(*NOCHK)
CREATE VIEW ROB/MYFILEVIEW (AMOUNT, DESCRIPTION)
  AS SELECT CAST(TEXTAMOUNT AS DEC(7,2)), 
            DESCRIPTION 
  FROM ROB/MYPRELIM 
SELECT * FROM ROB/MYFILEVIEW 
....+....1....+....2....+....3.
   AMOUNT   DESCRIPTION 
    17.25   Long Black Train 
********  End of data  ********

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Angela Wawrzaszek" <awawrzaszek@xxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
02/09/2005 01:06 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
cc

Subject
RE: Restoring a .txt file






Doing that though how do I convert the character representations of the
numbers to actual numbers?   Do I have to parse out each position
looking for numbers,  decimals and blanks?


Ie.  Of how .txt file looks once copied to a flat file:

LI361505085      AS          EE11  17.000       .000        .000
.000         20021007    0 
 
 
Actual specs of 'real' file are

ID       2    A 
Item#    5    A
Lot#    10    A ( blank on many of the records)
Loc      6    A
OpenBal  11 3 P
Issue    11 3 P
Receipts 11 3 P
Adjust   11 3 P
Date      8 0 P
Extra     1   A 

 

Angela Wawrzaszek
IT Supervisor
awawrzaszek@xxxxxxxxxxxxxxx
(315) 258-4205

-----Original Message-----
From: Booth Martin [mailto:booth@xxxxxxxxxxxx] 
Sent: Wednesday, February 09, 2005 12:52 PM
To: Midrange Systems Technical Discussion
Subject: Re: Restoring a .txt file

Have you considered defining the text file as a program-described file,
and
defining the fields in the I-specs of a small RPG program? 

 

---------------------------------

Booth Martin

http://www.martinvt.com

---------------------------------

-------Original Message-------

 

From: Midrange Systems Technical Discussion

Date: 02/09/05 11:41:28

To: Midrange Systems Technical Discussion

Subject: Restoring a .txt file

 

   Help!

 

 

 

    I have a .txt file that was saved from an as/400 inventory file.  It

was saved as a fixed format file.   I now want to bring that .txt file

back to the as400 to run queries on it.   However since it was fixed

there is not comma delimiters etc.   So I copied it back to a flat file

on the as400 and then tried using the cpyfrmimpf command to copy it back

into its regular format.   The problem occurs because there is numeric

data in the file.  Therefore the copy crashes because I am trying to

copy  17.00  - which is beign treated as a character field to a numberic

field.

 

 

 

The command used to copy the data to the .txt file was:

 

 

 

 

 

CPYTOIMPF  FROMFILE(Mylib/MyFile) +

 

             TOSTMF('home/yearend/yearend2004/MyFile.t +

 

             xt') MBROPT(*REPLACE) +

 

             STMFCODPAG(*PCASCII) RCDDLM(*CRLF) +

 

             DTAFMT(*FIXED) STRDLM(*NONE)

 

 

 

 

 

Can anyone help me to restore this to its original data formats?

 

 

 

Thanks!

 

 

 

 

 

 

 

Angela Wawrzaszek

 

IT Supervisor

 

awawrzaszek@xxxxxxxxxxxxxxx

 

(315) 258-4205

 

 

 

--

This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx

To subscribe, unsubscribe, or change list options,

visit: http://lists.midrange.com/mailman/listinfo/midrange-l

or email: MIDRANGE-L-request@xxxxxxxxxxxx

Before posting, please take a moment to review the archives

at http://archive.midrange.com/midrange-l.

 

 

.
-- 
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.




-- 
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.