Hi all,
Below i have a program where i am trying to put data into application server
Firstly my data is well placed in application server in a well alligned way.
But when i am trying to put the same data placed in application server to another system using FTP.
the data is transffered but the allignment is not correct.
Frnds i wanted to know that do i need to make any changes
in the current program or any other thing.
Respond to my query frnds.
<code>
REPORT Ztest_prg line-count 65 line-size 160 no standard page heading.
tables: zissts, vbak.
*primary selection Criteria
SELECTION-SCREEN BEGIN OF BLOCK BLK0 WITH FRAME TITLE TEXT-001.
select-options so_kunnr for zissts-kunnr no intervals.
select-options so_bdate for vbak-erdat.
select-options so_tdate for zissts-zzdepdate.
PARAMETERS: P_dsn(90) TYPE C LOWER CASE.
SELECTION-SCREEN end OF BLOCK BLK0.
types: begin of ty_data,
vbeln like vbak-vbeln,
zztour_pr like zissts-zztour_pr,
zzcom like zissts-zzcom,
names(100),
end of ty_data.
types: begin of ty_file,
vbeln(10),
zztour_pr(15),
zzcom(15),
names(100),
end of ty_file.
data it_file type ty_file occurs 0 with header line.
data it_data type ty_data occurs 0 with header line.
data it_zissts like zissts occurs 0 with header line.
data it_zissph like zissph occurs 0 with header line.
data c_name(50).
start-of-selection.
perform select-data.
perform preapre-data.
perform download-data.
perform write-data.
end-of-selection.
&----
*& Form SELECT-DATA
&----
----
----
FORM SELECT-DATA .
select * from zissts into table it_zissts
where zzdepdate in so_tdate
and kunnr in so_kunnr
and zzactflg = 'X'
and zzbkst = 'PIF'.
if not so_bdate is initial.
Loop at it_zissts.
select single * from vbak
where vbeln = it_zissts-vbeln
and erdat in so_bdate.
if sy-subrc <> 0.
delete it_zissts.
endif.
endloop.
endif.
if not it_zissts[] is initial.
select * from zissph into table it_zissph
for all entries in it_zissts
where vbeln = it_zissts-vbeln
and zzpbkst <> 'EXP'
and zzpbkst <> 'CANC'.
endif.
ENDFORM. " SELECT-DATA
&----
*& Form PREAPRE-DATA
&----
----
----
FORM PREAPRE-DATA .
sort it_zissts by vbeln.
sort it_zissph by vbeln zzpax_id descending.
loop at it_zissts.
move-corresponding it_zissts to it_data.
loop at it_zissph where vbeln = it_zissts-vbeln.
concatenate it_zissph-zzname_fst it_zissph-zzname_lst into c_name separated by ' '.
concatenate c_name it_data-names into it_data-names separated by ','.
clear c_name.
endloop.
append it_data.
clear it_data.
endloop.
ENDFORM. " PREAPRE-DATA
&----
*& Form DOWNLOAD-DATA
&----
----
----
FORM DOWNLOAD-DATA .
LOOP AT IT_data.
write it_data-vbeln to it_file-vbeln.
write it_data-zztour_pr to it_file-zztour_pr.
write it_data-zzcom to it_file-zzcom.
write it_data-names to it_file-names.
append it_file.
endloop.
concatenate p_dsn 'gepayfeed' sy-datum '.txt' into p_dsn.
OPEN DATASET P_DSN FOR OUTPUT IN text mode encoding default.
IF SY-SUBRC NE 0.
IF SY-BATCH NE SPACE.
WRITE:/2 'Error opening file', P_DSN.
ELSE.
MESSAGE I911(FB) WITH 'Error opening file' P_DSN.
LEAVE PROGRAM.
ENDIF.
ENDIF.
loop at it_file.
TRANSFER IT_file TO P_DSN.
endloop.
close dataset p_dsn.
ENDFORM. " DOWNLOAD-DATA
&----
*& Form WRITE-DATA
&----
----
----
FORM WRITE-DATA .
loop at it_data.
write:/ it_data-vbeln , it_data-zztour_pr ,
it_data-zzcom , it_data-names.
endloop.
</code>
regards,
kamal
Bluesky
