FM SLIN.

[Former Member]

hi guys,

I am trying to use FM EXTENDED_PROGRAM_CHECK in my program to list error types,Errors,warnings.

I dont know how to fetch the error text using above FM from RESULT_HEAD parameters

Suggestion please.

Thanks.

Ambi

[Former Member]

hi guys,

I am trying to use FM EXTENDED_PROGRAM_CHECK in my program to list error types,Errors,warnings.

I dont know how to fetch the error text using above FM from RESULT_HEAD parameters

Suggestion please.

Thanks.

Ambi

[Former Member]

Maybe this code can help you:

*---------------------------------------------------------------------*
*       FORM EXTENDED_PROGRAM_CHECK_GEN                               *
*---------------------------------------------------------------------*
FORM extended_program_check_gen USING p_filter  TYPE slin_errcodes
                                      p_program TYPE program
                                      p_flags   LIKE rslin.
  DATA: l_i             TYPE i,
        l_category      TYPE c,
        l_repid         type syrepid,
        l_program       type program,
        l_line          TYPE string,
        l_head          type slin_head,
        l_result        TYPE slin_result.
*
  l_program = p_program.
  translate l_program to upper case. "#EC TRANSLANG
  CALL FUNCTION 'EXTENDED_PROGRAM_CHECK'
       EXPORTING
            program    = l_program
            test_all   = p_flags-x_all
            test_bre   = p_flags-x_bre
            test_cal   = p_flags-x_cal
            test_dat   = p_flags-x_dat
            test_dyc   = p_flags-x_dyc
            test_ges   = p_flags-x_ges
            test_mes   = p_flags-x_mes
            test_aut   = p_flags-x_aut
            test_opf   = p_flags-x_opf
            test_per   = p_flags-x_per
            test_pfs   = p_flags-x_pfs
            test_unr   = p_flags-x_unr
            test_wrn   = p_flags-x_wrn
            test_txt   = p_flags-x_txt
            test_por   = p_flags-x_por
            test_sub   = p_flags-x_sub
            test_ste   = p_flags-x_ste
       IMPORTING
             result    = l_result
*           RESULT_STAT    = L_STATISTICS[]
       EXCEPTIONS
            OTHERS.
  IF sy-subrc <> 0.
    PERFORM samt_coded_hint(saprsamt)
                  USING c_category_error slin_error p_program 0.
    PERFORM samt_message(saprsamt) USING 'EXCEPTION aufgetreten'(302).
    EXIT.
  ENDIF.

  LOOP AT l_result into l_head
            WHERE kind = 'A' OR kind = 'B' OR kind = 'C'.
    READ TABLE p_filter FROM l_head-code TRANSPORTING NO FIELDS.
    CHECK sy-subrc <> 0.

    CASE l_head-kind.
      WHEN 'A'. l_category = c_category_error.
      WHEN 'B'. l_category = c_category_warning.
      WHEN 'C'. l_category = c_category_info.
    ENDCASE.

    IF l_head-editor <> slin_editor-program AND
       l_head-editor <> slin_editor-function.
      l_i = 1.
    ELSE.
      l_i = l_head-src_line.
    ENDIF.

    l_repid = l_head-err_incl.
    PERFORM samt_coded_hint(saprsamt) USING l_category
                                            l_head-code
                                            l_repid
                                            l_i.

    IF l_head-editor <> slin_editor-program AND
       l_head-editor <> slin_editor-function.
      PERFORM: msg_header(rslinsho) USING l_head CHANGING l_line,
               samt_out USING l_line.
    ENDIF.
    PERFORM list_out USING l_head.
  ENDLOOP.
ENDFORM.

Kind Regards

Eswar

[vishal006]

Hi Eswar,

i have exactly same requirement, but i tried to copy paste your code but it is not working can you help me a little with it?