mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
cherrypick macro include
This commit is contained in:
parent
4940e7538f
commit
c0fb995e24
23
src/zabapgit_macros.prog.abap
Normal file
23
src/zabapgit_macros.prog.abap
Normal file
|
@ -0,0 +1,23 @@
|
||||||
|
*&---------------------------------------------------------------------*
|
||||||
|
*& Include ZABAPGIT_MACROS
|
||||||
|
*&---------------------------------------------------------------------*
|
||||||
|
|
||||||
|
* Macros
|
||||||
|
|
||||||
|
DEFINE _object_check_timestamp.
|
||||||
|
IF sy-subrc = 0 AND &1 IS NOT INITIAL AND &2 IS NOT INITIAL.
|
||||||
|
cl_abap_tstmp=>systemtstmp_syst2utc(
|
||||||
|
EXPORTING syst_date = &1
|
||||||
|
syst_time = &2
|
||||||
|
IMPORTING utc_tstmp = lv_ts ).
|
||||||
|
IF lv_ts < iv_timestamp.
|
||||||
|
rv_changed = abap_false. " Unchanged
|
||||||
|
ELSE.
|
||||||
|
rv_changed = abap_true.
|
||||||
|
RETURN.
|
||||||
|
ENDIF.
|
||||||
|
ELSE. " Not found? => changed
|
||||||
|
rv_changed = abap_true.
|
||||||
|
RETURN.
|
||||||
|
ENDIF.
|
||||||
|
END-OF-DEFINITION.
|
48
src/zabapgit_macros.prog.xml
Normal file
48
src/zabapgit_macros.prog.xml
Normal file
|
@ -0,0 +1,48 @@
|
||||||
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
|
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
|
||||||
|
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
|
||||||
|
<asx:values>
|
||||||
|
<PROGDIR>
|
||||||
|
<NAME>ZABAPGIT_MACROS</NAME>
|
||||||
|
<STATE>A</STATE>
|
||||||
|
<SQLX/>
|
||||||
|
<EDTX/>
|
||||||
|
<VARCL>X</VARCL>
|
||||||
|
<DBAPL/>
|
||||||
|
<DBNA/>
|
||||||
|
<CLAS/>
|
||||||
|
<TYPE/>
|
||||||
|
<OCCURS/>
|
||||||
|
<SUBC>I</SUBC>
|
||||||
|
<APPL/>
|
||||||
|
<SECU/>
|
||||||
|
<CNAM/>
|
||||||
|
<CDAT>0000-00-00</CDAT>
|
||||||
|
<UNAM/>
|
||||||
|
<UDAT>0000-00-00</UDAT>
|
||||||
|
<VERN/>
|
||||||
|
<LEVL/>
|
||||||
|
<RSTAT/>
|
||||||
|
<RMAND/>
|
||||||
|
<RLOAD>E</RLOAD>
|
||||||
|
<FIXPT/>
|
||||||
|
<SSET/>
|
||||||
|
<SDATE>0000-00-00</SDATE>
|
||||||
|
<STIME/>
|
||||||
|
<IDATE>0000-00-00</IDATE>
|
||||||
|
<ITIME/>
|
||||||
|
<LDBNAME/>
|
||||||
|
<UCCHECK>X</UCCHECK>
|
||||||
|
</PROGDIR>
|
||||||
|
<TPOOL>
|
||||||
|
<item>
|
||||||
|
<ID>R</ID>
|
||||||
|
<KEY/>
|
||||||
|
<ENTRY>Include ZABAPGIT_MACROS</ENTRY>
|
||||||
|
<LENGTH>23</LENGTH>
|
||||||
|
<SPLIT/>
|
||||||
|
</item>
|
||||||
|
</TPOOL>
|
||||||
|
</asx:values>
|
||||||
|
</asx:abap>
|
||||||
|
</abapGit>
|
Loading…
Reference in New Issue
Block a user