mygit/abap-ZTEST
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

First Commit (2026.08.18)

Browse Source
This commit is contained in:
mygit
2026-08-18 04:54:30 +00:00
parent 16181a7b2c
commit 46e19cc481
27 changed files with 704 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.abapgit.xml
+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>E</MASTER_LANGUAGE>
<STARTING_FOLDER>/src/</STARTING_FOLDER>
<FOLDER_LOGIC>PREFIX</FOLDER_LOGIC>
</DATA>
</asx:values>
</asx:abap>
src/package.devc.xml
+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>TEST</CTEXT>
</DEVC>
</asx:values>
</asx:abap>
</abapGit>
src/zcl_custom_amdp_table.clas.abap
+85
View File
@@ -0,0 +1,85 @@
CLASS zcl_custom_amdp_table DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES if_amdp_marker_hdb.
TYPES:
BEGIN OF ty_result,
carrid TYPE s_carr_id,
connid TYPE s_conn_id,
fldate TYPE s_date,
price TYPE s_price,
currency TYPE s_currcode,
planetype TYPE s_planetye,
seatsmax TYPE s_seatsmax,
seatsocc TYPE s_seatsocc,
seatsfree TYPE s_seatsocc,
END OF ty_result,
tt_result TYPE STANDARD TABLE OF ty_result WITH EMPTY KEY.
" AMDP Procedure
CLASS-METHODS get_flights_proc
IMPORTING VALUE(iv_carrid) TYPE s_carr_id
EXPORTING VALUE(et_result) TYPE tt_result
RAISING cx_amdp_execution_error.
CLASS-METHODS get_flights
FOR TABLE FUNCTION ztf_sflight_amdp.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zcl_custom_amdp_table IMPLEMENTATION.
METHOD get_flights_proc
BY DATABASE PROCEDURE
FOR HDB
LANGUAGE SQLSCRIPT
OPTIONS READ-ONLY
USING sflight.
et_result =
SELECT carrid,
connid,
fldate,
price,
currency,
planetype,
seatsmax,
seatsocc,
seatsmax - seatsocc AS seatsfree
FROM sflight
WHERE mandt = SESSION_CONTEXT('CLIENT')
AND carrid = :iv_carrid;
ENDMETHOD.
METHOD get_flights
BY DATABASE FUNCTION
FOR HDB
LANGUAGE SQLSCRIPT
OPTIONS READ-ONLY
USING sflight.
RETURN
select
mandt,
carrid,
connid,
fldate,
price,
currency,
planetype,
seatsmax,
seatsocc,
seatsmax - seatsocc AS seatsfree
FROM sflight
WHERE carrid = :p_carrid;
ENDMETHOD.
ENDCLASS.
src/zcl_custom_amdp_table.clas.xml
+16
View File
@@ -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_CUSTOM_AMDP_TABLE</CLSNAME>
<LANGU>E</LANGU>
<DESCRIPT>CDS Table Function</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>
src/ztest001.prog.abap
+69
View File
@@ -0,0 +1,69 @@
REPORT ztest001.
TYPE-POOLS: slis.
TABLES: sflight.
DATA: lt_flight TYPE TABLE OF sflight,
ls_layout TYPE slis_layout_alv,
lt_fieldcat TYPE slis_t_fieldcat_alv,
ls_fieldcat TYPE slis_fieldcat_alv,
lv_variant TYPE disvariant-variant VALUE 'ZTEST_VAR',
ls_variant TYPE disvariant,
lv_msg TYPE string.
* 데이터 조회 (최대 200건)
SELECT * FROM sflight INTO TABLE lt_flight UP TO 200 ROWS.
IF sy-subrc <> 0.
MESSAGE '데이터를 가져오지 못했습니다.' TYPE 'E'.
EXIT.
ENDIF.
* ALV 레이아웃 정의
ls_layout-zebra = abap_true.
* ls_layout-sel_mode = 'A'. " ← 오류 원인이므로 주석 처리, 필요하면 box_fieldname 등 활용
* ls_layout-edit_mode = 'X'. " ← 필요 시 편집 가능 설정 (생략 가능)
* 필드카탈로그 생성 (SELTEXT_M 사용)
CLEAR lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'CARRID'.
ls_fieldcat-seltext_m = 'Carrier ID'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'CONNID'.
ls_fieldcat-seltext_m = 'Connection ID'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'FLDATE'.
ls_fieldcat-seltext_m = 'Flight Date'.
APPEND ls_fieldcat TO lt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PRICE'.
ls_fieldcat-seltext_m = 'Price'.
APPEND ls_fieldcat TO lt_fieldcat.
* Variant 저장 설정
ls_variant-report = sy-repid.
ls_variant-variant = lv_variant.
ls_variant-username = sy-uname.
* ALV 그리드 호출
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_variant = ls_variant
it_fieldcat = lt_fieldcat
is_layout = ls_layout
TABLES
t_outtab = lt_flight
EXCEPTIONS
program_error = 1 MESSAGE lv_msg
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID 'SAPLALV' TYPE 'E' NUMBER 002 WITH lv_msg.
ENDIF.
src/ztest001.prog.xml
+21
View File
@@ -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>ZTEST001</NAME>
<SUBC>1</SUBC>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Program ZTEST001</ENTRY>
<LENGTH>16</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
src/ztest002.prog.abap
+39
View File
@@ -0,0 +1,39 @@
*&---------------------------------------------------------------------*
*& Report ZTEST002
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST002.
TYPES: BEGIN OF ty_tab,
key1 TYPE c LENGTH 1,
key2 TYPE c LENGTH 1,
val1 TYPE i,
val2 TYPE i,
END OF ty_tab.
DATA: lt_tab1 TYPE TABLE OF ty_tab,
lt_tab2 TYPE TABLE OF ty_tab,
lt_all TYPE TABLE OF ty_tab,
lt_result TYPE TABLE OF ty_tab,
wa_tab TYPE ty_tab.
lt_tab1 = VALUE #(
( key1 = 'A' key2 = 'A' val1 = 100 val2 = 0 )
( key1 = 'B' key2 = 'B' val1 = 500 val2 = 0 )
).
lt_tab2 = VALUE #(
( key1 = 'A' key2 = 'A' val1 = 0 val2 = 500 )
( key1 = 'C' key2 = 'C' val1 = 0 val2 = 300 )
).
" 두 테이블을 합침
APPEND LINES OF lt_tab1 TO lt_all.
APPEND LINES OF lt_tab2 TO lt_all.
" COLLECT로 키 기준 합산
LOOP AT lt_all INTO wa_tab.
COLLECT wa_tab INTO lt_result.
ENDLOOP.
BREAK-POINT.
src/ztest002.prog.xml
+21
View File
@@ -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>ZTEST002</NAME>
<SUBC>1</SUBC>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Program ZTEST002</ENTRY>
<LENGTH>16</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
src/ztest003.prog.abap
+45
View File
@@ -0,0 +1,45 @@
*&---------------------------------------------------------------------*
*& Report ZTEST003
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST003.
TYPES: BEGIN OF ty_tab,
key1 TYPE c LENGTH 1,
key2 TYPE c LENGTH 1,
val1 TYPE i,
val2 TYPE i,
END OF ty_tab.
DATA: lt_tab1 TYPE TABLE OF ty_tab,
lt_tab2 TYPE TABLE OF ty_tab,
lt_all TYPE TABLE OF ty_tab,
lt_result TYPE TABLE OF ty_tab.
lt_tab1 = VALUE #(
( key1 = 'A' key2 = 'A' val1 = 100 val2 = 0 )
( key1 = 'B' key2 = 'B' val1 = 500 val2 = 0 )
).
lt_tab2 = VALUE #(
( key1 = 'A' key2 = 'A' val1 = 0 val2 = 500 )
( key1 = 'C' key2 = 'C' val1 = 0 val2 = 300 )
).
" 두 테이블 합치기
APPEND LINES OF lt_tab1 TO lt_all.
APPEND LINES OF lt_tab2 TO lt_all.
" GROUP BY로 key 기준 집계
lt_result = VALUE #( FOR GROUPS g OF row IN lt_all
GROUP BY ( key1 = row-key1 key2 = row-key2 )
( key1 = g-key1
key2 = g-key2
val1 = REDUCE i( INIT sum = 0
FOR rec IN GROUP g
NEXT sum = sum + rec-val1 )
val2 = REDUCE i( INIT sum = 0
FOR rec IN GROUP g
NEXT sum = sum + rec-val2 ) ) ).
BREAK-POINT.
src/ztest003.prog.xml
+21
View File
@@ -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>ZTEST003</NAME>
<SUBC>1</SUBC>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Report ZTEST003</ENTRY>
<LENGTH>15</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
src/ztest004.prog.abap
+23
View File
@@ -0,0 +1,23 @@
*&---------------------------------------------------------------------*
*& Report ZTEST004
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST004.
data : container type ref to cl_gui_custom_container,
editor type ref to cl_gui_textedit.
START-OF-SELECTION.
CREATE OBJECT container
EXPORTING
container_name = 'TEXTEDIT'.
CREATE OBJECT editor
EXPORTING
parent = container.
call screen 0100.
src/ztest004.prog.xml
+80
View File
@@ -0,0 +1,80 @@
<?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>ZTEST004</NAME>
<SUBC>1</SUBC>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<DYNPROS>
<item>
<HEADER>
<PROGRAM>ZTEST004</PROGRAM>
<SCREEN>0100</SCREEN>
<LANGUAGE>E</LANGUAGE>
<DESCRIPT>test</DESCRIPT>
<TYPE>N</TYPE>
<NEXTSCREEN>0100</NEXTSCREEN>
<LINES>045</LINES>
<COLUMNS>249</COLUMNS>
</HEADER>
<CONTAINERS>
<RPY_DYCATT>
<TYPE>SCREEN</TYPE>
<NAME>SCREEN</NAME>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>CUST_CTRL</TYPE>
<NAME>TEXTEDIT</NAME>
<ELEMENT_OF>SCREEN</ELEMENT_OF>
<LINE>002</LINE>
<COLUMN>001</COLUMN>
<LENGTH>242</LENGTH>
<HEIGHT>043</HEIGHT>
</RPY_DYCATT>
</CONTAINERS>
<FIELDS>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>OKCODE</TYPE>
<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>*</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE>PROCESS AFTER INPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE>* MODULE USER_COMMAND_0100.</LINE>
</RPY_DYFLOW>
</FLOW_LOGIC>
</item>
</DYNPROS>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Program ZTEST004</ENTRY>
<LENGTH>16</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
src/ztest005.prog.abap
+11
View File
@@ -0,0 +1,11 @@
*&---------------------------------------------------------------------*
*& Report ZTEST005
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST005.
*INCLUDE .
DATA: msg(40) value '2010년12월17일 눈오는 아침'.
WRITE : / ICON_PERSONAL_HELP AS ICON QUICKINFO msg.
*HOTSPOT COLOR COL_POSITIVE.
src/ztest005.prog.xml
+21
View File
@@ -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>ZTEST005</NAME>
<SUBC>1</SUBC>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Program ZTEST005</ENTRY>
<LENGTH>16</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
src/ztest006.prog.abap
+21
View File
@@ -0,0 +1,21 @@
*&---------------------------------------------------------------------*
*& Report ZTEST006
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest006.
*SELECT assetcode, waers, SUM( dep_amt ) AS dep_amt
SELECT assetcode, aname, waers, seq_no, dep_amt
FROM zvtax0008
order by assetcode, seq_no
INTO TABLE @DATA(lt_tab)
.
LOOP AT lt_tab INTO DATA(ls_tab).
WRITE : at 10(5) ls_tab-assetcode, at 30(100) ls_tab-aname,
at 70(3) ls_tab-seq_no,
ls_tab-dep_amt CURRENCY ls_tab-waers.
NEW-LINE.
ENDLOOP.
src/ztest006.prog.xml
+21
View File
@@ -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>ZTEST006</NAME>
<SUBC>1</SUBC>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Program ZTEST006</ENTRY>
<LENGTH>16</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
src/ztest007.prog.abap
+42
View File
@@ -0,0 +1,42 @@
*&---------------------------------------------------------------------*
*& Report ZTEST007
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest007.
TABLES: scarr.
PARAMETERS: p_carrid LIKE scarr-carrid.
INITIALIZATION.
CALL FUNCTION 'SWU_OBJECT_PUBLISH'
EXPORTING
objtype = 'ZMYGOS'
objkey = p_carrid.
START-OF-SELECTION.
CLEAR: scarr.
SELECT SINGLE *
FROM scarr
WHERE carrid = p_carrid.
IF sy-subrc NE 0.
LEAVE LIST-PROCESSING.
ENDIF.
END-OF-SELECTION.
WRITE:/ '항공사 정보'.
SKIP 1.
WRITE: /(10) '항공사명함수:',
12(50) scarr-carrname.
WRITE: /(10) '홈페이지:',
12(50) scarr-url.
CALL FUNCTION 'SWU_OBJECT_PUBLISH'
EXPORTING
objtype = 'ZMYGOS'
objkey = p_carrid.
src/ztest007.prog.xml
+21
View File
@@ -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>ZTEST007</NAME>
<SUBC>1</SUBC>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>GOS 테스트</ENTRY>
<LENGTH>7</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>
src/ztf_sflight_amdp.ddls.asddls
+18
View File
@@ -0,0 +1,18 @@
@EndUserText.label: 'SFLIGHT AMDP Table Function'
define table function ZTF_SFLIGHT_AMDP
with parameters
p_carrid : s_carr_id
returns
{
key mandt : s_mandt;
key carrid : s_carr_id;
key connid : s_conn_id;
key fldate : s_date;
price : s_price;
currency : s_currcode;
planetype : s_planetye;
seatsmax : s_seatsmax;
seatsocc : s_seatsocc;
seatsfree : s_seatsmax;
}
implemented by method zcl_custom_amdp_table=>GET_FLIGHTS;
src/ztf_sflight_amdp.ddls.baseinfo
View File
src/ztf_sflight_amdp.ddls.xml
+13
View File
@@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DDLS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DDLS>
<DDLNAME>ZTF_SFLIGHT_AMDP</DDLNAME>
<DDLANGUAGE>E</DDLANGUAGE>
<DDTEXT>CDS Table Function</DDTEXT>
<SOURCE_TYPE>F</SOURCE_TYPE>
</DDLS>
</asx:values>
</asx:abap>
</abapGit>
src/ztopdown.fugr.lztopdowntop.abap
+3
View File
@@ -0,0 +1,3 @@
FUNCTION-POOL ZTOPDOWN. "MESSAGE-ID ..
* INCLUDE LZTOPDOWND... " Local class definition
src/ztopdown.fugr.lztopdowntop.xml
+17
View File
@@ -0,0 +1,17 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>LZTOPDOWNTOP</NAME>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>I</SUBC>
<APPL>S</APPL>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/ztopdown.fugr.saplztopdown.abap
+15
View File
@@ -0,0 +1,15 @@
*******************************************************************
* System-defined Include-files. *
*******************************************************************
INCLUDE LZTOPDOWNTOP. " Global Declarations
INCLUDE LZTOPDOWNUXX. " Function Modules
*******************************************************************
* User-defined Include-files (if necessary). *
*******************************************************************
* INCLUDE LZTOPDOWNF... " Subroutines
* INCLUDE LZTOPDOWNO... " PBO-Modules
* INCLUDE LZTOPDOWNI... " PAI-Modules
* INCLUDE LZTOPDOWNE... " Events
* INCLUDE LZTOPDOWNP... " Local class implement.
* INCLUDE LZTOPDOWNT99. " ABAP Unit tests
src/ztopdown.fugr.saplztopdown.xml
+18
View File
@@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>SAPLZTOPDOWN</NAME>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>F</SUBC>
<APPL>S</APPL>
<RLOAD>E</RLOAD>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>
src/ztopdown.fugr.xml
+30
View File
@@ -0,0 +1,30 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_FUGR" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<AREAT>test</AREAT>
<INCLUDES>
<SOBJ_NAME>LZTOPDOWNTOP</SOBJ_NAME>
<SOBJ_NAME>SAPLZTOPDOWN</SOBJ_NAME>
</INCLUDES>
<FUNCTIONS>
<item>
<FUNCNAME>ZTOPDOWN_ENV</FUNCNAME>
<SHORT_TEXT>테이블명 반환 함수</SHORT_TEXT>
<EXPORT>
<RSEXP>
<PARAMETER>TB_NAME</PARAMETER>
<TYP>TABNAME</TYP>
</RSEXP>
</EXPORT>
<DOCUMENTATION>
<RSFDO>
<PARAMETER>TB_NAME</PARAMETER>
<KIND>P</KIND>
</RSFDO>
</DOCUMENTATION>
</item>
</FUNCTIONS>
</asx:values>
</asx:abap>
</abapGit>
src/ztopdown.fugr.ztopdown_env.abap
+13
View File
@@ -0,0 +1,13 @@
FUNCTION ZTOPDOWN_ENV.
*"--------------------------------------------------------------------
*"*"Local Interface:
*" EXPORTING
*" VALUE(TB_NAME) TYPE TABNAME
*"--------------------------------------------------------------------
tb_name = 'ZCOT1000'.
ENDFUNCTION.