ZUTIL

ZUTIL Program
-------------------

*&---------------------------------------------------------------------*
*& Report ZUTIL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------

REPORT ZUTIL line-SIZE 333." NO STANDARD PAGE HEADING.

DATA: gd_ucomm LIKE sy-ucomm.



* Declaration of sel screen buttons
SELECTION-SCREEN begin of BLOCK b1 WITH FRAME .
SELECTION-SCREEN BEGIN OF LINE .
SELECTION-SCREEN PUSHBUTTON (20) w_but1 USER-COMMAND BUT1.
SELECTION-SCREEN END OF line.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (20) w_but2 USER-COMMAND BUT2.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (20) w_but3 USER-COMMAND BUT3.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (20) w_but4 USER-COMMAND BUT4.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (20) w_but5 USER-COMMAND BUT5.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN PUSHBUTTON (20) w_but6 USER-COMMAND BUT6.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN end of BLOCK b1.

************************************************************************
*INITIALIZATION.
INITIALIZATION.
* Add displayed text string to buttons
w_but1 = 'ENTER PROJECT'.
w_but2 = 'DISPLAY PROJECT'.
w_but3 = 'ENTER RESOURCE'.
W_BUT4 = 'DISPLAY RESOURCE'.
W_BUT5 = 'ENTER TASKS'.
w_but6 = 'DISPLAY TASKS'.





************************************************************************
*AT SELECTION-SCREEN.
AT SELECTION-SCREEN.

gd_ucomm = sy-ucomm.

* Check if buttons have been
if w_but1 eq 'BUT1'.
gd_ucomm = 'BUT1'.

elseif w_but2 eq 'BUT2'.
gd_ucomm = 'BUT2'.

elseif w_but3 eq 'BUT3'.
gd_ucomm = 'BUT3'.


elseif w_but4 eq 'BUT4'.
gd_ucomm = 'BUT4'.

elseif w_but5 eq 'BUT5'.
gd_ucomm = 'BUT5'.


elseif w_but6 eq 'BUT6'.
gd_ucomm = 'BUT6'.

endif.


************************************************************************
*AT SELECTION-SCREEN OUTPUT.
AT SELECTION-SCREEN OUTPUT.
if gd_ucomm eq 'BUT1'.
message 'Enter the Project details' type 'I'.
SUBMIT zproj_util VIA SELECTION-SCREEN AND RETURN.

elseif gd_ucomm eq 'BUT2'.
if gd_ucomm eq 'BUT2'.
message 'Display the Project Details' type 'I'.
SUBMIT zproj_util1 VIA SELECTION-SCREEN AND RETURN.
endif.

elseif gd_ucomm eq 'BUT3'.
if gd_ucomm eq 'BUT3'.
message 'Enter the Resource Details' type 'I'.
SUBMIT zreso_util VIA SELECTION-SCREEN AND RETURN.
endif.

elseif gd_ucomm eq 'BUT4'.
if gd_ucomm eq 'BUT4'.
message 'Display the Resource Details' type 'I'.
SUBMIT zreso_util1 VIA SELECTION-SCREEN AND RETURN.
endif.
*
elseif gd_ucomm eq 'BUT5'.
if gd_ucomm eq 'BUT5'.
message 'Enter the Task Details' type 'I'.
SUBMIT ztask_util VIA SELECTION-SCREEN AND RETURN.
endif.
elseif gd_ucomm eq 'BUT6'.
if gd_ucomm eq 'BUT6'.
message 'Display the Task Details' type 'I'.
SUBMIT ztask_util1 VIA SELECTION-SCREEN AND RETURN.
endif.

endif.

ZPROJ_UTIL
-------------------

*&---------------------------------------------------------------------*
*& Report ZPROJ_UTIL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZPROJ_UTIL.


