CLASS-METHODS class_constructor.

CLASS-METHODS s_get
      IMPORTING num TYPE simple
      RETURNING VALUE(result) TYPE REF TO /ork/cl_month.

CLASS-METHODS s_to_string
      IMPORTING num TYPE simple
                !format TYPE csequence DEFAULT ``
                format_provider TYPE REF TO /ork/if_format_provider DEFAULT /ork/cl_culture_info=>format_provider-current
      RETURNING VALUE(result) TYPE string.

METHODS days
      IMPORTING year TYPE simple
      RETURNING VALUE(result) TYPE i.

METHODS name
      IMPORTING format_provider TYPE REF TO /ork/if_format_provider OPTIONAL
      RETURNING VALUE(result) TYPE string.

METHODS number
      RETURNING VALUE(result) TYPE i.

TYPES ty_tt TYPE STANDARD TABLE OF REF TO /ork/cl_month WITH EMPTY KEY.

BEGIN OF ty_s_months,
        january TYPE REF TO /ork/cl_month,
        february TYPE REF TO /ork/cl_month,
        march TYPE REF TO /ork/cl_month,
        april TYPE REF TO /ork/cl_month,
        may TYPE REF TO /ork/cl_month,
        june TYPE REF TO /ork/cl_month,
        july TYPE REF TO /ork/cl_month,
        august TYPE REF TO /ork/cl_month,
        september TYPE REF TO /ork/cl_month,
        october TYPE REF TO /ork/cl_month,
        november TYPE REF TO /ork/cl_month,
        december TYPE REF TO /ork/cl_month,
      END OF ty_s_months.

BEGIN OF cm_format,
        long TYPE c LENGTH 1 VALUE 'L',
        short TYPE c LENGTH 1 VALUE 'S',
        genitive TYPE c LENGTH 1 VALUE 'G',
        short_genitive TYPE c LENGTH 1 VALUE 'g',
        number TYPE c LENGTH 1 VALUE 'N',
      END OF cm_format.

CONSTANTS: BEGIN OF cmi,
                 _0 TYPE i VALUE 0,
                 _1 TYPE i VALUE 1,
                 _2 TYPE i VALUE 2,
                 _4 TYPE i VALUE 4,
                 _12 TYPE i VALUE 12,
                 _13 TYPE i VALUE 13,
                 _28 TYPE i VALUE 28,
                 _29 TYPE i VALUE 29,
                 _100 TYPE i VALUE 100,
                 _400 TYPE i VALUE 400,
               END OF cmi.

CLASS-DATA cm TYPE ty_s_months READ-ONLY.

DATA my_number TYPE i.

CLASS-DATA sm_months TYPE ty_tt.

CLASS-DATA sm_days_in_month TYPE STANDARD TABLE OF i WITH EMPTY KEY.

DATA month_number TYPE i.

DATA month_13 TYPE REF TO /ork/cl_month.