FUNCTIONS

COMMON PROGRAMS FOR FUNCTIONS
REPORT ZFUNTEST .
PARAMETERS : A TYPE I, B TYPE I.
DATA R TYPE I.
CALL FUNCTION 'ZTESTFUN'
EXPORTING
X = A
Y = B
IMPORTING
RES = R
EXCEPTIONS
NONZERO = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
WRITE : / 'EXCTION NON ZERO RAISED'.
ELSE.
WRITE : 'RESULT = ', R.
ENDIF.


STEPS :
CREATION OF FUNCTION GROUP:
1. GOTO SE80
2. GOTO WORKBENCH -> OTHER OBJECT
3. SELECT FUNCTION GROUP TAB AND GIVE A NAME LIKE ZSAMP_FUN
4. SAVE

CREATION OF FUNCTION MODULE :
1. GOTO SE37
2. GIVE SOME NAME FOR FN. MODULE AND SPECIFY THE RELATED FUNCTION GROUP
3. THEN SPECIFY THE INPUT AND OUTPUT PARAMETERS AND SPECIFY THE EXCEPTIONS
4 . THEN GOTO SOURCE CODE AND WRITE SOURCE CODE.
5. ENVIRONMENT -> INACTIVE OBJECTS -> FN. GROUP -> FUNCTION -> ACTIVATE

CALLING FUNCTION IN A PROGRAM
1. GOTO SE38
2. GIVE SOME NAME AND SAVE IT AS EXECUTABLE PROGRAM
3. WRITE SOME CODE SPECIFYING THE ACTUAL INPUT AND OUTPUT PARAETERS
4. CLICK ON PATTERN AND CALL THE FUNCTION MODULE AND MAP THE FIELDS



FUNCTION ZTESTFUN.
*"----------------------------------------------------------------------
*"*"LOCAL INTERFACE:
*" IMPORTING
*" REFERENCE(X) TYPE I
*" REFERENCE(Y) TYPE I
*" EXPORTING
*" REFERENCE(RES) TYPE I
*" EXCEPTIONS
*" NONZERO
*"----------------------------------------------------------------------
IF X = 0 OR Y = 0.
RAISE NONZERO.
ELSE.
RES = X * Y.
ENDIF.
ENDFUNCTION.
====================================================
CALL FOR FUNCTION
====================================================



REPORT ZCALL_FUNCTION .
DATA TEST TYPE I .
PARAMETERS : CUST TYPE I.
*SELECT * FROM KNA1.
* WRITE KNA1-KUNNR,KNA1-LAND1,KNA1-NAME1.
*ENDSELECT.
*
*KUNNR
*LAND1
*NAME1

CALL FUNCTION 'ZFIRST_FUCTION'
EXPORTING
CUST_CODE = I
IMPORTING
CODE = TEST
* EXCEPTIONS
NO_CODE = 1
* OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE I000(0) WITH 'NO DATA FOUND'
ELSE
WRITE 'VALUE IS ' CODE
ENDIF.