ABAP Subroutines in SAP Script forms

Question

Hi Friends,
Can any give an example on using ABAP Subroutines in SAP Scripts
how to call ABAP  subroutine IN FORM  and how to define form statement in abap program
thanks in advance
Points for sure
Regards
Vijaya

Answer 1

Hi,
you have to write
perform formname in program zprogram
using  &var1&
using &var2&
changing &var3&
endperform
in se38 create program zprogram of subroutine pool ttype
and
write the
form
endform there
egcode for  a subroutne for changing the amount into indian words
PROGRAM  ZFII_SR_PAYMNT_CHCK.
declaring the variables which are necessary
DATA:
  G_AMOUNT       TYPE PC207-BETRG,          " having  amount value
  G_SPELL_AMOUNT(60)  TYPE C, " LIKE     SPELL-WORD,  " amount in words
  G_SPELL_AMOUNT1(60) TYPE C,        " spell structure
  G_WHTAX TYPE BSAK-QBSHB,   "
  G_QBSHB TYPE BSAK-QBSHB, " FOR COLLECTING THE WITH HOLDING TAX
  G_ZUMSK TYPE BSAK-ZUMSK.
*DECLARING THE INTERNAL TABLES FOR THE OUTPUT TO BE DISPLAYED.
TYPES : BEGIN OF T_INPUT_TABLE.
        INCLUDE STRUCTURE ITCSY.
TYPES : END OF T_INPUT_TABLE.
TYPES : BEGIN OF T_OUTPUT_TABLE.
        INCLUDE STRUCTURE ITCSY.
TYPES: END OF T_OUTPUT_TABLE.
DATA: GWA_INPUT_TABLE  TYPE T_INPUT_TABLE.
DATA: GWA_OUTPUT_TABLE TYPE T_OUTPUT_TABLE.
DATA: GIT_INPUT_TABLE TYPE STANDARD TABLE OF  T_INPUT_TABLE.
DATA: GIT_OUTPUT_TABLE TYPE STANDARD  TABLE OF  T_OUTPUT_TABLE.
TYPES : BEGIN OF T_ITEM,
          BUKRS TYPE BUKRS,
          BELNR TYPE BELNR_D,
          GJAHR TYPE GJAHR,
          WT_WITHCD TYPE WT_WITHCD,
          WT_QBSHB TYPE  WT_WT1,
         END OF T_ITEM,
       IT_T_ITEM TYPE STANDARD TABLE OF T_ITEM.
DATA :  GIT_ITEM TYPE IT_T_ITEM,
        GWA_ITEM TYPE T_ITEM.
GET_SPELL_AMOUNT
FORM GET_SPELL_AMOUNT  TABLES  INPUT STRUCTURE ITCSY
                               OUTPUT STRUCTURE ITCSY.      "#EC CALLED
CLEARING OFF THE VARIABLE USED IN PROGRAM.
  CLEAR:  G_AMOUNT,
           G_SPELL_AMOUNT.
*clearing the internal tables which we have used.
  CLEAR:
   GIT_INPUT_TABLE,
   GIT_OUTPUT_TABLE.
*REFRESHING THE INTERNAL TABLES.
  REFRESH:
   GIT_INPUT_TABLE,
   GIT_OUTPUT_TABLE.
*initially assigning the memory vaules to our internal tables.
  GIT_INPUT_TABLE[]  = INPUT[].
  GIT_OUTPUT_TABLE[] = OUTPUT[].
*reading the table input to get the amount value.
  READ TABLE GIT_INPUT_TABLE INTO GWA_INPUT_TABLE   INDEX 1.
  IF GWA_INPUT_TABLE-VALUE CA 'X'.
    REPLACE ALL OCCURRENCES OF 'X' IN GWA_INPUT_TABLE-VALUE WITH '0'.
  ENDIF.
*THIS IS IMPORTANT PART AS IT IS CONVERTING THE
*CHARACTER FIELD INTO CURRENCY FIELD.
  SHIFT GWA_INPUT_TABLE-VALUE LEFT DELETING LEADING SPACE.
  TRANSLATE GWA_INPUT_TABLE-VALUE USING ', '.
  CONDENSE GWA_INPUT_TABLE-VALUE NO-GAPS.
  G_AMOUNT = GWA_INPUT_TABLE-VALUE.
*calling the function moudle which will
*covert amount into words (indian format ).
*i.e in crores, lakhs, thousands
  DATA: L_SPELLAMOUNT(255) TYPE C,
        L_ONLY(255) TYPE C.
  CLEAR: L_SPELLAMOUNT, L_ONLY.
*here the amount should not be more than
99,99,99,999.99 . if it is greater than
*this amount this function module will not work
*so give the amount which is lessthan or equal to
*above said amount.
  IF G_AMOUNT LT '1000000000'.
    CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
      EXPORTING
        AMT_IN_NUM         = G_AMOUNT
      IMPORTING
        AMT_IN_WORDS       = L_SPELLAMOUNT
      EXCEPTIONS
        DATA_TYPE_MISMATCH = 1
        OTHERS             = 2.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.
  CONDENSE L_SPELLAMOUNT.
  TRANSLATE L_SPELLAMOUNT TO UPPER CASE.
  CONCATENATE L_SPELLAMOUNT 'ONLY' INTO L_ONLY SEPARATED BY SPACE.
*moivng the field name into table field.
  GWA_OUTPUT_TABLE-NAME = 'G_SPELL_AMOUNT'.
*assigning the amount in words to the variable.
*the reason  behind splitting the word into two parts
*is--- in the scripts the whole string is not getting
*printed. So we are splitting it into two parts so that
*it will print the whole string.
  G_SPELL_AMOUNT = L_ONLY+0(60).
  G_SPELL_AMOUNT1 = L_ONLY+60(60).
G_SPELL_AMOUNT  = L_SPELLAMOUNT.
*MOVING THE AMOUNT IN WORDS TO FINAL WORK AREA.
  MOVE G_SPELL_AMOUNT TO GWA_OUTPUT_TABLE-VALUE.
*MODIFYING THE INTERNAL TABLE FORM THE WORK AREA.
  MODIFY  GIT_OUTPUT_TABLE FROM GWA_OUTPUT_TABLE INDEX 1.
*FOR THE SECOND RECORD I.E FOR THE NEXT 60characters
  GWA_OUTPUT_TABLE-NAME = 'G_SPELL_AMOUNT1'.
  MOVE G_SPELL_AMOUNT1 TO GWA_OUTPUT_TABLE-VALUE.
  MODIFY  GIT_OUTPUT_TABLE FROM GWA_OUTPUT_TABLE INDEX 2.
*assigning the total output table to the memory .
  OUTPUT[] =  GIT_OUTPUT_TABLE[].
ENDFORM.                    "GET_COMPADDR
thanks & regards,
Venkatesh