year month select-optoins

• Create Date   : 2011-01-12
• Change Date : 2011-01-12

---

잡담 -ㅂ-;

요런것도 있다...

---

년월

  *&---------------------------------------------------------------------*
*& Report  ZMATT0070
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZMATT0070 NO STANDARD PAGE HEADING.

DATA : G_SPMON TYPE SPMON.


*&---------------------------------------------------------------------*
SELECT-OPTIONS : SO_SPMON FOR G_SPMON NO-EXTENSION.


*&---------------------------------------------------------------------*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_SPMON-LOW.
  PERFORM F4_FOR_SPMON  USING SO_SPMON-LOW.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR SO_SPMON-HIGH.
  PERFORM F4_FOR_SPMON  USING SO_SPMON-HIGH.


*&---------------------------------------------------------------------*
START-OF-SELECTION.
  WRITE :/ SO_SPMON-LOW, '~' , SO_SPMON-HIGH.


*----------------------------------------------------------------------*
FORM F4_FOR_SPMON  USING    P_SPMON.

  DATA: BEGIN OF G_DYNPFIELDS_T OCCURS 1.
          INCLUDE STRUCTURE DYNPREAD.
  DATA: END   OF G_DYNPFIELDS_T.

  DATA: L_RETURNCODE   LIKE SY-SUBRC,
        L_MONTH        LIKE ISELLIST-MONTH,
        L_HLP_REPID    LIKE SY-REPID.

  L_MONTH = SY-DATLO(6).

  CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
    EXPORTING
      ACTUAL_MONTH               = L_MONTH
    IMPORTING
      SELECTED_MONTH             = L_MONTH
      RETURN_CODE                = L_RETURNCODE
    EXCEPTIONS
      FACTORY_CALENDAR_NOT_FOUND = 01
      HOLIDAY_CALENDAR_NOT_FOUND = 02
      MONTH_NOT_FOUND            = 03
      OTHERS                     = 04.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  CHECK SY-SUBRC = 0 AND L_RETURNCODE = 0.
  P_SPMON = L_MONTH.
  CLEAR: G_DYNPFIELDS_T-FIELDNAME, L_MONTH.
  REFRESH G_DYNPFIELDS_T.

ENDFORM.                    " F4_FOR_SPMON