*----------------------------------------------------------------------*
*   INCLUDE ZRFC_SD_PCE_0095_F01                                       *
*----------------------------------------------------------------------*

*---------------------------------------------------------------------*
*       FORM. bdc_dynpro                                               *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
*  -->  P_BDC                                                         *
*  -->  P_PROGRAM                                                     *
*  -->  P_SCREEN                                                      *
*---------------------------------------------------------------------*
FORM. BDC_DYNPRO TABLES P_BDC STRUCTURE BDCDATA USING P_PROGRAM
P_SCREEN.
  CLEAR P_BDC.
  P_BDC-PROGRAM = P_PROGRAM.
  P_BDC-DYNPRO = P_SCREEN.
  P_BDC-DYNBEGIN = 'X'.
  APPEND P_BDC.
ENDFORM.
*-----------------------------------------------------------------
*       FORM. BDC_FIELD
*-----------------------------------------------------------------
*       ........
*-----------------------------------------------------------------
*  -->  P_BDC
*  -->  P_NAME
*  -->  P_VALUE
*-----------------------------------------------------------------
FORM. BDC_FIELD TABLES P_BDC STRUCTURE BDCDATA USING P_NAME P_VALUE
.
  CLEAR P_BDC.
  P_BDC-FNAM = P_NAME.
  P_BDC-FVAL = P_VALUE.
  APPEND P_BDC.

ENDFORM.

*---------------------------------------------------------------------*
*       FORM. bdc_process                                             *
*---------------------------------------------------------------------*
*       ........                                                      *
*---------------------------------------------------------------------*
FORM. BDC_PROCESS1 TABLES IT_BDC1.

  PERFORM. BDC_DYNPRO TABLES IT_BDC1:  USING 'SAPLIM02' '0100'.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'BDC_OKCODE'
                                   '=NEWL'.

  PERFORM. BDC_DYNPRO TABLES IT_BDC1:  USING 'SAPLIM02' '0100'.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'BDC_CURSOR'
                                   'V_T399A_SD-VAWRK(01)'.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'BDC_OKCODE'
                                   '/00'.

  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'V_T399A_SD-IWERK(01)'
                                    ZPCECONTROLVALUE-WERKS.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'V_T399A_SD-VAPLZ(01)'
                                    ZPCECONTROLVALUE-CVALUE.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'V_T399A_SD-VAWRK(01)'
                                    ZPCECONTROLVALUE-WERKS.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'SERVPROD(01)'
                                    ZMATNR.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'V_T399A_SD-STDNR(01)'
                                    ZPCECONTROLVALUE-CVALUE1.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'V_T399A_SD-STDAL(01)'
                                    ZPCECONTROLVALUE-CVALUE2.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'V_T399A_SD-GSBER(01)'
                              ZPCECONTROLVALUE-INDICATOR1_MEMO.

  PERFORM. BDC_DYNPRO TABLES IT_BDC1:  USING 'SAPLIM02' '0100'.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'BDC_CURSOR'
                                   'V_T399A_SD-IWERK(02)'.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'BDC_OKCODE'
                                    '=SAVE'.

  PERFORM. BDC_DYNPRO TABLES IT_BDC1:  USING 'SAPLIM02' '0100'.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'BDC_CURSOR'
                                     'V_T399A_SD-IWERK(02)'.
  PERFORM. BDC_FIELD  TABLES IT_BDC1:  USING 'BDC_OKCODE'
                                     '=ENDE'.
ENDFORM.