types: begin of ty_project,
PROID type ZPROJ_UTIL-PROID,
TASID type ZPROJ_UTIL-TASID,
PRONA type ZPROJ_UTIL-PRONA,
TASNA type ZPROJ_UTIL-TASNA,
DURAT type ZPROJ_UTIL-DURAT,
SDATE type ZPROJ_UTIL-SDATE,
EDATE type ZPROJ_UTIL-EDATE,
EINMD type ZPROJ_UTIL-EINMD,
LEADN type ZPROJ_UTIL-LEADN,
ZRES_ID type ZPROJ_UTIL-ZRES_ID,
ZRESNAME type ZPROJ_UTIL-ZRES_NAME,
STATU type ZPROJ_UTIL-STATU,
ZLEADSOF type ZPROJ_UTIL-ZLEAD_SIGNOFF,
ZLEADCOM type ZPROJ_UTIL-ZLEAD_COMMENTS,
end of ty_project.
*
* data: wa_project type ty_project,
* it_project type table of ty_project.

data: wa_project type ZPROJ_UTIL,
it_project type table of ZPROJ_UTIL.
DATA: WA_TASK TYPE ZTASK_UTIL,
IT_TASK TYPE TABLE OF ZTASK_UTIL.

DATA: d_ucomm LIKE sy-ucomm.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS: PROID type ZPROJ_UTIL-PROID,
TASID type ZPROJ_UTIL-TASID,
PRONA type ZPROJ_UTIL-PRONA,
TASNA type ZPROJ_UTIL-TASNA,
DURAT type ZPROJ_UTIL-DURAT,
SDATE type ZPROJ_UTIL-SDATE,
EDATE type ZPROJ_UTIL-EDATE,
EINMD type ZPROJ_UTIL-EINMD,
LEADN type ZPROJ_UTIL-LEADN,
ZRES_ID type ZPROJ_UTIL-ZRES_ID,
ZRESNAME type ZPROJ_UTIL-ZRES_NAME,
STATU type ZPROJ_UTIL-STATU,
ZLEADSOF type ZPROJ_UTIL-ZLEAD_SIGNOFF,
ZLEADCOM type ZPROJ_UTIL-ZLEAD_COMMENTS.

SELECTION-SCREEN END OF BLOCK B1.


*SELECTION-SCREEN PUSHBUTTON /30(10) Execute USER-COMMAND EXEC.

INITIALIZATION.
* Execute = 'SUBMIT'.

"if execute = 'OK'.

AT SELECTION-SCREEN.
d_ucomm = sy-ucomm.

*AT SELECTION-SCREEN OUTPUT.
START-OF-SELECTION.
wa_project-PROID = PROID.
wa_project-TASID = TASID.
WA_TASK-TASID = TASID.
wa_project-PRONA = PRONA.
wa_project-TASNA = TASNA.
wa_project-DURAT = DURAT.
wa_project-SDATE = SDATE.
wa_project-EDATE = EDATE.
wa_project-EINMD = EINMD.
wa_project-LEADN = LEADN.
wa_project-ZRES_ID = ZRES_ID.
WA_TASK-RESID = ZRES_ID.
wa_project-ZRES_NAME = ZRESNAME.
wa_project-STATU = STATU.
wa_project-ZLEAD_SIGNOFF = ZLEADSOF.
wa_project-ZLEAD_COMMENTS = ZLEADCOM.

*INSERT INTO VALUES
*select RESID from ZRESO_UTIL
data it_zreso_util type table of ZRESO_UTIL.
SELECT * from ZRESO_UTIL into table it_ZRESO_UTIL where RESID = wa_project-ZRES_ID.
if sy-subrc = 0.
MODIFY ZPROJ_UTIL FROM WA_PROJECT.
MODIFY ZTASK_UTIL FROM WA_TASK.
MESSAGE 'Project table updated' TYPE 'I'.
Clear PROID. Clear TASID. Clear PRONA. Clear TASNA. Clear DURAT. Clear SDATE. Clear EDATE. Clear EINMD. Clear LEADN. Clear ZRES_ID.
Clear ZRESNAME. Clear STATU. Clear ZLEADSOF. Clear ZLEADCOM.

else.
MESSAGE 'Resource Not available in resourse Table ' TYPE 'I'.
clear PROID. Clear TASID. Clear PRONA. Clear TASNA. Clear DURAT. Clear SDATE. Clear EDATE. Clear EINMD. Clear LEADN. Clear ZRES_ID.
Clear ZRESNAME. Clear STATU. Clear ZLEADSOF. Clear ZLEADCOM.

endif.


