RE: Restoring a .txt file

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

If you've got ILE RPG or ILE C available, it would be relatively simple to 
write a program that reads the text file and populates a DB2 file.

Pseudo-code:

a) fopen file

b) dow fgets() = successful;

c) Load record into a data structure or something of character fields.

d) Convert numeric fields from character useing the %dec() BIF in RPG
      (V5R2 later) or atof() in C or earlier versions of RPG.

e) Write database record

f) end of DOW loop

g) fclose() IFS file.


It's a really simple program -- it'd take me about 20 minutes to write.


On Wed, 9 Feb 2005, Angela Wawrzaszek wrote:

> 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