Dateien senden

Code: Alles auswählen.

REPORT  ZRFMAHN21.

*TYPE-POOLS: SLIS.

*TABLES: MHNK.

INCLUDE rfmahnxxtop.

INCLUDE <line>.



DATA: gt_mhnk TYPE TABLE OF mhnk,
      gs_mhnk LIKE LINE OF gt_mhnk.

DATA: print_parameters TYPE pri_params,
      archi_parameters TYPE arc_params,
      valid_flag       TYPE c LENGTH 1,
      number           TYPE tbtcjob-jobcount,
      name             TYPE tbtcjob-jobname VALUE 'ZMAHN_JOB',
      user             TYPE sy-uname.

begin_of_block 5.
*   parameters: epost like rfpdo-allgepos default 'X'.
PARAMETERS: p_xtxt_k TYPE check_text_account DEFAULT space.
PARAMETERS: p_xtxt_i TYPE check_text_item DEFAULT space.
* parameters: p_perf as checkbox default space.
PARAMETERS: p_perf TYPE perf_dunning_change DEFAULT space.
PARAMETERS:    p_all_s RADIOBUTTON GROUP rbg1,
               p_ein_s RADIOBUTTON GROUP rbg1.
end_of_block 5.

begin_of_block 3.
PARAMETERS p_radio1 RADIOBUTTON GROUP g1 DEFAULT 'X'.
PARAMETERS p_radio2 RADIOBUTTON GROUP g1.
PARAMETERS p_radio3 RADIOBUTTON GROUP g1.
PARAMETERS p_radio4 RADIOBUTTON GROUP g1.
PARAMETERS p_radio5 RADIOBUTTON GROUP g1.
PARAMETERS p_radio6 RADIOBUTTON GROUP g1.
PARAMETERS p_radio7 RADIOBUTTON GROUP g1.

PARAMETERS: p_handle LIKE h_variant-handle NO-DISPLAY,
            p_lvar   LIKE h_variant-variant DEFAULT space.
end_of_block 3.


INITIALIZATION.
  h_repid              = sy-repid.
  h_variant-report     = h_repid.
  h_variant-log_group  = '0001'.
  h_layout-group_change_edit = 'X'.
  GET_FRAME_TITLE: 5.

START-OF-SELECTION.
* h_variant-log_group  = '0001'.

  SELECT *
      INTO CORRESPONDING FIELDS OF TABLE T_MHNK_EXT
      FROM mhnk
      WHERE laufd = MA_LAUFD
        AND laufi = MA_LAUFI
        AND BUKRS = '1000'
        AND BUSAB IN MA_BUSAB.


*  IF valid_flag = 'X' AND sy-subrc = 0.

    IF p_ein_s = 'X'.

      LOOP AT T_MHNK_EXT.
        CALL FUNCTION 'JOB_OPEN'
          EXPORTING
            jobname          = name
          IMPORTING
            jobcount         = number
          EXCEPTIONS
            cant_create_job  = 1
            invalid_job_data = 2
            jobname_missing  = 3
            OTHERS           = 4.

        IF sy-subrc = 0.
          user = sy-uname.

        CALL FUNCTION 'SET_PRINT_PARAMETERS'
         EXPORTING
*           ARCHIVE_ID                  = C_CHAR_UNKNOWN
*           ARCHIVE_INFO                = C_CHAR_UNKNOWN
*           ARCHIVE_MODE                = C_CHAR_UNKNOWN
*           ARCHIVE_TEXT                = C_CHAR_UNKNOWN
*           AR_OBJECT                   = C_CHAR_UNKNOWN
*           AUTHORITY                   = C_CHAR_UNKNOWN
*           COPIES                      = C_NUM3_UNKNOWN
*           COVER_PAGE                  = C_CHAR_UNKNOWN
*           DATA_SET                    = C_CHAR_UNKNOWN
*           DEPARTMENT                  = C_CHAR_UNKNOWN
*           DESTINATION                 = C_CHAR_UNKNOWN
*           EXPIRATION                  = C_NUM1_UNKNOWN
*           IMMEDIATELY                 = C_CHAR_UNKNOWN
*           IN_ARCHIVE_PARAMETERS       = ' '
*           IN_PARAMETERS               = ' '
*           LAYOUT                      = C_CHAR_UNKNOWN
*           LINE_COUNT                  = C_INT_UNKNOWN
*           LINE_SIZE                   = C_INT_UNKNOWN
*           LIST_NAME                   = C_CHAR_UNKNOWN
*           LIST_TEXT                   = C_CHAR_UNKNOWN
*           NEW_LIST_ID                 = C_CHAR_UNKNOWN
            RECEIVER                    = user