Clear PROID.
Clear TASID.
Clear PRONA.
Clear TASNA.
Clear DURAT.
Clear SDATE.
Clear EDATE.
Clear EINMD.
Clear LEADN.
Clear ZRES_ID.
Clear ZRESNAME.
Clear STATU.
Clear ZLEADSOF.
Clear ZLEADCOM.

*insert ZPROJ_UTIL FROM WA_PROJECT.

* insert ZPROJ_UTIL from wa_project.



clear wa_project.

*&---------------------------------------------------------------------*
*& Report ZPROJ_UTIL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZPROJ_UTIL1.
tables zproj_util.

types: begin of ty_final,
ZRES_ID type ZPROJ_UTIL-ZRES_ID,
ZRESNAME type ZPROJ_UTIL-ZRES_NAME,
PROID type ZPROJ_UTIL-PROID,
PRONA type ZPROJ_UTIL-PRONA,
TASID type ZPROJ_UTIL-TASID,
TASNA type ZPROJ_UTIL-TASNA,
DURAT type ZPROJ_UTIL-DURAT,
DURAT_hr type numc3,
POSIT type ZPOSIT,
REPTO type ZREPTO,
RESST type ZRESST,
* SDATE type ZPROJ_UTIL-SDATE,
* EDATE type ZPROJ_UTIL-EDATE,
* EINMD type ZPROJ_UTIL-EINMD,
* LEADN type ZPROJ_UTIL-LEADN,
* STATU type ZPROJ_UTIL-STATU,
* ZLEADSOF type ZPROJ_UTIL-ZLEAD_SIGNOFF,
* ZLEADCOM type ZPROJ_UTIL-ZLEAD_COMMENTS,
end of ty_final.
*
* data: wa_project type ty_project,
* it_project type table of ty_project.

data: wa_project type ZPROJ_UTIL,
it_project type table of ZPROJ_UTIL.
data: wa_final type ty_final,
it_final type table of ty_final.
DATA: WA_TASK TYPE ZTASK_UTIL,
IT_TASK TYPE TABLE OF ZTASK_UTIL.
data wa_res type ZRESO_UTIL.
data it_res type TABLE OF ZRESO_UTIL.

DATA: d_ucomm LIKE sy-ucomm.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : PROID for ZPROJ_UTIL-PROID,
TASID for ZPROJ_UTIL-TASID,
SDATE for ZPROJ_UTIL-SDATE,
EDATE for ZPROJ_UTIL-EDATE,
* LEADN type ZPROJ_UTIL-LEADN,
ZRES_ID for ZPROJ_UTIL-ZRES_ID,
STATU for ZPROJ_UTIL-STATU.

parameters : zRESST type ZRESO_UTIL-RESST.


SELECTION-SCREEN END OF BLOCK B1.


* SELECTION-SCREEN PUSHBUTTON /30(10) Execute USER-COMMAND EXEC.
*
*INITIALIZATION.
* Execute = 'SUBMIT'.

"if execute = 'OK'.

AT SELECTION-SCREEN.
d_ucomm = sy-ucomm.
START-OF-SELECTION.

select * from ZPROJ_UTIL into table it_project
where PROID in proid and
TASID in tasid and
ZRES_ID in zres_id. "and
* RESST = resst.

select * from ZRESO_UTIL into table it_res
where RESID in zres_id ."and
* RESST = zresst.

loop at it_project into wa_project.

READ TABLE it_res INTO wa_res WITH KEY resid = wa_project-zres_id." mandt = '800'.
if sy-subrc = 0.

wa_final-zres_id = wa_project-zres_id.
wa_final-zresname = wa_res-RESNA.
wa_final-PROID = wa_project-proid.
wa_final-PRONA = wa_project-prona.
wa_final-TASID = wa_project-tasid.
wa_final-tasna = wa_project-tasna.
wa_final-durat = wa_project-DURAT.
wa_final-durat_hr = wa_project-DURAT * 8 .
wa_final-POSIT = wa_res-POSIT.
wa_final-REPTO = wa_res-REPTO.
wa_final-RESST = wa_res-RESST.
APPEND wa_final to it_final.
endif.

ENDLOOP.


LOOP AT it_final into wa_final.
write: wa_final.
endloop.


