Very Urgent!General Error?

Hi,
I have a part of the code as given :
// logic above
Statement st=null;
out.prinltn("VAL! "+st);
st=con.createStatement();
out.println("val now --"+st)
PreparedStatement ps1=con.prepareStatement("query");
logic to do the the processs with the above query
if(ps1!=null)
ps1.close();
out.println("VAL"+ps1);
ps1=con.prepareStatement("query"); //General Error
// logic below
THE out put which I get from the specific part is as:
VAL! null;
val now-- jdbc.odbc....@somevalue
VAL null
java.sql.SQLException General error
What could be the reason for the occurance of the
general error?
thanks
vickyk

Hi ,
The reason for occurance of general error is your database might be open or the record you are trying to store is already there or you have not closed connection.
Regards
khiz_eng

Similar Messages

  • Hi all..very urgent..error fixing..full marks wud be given for the answers.

    Hi guys..facing problem in error fixing.in bdc...prgm is in ECC 6.0..
    prgm is
    *& Report  ZCJI_CNV_POSTGOODSRECEIPT_ALT1
    REPORT  ZCJI_CNV_POSTGOODSRECEIPT_ALT1.
    *REPORT ZCJI_CNV_POSTGOODSRECEIPT_ALT NO STANDARD PAGE HEADING
                      LINE-SIZE 255.
    *Program:  ZCJI_CNV_POSTGOODSRECEIPT_ALT                               *
    *Function: This program is used to carry out GR transaction MB0A for
             CJI import logistics purchase orders. The objective is to
             choose only those purchase orders for which billing has been
             carried out already. Once GR document is posted, the status
             of delivery document items is also updated.
    DATE        AUTHOR      SCR #         CHANGE DESCRIPTION
    11/04/03   Ohm Reddy   BRD # 90      Initial version
                           DEVK928402
    02/25/04   Ohm Reddy                 In BDC session for posting Goods
                           DEVK929329    Receipt document, update document
                                         date with system local date
                                         (SYST-DATLO) rather than with
                                         system date(SYST-DATUM)
    06/23/04   Ohm Reddy                 Post GR only when sales order
                           DEVK931359    item SKU and PO item SKU matches
    03/21/05   Alex Mutia  13829/DEVK934135                              *
                           Phase II modifications:                       *
                           1. Added criteria in the selection screen;    *
                           2. Modified record selection logic;           *
                           3. Added fields in the Control Report;        *
    04/08/05   Alex Mutia  13829/DEVK934262                              *
                           Fixed bug in processing MFRGR field;          *
    04/13/05   Alex Mutia  13829/DEVK934283                              *
                           1.Fixed bug in assigning error record pointers*
                             to part-success part-error POs;             *
                           2.Added SO and SO line item numbers in report;*
                           3.Compressed report to fit in 255 columns;    *
    04/27/05   Alex Mutia  13829/DEVK934384                              *
                           1.Material documents retrieval changed from   *
                             MSEG to EKBE for performance.               *
                           2.Display empty ALV columns when no records   *
                             were selected for processing;               *
    TYPE-POOLS: SLIS.
    DATA:   GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
    DATA:   G_LAYOUT_ALV_SPEC TYPE SLIS_LAYOUT_ALV.
    *INCLUDE ZMMCJI_CNV_POSTGR_BDC2.
    INCLUDE ZCJI_CNV_PGR_DATA_ALT.
    $--"DEVK934135 Begin;-$
    INITIALIZATION.                                  "DEVK934135
      PERFORM INITIALIZE_VENDOR.                     "DEVK934135
      PERFORM INITIALIZE_PRICE.                      "DEVK934135
    $--"DEVK934135 End;---$
    START-OF-SELECTION.
      IF P_LIFNR IS INITIAL.                         "DEVK934135
        PERFORM INITIALIZE_VENDOR.                   "DEVK934135
      ENDIF.                                         "DEVK934135
      IF P_NETPR IS INITIAL.                         "DEVK934135
        PERFORM INITIALIZE_PRICE.                    "DEVK934135
      ENDIF.                                         "DEVK934135
      PERFORM 100_SELECT_DATA.
    END-OF-SELECTION.
    CHECK: g_return_code IS INITIAL.               "DEVK934384
    IF NOT itab[] IS INITIAL.                      "DEVK934384
      IF G_RETURN_CODE IS INITIAL  AND               "DEVK934384
         NOT ITAB[] IS INITIAL.                      "DEVK934384
        PERFORM 200_PROCESS_DATA.
        PERFORM 300_POST_DOCUMENTS.
        PERFORM 399_RETRIEVE_DOCUMENTS.
        PERFORM REORG_ITAB.
        PERFORM BUILD_HEADER_CATALOG.
        PERFORM FIELDCAT_INIT USING GT_FIELDCAT[].
        SY_COPY = SYST.
        PERFORM SHOW_TRANSACTION_ERRORS.
      ELSE.                                          "DEVK934384
        PERFORM SHOW_EMPTY_LIST.                     "DEVK934384
      ENDIF.
    *&      Form  SELECT_DATA
    FORM 100_SELECT_DATA.
      PERFORM 110_SELECT_OPEN_PO_QTY.
      CHECK: G_RETURN_CODE IS INITIAL.
      PERFORM 120_SELECT_PO_BILLED_QTY.
    ENDFORM.                    " 100_SELECT_DATA
    *&      Form  110_SELECT_OPEN_PO_QTY
    FORM 110_SELECT_OPEN_PO_QTY.
    $--"DEVK934135 Begin;-$
      SELECT T1~VGBEL
             T1~VGPOS
             T1~VBELN
             T1~POSNR
             T1~MATNR
             T1~LFIMG
             T1~MFRGR
             T2~LIFEX
             T2~LFDAT
             FROM       LIPS AS T1
             INNER JOIN LIKP AS T2
             ON T1MANDT EQ T2MANDT  AND
                T1VBELN EQ T2VBELN
             APPENDING CORRESPONDING FIELDS OF TABLE ITAB_LIPS
             WHERE T1~MANDT EQ SY-MANDT         "client is system client
              AND  T1~VBELN IN S_VBELN          "billing doc in criteria
              AND  T1~VGBEL IN S_EBELN          "po reference in criteria
              AND  T1~PSTYV EQ 'ELN'            "billing item category
              AND  T1~WERKS EQ 'JDC1'           "plant
              AND  T1~MFRGR NE 'C'              "material freight group
              AND  T2~LIFNR EQ  P_LIFNR.        "vendor is param vendor
      LOOP AT ITAB_LIPS.
        ITAB_LIPS-EBELN = ITAB_LIPS-VGBEL.
        ITAB_LIPS-EBELP = ITAB_LIPS-VGPOS.
        ITAB_LIPS-CHARG = ITAB_LIPS-LIFEX.
        ITAB_LIPS-OLDMFRGR
                        = ITAB_LIPS-MFRGR.
        MODIFY ITAB_LIPS.
      ENDLOOP.
      IF ITAB_LIPS[] IS INITIAL.
      MESSAGE i032(zm) WITH text-m11.              "DEVK934384
        G_RETURN_CODE = 'X'.
        EXIT.
      ENDIF.
      SELECT T1~EBELN
             T1~EBELP
             T1~LICHA
             T2~MATNR
             T2~MENGE
             T2~LOEKZ
             T2~ELIKZ
             T2~NETPR
             T3~IHREZ
             FROM       EKET AS T1
             INNER JOIN EKPO AS T2
             ON T1MANDT EQ T2MANDT  AND
                T1EBELN EQ T2EBELN  AND
                T1EBELP EQ T2EBELP
             INNER JOIN EKKO AS T3
             ON T1MANDT EQ T3MANDT  AND
                T1EBELN EQ T3EBELN
             APPENDING CORRESPONDING FIELDS OF TABLE ITAB
             FOR ALL ENTRIES IN ITAB_LIPS
             WHERE T1~MANDT EQ SY-MANDT         "client is system client
              AND  T1~EBELN EQ ITAB_LIPS-EBELN  "po# matches w/ billing
              AND  T3~BSART IN ('YT', 'YN').    "po type
      IF ITAB[] IS INITIAL.
      MESSAGE i032(zm) WITH text-m11.              "DEVK934384
        G_RETURN_CODE = 'X'.
        EXIT.
      ENDIF.
    $--"DEVK934135 End;---$
    delete any duplicate entries in itab table
      SORT ITAB BY EBELN EBELP.
      DELETE ADJACENT DUPLICATES FROM ITAB COMPARING EBELN EBELP.
      LOOP AT ITAB.
        ITAB-RECID = SY-TABIX.
        IF NOT ITAB-IHREZ IS INITIAL.
          WHILE ITAB-IHREZ+0(1) EQ ' '.
            SHIFT ITAB-IHREZ.
          ENDWHILE.
          WHILE ITAB-IHREZ+9(1) EQ ' '.
            SHIFT ITAB-IHREZ RIGHT.
            ITAB-IHREZ+0(1) = '0'.
          ENDWHILE.
        ENDIF.
        MODIFY ITAB.
      ENDLOOP.
    delete  ITAB_LIPS entries that are not there in ITAB
      LOOP AT ITAB_LIPS.
        SY_COPY-TABIX = SY-TABIX.
        CLEAR ITAB.
        READ TABLE ITAB WITH KEY EBELN = ITAB_LIPS-EBELN
                                 EBELP = ITAB_LIPS-EBELP BINARY SEARCH.
        SY_COPY-INDEX = SY-TABIX.
        IF SY-SUBRC NE 0.
          DELETE ITAB_LIPS.
        ELSE.
          ITAB_LIPS-IHREZ = ITAB-IHREZ.
          MODIFY ITAB_LIPS INDEX SY_COPY-TABIX.
          ITAB-MFRGR = ITAB_LIPS-MFRGR.
          ITAB-LIFEX = ITAB_LIPS-LIFEX.
          ITAB-OLDMFRGR
                     = ITAB_LIPS-OLDMFRGR.
          MODIFY ITAB      INDEX SY_COPY-INDEX.
        ENDIF.
      ENDLOOP.
    select the goods receipts documents created for the above deliveries
      SELECT EBELN EBELP BELNR GJAHR
                     INTO TABLE ITAB_EKBE FROM EKBE
                                FOR ALL ENTRIES IN ITAB_LIPS
                                WHERE EBELN = ITAB_LIPS-EBELN
                                AND   EBELP = ITAB_LIPS-EBELP.
    select Goods receipt data from MSEG table for the above deliveries
      IF NOT ITAB_EKBE[] IS INITIAL.
        SELECT EBELN EBELP CHARG BWART MENGE MBLNR MJAHR ZEILE
                       INTO TABLE ITAB_MSEG FROM MSEG
                                  FOR ALL ENTRIES IN ITAB_EKBE
                                  WHERE MBLNR = ITAB_EKBE-BELNR
                                  AND   MJAHR = ITAB_EKBE-GJAHR.
      ENDIF.
      SORT ITAB_MSEG BY EBELN EBELP CHARG.
    calculate the GR qty eligible to be posted
      SORT ITAB_LIPS BY EBELN EBELP.
      LOOP AT ITAB_LIPS.
        ITAB_LIPS-POSTQTY = ITAB_LIPS-LFIMG.
        CLEAR ITAB_MSEG.
        LOOP AT ITAB_MSEG WHERE EBELN = ITAB_LIPS-EBELN
                          AND   EBELP = ITAB_LIPS-EBELP
                          AND   CHARG = ITAB_LIPS-CHARG.
          IF ITAB_MSEG-BWART = '101'.
            ITAB_LIPS-POSTQTY = ITAB_LIPS-POSTQTY - ITAB_MSEG-MENGE.
          ELSEIF ITAB_MSEG-BWART = '102'.
            ITAB_LIPS-POSTQTY = ITAB_LIPS-POSTQTY + ITAB_MSEG-MENGE.
          ENDIF.
        ENDLOOP.
        MODIFY ITAB_LIPS.
        CLEAR ITAB_LIPS.
      ENDLOOP.
      LOOP AT ITAB.
        ITAB-RECID = SY-TABIX.
        MODIFY ITAB.
        LOOP AT ITAB_LIPS WHERE EBELN EQ ITAB-EBELN
                           AND  EBELP EQ ITAB-EBELP.
          ITAB_LIPS-RECID = ITAB-RECID.
          MODIFY ITAB_LIPS.
        ENDLOOP.
      ENDLOOP.
    free the memory of unnecessary internal tables
    $--"DEVK934135 Begin;-$
      CLEAR: ITAB_EKBE.
      FREE:  ITAB_EKBE.
    $--"DEVK934135 End;---$
    ENDFORM.                    " 110_SELECT_OPEN_PO_QTY
    *&      Form  120_SELECT_PO_BILLED_QTY
    FORM 120_SELECT_PO_BILLED_QTY.
    $--"DEVK934135 Begin;-$
      SELECT T1~VBELN
             T1~POSNR
             T1~FKIMG
             T1~AUBEL
             T1~AUPOS
             APPENDING CORRESPONDING FIELDS OF TABLE ITAB_VBRP
             FROM       VBRP AS T1
             INNER JOIN VBRK AS T2
             ON T1MANDT EQ T2MANDT  AND
                T1VBELN EQ T2VBELN
             FOR ALL ENTRIES IN ITAB
             WHERE T1~MANDT EQ SY-MANDT         "client is system client
              AND  T1~VBELN EQ ITAB-IHREZ+0(10) "billing doc = your ref.
              AND  T2~FKSTO EQ ' '.             "status NOT cancelled
    Match ITAB-IHREZ <-> ITAB_VBRP-VBELN...
           ITAB-LICHA <-> ITAB_VBRP-POSNR...
      LOOP AT ITAB.
        SY_COPY-TABIX = SY-TABIX.
      Check your reference (IHREZ) field;
        IF ITAB-IHREZ IS INITIAL.                    "your-ref blank
          ITAB-ERRFA = 'X'.
          GT_ERROR-RECID = ITAB-RECID.
          GT_ERROR-ERRTX = TEXT-E0A.
          APPEND GT_ERROR.
        ELSE.                                        "your-ref NOT blank
          IF ITAB-IHREZ CO ' 0123456789'.            "your-ref numeric
          ENDIF.                                     "your-ref numeric
          IF SY-FDPOS NE 12.                         "your-ref NOT numeric
            ITAB-ERRFA = 'X'.
            GT_ERROR-RECID = ITAB-RECID.
            GT_ERROR-ERRTX = TEXT-E0A.
            APPEND GT_ERROR.
          ELSE.                                      "your-ref NOT numeric
          Check PO line item (LICHA) field;
            IF ITAB-LICHA IS INITIAL.                "line item blank
              ITAB-ERRFA = 'X'.
              GT_ERROR-RECID = ITAB-RECID.
              GT_ERROR-ERRTX = TEXT-E01.
              APPEND GT_ERROR.
            ELSE.                                    "line item NOT blank
              IF ITAB-LICHA CO ' 0123456789'.        "line item numeric
              ENDIF.                                 "line item numeric
              IF SY-FDPOS NE 15.                     "line item NOT numeric
                ITAB-ERRFA = 'X'.
                GT_ERROR-RECID = ITAB-RECID.
                GT_ERROR-ERRTX = TEXT-E01.
                APPEND GT_ERROR.
              ELSE.                                  "line item NOT numeric
                SY_COPY-SUBRC = 4.
                READ TABLE ITAB_VBRP
                     WITH KEY VBELN = ITAB-IHREZ+0(10)
                              POSNR = ITAB-LICHA+0(6)    BINARY SEARCH.
                SY_COPY-SUBRC = SY-SUBRC.
                IF SY_COPY-SUBRC NE 0.
                  ITAB-ERRFA = 'X'.
                  GT_ERROR-RECID = ITAB-RECID.
                  GT_ERROR-ERRTX = TEXT-E01.
                  APPEND GT_ERROR.
                ELSE.                                "DEVK934283
                  ITAB-AUBEL = ITAB_VBRP-AUBEL.      "DEVK934283
                  ITAB-AUPOS = ITAB_VBRP-AUPOS.      "DEVK934283
                ENDIF.
              ENDIF.                                 "line item NOT numeric
            ENDIF.                                   "line item blank
          ENDIF.                                     "your-ref NOT numeric
        ENDIF.                                       "your-ref blank
      Check ID - LIFEX;
        IF ITAB-LIFEX EQ ' '.                        "LIFEX is blank
          ITAB-ERRFB = 'X'.
          GT_ERROR-RECID = ITAB-RECID.
          GT_ERROR-ERRTX = TEXT-ERB.
          APPEND GT_ERROR.
        ELSE.                                        "LIFEX is NOT blank
        Check ID - MFRGR;
          IF ITAB-MFRGR NE 'G'.                      "MFRGR NOT G
            ITAB-ERRFC = 'X'.
            GT_ERROR-RECID = ITAB-RECID.
            GT_ERROR-ERRTX = TEXT-ERC.
            APPEND GT_ERROR.
          ENDIF.                                     "MFRGR NOT G
        ENDIF.                                       "LIFEX is blank
      Check PO - Deletion indicator;
        IF ITAB-LOEKZ NE ' '.                        "LOEKZ NOT blank
          ITAB-ERRFD = 'X'.
          GT_ERROR-RECID = ITAB-RECID.
          GT_ERROR-ERRTX = TEXT-ERD.
          APPEND GT_ERROR.
        ENDIF.                                       "LOEKZ NOT blank
      Check PO - Delivery completed flag;
        IF ITAB-ELIKZ NE ' '.                        "ELIKZ NOT blank
          ITAB-ERRFE = 'X'.
          GT_ERROR-RECID = ITAB-RECID.
          GT_ERROR-ERRTX = TEXT-ERE.
          APPEND GT_ERROR.
        ENDIF.                                       "ELIKZ NOT blank
      Check PO - Net price;
        IF ITAB-NETPR LT P_NETPR.                    "price < parameter
          ITAB-ERRFF = 'X'.
          GT_ERROR-RECID = ITAB-RECID.
          CONCATENATE TEXT-ERF
                      G_NETPR
                      TEXT-USD
                      INTO GT_ERROR-ERRTX SEPARATED BY SPACE.
          APPEND GT_ERROR.
        ENDIF.                                       "ELIKZ NOT blank
        IF ITAB-AUPOS EQ '000000'.
          CLEAR: ITAB-AUPOS.
        ENDIF.
        MODIFY ITAB INDEX SY_COPY-TABIX.
      ENDLOOP.
      LOOP AT ITAB.                                  "DEVK934283
        READ TABLE ITAB_LIPS                         "DEVK934283
             WITH KEY VGBEL = ITAB-EBELN             "DEVK934283
                      VGPOS = ITAB-EBELP             "DEVK934283
             BINARY SEARCH.                          "DEVK934283
        SY_COPY-TABIX = SY-TABIX.                    "DEVK934283
        IF SY-SUBRC EQ 0.                            "DEVK934283
          ITAB_LIPS-AUBEL = ITAB-AUBEL.              "DEVK934283
          ITAB_LIPS-AUPOS = ITAB-AUPOS.              "DEVK934283
          MODIFY ITAB_LIPS INDEX SY_COPY-TABIX.      "DEVK934283
        ENDIF.                                       "DEVK934283
      ENDLOOP.                                       "DEVK934283
    Transfer errors from ITAB to ITAB_LIPS;
      LOOP AT ITAB WHERE ERRFA EQ 'X'
                    OR   ERRFB EQ 'X'
                    OR   ERRFC EQ 'X'
                    OR   ERRFD EQ 'X'
                    OR   ERRFE EQ 'X'
                    OR   ERRFF EQ 'X'.
        READ TABLE ITAB_LIPS
             WITH KEY VGBEL = ITAB-EBELN
                      VGPOS = ITAB-EBELP  BINARY SEARCH.
        SY_COPY-TABIX = SY-TABIX.
        IF SY-SUBRC EQ 0.
          ITAB_LIPS-ERRFA    = ITAB-ERRFA.
          ITAB_LIPS-ERRFB    = ITAB-ERRFB.
          ITAB_LIPS-ERRFC    = ITAB-ERRFC.
          ITAB_LIPS-ERRFD    = ITAB-ERRFD.
          ITAB_LIPS-ERRFE    = ITAB-ERRFE.
          ITAB_LIPS-ERRFF    = ITAB-ERRFF.
          ITAB_LIPS-NEWMFRGR = 'E'.
          MODIFY ITAB_LIPS INDEX SY_COPY-TABIX.
        ENDIF.
      ENDLOOP.
    $--"DEVK934135 End;---$
    ENDFORM.                    " 120_SELECT_PO_BILLED_QTY
    *&      Form  200_PROCESS_DATA
    FORM 200_PROCESS_DATA.
      PERFORM 210_CONSOLIDATE_DATA.
      PERFORM 220_PROCESS_DATA.
    ENDFORM.                    " 200_PROCESS_DATA
    *&      Form  210_consolidate_data
    FORM 210_CONSOLIDATE_DATA.
    Get the PO item open qty and billed qty into one table
      LOOP AT ITAB.
        CLEAR ITAB_LIPS.
        LOOP AT ITAB_LIPS WHERE EBELN = ITAB-EBELN
                          AND   EBELP = ITAB-EBELP.
         ITAB-IDQTY = ITAB-IDQTY + ITAB_LIPS-POSTQTY.      "inbound delv qty
        ENDLOOP.
        CLEAR ITAB_VBRP.
        LOOP AT ITAB_VBRP WHERE VBELN = ITAB-IHREZ
                          AND   POSNR = ITAB-LICHA.
          ITAB-FKIMG = ITAB-FKIMG + ITAB_VBRP-FKIMG.    "PO item billed qty
        ENDLOOP.
        CLEAR ITAB_MSEG.
        LOOP AT ITAB_MSEG WHERE EBELN = ITAB-EBELN
                          AND   EBELP = ITAB-EBELP.
          IF ITAB_MSEG-BWART = '101'.
           ITAB-GRQTY = ITAB-GRQTY + ITAB_MSEG-MENGE.        "PO item GR qty
          ELSEIF ITAB_MSEG-BWART = '102'.
           ITAB-GRQTY = ITAB-GRQTY - ITAB_MSEG-MENGE.        "PO item GR qty
          ELSEIF ITAB_MSEG-BWART = '122'.            "DEVK934135
           ITAB-GRQTY = ITAB-GRQTY - ITAB_MSEG-MENGE.        "PO item GR qty
          ENDIF.
        ENDLOOP.
        ITAB-RCVQTY = ITAB-FKIMG - ITAB-GRQTY.  "qty billed but not received
    calculate the quantity to be processed for which GRs are to be posted
        IF ITAB-RCVQTY > 0 AND ITAB-RCVQTY > ITAB-IDQTY.
          ITAB-PROCQTY = ITAB-IDQTY.
        ELSEIF ITAB-RCVQTY > 0 AND ITAB-RCVQTY < ITAB-IDQTY.
          ITAB-PROCQTY = ITAB-RCVQTY.
        ELSEIF ITAB-RCVQTY > 0 AND ITAB-RCVQTY = ITAB-IDQTY.
          ITAB-PROCQTY = ITAB-IDQTY.
        ENDIF.
        MODIFY ITAB.
        CLEAR ITAB.
      ENDLOOP.
    free the memory of unnecessary internal tables
    $--"DEVK934135 Begin;-$
      CLEAR: ITAB_MSEG.
      FREE:  ITAB_MSEG.
    $--"DEVK934135 End;---$
    ENDFORM.                    " 210_consolidate_data
    *&      Form  220_PROCESS_DATA
    FORM 220_PROCESS_DATA.
      DATA: L0_FISCAL_PERIOD  LIKE BAPI0002_4-FISCAL_PERIOD,
            L0_FISCAL_YEAR    LIKE BAPI0002_4-FISCAL_YEAR,
            L0_RETURN         LIKE BAPIRETURN1,
            L1_FISCAL_PERIOD  LIKE BAPI0002_4-FISCAL_PERIOD,
            L1_FISCAL_YEAR    LIKE BAPI0002_4-FISCAL_YEAR,
            L1_RETURN         LIKE BAPIRETURN1.
      SORT ITAB_LIPS BY VGBEL VGPOS EBELN EBELP
                        LFDAT DESCENDING POSNR ASCENDING.
      SORT ITAB BY EBELN EBELP.
    Calculate the GR quanities to be posted for all inbound deliveries
      LOOP AT ITAB_LIPS.
        AT NEW EBELP.
          CLEAR ITAB.
          CLEAR V_RCVQTY.
          READ TABLE ITAB WITH KEY EBELN = ITAB_LIPS-EBELN
                                   EBELP = ITAB_LIPS-EBELP BINARY SEARCH.
          V_RCVQTY = ITAB-RCVQTY.
        ENDAT.
        IF ITAB-PROCQTY GT 0.
          IF ITAB_LIPS-POSTQTY GT ITAB-PROCQTY.
            ITAB_LIPS-PROCQTY = ITAB-PROCQTY.
            ITAB_LIPS-NEWMFRGR = 'B'.
            ITAB-PROCQTY = 0.
          ELSEIF ITAB_LIPS-POSTQTY LT ITAB-PROCQTY.
            ITAB_LIPS-PROCQTY = ITAB_LIPS-POSTQTY.
            ITAB_LIPS-NEWMFRGR = 'C'.
            ITAB-PROCQTY = ITAB-PROCQTY - ITAB_LIPS-POSTQTY.
          ELSEIF ITAB_LIPS-POSTQTY EQ ITAB-PROCQTY.
            ITAB_LIPS-PROCQTY = ITAB_LIPS-POSTQTY.
            ITAB_LIPS-NEWMFRGR = 'C'.
            ITAB-PROCQTY = 0.
          ENDIF.
    Compare the Inbound delivery processing quantity with the pending
    billing quantity to write it in the report log
          IF ITAB_LIPS-POSTQTY LT V_RCVQTY.
            ITAB_LIPS-GRIND = 'D'.            "GR will be created for ID qty
            V_RCVQTY = V_RCVQTY - ITAB_LIPS-POSTQTY.
          ELSEIF ITAB_LIPS-POSTQTY GT V_RCVQTY.
            ITAB_LIPS-GRIND = 'B'.       "GR will be created for Billied qty
            V_RCVQTY = 0.
          ELSEIF ITAB_LIPS-POSTQTY EQ V_RCVQTY.
            ITAB_LIPS-GRIND = 'S'.            "Billed qty is equal to ID qty
            V_RCVQTY = 0.
          ENDIF.
        ELSE.
    Decide why this inbound delivery could not have GR quantity -
    excess GR quantity or unavailable Billing quantity
          IF ITAB-RCVQTY LT ITAB-IDQTY.
            ITAB_LIPS-GRIND = 'C'.      "GR not created - Lack of Billed qty
          ENDIF.
          IF ITAB-RCVQTY LT 0.
            ITAB_LIPS-GRIND = 'A'.       "GR not created - GR qty > Bill qty
          ENDIF.
        ENDIF.
        MODIFY ITAB_LIPS.
        CLEAR ITAB_LIPS.
      ENDLOOP.
    $--"DEVK934135-Begin;-$
      LOOP AT ITAB_LIPS.
        AT NEW EBELP.
          CLEAR ITAB.
          CLEAR V_RCVQTY.
          READ TABLE ITAB WITH KEY EBELN = ITAB_LIPS-EBELN
                                   EBELP = ITAB_LIPS-EBELP BINARY SEARCH.
          V_RCVQTY = ITAB-FKIMG - ITAB-GRQTY.
        ENDAT.
        IF ITAB_LIPS-ERRFA IS INITIAL.
          IF V_RCVQTY EQ 0.
            ITAB_LIPS-ERRF1    = 'X'.
            ITAB_LIPS-NEWMFRGR = 'E'.
            GT_ERROR-RECID = ITAB-RECID.
            GT_ERROR-ERRTX = TEXT-R01.
            APPEND GT_ERROR.
          ELSEIF V_RCVQTY LT 0.
            ITAB_LIPS-ERRF2    = 'X'.
            ITAB_LIPS-NEWMFRGR = 'E'.
            GT_ERROR-RECID = ITAB-RECID.
            GT_ERROR-ERRTX = TEXT-R02.
            APPEND GT_ERROR.
          ELSEIF V_RCVQTY GT 0.
            IF V_RCVQTY EQ ITAB_LIPS-LFIMG.
              ITAB_LIPS-ERRF3    = 'X'.
              ITAB_LIPS-NEWMFRGR = 'C'.
            ELSEIF V_RCVQTY GT ITAB_LIPS-LFIMG.
              ITAB_LIPS-ERRF4    = 'X'.
              ITAB_LIPS-NEWMFRGR = 'C'.
              ITAB_LIPS-PROCQTY  =  ITAB_LIPS-LFIMG.
              GT_ERROR-RECID = ITAB-RECID.
              GT_ERROR-ERRTX = TEXT-R04.
              APPEND GT_ERROR.
            ELSEIF V_RCVQTY LT ITAB_LIPS-LFIMG.
              ITAB_LIPS-ERRF5    = 'X'.
              ITAB_LIPS-NEWMFRGR = 'E'.
              GT_ERROR-RECID = ITAB-RECID.
              GT_ERROR-ERRTX = TEXT-R05.
              APPEND GT_ERROR.
            ENDIF.
          ENDIF.
        ENDIF.
        CLEAR: ITAB_LIPS-BLDAT.
        READ TABLE ITAB WITH KEY EBELN = ITAB_LIPS-VGBEL
                                 EBELP = ITAB_LIPS-VGPOS BINARY SEARCH.
        SELECT SINGLE FKDAT
               FROM  VBRK
               INTO (ITAB_LIPS-BLDAT)
               WHERE VBELN EQ ITAB-IHREZ+0(10).
        CALL FUNCTION 'BAPI_COMPANYCODE_GET_PERIOD'
             EXPORTING
                  COMPANYCODEID = 'C800'
                  POSTING_DATE  =  ITAB_LIPS-BLDAT
             IMPORTING
                  FISCAL_YEAR   =  L0_FISCAL_YEAR
                  FISCAL_PERIOD =  L0_FISCAL_PERIOD
                  RETURN        =  L0_RETURN.
        CALL FUNCTION 'BAPI_COMPANYCODE_GET_PERIOD'
             EXPORTING
                  COMPANYCODEID = 'C800'
                  POSTING_DATE  =  SY-DATLO
             IMPORTING
                  FISCAL_YEAR   =  L1_FISCAL_YEAR
                  FISCAL_PERIOD =  L1_FISCAL_PERIOD
                  RETURN        =  L1_RETURN.
        IF L0_FISCAL_YEAR   EQ L1_FISCAL_YEAR  AND
           L0_FISCAL_PERIOD EQ L1_FISCAL_PERIOD.
          ITAB_LIPS-BUDAT = ITAB_LIPS-BLDAT.
        ELSE.
          ITAB_LIPS-BUDAT = SY-DATLO.
        ENDIF.
        MODIFY ITAB_LIPS.
        CLEAR ITAB_LIPS.
      ENDLOOP.
    $--"DEVK934135-End;---$
    collect all the inbound deliveries for which goods receipt are to be
    made / material freight status  are to be updated
      LOOP AT ITAB_LIPS    WHERE ERRFA IS INITIAL       "DEVK934135
                            AND  ERRFB IS INITIAL       "DEVK934135
                            AND  ERRFC IS INITIAL       "DEVK934135
                            AND  ERRFD IS INITIAL       "DEVK934135
                            AND  ERRFE IS INITIAL       "DEVK934135
                            AND  ERRFF IS INITIAL       "DEVK934135
                            AND  ERRF1 IS INITIAL       "DEVK934135
                            AND  ERRF2 IS INITIAL       "DEVK934135
                            AND  ERRF5 IS INITIAL.      "DEVK934135
        IF ITAB_LIPS-PROCQTY GT 0 AND ITAB_LIPS-LFIMG NE 0.
          ITAB_LIPS_G-VBELN = ITAB_LIPS-VBELN.
          ITAB_LIPS_G-BLDAT = ITAB_LIPS-BLDAT.       "DEVK934135
          ITAB_LIPS_G-BUDAT = ITAB_LIPS-BUDAT.       "DEVK934135
          ITAB_LIPS_G-IHREZ = ITAB_LIPS-IHREZ.       "DEVK934135
          APPEND ITAB_LIPS_G.
        ENDIF.
      ENDLOOP.
      SORT ITAB_LIPS_G BY VBELN.
      DELETE ADJACENT DUPLICATES FROM ITAB_LIPS_G.
      LOOP AT ITAB_LIPS    WHERE NOT ERRFA IS INITIAL       "DEVK934135
                            OR   NOT ERRFB IS INITIAL       "DEVK934135
                            OR   NOT ERRFC IS INITIAL       "DEVK934135
                            OR   NOT ERRFD IS INITIAL       "DEVK934135
                            OR   NOT ERRFE IS INITIAL       "DEVK934135
                            OR   NOT ERRFF IS INITIAL       "DEVK934135
                            OR   NOT ERRF1 IS INITIAL       "DEVK934135
                            OR   NOT ERRF2 IS INITIAL       "DEVK934135
                            OR   NOT ERRF3 IS INITIAL       "DEVK934135
                            OR   NOT ERRF4 IS INITIAL       "DEVK934135
                            OR   NOT ERRF5 IS INITIAL.      "DEVK934135
          ITAB_LIPS_X-VBELN = ITAB_LIPS-VBELN.
          ITAB_LIPS_X-BLDAT = ITAB_LIPS-BLDAT.       "DEVK934135
          ITAB_LIPS_X-BUDAT = ITAB_LIPS-BUDAT.       "DEVK934135
          ITAB_LIPS_X-IHREZ = ITAB_LIPS-IHREZ.       "DEVK934135
          APPEND ITAB_LIPS_X.
      ENDLOOP.
      SORT ITAB_LIPS_X BY VBELN.
      DELETE ADJACENT DUPLICATES FROM ITAB_LIPS_X.
      LOOP AT ITAB_LIPS.
          READ TABLE ITAB WITH KEY RECID = ITAB_LIPS-RECID.
          SY_COPY-INDEX = SY-TABIX.
          IF SY-SUBRC EQ 0.
            ITAB-ERRFA = ITAB_LIPS-ERRFA.
            ITAB-ERRFB = ITAB_LIPS-ERRFB.
            ITAB-ERRFC = ITAB_LIPS-ERRFC.
            ITAB-ERRFD = ITAB_LIPS-ERRFD.
            ITAB-ERRFE = ITAB_LIPS-ERRFE.
            ITAB-ERRFF = ITAB_LIPS-ERRFF.
            ITAB-ERRF1 = ITAB_LIPS-ERRF1.
            ITAB-ERRF2 = ITAB_LIPS-ERRF2.
            ITAB-ERRF3 = ITAB_LIPS-ERRF3.
            ITAB-ERRF4 = ITAB_LIPS-ERRF4.
            ITAB-ERRF5 = ITAB_LIPS-ERRF5.
            MODIFY ITAB INDEX SY_COPY-INDEX.
          ENDIF.
      ENDLOOP.
    Decide the goods receipt item number for the delivery items that are
    to be processed. Delivery items with zero quantities are not shown up
    in MB0A transaction for GR
      CLEAR V_DEL_ZERO.
      IF NOT ITAB_LIPS_G[] IS INITIAL.
        SELECT VBELN POSNR LFIMG
                  INTO CORRESPONDING FIELDS OF TABLE ITAB_LIPS_Z FROM LIPS
                                  FOR ALL ENTRIES IN ITAB_LIPS_G
                                  WHERE VBELN = ITAB_LIPS_G-VBELN
                                  AND LFIMG EQ 0.
        IF SY-SUBRC EQ 0.
          V_DEL_ZERO = 'X'.
          CLEAR ITAB_LIPS_Z.
          FREE ITAB_LIPS_Z.
          SELECT VBELN POSNR LFIMG
                   INTO CORRESPONDING FIELDS OF TABLE ITAB_LIPS_Z FROM LIPS
                                    FOR ALL ENTRIES IN ITAB_LIPS_G
                                    WHERE VBELN = ITAB_LIPS_G-VBELN.
          SORT ITAB_LIPS_Z BY VBELN POSNR.
          LOOP AT ITAB_LIPS_Z.
            AT NEW VBELN.
              CLEAR V_ZEILE.
            ENDAT.
            IF ITAB_LIPS_Z-LFIMG NE 0.
              V_ZEILE = V_ZEILE + 1.
            ENDIF.
            ITAB_LIPS_Z-ZEILE = V_ZEILE.
            MODIFY ITAB_LIPS_Z.
          ENDLOOP.
        ELSE.
          V_DEL_ZERO = ' '.
        ENDIF.
      ENDIF.
      SORT ITAB_LIPS_Z BY VBELN POSNR.
      LOOP AT ITAB_LIPS.
        IF V_DEL_ZERO = ' '.
          ITAB_LIPS-ZEILE = ITAB_LIPS-POSNR.
        ELSE.
          CLEAR ITAB_LIPS_Z.
          READ TABLE ITAB_LIPS_Z WITH KEY VBELN = ITAB_LIPS-VBELN
                                    POSNR = ITAB_LIPS-POSNR BINARY SEARCH.
          ITAB_LIPS-ZEILE = ITAB_LIPS_Z-ZEILE.
        ENDIF.
        MODIFY ITAB_LIPS.
      ENDLOOP.
      SORT ITAB_LIPS BY VBELN DESCENDING POSNR ASCENDING.
    ENDFORM.                    " 220_PROCESS_DATA
    *&      Form  300_post_documents
    FORM 300_POST_DOCUMENTS.
      LOOP AT ITAB_LIPS_G.
        PERFORM 310_POST_GR_DOC.
        MODIFY ITAB_LIPS_G.
        CLEAR ITAB_LIPS_G.
      ENDLOOP.
      CLEAR: BDCDATA, BDCDATA[].
      ITAB_LIPS_R[] = ITAB_LIPS_G[].
      ITAB_LIPS_G[] = ITAB_LIPS_X[].
      LOOP AT ITAB_LIPS_G.
        PERFORM 350_UPDATE_DELIVERY_DOC.
        MODIFY ITAB_LIPS_G.
        CLEAR ITAB_LIPS_G.
      ENDLOOP.
    PERFORM close_group.
    ENDFORM.                    " 300_post_documents
    *&      Form  310_POST_GR_DOC
    FORM 310_POST_GR_DOC.
      PERFORM 320_POST_GR_HEADER.
      LOOP AT ITAB_LIPS WHERE VBELN = ITAB_LIPS_G-VBELN
                        AND   LFIMG NE 0
                        AND PROCQTY NE 0
                        AND ERRFA   IS INITIAL
                        AND ERRFB   IS INITIAL
                        AND ERRFC   IS INITIAL
                        AND ERRFD   IS INITIAL
                        AND ERRFE   IS INITIAL
                        AND ERRFF   IS INITIAL
                        AND ERRF1   IS INITIAL
                        AND ERRF2   IS INITIAL
                        AND ERRF5   IS INITIAL.
        IF ITAB_LIPS-ZEILE EQ 1.
          PERFORM 335_POST_GR_ITEMS.
        ELSE.
          PERFORM 330_POST_GR_ITEMS.
        ENDIF.
      ENDLOOP.
      PERFORM 340_SAVE_GR_DOC.
    ENDFORM.                    " 310_POST_GR_DOC
    *&      Form  320_POST_GR_HEADER
    FORM 320_POST_GR_HEADER.
      DATA: L_BLDAT    TYPE SYDATUM,
            L_BUDAT    TYPE SYDATUM.
      WRITE: ITAB_LIPS_G-BLDAT TO L_BLDAT,
             ITAB_LIPS_G-BUDAT TO L_BUDAT.
      IF ITAB_LIPS_G-IHREZ+0(10) NE '0000000000'  AND
         ITAB_LIPS_G-IHREZ+0(10) NE '          '.
        WHILE ITAB_LIPS_G-IHREZ+0(1) EQ '0'.
          SHIFT ITAB_LIPS_G-IHREZ.
        ENDWHILE.
      ENDIF.
      perform bdc_dynpro      using 'SAPMM07M' '0201'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'RM07M-VLIEF'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '/00'.
      PERFORM BDC_FIELD       USING 'MKPF-BKTXT'
                                    ITAB_LIPS_G-IHREZ.
      perform bdc_field       using 'MKPF-BLDAT'
                                    L_BLDAT.
      perform bdc_field       using 'MKPF-BUDAT'
                                    L_BUDAT.
      perform bdc_field       using 'RM07M-BWARTWE'
                                    '101'.
      perform bdc_field       using 'RM07M-WERKS'
      perform bdc_field       using 'RM07M-LGORT'
      perform bdc_field       using 'RM07M-XNUVO'
                                    'X'.
      perform bdc_field       using 'XFULL'
      perform bdc_field       using 'RM07M-VLIEF'
                                    ITAB_LIPS_G-VBELN.
      perform bdc_dynpro      using 'SAPMM07M' '0221'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=SELN'.
      perform bdc_dynpro      using 'SAPMM07M' '0221'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'MSEG-ERFMG(01)'.
    ENDFORM.                    " 320_POST_GR_HEADER
    *&      Form  330_POST_GR_ITEMS
    FORM 330_POST_GR_ITEMS.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=KLA'.
      perform bdc_dynpro      using 'SAPMM07M' '1501'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=OK'.
      VV_ZEILE = ITAB_LIPS-ZEILE.
      PERFORM BDC_FIELD       USING 'RM07M-ZEILE'
                                    VV_ZEILE.
      perform bdc_dynpro      using 'SAPMM07M' '0221'.
      perform bdc_field       using 'RM07M-XSELK(01)'
                                    'X'.
      VV_PROCQTY = ITAB_LIPS-PROCQTY.
      perform bdc_field       using 'MSEG-ERFMG(01)'
                                    VV_PROCQTY.
      perform bdc_field       using 'MSEG-CHARG(01)'
                                    ITAB_LIPS-CHARG.
      perform bdc_field       using 'MSEG-INSMK(01)'
                                    'S'.
    ENDFORM.                    " 330_POST_GR_ITEMS
    *&      Form  340_SAVE_GR_DOC
    FORM 340_SAVE_GR_DOC.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=BU'.
      CLEAR V_FAIL_IND.
      PERFORM BDC_TRANSACTION USING 'MB0A'
                              CHANGING V_FAIL_IND.
    ENDFORM.                    " 340_SAVE_GR_DOC
    *&      Form  350_UPDATE_DELIVERY_DOC
    FORM 350_UPDATE_DELIVERY_DOC.
      PERFORM 360_UPDATE_DELIVERY_HEADER.
      LOOP AT ITAB_LIPS WHERE VBELN = ITAB_LIPS_G-VBELN
                         AND  ERRFA IS INITIAL
                         AND  ERRFB IS INITIAL
                         AND  ERRFC IS INITIAL.
                       AND  errfd IS INITIAL
                       AND  errfe IS INITIAL.
        PERFORM 370_UPDATE_DELIVERY_ITEMS.
      ENDLOOP.
      PERFORM 380_SAVE_DELIVERY_DOC.
    ENDFORM.                    " 350_UPDATE_DELIVERY_DOC
    *&      Form  360_UPDATE_DELIVERY_HEADER
    FORM 360_UPDATE_DELIVERY_HEADER.
      perform bdc_dynpro      using 'SAPMV50A' '0108'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'LIKP-VBELN'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=UELA'.
      perform bdc_field       using 'LIKP-VBELN'
                                    ITAB_LIPS_G-VBELN.
    ENDFORM.                    " 360_UPDATE_DELIVERY_HEADER
    *&      Form  370_UPDATE_DELIVERY_ITEMS
    FORM 370_UPDATE_DELIVERY_ITEMS.
      IF ITAB_LIPS-ERRFD EQ 'X'  OR
         ITAB_LIPS-ERRFE EQ 'X'  OR
         ITAB_LIPS-ERRFF EQ 'X'.
        ITAB_LIPS-NEWMFRGR = 'E'.
      ENDIF.
      perform bdc_dynpro      using 'SAPMV50A' '0270'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'RV50A-VERUR_LA'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=POPO'.
      perform bdc_dynpro      using 'SAPMV50A' '0111'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'RV50A-POSNR'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=POPO'.
      VV_POSNR =  ITAB_LIPS-POSNR.
      perform bdc_field       using 'RV50A-POSNR'
                                    VV_POSNR.
      perform bdc_dynpro      using 'SAPMV50A' '0270'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'LIPS-POSNR(01)'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=LAPD'.
      perform bdc_field       using 'RV50A-LIPS_SELKZ(01)'
                                    'X'.
      perform bdc_dynpro      using 'SAPMV50A' '0570'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'LIPS-MFRGR'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=BACK'.
      perform bdc_field       using 'LIPS-MFRGR'
                                    ITAB_LIPS-NEWMFRGR.
    ENDFORM.                    " 370_UPDATE_DELIVERY_ITEMS
    *&      Form  380_SAVE_DELIVERY_DOC
    FORM 380_SAVE_DELIVERY_DOC.
      perform bdc_dynpro      using 'SAPMV50A' '0270'.
      perform bdc_field       using 'BDC_CURSOR'
                                    'RV50A-VERUR_LA'.
      perform bdc_field       using 'BDC_OKCODE'
                                    '=SICH'.
    If GR document is not posted successfully, then do not update the
    status of delivery document
      CLEAR V_FAIL_IND.
      PERFORM BDC_TRANSACTION USING 'VL32'
                              CHANGING V_FAIL_IND.
      IF V_FAIL_IND = 'X'.
        CALL FUNCTION 'BDC_INSERT'
             EXPORTING
                  TCODE     = 'VL32'
             TABLES
                  DYNPROTAB = BDCDATA.
        REFRESH BDCDATA.
      ENDIF.
    ENDFORM.                    " 380_SAVE_DELIVERY_DOC
           Start new transaction according to parameters                 *
    FORM BDC_TRANSACTION USING TCODE
                         CHANGING V_FAILURE_IND.
      DATA: L_MSTRING(480).
      DATA: L_SUBRC LIKE SY-SUBRC.
      REFRESH MESSTAB.
      CALL TRANSACTION TCODE USING BDCDATA
                       MODE   CTUMODE
                       UPDATE CUPDATE
                       MESSAGES INTO MESSTAB.
      L_SUBRC = SY-SUBRC.
      CLEAR V_FAILURE_IND.
      IF L_SUBRC NE 0.
        V_FAILURE_IND = 'X'.
        CLEAR V_IND.
        LOOP AT MESSTAB.
          SELECT SINGLE * FROM T100 WHERE SPRSL = MESSTAB-MSGSPRA
                                    AND   ARBGB = MESSTAB-MSGID
                                    AND   MSGNR = MESSTAB-MSGNR.
          IF SY-SUBRC = 0.
            L_MSTRING = T100-TEXT.
            IF L_MSTRING CS '&1'.
              REPLACE '&1' WITH MESSTAB-MSGV1 INTO L_MSTRING.
              REPLACE '&2' WITH MESSTAB-MSGV2 INTO L_MSTRING.
              REPLACE '&3' WITH MESSTAB-MSGV3 INTO L_MSTRING.
              REPLACE '&4' WITH MESSTAB-MSGV4 INTO L_MSTRING.
            ELSE.
              REPLACE '&' WITH MESSTAB-MSGV1 INTO L_MSTRING.
              REPLACE '&' WITH MESSTAB-MSGV2 INTO L_MSTRING.
              REPLACE '&' WITH MESSTAB-MSGV3 INTO L_MSTRING.
              REPLACE '&' WITH MESSTAB-MSGV4 INTO L_MSTRING.
            ENDIF.
            CONDENSE L_MSTRING.
            IF MESSTAB-MSGTYP = 'E'.
              ERRORTAB-TCODE       = TCODE.
              ERRORTAB-VBELN       = ITAB_LIPS_G-VBELN.
              ERRORTAB-ERROR_TEXT  = L_MSTRING.
              APPEND ERRORTAB.
              V_IND = 'X'.
            ENDIF.
          ELSE.
            IF MESSTAB-MSGTYP = 'E'.
              ERRORTAB-TCODE       = TCODE.
              ERRORTAB-VBELN       = ITAB_LIPS_G-VBELN.
              ERRORTAB-ERROR_TEXT  = TEXT-U01.
              APPEND ERRORTAB.
              V_IND = 'X'.
            ENDIF.
          ENDIF.
        ENDLOOP.
        IF V_IND IS INITIAL.
          ERRORTAB-TCODE       = TCODE.
          ERRORTAB-VBELN       = ITAB_LIPS_G-VBELN.
          ERRORTAB-ERROR_TEXT  = TEXT-U01.
          APPEND ERRORTAB.
        ENDIF.
      ELSE.
        IF TCODE = 'MB0A'.
          LOOP AT MESSTAB WHERE MSGTYP = 'S'
                          AND   MSGID = 'M7'
                          AND   MSGNR = '060'.
            IF NOT MESSTAB-MSGV1 IS INITIAL.
              ITAB_LIPS_G-MBLNR = MESSTAB-MSGV1.
            ENDIF.
          ENDLOOP.
        ELSEIF TCODE = 'VL32'.
          ITAB_LIPS_G-DLVIND = 'X'.
        ENDIF.
      ENDIF.
      IF L_SUBRC <> 0 AND E_GROUP <> SPACE.
        IF E_GROUP_OPENED = ' '.
          CALL FUNCTION 'BDC_OPEN_GROUP'
               EXPORTING
                    CLIENT   = SY-MANDT
                    GROUP    = E_GROUP
                    USER     = E_USER
                    KEEP     = E_KEEP
                    HOLDDATE = E_HDATE.
          E_GROUP_OPENED = 'X'.
        ENDIF.
        CALL FUNCTION 'BDC_INSERT'
             EXPORTING
                  TCODE     = TCODE
             TABLES
                  DYNPROTAB = BDCDATA.
      ENDIF.
      REFRESH BDCDATA.
    ENDFORM.
    *&      Form  335_POST_GR_ITEMS
    FORM 335_POST_GR_ITEMS.
      VV_ZEILE = ITAB_LIPS-ZEILE.
      perform bdc_field       using 'RM07M-XSELK(01)'
                                    'X'.
      VV_PROCQTY = ITAB_LIPS-PROCQTY.
      perform bdc_field       using 'MSEG-ERFMG(01)'
                                    VV_PROCQTY.
      perform bdc_field       using 'MSEG-CHARG(01)'
                                    ITAB_LIPS-CHARG.
      perform bdc_field       using 'MSEG-INSMK(01)'
                                    'S'.
    ENDFORM.                    " 335_POST_GR_ITEMS
    *&      Form  399_RETRIEVE_DOCUMENTS
    &----

    that is a warning message only ... But if you want to fix it then replace all 000 with 001 in your write statement. The position instead of 000 you have to give 001
    write : /000(10)....instead of this
    write : /1(10) or write : /(10) or write : /001(10) any thing you can use.
    regards
    shiba dutta

  • ITS VERY URGENT HEAVY ERROR GOT IN LIVE SERVER

    DEAR EXPERTS,
    WHILE EXECUTION OF QUERY I GOT ERROR AT LIVE SERVER.
    An Oracle ORA-00600 [729] : indicates a memory leak in the UGA. Setting diagnostic events 10262 ignores this error, that is, no ORA-00600 is produced even if a memory leak is detected.
    ORA-00600 [16365] : indicates a Half Duplex Violation. Shared servers and dispatchers cannot both be writing to the same virtual curcuit at the same time because they communicate with a half-duplex protocol (TTC protocol).
    ORA-00600 [kghpih:ds] : and ORA-00600 [17175] may occur in oracle 9.2.0.6 when two processes work on the same library cache object. fixed in oracle 9.2.0.7.. Note:300604.1
    An Oracle ORA-00600 [3020] : Bug.2322620 - RECOVERY HALTED ON PHYSICAL STANDBY WITH ORA-600 AND ORA-10564 Details: ORA-600 [3020] can occur on recovery of LOB data.Fixed in 8.1.7.5 PAtch available. This error occurred on our database recovery on the primary server.
    ora-00600 [12333] : Most probably a network error that may have caused bad data to be received or the client application may have sent the wrong data in the network buffer.
    Oracle ORA-00600 [12700] : Indicates corruption in index, table or the mapping between them. Upon this discovery, oracle marks the whole block as corrupt and users will not have normal access to the data from the corrupted block. This can also break referntial integrity and should be referred to oracle.
    ORA-00600 [lxhcsn] : Shutdown may dump ORA-7445. Known Bug 2311529

    As said earlier, you need to purchase the Oracle software and have the support contract with the Oracle support. Then you get the registration details to metalink.
    Is your live server where error happend is not under oracle support contract?

  • Hi all..very urgent..error fixing..

    Hi i am running a program in ECC 6.0...its going for short dump..The possibilty of going for short dumb wud be here in the following code..kindly lookinto this in ECC 6.0..full marks wud be given
    -->  p1        text
    <--  p2        text
    FORM BUILD_HEADER_CATALOG_03.
      REFRESH: EVENTCAT.
      CLEAR EVENTCAT_LN.
      EVENTCAT_LN-NAME = 'TOP_OF_PAGE'.
      EVENTCAT_LN-FORM = 'TOP_OF_PAGE_01'.
      APPEND EVENTCAT_LN TO EVENTCAT.
    ENDFORM.                    " BUILD_HEADER_CATALOG_03
    *&      Form  BUILD_FIELD_CATALOGS_03
          text
    -->  p1        text
    <--  p2        text
    FORM BUILD_FIELD_CATALOGS_03.
      REFRESH: I_FIELDCAT.
    material
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'MATNR'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Material'.
      V_FIELDCAT_LN-REF_TABNAME   = 'S947'.
      V_FIELDCAT_LN-DDICTXT       = 'L'.
      V_FIELDCAT_LN-OUTPUTLEN     = 19.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    red/stop light icon
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'ICON1'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = ' '.
      V_FIELDCAT_LN-ICON          = 'X'.
      V_FIELDCAT_LN-OUTPUTLEN     = 2.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    yellow light icon
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'ICON2'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = ' '.
      V_FIELDCAT_LN-ICON          = 'X'.
      V_FIELDCAT_LN-OUTPUTLEN     = 2.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    mvgr2
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'MVGR2'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Dept.'.
      V_FIELDCAT_LN-REF_TABNAME   = 'MVKE'.
      V_FIELDCAT_LN-DDICTXT       = 'L'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-NO_OUT        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    mvgr3
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'MVGR3'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Class'.
      V_FIELDCAT_LN-REF_TABNAME   = 'MVKE'.
      V_FIELDCAT_LN-DDICTXT       = 'L'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-NO_OUT        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    mvgr4
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'MVGR4'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Sub-class'.
      V_FIELDCAT_LN-REF_TABNAME   = 'MVKE'.
      V_FIELDCAT_LN-DDICTXT       = 'L'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-NO_OUT        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    reference unit of measure
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'MEINS'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-DDICTXT       = 'L'.
      V_FIELDCAT_LN-OUTPUTLEN     = 3.
      V_FIELDCAT_LN-NO_OUT        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    allocation month 1
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'ALLOCATION1'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Alloc.'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    booked qty month 1
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'BOOKED1'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Booked'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    diffirence qty month 1
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'DIFFERENCE1'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Diff'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    rejected qty month 1
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'REJECTED1'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Rej.'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    allocation month 2
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'ALLOCATION2'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Alloc.'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    booked qty month 2
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'BOOKED2'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Booked'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    diffirence qty month 2
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'DIFFERENCE2'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Diff'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    rejected qty month 2
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'REJECTED2'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Rej.'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    allocation month 3
      V_FIELDCAT_LN-FIELDNAME     = 'ALLOCATION3'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Alloc.'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    booked qty month 3
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'BOOKED3'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Booked'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    diffirence qty month 3
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'DIFFERENCE3'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Diff'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    rejected qty month 3
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'REJECTED3'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Rej.'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 6.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    total allocation
      V_FIELDCAT_LN-FIELDNAME     = 'TOTAL_ALLOCATION'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Alloc.'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 7.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    total booked
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'TOTAL_BOOKED'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Booked'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 7.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    total difference
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'TOTAL_DIFFERENCE'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Diff'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 7.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    total rejected
      CLEAR: V_FIELDCAT_LN.
      V_FIELDCAT_LN-FIELDNAME     = 'TOTAL_REJECTED'.
      V_FIELDCAT_LN-TABNAME       = 'REPORT_03'.
      V_FIELDCAT_LN-SELTEXT_L     = 'Rej.'.
      V_FIELDCAT_LN-QFIELDNAME    = 'MEINS'.
      V_FIELDCAT_LN-REF_TABNAME   = 'VBAP'.
      V_FIELDCAT_LN-REF_FIELDNAME = 'KWMENG'.
      V_FIELDCAT_LN-QTABNAME      = 'REPORT_03'.
      V_FIELDCAT_LN-OUTPUTLEN     = 7.
      V_FIELDCAT_LN-JUST          = 'C'.
      V_FIELDCAT_LN-NO_ZERO       = 'X'.
      V_FIELDCAT_LN-DO_SUM        = 'X'.
      APPEND V_FIELDCAT_LN TO I_FIELDCAT.
    sort 1
      REFRESH: I_SORT.
      CLEAR: H_SORT.
      H_SORT-SPOS      = 1.
      H_SORT-FIELDNAME = 'MVGR2'.
      H_SORT-TABNAME   = 'REPORT_03'.
      H_SORT-UP        = 'X'.
      H_SORT-SUBTOT    = 'X'.
      APPEND H_SORT TO I_SORT.
      CLEAR: H_SORT.
      H_SORT-SPOS      = 2.
      H_SORT-FIELDNAME = 'MVGR3'.
      H_SORT-TABNAME   = 'REPORT_03'.
      H_SORT-UP        = 'X'.
      H_SORT-SUBTOT    = 'X'.
      APPEND H_SORT TO I_SORT.
      CLEAR: H_SORT.
      H_SORT-SPOS      = 3.
      H_SORT-FIELDNAME = 'MVGR4'.
      H_SORT-TABNAME   = 'REPORT_03'.
      H_SORT-UP        = 'X'.
      H_SORT-SUBTOT    = 'X'.
      APPEND H_SORT TO I_SORT.
      CLEAR: H_SORT.
      H_SORT-SPOS      = 4.
      H_SORT-FIELDNAME = 'MATNR'.
      H_SORT-TABNAME   = 'REPORT_03'.
      H_SORT-UP        = 'X'.
      H_SORT-SUBTOT    = ''.
      H_SORT-GROUP     = ''.
      APPEND H_SORT TO I_SORT.
    ENDFORM.                    " BUILD_FIELD_CATALOGS_03
    *&      Form  PERFORM_ALV_03
          text
    -->  p1        text
    <--  p2        text
    FORM PERFORM_ALV_03.
    layouts
      G_REPID = SY-REPID.
      LAYOUT-ZEBRA                = 'X'.
      LAYOUT-COLWIDTH_OPTIMIZE    = ''.
      LAYOUT-BOX_TABNAME          = '1'.
      LAYOUT-GET_SELINFOS         = 'X'.
      LAYOUT-DETAIL_POPUP         = 'X'.
      LAYOUT-NO_SUBTOTALS         = ''.
      LAYOUT-GROUP_CHANGE_EDIT    = 'X'.
      PRINT-NO_PRINT_SELINFOS     = ''.
      PRINT-NO_PRINT_LISTINFOS    = ''.
    Output a simple list (single line or several lines)
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
        EXPORTING
          I_CALLBACK_PROGRAM       = G_REPID
          IS_LAYOUT                = LAYOUT
          I_CALLBACK_PF_STATUS_SET = G_STATUS2
          I_CALLBACK_USER_COMMAND  = G_USER_COMMAND_01
          IT_FIELDCAT              = I_FIELDCAT
          I_DEFAULT                = 'X'
          I_SAVE                   = 'A'
          IT_EVENTS                = EVENTCAT
          IS_PRINT                 = PRINT
          IT_SORT                  = I_SORT[]
        TABLES
          T_OUTTAB                 = REPORT_03
        EXCEPTIONS
          PROGRAM_ERROR            = 1
          OTHERS                   = 2.
    ENDFORM.                    " PERFORM_ALV_03

    Hi Sahil,
       If you see in dumb screen, you can fix the exact line of code.
    Can you tell the line.
    Note: An arrow mark will be pointing your code where error occured and the description also will be there.
    Thanks,
    Rajesh

  • Very Urgent: Apexlib error ora-00900 invalid sql statement

    Hi,
    If i'm opening a page where there are LOV I get the strange error in the debug mode. Has it perhaps anything to do with grants?
    pls help asap if you can
    Read report column mapping(ApexLib_TabForm.init)
    ...processing Interface execution selection
    ...ignore validation = NO
    Get column list(ApexLib_Sql.getColumnList)
    ...parse query = 獥汥捴 䥎呅剆䅃䕟䑁呅Ⰺ䥎呅剆䅃䕟䑁呅⁉乔䕒䙁䍅彄䅔䕟䑉卐䱁夬ੈ佒䥚低彂䰬੆䕐彂䰊晲潭⁆䕐彉乔䕒䙁䍅彃䅌䕎䑁刊睨敲攠楮瑥牦慣敟摡瑥整睥敮慳瑟摡礨慤摟浯湴桳⡴潟摡瑥⠺倱㥟捡汥湤慲彤慴攬❙奙奍䵄䐧⤬ⴱ⤩⬱⁁乄⁌慳瑟摡礨瑯彤慴攨㩐ㄹ彣慬敮摡牟摡瑥Ⱗ奙奙䵍䑄✩⤊潲摥爠批‱਀
    ORA-00900: invalid SQL statement

    Hi Irvine74,
    for ApexLib problems it's better to use the related SourceForge support forum at http://sourceforge.net/forum/?group_id=184339 , because I'm not always monitoring the OTN forum.
    Are you only getting the error in debug mode?
    Is your report query on that page a valid SQL statement?
    If you comment out the PL/SQL code with /* */ (don't forget to add a NULL; statement at the end to have a valid region) on page 0 "ApexLib - Before footer", are you now getting an error from APEX that the statement isn't valid?
    Patrick
    My APEX Blog: http://inside-apex.blogspot.com
    The ApexLib Framework: http://apexlib.sourceforge.net
    The APEX Builder Plugin: http://sourceforge.net/projects/apexplugin/

  • VERY URGENT METADATA ERROR

    Hi there.
    We are trying to insert values into the user_sdo_geom_metadata view – into the columns table_name,column_name,diminfo,srid.
    These are the only columns in the view. The mdsys.sdo_geom_metadata_table has all the above columns and sdo_owner.
    It is my understanding that the view updates the mdsys.sdo_geom_metadata_table and inserts the sdo_owner that it gets from sys_context.
    This worked fine until a few days ago.
    The problem is that when we are trying to insert into user_sdo_geom_metadata it returns ‘nulls cannot be inserted into sdo_owner’
    Is it possible that that sys_context have something to do with the problem.
    Thanks in advance

    I get the user name of mu schema.
    I tried inserting the same statement but still recieve the same error
    Thanks for the reply

  • Very Urgent: UDC Error in BI datasource preview

    Hi All,
        My requirement is to extract the data from the legacy system i.e. Sybase 12.5 using UDC to SAP BI 7.0. We have established UDC connection, created view and BI 7.0 datasource. The user has all the access i.e. select, dbo access for the view. While datasource creation I have selected UDC source object from the Sybase, used default system proposed fields and activated the datasource. When I try to check the data in the preview, I am getting following message in the status bar:
    S:RSSDK:300 Query execution failed: "DB name"."dbo"."VIEW1" not found. Specify owner.objectname or use sp help to check whether the object exists (sphelp may produce lots of output). I have checked in the URL http://<hostname>:port/TestJDBC_Web/TestJDBCPage.jsp before preview, it worked fine and showed all the table names and data in tables.
    By same username I have logged in Sybase and ran created view, which extracted data without any problems.
    We have followed same procedure for creation of connections, views and datasources for SQL server, it is working fine without any issues. We have problem only with Sybase system. Would anyone help me in resolving this issue. ******Gurantee of award points********
    Regards
    Eric.

    Hi All,
        Any ideas or thoughts on this issue, I greatly apprecaite your time and help.
    Thanks,
    Eric.

  • General Error when Doing Export

    I'm getting a "General Error" when exporting a sequence, both as a reference QuickTime and as a self-contained QuickTime file. The process goes along until a certain percentage (73%), and then it bails, and gives this not-very-specific "General Error" message.
    I've gone into the timeline and figured what I think is 73% of the timeline, and taken a look at the media at that point, which happens to be a Motion project brought into FCP as a .mov. I've pulled out the Motion project files, re-exported it out of Motion, and put the project back in.
    I've also repaired permissions, run Disk Warrior, gone from 10.4.9 > 10.4.10, and up'd my QuickTime version to 7.2.0 (Pro).
    I'm using FCP 5.1.4, with Motion 2.1.2
    I'm not sure what else to try, or what else to consider.

    Hi,
    I am also having the same "General Error" message when i am trying to export a sequence that have the setting of HDV720p30 to a QT movie using export to Quicktime Movie>using the Current Settings on the Export tab.
    This project is a concert i shot with 4 cameras. I have 4 sequences for the different camera angles and since there are three tapes, i had to line them together on each of their sequence and export them to be a self contained QT movie. I am using the export to Quicktime after right clicking on the sequence.
    After that i was going to import them onto FCP Project and then multiclip edit the concert. I just love Multiclip editing.
    I am able to export 1 of the 4 angles have and ran into this General Errorr Message.
    I have tried making a new sequence, i have also tried using compressor but did not have the patience of waiting 10 hours to export the movie and also i didn't want to see the general error message at the end of the export so i came to ask any FCP Guru out there that can guide me. thanks.

  • Error while opening a module. plz help me, very urgent.

    when i try to open a module, the following error message appears on my screen.
              " no j2ee component found in d:\krisp\programs\servlets".
              i've installed bea in c: drive and my servlet program is in d: drive.
              plz help me, it's very urgent.

    Can you provide some more information? What were you doing when this happened?
              Can you post the entire error message?
              -- Rob
              WLS Blog http://dev2dev.bea.com/blog/rwoollen/

  • Very urgent: Travel Request Error in production server

    Hi All,
    While creating Travel request in production server, we are getting an error..
    Error while writing to the database PTRV_HEAD/PTRV_PERIO/Cluster TE
    Someone please help me on this. This is very urgent..
    Thanks in advance!

    Solved..by setting up trip number ranges..
    Thanks!

  • Error during GR(very very urgent)

    Hi all,
    i am using a developed program for GR.i used this program before.there was no error.but now i am facing error like
    <b>PO ordered quqntity exceeded by 18,000 EA.</b>.i am using <b>BAPI_GOODSMVT_CREATE</b> for goods transfer.
    In the selection screen, i am putting
    PO number- PO1
    material number- MAT
    GR quantity- 18,000
    delivery order-111
    i want to receive the material MAT of quantity 18,000 from that PO.initially i have ordered PO quntity as 1 lakh. Till now i have received 42,000 materials,now i try to receive 18,000 materials.but it is showing this type of error.
    This error is fired from the return parameter of that BAPI only.error having message class-M7 & error no-022
    is comming.
    i am giving my coding below.plz suggest where is the problem.it is very very urgent.recently my company has added some patches to update the SAP.is this the cause for that error.plz suggest.
    any idea will be highly appreaciated.
    Regards
    REPORT zmui001
           LINE-SIZE 140
           LINE-COUNT 65
           NO STANDARD PAGE HEADING.
    *-- DATA DECLARATION--
    *-- tables
    TABLES : ekpo,
                ekbe,
             marv.
    *--Includes
    INCLUDE : <icon>.                   " Include for Icons
    *-- Types
    TYPES : BEGIN OF t_mseg,
              ebeln LIKE ekko-ebeln,
              name1 LIKE lfa1-name1,
              lifnr LIKE lfa1-lifnr,
              eknam LIKE t024-eknam,
              mblnr LIKE mkpf-mblnr,
              matnr LIKE ekpo-matnr,
              maktx LIKE makt-maktx,
              lgort LIKE mseg-lgort,
              charg LIKE mseg-charg, "chg: 10/17/2005
              menge LIKE mseg-menge,
              budat LIKE mkpf-budat,
              bldat LIKE mkpf-bldat, " chg : 08/18/2003
              xblnr LIKE mkpf-xblnr,
              END OF t_mseg.
    DATA:  BEGIN OF t_ekbe,
              ebeln LIKE ekbe-ebeln,
              ebelp LIKE ekbe-ebelp,
              bwart LIKE ekbe-bwart,
              matnr LIKE ekbe-matnr,
              menge LIKE ekbe-menge,
              END OF t_ekbe,
              BEGIN OF t_ekpo,
              ebeln LIKE ekpo-ebeln,
              ebelp LIKE ekpo-ebelp,
              matnr LIKE ekpo-matnr,
              menge LIKE ekpo-menge,
              END OF t_ekpo.
    TYPES : BEGIN OF t_options.
            INCLUDE STRUCTURE itcpo.
    TYPES : END OF t_options.
    *--Internal tables
    DATA: BEGIN OF i_item OCCURS 50.    "Create Material Document Item
            INCLUDE STRUCTURE bapi2017_gm_item_create.
    DATA: END OF i_item .
    DATA: BEGIN OF i_return OCCURS 20.  "Return parameter
            INCLUDE STRUCTURE bapiret2.
    DATA: END OF i_return.
    DATA: BEGIN OF i_part OCCURS 0,     " Internal table for split data
            part(20),
          END OF i_part.
    DATA: BEGIN OF i_return1 OCCURS 20.  "Return parameter
            INCLUDE STRUCTURE bapiret1.
    DATA: END OF i_return1.
    *-- Work areas
    DATA: BEGIN OF wa_header .       "Material Document Header Data
            INCLUDE STRUCTURE bapi2017_gm_head_01.
    DATA: END OF wa_header .
    DATA: BEGIN OF wa_return .       "Output Structure
            INCLUDE STRUCTURE bapi2017_gm_head_ret.
    DATA: END OF wa_return .
    *-- Work areas
    DATA: wa_mseg TYPE t_mseg,
             wa_ekbe LIKE t_ekbe,
             wa_ekpo  LIKE t_ekpo,
          wa_options TYPE t_options,
           i_ekbe LIKE STANDARD TABLE OF  t_ekbe,
            i_ekbe2 LIKE STANDARD TABLE OF  t_ekbe,
           i_ekpo  LIKE STANDARD TABLE OF  t_ekpo.
    *---Variables
    DATA: v_first,         " variable to get first digit
          v_set TYPE c,
          v_found TYPE p,
          v_menge TYPE p,
          v_ebeln LIKE ekko-ebeln,
          v_lifnr LIKE ekko-lifnr,
          v_belnr LIKE ekbe-belnr,
          v_postdate LIKE mkpf-budat,
          v_bukrs LIKE marv-bukrs,
          v_datum LIKE sy-datum,
          v_lgort LIKE mard-lgort,   " Stge. location
          v_bwart LIKE mseg-bwart,   " Movement type
          v_infnr LIKE eina-infnr,   " Info record no.
          v_ltsnr LIKE eina-ltsnr.
    *---Constants
    CONSTANTS: c_comma TYPE c VALUE ',',   " For splitting data at commas
               c_01(2) TYPE c VALUE '01',  " For movement code in Bapi
               c_b     TYPE c VALUE 'B',   " For mvt. Indicator in Bapi
               c_save(4) TYPE c VALUE 'SAVE', " For button text
               c_clear(5) TYPE c VALUE 'CLEAR', " For clear button
               c_mvmt(4) TYPE c VALUE 'MVMT',
               c_ok(2)   TYPE c VALUE 'OK',
               c_error(5) TYPE c VALUE 'Error'.
    *--SELECTION SCREEN DESIGN--
    SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
    PARAMETERS:     p_bar(75) ,  " Scanned data from barcode
                p_ebeln LIKE ekko-ebeln, " PO number
                p_matnr LIKE ekpo-matnr, " Material number
                p_menge LIKE ekpo-menge, " Quantity
               p_lifnr LIKE ekko-lifnr, " Vendor code
                p_frbnr LIKE mkpf-frbnr, " Reference doc for goods mvt
                p_status(5) TYPE c.
    SELECTION-SCREEN END OF BLOCK blk1.
    SELECTION-SCREEN PUSHBUTTON 15(10) v_save USER-COMMAND mvmt.
    SELECTION-SCREEN PUSHBUTTON 40(10) v_clear USER-COMMAND clear.
      INITIALIZATION -
    INITIALIZATION.
      v_save = c_save .
      v_clear = c_clear.
    *--AT SELECTION_SCREEN--
    AT SELECTION-SCREEN .
      IF sy-ucomm = c_clear.
        PERFORM f_clear.
      ELSE.
        IF sy-ucomm <> c_mvmt.
           if not  sy-tabix is initial and  sy-ucomm <> c_mvmt.
    *--- Extracting the data by splitting the scanned values.
          PERFORM f_get_split_data.
    *--- Validating the input data.
          PERFORM f_check_inputs.
        ELSE .
    *--- Validating the input data.
          PERFORM f_check_inputs.
    *-- Determining the posting date and period check.
          PERFORM f_get_posting_date.
    *---Post goods movement
          PERFORM f_post_receipt.
        ENDIF.
      ENDIF.
               SUBROUTINES                                               *
    *&      Form  f_check_inputs
        Validating the input parameters
    FORM f_check_inputs.
    *-- Validating material no.
      SELECT SINGLE matnr INTO p_matnr
        FROM mara
          WHERE matnr = p_matnr.
      IF sy-subrc = 4.
        p_status =  c_error.
        MESSAGE e003(zm) WITH 'Material no.'.
      ENDIF.
    *-- Validating JHT reference no.
      SELECT SINGLE ebeln
                    lifnr
                    bukrs
                    INTO (p_ebeln, v_lifnr , v_bukrs)
                    FROM ekko
            where unsez = p_unsez. chg:07072003
              WHERE ebeln = p_ebeln.
      IF sy-subrc = 4.
        p_status =  c_error.
        MESSAGE e003(zm) WITH 'Purchase order no.'.
      ENDIF.
    *-- Validating material po combination
      SELECT SINGLE *
           FROM ekpo
             WHERE ebeln = p_ebeln
               AND matnr = p_matnr.
      IF sy-subrc = 4.
        p_status =  c_error.
        MESSAGE e003(zm) WITH 'Purchase order no.' ' and Material no.'.
      ENDIF.
    *--- Checking for DO entry . (chng : 30/06/2003)
      IF  p_frbnr IS INITIAL.
        MESSAGE e018(m7) WITH 'Delivery no.'.
        p_status =  c_error.
        PERFORM f_clear.
      ENDIF.
    *-- Validating material po do combination
      SELECT SINGLE a~belnr
                    INTO v_belnr
                    FROM ekbe AS a
                      INNER JOIN mkpf AS b
                       ON   abelnr = bmblnr
                       AND agjahr = bmjahr
                      WHERE a~ebeln = ekpo-ebeln
                        AND  a~ebelp = ekpo-ebelp
                        AND  b~xblnr = p_frbnr.
      IF sy-subrc = 0.
        MESSAGE e019(zm) WITH v_belnr.
        p_status = c_error.
        PERFORM f_clear.
      ENDIF.
      p_status =  c_ok.
    ENDFORM.                    " f_check_inputs
    *&      Form  f_get_split_data
       Extracting the data by splitting the Scanned data
    FORM f_get_split_data.
    *-- Splitting the data at commas
      SPLIT p_bar AT c_comma INTO TABLE i_part.
    *-- Assigning the parts to variables.
      LOOP AT i_part.
        v_first = i_part-part+0(1).
        TRANSLATE  v_first TO UPPER CASE.
        CASE v_first .
         WHEN 'V'.
           p_lifnr =  i_part-part+1(10).
          WHEN 'P'.
            p_matnr = i_part-part+1(18).
          WHEN 'Q'.
            p_menge = i_part-part+1(13).
          WHEN 'K'.
            p_ebeln = i_part-part+1(10).
          WHEN 'D'.
            p_frbnr = i_part-part+2(16).
          WHEN OTHERS.
            CONTINUE.
        ENDCASE.
      ENDLOOP.
    ENDFORM.                    " f_get_split_data
    *&      Form  f_get_posting_date
    Determing the posting date for document
    FORM f_get_posting_date.
    *-- get the current period for todays date.
      DATA: l_period LIKE t009b-poper.
      CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
        EXPORTING
          i_date               = sy-datum
          i_periv              = 'K4'
       IMPORTING
         e_buper               = l_period
      E_GJAHR              =
       EXCEPTIONS
         input_false          = 1
         t009_notfound        = 2
         t009b_notfound       = 3
         OTHERS               = 4
      IF sy-subrc <> 0.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    *-- Determining whether the open period
      SELECT SINGLE *
                    FROM marv
                    WHERE bukrs = v_bukrs.
      IF sy-subrc = 0.
        IF l_period = marv-lfmon .
          v_postdate = sy-datum.
        ELSE.
          CALL FUNCTION 'BAPI_CCODE_GET_FIRSTDAY_PERIOD'
               EXPORTING
                    companycodeid       = v_bukrs
                    fiscal_period       = marv-lfmon
                    fiscal_year         = marv-lfgja
               IMPORTING
                    first_day_of_period = v_postdate
                    return              = i_return1.
          IF NOT i_return[] IS INITIAL.
            LOOP AT i_return1.
              MESSAGE i016(zm) WITH i_return-message.
            ENDLOOP.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDFORM.                    " f_get_posting_date
    *&      Form  f_post_receipt
    Post the goods receipt for entered data.
    FORM f_post_receipt.
      PERFORM f_fill_item.
      PERFORM f_fill_header.
      PERFORM f_execute_transfer.
      PERFORM f_clear.
    ENDFORM.                    " f_post_receipt
    *&      Form  f_fill_item
      Updating the item data for the GR
    FORM f_fill_item.
    Checking for IQC cycle is done here.(chng : 23/07/2003)
      PERFORM f_check_iqc.
    *---- Assigning movement type as per IQC cycle.(chng : 23/07/2003)
      IF v_lgort IS INITIAL.
        MOVE '101'   TO i_item-move_type.
        SELECT SINGLE lgort INTO i_item-stge_loc
        FROM ekpo
         where ebeln  = v_ebeln and  " chg :07/07/2003
           WHERE ebeln  = p_ebeln AND
               matnr = p_matnr .
      ELSE.
        MOVE v_lgort TO i_item-stge_loc.
        MOVE v_bwart TO i_item-move_type.
      ENDIF.
      MOVE p_matnr TO i_item-material.
      MOVE p_menge TO i_item-entry_qnt.
    move v_ebeln to i_item-po_number. " 07/07/2003
      MOVE p_ebeln TO i_item-po_number.
      MOVE v_lifnr TO i_item-vendor.
      MOVE c_b TO i_item-mvt_ind.
    select single ebelp into i_item-po_item " chg :29/07/2003
       from ekpo
          where ebeln  = p_ebeln
            and   matnr = p_matnr
           and elikz = ''.
      SELECT ebeln
                ebelp
                matnr
                menge
                INTO CORRESPONDING FIELDS OF TABLE i_ekpo
                FROM ekpo
                WHERE ebeln = p_ebeln
                   AND matnr = p_matnr
                   AND loekz = '' .
      SORT i_ekpo BY ebeln ebelp matnr.
      LOOP AT i_ekpo INTO wa_ekpo.
        IF v_found = 0.
          SELECT ebeln  ebelp
                bwart  menge
                INTO CORRESPONDING FIELDS OF TABLE i_ekbe
                FROM ekbe
                WHERE ebeln = p_ebeln
                AND ebelp = wa_ekpo-ebelp
                AND matnr = p_matnr.
                          and elikz = '' .  CHG -- 03/19/2004
          IF sy-subrc = 0.
            LOOP AT i_ekbe INTO wa_ekbe .
              IF wa_ekbe-bwart = '101'.
                v_menge = v_menge + wa_ekbe-menge.
              ENDIF.
              IF wa_ekbe-bwart = '102'.
                v_menge = v_menge - wa_ekbe-menge.
              ENDIF.
              IF wa_ekbe-bwart = '122'.
                v_menge = v_menge - wa_ekbe-menge.
              ENDIF.
            ENDLOOP.
    chng: 03/19/2004 compare po qty against receipt
            v_menge = v_menge + p_menge .
            IF wa_ekpo-menge >= v_menge .
              v_found = 1.
              MOVE wa_ekpo-ebelp TO i_item-po_item.
            ENDIF.
          ELSE .
            v_found = 1.
            MOVE wa_ekpo-ebelp TO i_item-po_item.
          ENDIF.
        ENDIF.
        CLEAR : wa_ekbe, i_ekbe, v_menge.
      ENDLOOP.
      IF v_found = 0 .
        MESSAGE e003(zm) WITH ' delivery items'.
      ENDIF.
      APPEND i_item.
      CLEAR : i_item, v_found .
    ENDFORM.                    " f_fill_item
    *&      Form  f_check_iqc
    Checking the storage location for the (chng : 23/07/2003)
    FORM f_check_iqc.
      CALL FUNCTION 'Z_M_GET_IQC_STATUS'
           EXPORTING
                matnr          = p_matnr
                lifnr          = v_lifnr
           IMPORTING
                lgort          = v_lgort
                bwart          = v_bwart
                ltsnr          = v_ltsnr
                infnr          = v_infnr
           EXCEPTIONS
                non_iqc_vendor = 1
                OTHERS         = 2.
      IF sy-subrc <> 0.
        CLEAR : v_lgort , v_bwart , v_ltsnr.
      ENDIF.
    ENDFORM.                    " f_check_iqc
    *&      Form  f_fill_header
      Updating data in the header
    FORM f_fill_header.
      MOVE v_postdate TO wa_header-pstng_date.
      MOVE sy-datum TO wa_header-doc_date.
      MOVE p_frbnr TO wa_header-ref_doc_no.
    ENDFORM.                    " f_fill_header
    *&      Form  f_execute_transfer
          Executing the goods movement.
    FORM f_execute_transfer.
      CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
           EXPORTING
                goodsmvt_header  = wa_header
                goodsmvt_code    = c_01
           IMPORTING
                goodsmvt_headret = wa_return
           TABLES
                goodsmvt_item    = i_item
                return           = i_return.
      IF i_return[] IS INITIAL .
        COMMIT WORK.
    *---  UPdating Info record for IQC cycle ind.(chng : 23/07/2003)
        IF NOT v_ltsnr IS INITIAL.
          UPDATE eina SET ltsnr = v_ltsnr
          WHERE infnr = v_infnr.
        ENDIF.
        REFRESH : i_item.
        CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
        MESSAGE i012(migo) WITH wa_return-mat_doc.
        PERFORM f_do_print.
      ELSE.
        REFRESH : i_item.
        CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
        PERFORM write_errors.
      ENDIF.
    ENDFORM.                    " f_execute_transfer
    FORM write_errors.
      WRITE: 0(90) sy-uline ,
             /0'|',
              3 'System messages for GR posting',
              90 '|',
             /0(90) sy-uline .
      LOOP AT i_return.
        CASE  i_return-type.
          WHEN 'E'.
            MESSAGE i016(zm) WITH i_return-message.
          WHEN 'W'.
            MESSAGE i017(zm) WITH i_return-message.
          WHEN 'I'.
           WRITE: /0'|',
                  icon_yellow_light AS ICON ,
                  '|',
                  10 i_return-message,
                  90 '|'.
            MESSAGE i018(zm) WITH i_return-message.
          WHEN 'S'.
           WRITE: /0'|',
                  icon_green_light AS ICON ,
                  '|',
                  10 i_return-message,
                  90 '|'.
            MESSAGE i018(zm) WITH i_return-message.
          WHEN OTHERS.
           WRITE: /0'|',
                  icon_red_light AS ICON ,
                  '|',
                  10 i_return-message,
                  90 '|'.
            MESSAGE e016(zm) WITH i_return-message.
        ENDCASE.
       AT LAST .
         WRITE:/0(90) sy-uline .
       ENDAT.
      ENDLOOP.
    ENDFORM.                    " write_errors
    *&      Form  f_clear
    Clearing the input parameters
    FORM f_clear.
      CLEAR : p_ebeln ,
              p_bar,
              p_matnr,
              p_frbnr,
              v_lifnr,
              p_menge,
              p_status.

    Hi all,
    can anyone suggest any idea?
    Regrds
    pabitra

  • Error in Personnel Data Iview (its very urgent)

    Hi All,
    Personal Data   
    Critical Error
    A critical error has occured. Processing of the service had to be terminated. Unsaved data has been lost.
    Please contact your system administrator.
    failed to create or init instance of model 'com.sap.xss.hr.per.in.pdata.model.HRXSS_PER_P0002_IN' in scope APPLICATION_SCOPE with instanceId 'null'   
    Caused by: com.sap.tc.webdynpro.progmodel.model.api.WDModelException: failed to create instance of model 'com.sap.xss.hr.per.in.pdata.model.HRXSS_PER_P0002_IN'
         at com.sap.tc.webdynpro.progmodel.model.api.WDModelFactory.getNewModelInstance(WDModelFactory.java:392)
         at com.sap.tc.webdynpro.progmodel.model.api.WDModelFactory.getOrCreateModelInstanceFromScopeMaintainer(WDModelFactory.java:329)
         ... 65 more
    Caused by: com.sap.tc.webdynpro.services.exceptions.WDRuntimeException: no jcoMetadata found for RFC function 'HRXSS_PER_GET_F4_P0002_IN'! Please verify, that your model is consistent with the ABAP backend: 'EC6'.
    Hi Please help me to solve this error it's very urgent ?
    thanks and regards,
    Phanikumar.

    Hi,
    I am not very much sure about this.
    Are u calling a BAPi from WD application?
    If yes then the error seems to be that : JCOs metadata is not available.
    Please check that ur JCO definitions in portal and make sure the name in Portal and the name u defined in WD application are same( case  sensitive).
    Also TEST JCO in Portal.
    Please revert back with current status and explain ur problem a bit more.
    Regards,
    Sumit

  • Error in CO88 - Very Urgent

    When we run CO88 - Actual Settlement, I have the following error occurs -
    "Order 1101396: Split delta (207,260.00 in currency 10) according to standard
    price
    Message no. MLCCS 015 "
    Can some one help me, very urgent

    Hi,
    this error is related to material ledger actual costing. it seems that some acual cost component split cannot be created in the proper way. Normally I would recommend to open up a message to SAP support on component CO-PC-ACT to let the experts investigate into that. Since you state that it is very urgent you may try to help yourself by the program MLCCS_KO88_TREATMENT. The usage is described in
    <a href="https://service.sap.com/sap/support/notes/632752">note 632752</a>
    I would assume that the error vanishes if you declare in that program that you want to use a split according to the standard price.
    best regards,
                         Udo

  • Error: dbms_java.end_import() IMp-00017 -- Very urgent

    Hi All,
    Please help me. It is very urgent.
    I took export backup from oracle10g (IBM AIX)database using oracle9i client (9.2.0.6) to inport the dump in oracle 9.2.0.6 in solaris. I am getting the following error.
    Export file created by EXPORT:V09.02.00 via conventional path
    import done in WE8MSWIN1252 character set and AL16UTF16 NCHAR character set
    import server uses WE8ISO8859P1 character set (possible charset conversion)
    IMP-00017: following statement failed with ORACLE error 3113:
    "BEGIN :STATUS := DBMS_JAVA.END_IMPORT(); END;"
    IMP-00003: ORACLE error 3113 encountered
    ORA-03113: end-of-file on communication channel
    IMP-00000: Import terminated unsuccessfully
    please help me ....
    Thanks and Regards,
    Kiran

    Hi all,
    very very urgent please help me..
    Thanks and regards
    Kiran

  • Very Urgent!!!Calling custom OAF vent reg page from JTT page gives error.

    1. We have a need to customize Oracle Marketing Online Event registration page (Oracle standard JTT page: amsEventRegistrantsEntryMain.jsp - available via function AMS_EVENT_REG_ENTRY) .
    2. We have created a new custom OAF page for the event registration and modified the function definition Web HTML property from "amsEventRegistrantsEntryMain.jsp" to "jtfcrmchrome.jsp?
    page=/oracle/apps/xxamw/xxams/event/webui/XXAmsEventRegScheduleCrePG&akRegionApplicationId=540&jttoijappn=OKL" (tried also with OA.jsp call)
    3. Now when we click on the Register link from the base (This Oracle standard Register link calls AMS_EVENT_REG_ENTRY and since AMS_EVENT_REG_ENTRY is modified we expect OAF page to render) page it throws "You have insufficient privileges for the current operation. Please contact your System Administrator." error. The function is not accessible.
    4. Navigation: Oracle Marketing Super User -> Marketing Online -> Event -> Registration Stb menu -> Search for a "Event Schedule Name" -> Click Go -> Click on Register link (We expect our custom OAF page when register link is
    clicked)
    Please note this design was tested successfully in an instance but when we migrated this to a new instance it fails. We cannot compare two instances since the previous instance no longer exists. Seems some issue with JTT menu straucture since we are using Oracle standard JTT function. This is a very urgent issue and any quick help or pointer will be great.
    Thanks/ Santanu

    Hi,
    R u still facing the issue?
    If So can you please tell me:
    Have u added your called function to the current user? That means by navigating to the responsibility you can access the same page directly, with out doing any transaction? If so then create your custom function with your required URL and attach to a menu ; then check if you are able to view that page from the menu navigation?If these thing is not working then I think you need to create a custom page that will extend the std region , that time hopefully it will work.
    Please post your result/thought!!
    Regards
    Apurba K Saha

Maybe you are looking for

  • Production Order in the Past

    Hello everyone! Good day! Im new in PP module. I am creating a production order where the production target is last week (Sep 20, 2009) but the system does not allow production orders in the past. Instead, the scheduling finish date is automatically

  • Howto deploy content via portal application

    Hi all, currently i'm integrating some external web apps into my EP6.0 SP2. Therefore I use the application integrator plus some iview und system templates. I've developed the templates as components in a portal application in the portalapp.xml. But

  • Validate XML with XSD

    Connected to: Oracle Database 10g Enterprise Edition Release 10.2.0.4.0 - 64bit Production with the partitioning, real application clusters, olap, data mining and Real Application Testing options Working with relational tables containing clob type co

  • What looks good in Bridge, Lightroom & Safari, looks too light in CS4

    When I get things just the way I want them in Lightroom, and export them, when I open them up in Photoshop CS4, they look way too light and even undersaturated. The same image looks the same in Safari, LIghtroom and Bridge, but not CS4.   CS4 is set

  • Says installer failed to initilze whe  trying to install PS elements 9 on my new macbook air

    says installer failed to initilze whe trying to install PS elements 9 on my new macbook air