MM01界面字段增强

  IF SY-TCODE <> 'MM01' AND SY-TCODE <> 'MM02'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'G1'.
        SCREEN-INPUT = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.

  CALL FUNCTION 'MARA_GET_SUB'
    IMPORTING
      WMARA = MARA
      XMARA = *MARA
      YMARA = LMARA.

  DATA: LS_MARA_CI TYPE ZCHMMS_MARADEV.

  MOVE-CORRESPONDING MARA TO LS_MARA_CI.

  CALL FUNCTION 'MARA_GET_SUB'
    IMPORTING
      WMARA = MARA
      XMARA = *MARA
      YMARA = LMARA.

  MOVE-CORRESPONDING LS_MARA_CI TO MARA.

  CALL FUNCTION 'MARA_SET_SUB'
    EXPORTING
      WMARA = MARA.

  IF SY-TCODE <> 'MM01' AND SY-TCODE <> 'MM02'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'G2'.
        SCREEN-INPUT = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.

  CALL FUNCTION 'MARC_GET_SUB'
    IMPORTING
      WMARC = MARC
      XMARC = *MARC
      YMARC = MARC.

  DATA:LS_MARC_CI TYPE ZCHMMS_MARCDEV.

  MOVE-CORRESPONDING MARC TO LS_MARC_CI.

  CALL FUNCTION 'MARC_GET_SUB'
    IMPORTING
      WMARC = MARC
      XMARC = *MARC
      YMARC = LMARC.

  MOVE-CORRESPONDING LS_MARC_CI TO MARC.

  CALL FUNCTION 'MARC_SET_SUB'
    EXPORTING
      WMARC = MARC.