SHARE
TWEET

Untitled

a guest Jan 24th, 2020 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. DATA:
  2.       count Type i,
  3.       sc TYPE scustom,
  4.       sf TYPE sflight,
  5.       sb TYPE sbook.
  6.  
  7. TOP-OF-PAGE.
  8.  
  9.   ULINE /(118).
  10. Write : / '|' , (10)'Kunden ID','|',(10)'Kunde','|',(10)'Strasse','|',(10)'Postleitzahl','|',(10)'Ort','|',(10)'Buchungs-Nr.','|',(10)'Fluggesellschaft','|',(10)'Flugnummer','|',(10)'Flugdatum','|'.
  11.   ULINE /(118).
  12. * Selectiongruppe
  13. START-OF-SELECTION.
  14. select * from scustom into sc.
  15.   select * from sbook into sb
  16.     where CUSTOMID = sc-id.
  17.    
  18. Write : / '|', (10)sc-id,'|',(10)sc-name,'|',(10)sc-STREET,'|',(10)sc-POSTCODE,'|',(10)sc-city,'|',(10)sb-BOOKID,'|',(10)sb-carrid,'|',(10)sb-CONNID,'|',(10)sb-FLDATE,'|'.
  19.   ENDSELECT.
  20. *  if sy-dbcnt > 0 muss nicht zwingend sein
  21.   IF sy-dbcnt > 0.
  22.  
  23.       count = count + 1.
  24.       Endif.
  25. ENDSELECT.
  26.  
  27. * Ende der Selectiongruppe
  28. END-OF-SELECTION.
  29.   ULINE /(118).
  30.   WRITE: / '|', 'Anzahl der Kunden: ', count, (82)' ', '|'.
  31.   ULINE /(118).
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top