First Commit (2026.08.18)
This commit is contained in:
@@ -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>
|
||||||
@@ -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>
|
||||||
@@ -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.
|
||||||
@@ -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>
|
||||||
@@ -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.
|
||||||
|
|
||||||
@@ -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>
|
||||||
@@ -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.
|
||||||
@@ -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>
|
||||||
@@ -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.
|
||||||
@@ -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>
|
||||||
@@ -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.
|
||||||
@@ -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>
|
||||||
@@ -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.
|
||||||
@@ -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>
|
||||||
@@ -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.
|
||||||
@@ -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>
|
||||||
@@ -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.
|
||||||
@@ -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>
|
||||||
@@ -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;
|
||||||
@@ -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>
|
||||||
@@ -0,0 +1,3 @@
|
|||||||
|
FUNCTION-POOL ZTOPDOWN. "MESSAGE-ID ..
|
||||||
|
|
||||||
|
* INCLUDE LZTOPDOWND... " Local class definition
|
||||||
@@ -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>
|
||||||
@@ -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
|
||||||
@@ -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>
|
||||||
@@ -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>
|
||||||
@@ -0,0 +1,13 @@
|
|||||||
|
FUNCTION ZTOPDOWN_ENV.
|
||||||
|
*"--------------------------------------------------------------------
|
||||||
|
*"*"Local Interface:
|
||||||
|
*" EXPORTING
|
||||||
|
*" VALUE(TB_NAME) TYPE TABNAME
|
||||||
|
*"--------------------------------------------------------------------
|
||||||
|
tb_name = 'ZCOT1000'.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
ENDFUNCTION.
|
||||||
Reference in New Issue
Block a user