ABAP Trainee

Function Module to place negative Sign Before a Number

2011-02-19T11:55:00.000-08:00

In SAP the negative sign by default come after the number. In case if you wish to place the negative sign before the number the following function module should be used.
SAP ABAP Function Module to place the sign before a number.

CLOI_PUT_SIGN_IN_FRONT

The above mentioned function module has the following parameters.
VALUE
Note: This is a changing parameter and accepts the value with Data Type Character.
Find the code below.

REPORT ZEXAMPLE_SIGN .

PARAMETERS : p_num1  TYPE i,
                             p_num2  TYPE i.

DATA: d_sum TYPE i,
            d_value(10).

d_sum = p_num1 + p_num2.
d_value = d_sum.

Write: d_sum.

CALL FUNCTION 'CLOI_PUT_SIGN_IN_FRONT'

CHANGING

    VALUE         = d_value

          .

SKIP.

write:/ d_value RIGHT-JUSTIFIED.

ALV FAQ's

2011-01-16T08:47:00.001-08:00

ALV Tutorials

2011-01-16T08:46:00.000-08:00

ALV Tips

2011-01-16T08:36:00.000-08:00

How to Totals/Subtotals display with Quantity/Currency unit by unit wise in ALV

ALV Categories:

2011-01-16T08:30:00.000-08:00

ALV Tutorials
ALV Tips
ALV FAQ's

Totals/Subtotals Display with Currency/Quantity Unit in ALV

2011-01-15T19:33:00.000-08:00

Pass the QFIELDNAME for quantity fields, CFIELDNAME for currency fields in fieldcatlog.

Go through the following link for fieldcat of quantity and currency fields.
http://help.sap.com/saphelp_46c/helpdata/pt/ff/4649b1f17411d2b486006094192fe3/content.htm

Example:

check the below code:

CLEAR WA_FIELDCAT.
WA_FIELDCAT_ALV-FIELDNAME = 'MEINS'. "internal table unit field
WA_FIELDCAT_ALV-SELTEXT_L = 'UoM'.
APPEND WA_FIELDCAT_ALV TO IT_FIELDCAT_ALV.

CLEAR WA_FIELDCAT.
WA_FIELDCAT_ALV-FIELDNAME = 'MENGE'.
WA_FIELDCAT_ALV-SELTEXT_L = 'Quantity'.
WA_FIELDCAT_ALV-QFIELDNAME = 'MEINS'. "pass your intenal table unit field as quantity unit
APPEND WA_FIELDCAT_ALV TO IT_FIELDCAT_ALV.

Output:

FIMA_DAYS_AND_MONTHS_AND_YEARS

2010-12-19T02:53:00.000-08:00

Find the difference between two dates in years, months and days.

Example:

It calculates the Days , Months and Years between two dates

How to find Project name in User exit

2010-04-07T03:13:00.001-07:00

ow to find Project name in User exit

1. Go to SE11

2. enter MODSAP table name

3. Give your function name Ex: EXIT_SAPLCORF_105

4. Enter your exit name in MEMBER

5. Then you will get the Name i.e., CONFPP05

6. Then again go to SE11 and enter Table name as MODACT

7. Then enter name in place Member

8. Then u will get the name of Project ZTSEU178

9. The project name is ZTSEU178

If you want to deactivate this

Go to CMOD and give project name and deactivate this.

--
Thanks & Regards
Kishore Babu.J

Report to find Badis, Exits, enhancements

2010-04-01T00:42:00.001-07:00

*&---------------------------------------------------------------------*

*& Report ZKS_BADIFIND

*&---------------------------------------------------------------------*

*& To Find Badi, exits, enhancements

*&---------------------------------------------------------------------*

REPORT ZBADI_FIND.

TABLES : TSTC, TADIR, MODSAPT, MODACT, TRDIR, TFDIR, ENLFDIR, SXS_ATTRT , TSTCT.

DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.

DATA : FIELD1(30).

DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.

PARAMETERS : P_TCODE LIKE TSTC-TCODE,

P_PGMNA LIKE TSTC-PGMNA .

DATA wa_tadir type tadir.

START-OF-SELECTION.

IF NOT P_TCODE IS INITIAL.

SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.

ELSEIF NOT P_PGMNA IS INITIAL.

TSTC-PGMNA = P_PGMNA. ENDIF.

IF SY-SUBRC EQ 0.

SELECT SINGLE *

FROM TADIR

WHERE PGMID = 'R3TR' AND OBJECT = 'PROG' AND OBJ_NAME = TSTC-PGMNA.

MOVE : TADIR-DEVCLASS TO V_DEVCLASS.

IF SY-SUBRC NE 0.

SELECT SINGLE *

FROM TRDIR WHERE NAME = TSTC-PGMNA.

IF TRDIR-SUBC EQ 'F'.

SELECT SINGLE *

FROM TFDIR WHERE PNAME = TSTC-PGMNA.

SELECT SINGLE * FROM ENLFDIR WHERE FUNCNAME = TFDIR-FUNCNAME.

