Scribd
Upload
255 views

Z Var Config

This report configures VAR settings for SAP systems between releases 400 and 717. It activates multiple business configuration sets, imports piecelists, cleans up unused action definitions and templates, resets synchronization dates in tables, and submits other reports to refresh data.

Uploaded by

Dan Urma
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
255 views

Z Var Config

This report configures VAR settings for SAP systems between releases 400 and 717. It activates multiple business configuration sets, imports piecelists, cleans up unused action definitions and templates, resets synchronization dates in tables, and submits other reports to refresh data.

Uploaded by

Dan Urma
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 4

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

*& Report Z_VAR_CONFIG


*& SAP Note 1225682 Report for VAR Configuration ST 400 SP15 - SP17
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT Z_VAR_CONFIG.

DATA: intern TYPE i value 1,


lt_objlist TYPE STANDARD TABLE OF trkorr,
lt_abap_list TYPE STANDARD TABLE OF abaplist,
lt_bcset_id TYPE STANDARD TABLE OF scpr_parnt ,
ls_bcset_id TYPE scpr_parnt.
DATA: l_action_def TYPE ppftttcu,
lt_action_defs TYPE TABLE OF ppftttcu,
lt_action_templs TYPE TABLE OF ppfttrtm2,
l_action_temp TYPE ppfttrtm2,
lt_action_temp_singls TYPE TABLE OF ppfttrtm2,
lt_action_temp_dels TYPE TABLE OF ppfttrtm2,
l_action_cond TYPE ppftcondtr,
lt_action_cond_dels TYPE TABLE OF ppftcondtr,
lt_action_conds TYPE TABLE OF ppftcondtr,
l_timezone TYPE timezone.

CONSTANTS:
c_objlist_sprov TYPE trkorr VALUE 'SM_SP_SERVICEDESK'. "#EC NOTEXT

FIELD-SYMBOLS: <obj> TYPE trkorr.

DO 20 times.
CASE sy-index.
WHEN 1.
ls_bcset_id-BCSET_ID = 'SOLMAN40_CORPF_BASICFUNC_000'.
append ls_bcset_id to lt_bcset_id.
WHEN 2.
ls_bcset_id-BCSET_ID = 'SOLMAN40_CORPF_NEWACTIONS_002'.
append ls_bcset_id to lt_bcset_id.
WHEN 3.
ls_bcset_id-BCSET_ID = 'SOLMAN40_CORPF_TEXTTYPES_001'.
append ls_bcset_id to lt_bcset_id.
WHEN 4.
ls_bcset_id-BCSET_ID = 'SOLMAN40_CORPF_TEXTTYPES_002'.
append ls_bcset_id to lt_bcset_id.
WHEN 5.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_000'.
append ls_bcset_id to lt_bcset_id.
WHEN 6.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_001'.
append ls_bcset_id to lt_bcset_id.
WHEN 7.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_002'.
append ls_bcset_id to lt_bcset_id.
WHEN 8.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_003'.
append ls_bcset_id to lt_bcset_id.
WHEN 9.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_TPI_001'.
append ls_bcset_id to lt_bcset_id.
WHEN 10.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_004'.
append ls_bcset_id to lt_bcset_id.
WHEN 11.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_005'.
append ls_bcset_id to lt_bcset_id.
WHEN 12.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_006'.
append ls_bcset_id to lt_bcset_id.
WHEN 13.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SPROV_SETTINGS'.
append ls_bcset_id to lt_bcset_id.
WHEN 14.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_007'.
append ls_bcset_id to lt_bcset_id.
WHEN 15.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_008'.
append ls_bcset_id to lt_bcset_id.
WHEN 16.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_009'.
append ls_bcset_id to lt_bcset_id.
WHEN 17.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_010'.
append ls_bcset_id to lt_bcset_id.
WHEN 18.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_011'.
append ls_bcset_id to lt_bcset_id.
WHEN 19.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_012'.
append ls_bcset_id to lt_bcset_id.
WHEN 20.
ls_bcset_id-BCSET_ID = 'SOLMAN40_SDESK_VAR_013'.
append ls_bcset_id to lt_bcset_id.

WHEN OTHERS.
ENDCASE.

CALL FUNCTION 'SCPR_ACTIVATE_BCSETS_REMOTE'


