MOST URGENT - PLS GO THROW IT

Question

HI BELOW INFO IS GIVEN FOR ME ABOUT TICKET WITH PROGRAMS. IF U PLS GO THROW IT. AND LET ME KNOW THE SOLUTION OF IT.
EMAIL IN 08-Jun-07 14:17:28 emailclerkmts Action Type: Update Received Via Email
Subject:FW: Service Request for PS Create Version
Subject:Service Request for PS Create Version
Bryan attached is the service request form for changes to the programs
for the PS extract versions.
Thanks,
Richard Hutton
*Attachment*
Service Request Title:
PS Extract Create Current Version and Create Historical Version
Originator Name:
Originator Phone:
Originator Department:
[phone]
Capital Budgets
SAP Module(s) Affected:PS && IM
Requested Due Date:June 30th 2007
Existing Situation
When job PS_DAY_CREATE_VERSION runs the program ZJIMU002 with variant DEL
CURVERSION the last version created by program ZJIMU003 is deleted prior
to program ZJIMU003 creating a new current version using variant CURRENT
YEAR and updating the TVARV variable PS_NEWEST_REPORTING_VERSION. Job
PS_ZJIMU003_CREATE_VERSION_HIST. also uses program ZJIMU003 with variant
ANNUAL HIST. and updates the same TVARV variable. When
PS_DAY_CREATE_VERSION runs again the following day it deletes the Version
created by PS_ZJIMU003_CREATE_VERSION_HIST.
Impact Statement (impact to business if request is not completed)
Inability to run Project Systems (PS) ZJ02 reports for current, future,
and historical information.
Requirements
Require program change so that the historical version created by
PS_ZJIMU003_CREATE_VERSION_HIST is created with a number prefaced with an
?H? so it is not deleted by PS_DAY_CREATE_VERSION, thus enabling the
ability to run ZJ02 reports on projects for all dates. We will require
changes to the PS_ZJIMU003_CREATE_VERSION_HIST that would delete the last
Historical ?H? version.
Benefits
Ability to report on and manage projects.
*end of attachment*
ZJIMU002: Summarize Project Information For IM - Investment Management
*=======================================================================
ABAP: ZJIMU002
1999.11.22 Paul Robert renamed r0NN to ronn
replaced program with ZPSPROJDTL version
2001-09-11 Paul Sparling Changed program to run in background only
and associated with transaction
zdelvers
*=======================================================================
REPORT ZJIMU002 LINE-SIZE 250 NO STANDARD PAGE HEADING.
T A B L E S ***
TABLES:
M_ZVSNA,
TVARV, " SELECTION VARIABLES
ZPSPROJDTL. " Project Summary
I N T E R N A L T A B L E S ***
DATA: CUR_REC TYPE I,
RECS_DELETED TYPE I,
RECS_DELETED_SY-DBCNT TYPE I,
DELETED_SY-DBCNT(10) TYPE N,
NUM_RECS TYPE I,
NUM_RECS_NUM(10) TYPE N,
DELETED_TEXT(50) TYPE C.
D A T A D E C L A R A T I O N S ***
DATA:
LC_SYSTEM(7) TYPE C,
UPDATE_T_ZPSPROJDTL LIKE ZPSPROJDTL OCCURS 0 WITH HEADER LINE,
T_ZPSPROJDTL LIKE ZPSPROJDTL OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS S_VERSN FOR ZPSPROJDTL-VERSN NO INTERVALS
OBLIGATORY
MATCHCODE OBJECT ZVSN
MEMORY ID ZVR.
*=======================================================================
Start of changes 12/15/98 - Authorization Check
INCLUDE ZYIMUTLA.
End of changes 12/15/98 - Authorization Check
INITIALIZATION.
SELECT * FROM TVARV
WHERE NAME = 'PS_NEWEST_REPORTING_VERSION'
AND TYPE = 'S'
AND NUMB = 0.
IF SY-SUBRC = 0.
S_VERSN-SIGN = TVARV-SIGN.
S_VERSN-OPTION = TVARV-OPTI.
S_VERSN-LOW = TVARV-LOW.
S_VERSN-HIGH = TVARV-HIGH.
APPEND S_VERSN.
ENDIF.
ENDSELECT.
START-OF-SELECTION.
END-OF-SELECTION.
IF SY-BATCH <> 'X'.
WRITE: /,/,/,'Error, program can be run in background only!'.
STOP.
ENDIF.
PERFORM DELETE_PROJECT_VERSIONS.
write: / sy-repid color col_normal, " Report/ABAP Name
/ lc_system color col_normal. " System (DEV)
uline.
LOOP AT S_VERSN.
CLEAR UPDATE_T_ZPSPROJDTL.
MOVE S_VERSN-LOW TO UPDATE_T_ZPSPROJDTL-VERSN.
SELECT SINGLE * FROM ZPSPROJDTL
WHERE VERSN = UPDATE_T_ZPSPROJDTL-VERSN.
IF SY-SUBRC <> 0.
SELECT SINGLE * INTO CORRESPONDING FIELDS OF UPDATE_T_ZPSPROJDTL
FROM M_ZVSNA
WHERE VERSN = S_VERSN-LOW.
IF SY-SUBRC = 0.
APPEND UPDATE_T_ZPSPROJDTL.
ENDIF.
WRITE: / 'VERSION: ', S_VERSN-LOW, ' DELETED'.
ELSE.
WRITE: / 'VERSION:', S_VERSN-LOW, ' WAS NOT COMPLETELY DELETED'.
ENDIF.
ENDLOOP.
CALL FUNCTION 'MC_UPDATE_ZVSN'
EXPORTING
KZZPSPROJDTL_DEL = 0
KZZPSPROJDTL_INS = 0
TABLES
ZPSPROJDTL_DEL = UPDATE_T_ZPSPROJDTL
zpsprojdtl_ins =
EXCEPTIONS
LANG_NOT_FOUND = 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.
*=======================================================================
FORM DELETE_PROJECT_VERSIONS.
*=======================================================================
CLEAR CUR_REC.
CLEAR NUM_RECS.
CLEAR RECS_DELETED_SY-DBCNT.
SELECT VERSN PRNAM GJAHR F_YEAR WRTTP
INTO CORRESPONDING FIELDS OF T_ZPSPROJDTL
FROM ZPSPROJDTL
WHERE VERSN IN S_VERSN.
COLLECT T_ZPSPROJDTL.
ENDSELECT.
SELECT COUNT(*) INTO NUM_RECS
FROM ZPSPROJDTL
WHERE VERSN IN S_VERSN.
NUM_RECS_NUM = NUM_RECS.
describe table t_zpsprojdtl lines num_recs.
*Loop through int table deleting corresponding recs from DB table
LOOP AT T_ZPSPROJDTL.
RECS_DELETED = RECS_DELETED + 1.
CUR_REC = CUR_REC + 1.
DELETE FROM ZPSPROJDTL
WHERE VERSN = T_ZPSPROJDTL-VERSN
AND PRNAM = T_ZPSPROJDTL-PRNAM
AND GJAHR = T_ZPSPROJDTL-GJAHR
AND F_YEAR = T_ZPSPROJDTL-F_YEAR
AND WRTTP = T_ZPSPROJDTL-WRTTP.
COMMIT WORK.
RECS_DELETED_SY-DBCNT = RECS_DELETED_SY-DBCNT + SY-DBCNT.
*Display progress bar
DELETED_SY-DBCNT = RECS_DELETED_SY-DBCNT.
CONCATENATE DELETED_SY-DBCNT 'Records deleted of'
NUM_RECS_NUM
INTO DELETED_TEXT SEPARATED BY SPACE.
PERFORM DISPLAY_PROGRESS USING
RECS_DELETED_SY-DBCNT
NUM_RECS
DELETED_TEXT.
ENDLOOP.
WRITE: / DELETED_TEXT.
COMMIT WORK.
ENDFORM.
*& Form DISPLAY_PROGRESS
Displays a progress bar and text or just text at bottom of scrn
--> PROCESSED_CNT - Number of records processed
--> TABLE_ENTRIES - Total number of entries in internal table
--> DISPLAY_TEXT - Text message to be displayed
FORM DISPLAY_PROGRESS USING PROCESSED_CNT TYPE I
TABLE_ENTRIES LIKE SY-TFILL
DISPLAY_TEXT TYPE C.
local variables used for percentage bar
DATA:
CUR_PERCENT TYPE P DECIMALS 1,
IND_TEXT(50) TYPE C,
PERCENT_TEXT(05) TYPE C.
P E R C E N T A G E B A R ********
IF NOT ( PROCESSED_CNT IS INITIAL ).
CUR_PERCENT = PROCESSED_CNT / TABLE_ENTRIES * 100.
start pr19990916 change
if remain = 0.
end pr19990916 change
PERCENT_TEXT = CUR_PERCENT.
CONCATENATE PERCENT_TEXT
DISPLAY_TEXT INTO
IND_TEXT
SEPARATED BY SPACE.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = CUR_PERCENT
TEXT = IND_TEXT
EXCEPTIONS
OTHERS = 1.
start pr19990916 change
endif.
end pr19990916 change
ELSE.
*Display text only
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = 0
TEXT = DISPLAY_TEXT
EXCEPTIONS
OTHERS = 1.
ENDIF.
E N D O F P E R C E N T B A R *****
ENDFORM. " DISPLAY_PROGRESS
ANOTHER PROGRAM--Z--
ZJIMU002: Summarize Project Information For IM - Investment Management
*=======================================================================
ABAP: ZJIMU002
1999.11.22 Paul Robert renamed r0NN to ronn
replaced program with ZPSPROJDTL version
2001-09-11 Paul Sparling Changed program to run in background only
and associated with transaction
zdelvers
*=======================================================================
REPORT ZJIMU002 LINE-SIZE 250 NO STANDARD PAGE HEADING.
T A B L E S ***
TABLES:
M_ZVSNA,
TVARV, " SELECTION VARIABLES
ZPSPROJDTL. " Project Summary
I N T E R N A L T A B L E S ***
DATA: CUR_REC TYPE I,
RECS_DELETED TYPE I,
RECS_DELETED_SY-DBCNT TYPE I,
DELETED_SY-DBCNT(10) TYPE N,
NUM_RECS TYPE I,
NUM_RECS_NUM(10) TYPE N,
DELETED_TEXT(50) TYPE C.
D A T A D E C L A R A T I O N S ***
DATA:
LC_SYSTEM(7) TYPE C,
UPDATE_T_ZPSPROJDTL LIKE ZPSPROJDTL OCCURS 0 WITH HEADER LINE,
T_ZPSPROJDTL LIKE ZPSPROJDTL OCCURS 0 WITH HEADER LINE.
SELECT-OPTIONS S_VERSN FOR ZPSPROJDTL-VERSN NO INTERVALS
OBLIGATORY
MATCHCODE OBJECT ZVSN
MEMORY ID ZVR.
*=======================================================================
Start of changes 12/15/98 - Authorization Check
INCLUDE ZYIMUTLA.
End of changes 12/15/98 - Authorization Check
INITIALIZATION.
SELECT * FROM TVARV
WHERE NAME = 'PS_NEWEST_REPORTING_VERSION'
AND TYPE = 'S'
AND NUMB = 0.
IF SY-SUBRC = 0.
S_VERSN-SIGN = TVARV-SIGN.
S_VERSN-OPTION = TVARV-OPTI.
S_VERSN-LOW = TVARV-LOW.
S_VERSN-HIGH = TVARV-HIGH.
APPEND S_VERSN.
ENDIF.
ENDSELECT.
START-OF-SELECTION.
END-OF-SELECTION.
IF SY-BATCH <> 'X'.
WRITE: /,/,/,'Error, program can be run in background only!'.
STOP.
ENDIF.
PERFORM DELETE_PROJECT_VERSIONS.
write: / sy-repid color col_normal, " Report/ABAP Name
/ lc_system color col_normal. " System (DEV)
uline.
LOOP AT S_VERSN.
CLEAR UPDATE_T_ZPSPROJDTL.
MOVE S_VERSN-LOW TO UPDATE_T_ZPSPROJDTL-VERSN.
SELECT SINGLE * FROM ZPSPROJDTL
WHERE VERSN = UPDATE_T_ZPSPROJDTL-VERSN.
IF SY-SUBRC <> 0.
SELECT SINGLE * INTO CORRESPONDING FIELDS OF UPDATE_T_ZPSPROJDTL
FROM M_ZVSNA
WHERE VERSN = S_VERSN-LOW.
IF SY-SUBRC = 0.
APPEND UPDATE_T_ZPSPROJDTL.
ENDIF.
WRITE: / 'VERSION: ', S_VERSN-LOW, ' DELETED'.
ELSE.
WRITE: / 'VERSION:', S_VERSN-LOW, ' WAS NOT COMPLETELY DELETED'.
ENDIF.
ENDLOOP.
CALL FUNCTION 'MC_UPDATE_ZVSN'
EXPORTING
KZZPSPROJDTL_DEL = 0
KZZPSPROJDTL_INS = 0
TABLES
ZPSPROJDTL_DEL = UPDATE_T_ZPSPROJDTL
zpsprojdtl_ins =
EXCEPTIONS
LANG_NOT_FOUND = 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.
*=======================================================================
FORM DELETE_PROJECT_VERSIONS.
*=======================================================================
CLEAR CUR_REC.
CLEAR NUM_RECS.
CLEAR RECS_DELETED_SY-DBCNT.
SELECT VERSN PRNAM GJAHR F_YEAR WRTTP
INTO CORRESPONDING FIELDS OF T_ZPSPROJDTL
FROM ZPSPROJDTL
WHERE VERSN IN S_VERSN.
COLLECT T_ZPSPROJDTL.
ENDSELECT.
SELECT COUNT(*) INTO NUM_RECS
FROM ZPSPROJDTL
WHERE VERSN IN S_VERSN.
NUM_RECS_NUM = NUM_RECS.
describe table t_zpsprojdtl lines num_recs.
*Loop through int table deleting corresponding recs from DB table
LOOP AT T_ZPSPROJDTL.
RECS_DELETED = RECS_DELETED + 1.
CUR_REC = CUR_REC + 1.
DELETE FROM ZPSPROJDTL
WHERE VERSN = T_ZPSPROJDTL-VERSN
AND PRNAM = T_ZPSPROJDTL-PRNAM
AND GJAHR = T_ZPSPROJDTL-GJAHR
AND F_YEAR = T_ZPSPROJDTL-F_YEAR
AND WRTTP = T_ZPSPROJDTL-WRTTP.
COMMIT WORK.
RECS_DELETED_SY-DBCNT = RECS_DELETED_SY-DBCNT + SY-DBCNT.
*Display progress bar
DELETED_SY-DBCNT = RECS_DELETED_SY-DBCNT.
CONCATENATE DELETED_SY-DBCNT 'Records deleted of'
NUM_RECS_NUM
INTO DELETED_TEXT SEPARATED BY SPACE.
PERFORM DISPLAY_PROGRESS USING
RECS_DELETED_SY-DBCNT
NUM_RECS
DELETED_TEXT.
ENDLOOP.
WRITE: / DELETED_TEXT.
COMMIT WORK.
ENDFORM.
*& Form DISPLAY_PROGRESS
Displays a progress bar and text or just text at bottom of scrn
--> PROCESSED_CNT - Number of records processed
--> TABLE_ENTRIES - Total number of entries in internal table
--> DISPLAY_TEXT - Text message to be displayed
FORM DISPLAY_PROGRESS USING PROCESSED_CNT TYPE I
TABLE_ENTRIES LIKE SY-TFILL
DISPLAY_TEXT TYPE C.
local variables used for percentage bar
DATA:
CUR_PERCENT TYPE P DECIMALS 1,
IND_TEXT(50) TYPE C,
PERCENT_TEXT(05) TYPE C.
P E R C E N T A G E B A R ********
IF NOT ( PROCESSED_CNT IS INITIAL ).
CUR_PERCENT = PROCESSED_CNT / TABLE_ENTRIES * 100.
start pr19990916 change
if remain = 0.
end pr19990916 change
PERCENT_TEXT = CUR_PERCENT.
CONCATENATE PERCENT_TEXT
DISPLAY_TEXT INTO
IND_TEXT
SEPARATED BY SPACE.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = CUR_PERCENT
TEXT = IND_TEXT
EXCEPTIONS
OTHERS = 1.
start pr19990916 change
endif.
end pr19990916 change
ELSE.
*Display text only
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
PERCENTAGE = 0
TEXT = DISPLAY_TEXT
EXCEPTIONS
OTHERS = 1.
ENDIF.
E N D O F P E R C E N T B A R *****
ENDFORM. " DISPLAY_PROGRESS
Thanks in Advance,
Jalaluddin.Syed

Answer 1

Hi Jalal,
If you are making use of the function module
SO_NEW_DOCUMENT_ATT_SEND_API1 , check for the internal table being passed to the RECEIVERS tables parameter of thhis function module...
This is the place where the receipient's email address is stored...
If you want to change the receipeint email address, just modify the content of the RECEIVERS table s parameter of this function module...
Regards,
Mamata.