hi,
chk this sample.
REPORT z_test_interactive NO STANDARD PAGE HEADING.
DATA: BEGIN OF it_one OCCURS 0,
vbeln LIKE vbak-vbeln,
erdat LIKE vbak-erdat,
END OF it_one.
DATA: BEGIN OF it_two OCCURS 0,
vbeln LIKE vbak-vbeln,
posnr LIKE vbap-posnr,
END OF it_two.
DATA: BEGIN OF it_code OCCURS 0,
okcode LIKE sy-ucomm,
END OF it_code.
DATA: fld(20), val(10).
START-OF-SELECTION.
SET PF-STATUS 'STATUS'.
SELECT vbeln
erdat
FROM vbak
UP TO 100 ROWS
INTO TABLE it_one.
IF sy-subrc = 0.
SORT it_one BY vbeln.
SELECT vbeln
posnr
FROM vbap
INTO TABLE it_two
FOR ALL ENTRIES IN it_one
WHERE vbeln = it_one-vbeln.
ENDIF.
LOOP AT it_one.
WRITE:/(10) it_one-vbeln,
(10) it_one-erdat.
ENDLOOP.
AT LINE-SELECTION.
IF sy-lsind = 1.
it_code-okcode = 'FCODE1'.
APPEND it_code.
CLEAR it_code.
it_code-okcode = 'FCODE2'.
APPEND it_code.
CLEAR it_code.
SET PF-STATUS 'STATUS' EXCLUDING IT_CODE. GET CURSOR FIELD fld VALUE val.
IF fld = 'IT_ONE-VBELN'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = val
IMPORTING
output = val.
LOOP AT it_two WHERE vbeln = val.
WRITE:/ it_two-vbeln,
it_two-posnr.
ENDLOOP.
ENDIF.
ENDIF.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN 'BACK1' OR 'CANC1' OR 'EXIT1'.
IF sy-lsind = 2.
SET PF-STATUS 'STATUS' .
SET USER-COMMAND 'BACK'. "this is the trick to go back to first list
ENDIF.
IF sy-lsind = 1.
LEAVE TO SCREEN 0.
ENDIF.
ENDCASE.
rgds
anver
pls mark hlpful answers
Bluesky
