Thursday, September 17, 2015

MC26 - LIS InfoStructure Update S900, S901, S680, S681, S682

MC26 - LIS InfoStructure Update S900, S901, S680, S681, S682


Constants for IDOC-status

* constants for IDOC-status

DATA:
      C_STATUS_OUT_IDOC_CREATED     LIKE EDIDC-STATUS VALUE '01',   
      C_STATUS_OUT_ERROR_ARFC          LIKE EDIDC-STATUS VALUE '02',
      C_STATUS_OUT_ARFC_CALLED       LIKE EDIDC-STATUS VALUE '03',
      C_STATUS_OUT_EDI_SUBSYS_ERR    LIKE EDIDC-STATUS VALUE '04',
      C_STATUS_OUT_ERROR_CONVERT    LIKE EDIDC-STATUS VALUE '05',

      C_STATUS_OUT_SENT                           LIKE EDIDC-STATUS VALUE '12',
      C_STATUS_OUT_EDI_TRIGGERED    LIKE EDIDC-STATUS VALUE '18',
      C_STATUS_OUT_ERROR_SENDING    LIKE EDIDC-STATUS VALUE '27',
      C_STATUS_OUT_SYN_ERR_IGNORE   LIKE EDIDC-STATUS VALUE '25',

     C_STATUS_OUT_SYNTAX_ERROR    LIKE EDIDC-STATUS VALUE '26',
      C_STATUS_OUT_ALE_ERROR            LIKE EDIDC-STATUS VALUE '29',
      C_STATUS_OUT_READY_SEND          LIKE EDIDC-STATUS VALUE '30',

      C_STATUS_OUT_IDOC_PROCESSED   LIKE EDIDC-STATUS VALUE '31',
      C_STATUS_IN_POSTED_ON_RECEIVER  LIKE EDIDC-STATUS VALUE '41'.
      C_STATUS_IN_APPLICATION_ERROR  LIKE EDIDC-STATUS VALUE '51',
      C_STATUS_IN_ALE_ERROR                LIKE EDIDC-STATUS VALUE '65',
      C_STATUS_IN_SYNTAX_ERROR        LIKE EDIDC-STATUS VALUE '60',
      C_STATUS_IN_READY_POST               LIKE EDIDC-STATUS VALUE '64',
      C_STATUS_IN_IDOC_TO_APPL            LIKE EDIDC-STATUS VALUE '62',
      C_STATUS_IN_ERR_IDOC_TO_APPL  LIKE EDIDC-STATUS VALUE '63',
      C_IDOC_STATUS_POSTPONED            LIKE EDIDC-STATUS VALUE '66',
      C_STATUS_IN_IDOC_PROCESSED      LIKE EDIDC-STATUS VALUE '68',
 
      C_STATUS_IN_SYN_ERR_IGNORE       LIKE EDIDC-STATUS VALUE '61',
      C_STATUS_IN_ERR_IDOC_CREATED  LIKE EDIDC-STATUS VALUE '56',
      C_STATUS_IN_IDOC_CREATED            LIKE EDIDC-STATUS VALUE '50',
      C_STATUS_OUT_IDOC_EDITED            LIKE EDIDC-STATUS VALUE '32',
      C_STATUS_IN_IDOC_EDITED                 LIKE EDIDC-STATUS VALUE '69',
      C_STATUS_OUT_ERR_CONTR_RECORD LIKE EDIDC-STATUS VALUE '34',
      C_STATUS_IN_IDOC_POSTED                LIKE EDIDC-STATUS VALUE '53',