{"id":7250,"date":"2025-08-01T19:13:35","date_gmt":"2025-08-01T13:43:35","guid":{"rendered":"https:\/\/www.sapewmhelp.com\/?question=subroutines-in-sap"},"modified":"2025-08-01T19:13:35","modified_gmt":"2025-08-01T13:43:35","slug":"subroutines-in-sap","status":"publish","type":"question","link":"https:\/\/www.sapewmhelp.com\/?question=subroutines-in-sap","title":{"rendered":"Subroutines in SAP"},"content":{"rendered":"

A subroutine<\/strong> is a block of reusable code defined using FORM and called using PERFORM. It is a procedural<\/strong> method of modularization mainly used in classical ABAP programming.<\/p>\n

\u00a0When to use:<\/strong><\/h3>\n
    \n
  • In classic procedural ABAP programs.<\/li>\n
  • For logic reuse in the same or other programs via INCLUDE.<\/li>\n<\/ul>\n
    \n
    *&---------------------------------------------------------------------*<\/span>\r\n*&\u00a0Report\u00a0\u00a0ZREP_LCLCLASS<\/span>\r\n*&<\/span>\r\n*&---------------------------------------------------------------------*<\/span>\r\n*&<\/span>\r\n*&<\/span>\r\n*&---------------------------------------------------------------------*<\/span>\r\n\r\nREPORT\u00a0<\/span>zrep_lclclass.<\/span>\r\n\r\nDATA<\/span>:\u00a0<\/span>lv_a\u00a0TYPE\u00a0<\/span>i\u00a0<\/span>VALUE\u00a0<\/span>5<\/span>,<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lv_b\u00a0TYPE\u00a0<\/span>i\u00a0<\/span>VALUE\u00a0<\/span>10<\/span>,<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lv_result\u00a0TYPE\u00a0<\/span>i\u00a0<\/span>VALUE\u00a0<\/span>0<\/span>.<\/span>\r\n\r\nWRITE<\/span>:\u00a0<\/span>\/\u00a0'Before\u00a0subroutine\u00a0call<\/span>:<\/span>',<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\/\u00a0'lv_a\u00a0=',\u00a0<\/span>lv_a,<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\/\u00a0'lv_b\u00a0=',\u00a0<\/span>lv_b,<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\/\u00a0'lv_result\u00a0=',\u00a0<\/span>lv_result.<\/span>\r\n\r\n*\u00a0Call\u00a0the\u00a0subroutine<\/span>\r\nPERFORM\u00a0<\/span>calculate_sum\u00a0USING\u00a0\u00a0\u00a0\u00a0<\/span>lv_a\u00a0\u00a0\u00a0\u00a0\u00a0\"\u00a0passed\u00a0by\u00a0value\u00a0(copy)<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0lv_b\u00a0\u00a0\u00a0\u00a0\u00a0\"\u00a0passed\u00a0by\u00a0value\u00a0(copy)<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0CHANGING\u00a0<\/span>lv_result.\u00a0\u00a0<\/span>\"\u00a0passed\u00a0by\u00a0reference\u00a0(direct)<\/span>\r\n\r\nWRITE<\/span>:\u00a0<\/span>\/\u00a0'After\u00a0subroutine\u00a0call<\/span>:<\/span>',<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\/\u00a0'lv_a\u00a0=',\u00a0<\/span>lv_a,<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\/\u00a0'lv_b\u00a0=',\u00a0<\/span>lv_b,<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\/\u00a0'lv_result\u00a0=',\u00a0<\/span>lv_result.<\/span>\r\n\r\n*------------------------------------------------------------------*<\/span>\r\n*\u00a0Subroutine\u00a0Definition<\/span>\r\n*------------------------------------------------------------------*<\/span>\r\nFORM\u00a0<\/span>calculate_sum\u00a0USING\u00a0\u00a0\u00a0\u00a0<\/span>p_a\u00a0TYPE\u00a0<\/span>i<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0p_b\u00a0TYPE\u00a0<\/span>i<\/span>\r\n\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0CHANGING\u00a0<\/span>p_sum\u00a0TYPE\u00a0<\/span>i<\/span>.<\/span>\r\n\r\n\u00a0\u00a0p_a\u00a0=\u00a0<\/span>p_a\u00a0+\u00a01<\/span>.\u00a0\u00a0<\/span>\"\u00a0Modifies\u00a0copy\u00a0(no\u00a0effect\u00a0on\u00a0lv_a)<\/span>\r\n\u00a0\u00a0p_b\u00a0=\u00a0<\/span>p_b\u00a0+\u00a01<\/span>.\u00a0\u00a0<\/span>\"\u00a0Modifies\u00a0copy\u00a0(no\u00a0effect\u00a0on\u00a0lv_b)<\/span>\r\n\r\n\u00a0\u00a0p_sum\u00a0=\u00a0<\/span>p_a\u00a0+\u00a0p_b.\u00a0\u00a0<\/span>\"\u00a0Modifies\u00a0original\u00a0lv_result\u00a0(by\u00a0reference)<\/span>\r\n\r\nENDFORM<\/span>.<\/span><\/span> \r\n<\/code><\/pre>\n
    Output:
    \n<\/p>\n<\/div>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"closed","template":"","question-category":[158],"question_tags":[178,225,177,224],"class_list":["post-7250","question","type-question","status-publish","hentry","question-category-abap","question_tags-abap","question_tags-modularization","question_tags-sap","question_tags-subroutine"],"_links":{"self":[{"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=\/wp\/v2\/question\/7250","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=\/wp\/v2\/question"}],"about":[{"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=\/wp\/v2\/types\/question"}],"author":[{"embeddable":true,"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7250"}],"wp:attachment":[{"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7250"}],"wp:term":[{"taxonomy":"question-category","embeddable":true,"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=%2Fwp%2Fv2%2Fquestion-category&post=7250"},{"taxonomy":"question_tags","embeddable":true,"href":"https:\/\/www.sapewmhelp.com\/index.php?rest_route=%2Fwp%2Fv2%2Fquestion_tags&post=7250"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}