*           RELEASE                     = C_CHAR_UNKNOWN
*           SAP_COVER_PAGE              = C_CHAR_UNKNOWN
*           HOST_COVER_PAGE             = C_CHAR_UNKNOWN
*           PRIORITY                    = C_NUM1_UNKNOWN
*           SAP_OBJECT                  = C_CHAR_UNKNOWN
*           TYPE                        = C_CHAR_UNKNOWN
*           FOOT_LINE                   = C_CHAR_UNKNOWN
                  .


          SUBMIT RFMAHN21 TO SAP-SPOOL
                            SPOOL PARAMETERS print_parameters
*                           ARCHIVE PARAMETERS archi_parameters
                             WITHOUT SPOOL DYNPRO
                             USER user VIA JOB name NUMBER number
                             WITH MA_LAUFD = MA_LAUFD
                             WITH MA_LAUFI = MA_LAUFI
                             WITH MA_KOART IN MA_KOART
                             WITH MA_BUKRS IN MA_BUKRS
                             WITH MA_KUNNR = T_MHNK_EXT-KUNNR
                             WITH MA_BUSAB IN MA_BUSAB
                             WITH p_xtxt_k = ''
                             WITH p_xtxt_i = ''
                             WITH p_perf   = ''
                             WITH p_radio1 = ''
                             WITH p_radio3 = ''
                             WITH p_radio4 = ''
                             WITH p_radio5 = ''
                             WITH p_radio6 = ''
                             WITH p_radio7 = ''
                             WITH p_handle = ''
                             WITH p_lvar = ''
                        AND RETURN.

          IF sy-subrc = 0.
            CALL FUNCTION 'JOB_CLOSE'
              EXPORTING
                jobcount             = number
                jobname              = name
                strtimmed            = 'X'
              EXCEPTIONS
                cant_start_immediate = 1
                invalid_startdate    = 2
                jobname_missing      = 3
                job_close_failed     = 4
                job_nosteps          = 5
                job_notex            = 6
                lock_failed          = 7
                OTHERS               = 8.
            IF sy-subrc <> 0.

            ENDIF.
          ENDIF.
        ENDIF.

      ENDLOOP.

    ELSEIF p_all_s = 'X'.
      SUBMIT RFMAHN21 TO SAP-SPOOL
                      SPOOL PARAMETERS print_parameters
                      ARCHIVE PARAMETERS archi_parameters
                      WITHOUT SPOOL DYNPRO
                      WITH MA_LAUFD = MA_LAUFD
                      WITH MA_LAUFI = MA_LAUFI
                      WITH MA_KOART IN MA_KOART
                      WITH MA_BUKRS IN MA_BUKRS
                      WITH MA_KUNNR IN MA_KUNNR
                      WITH MA_BUSAB IN MA_BUSAB
                      WITH p_xtxt_k = ''
                      WITH p_xtxt_i = ''
                      WITH p_perf   = ''
                      WITH p_radio1 = ''
                      WITH p_radio3 = ''
                      WITH p_radio4 = ''
                      WITH p_radio5 = ''
                      WITH p_radio6 = ''
                      WITH p_radio7 = ''
                      WITH p_handle = ''
                      WITH p_lvar = ''
                 AND RETURN..
    ENDIF.