First Commit (2026.08.22)

.abapgit.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+ <asx:values>
+  <DATA>
+   <MASTER_LANGUAGE>3</MASTER_LANGUAGE>
+   <STARTING_FOLDER>/src/</STARTING_FOLDER>
+   <FOLDER_LOGIC>PREFIX</FOLDER_LOGIC>
+  </DATA>
+ </asx:values>
+</asx:abap>

src/package.devc.xml

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_DEVC" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <DEVC>
+    <CTEXT>테스트</CTEXT>
+   </DEVC>
+  </asx:values>
+ </asx:abap>
+</abapGit>

src/z_im_wbs_regn_gsber.sxci.xml

@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_SXCI" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <SXCI>
+    <IMPLEMENTATION_DATA>
+     <IMP_NAME>Z_IM_WBS_REGN_GSBER</IMP_NAME>
+     <TEXT>WBS 지역코드 사업영역 정합성 검증</TEXT>
+     <IMP_CLASS>ZCL_IM__IM_WBS_REGN_GSBER</IMP_CLASS>
+     <EXIT_NAME>WORKBREAKDOWN_UPDATE</EXIT_NAME>
+     <INTER_NAME>IF_EX_WORKBREAKDOWN_UPDATE</INTER_NAME>
+     <ACTIVE>X</ACTIVE>
+    </IMPLEMENTATION_DATA>
+   </SXCI>
+  </asx:values>
+ </asx:abap>
+</abapGit>

src/zcl_im__im_wbs_regn_gsber.clas.abap

@@ -0,0 +1,26 @@
+class ZCL_IM__IM_WBS_REGN_GSBER definition
+  public
+  final
+  create public .
+
+public section.
+
+  interfaces IF_EX_WORKBREAKDOWN_UPDATE .
+protected section.
+private section.
+ENDCLASS.
+
+
+
+CLASS ZCL_IM__IM_WBS_REGN_GSBER IMPLEMENTATION.
+
+
+  method IF_EX_WORKBREAKDOWN_UPDATE~AT_SAVE.
+
+    BREAK-POINT.
+  endmethod.
+
+
+  method IF_EX_WORKBREAKDOWN_UPDATE~BEFORE_UPDATE.
+  endmethod.
+ENDCLASS.

src/zcl_im__im_wbs_regn_gsber.clas.xml

@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="utf-8"?>
+<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
+ <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
+  <asx:values>
+   <VSEOCLASS>
+    <CLSNAME>ZCL_IM__IM_WBS_REGN_GSBER</CLSNAME>
+    <LANGU>3</LANGU>
+    <DESCRIPT>Imp. class for BAdI imp. Z_IM_WBS_REGN_GSBER</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

src/zuserexit.prog.abap

@@ -0,0 +1,89 @@
+*&---------------------------------------------------------------------*
+*& Report ZUSEREXIT
+*&---------------------------------------------------------------------*
+*&
+*&---------------------------------------------------------------------*
+REPORT zuserexit NO STANDARD PAGE HEADING.
+TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
+TABLES : tstct.
+DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
+DATA : field1(30).
+DATA : v_devclass LIKE tadir-devclass.
+PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
+
+SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
+IF sy-subrc EQ 0.
+  SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR'
+                   AND object = 'PROG'
+                   AND obj_name = tstc-pgmna.
+  MOVE : tadir-devclass TO v_devclass.
+  IF sy-subrc NE 0.
+    SELECT SINGLE * FROM trdir WHERE name = tstc-pgmna.
+    IF trdir-subc EQ 'F'.
+      SELECT SINGLE * FROM tfdir WHERE pname = tstc-pgmna.
+      SELECT SINGLE * FROM enlfdir WHERE funcname =
+      tfdir-funcname.
+      SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR'
+                         AND object = 'FUGR'
+                         AND obj_name EQ enlfdir-area.
+
+      MOVE : tadir-devclass TO v_devclass.
+    ENDIF.
+  ENDIF.
+  SELECT * FROM tadir INTO TABLE jtab
+                WHERE pgmid = 'R3TR'
+                  AND object = 'SMOD'
+                  AND devclass = v_devclass.
+  SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND
+                                   tcode EQ p_tcode.
+  FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
+  WRITE:/(19) 'Transaction Code - ',
+       20(20) p_tcode,
+       45(50) tstct-ttext.
+  SKIP.
+  IF NOT jtab[] IS INITIAL.
+    WRITE:/(95) sy-uline.
+    FORMAT COLOR COL_HEADING INTENSIFIED ON.
+    WRITE:/1 sy-vline,
+           2 'Exit Name',
+          21 sy-vline ,
+          22 'Description',
+          95 sy-vline.
+    WRITE:/(95) sy-uline.
+    LOOP AT jtab.
+      SELECT SINGLE * FROM modsapt
+             WHERE sprsl = sy-langu AND
+                    name = jtab-obj_name.
+      FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
+      WRITE:/1 sy-vline,
+             2 jtab-obj_name HOTSPOT ON,
+            21 sy-vline ,
+            22 modsapt-modtext,
+            95 sy-vline.
+    ENDLOOP.
+    WRITE:/(95) sy-uline.
+    DESCRIBE TABLE jtab.
+    SKIP.
+    FORMAT COLOR COL_TOTAL INTENSIFIED ON.
+    WRITE:/ 'No of Exits:' , sy-tfill.
+  ELSE.
+    FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
+    WRITE:/(95) 'No User Exit exists'.
+  ENDIF.
+ELSE.
+  FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
+  WRITE:/(95) 'Transaction Code Does Not Exist'.
+ENDIF.
+
+AT LINE-SELECTION.
+  GET CURSOR FIELD field1.
+  CHECK field1(4) EQ 'JTAB'.
+  SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
+  CALL TRANSACTION 'SMOD' AND SKIP FIRST   SCREEN.
+
+*---End of Program
+
+
+*Selection texts
+*--
+* P_TCODE         트랜잭션 코드

src/zuserexit.prog.xml

@@ -0,0 +1,21 @@
+<?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>ZUSEREXIT</NAME>
+    <SUBC>1</SUBC>
+    <RLOAD>3</RLOAD>
+    <FIXPT>X</FIXPT>
+    <UCCHECK>X</UCCHECK>
+   </PROGDIR>
+   <TPOOL>
+    <item>
+     <ID>R</ID>
+     <ENTRY>프로그램 ZUSEREXIT</ENTRY>
+     <LENGTH>14</LENGTH>
+    </item>
+   </TPOOL>
+  </asx:values>
+ </asx:abap>
+</abapGit>