*&---------------------------------------------------------------------*
*& Report ZRESO_UTIL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZRESO_UTIL.

Data: wa_ZRESO_UTIL type ZRESO_UTIL,
it_ZRESO_UTIL type table of ZRESO_UTIL.


DATA: d_ucomm LIKE sy-ucomm.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS: RESID type ZRESO_UTIL-RESID OBLIGATORY,
RESNA type ZRESO_UTIL-RESNA OBLIGATORY,
POSIT type ZRESO_UTIL-POSIT OBLIGATORY,
REPTO type ZRESO_UTIL-REPTO OBLIGATORY,
RESST type ZRESO_UTIL-RESST.


SELECTION-SCREEN END OF BLOCK B1.

* SELECTION-SCREEN PUSHBUTTON /30(10) Execute USER-COMMAND EXEC.

INITIALIZATION.
* Execute = 'SUBMIT'.

"if execute = 'OK'.

AT SELECTION-SCREEN.
d_ucomm = sy-ucomm.

*AT SELECTION-SCREEN OUTPUT.


start-OF-SELECTION.
if resid <> ' '.

wa_ZRESO_UTIL-RESID = RESID.
wa_ZRESO_UTIL-RESNA = RESNA.
wa_ZRESO_UTIL-POSIT = POSIT.
wa_ZRESO_UTIL-REPTO = REPTO.
wa_ZRESO_UTIL-RESST = RESST.

select * from ZRESO_UTIL into table it_zreso_util where RESID = wa_zreso_util-resid.

if sy-subrc ne 0.
MODIFY ZRESO_UTIL FROM wa_ZRESO_UTIL.
MESSAGE 'Resource Table updated ' TYPE 'I'.
Clear RESID.
Clear RESNA.
Clear POSIT.
Clear REPTO.
Clear RESST.
else.
MESSAGE 'Resource is already available in resourse Table ' TYPE 'I'.
endif.

else.
MESSAGE 'Please enter the details' TYPE 'I'.
endif.

*INSERT INTO VALUES

*data it_zreso_util type table of ZRESO_UTIL.
* SELECT * from ZRESO_UTIL into table it_ZRESO_UTIL where RESID = wa_project-ZRES_ID.
* if sy-subrc = 0.

* select * from ZRESO_UTIL into table it_zreso_util where RESID = wa_zreso_util-resid.
* if sy-subrc ne 0.
* MODIFY ZRESO_UTIL FROM wa_ZRESO_UTIL.
* MESSAGE 'Resource Table updated ' TYPE 'I'.
* Clear RESID.
* Clear RESNA.
* Clear POSIT.
* Clear REPTO.
* Clear RESST.
* else.
* MESSAGE 'Resource is already available in resourse Table ' TYPE 'I'.
*
* endif.
*insert ZPROJ_UTIL FROM WA_PROJECT.

* insert ZPROJ_UTIL from wa_project.



clear wa_ZRESO_UTIL.

*&---------------------------------------------------------------------*
*& Report ZRESO_UTIL1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZRESO_UTIL1.

tables: ZRESO_UTIL.

types: BEGIN OF TY_ZRESO_UTIL,
RESID type ZRESO_UTIL-RESID,
RESNA type ZRESO_UTIL-RESNA,
POSIT type ZRESO_UTIL-POSIT,
REPTO type ZRESO_UTIL-REPTO,
RESST type ZRESO_UTIL-RESST,
END OF ty_ZRESO_UTIL.

data: wa_ZRESO_UTIL type ZRESO_UTIL,
it_ZRESO_UTIL type table of ZRESO_UTIL.

data: wa_final type ty_ZRESO_UTIL,
it_final type table of ty_ZRESO_UTIL.


DATA: d_ucomm LIKE sy-ucomm.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : RESID for ZRESO_UTIL-RESID,
RESNA for ZRESO_UTIL-RESNA,
POSIT for ZRESO_UTIL-POSIT,
REPTO for ZRESO_UTIL-REPTO,
RESST for ZRESO_UTIL-RESST.
SELECTION-SCREEN END OF BLOCK B1.


select * from zreso_util
into table it_ZRESO_UTIL
where resid in resid and
resna in resna.


