Runtime Error CALL_FUNCTION_PARM_MISSING in a custom report program

Question

Hi All,
I've created a custom report program to create parameters for a user in a system. I'm getting a runtime error in the code.
The code snippet as below.
I'm getting that error at line no 161. I'm not able to figure it out. Please help me to correct it.
Regards
Mandeep Shrestha

Answer 1

Hi Glenn,
I'm not creating a user. My requirement is to add a parameter
CRM_THTMLB_IE_COMP with value 'IE8'. I've written the below set of code to achieve that. Can you please help me further.
:i_userlist,i_return,l_errorrole,lv_rows,i_error,i_final,
  l_e,lv_rows,l_s.
  REFRESH i_bname1.
  IF u_name IS NOT INITIAL.
    SELECT bname FROM usr01 INTO TABLE
    i_bname1 WHERE bname IN u_name.
    IF sy-subrc = 0.
      LOOP AT i_bname1 INTO wa_bname1.
        wa_userlist-username = wa_bname1-bname.
        APPEND wa_userlist TO i_userlist.
        CLEAR wa_userlist.
      ENDLOOP.
      DESCRIBE TABLE i_bname1 LINES lv_rows.
    ENDIF.
  ELSE.
****get all the users****
    CALL FUNCTION 'BAPI_USER_GETLIST'
      EXPORTING
        max_rows        = 0
        with_username   = ' '
      IMPORTING
        ROWS            = lv_rows
      TABLES
*       SELECTION_RANGE =
*       SELECTION_EXP   =
        userlist        = i_userlist
        RETURN          = i_return.
  ENDIF.
****read the PFCG and Business Roles****
  SELECT  *   FROM crmc_ui_profile INTO TABLE i_profile .
  IF i_userlist IS INITIAL.
    WRITE:'No Users'.
    EXIT.
  ELSE.
    LOOP AT i_userlist INTO wa_userlist.
      CLEAR: i_param,i_agrgrp,i_retagr,lv_pfcg.
      "IF wa_userlist-username = 'BUILDER_B'.
      CALL FUNCTION 'BAPI_USER_GET_DETAIL'
        EXPORTING
          username       = wa_userlist-username
          cache_results  = 'X'
        TABLES
          PARAMETER      = i_param
*         PROFILES       =
          activitygroups = i_agrgrp
          RETURN         = i_retagr
*         PARAMETER1     =
      CLEAR :wa_agrgrp,l_errorrole,wa_retparm,v_business_unit.
      CLEAR ls_sales_org.
      CALL FUNCTION 'Z0CR_GET_USER_DETAILS'
        EXPORTING
          iv_username      = wa_userlist-username
        IMPORTING
*         EV_USER_TYPE     =
*         EV_BUGROUPID     =
          es_sales_org     = ls_sales_org
*         EV_PARTNER_ID    =
          ev_business_unit = v_business_unit.
      CALL METHOD CL_CRM_ORGMAN_SERVICES=>MAP_HROBJECT_TO_R3_SALES_ORG
        EXPORTING
          HROBJECT         = ls_sales_org-SALES_ORG
*         dbread           =
        IMPORTING
          VKORG            = L_ECC
        EXCEPTIONS
          NO_AUTHORIZATION = 1
          NOT_FOUND        = 2
          OTHERS           = 3.
*CALL FUNCTION 'CRM_BUPA_SALES_AREA_TO_R3'
*  EXPORTING
*    IS_SALES_AREA            = ls_sales_org
* IMPORTING
*   EV_VKORG                 = L_ECC
**   EV_VTWEG                 =
**   EV_SPART                 =
* EXCEPTIONS
*   NO_MAPPING_DEFINED       = 1
*   R3_KEY_NOT_DEFINED       = 2
*   OTHERS                   = 3
*IF SY-SUBRC <> 0.
** Implement suitable error handling here
*ENDIF.
      IF L_ECC = 2040 OR L_ECC = 2010 OR L_ECC = 2050 OR L_ECC = 1900.
**        loop at  i_param into wa_param  .
*            wa_param-PARID = 'CRM_THTMLB_IE_COMP' .
*            wa_param-PARVA = 'IE8'.
*            wa_param-PARTXT = 'CRM BW REPORT PARAMETER'.
*           append wa_param to i_param.
**          ENDLOOP.
*      endif.
        CLEAR lv_flag .
****checking if the  role having prime support roles then assign the CRM_THTMLB_IE_COMP as IE8
        CLEAR lt_role.
        SELECT * FROM zuser_role INTO TABLE lt_role
        FOR ALL ENTRIES IN i_agrgrp
        WHERE pfcg_role = i_agrgrp-agr_name.
        IF sy-subrc = 0.
          lv_flag  = 'X'.
        ENDIF.
        CLEAR :lv_land.
        SELECT SINGLE land1 INTO lv_land FROM hrp1028 WHERE
        otjid = ls_sales_org.
        LOOP AT i_retagr INTO wa_retagr WHERE TYPE = 'E' OR TYPE = 'A'.
          l_errorrole = 'X'.
        ENDLOOP.
