Move-Coresponding

Code: Alles auswählen.

DATA: BEGIN OF ADRESSE,
          NACHNAME(15) TYPE C,
          VORNAME(15) TYPE C,
          STRASSE(15) TYPE C,
          PLZ(5) TYPE N,
          ORT(15) TYPE C,
      END OF ADRESSE.

DATA: BEGIN OF BESTELLUNG,
          ARTIKELBEZEICHNUNG(15) TYPE C,
          MENGE(2) TYPE N,
          PREIS(5) TYPE N,
          STSATZ(5) TYPE N,
      END OF BESTELLUNG.

DATA: BEGIN OF Rechnung,
          NACHNAME like adresse-nachname,
          VORNAME like adresse-vorname,
          STRASSE like adresse-strasse,
          PLZ like adresse-plz,
          ORT like adresse-ort,
          ARTIKELBEZEICHNUNG like bestellung-artikelbezeichnung,
          MENGE like bestellung-menge,
          PREIS like bestellung-preis,
          STSATZ like bestellung-stsatz,
          GESPREIS(5) TYPE N,
      END OF Rechnung.


PARAMETERS:
        NACHNAME(15) TYPE C,
        VORNAME(15) TYPE C,
        STRASSE(15) TYPE C,
        PLZ(5) TYPE N,      
        ORT(15) TYPE C,
        ARTIKELB(15) type c,
        MENGE(2) TYPE N,
        Preis(5) type p decimals 2,
        STSATZ LIKE PREIS DEFAULT 16.

        ADRESSE-NACHNAME = NACHNAME.
        ADRESSE-VORNAME = VORNAME.
        ADRESSE-STRASSE = STRASSE.
        ADRESSE-PLZ = PLZ.
        ADRESSE-ORT = ORT.

        BESTELLUNG-ARTIKELBEZEICHNUNG = ARTIKELB.
        bestellung-menge = menge.
        bestellung-preis = preis.
        bestellung-stsatz = stsatz.

RECHNUNG-GESPREIS = BESTELLUNG-MENGE * BESTELLUNG-PREIS.

MOVE-CORRESPONDING ADRESSE TO RECHNUNG.
MOVE-CORRESPONDING BESTELLUNG TO RECHNUNG.

WRITE: 	/ RECHNUNG-NACHNAME, 
                  RECHNUNG-VORNAME,
	/ RECHNUNG-STRASSE,
	/ RECHNUNG-PLZ,
  	/ RECHNUNG-ORT.