write:5 'Resource Id ', 20 'Resource name', 61 'Position', 105 'Reported to', 143 'Status'.
uline.

loop at it_zreso_util into wa_zreso_util.

write:/5 wa_zreso_util-resid,20 wa_zreso_util-resna,61 wa_zreso_util-posit,105 wa_zreso_util-repto,143 wa_zreso_util-resst.

endloop.

* BREAK-POINT.

*&---------------------------------------------------------------------*
*& Report ZTASK_UTIL
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTASK_UTIL.


TABLES : ZTASK_UTIL.

types: begin of ty_ZTASK_UTIL,
TASID type ZTASK_UTIL-TASID,
RESID type ZTASK_UTIL-RESID,
EFF_HOURS type ZTASK_UTIL-EFF_HOURS,
EFF_DAYS type ZTASK_UTIL-EFF_DAYS,
ASDATE type ZTASK_UTIL-ASDATE,
AEDATE type ZTASK_UTIL-AEDATE,
end of ty_ztask_util.

data: wa_ZTASK_UTIL type ZTASK_UTIL,
it_ZTASK_UTIL type TABLE OF ZTASK_UTIL.
data: it_zproj_util type TABLE OF zproj_util,
it_zreso_util type TABLE OF zreso_util.

DATA: d_ucomm LIKE sy-ucomm.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS:
TASID type ZTASK_UTIL-TASID,
RESID type ZTASK_UTIL-RESID,
EHOURS type ZTASK_UTIL-EFF_HOURS,
EDAYS type ZTASK_UTIL-EFF_DAYS,
ASDATE type ZTASK_UTIL-ASDATE,
AEDATE type ZTASK_UTIL-AEDATE.
SELECTION-SCREEN END OF BLOCK B1.


INITIALIZATION.

AT SELECTION-SCREEN.
d_ucomm = sy-ucomm.

START-OF-SELECTION.

if tasid <> ' '.

wa_ZTASK_UTIL-TASID = TASID.
wa_ZTASK_UTIL-RESID = RESID.
wa_ZTASK_UTIL-EFF_HOURS = EHOURS.
wa_ZTASK_UTIL-EFF_DAYS = EDAYS.
wa_ZTASK_UTIL-ASDATE = ASDATE.
wa_ZTASK_UTIL-AEDATE = AEDATE.

select * from Zreso_UTIL into table it_zreso_UTIL where RESID = wa_ztask_util-resid. " find out wethere resource is maintain in resource table.

if sy-subrc eq 0.

select * from zproj_util into table it_zproj_util where tasid = wa_ztask_util. " find out where task is maintain in resource table or not.

if sy-subrc eq 0.

modify ztask_util from wa_ztask_util.

MESSAGE 'Task table updated' type 'I'.
else.
MESSAGE 'Task id does not maintain in project table' type 'I'.
endif.
else.
message 'Resource id not maintain in Resource Table' type 'I'.
endif.

else.
message 'please enter the details' type 'I'.
endif.



clear wa_ztask_util.


*&---------------------------------------------------------------------*
*& Report ZTASK_UTIL1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTASK_UTIL1.

tables: ztask_util.

data: wa_ztask_util type ztask_util,
it_ztask_util type TABLE OF ztask_util.

data: d_ucomm like sy-ucomm.


SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : TASID for ztask_util-TASID,
RESID for ztask_util-RESID,
EHOURS for ztask_util-eff_HOURS,
EDAYS for ztask_util-eff_days,
ASDATE for ztask_util-ASDATE,
AEDATE for ztask_util-AEDATE.

SELECTION-SCREEN END OF BLOCK B1.


select * from ztask_util
into table it_ztask_util
where tasid in tasid and
resid in resid.


write:5 'Task Id ', 20 'Resource ID', 35 'Effort in Hours', 50 'Effort in days', 70 'Actual Start Date', 90 'Actual End Date'.
uline.

loop at it_ztask_util into wa_ztask_util.

write:/5 wa_ztask_util-tasid,20 wa_ztask_util-resid,35 wa_ztask_util-eff_hours,50 wa_ztask_util-eff_days,70 wa_ztask_util-asdate,90 wa_ztask_util-aedate.

endloop.

Tables:
----------------