Can anyone help out with this ???

Question

DATA: Begin of zitab1 occurs 0,
fld_str(822) type c,
end of zitab1.
DATA : zitab2 like table of zitab1 with header line.
DATA : zitab3 like table of Zitab1 with header line.
DATA : Zitab4 like table of zitab1 with header line.
DATA : Zitab5 like table of zitab1 with header line.
when data is fetched into all the internal tables namely zitab1,zitab2 ,zitab3,zitab4 and zitab5 the following code is to be executed so that whole data is sequentially fed into a single internal table which is then moved onto a function module which encrypts the file.
Insert lines of ZITAB1 into ZITAB2 index 1.
Insert lines of ZITAB2 into ZITAB3 index 1.
Insert lines of Zitab3 into Zitab4 index 1.
Insert lines of Zitab4 into Zitab5 index 1.
The filed length for zitab1 is 33.
The filed length for zitab2 is 77.
The filed length for zitab3 is 822.
The filed length for zitab4 is 217.
The filed length for zitab5 is 26.
The data in the encrypted file should be such that the first record should end at 33 for data from zitab1.(no matter how much data is in it), the data for second record should end at 77 for data from zitab2 ( no matter how mcuh data is in it ) and subsequently the same for zitab3 ,zitab4 and zitab5.
The data should come in this format:( I can have number of lines in case of zitab3 and zitab4 but a single line for zitab1,zitab2 and zitab5)
H639403 (field should be 30 characters)
Pgfdfhk hsdfwfw shrwhvs (field should be 77 characters)
Imnssgbvkvsjkbgvsjj ( field should be 822 characters )
hfasfhwj jsdvhjdfsg jkafgsees ( field should be 822 characters )
Afhgshfsk fjdghdf jfvbdf ( field should be 217 characters )
cfahagc hjfgsd jhfgwsf ( field should be 217 characters )
Tbdsfhsdgf ( field should be 26 characters )

Answer 1

Hi,
Try like this way:
Here i have one internal table ls_r3objects it contain only one field with 1536 char lengh, and another internal table ls_r3swtocks it contain several fields.  I moved data from one internal table to another table.  You can use this method in your program:
move ls_r3objects+0(1) to ls_r3stocks-METHOD.
move ls_r3objects+1(40) to ls_r3stocks-EXT_MATNR.
move ls_r3objects+41(20) to ls_r3stocks-EXT_LOCNO.
move ls_r3objects+61(4) to ls_r3stocks-LOCTYPE.
move ls_r3objects+65(4) to ls_r3stocks-STORAGELOC.
move ls_r3objects+69(10) to ls_r3stocks-BATCH.
move ls_r3objects+79(2) to ls_r3stocks-ATPCAT.
move ls_r3objects+81(1) to ls_r3stocks-SOBKZ.
move ls_r3objects+82(16) to ls_r3stocks-SSKEY.
move ls_r3objects+98(1) to ls_r3stocks-STOCKTYPE.
move ls_r3objects+99(13) to ls_r3stocks-QUANTITY.
move ls_r3objects+112(20) to ls_r3stocks-ADD_LOCNO.
move ls_r3objects+132(3) to ls_r3stocks-UNITOFMEAS.
move ls_r3objects+135(40) to ls_r3stocks-SSEXT.
move ls_r3objects+175(10) to ls_r3stocks-LOGSYSK.
append ls_r3stocks to lt_r3stocks.
Regards,
Bhaskar