**error records
        IF l_errorrole EQ 'X'.
          l_e = l_e + 1.
          CLEAR :lv_pfcg,lv_brole.
          wa_error-user = wa_userlist-username.
          wa_error-pfcg = lv_pfcg .
          wa_error-role = lv_brole .
          wa_error-MESSAGE = wa_retparm-MESSAGE .
          APPEND wa_error TO i_error.
          CLEAR l_errorrole.
        ELSE.
          CLEAR sy-subrc.
          CLEAR :wa_param1,lv_vlaues,wa_param.
          READ TABLE i_param INTO wa_param1
          WITH KEY parid = 'CRM_THTMLB_IE_COMP'.
          IF sy-subrc <> 0.
            CLEAR wa_paramx.
            wa_paramx-parid = 'X'.
            wa_paramx-parva = 'X'.
            CLEAR :wa_paramc,i_paramc.
            wa_paramc-parid =  'CRM_THTMLB_IE_COMP'.
            wa_paramc-parva = ' '.
            APPEND wa_paramc TO i_paramc.
            CALL FUNCTION 'BAPI_USER_CREATE'
              EXPORTING
                USERNAME  = wa_userlist-username
              TABLES
                PARAMETER = i_paramc
                RETURN    = i_retparm.
          ENDIF.
          lv_vlaues = wa_param1-parva.
          IF i_agrgrp IS INITIAL AND lv_vlaues IS NOT INITIAL.
            CLEAR wa_paramx.
            wa_paramx-parid = 'X'.
            wa_paramx-parva = 'X'.
            CLEAR :wa_paramc,i_paramc.
            wa_paramc-parid =  'CRM_THTMLB_IE_COMP'.
            wa_paramc-parva = ' '.
            APPEND wa_paramc TO i_paramc.
            CALL FUNCTION 'BAPI_USER_CHANGE'
              EXPORTING
                username   = wa_userlist-username
                parameterx = wa_paramx
*               COMPANY    =
              TABLES
                PARAMETER  = i_paramc
                RETURN     = i_retparm
*               PARAMETER1 = .
            CLEAR :wa_retparm ,l_errorrole.
            IF i_retparm IS NOT INITIAL.
              LOOP AT i_retparm INTO wa_retparm WHERE TYPE = 'E' OR TYPE = 'A'.
                l_errorrole = 'X'.
              ENDLOOP.
            ENDIF.
**error records
            IF l_errorrole EQ 'X'.
              l_e = l_e + 1.
              wa_error-user = wa_userlist-username.
              wa_error-pfcg = lv_pfcg .
              wa_error-role = lv_brole .
              wa_error-MESSAGE = wa_retparm-MESSAGE .
              APPEND wa_error TO i_error.
              CLEAR l_errorrole.
            ELSE.
              l_e = l_e + 1.
              wa_error-user = wa_userlist-username.
              wa_error-pfcg = lv_pfcg .
              wa_error-role = lv_brole .
              wa_error-MESSAGE = 'No Roles assigned to User' .
              APPEND wa_error TO i_error.
              CLEAR l_errorrole.
            ENDIF.
          ENDIF.
          IF i_agrgrp IS NOT INITIAL .
            CLEAR lv_count.
            LOOP AT i_agrgrp INTO wa_agrgrp WHERE agr_name CP 'L*'.
              CLEAR wa_profile.
              READ TABLE i_profile
              INTO wa_profile
              WITH KEY pfcg_role = wa_agrgrp-agr_name.
              IF sy-subrc EQ 0 AND
              wa_profile-profile IS NOT INITIAL.
                lv_count = lv_count + 1.
              ENDIF.
            ENDLOOP.
            IF lv_count EQ '1'.
              LOOP AT i_agrgrp INTO wa_agrgrp WHERE agr_name CP 'L*'.
                CLEAR :wa_profile,lv_brole,lv_pfcg.
                IF wa_agrgrp-agr_name CP 'L*'.
                  lv_pfcg =  wa_agrgrp-agr_name.
                  READ TABLE i_profile
                  INTO wa_profile
                  WITH KEY
                  pfcg_role = wa_agrgrp-agr_name.
                  IF sy-subrc EQ 0.
**              ***fill business role
                    lv_brole = wa_profile-profile.
                  ELSE.
                    l_e = l_e + 1.
                    CLEAR lv_brole.
                    wa_error-user = wa_userlist-username.
                    wa_error-pfcg = lv_pfcg .
                    wa_error-role = lv_brole .
                    wa_error-MESSAGE = 'No Business Role for PFCG' .
                    APPEND wa_error TO i_error.
                    CLEAR l_errorrole.
                    CONTINUE.
                  ENDIF.
                ENDIF.
                IF lv_brole IS NOT INITIAL.
                  CLEAR wa_paramx.
                  wa_paramx-parid = 'X'.
                  wa_paramx-parva = 'X'.
                  CLEAR :wa_paramc,i_paramc.
                  wa_paramc-parid =  'CRM_THTMLB_IE_COMP'.
                  IF lv_flag = 'X'.
                    lv_brole =   'IE8'.
                    wa_paramc-parva = lv_brole .
*                  CLEAR lv_flag.
                  ELSE.
                    wa_paramc-parva = lv_brole.
                  ENDIF.
                  APPEND wa_paramc TO i_paramc.
                  CALL FUNCTION 'BAPI_USER_CHANGE'
                    EXPORTING
                      username   = wa_userlist-username
                      parameterx = wa_paramx
*                     COMPANY    =
                    TABLES
                      PARAMETER  = i_paramc
                      RETURN     = i_retparm
*                     PARAMETER1 = .
                  CLEAR :wa_retparm .
                  IF i_retparm IS NOT INITIAL.
                    LOOP AT i_retparm INTO wa_retparm WHERE TYPE = 'E' OR TYPE = 'A'.
                      l_errorrole = 'X'.
                    ENDLOOP.
                  ENDIF.