Creation of PGI using BDC for tc VL02N is not happening..

Question

Hi All,
i need to do Post Goods Issue (PGI) thro' BDC and after that i need to update the flag in Ztable.
its giving Success message and updating the database also.
but its not issuing the PGI.and further i want to create billing doc.So its compulsory to me to post PGI.
if i look into the BDCMSGCOLL structure its giving "NO BATCH INPUT DATA FOR SCREEN"? why this is happening?
please let me know immediately....
REFRESH: tt_bdcmsgcoll .
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = wa_created-document_numb
    IMPORTING
      output = wa_created-document_numb.
  REFRESH tt_bdcdata.
  PERFORM bdc_dynpro      USING text-001 text-002.
  PERFORM bdc_field       USING text-008
                               text-014.
  PERFORM bdc_field       USING text-009
                                text-011.
  PERFORM bdc_field       USING text-014
                                wa_created-document_numb.
  PERFORM bdc_dynpro      USING text-001 text-003.
  PERFORM bdc_field       USING text-009
                                text-036.
  PERFORM bdc_field       USING text-025
                                sy-datum.
  PERFORM bdc_field       USING text-008
                                text-035.
  PERFORM bdc_field       USING text-037
                                sy-datum.
  PERFORM bdc_field       USING text-038
                                text-029.
  PERFORM bdc_field       USING text-016
                                c_x.
  CALL TRANSACTION c_t_del USING tt_bdcdata
                                MODE c_m
                                UPDATE c_u
                                MESSAGES INTO tt_bdcmsgcoll .
  SORT tt_bdcmsgcoll BY msgtyp.
  READ TABLE tt_bdcmsgcoll INTO wa_bdcmsgcoll WITH KEY msgtyp = c_e.
  IF sy-subrc EQ 0.
    LOOP AT tt_bdcmsgcoll INTO wa_bdcmsgcoll WHERE msgtyp = c_e.
      CALL FUNCTION 'FORMAT_MESSAGE'
        EXPORTING
          id        = wa_bdcmsgcoll-msgid
          lang      = text-010
          no        = wa_bdcmsgcoll-msgnr
          v1        = wa_bdcmsgcoll-msgv1
          v2        = wa_bdcmsgcoll-msgv2
          v3        = wa_bdcmsgcoll-msgv3
          v4        = wa_bdcmsgcoll-msgv4
        IMPORTING
          msg       = v_msg
        EXCEPTIONS
          not_found = 1
          OTHERS    = 2.
      IF sy-subrc <> 0.
      ENDIF.
      WRITE :/ v_msg.
    ENDLOOP.
  ELSE.
    MOVE : c_x TO wa_worklist-pgi_flag.
    READ TABLE tt_epit INTO wa_epit WITH KEY epi_id = wa_worklist-epi_id epi_sr = wa_worklist-epi_sr.
    IF sy-subrc EQ  0.
      MODIFY tt_epit FROM wa_worklist TRANSPORTING pgi_flag WHERE epi_id = wa_worklist-epi_id AND epi_sr = wa_worklist-epi_sr.
    ELSE.
      APPEND wa_worklist TO tt_epit.
    ENDIF.
     wa_epit-pgi_flag = c_x.
     MODIFY   tt_epit FROM wa_epit TRANSPORTING pgi_flag WHERE epi_id = wa_worklist-epi_id AND del_no = wa_created-document_numb .
     UPDATE zsd_dt_epit SET pgi_flag = 'X' WHERE epi_id = wa_worklist-epi_id AND del_no = wa_created-document_numb .
     IF  sy-subrc EQ 0.
     ENDIF.
  ENDIF.

Answer 1

HI,
Please refer this
To perform Post goods issue
    PERFORM OPEN_GROUP.
    PERFORM BDC_DYNPRO      USING 'SAPMV50A' '4004'.
    PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                  'LIKP-VBELN'.
    PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                  '=WABU_T'.
    PERFORM BDC_FIELD       USING 'LIKP-VBELN' DELIVERY.
                             '84000064'.
    PERFORM BDC_TRANSACTION USING 'VL02N'.
    PERFORM CLOSE_GROUP.
    CLEAR : DELIVERY,
            T_BSITEM,
            T_BSICTL.
  ENDIF.
ENDFORM.                    " DELIVERY