topic Hi in Application Development and Automation Discussions

Hi

Former Member — Thu, 12 Jul 2007 09:43:54 GMT

Hi,

I want to write the program to

1.display highest and lowest salary.

2. Display all records where dept no is D100 and salary greaterthan or equal to 10000 in sorted order of salary in ascending order.

4. Modify the salary of all the employees whose salary is less than the average salary of all the employees, increase their current salary by 20%.

This is my program.

TYPES:

BEGIN OF TY_EMP,

EMPID(4) TYPE N,

ENAME(20) TYPE C,

DEPT(4) TYPE C,

SALARY TYPE I,

END OF TY_EMP.

DATA:

FS_EMP TYPE TY_EMP,

IT_EMP TYPE TABLE OF TY_EMP.

FS_EMP-EMPID = 1010.

FS_EMP-ENAME = 'XX'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 10000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1011.

FS_EMP-ENAME = 'YY'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 11000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1001.

FS_EMP-ENAME = 'ZZ'.

FS_EMP-DEPT = 'D200'.

FS_EMP-SALARY = 12000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1008.

FS_EMP-ENAME = 'XY'.

FS_EMP-DEPT = 'D200'.

FS_EMP-SALARY = 10000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1002.

FS_EMP-ENAME = 'XZ'.

FS_EMP-DEPT = 'D300'.

FS_EMP-SALARY = 8000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1005.

FS_EMP-ENAME = 'YX'.

FS_EMP-DEPT = 'D300'.

FS_EMP-SALARY = 9500.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1002.

FS_EMP-ENAME = 'YZ'.

FS_EMP-DEPT = 'D300'.

FS_EMP-SALARY = 9500.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1007.

FS_EMP-ENAME = 'AA'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 10500.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1003.

FS_EMP-ENAME = 'BB'.

FS_EMP-DEPT = 'D200'.

FS_EMP-SALARY = 12000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1006.

FS_EMP-ENAME = 'CC'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 15000.

APPEND FS_EMP TO IT_EMP.

LOOP AT IT_EMP INTO FS_EMP.

WRITE:/ FS_EMP-EMPID,FS_EMP-ENAME,FS_EMP-DEPT,FS_EMP-SALARY.

ENDLOOP.

rams s

Re: Hi

seshatalpasai_madala — Thu, 12 Jul 2007 09:49:54 GMT

Hi,

TYPES:

BEGIN OF TY_EMP,

EMPID(4) TYPE N,

ENAME(20) TYPE C,

DEPT(4) TYPE C,

SALARY TYPE I,

END OF TY_EMP.

DATA:

FS_EMP TYPE TY_EMP,

IT_EMP TYPE TABLE OF TY_EMP.

FS_EMP-EMPID = 1010.

FS_EMP-ENAME = 'XX'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 10000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1011.

FS_EMP-ENAME = 'YY'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 11000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1001.

FS_EMP-ENAME = 'ZZ'.

FS_EMP-DEPT = 'D200'.

FS_EMP-SALARY = 12000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1008.

FS_EMP-ENAME = 'XY'.

FS_EMP-DEPT = 'D200'.

FS_EMP-SALARY = 10000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1002.

FS_EMP-ENAME = 'XZ'.

FS_EMP-DEPT = 'D300'.

FS_EMP-SALARY = 8000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1005.

FS_EMP-ENAME = 'YX'.

FS_EMP-DEPT = 'D300'.

FS_EMP-SALARY = 9500.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1002.

FS_EMP-ENAME = 'YZ'.

FS_EMP-DEPT = 'D300'.

FS_EMP-SALARY = 9500.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1007.

FS_EMP-ENAME = 'AA'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 10500.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1003.

FS_EMP-ENAME = 'BB'.

FS_EMP-DEPT = 'D200'.

FS_EMP-SALARY = 12000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1006.

FS_EMP-ENAME = 'CC'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 15000.

APPEND FS_EMP TO IT_EMP.

LOOP AT IT_EMP INTO FS_EMP.

WRITE:/ FS_EMP-EMPID,FS_EMP-ENAME,FS_EMP-DEPT,FS_EMP-SALARY.

