PERFORM DYNPRO USING:
* Первый экран
      'X' 'SAPMOIIA' '0100',
      ' ' 'BDC_CURSOR' 'ROIIOBJECT-WERKS',
      ' ' 'BDC_OKCODE' '=ENTE',
      ' ' 'ROIIOBJECT-WERKS' '2004',
      ' ' 'ROIIOBJECT-LGORT' '1010',
      ' ' 'ROIIOBJECT-XLGORT' 'X',
* Сортируем по убыванию (последние сверху

      'X' 'SAPLOIIA' '0050',
      ' ' 'BDC_CURSOR' 'ROIISOCIKN-SEQNR(01)',
      ' ' 'BDC_OKCODE' '=SORD'.

<пропущено>
CALL TRANSACTION 'O4NA' USING BDC_TAB MODE 'A' UPDATE 'S'.


*---------------------------------------------------------------------*
*       FORM DYNPRO                                                   *
*Подпрограмма формирования таблицы BDC_TAB                            *
*---------------------------------------------------------------------*
FORM DYNPRO USING DYNBEGIN NAME VALUE.
  CLEAR BDC_TAB.
  IF DYNBEGIN = 'X'.
    MOVE:  NAME TO BDC_TAB-PROGRAM,
           VALUE TO BDC_TAB-DYNPRO,
           'X'  TO BDC_TAB-DYNBEGIN.
    APPEND BDC_TAB.
  ELSE.
    MOVE:  NAME TO BDC_TAB-FNAM,
           VALUE TO BDC_TAB-FVAL.
    APPEND BDC_TAB.
  ENDIF.
ENDFORM.