Formatting the output in file out

Question

Hi,
I have 5 fields in the internal table. I have used GUI_DOWNLOAD for downloading the file.
The down loaded file looks like this.
Field1      Field2  field3                      filed4              field5
ABC     1234     20080131/405FED     161.65          161.65
ABC     1234     20080131/560          7883.76          7883.76
ABC     1234     20080131/701FED     6184.77          6184.77
But I want the output like this:
1. Spacing between columns 1 and 2 should be 3 spaces from after the last digit in column 1 to the first digit in column 2.
2. Spacing between columns 2 and 3 should be 5 spaces from after the last digit in column 2 to the first digit in column 3.
3. Spacing between columns 3 and 4 should be 8 spaces from after the last digit in column 3 to directly after the last digit in column 4.
4. Spacing between columns 4 and 5 should be 10 spaces from after the last digit in column 4 to directly after the last digit in column 5.
Please help how to procedure.
Thanks,
Sham.

Answer 1

I just tried this piece of code and it seems to work fine:-
TYPES : BEGIN OF ty_1,
        f1 TYPE char15,
        f2 TYPE char15,
        f3 TYPE char15,
       END OF ty_1,
       BEGIN OF ty_2,
         text TYPE char100,
       END OF ty_2.
DATA : lt_1 TYPE TABLE OF ty_1, lt_2 TYPE TABLE OF ty_2,lc_ct TYPE i,lc_star TYPE char10,
       ls_1 TYPE ty_1,ls_2 TYPE ty_2,ls_3 TYPE ty_2.
FIELD-SYMBOLS <fs> TYPE ANY.
ls_1-f1 = 'A'.ls_1-f2 = 'AA'.ls_1-f3 = 'AAA'.APPEND ls_1 TO lt_1.
ls_1-f1 = 'B'.ls_1-f2 = 'BB'.ls_1-f3 = 'BBB'.APPEND ls_1 TO lt_1.
ls_1-f1 = 'C'.ls_1-f2 = 'CC'.ls_1-f3 = 'CCC'.APPEND ls_1 TO lt_1.
ls_1-f1 = 'D'.ls_1-f2 = 'DD'.ls_1-f3 = 'DDD'.APPEND ls_1 TO lt_1.
ls_1-f1 = 'E'.ls_1-f2 = 'EE'.ls_1-f3 = 'EEE'.APPEND ls_1 TO lt_1.
LOOP AT lt_1 INTO ls_1.
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE ls_1 TO <fs>.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    CASE sy-index.
      WHEN 1.
        DO.
          lc_ct = lc_ct + 1.
          IF lc_ct > 3.
            CONCATENATE <fs> lc_star INTO ls_2.
            EXIT.
          ENDIF.
          CONCATENATE lc_star '*' INTO lc_star.
        ENDDO.
      WHEN 2.
        DO.
          lc_ct = lc_ct + 1.
          IF lc_ct > 5.
            CONCATENATE <fs> lc_star INTO ls_2.
            EXIT.
          ENDIF.
          CONCATENATE lc_star '*' INTO lc_star.
        ENDDO.
      WHEN 3.
        DO.
          lc_ct = lc_ct + 1.
          IF lc_ct > 8.
            CONCATENATE <fs> lc_star INTO ls_2.
            EXIT.
          ENDIF.
          CONCATENATE lc_star '*' INTO lc_star.
        ENDDO.
    ENDCASE.
    CONCATENATE ls_3 ls_2 INTO ls_3.
    CLEAR: ls_2, lc_star,lc_ct.
  ENDDO.
  TRANSLATE ls_3 USING '* '.
  APPEND ls_3 TO lt_2.
  CLEAR : ls_3,ls_1.
ENDLOOP.
Result:-
A   AA     AAA
B   BB     BBB
C   CC     CCC
D   DD     DDD
-- Dedeepya