DATA : it_strave TYPESTANDARDTABLEOF stravelag,
it_sbook TYPESTANDARDTABLEOF sbook.
DATA : wa_strave TYPE stravelag,
wa_sbook TYPE sbook.
SELECT * FROM sbook INTO CORRESPONDING FIELDSOFTABLE it_sbook WHERE customid = '00000238'.
SELECT * FROM stravelag INTO CORRESPONDING FIELDSOFTABLE it_strave forALL ENTRIES IN it_sbook WHERE agencynum = it_sbook-agencynum.
SORT it_strave BY name ASCENDING.
LOOPAT it_strave INTO wa_strave.
readtable it_sbook into wa_sbook withkey agencynum = wa_strave-agencynum BINARYSEARCH.
WRITE : / wa_strave-name, wa_sbook-bookid, wa_sbook-agencynum.
ENDLOOP.