Прежде чем спросить вас я воспользовалась поиском по форуму, но вопрос все-таки остался. Так что помогите, пожалуйста.

Задача.
Найти Reference документов из связки таблиц BKPF-BSEG (не хочется использовать BSEG, но, увы, без нее никак), соответствующие определенным условиям и запомнить его. Опять сделать выборку документов из BKPF-BSEG, но уже с другими условиями, совершенно отличающимися от первой выборки.
И , наконец, вывести на экран те документы из второй выборки, у которых номера документов не равны запомненным Reference из первой выборки.

Насколько я понимаю, и первую и вторую выборки надо делать в internal tables. А как быть дальше ?

ну если постановка такова, то дальше loop по второй таблице, в loop'е read первой. и если он удался - удалять запись.

Спасибо, я попробовала сделать так, но результат не тот (записи задваиваются). Может быть что-то не так в программе. ?

REPORT New
DATA: BEGIN OF itab1 OCCURS 0,
xblnr LIKE bsis-xblnr,
belnr LIKE bsis-belnr,
gjahr LIKE bsis-gjahr,
END OF itab1.

DATA: BEGIN OF itab2 OCCURS 0,
belnr LIKE bsis-belnr,
gjahr LIKE bsis-gjahr,
hkont LIKE bsis-hkont,
xblnr LIKE bsis-xblnr,
END OF itab2.

PARAMETERS: p_cocd1 like bsis-bukrs,p_cocd2 like bsis-bukrs.
SELECT-OPTIONS s_prd1 FOR bsis-monat.
SELECT-OPTIONS s_type1 FOR bsis-blart.
SELECT-OPTIONS s_acc1 FOR bsis-hkont.

SELECT-OPTIONS s_prd2 FOR bsis-monat.
SELECT-OPTIONS s_type2 FOR bsis-blart.
SELECT-OPTIONS s_acc2 FOR bsis-hkont.

START-OF-SELECTION.

SELECT bsis~xblnr bsis~belnr bsis~gjahr
INTO CORRESPONDING FIELDS OF ITAB1
FROM bsis
WHERE bsis~bukrs = p_cocd1
AND bsis~monat IN s_prd1
AND bsis~blart IN s_type1
AND bsis~hkont IN s_acc1.

ENDSELECT.

SELECT bsis~belnr bsis~xblnr bsis~bukrs bsis~hkont bsis~gjahr
INTO CORRESPONDING FIELDS OF TABLE itab2
FROM bsis
WHERE bsis~bukrs = p_cocd2
AND bsis~monat IN s_prd2
AND bsis~blart IN s_type2
AND bsis~hkont IN s_acc2.

ENDSELECT.

SORT itab2 by belnr gjahr.

LOOP AT itab2.
READ TABLE itab1 with key xblnr = itab2-belnr gjahr = itab2-gjahr .
IF sy-subrc = 0.
DELETE itab2.
ENDIF.
MODIFY itab2.
ENDLOOP.

write / itab2-belnr.

Вам точно надо xblnr сравнивать с belnr?(посмотрите в отладчике там могут позиции в xblnr съезжать...) и зачем еще modify в конце?

Да, мне нужно сравнивать belnr, полученный из второго запроса с xblnr из первого запроса.

А почему могут съезжать позиции и почему не надо modify ?

p.s.Прошу прощения, если вопросы глупые.

на сколько помню, xblnr char 16, belnr char 10... разная длина раз, учитывать нули впереди надо... а modify делается, если вы что то изменили и хотите эту инфу во внутренней таблице поменять... там вроде нет таких операций, delete бех этого прокатит

1.


этот ваш код помещает данные не в таблицу а в рабочую область построчно в цикле
2. при выборках в таблицу ENDSELECT не нужен

Спасибо за разъяснения.
Так как все-таки мне решить мою задачу, подскажите ?
1. Как учесть нули при сравнении xblnr (char 16) c belnr (char 10) ?

смотря как эта ссылка заполняется;) чтобы вам было быстро и удобно, надо чтобы туда заносилось со всем нулями и с первой позиции. Потому что проверять все варианты с возможнфми нулями, это будет долго.

По-моему для начала это должно выглядеть примерно так:



Только для чего там SORT - не совсем понятно...