EXPORTING
activation_type = 1
complete_only = 2
transport_off = 'Y'
TABLES
bcset_ids = lt_bcset_id
EXCEPTIONS
no_authority = 1
no_bcset = 2
wrong_parameters = 3
no_rfc_authority = 4
rfc_failure = 5
internal_error = 6
batchjob_error = 7
OTHERS = 8.
REFRESH lt_bcset_id .
ENDDO.

*** Piecelist import


APPEND c_objlist_sprov TO lt_objlist.
LOOP AT lt_objlist ASSIGNING <obj>.
SUBMIT rsclccop
WITH comfile = <obj>
WITH copycli = '000'
WITH ins_only = ''
EXPORTING LIST TO MEMORY AND RETURN.
* Used for NOT displaying result list of report
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = lt_abap_list
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc = 0.
CALL FUNCTION 'LIST_FREE_MEMORY'
TABLES
listobject = lt_abap_list.
ENDIF.
ENDLOOP.
* the function of clean up report from note 1169653 will be executed automatical
ly
SELECT * FROM ppftttcu INTO TABLE lt_action_defs
WHERE contxtname = 'AI_SDK_STANDARD' "#EC NOTEXT
OR contxtname = 'SLFN0001_STANDARD_DNO'. "#EC NOTEXT
LOOP AT lt_action_defs INTO l_action_def.
SELECT * FROM ppfttrtm2 APPENDING TABLE lt_action_templs
WHERE ttype = l_action_def-name.
SELECT * FROM ppftcondtr APPENDING TABLE lt_action_conds
WHERE ttype = l_action_def-name.
ENDLOOP.
lt_action_temp_singls[] = lt_action_templs[].
SORT lt_action_temp_singls BY ttype timechange DESCENDING.
DELETE ADJACENT DUPLICATES FROM lt_action_temp_singls COMPARING ttype.
LOOP AT lt_action_templs INTO l_action_temp.
READ TABLE lt_action_temp_singls TRANSPORTING NO FIELDS
WITH KEY guid = l_action_temp-guid.
CHECK sy-subrc <> 0.
* Delete entry in l_action_temp and corr. entry in lt_action_conds
APPEND l_action_temp TO lt_action_temp_dels.
READ TABLE lt_action_conds INTO l_action_cond
WITH KEY templ_oid = l_action_temp-guid.
IF sy-subrc = 0.
APPEND l_action_cond TO lt_action_cond_dels.
ENDIF.
ENDLOOP.
DELETE ppfttrtm2 FROM TABLE lt_action_temp_dels.
DELETE ppftcondtr FROM TABLE lt_action_cond_dels.
* mandatory action from note 1080131 will be executed by this report
submit AI_SDK_FILL_FILE_TYPE_TABLE EXPORTING LIST TO MEMORY and return.

* Reset synchdte in AIINSTALLATIONS ( manual tsk of note 1227621)


update AIINSTALLATIONS set LASTSYNCHDATE = SPACE.
* submit AI_SC_REFRESH_READ_ONLY_DATA via job number 1.
DATA: number TYPE tbtcjob-jobcount,
name TYPE tbtcjob-jobname VALUE 'JOB_TEST',
print_parameters TYPE pri_params.
CALL FUNCTION 'JOB_OPEN'
EXPORTING
jobname = 'REFRESH_ADMIN_DATA_FROM_SUPPORT'
IMPORTING
jobcount = number
EXCEPTIONS
cant_create_job = 1
invalid_job_data = 2
jobname_missing = 3
OTHERS = 4.
IF sy-subrc = 0.
SUBMIT AI_SC_REFRESH_READ_ONLY_DATA "TO SAP-SPOOL
"SPOOL PARAMETERS print_parameters
"WITHOUT SPOOL DYNPRO
VIA JOB 'REFRESH_ADMIN_DATA_FROM_SUPPORT' NUMBER number
AND RETURN.
IF sy-subrc = 0.
CALL FUNCTION 'JOB_CLOSE'
EXPORTING
jobcount = number
jobname = 'REFRESH_ADMIN_DATA_FROM_SUPPORT'
strtimmed = 'X'
EXCEPTIONS
cant_start_immediate = 1
invalid_startdate = 2
jobname_missing = 3
job_close_failed = 4
job_nosteps = 5
job_notex = 6
lock_failed = 7
OTHERS = 8.
IF sy-subrc <> 0.
*
ENDIF.
ENDIF.
ENDIF.

You might also like