First Commit

This commit is contained in:
2026-10-22 04:18:27 +00:00
parent 3656226ee0
commit e4cccca4ba
36 changed files with 7616 additions and 0 deletions
+10
View File
@@ -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>
+10
View File
@@ -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>
+30
View File
@@ -0,0 +1,30 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<DOMNAME>CHAR30LOW</DOMNAME>
<HEADLEN>21</HEADLEN>
<SCRLEN1>04</SCRLEN1>
<SCRLEN2>16</SCRLEN2>
<SCRLEN3>21</SCRLEN3>
<DTELMASTER>E</DTELMASTER>
<REFKIND>D</REFKIND>
</DD04V>
<I18N_LANGS>
<LANGU>E</LANGU>
</I18N_LANGS>
<DD04_TEXTS>
<item>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>Code Management Field</DDTEXT>
<REPTEXT>Code Management Field</REPTEXT>
<SCRTEXT_S>Code</SCRTEXT_S>
<SCRTEXT_M>Code Magt. Field</SCRTEXT_M>
<SCRTEXT_L>Code Management Field</SCRTEXT_L>
</item>
</DD04_TEXTS>
</asx:values>
</asx:abap>
</abapGit>
+30
View File
@@ -0,0 +1,30 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>ZCME_MD_DESC</ROLLNAME>
<DOMNAME>CHAR50LOW</DOMNAME>
<HEADLEN>18</HEADLEN>
<SCRLEN1>08</SCRLEN1>
<SCRLEN2>18</SCRLEN2>
<SCRLEN3>18</SCRLEN3>
<DTELMASTER>E</DTELMASTER>
<REFKIND>D</REFKIND>
</DD04V>
<I18N_LANGS>
<LANGU>E</LANGU>
</I18N_LANGS>
<DD04_TEXTS>
<item>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>Module Description</DDTEXT>
<REPTEXT>Module Description</REPTEXT>
<SCRTEXT_S>MD Desc.</SCRTEXT_S>
<SCRTEXT_M>Module Description</SCRTEXT_M>
<SCRTEXT_L>Module Description</SCRTEXT_L>
</item>
</DD04_TEXTS>
</asx:values>
</asx:abap>
</abapGit>
+41
View File
@@ -0,0 +1,41 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_SHLP" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD30V>
<SHLPNAME>ZCMH_ZMODULE</SHLPNAME>
<DDLANGUAGE>3</DDLANGUAGE>
<DDTEXT>Module</DDTEXT>
<ISSIMPLE>X</ISSIMPLE>
<SELMETHOD>ZCMT0003</SELMETHOD>
<SELMTYPE>T</SELMTYPE>
<DIALOGTYPE>D</DIALOGTYPE>
<FUZZY_SIMILARITY>0.8</FUZZY_SIMILARITY>
</DD30V>
<DD32P_TABLE>
<DD32P>
<SHLPNAME>ZCMH_ZMODULE</SHLPNAME>
<FIELDNAME>ZMODULE</FIELDNAME>
<FLPOSITION>0001</FLPOSITION>
<ROLLNAME>ZCME_MODULE</ROLLNAME>
<SHLPINPUT>X</SHLPINPUT>
<SHLPOUTPUT>X</SHLPOUTPUT>
<SHLPSELPOS>01</SHLPSELPOS>
<SHLPLISPOS>01</SHLPLISPOS>
<SCRLEN3>06</SCRLEN3>
</DD32P>
<DD32P>
<SHLPNAME>ZCMH_ZMODULE</SHLPNAME>
<FIELDNAME>ZMD_DESC</FIELDNAME>
<FLPOSITION>0002</FLPOSITION>
<ROLLNAME>ZCME_MD_DESC</ROLLNAME>
<SHLPOUTPUT>X</SHLPOUTPUT>
<SHLPSELPOS>02</SHLPSELPOS>
<SHLPLISPOS>02</SHLPLISPOS>
<ROLLCHANGE>X</ROLLCHANGE>
<SCRLEN3>18</SCRLEN3>
</DD32P>
</DD32P_TABLE>
</asx:values>
</asx:abap>
</abapGit>
+63
View File
@@ -0,0 +1,63 @@
*&---------------------------------------------------------------------*
*& 프로그램 ID : ZCMR0001
*& 프로그램 명 : [CM] Common Code Management
*& 생성일 : 2025.05.20
*& 생성자 : ZENABAP04
*& 프로그램 설명 : Common Code Management
*&---------------------------------------------------------------------*
* Modification Log
*----------------------------------------------------------------------*
* Tag Date Author Description
*----------------------------------------------------------------------*
* N 2025.05.20 Initial Release
*----------------------------------------------------------------------*
*& 변경번호 : #1(CTS No) 변경자 : XXX 변경일자 : YYYY..MM.DD
*& 변경내용 : 간단한 설명,(상세내용은 변경부분에 주석처리)
*&---------------------------------------------------------------------*
REPORT zcmr0001 MESSAGE-ID zcmm01.
INCLUDE zcmr0001c01. "ALV Class
INCLUDE zcmr0001top. "Top Include
INCLUDE zcmr0001s01. "Screen
INCLUDE zcmr0001pbo. "PBO-Modules
INCLUDE zcmr0001pai. "PAI-Modules
INCLUDE zcmr0001f01. "Business FORM Routine
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
*AT SELECTION-SCREEN OUTPUT.
* PERFORM modify_screen.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_class-low.
PERFORM select_class USING s_module-low gv_f4_class.
s_class-low = gv_f4_class.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_class-high.
PERFORM select_class USING s_module-low gv_f4_class.
s_class-high = gv_f4_class.
*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.
CHECK gv_error <> 'X'.
PERFORM get_module_text.
PERFORM get_class_data.
PERFORM get_detail_data.
PERFORM make_data.
*----------------------------------------------------------------------*
* END-OF-SELECTION
*----------------------------------------------------------------------*
END-OF-SELECTION.
CLEAR gv_total.
DESCRIBE TABLE gt_class LINES gv_total.
IF gv_total >= 0.
CALL SCREEN 100.
ELSE.
MESSAGE s003 DISPLAY LIKE 'E'.
EXIT.
ENDIF.
+571
View File
@@ -0,0 +1,571 @@
<?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>ZCMR0001</NAME>
<SUBC>1</SUBC>
<RLOAD>3</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<DYNPROS>
<item>
<HEADER>
<PROGRAM>ZCMR0001</PROGRAM>
<SCREEN>0100</SCREEN>
<LANGUAGE>E</LANGUAGE>
<TYPE>N</TYPE>
<NEXTSCREEN>0100</NEXTSCREEN>
<LINES>027</LINES>
<COLUMNS>120</COLUMNS>
</HEADER>
<CONTAINERS>
<RPY_DYCATT>
<TYPE>SCREEN</TYPE>
<NAME>SCREEN</NAME>
</RPY_DYCATT>
</CONTAINERS>
<FIELDS>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>OKCODE</TYPE>
<NAME>GV_OKCODE</NAME>
<TEXT>____________________</TEXT>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
</RPY_DYFATC>
</FIELDS>
<FLOW_LOGIC>
<RPY_DYFLOW>
<LINE>PROCESS BEFORE OUTPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE STATUS_0100.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE CREATE_ALV_0100.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW/>
<RPY_DYFLOW>
<LINE>PROCESS AFTER INPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE EXIT AT EXIT-COMMAND.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE USER_COMMAND_0100.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW/>
</FLOW_LOGIC>
</item>
<item>
<HEADER>
<PROGRAM>ZCMR0001</PROGRAM>
<SCREEN>0110</SCREEN>
<LANGUAGE>E</LANGUAGE>
<TYPE>M</TYPE>
<NEXTSCREEN>0110</NEXTSCREEN>
<LINES>027</LINES>
<COLUMNS>121</COLUMNS>
</HEADER>
<CONTAINERS>
<RPY_DYCATT>
<TYPE>SCREEN</TYPE>
<NAME>SCREEN</NAME>
</RPY_DYCATT>
</CONTAINERS>
<FIELDS>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>%#AUTOTEXT001</NAME>
<TEXT>Language</TEXT>
<LINE>001</LINE>
<COLUMN>002</COLUMN>
<LENGTH>008</LENGTH>
<VISLENGTH>008</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<REQU_ENTRY>N</REQU_ENTRY>
<LABELLEFT>X</LABELLEFT>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>GV_LANGU</NAME>
<TEXT>__</TEXT>
<LINE>001</LINE>
<COLUMN>011</COLUMN>
<LENGTH>002</LENGTH>
<VISLENGTH>002</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<CONV_EXIT>ISOLA</CONV_EXIT>
<INPUT_FLD>X</INPUT_FLD>
<OUTPUT_FLD>X</OUTPUT_FLD>
<MATCHCODE>H_T002</MATCHCODE>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>OKCODE</TYPE>
<NAME>GV_OKCODE</NAME>
<TEXT>____________________</TEXT>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
</RPY_DYFATC>
</FIELDS>
<FLOW_LOGIC>
<RPY_DYFLOW>
<LINE>PROCESS BEFORE OUTPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE status_0110.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE>*</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE>PROCESS AFTER INPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE exit_0110 AT EXIT-COMMAND.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE user_command_0110.</LINE>
</RPY_DYFLOW>
</FLOW_LOGIC>
</item>
</DYNPROS>
<CUA>
<ADM>
<ACTCODE>000001</ACTCODE>
<PFKCODE>000002</PFKCODE>
</ADM>
<STA>
<RSMPE_STAT>
<CODE>0100</CODE>
<MODAL>D</MODAL>
<ACTCODE>000001</ACTCODE>
<PFKCODE>000001</PFKCODE>
<BUTCODE>0001</BUTCODE>
<INT_NOTE>zcmr0001</INT_NOTE>
</RSMPE_STAT>
<RSMPE_STAT>
<CODE>0110</CODE>
<MODAL>P</MODAL>
<PFKCODE>000002</PFKCODE>
<BUTCODE>0001</BUTCODE>
<INT_NOTE>공통 코드 관리</INT_NOTE>
</RSMPE_STAT>
</STA>
<FUN>
<RSMPE_FUNT>
<CODE>BACK</CODE>
<TEXTNO>001</TEXTNO>
<TYPE>E</TYPE>
<TEXT_TYPE>S</TEXT_TYPE>
<FUN_TEXT>뒤로</FUN_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>CANC</CODE>
<TEXTNO>001</TEXTNO>
<TYPE>E</TYPE>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_CANCEL</TEXT_NAME>
<ICON_ID>@0W@</ICON_ID>
<FUN_TEXT>취소</FUN_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>CANCEL</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_CANCEL</TEXT_NAME>
<ICON_ID>@0W@</ICON_ID>
<FUN_TEXT>Exit</FUN_TEXT>
<ICON_TEXT>Exit</ICON_TEXT>
<INFO_TEXT>Exit</INFO_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>COPY</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_CREATE_COPY</TEXT_NAME>
<ICON_ID>@EZ@</ICON_ID>
<FUN_TEXT>추가 언어적용</FUN_TEXT>
<ICON_TEXT>추가 언어적용</ICON_TEXT>
<INFO_TEXT>추가 언어적용</INFO_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>EXIT</CODE>
<TEXTNO>001</TEXTNO>
<TYPE>E</TYPE>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_CANCEL</TEXT_NAME>
<ICON_ID>@0W@</ICON_ID>
<FUN_TEXT>나가기</FUN_TEXT>
<ICON_TEXT>Exit</ICON_TEXT>
<INFO_TEXT>Exit</INFO_TEXT>
</RSMPE_FUNT>
<RSMPE_FUNT>
<CODE>OKAY</CODE>
<TEXTNO>001</TEXTNO>
<TEXT_TYPE>S</TEXT_TYPE>
<TEXT_NAME>ICON_OKAY</TEXT_NAME>
<ICON_ID>@0V@</ICON_ID>
<FUN_TEXT>Okay</FUN_TEXT>
<ICON_TEXT>Okay</ICON_TEXT>
<INFO_TEXT>Okay</INFO_TEXT>
</RSMPE_FUNT>
</FUN>
<BUT>
<RSMPE_BUT>
<PFK_CODE>000001</PFK_CODE>
<CODE>0001</CODE>
<NO>01</NO>
<PFNO>08</PFNO>
</RSMPE_BUT>
<RSMPE_BUT>
<PFK_CODE>000002</PFK_CODE>
<CODE>0001</CODE>
<NO>01</NO>
<PFNO>00</PFNO>
</RSMPE_BUT>
<RSMPE_BUT>
<PFK_CODE>000002</PFK_CODE>
<CODE>0001</CODE>
<NO>02</NO>
<PFNO>12</PFNO>
</RSMPE_BUT>
</BUT>
<PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>03</PFNO>
<FUNCODE>BACK</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>08</PFNO>
<FUNCODE>COPY</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>12</PFNO>
<FUNCODE>CANC</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000001</CODE>
<PFNO>15</PFNO>
<FUNCODE>EXIT</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000002</CODE>
<PFNO>00</PFNO>
<FUNCODE>OKAY</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000002</CODE>
<PFNO>02</PFNO>
<FUNCODE>CANCEL</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
<RSMPE_PFK>
<CODE>000002</CODE>
<PFNO>12</PFNO>
<FUNCODE>CANCEL</FUNCODE>
<FUNNO>001</FUNNO>
</RSMPE_PFK>
</PFK>
<SET>
<RSMPE_STAF>
<STATUS>0100</STATUS>
<FUNCTION>BACK</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>0100</STATUS>
<FUNCTION>CANC</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>0100</STATUS>
<FUNCTION>COPY</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>0100</STATUS>
<FUNCTION>EXIT</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>0110</STATUS>
<FUNCTION>CANCEL</FUNCTION>
</RSMPE_STAF>
<RSMPE_STAF>
<STATUS>0110</STATUS>
<FUNCTION>OKAY</FUNCTION>
</RSMPE_STAF>
</SET>
<DOC>
<RSMPE_ATRT>
<OBJ_TYPE>A</OBJ_TYPE>
<OBJ_CODE>000001</OBJ_CODE>
<MODAL>D</MODAL>
<INT_NOTE>공통 코드 관리공통 코드 관리</INT_NOTE>
</RSMPE_ATRT>
<RSMPE_ATRT>
<OBJ_TYPE>P</OBJ_TYPE>
<OBJ_CODE>000001</OBJ_CODE>
<MODAL>D</MODAL>
<INT_NOTE>공통 코드 관리</INT_NOTE>
</RSMPE_ATRT>
<RSMPE_ATRT>
<OBJ_TYPE>B</OBJ_TYPE>
<OBJ_CODE>000001</OBJ_CODE>
<SUB_CODE>0001</SUB_CODE>
<MODAL>D</MODAL>
<INT_NOTE>공통 코드 관리</INT_NOTE>
</RSMPE_ATRT>
<RSMPE_ATRT>
<OBJ_TYPE>P</OBJ_TYPE>
<OBJ_CODE>000002</OBJ_CODE>
<MODAL>P</MODAL>
<INT_NOTE>Language</INT_NOTE>
</RSMPE_ATRT>
<RSMPE_ATRT>
<OBJ_TYPE>B</OBJ_TYPE>
<OBJ_CODE>000002</OBJ_CODE>
<SUB_CODE>0001</SUB_CODE>
<MODAL>P</MODAL>
<INT_NOTE>Language</INT_NOTE>
</RSMPE_ATRT>
</DOC>
</CUA>
<TPOOL>
<item>
<ID>I</ID>
<KEY>B01</KEY>
<ENTRY>Conditions</ENTRY>
<LENGTH>20</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>E01</KEY>
<ENTRY>Not found data.</ENTRY>
<LENGTH>18</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>E02</KEY>
<ENTRY>Select at least one line</ENTRY>
<LENGTH>48</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>E03</KEY>
<ENTRY>Error to save</ENTRY>
<LENGTH>23</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>E04</KEY>
<ENTRY>Exist Duplicated Key</ENTRY>
<LENGTH>40</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>E05</KEY>
<ENTRY>Key Field is Blank</ENTRY>
<LENGTH>28</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>E06</KEY>
<ENTRY>Invalid Language !</ENTRY>
<LENGTH>28</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>E07</KEY>
<ENTRY>Selected Language is same with Logon Language !</ENTRY>
<LENGTH>94</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>F01</KEY>
<ENTRY>Class</ENTRY>
<LENGTH>15</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>F02</KEY>
<ENTRY>Class Name</ENTRY>
<LENGTH>20</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>F03</KEY>
<ENTRY>Sort Key</ENTRY>
<LENGTH>18</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>F04</KEY>
<ENTRY>Changed by</ENTRY>
<LENGTH>20</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>F05</KEY>
<ENTRY>Changed on</ENTRY>
<LENGTH>20</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>F06</KEY>
<ENTRY>Changed at</ENTRY>
<LENGTH>20</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>F07</KEY>
<ENTRY>Using Program</ENTRY>
<LENGTH>23</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>Q01</KEY>
<ENTRY>Delete Selected Data</ENTRY>
<LENGTH>40</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>Q02</KEY>
<ENTRY>Save Data</ENTRY>
<LENGTH>19</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>Q03</KEY>
<ENTRY>Additional adjust for Other Language ?</ENTRY>
<LENGTH>76</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>S01</KEY>
<ENTRY>Save Complete</ENTRY>
<LENGTH>23</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T01</KEY>
<ENTRY>Code</ENTRY>
<LENGTH>14</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T02</KEY>
<ENTRY>Field</ENTRY>
<LENGTH>15</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T04</KEY>
<ENTRY>Add Row</ENTRY>
<LENGTH>17</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T05</KEY>
<ENTRY>Del. Row</ENTRY>
<LENGTH>18</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T06</KEY>
<ENTRY>Delete Complete</ENTRY>
<LENGTH>25</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T07</KEY>
<ENTRY>Yes</ENTRY>
<LENGTH>13</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T08</KEY>
<ENTRY>No</ENTRY>
<LENGTH>12</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T09</KEY>
<ENTRY>Success :</ENTRY>
<LENGTH>10</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T10</KEY>
<ENTRY>, Fail :</ENTRY>
<LENGTH>10</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T11</KEY>
<ENTRY>Confirm</ENTRY>
<LENGTH>17</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T12</KEY>
<ENTRY>Refresh</ENTRY>
<LENGTH>17</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T13</KEY>
<ENTRY>Save</ENTRY>
<LENGTH>14</LENGTH>
</item>
<item>
<ID>I</ID>
<KEY>T14</KEY>
<ENTRY>Additional Language</ENTRY>
<LENGTH>30</LENGTH>
</item>
<item>
<ID>R</ID>
<ENTRY>Common Code Management</ENTRY>
<LENGTH>22</LENGTH>
</item>
<item>
<ID>S</ID>
<KEY>S_CLASS</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
<item>
<ID>S</ID>
<KEY>S_MODULE</KEY>
<ENTRY>.</ENTRY>
<LENGTH>9</LENGTH>
<SPLIT>D</SPLIT>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+109
View File
@@ -0,0 +1,109 @@
*&---------------------------------------------------------------------*
*& Include ZCMR0001C01
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& LCL_EVEN_RECEIVER DEFINITION.
*&---------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER DEFINITION.
PUBLIC SECTION.
METHODS :
HANDLE_DATA_CHANGED FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID
IMPORTING ER_DATA_CHANGED
E_ONF4_AFTER,
HANDLE_USER_COMMAND FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
IMPORTING E_UCOMM,
HANDLE_TOOLBAR FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
IMPORTING E_OBJECT
E_INTERACTIVE,
HANDLE_MENU_BUTTON FOR EVENT MENU_BUTTON OF CL_GUI_ALV_GRID
IMPORTING E_OBJECT
E_UCOMM,
HANDLE_ONF4 FOR EVENT ONF4 OF CL_GUI_ALV_GRID
IMPORTING E_FIELDNAME
E_FIELDVALUE
ES_ROW_NO
ER_EVENT_DATA
ET_BAD_CELLS
E_DISPLAY,
HANDLE_DATA_CHANGED_FINISHED
FOR EVENT DATA_CHANGED_FINISHED OF CL_GUI_ALV_GRID
IMPORTING E_MODIFIED
ET_GOOD_CELLS,
HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
IMPORTING E_ROW
E_COLUMN
ES_ROW_NO,
HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
IMPORTING E_ROW_ID
E_COLUMN_ID
ES_ROW_NO,
HANDLE_TOP_OF_PAGE FOR EVENT TOP_OF_PAGE OF CL_GUI_ALV_GRID
IMPORTING E_DYNDOC_ID.
PRIVATE SECTION.
ENDCLASS. "LCL_EVENT_RECEIVER
*&---------------------------------------------------------------------*
*& LCL_EVENT_RECEIVER IMPLEMENTATION
*&---------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
METHOD HANDLE_DATA_CHANGED.
PERFORM ALV_DATA_CHANGED USING ER_DATA_CHANGED
E_ONF4_AFTER.
ENDMETHOD. "HANDLE_DATA_CHANGED
METHOD HANDLE_USER_COMMAND.
PERFORM ALV_USER_COMMAND USING E_UCOMM.
ENDMETHOD. "HANDLE_USER_COMMAND
METHOD HANDLE_TOOLBAR.
PERFORM ALV_EVENT_TOOLBAR USING E_OBJECT
E_INTERACTIVE.
ENDMETHOD. "HANDLE_TOOLBAR
METHOD HANDLE_MENU_BUTTON.
* PERFORM alv_menu_button USING e_object
* e_ucomm.
ENDMETHOD. "HANDLE_MENU_BUTTON
METHOD HANDLE_ONF4.
ER_EVENT_DATA->M_EVENT_HANDLED = 'x'.
* PERFORM alv_onf4 USING e_fieldname
* e_fieldvalue
* es_row_no
* er_event_data
* et_bad_cells
* e_display.
ENDMETHOD. "HANDLE_ONF4
METHOD HANDLE_DATA_CHANGED_FINISHED.
PERFORM ALV_DATA_CHANGED_FINISHED TABLES ET_GOOD_CELLS USING E_MODIFIED.
ENDMETHOD. "HANDLE_CHANGED_FINISHED
METHOD HANDLE_DOUBLE_CLICK.
PERFORM ALV_DOUBLE_CLICK USING E_ROW
E_COLUMN
ES_ROW_NO.
ENDMETHOD. "HANDLE_DOUBLE_CLICK
METHOD HANDLE_HOTSPOT_CLICK.
PERFORM ALV_HOTSPOT_CLICK USING E_ROW_ID
E_COLUMN_ID
ES_ROW_NO.
ENDMETHOD. "HANDLE_HOTSPOT_CLICK
METHOD HANDLE_TOP_OF_PAGE.
* PERFORM top_of_page USING e_dyndoc_id.
ENDMETHOD. "HANDLE_TOP_OF_PAGE
ENDCLASS. "LCL_EVENT_RECEIVER
+20
View File
@@ -0,0 +1,20 @@
<?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>ZCMR0001C01</NAME>
<SUBC>I</SUBC>
<RLOAD>3</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0001C01</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
File diff suppressed because it is too large Load Diff
+20
View File
@@ -0,0 +1,20 @@
<?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>ZCMR0001F01</NAME>
<SUBC>I</SUBC>
<RLOAD>3</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0001F01</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+90
View File
@@ -0,0 +1,90 @@
*&---------------------------------------------------------------------*
*& Include ZCMR0001PAI
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module EXIT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE exit INPUT.
CHECK gv_okcode = 'EXIT'.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
DATA lv_ans.
CLEAR gv_saveok.
gv_saveok = gv_okcode.
CLEAR gv_okcode.
CASE gv_saveok.
WHEN 'BACK' OR 'CANC'.
LEAVE TO SCREEN 0.
WHEN 'SAVE'.
* 툴바 대체 요청 2020.03.30
* . 삭제 확인 Popup
* PERFORM popup_to_confirm USING TEXT-t11
* TEXT-q02
* TEXT-t07
* TEXT-t08
* space
* CHANGING lv_ans.
* IF lv_ans = '1'.
* PERFORM make_save_data.
* ENDIF.
ENDCASE.
cl_gui_cfw=>dispatch( ).
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0110 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0110 INPUT.
CLEAR gv_saveok.
gv_saveok = gv_okcode.
CLEAR gv_okcode.
CASE gv_saveok.
WHEN 'OKAY'.
SELECT SINGLE spras
INTO gv_langu
FROM t002
WHERE spras = gv_langu.
IF sy-subrc = 0.
PERFORM ADD_ADJUST_TABLE.
LEAVE TO SCREEN 0.
ELSE.
IF gv_langu IS INITIAL.
MESSAGE i000 WITH TEXT-e05.
ELSE.
MESSAGE i000 WITH TEXT-e06.
ENDIF.
ENDIF.
WHEN OTHERS.
LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module EXIT_0110 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE exit_0110 INPUT.
LEAVE TO SCREEN 0.
ENDMODULE.
+20
View File
@@ -0,0 +1,20 @@
<?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>ZCMR0001PAI</NAME>
<SUBC>I</SUBC>
<RLOAD>3</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0001PAI</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+44
View File
@@ -0,0 +1,44 @@
*&---------------------------------------------------------------------*
*& Include ZCMR0001PBO
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100' WITH GV_MODULE_DESC.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module CREATE_ALV_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE CREATE_ALV_0100 OUTPUT.
IF G_DOCKING_CONTAINER IS INITIAL.
PERFORM CREATE_GRID.
PERFORM SET_FCAT_CLASS.
PERFORM SET_FCAT_DETAIL.
PERFORM EXCLUDE_TOOLBAR.
PERFORM SET_LAYOUT.
PERFORM SET_EVENT_RECEIVER.
PERFORM DISPLAY_GRID.
ELSE.
PERFORM REFRESH_ALV.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module STATUS_0110 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_0110 OUTPUT.
SET PF-STATUS '0110'.
SET TITLEBAR '0110'.
ENDMODULE.
+20
View File
@@ -0,0 +1,20 @@
<?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>ZCMR0001PBO</NAME>
<SUBC>I</SUBC>
<RLOAD>3</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0001PBO</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+12
View File
@@ -0,0 +1,12 @@
*&---------------------------------------------------------------------*
*& Include ZCMR0001S01
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* SELECTION-SCREEN
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME. " TITLE TEXT-B01.
SELECT-OPTIONS: s_module FOR zcmt0002-zmodule
OBLIGATORY " MODIF ID mod
MATCHCODE OBJECT zcmh_zmodule,
s_class FOR zcmt0002-zclass.
SELECTION-SCREEN END OF BLOCK b1.
+20
View File
@@ -0,0 +1,20 @@
<?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>ZCMR0001S01</NAME>
<SUBC>I</SUBC>
<RLOAD>3</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0001S01</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+243
View File
@@ -0,0 +1,243 @@
*----------------------------------------------------------------------*
* Tables
*----------------------------------------------------------------------*
TABLES: zcmt0003, zcmt0002.
*----------------------------------------------------------------------*
* Types, Internal Table, Structure
*----------------------------------------------------------------------*
TYPES : BEGIN OF ty_chk,
cd1, "사용유무
cd2,
cd3,
cd4,
cd5, "사용유무
cd6,
cd7,
cd8,
f_cd1(30), "Code1 필드명
f_cd2(30), "Code1 필드명
f_cd3(30), "Code1 필드명
f_cd4(30), "Code1 필드명
f_cd5(30), "Code1 필드명
f_cd6(30), "Code1 필드명
f_cd7(30), "Code1 필드명
f_cd8(30), "Code1 필드명
fld01, "사용유무
fld02,
fld03,
fld04,
fld05,
fld06,
fld07,
fld08,
fld09,
fld10,
fld11,
fld12,
fld13,
fld14,
fld15,
fld16,
fld17,
f_fld01(30), "Code1 필드
f_fld02(30), "Code2 필드
f_fld03(30), "Code3 필드
f_fld04(30), "Code4 필드
f_fld05(30), "Code5 필드
f_fld06(30), "Code6 필드
f_fld07(30), "Code7 필드
f_fld08(30), "Code8 필드
f_fld09(30), "Code9 필드
f_fld10(30), "Code10 필드
f_fld11(30), "Code11 필드
f_fld12(30), "Code12 필드
f_fld13(30), "Code13 필드
f_fld14(30), "Code14 필드
f_fld15(30), "Code15 필드
f_fld16(30), "Code16 필드
f_fld17(30), "Code17 필드
END OF ty_chk.
DATA gs_chk TYPE ty_chk.
DATA : BEGIN OF gt_0070 OCCURS 0,
zmodule LIKE zcmt0001-zmodule,
zclass LIKE zcmt0001-zclass,
zclss_desc LIKE zcmt0001-zclss_desc,
zprgname LIKE zcmt0001-zprgname,
zcode2_ox LIKE zcmt0001-zcode2_ox,
zcode3_ox LIKE zcmt0001-zcode3_ox,
zcode4_ox LIKE zcmt0001-zcode4_ox,
zcode5_ox LIKE zcmt0001-zcode5_ox,
zcode6_ox LIKE zcmt0001-zcode6_ox,
zcode7_ox LIKE zcmt0001-zcode7_ox,
zcode8_ox LIKE zcmt0001-zcode8_ox,
zcd1_desc LIKE zcmt0001-zcd1_desc,
zcd2_desc LIKE zcmt0001-zcd2_desc,
zcd3_desc LIKE zcmt0001-zcd3_desc,
zcd4_desc LIKE zcmt0001-zcd4_desc,
zcd5_desc LIKE zcmt0001-zcd5_desc,
zcd6_desc LIKE zcmt0001-zcd6_desc,
zcd7_desc LIKE zcmt0001-zcd7_desc,
zcd8_desc LIKE zcmt0001-zcd8_desc,
zf01_ox LIKE zcmt0001-zf01_ox,
zf01_desc LIKE zcmt0001-zf01_desc,
zf02_ox LIKE zcmt0001-zf02_ox,
zf02_desc LIKE zcmt0001-zf02_desc,
zf03_ox LIKE zcmt0001-zf03_ox,
zf03_desc LIKE zcmt0001-zf03_desc,
zf04_ox LIKE zcmt0001-zf04_ox,
zf04_desc LIKE zcmt0001-zf04_desc,
zf05_ox LIKE zcmt0001-zf05_ox,
zf05_desc LIKE zcmt0001-zf05_desc,
zf06_ox LIKE zcmt0001-zf06_ox,
zf06_desc LIKE zcmt0001-zf06_desc,
zf07_ox LIKE zcmt0001-zf07_ox,
zf07_desc LIKE zcmt0001-zf07_desc,
zf08_ox LIKE zcmt0001-zf08_ox,
zf08_desc LIKE zcmt0001-zf08_desc,
zf09_ox LIKE zcmt0001-zf09_ox,
zf09_desc LIKE zcmt0001-zf09_desc,
zf10_ox LIKE zcmt0001-zf10_ox,
zf10_desc LIKE zcmt0001-zf10_desc,
zf11_ox LIKE zcmt0001-zf11_ox,
zf11_desc LIKE zcmt0001-zf11_desc,
zf12_ox LIKE zcmt0001-zf12_ox,
zf12_desc LIKE zcmt0001-zf12_desc,
zf13_ox LIKE zcmt0001-zf13_ox,
zf13_desc LIKE zcmt0001-zf13_desc,
zf14_ox LIKE zcmt0001-zf14_ox,
zf14_desc LIKE zcmt0001-zf14_desc,
zf15_ox LIKE zcmt0001-zf15_ox,
zf15_desc LIKE zcmt0001-zf15_desc,
zf16_ox LIKE zcmt0001-zf16_ox,
zf16_desc LIKE zcmt0001-zf16_desc,
zf17_ox LIKE zcmt0001-zf17_ox,
zf17_desc LIKE zcmt0001-zf17_desc,
END OF gt_0070.
DATA gt_0071 TYPE TABLE OF zcmt0002 WITH HEADER LINE.
DATA : BEGIN OF gt_0071_pk OCCURS 0,
zmodule LIKE zcmt0002-zmodule,
zclass LIKE zcmt0002-zclass,
zcm_code1 LIKE zcmt0002-zcm_code1,
zcm_code2 LIKE zcmt0002-zcm_code2,
zcm_code3 LIKE zcmt0002-zcm_code3,
zcm_code4 LIKE zcmt0002-zcm_code4,
zcm_code5 LIKE zcmt0002-zcm_code5,
zcm_code6 LIKE zcmt0002-zcm_code6,
zcm_code7 LIKE zcmt0002-zcm_code7,
zcm_code8 LIKE zcmt0002-zcm_code8,
END OF gt_0071_pk.
* AL:V - 클래스
DATA : BEGIN OF gt_class OCCURS 0,
zmodule LIKE zcmt0001-zmodule,
zclass LIKE zcmt0001-zclass,
zclss_desc LIKE zcmt0001-zclss_desc,
zprgname LIKE zcmt0001-zprgname,
END OF gt_class.
* ALV - 클래스 별 상세 정보
DATA : BEGIN OF gt_detail OCCURS 0,
mark,
zmodule LIKE zcmt0002-zmodule,
zclass LIKE zcmt0002-zclass,
zcm_code1 LIKE zcmt0002-zcm_code1,
zcm_code2 LIKE zcmt0002-zcm_code2,
zcm_code3 LIKE zcmt0002-zcm_code3,
zcm_code4 LIKE zcmt0002-zcm_code4,
zcm_code5 LIKE zcmt0002-zcm_code5,
zcm_code6 LIKE zcmt0002-zcm_code6,
zcm_code7 LIKE zcmt0002-zcm_code7,
zcm_code8 LIKE zcmt0002-zcm_code8,
zcmf01_ch LIKE zcmt0002-zcmf01_ch,
zcmf02_ch LIKE zcmt0002-zcmf02_ch,
zcmf03_ch LIKE zcmt0002-zcmf03_ch,
zcmf04_ch LIKE zcmt0002-zcmf04_ch,
zcmf05_ch LIKE zcmt0002-zcmf05_ch,
zcmf06_ch LIKE zcmt0002-zcmf06_ch,
zcmf07_ch LIKE zcmt0002-zcmf07_ch,
zcmf08_ch LIKE zcmt0002-zcmf08_ch,
zcmf09_ch LIKE zcmt0002-zcmf09_ch,
zcmf10_ch LIKE zcmt0002-zcmf10_ch,
zcmf11_qu LIKE zcmt0002-zcmf11_qu,
zcmf12_ut LIKE zcmt0002-zcmf12_ut,
zcmf13_cr LIKE zcmt0002-zcmf13_cr,
zcmf14_ck LIKE zcmt0002-zcmf14_ck,
zcmf15_nm LIKE zcmt0002-zcmf15_nm,
zcmf16_nm LIKE zcmt0002-zcmf16_nm,
zcmf17_dc LIKE zcmt0002-zcmf17_dc,
zsort_key LIKE zcmt0002-zsort_key,
ernam LIKE zcmt0001-ernam,
erdat LIKE zcmt0001-erdat,
erzet LIKE zcmt0001-erzet,
aenam LIKE zcmt0001-aenam,
aedat LIKE zcmt0001-aedat,
aezet LIKE zcmt0001-aezet,
celltab TYPE lvc_t_styl, "Cell Style,
colinfo TYPE lvc_t_scol, "Cell Color
END OF gt_detail.
*----------------------------------------------------------------------*
* Global Variable
*----------------------------------------------------------------------*
DATA : gv_module_desc LIKE dd07t-ddtext,
gv_class LIKE zcmt0001-zclass,
gv_module LIKE zcmt0001-zmodule,
gv_total TYPE i,
gv_cursor(50) TYPE c,
gv_error,
gv_mode(2), "Edit Mode
gv_okcode TYPE sy-ucomm,
gv_saveok TYPE sy-ucomm.
DATA: gv_zauthority VALUE 'X'.
DATA: gv_f4_module(2),
gv_f4_class(5).
DATA: gv_langu LIKE sy-langu,
gs_0000 LIKE zcms0010.
*----------------------------------------------------------------------*
* Constants
*----------------------------------------------------------------------*
CONSTANTS c_module(15) TYPE c VALUE 'ZDMODULE'.
*----------------------------------------------------------------------*
* Search Help
*----------------------------------------------------------------------*
DATA: gt_rtntab LIKE ddshretval OCCURS 0 WITH HEADER LINE,
gt_dynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
*&---------------------------------------------------------------------*
*& Data & Variables
*&---------------------------------------------------------------------*
DATA : g_event_receiver TYPE REF TO lcl_event_receiver,
g_docking_container TYPE REF TO cl_gui_docking_container,
g_custom_container TYPE REF TO cl_gui_custom_container,
g_grid1 TYPE REF TO cl_gui_alv_grid,
g_grid2 TYPE REF TO cl_gui_alv_grid,
gs_variant TYPE disvariant,
gs_layout TYPE lvc_s_layo,
gs_layout2 TYPE lvc_s_layo,
col_pos TYPE i,
gt_fcat TYPE lvc_t_fcat,
gt_fcat2 TYPE lvc_t_fcat,
gt_sort TYPE lvc_t_sort WITH HEADER LINE,
gt_exclude TYPE ui_functions,
gs_stbl TYPE lvc_s_stbl,
gv_valid TYPE c,
gt_celltab TYPE lvc_t_styl, "ALV 제어: 셀에 대한 스타일 테이블
gt_rows TYPE lvc_t_row,
gt_fcode TYPE TABLE OF sy-ucomm,
gv_gridtitle TYPE lvc_title.
* Title
DATA : g_document TYPE REF TO cl_dd_document,
g_splitter TYPE REF TO cl_gui_splitter_container,
g_grid_left TYPE REF TO cl_gui_container,
g_grid_right TYPE REF TO cl_gui_container.
+20
View File
@@ -0,0 +1,20 @@
<?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>ZCMR0001TOP</NAME>
<SUBC>I</SUBC>
<RLOAD>3</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0001TOP</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+61
View File
@@ -0,0 +1,61 @@
*&---------------------------------------------------------------------*
*& 프로그램 ID : ZCMR0002
*& 프로그램 명 : [CM] Common Code Define
*& 생성일 : 2025.05.20
*& 생성자 :
*& 프로그램 설명 : Common Code Define
*&---------------------------------------------------------------------*
* Modification Log
*----------------------------------------------------------------------*
* Tag Date Author Description
*----------------------------------------------------------------------*
* N 2025.05.20 Initial Release
*----------------------------------------------------------------------*
*& 변경번호 : #1(CTS No) 변경자 : XXX 변경일자 : YYYY..MM.DD
*& 변경내용 : 간단한 설명,(상세내용은 변경부분에 주석처리)
*&---------------------------------------------------------------------*
REPORT zcmr0002 MESSAGE-ID zcmm01.
INCLUDE zcmr0002c01. "ALV Class
INCLUDE zcmr0002top. "Top Include
INCLUDE zcmr0002s01. "Screen
INCLUDE zcmr0002pbo. "PBO-Modules
INCLUDE zcmr0002pai. "PAI-Modules
INCLUDE zcmr0002f01. "Business FORM Routine
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN
*----------------------------------------------------------------------*
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_MODULE-LOW.
* PERFORM SELECT_MODULE USING MODULE.
* S_MODULE-LOW = MODULE.
*----------------------------------------------------------------------*
* INITIALIZATION
*----------------------------------------------------------------------*
INITIALIZATION.
PERFORM SCRFIELDS_FUNCTXT.
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
*----------------------------------------------------------------------*
CASE SSCRFIELDS-UCOMM.
WHEN 'FC01'.
PERFORM SCR_USER_COMMAND. "Module Code Management
ENDCASE.
*----------------------------------------------------------------------*
* START-OF-SELECTION
*----------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM GET_TITLE.
* PERFORM CHECK_PARAM.
PERFORM GET_DATA.
PERFORM MAKE_DATA.
*----------------------------------------------------------------------*
* END-OF-SELECTION
*----------------------------------------------------------------------*
END-OF-SELECTION.
CALL SCREEN 100.
File diff suppressed because it is too large Load Diff
+120
View File
@@ -0,0 +1,120 @@
*&---------------------------------------------------------------------*
*& Include ZCMR0002C01
*&---------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED.
DATA G_EVENT_RECEIVER TYPE REF TO LCL_EVENT_RECEIVER.
*----------------------------------------------------------------------*
* CLASS LCL_EVENT_HANDLER DEFINITION
*----------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER DEFINITION.
PUBLIC SECTION.
METHODS:
HANDLE_DATA_CHANGED
FOR EVENT DATA_CHANGED OF CL_GUI_ALV_GRID
IMPORTING ER_DATA_CHANGED
E_ONF4_AFTER,
HANDLE_USER_COMMAND
FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
IMPORTING E_UCOMM,
HANDLE_TOOLBAR
FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
IMPORTING E_OBJECT
E_INTERACTIVE,
HANDLE_MENU_BUTTON
FOR EVENT MENU_BUTTON OF CL_GUI_ALV_GRID
IMPORTING E_OBJECT
E_UCOMM,
HANDLE_ONF4
FOR EVENT ONF4 OF CL_GUI_ALV_GRID
IMPORTING E_FIELDNAME
E_FIELDVALUE
ES_ROW_NO
ER_EVENT_DATA
ET_BAD_CELLS
E_DISPLAY,
HANDLE_CHANGED_FINISHED
FOR EVENT DATA_CHANGED_FINISHED OF CL_GUI_ALV_GRID
IMPORTING E_MODIFIED,
HANDLE_DOUBLE_CLICK
FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID
IMPORTING E_ROW
E_COLUMN
ES_ROW_NO,
HANDLE_HOTSPOT_CLICK
FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID
IMPORTING E_ROW_ID
E_COLUMN_ID
ES_ROW_NO,
HANDLE_TOP_OF_PAGE
FOR EVENT TOP_OF_PAGE OF CL_GUI_ALV_GRID
IMPORTING E_DYNDOC_ID.
PRIVATE SECTION.
ENDCLASS.
*----------------------------------------------------------------------*
* CLASS LCL_EVENT_HANDLER IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
METHOD HANDLE_DATA_CHANGED.
* PERFORM alv_data_changed USING er_data_changed
* e_onf4_after.
ENDMETHOD. "HANDLE_DATA_CHANGED
METHOD HANDLE_USER_COMMAND.
* PERFORM alv_user_command USING e_ucomm.
ENDMETHOD. "HANDLE_USER_COMMAND
METHOD HANDLE_TOOLBAR.
* PERFORM alv_event_toolbar USING e_object
* e_interactive.
ENDMETHOD. "HANDLE_TOOLBAR
METHOD HANDLE_MENU_BUTTON.
* PERFORM alv_menu_button USING e_object
* e_ucomm.
ENDMETHOD. "HANDLE_MENU_BUTTON
METHOD HANDLE_ONF4.
ER_EVENT_DATA->M_EVENT_HANDLED = 'x'.
* PERFORM alv_onf4 USING e_fieldname
* e_fieldvalue
* es_row_no
* er_event_data
* et_bad_cells
* e_display.
ENDMETHOD. "HANDLE_ONF4
METHOD HANDLE_CHANGED_FINISHED.
* PERFORM alv_changed_finished USING e_modified.
ENDMETHOD. "HANDLE_CHANGED_FINISHED
METHOD HANDLE_DOUBLE_CLICK.
PERFORM ALV_DOUBLE_CLICK USING E_ROW
E_COLUMN
ES_ROW_NO.
ENDMETHOD. "HANDLE_DOUBLE_CLICK
METHOD HANDLE_HOTSPOT_CLICK.
PERFORM ALV_HOTSPOT_CLICK USING E_ROW_ID
E_COLUMN_ID
ES_ROW_NO.
ENDMETHOD. "HANDLE_HOTSPOT_CLICK
METHOD HANDLE_TOP_OF_PAGE.
* PERFORM top_of_page USING e_dyndoc_id.
ENDMETHOD. "HANDLE_TOP_OF_PAGE
ENDCLASS.
+25
View File
@@ -0,0 +1,25 @@
<?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>ZCMR0002C01</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<I18N_TPOOL>
<item>
<LANGUAGE>E</LANGUAGE>
<TEXTPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0002C01</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TEXTPOOL>
</item>
</I18N_TPOOL>
</asx:values>
</asx:abap>
</abapGit>
File diff suppressed because it is too large Load Diff
+25
View File
@@ -0,0 +1,25 @@
<?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>ZCMR0002F01</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<I18N_TPOOL>
<item>
<LANGUAGE>E</LANGUAGE>
<TEXTPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0002F01</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TEXTPOOL>
</item>
</I18N_TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+169
View File
@@ -0,0 +1,169 @@
*&---------------------------------------------------------------------*
*& Include ZCMR0002PAI
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module EXIT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE exit INPUT.
CHECK gv_OKCODE = 'EXIT'.
PERFORM check_data_changed CHANGING gv_error.
CHECK gv_error IS INITIAL.
LEAVE PROGRAM.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
DATA lv_ans.
GET CURSOR FIELD gv_field LINE gv_tcline.
CLEAR gv_saveok.
gv_saveok = gv_okcode.
CLEAR gv_okcode.
CASE gv_saveok.
WHEN 'BACK' OR 'CANC'.
PERFORM check_data_changed CHANGING gv_error.
CHECK gv_error IS INITIAL.
LEAVE TO SCREEN 0.
WHEN 'NEW'.
PERFORM check_data_changed CHANGING gv_error.
CHECK gv_error IS INITIAL.
CLEAR : gs_data, gs_data_old.
* 모듈/ 클래스 값 설정
PERFORM check_module.
* 필드 정의 설정
PERFORM make_fld_data USING 'N'.
WHEN 'DEL'.
CLEAR gv_error.
* 1. 필수 입력 항목 체크
PERFORM check_pk_data USING 'D'
CHANGING gv_error.
* 2. Popup
CHECK gv_error <> 'X'.
PERFORM popup_to_confirm USING TEXT-t11
TEXT-q02
TEXT-t12
TEXT-t13
space
CHANGING lv_ans.
IF lv_ans = '1'.
PERFORM check_pk_duplicate CHANGING gv_error.
PERFORM delete_data USING gv_error.
ENDIF.
WHEN 'SAVE'.
CLEAR gv_error.
* 1. 필수 입력 항목 체크
PERFORM check_pk_data USING 'S'
CHANGING gv_error.
* 2. PK 중복값 체크
CHECK gv_error <> 'X'.
PERFORM check_pk_duplicate CHANGING gv_error.
PERFORM save_data USING gv_error.
WHEN OTHERS.
ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module GET_MODULE_TEXT INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE get_module_text INPUT.
DATA lt_return LIKE TABLE OF ddshretval WITH HEADER LINE.
CLEAR : lt_return, lt_return[].
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'DOMVALUE_L'
dynpprog = sy-repid
dynpnr = sy-dynnr
value_org = 'S' " 'C'
TABLES
value_tab = gt_module_t
return_tab = lt_return
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF NOT lt_return[] IS INITIAL.
CLEAR lt_return.
READ TABLE lt_return INDEX 1.
IF sy-subrc = 0.
gs_data-zmodule = lt_return-fieldval.
ENDIF.
ENDIF.
PERFORM get_module_text USING gs_data-zmodule
CHANGING gs_data-module_t.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module CHECK_ZMODULE INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE check_zmodule INPUT.
CLEAR gs_data-module_t.
IF gs_data-zmodule IS NOT INITIAL.
SELECT SINGLE zmd_desc
INTO gs_data-module_t
FROM zcmt0003
WHERE zmodule = gs_data-zmodule.
IF sy-subrc NE 0.
MESSAGE e000 WITH TEXT-m03. " '등록되지 않은 모듈입니다.'.
ENDIF.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module CHECK_KEY INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE check_key INPUT.
CHECK gs_data-zmodule IS NOT INITIAL AND gs_data-zclass IS NOT INITIAL.
SELECT SINGLE mandt INTO @sy-mandt FROM zcmt0001
WHERE spras = @sy-langu
AND zmodule = @gs_data-zmodule
AND zclass = @gs_data-zclass.
IF sy-subrc = 0.
MESSAGE e000 WITH TEXT-m04. "'이미 등록된 클래스 입니다.'.
ENDIF.
ENDMODULE.
+25
View File
@@ -0,0 +1,25 @@
<?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>ZCMR0002PAI</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<I18N_TPOOL>
<item>
<LANGUAGE>E</LANGUAGE>
<TEXTPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0002PAI</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TEXTPOOL>
</item>
</I18N_TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+99
View File
@@ -0,0 +1,99 @@
*&---------------------------------------------------------------------*
*& Include ZCMR0002PBO
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '100'.
SET TITLEBAR '100' WITH GV_MODULE_DESC.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module SET_SCREEN OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE SET_SCREEN OUTPUT.
IF NO_MEANS IS INITIAL.
NO_MEANS = 'X'.
ENDIF.
IF GS_DATA-ZMODULE IS INITIAL.
CLEAR GS_DATA-MODULE_T.
ELSE.
PERFORM GET_MODULE_TEXT USING GS_DATA-ZMODULE
CHANGING GS_DATA-MODULE_T.
ENDIF.
IF GS_DATA_OLD-ZMODULE IS INITIAL.
CLEAR GS_DATA_OLD-MODULE_T.
ELSE.
PERFORM GET_MODULE_TEXT USING GS_DATA_OLD-ZMODULE
CHANGING GS_DATA_OLD-MODULE_T.
ENDIF.
CHECK GS_DATA-MODE = 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'GR1'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module CREATE_ALV_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE CREATE_ALV_0100 OUTPUT.
IF G_CUSTOM_CONTAINER IS INITIAL.
CREATE OBJECT G_CUSTOM_CONTAINER
EXPORTING
CONTAINER_NAME = 'CONT1'.
CREATE OBJECT G_GRID
EXPORTING
I_PARENT = G_CUSTOM_CONTAINER
I_APPL_EVENTS = 'X'. "space
PERFORM SET_FCAT.
PERFORM SET_LAYOUT.
PERFORM SET_EVENT_RECEIVER.
PERFORM DISPLAY_GRID.
ELSE.
PERFORM REFRESH_ALV .
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module GET_FLD_DATA OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE GET_FLD_DATA OUTPUT.
READ TABLE GT_FLD INDEX TC_FLD-CURRENT_LINE INTO GT_FLD.
TC_FLD-LINES = 17.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Module SET_CURSOR OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE SET_CURSOR OUTPUT.
SET CURSOR FIELD GV_FIELD LINE GV_TCLINE.
ENDMODULE.
+25
View File
@@ -0,0 +1,25 @@
<?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>ZCMR0002PBO</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<I18N_TPOOL>
<item>
<LANGUAGE>E</LANGUAGE>
<TEXTPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0002PBO</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TEXTPOOL>
</item>
</I18N_TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+14
View File
@@ -0,0 +1,14 @@
*&---------------------------------------------------------------------*
*& Include ZCMR0002S01
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* SELECTION-SCREEN
*----------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-B01.
SELECT-OPTIONS S_MODULE FOR ZCMT0002-ZMODULE NO-EXTENSION NO INTERVALS
"OBLIGATORY
MATCHCODE OBJECT zcmh_zmodule.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN FUNCTION KEY 1.
+25
View File
@@ -0,0 +1,25 @@
<?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>ZCMR0002S01</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<I18N_TPOOL>
<item>
<LANGUAGE>E</LANGUAGE>
<TEXTPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0002S01</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TEXTPOOL>
</item>
</I18N_TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+97
View File
@@ -0,0 +1,97 @@
*&---------------------------------------------------------------------*
*& Include ZCMR0002TOP
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* Tables
*----------------------------------------------------------------------*
TABLES: zcmt0002, sscrfields.
DATA: module(2),
no_means(1).
*----------------------------------------------------------------------*
* Types
*----------------------------------------------------------------------*
TYPES : BEGIN OF ty_data.
INCLUDE STRUCTURE zcmt0001.
TYPES : module_t LIKE dd07t-ddtext,
mode, " X:수정
END OF ty_data.
*----------------------------------------------------------------------*
* Internal Table, Structure
*----------------------------------------------------------------------*
DATA : gs_data TYPE ty_data,
gs_data_old TYPE ty_data,
gt_zcmt0001 TYPE TABLE OF zcmt0001 WITH HEADER LINE.
* ALV용
DATA : BEGIN OF gt_disp OCCURS 0,
zmodule LIKE zcmt0001-zmodule,
zclass LIKE zcmt0001-zclass,
zclss_desc LIKE zcmt0001-zclss_desc,
zprgname LIKE zcmt0001-zprgname,
aenam LIKE zcmt0001-aenam,
aedat LIKE zcmt0001-aedat,
aezet LIKE zcmt0001-aezet,
END OF gt_disp.
* 필드명 TC용 itab
DATA : BEGIN OF gt_fld OCCURS 0,
txt1(7),
txt2(15),
ox LIKE zcmt0001-zf01_ox,
desc LIKE zcmt0001-zf01_desc,
END OF gt_fld.
* 모듈명
DATA : gt_module_t LIKE zcmt0003 OCCURS 0 WITH HEADER LINE.
DATA : gv_module_desc LIKE dd07t-ddtext,
gv_class LIKE zcmt0001-zclass,
gv_module LIKE zcmt0001-zmodule.
CONTROLS tc_fld TYPE TABLEVIEW USING SCREEN 100.
DATA: gs_funtxt TYPE smp_dyntxt.
*----------------------------------------------------------------------*
* Global Variable
*----------------------------------------------------------------------*
DATA : gv_total TYPE i,
gv_error,
gv_new,
gv_okcode TYPE sy-ucomm,
gv_saveok TYPE sy-ucomm,
gv_field(30),
gv_tcline TYPE i.
*----------------------------------------------------------------------*
* Constants
*----------------------------------------------------------------------*
CONSTANTS c_module(15) TYPE c VALUE 'ZDMODULE'.
*----------------------------------------------------------------------*
* Search Help
*----------------------------------------------------------------------*
DATA: gt_rtntab LIKE ddshretval OCCURS 0 WITH HEADER LINE,
gt_dynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
*&---------------------------------------------------------------------*
*& Include ZCMR1010ALV
*&---------------------------------------------------------------------*
DATA : g_custom_container TYPE REF TO cl_gui_custom_container,
g_grid TYPE REF TO cl_gui_alv_grid,
gs_variant TYPE disvariant,
gs_layout TYPE lvc_s_layo,
gv_col_pos TYPE i,
gt_fcat TYPE lvc_t_fcat,
gt_exclude TYPE ui_functions,
gt_sort TYPE lvc_t_sort,
gs_stbl TYPE lvc_s_stbl,
gv_valid TYPE c,
gt_rows TYPE lvc_t_row,
gt_fcode TYPE TABLE OF sy-ucomm.
+25
View File
@@ -0,0 +1,25 @@
<?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>ZCMR0002TOP</NAME>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<I18N_TPOOL>
<item>
<LANGUAGE>E</LANGUAGE>
<TEXTPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZCMR0002TOP</ENTRY>
<LENGTH>19</LENGTH>
</item>
</TEXTPOOL>
</item>
</I18N_TPOOL>
</asx:values>
</asx:abap>
</abapGit>
+536
View File
@@ -0,0 +1,536 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD02V>
<TABNAME>ZCMT0001</TABNAME>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<LANGDEP>X</LANGDEP>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>ZCMT0001</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>3</TABKAT>
<TABART>APPL0</TABART>
<UEBERSETZ>X</UEBERSETZ>
<BUFALLOW>N</BUFALLOW>
</DD09L>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>MANDT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MANDT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>SPRAS</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SPRAS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<SHLPORIGIN>D</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
<LANGUFLAG>X</LANGUFLAG>
</DD03P>
<DD03P>
<FIELDNAME>ZMODULE</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_MODULE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCLASS</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CLASS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCLSS_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000100</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000050</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZPRGNAME</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000100</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000050</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCODE2_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCODE3_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCODE4_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCODE5_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCODE6_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCODE7_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCODE8_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCD1_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCD2_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCD3_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCD4_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCD5_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCD6_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCD7_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCD8_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF01_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF01_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF02_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF02_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF03_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF03_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF04_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF04_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF05_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF05_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF06_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF06_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF07_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF07_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF08_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF08_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF09_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF09_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF10_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF10_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF11_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF11_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF12_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF12_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF13_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF13_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF14_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF14_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF15_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF15_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF16_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF16_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF17_OX</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000002</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000001</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZF17_DESC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000060</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000030</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>.INCLUDE</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<PRECFIELD>ZCMS0010</PRECFIELD>
<MASK> S</MASK>
<DDTEXT>log</DDTEXT>
<COMPTYPE>S</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<I18N_LANGS>
<LANGU>E</LANGU>
</I18N_LANGS>
<DD02_TEXTS>
<item>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>[CM] 공통코드 클래스 관리</DDTEXT>
</item>
</DD02_TEXTS>
</asx:values>
</asx:abap>
</abapGit>
+272
View File
@@ -0,0 +1,272 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD02V>
<TABNAME>ZCMT0002</TABNAME>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<LANGDEP>X</LANGDEP>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>ZCMT0002</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>4</TABKAT>
<TABART>APPL1</TABART>
<UEBERSETZ>X</UEBERSETZ>
<BUFALLOW>N</BUFALLOW>
</DD09L>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>MANDT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MANDT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>SPRAS</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SPRAS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<SHLPORIGIN>D</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
<LANGUFLAG>X</LANGUFLAG>
</DD03P>
<DD03P>
<FIELDNAME>ZMODULE</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_MODULE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCLASS</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CLASS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCM_CODE1</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCM_CODE2</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCM_CODE3</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCM_CODE4</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCM_CODE5</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCM_CODE6</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCM_CODE7</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCM_CODE8</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF01_CH</FIELDNAME>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF02_CH</FIELDNAME>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF03_CH</FIELDNAME>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF04_CH</FIELDNAME>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF05_CH</FIELDNAME>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF06_CH</FIELDNAME>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF07_CH</FIELDNAME>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF08_CH</FIELDNAME>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF09_CH</FIELDNAME>
<ROLLNAME>ZCME_CODE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF10_CH</FIELDNAME>
<ROLLNAME>CHAR200L</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF11_QU</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>P</INTTYPE>
<INTLEN>000008</INTLEN>
<REFTABLE>ZCMT0002</REFTABLE>
<REFFIELD>ZCMF12_UT</REFFIELD>
<DATATYPE>QUAN</DATATYPE>
<LENG>000015</LENG>
<MASK> QUAN</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF12_UT</FIELDNAME>
<ROLLNAME>MEINS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF13_CR</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>P</INTTYPE>
<INTLEN>000008</INTLEN>
<REFTABLE>ZCMT0002</REFTABLE>
<REFFIELD>ZCMF14_CK</REFFIELD>
<DATATYPE>CURR</DATATYPE>
<LENG>000015</LENG>
<DECIMALS>000002</DECIMALS>
<MASK> CURR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF14_CK</FIELDNAME>
<ROLLNAME>WAERS</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF15_NM</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>N</INTTYPE>
<INTLEN>000040</INTLEN>
<DATATYPE>NUMC</DATATYPE>
<LENG>000020</LENG>
<MASK> NUMC</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF16_NM</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>N</INTTYPE>
<INTLEN>000040</INTLEN>
<DATATYPE>NUMC</DATATYPE>
<LENG>000020</LENG>
<MASK> NUMC</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZCMF17_DC</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>P</INTTYPE>
<INTLEN>000007</INTLEN>
<DATATYPE>DEC</DATATYPE>
<LENG>000013</LENG>
<MASK> DEC</MASK>
</DD03P>
<DD03P>
<FIELDNAME>ZSORT_KEY</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<INTTYPE>C</INTTYPE>
<INTLEN>000006</INTLEN>
<DATATYPE>CHAR</DATATYPE>
<LENG>000003</LENG>
<MASK> CHAR</MASK>
</DD03P>
<DD03P>
<FIELDNAME>.INCLUDE</FIELDNAME>
<ADMINFIELD>0</ADMINFIELD>
<PRECFIELD>ZCMS0010</PRECFIELD>
<MASK> S</MASK>
<DDTEXT>log</DDTEXT>
<COMPTYPE>S</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<I18N_LANGS>
<LANGU>E</LANGU>
</I18N_LANGS>
<DD02_TEXTS>
<item>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>[CM] 공통코드 세부코드</DDTEXT>
</item>
</DD02_TEXTS>
</asx:values>
</asx:abap>
</abapGit>
+56
View File
@@ -0,0 +1,56 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD02V>
<TABNAME>ZCMT0003</TABNAME>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
<EXCLASS>1</EXCLASS>
</DD02V>
<DD09L>
<TABNAME>ZCMT0003</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>APPL0</TABART>
<BUFALLOW>N</BUFALLOW>
</DD09L>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>MANDT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MANDT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZMODULE</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZCME_MODULE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ZMD_DESC</FIELDNAME>
<ROLLNAME>ZCME_MD_DESC</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<I18N_LANGS>
<LANGU>E</LANGU>
</I18N_LANGS>
<DD02_TEXTS>
<item>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>[CM] 모듈 정의</DDTEXT>
</item>
</DD02_TEXTS>
</asx:values>
</asx:abap>
</abapGit>