ENDLOOP.

1.display highest and lowest salary.

SORT IT_EMP BY SALARY.

DATA: line_count type i.

DESCRIBE table IT_EMP LINES line_count.

READ TABLE IT_EMP INTO FS_EMP INDEX 1.

WRITE:/ FS_EMP-EMPID,FS_EMP-ENAME,FS_EMP-DEPT,FS_EMP-SALARY.

READ TABLE IT_EMP INTO FS_EMP INDEX line_count.

WRITE:/ FS_EMP-EMPID,FS_EMP-ENAME,FS_EMP-DEPT,FS_EMP-SALARY.

2. Display all records where dept no is D100 and salary greaterthan or equal to 10000 in sorted order of salary in ascending order.

SORT IT_EMP BY SALARY.

LOOP AT IT_EMP WHERE DEPT = 'D100' AND SALARY GE '10000'.

WRITE:/ FS_EMP-EMPID,FS_EMP-ENAME,FS_EMP-DEPT,FS_EMP-

ENDLOOP.

Regards,

Sesh

Re: Hi

seshatalpasai_madala — Thu, 12 Jul 2007 10:54:21 GMT

Hi,

Here is the solution for

4. Modify the salary of all the employees whose salary is less than the average salary of all the employees, increase their current salary by 20%.

TYPES:

BEGIN OF TY_EMP,

EMPID(4) TYPE N,

ENAME(20) TYPE C,

DEPT(4) TYPE C,

SALARY TYPE I,

END OF TY_EMP.

DATA:

FS_EMP TYPE TY_EMP,

IT_EMP TYPE TABLE OF TY_EMP.

FS_EMP-EMPID = 1010.

FS_EMP-ENAME = 'XX'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 10000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1011.

FS_EMP-ENAME = 'YY'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 11000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1001.

FS_EMP-ENAME = 'ZZ'.

FS_EMP-DEPT = 'D200'.

FS_EMP-SALARY = 12000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1008.

FS_EMP-ENAME = 'XY'.

FS_EMP-DEPT = 'D200'.

FS_EMP-SALARY = 10000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1002.

FS_EMP-ENAME = 'XZ'.

FS_EMP-DEPT = 'D300'.

FS_EMP-SALARY = 8000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1005.

FS_EMP-ENAME = 'YX'.

FS_EMP-DEPT = 'D300'.

FS_EMP-SALARY = 9500.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1002.

FS_EMP-ENAME = 'YZ'.

FS_EMP-DEPT = 'D300'.

FS_EMP-SALARY = 9500.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1007.

FS_EMP-ENAME = 'AA'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 10500.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1003.

FS_EMP-ENAME = 'BB'.

FS_EMP-DEPT = 'D200'.

FS_EMP-SALARY = 12000.

APPEND FS_EMP TO IT_EMP.

FS_EMP-EMPID = 1006.

FS_EMP-ENAME = 'CC'.

FS_EMP-DEPT = 'D100'.

FS_EMP-SALARY = 15000.

APPEND FS_EMP TO IT_EMP.

LOOP AT IT_EMP INTO FS_EMP.

WRITE:/ FS_EMP-EMPID,FS_EMP-ENAME,FS_EMP-DEPT,FS_EMP-SALARY.

ENDLOOP.

DATA: total_sal like FS_EMP-SALARY,

avg_sal LIKE FS_EMP-SALARY.

DATA: line_count type i.

LOOP AT IT_EMP INTO FS_EMP.

total_sal = total_sal + FS_EMP-SALARY.

ENDLOOP.

avg_sal = total_sal / line_count.

FIELD-SYMBOLS: <fs_emp> like FS_EMP-SALARY.

LOOP AT IT_EMP ASSIGNING <FS_EMP> WHERE SALARY < avg_sal.

<FS_EMP>-SALARY = <FS_EMP>-SALARY * '1.2' .

WRITE:/ <FS_EMP>-EMPID,<FS_EMP>-ENAME,<FS_EMP>-DEPT,<FS_EMP>-SALARY.

ENDLOOP.

Regards,

Sesh