Skip to Content
0
Former Member
Jun 03, 2008 at 12:56 PM

qustoion to Paul Chapman

21 Views

Hi Paul,

yesterday i ask about turn internal table (pivot) and u give me example that work great how to do it,

but in write statement and what i wont is to move it to another internal table.

[https://www.sdn.sap.com/irj/sdn/profile?userid=3804507]

i new in abap ,there is a way to do that?

DATA:
  BEGIN OF myrec,
    pernr(10)      TYPE n,
    orgeh(10)      TYPE n,
    sick(10)       TYPE n,
    sum(10)        TYPE n,
 END OF myrec,
 itab LIKE STANDARD TABLE OF myrec.
DATA:
  BEGIN OF fld_rec,
    fld(10)         TYPE n,
  END OF fld_rec,
  BEGIN OF data_rec,
    pernr LIKE STANDARD TABLE OF fld_rec,
    orgeh LIKE STANDARD TABLE OF fld_rec,
    sick  LIKE STANDARD TABLE OF fld_rec,
    sum   LIKE STANDARD TABLE OF fld_rec,
  END OF data_rec,
  itab2 LIKE STANDARD TABLE OF data_rec.
 
DATA: col     TYPE i.
 
START-OF-SELECTION.
 
  PERFORM load_itab.
 
  LOOP AT itab INTO myrec.
    APPEND myrec-pernr TO data_rec-pernr.
    APPEND myrec-orgeh TO data_rec-orgeh.
    APPEND myrec-sick  TO data_rec-sick.
    APPEND myrec-sum   TO data_rec-sum.
 
  ENDLOOP.
  APPEND data_rec TO itab2.
 
  LOOP AT itab2 INTO data_rec.
    col = 1.
    LOOP AT data_rec-pernr INTO fld_rec.
      WRITE AT col fld_rec-fld RIGHT-JUSTIFIED NO-ZERO.
      col = col + 10.
    ENDLOOP.
    NEW-LINE.
    col = 1.
    LOOP AT data_rec-orgeh INTO fld_rec.
      WRITE AT col fld_rec-fld RIGHT-JUSTIFIED NO-ZERO.
      col = col + 10.
    ENDLOOP.
    NEW-LINE.
    col = 1.
    LOOP AT data_rec-sick INTO fld_rec.
      WRITE AT col fld_rec-fld RIGHT-JUSTIFIED NO-ZERO.
      col = col + 10.
    ENDLOOP.
    NEW-LINE.
    col = 1.
    LOOP AT data_rec-sum INTO fld_rec.
      WRITE AT col fld_rec-fld RIGHT-JUSTIFIED NO-ZERO.
      col = col + 10.
    ENDLOOP.
DLOOP.

Best Regards