loading a database table from a UNIX file

[Former Member]

hi,

Need A program to load a database table from a UNIX file

thnks.

[Former Member]

HI,

report zmjud001 no standard page heading.

tables: z_mver.

parameters: test(60) lower case default '/dir/judit.txt'.

data: begin of unix_intab occurs 100,

field(53),

end of unix_intab.

data: msg(60).

***open the unix file

open dataset test for input in text mode message msg.

if sy-subrc <> 0.

write: / msg.

exit.

endif.

***load the unix file into an internal table

do.

read dataset test into unix_intab.

if sy-subrc ne 0.

exit.

else.

append unix_intab.

endif.

enddo.

close dataset test.

***to process the data. load the database table

loop at unix_intab.

z_mver-mandt = sy-mandt.

z_mver-matnr = unix_intab-field(10).

translate z_mver-matnr to upper case.

z_mver-werks = unix_intab-field+10(4).

translate z_mver-werks to upper case.

z_mver-gjahr = sy-datum(4).

z_mver-perkz = 'M'.

z_mver-mgv01 = unix_intab-field+14(13).

z_mver-mgv02 = unix_intab-field+27(13).

z_mver-mgv03 = unix_intab-field+40(13).

• to check the data on the screen (this is just for checking purpose)

write: / z_mver-mandt, z_mver-matnr, z_mver-werks, z_mver-gjahr,

z_mver-perkz, z_mver-mgv01,

z_mver-mgv02, z_mver-mgv03.

insert z_mver client specified.

*if the data already had been in table z_mver then sy-subrc will not be

*equal with zero. (this can be *interesting for you - (this list is

*not necessary but it maybe useful for you)

if sy-subrc ne 0.

write:/ z_mver-matnr, z_mver-werks.

endif.

endloop.

1. This solution is recommended only if the database table is NOT a standard SAP database table .

Cheers,

Chandra Sekhar.