REPORT  zam_os.
TABLES: *anla0, anla0, anlcv.
DATA: BEGIN OF zam_osn OCCURS 0,
   bukrs LIKE anlc-bukrs,
   anln1 LIKE anlc-anln1,
   perv LIKE anlc-kansw,
   amor LIKE anlc-knafa,
   balan LIKE anlc-kaafa,
END OF zam_osn.

INITIALIZATION.
  MOVE: '0013' TO srtvr.
  MOVE: '01' TO bereich1.

START-OF-SELECTION.
*anla0-XNOCHECK = 'X'.
*anla0-xjhrft = ' '.
get anla0.

GET anlcv.
  check anlcv-answ_gje > 0.
  zam_osn-bukrs = anlcv-bukrs.
  zam_osn-anln1 = anlcv-anln1.
  zam_osn-perv = anlcv-answ_gje.
  zam_osn-amor = anlcv-afa_gje.
  zam_osn-balan = anlcv-bchwrt_gje.
  APPEND zam_osn.

END-OF-SELECTION.

export zam_osn to memory id 'zam_assets'.

PARAMETERS:
  p_bukrs LIKE anla-bukrs MEMORY ID buk OBLIGATORY,
  p_anln1 LIKE anla-anln1 MEMORY ID an1 OBLIGATORY,
  p_date LIKE sy-datum OBLIGATORY DEFAULT sy-datum.

DATA: BEGIN OF zam_anep OCCURS 0,
  anln1 LIKE anep-anln1,
  afabe LIKE anep-afabe,
  belnr LIKE anep-belnr,
  bzdat LIKE anep-bzdat,
  bwasl LIKE anep-bwasl,
  anbtr LIKE anep-anbtr,
  nafab LIKE anepv-nafab,
  nafav LIKE anepv-nafav,
  nafal LIKE anepv-nafal,
END OF zam_anep.

DATA:
  sum1 LIKE bseg-dmbtr,
  sum2 LIKE bseg-dmbtr,
  znafaz LIKE anlp-nafaz.

    SELECT SINGLE kansw knafa FROM anlc
      INTO (sum1, sum2)
      WHERE bukrs = p_bukrs AND
        anln1 = p_anln1 AND
        gjahr = p_date+0(4) AND
        afabe = '01'.
    SELECT s~afabe s~bzdat s~bwasl s~anbtr s~nafab p~nafav p~nafal
       INTO CORRESPONDING FIELDS OF TABLE zam_anep
       FROM anep AS s
       LEFT OUTER JOIN anea AS p ON s~bukrs   =  p~bukrs
                                  AND s~anln1 = p~anln1
                                  AND s~gjahr = p~gjahr
                                  AND s~lnran = p~lnran
                                  AND s~afabe = p~afabe
       WHERE s~bukrs = p_bukrs
         AND s~anln1 = p_anln1
         AND s~gjahr = p_date+0(4)
         AND s~bzdat <= p_date
         AND s~afabe = '01'.
    LOOP AT zam_anep WHERE afabe = '01'.
      sum1 = sum1 + zam_anep-anbtr.
      sum2 = sum2 + zam_anep-nafav + zam_anep-nafal.
    ENDLOOP.
    SELECT SUM( nafaz ) INTO znafaz FROM anlp
      WHERE bukrs = p_bukrs  AND
        gjahr = p_date+(4) AND
        peraf <= p_date+4(2) AND
        anln1 = p_anln1 AND
        afaber = '01'.
    sum2 = sum2 + znafaz.