SELECT SINGLE * FROM TADIR WHERE PGMID = 'R3TR' AND OBJECT = 'FUGR' AND OBJ_NAME EQ ENLFDIR-AREA.

MOVE : TADIR-DEVCLASS TO V_DEVCLASS.

ENDIF.

SELECT *

FROM TADIR INTO TABLE JTAB WHERE PGMID = 'R3TR' AND OBJECT in ('SMOD', 'SXSD') AND DEVCLASS = V_DEVCLASS.

SELECT SINGLE * FROM TSTCT WHERE SPRSL EQ SY-LANGU AND TCODE EQ P_TCODE.

FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.

WRITE:/(19) 'Transaction Code - ', 20(20) P_TCODE, 45(50) TSTCT-TTEXT.

SKIP.

IF NOT JTAB[] IS INITIAL.

WRITE:/(105) SY-ULINE.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

* Sorting the internal Table sort jtab by OBJECT.

data : wf_txt(60) type c,

wf_smod type i ,

wf_badi type i ,

wf_object2(30) type C.

clear : wf_smod, wf_badi ,

wf_object2.

* Get the total SMOD.

LOOP AT JTAB into wa_tadir.

at first.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

WRITE:/1 SY-VLINE, 2 'Enhancement/ Business Add-in', 41 SY-VLINE , 42 'Description', 105 SY-VLINE.

WRITE:/(105) SY-ULINE.

endat.

clear wf_txt.

at new object.

if wa_tadir-object = 'SMOD'.

wf_object2 = 'Enhancement' .

elseif wa_tadir-object = 'SXSD'.

wf_object2 = ' Business Add-in'.

endif.

FORMAT COLOR COL_GROUP INTENSIFIED ON.

WRITE:/1 SY-VLINE, 2 wf_object2, 105 SY-VLINE.

endat.

case wa_tadir-object.

when 'SMOD'. wf_smod = wf_smod + 1.

SELECT SINGLE MODTEXT into wf_txt FROM MODSAPT WHERE SPRSL = SY-LANGU AND NAME = wa_tadir-OBJ_NAME.

FORMAT COLOR COL_NORMAL INTENSIFIED OFF.

when 'SXSD'.

* For BADis wf_badi = wf_badi + 1 .

select single TEXT into wf_txt from SXS_ATTRT where sprsl = sy-langu and EXIT_NAME = wa_tadir-OBJ_NAME.

FORMAT COLOR COL_NORMAL INTENSIFIED ON.

endcase.

WRITE:/1 SY-VLINE, 2 wa_tadir-OBJ_NAME hotspot on, 41 SY-VLINE , 42 wf_txt, 105 SY-VLINE.

AT END OF object.

write : /(105) sy-ULINE.

ENDAT.

ENDLOOP.

WRITE:/(105) SY-ULINE.

SKIP.

FORMAT COLOR COL_TOTAL INTENSIFIED ON.

WRITE:/ 'No.of Exits:' , wf_smod.

WRITE:/ 'No.of BADis:' , wf_badi.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(105) 'No userexits or BADis exist'.

ENDIF.

ELSE.

FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.

WRITE:/(105) 'Transaction does not exist'.

ENDIF.

AT LINE-SELECTION.

data : wf_object type tadir-object.

clear wf_object.

GET CURSOR FIELD FIELD1.

CHECK FIELD1(8) EQ 'WA_TADIR'.

read table jtab with key obj_name = sy-lisel+1(20).

move jtab-object to wf_object.

case wf_object.

when 'SMOD'.

SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).

CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.

when 'SXSD'. SET PARAMETER ID 'EXN' FIELD SY-LISEL+1(20).

CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.

endcase.

SAP Introduction

2010-03-21T00:28:00.001-07:00

SAP was founded in 1972 in Walldorf, Germany. It stands for Systems, Applications and Products in Data Processing. Over the years, it has grown and evolved to become the world premier provider of client/server business solutions for which it is so well known today. The SAP R/3 enterprise application suite for open client/server systems has established a new standards for providing business information management solutions.

SAP product are consider excellent but not perfect. The main problems with software product is that it can never be perfect.

The main advantage of using SAP as your company ERP system is that SAP have a very high level of integration among its individual applications which guarantee consistency of data throughout the system and the company itself.

In a standard SAP project system, it is divided into three environments, Development, Quality Assurance and Production.

The development system is where most of the implementation work takes place. The quality assurance system is where all the final testing is conducted before moving the transports to the production environment. The production system is where all the daily business activities occur. It is also the client that all the end users use to perform their daily job functions.

To all company, the production system should only contains transport that have passed all the tests.

SAP is a table drive customization software. It allows businesses to make rapid changes in their business requirements with a common set of programs. User-exits are provided for business to add in additional source code. Tools such as screen variants are provided to let you set fields attributes whether to hide, display and make them mandatory fields.

Introduction to ABAP

2010-03-21T00:13:00.001-07:00

Introuction to abap

Tutorials

2010-01-18T18:08:00.000-08:00

An Introduction to SAP