Is there a program/function that we can use in order to schedule the replication of DataSources?
this is one of the most recurring questions on the forum. I recently created such a program. Many posts in the forum indicate FM RSAOS_METADATA_UPLOAD as the FM to use, so I did. The code is simple: if no DataSource is specified, all is replicated, also the new DS. If DataSources are specified, a check is done with the tables to check if they exist and to get a list. Once this is done, the function module is called.
*& Report ZBW_REPLICATE_DS
REPORT zbw_replicate_ds.
TYPES: BEGIN OF ty_ds35,
oltpsource TYPE rsoltpsource-oltpsource,
END OF ty_ds35.
TYPES: BEGIN OF ty_ds7,
datasource TYPE rsds-datasource,
END OF ty_ds7.
DATA: t_ds35 TYPE HASHED TABLE OF ty_ds35
WITH UNIQUE KEY oltpsource,
w_ds35 LIKE LINE OF t_ds35.
DATA: t_ds7 TYPE HASHED TABLE OF ty_ds7
WITH UNIQUE KEY datasource,
w_ds7 LIKE LINE OF t_ds7.
TYPE-POOLS: rs.
PARAMETERS:
p_logsys TYPE rsds-logsys OBLIGATORY.
SELECT-OPTIONS:
s_ds FOR (rsoltpsource-oltpsource).
START-OF-SELECTION.
IF s_ds IS INITIAL.
***ALL DATASOURCES
CALL FUNCTION 'RSAOS_METADATA_UPLOAD'
EXPORTING
i_logsys = p_logsys.
* i_osource = w_ds35-oltpsource.
ELSE.
SELECT DISTINCT oltpsource
INTO TABLE t_ds35
FROM rsoltpsource
WHERE logsys = p_logsys
AND oltpsource IN s_ds
AND ( objvers = 'A'
OR objvers = 'M' ).
SELECT DISTINCT datasource
INTO TABLE t_ds7
FROM rsds
WHERE logsys = p_logsys
AND datasource IN s_ds
AND ( objvers = 'A'
OR objvers = 'M' ).
***SELECTED DATASOURCES
WRITE : / '3.5 DataSources'.
LOOP AT t_ds35 INTO w_ds35.
WRITE: /5 w_ds35-oltpsource.
CALL FUNCTION 'RSAOS_METADATA_UPLOAD'
EXPORTING
i_logsys = p_logsys
i_osource = w_ds35-oltpsource.
ENDLOOP.
SKIP.
WRITE : / 'BI7 DataSources'.
LOOP AT t_ds7 INTO w_ds7.
WRITE: /5 w_ds7-datasource.
CALL FUNCTION 'RSAOS_METADATA_UPLOAD'
EXPORTING
i_logsys = p_logsys
i_osource = w_ds7-datasource.
ENDLOOP.
Bluesky
