Devlog

6주차 보충 자료

덩이 — Wed, 6 Aug 2025 16:28:35 +0900

Range 변수

여러 값이나 범위를 조건으로 처리하는 내부 테이블 구조
RANGES 키워드로 선언 (예: RANGES: r_matnr FOR mara-matnr.)
주요 필드: SIGN(포함/제외), OPTION(조건 타입), LOW(시작값), HIGH(끝값)
단일값, 범위, 제외 조건 표현 가능
SELECT 문 등 조건절에 사용

https://stepwith.tistory.com/entry/SAP-ABAP-%EA%B0%95%EC%A2%8C-24-Range-%EB%B3%80%EC%88%98

[SAP ABAP 강좌 24] Range 변수

이번 포스팅에서는 ABAP의 독특한 구문중 하나인 Range 변수에 대하여 다루어 보겠습니다. 잘 알아두면 여러모로 편리한 구문입니다. 보통 웹페이지나 프로그램 입력화면의 Edit box는 단일 입력을

stepwith.tistory.com

4주차 보충 자료

덩이 — Wed, 6 Aug 2025 16:21:50 +0900

1. se37에서 사용자 함수 만들기

Function은 Subroutine의 확장 개념으로, 모듈화와 재사용에 유리함
SE37에서 Function Group과 Function Module 생성
Import/Export/Tables/Exceptions 등 파라미터 정의로 데이터 주고받기 가능
예외 처리와 독립적인 테스트 지원
CALL FUNCTION으로 호출하여 사용

https://m.blog.naver.com/softwon1/221866868663

[ABAP 기초] Function 만들기

Function은 Subroutine의 확장 개념으로 기능별로 모듈화하고 재사용이 가능합니다. Subroutine의 형식...

blog.naver.com

2.. ALV 서브토탈

ALV 서브토탈 관련 변수 선언
- ALV 표출을 위한 필드카테고리(gt_fieldcat), 레이아웃(gs_layout), 정렬(gt_sort), 이벤트(gt_events) 등 다양한 변수 선언 필요
- gt_fieldcat_ln-do_sum = 'X' 설정으로 특정 필드에 합계 기능 부여 가능
- gs_layout-subtotals_text = '소계' 등으로 소계 텍스트 지정
- gs_layout-no_subtotals 플래그로 소계 표시 여부 조절 가능
- 정렬 필드(gt_sort)에 그룹핑할 필드 지정하여 그룹별 합계(서브토탈) 가능
서브토탈 구현 방법
- 합계가 필요한 필드에 do_sum = 'X' 지정
- gt_sort에 그룹핑할 필드 설정 (예: MATNR)
- 레이아웃에서 subtotals_text 지정 및 no_subtotals = ' '로 서브토탈 활성화
- REUSE_ALV_GRID_DISPLAY 호출 시 관련 변수와 함께 넘기면 서브토탈 표시됨

https://blog.naver.com/whiteme7/110139185317

REPORT 필드카탈로그와 레이아웃 속성값

*----------------------------------------------------------------------* * [ALV] ALV 용 변수 ...

blog.naver.com

https://community.sap.com/t5/application-development-and-automation-discussions/subtotal-in-alv-grid-display/m-p/3177154

Subtotal in Alv Grid Display

hi all, i am creating a report using alv grid display. In the output i sort a column and want to do subtotal for values corresponding to it in another column.if i separately click on sum and then again subtotal i get it. but i want the format with subtotal

community.sap.com

[8주차 과제] 항공사 예약 프로그램(2)

덩이 — Wed, 30 Jul 2025 21:16:36 +0900

목표: 항공사 예약 프로그램 만들기

SBOOK 테이블

SCARR 테이블

SCUCTOM 테이블

출력 조건 및 필드
- 출력 필드
  - SBOOK 테이블: CARRID, CONNIDE, FLDATE, BOOKID, CUSTOMID, LOCCURAM, LOCCURKEY, ORDER_DATE, CANCELLED
  - SCARR 테이블: SCARRNAME
  - SCUCTOM 테이블: NAME, TELEPHONE, CUSTTYPE
- 검색 조건
  - 파라미터: CARRID(필수 입력/초기값: 'AA'), CONNID(필수 입력/초기값: '0017'), FLDATE(필수 입력/초기값: '20171219')
  - 셀렉트 옵션: CUSTOMID
  - 라디오버튼 그룹(rad1): r1(All Booking), r2(Valid Booking), r3(Cancelled Booking)
    - 라디오버튼 조건절:
      IF r1 = 'X'.
        AND CANCELLED = ''
      ELSEIF r2 = 'X'.
        AND CANCELLED <> 'X'.
      ELSEIF r3 = 'X'.
        AND CANCELLED = 'X'.
      ENDIF.
- ALV 필드 옵션
  - 고정 열 처리(key = 'X'): CARRID, CONNID, FLDATE, BOOKID
  - 하이퍼링크 처리(hotspot = 'X'): CUSTOMID
- 조인 조건
  - CARRNAME: SBOOK-CARRID = SCARR-CARRID 조건으로 INNER JOIN
  - NAME, TELEPHONE, CUSTTYPE: SBOOK-CUSTOMID = SCUSTOM-ID 조건으로 INNER JOIN

구현 코드

*&---------------------------------------------------------------------*

*& Report Z8WEEK_ASSN

*&---------------------------------------------------------------------*

*&

*&---------------------------------------------------------------------*

REPORT Z8WEEK_ASSN.



TABLES: sbook.



TYPE-POOLS: slis.



*Data Declaration

*----------------

TYPES: BEGIN OF t_sbook,

  carrid     TYPE sbook-carrid,

  carrname   TYPE scarr-carrname,

  connid     TYPE sbook-connid,

  fldate     TYPE sbook-fldate,

  bookid     TYPE sbook-bookid,

  customid   TYPE sbook-customid,

  name       TYPE scustom-name,

  telephone  TYPE scustom-telephone,

  custtype   TYPE scustom-custtype,

  loccuram   TYPE sbook-loccuram,

  loccurkey  TYPE sbook-loccurkey,

  order_date TYPE sbook-order_date,

  cancelled TYPE sbook-cancelled,

END of t_sbook.



DATA: it_sbook TYPE STANDARD TABLE OF t_sbook,

      wa_sbook TYPE t_sbook.



*ALV data declarations

DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,

      gd_tab_group TYPE slis_t_sp_group_alv,

      gd_layout    TYPE slis_layout_alv,

      gd_repid     LIKE sy-repid.



DATA : t TYPE slis_t_sp_group_alv.



*SELECT OPTION

SELECTION-SCREEN BEGIN OF BLOCK part1 WITH FRAME TITLE text-001.

  PARAMETERS p_carrid TYPE sbook-carrid OBLIGATORY DEFAULT 'AA'.

  PARAMETERS p_connid TYPE sbook-connid OBLIGATORY DEFAULT '0017'.

  PARAMETERS p_fldate TYPE sbook-fldate OBLIGATORY DEFAULT '20171219'.

SELECTION-SCREEN END OF BLOCK part1.



SELECTION-SCREEN BEGIN OF BLOCK part2 WITH FRAME TITLE text-002.

  SELECT-OPTIONS s_cid  FOR sbook-customid.

    PARAMETERS: r1 RADIOBUTTON GROUP rad1 DEFAULT 'X',

                r2 RADIOBUTTON GROUP rad1,

                r3 RADIOBUTTON GROUP rad1.

SELECTION-SCREEN END OF BLOCK part2.



START-OF-SELECTION.

  PERFORM data_retrieval.

  PERFORM build_fieldcatalog.

  PERFORM build_layout.

  PERFORM display_alv_report.



*&---------------------------------------------------------------------*

*&      Form  BUILD_FIELDCATALOG

*&---------------------------------------------------------------------*

*       Build Fieldcatalog for ALV Report

*----------------------------------------------------------------------*

FORM build_fieldcatalog.



  fieldcatalog-fieldname   = 'CARRID'.

  fieldcatalog-seltext_m   = 'Airline Code'.

  fieldcatalog-col_pos     = 0.

  fieldcatalog-key       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'CARRNAME'.

  fieldcatalog-seltext_m   = 'Airline name'.

  fieldcatalog-col_pos     = 1.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'CONNIDE'.

  fieldcatalog-seltext_m   = 'Flight Connection Number'.

  fieldcatalog-col_pos     = 2.

  fieldcatalog-key       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'FLDATE'.

  fieldcatalog-seltext_m   = 'Flight date'.

  fieldcatalog-col_pos     = 3.

  fieldcatalog-key       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'BOOKID'.

  fieldcatalog-seltext_m   = 'Booking number'.

  fieldcatalog-col_pos     = 4.

  fieldcatalog-key       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'CUSTOMID'.

  fieldcatalog-seltext_m   = 'Customer Number'.

  fieldcatalog-col_pos     = 5.

  fieldcatalog-hotspot       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'NAME'.

  fieldcatalog-seltext_m   = 'Customer name'.

  fieldcatalog-col_pos     = 6.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'TELEPHONE'.

  fieldcatalog-seltext_m   = 'Telephone number of flight customer'.

  fieldcatalog-col_pos     = 7.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'CUSTTYPE'.

  fieldcatalog-seltext_m   = 'Customer type'.

  fieldcatalog-col_pos     = 8.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'LOCCURAM'.

  fieldcatalog-seltext_m   = 'Price of booking in local currency of airline'.

  fieldcatalog-col_pos     = 9.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'LOCCURKEY'.

  fieldcatalog-seltext_m   = 'Local currency of airline'.

  fieldcatalog-col_pos     = 10.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'ORDER_DATE'.

  fieldcatalog-seltext_m   = 'Booking Date'.

  fieldcatalog-col_pos     = 11.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'CANCELLED'.

  fieldcatalog-seltext_m   = 'Cancelation flag'.

  fieldcatalog-col_pos     = 12.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



ENDFORM.                    " BUILD_FIELDCATALOG







*&---------------------------------------------------------------------*

*&      Form  BUILD_LAYOUT

*&---------------------------------------------------------------------*

*       Build layout for ALV grid report

*----------------------------------------------------------------------*

FORM build_layout.



  gd_layout-no_input          = 'X'.

  gd_layout-colwidth_optimize = 'X'.

  gd_layout-zebra = 'X'.

*  gd_layout-info_fieldname =      'LINE_COLOR'.

*  gd_layout-def_status = 'A'.



ENDFORM.                    " BUILD_LAYOUT





*&---------------------------------------------------------------------*

*&      Form  DISPLAY_ALV_REPORT

*&---------------------------------------------------------------------*

*       Display report using ALV grid

*----------------------------------------------------------------------*

FORM display_alv_report.

  gd_repid = sy-repid.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      i_callback_program = gd_repid

      is_layout          = gd_layout

      it_fieldcat        = fieldcatalog[]

      i_save             = 'X'

    TABLES

      t_outtab           = it_sbook

    EXCEPTIONS

      program_error      = 1

      OTHERS             = 2.

  IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

ENDFORM.                    " DISPLAY_ALV_REPORT





*&---------------------------------------------------------------------*

*&      Form  DATA_RETRIEVAL

*&---------------------------------------------------------------------*

*       Retrieve data form EKPO table and populate itab it_ekko

*----------------------------------------------------------------------*

FORM data_retrieval.

  DATA: ld_color(1) TYPE c,

        gs_where(20).



  IF r1 = 'X'.

    gs_where = ''.

  ELSEIF r2 = 'X'.

    gs_where = `CANCELLED <> 'X'`.

  ELSEIF r3 = 'X'.

    gs_where = `CANCELLED = 'X'`.

  ENDIF.



  SELECT

    sb~carrid

    sc~carrname

    sb~connid

    sb~fldate

    sb~bookid

    sb~customid

    cu~name

    cu~telephone

    cu~custtype

    sb~loccuram

    sb~loccurkey

    sb~order_date

    sb~cancelled

  INTO TABLE it_sbook

  FROM sbook AS sb

    INNER JOIN scarr AS sc ON sb~carrid = sc~carrid

    INNER JOIN scustom AS cu ON sb~customid = cu~id

  WHERE sb~carrid = p_carrid AND sb~connid = p_connid AND sb~fldate = p_fldate

  AND (gs_where).



ENDFORM.                    " DATA_RETRIEVAL

구현 결과

[7주차 과제] 항공사 예약 프로그램(1)

덩이 — Wed, 30 Jul 2025 21:09:21 +0900

목표: 항공사 예약 프로그램 만들기

SBOOK 테이블

출력 조건 및 필드
- 출력 필드
  - CARRID, CONNID, FLDATE, BOOKID, CUSTOMID, LOCCURAM, LOCCURKEY, ORDER_DATE, CANCELLED
- 검색 조건
  - 파라미터: CARRID(필수 입력/초기값: 'AA'), CONNID(필수 입력/초기값: '0017'), FLDATE(필수 입력/초기값: '20171219')
  - 셀렉트 옵션: CUSTOMID
  - 라디오버튼 그룹(rad1): r1(All Booking), r2(Valid Booking), r3(Cancelled Booking)
    - 라디오버튼 조건절:
      IF r1 = 'X'.
        AND CANCELLED = ''
      ELSEIF r2 = 'X'.
        AND CANCELLED <> 'X'.
      ELSEIF r3 = 'X'.
        AND CANCELLED = 'X'.
      ENDIF.
- ALV 필드 옵션
  - 고정 열 처리(key = 'X'): CARRID, CONNID, FLDATE, BOOKID
  - 하이퍼링크 처리(hotspot = 'X'): CUSTOMID

구현 코드

*&---------------------------------------------------------------------*

*& Report Z7WEEK_ASSN

*&---------------------------------------------------------------------*

*&

*&---------------------------------------------------------------------*

REPORT Z7WEEK_ASSN.



TABLES: sbook.



TYPE-POOLS: slis.



*Data Declaration

*----------------

TYPES: BEGIN OF t_sbook,

  carrid     TYPE sbook-carrid,

  connid     TYPE sbook-connid,

  fldate     TYPE sbook-fldate,

  bookid     TYPE sbook-bookid,

  customid   TYPE sbook-customid,

  loccuram   TYPE sbook-loccuram,

  loccurkey  TYPE sbook-loccurkey,

  order_date TYPE sbook-order_date,

  cancelled TYPE sbook-cancelled,

END of t_sbook.



DATA: it_sbook TYPE STANDARD TABLE OF t_sbook,

      wa_sbook TYPE t_sbook.



*ALV data declarations

DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,

      gd_tab_group TYPE slis_t_sp_group_alv,

      gd_layout    TYPE slis_layout_alv,

      gd_repid     LIKE sy-repid.



DATA : t TYPE slis_t_sp_group_alv.



*SELECT OPTION

SELECTION-SCREEN BEGIN OF BLOCK part1 WITH FRAME TITLE text-001.

  PARAMETERS p_carrid TYPE sbook-carrid OBLIGATORY DEFAULT 'AA'.

  PARAMETERS p_connid TYPE sbook-connid OBLIGATORY DEFAULT '0017'.

  PARAMETERS p_fldate TYPE sbook-fldate OBLIGATORY DEFAULT '20171219'.

SELECTION-SCREEN END OF BLOCK part1.



SELECTION-SCREEN BEGIN OF BLOCK part2 WITH FRAME TITLE text-002.

  SELECT-OPTIONS s_cid  FOR sbook-customid.

    PARAMETERS: r1 RADIOBUTTON GROUP rad1 DEFAULT 'X',

                r2 RADIOBUTTON GROUP rad1,

                r3 RADIOBUTTON GROUP rad1.

SELECTION-SCREEN END OF BLOCK part2.



START-OF-SELECTION.



  PERFORM data_retrieval.

  PERFORM build_fieldcatalog.

  PERFORM build_layout.

  PERFORM display_alv_report.



*&---------------------------------------------------------------------*

*&      Form  BUILD_FIELDCATALOG

*&---------------------------------------------------------------------*

*       Build Fieldcatalog for ALV Report

*----------------------------------------------------------------------*

FORM build_fieldcatalog.



  fieldcatalog-fieldname   = 'CARRID'.

  fieldcatalog-seltext_m   = 'Airline Code'.

  fieldcatalog-col_pos     = 0.

  fieldcatalog-key       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'CONNIDE'.

  fieldcatalog-seltext_m   = 'Flight Connection Number'.

  fieldcatalog-col_pos     = 1.

  fieldcatalog-key       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'FLDATE'.

  fieldcatalog-seltext_m   = 'Flight date'.

  fieldcatalog-col_pos     = 2.

  fieldcatalog-key       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'BOOKID'.

  fieldcatalog-seltext_m   = 'Booking number'.

  fieldcatalog-col_pos     = 3.

  fieldcatalog-key       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'CUSTOMID'.

  fieldcatalog-seltext_m   = 'Customer Number'.

  fieldcatalog-col_pos     = 4.

  fieldcatalog-hotspot       = 'X'.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'LOCCURAM'.

  fieldcatalog-seltext_m   = 'Price of booking in local currency of airline'.

  fieldcatalog-col_pos     = 5.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'LOCCURKEY'.

  fieldcatalog-seltext_m   = 'Local currency of airline'.

  fieldcatalog-col_pos     = 6.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'ORDER_DATE'.

  fieldcatalog-seltext_m   = 'Booking Date'.

  fieldcatalog-col_pos     = 7.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



  fieldcatalog-fieldname   = 'CANCELLED'.

  fieldcatalog-seltext_m   = 'Cancelation flag'.

  fieldcatalog-col_pos     = 8.

  APPEND fieldcatalog TO fieldcatalog.

  CLEAR  fieldcatalog.



ENDFORM.                    " BUILD_FIELDCATALOG



*&---------------------------------------------------------------------*

*&      Form  BUILD_LAYOUT

*&---------------------------------------------------------------------*

*       Build layout for ALV grid report

*----------------------------------------------------------------------*

FORM build_layout.



  gd_layout-no_input          = 'X'.

  gd_layout-colwidth_optimize = 'X'.

  gd_layout-zebra = 'X'.

*  gd_layout-info_fieldname =      'LINE_COLOR'.

*  gd_layout-def_status = 'A'.



ENDFORM.                    " BUILD_LAYOUT





*&---------------------------------------------------------------------*

*&      Form  DISPLAY_ALV_REPORT

*&---------------------------------------------------------------------*

*       Display report using ALV grid

*----------------------------------------------------------------------*

FORM display_alv_report.

  gd_repid = sy-repid.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      i_callback_program = gd_repid

      is_layout          = gd_layout

      it_fieldcat        = fieldcatalog[]

      i_save             = 'X'

    TABLES

      t_outtab           = it_sbook

    EXCEPTIONS

      program_error      = 1

      OTHERS             = 2.

  IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

ENDFORM.                    " DISPLAY_ALV_REPORT





*&---------------------------------------------------------------------*

*&      Form  DATA_RETRIEVAL

*&---------------------------------------------------------------------*

*       Retrieve data form EKPO table and populate itab it_ekko

*----------------------------------------------------------------------*

FORM data_retrieval.

  DATA: ld_color(1) TYPE c,

        gs_where(20).



  IF r1 = 'X'.

    gs_where = ''.

  ELSEIF r2 = 'X'.

    gs_where = `CANCELLED <> 'X'`.

  ELSEIF r3 = 'X'.

    gs_where = `CANCELLED = 'X'`.

  ENDIF.



  SELECT carrid connid fldate bookid customid loccuram loccurkey order_date cancelled

  INTO TABLE it_sbook

  FROM sbook

  WHERE carrid = p_carrid AND connid = p_connid AND fldate = p_fldate

  AND customid IN s_cid

  AND (gs_where).



ENDFORM.                    " DATA_RETRIEVAL

구현 결과

[6주차 과제] 검색 화면 만들기

덩이 — Wed, 30 Jul 2025 20:52:25 +0900

목표: SPFLI 테이블을 활용하여 검색화면 만들기

SPFLI... 테이블 나중에 첨부하기

출력 조건 및 필드
- SELECT 옵션: CARRID, CONNID, CITYFROM, CITYTO
- PARAMETERS: NUM으로 갯수 제한
- DEPTIME, ARRTIME 출력

구현 코드

*&---------------------------------------------------------------------*
*& Report Z6WEEK_ASSN
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z6WEEK_ASSN.
TABLES:     spfli.
TYPE-POOLS: slis.                                 "ALV Declarations
*Data Declaration
*----------------
TYPES: BEGIN OF t_spfli,
  carrid   TYPE spfli-carrid,
  connid   TYPE spfli-connid,
  cityfrom TYPE spfli-cityfrom,
  cityto   TYPE spfli-cityto,
  deptime  TYPE spfli-deptime,
  arrtime  TYPE spfli-arrtime,
 END OF t_spfli.

DATA: it_spfli TYPE STANDARD TABLE OF t_spfli INITIAL SIZE 0,
      wa_spfli TYPE t_spfli.

*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid.
DATA : t TYPE slis_t_sp_group_alv .
************************************************************************
SELECTION-SCREEN BEGIN OF BLOCK part1 WITH FRAME TITLE text-001.
SELECT-OPTIONS s_carrid FOR spfli-carrid.
SELECT-OPTIONS s_connid FOR spfli-connid.
SELECT-OPTIONS s_cfrom FOR spfli-cityfrom.
SELECT-OPTIONS s_cto FOR spfli-cityto.
SELECTION-SCREEN SKIP.
PARAMETERS NUM TYPE I.
SELECTION-SCREEN END OF BLOCK part1.
INITIALIZATION.
START-OF-SELECTION.
  PERFORM data_retrieval.
  PERFORM build_fieldcatalog.
  PERFORM build_layout.
  PERFORM build_sort.
  PERFORM display_alv_report.
*&---------------------------------------------------------------------*
*&      Form  BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
*       Build Fieldcatalog for ALV Report
*----------------------------------------------------------------------*
FORM build_fieldcatalog.
  fieldcatalog-fieldname   = 'CARRID'.
  fieldcatalog-seltext_m   = 'Airline Code'.
  fieldcatalog-col_pos     = 0.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CONNID'.
  fieldcatalog-seltext_m   = 'Flight Connection Number'.
  fieldcatalog-col_pos     = 1.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CITYFROM'.
  fieldcatalog-seltext_m   = 'Departure city'.
  fieldcatalog-col_pos     = 2.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CITYTO'.
  fieldcatalog-seltext_m   = 'Arrival city'.
  fieldcatalog-col_pos     = 3.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'DEPTIME'.
  fieldcatalog-seltext_m   = 'Departure time'.
  fieldcatalog-col_pos     = 4.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'ARRTIME'.
  fieldcatalog-seltext_m   = 'Arrival time'.
  fieldcatalog-col_pos     = 5.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.
ENDFORM.                    " BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
*&      Form  BUILD_LAYOUT
*&---------------------------------------------------------------------*
*       Build layout for ALV grid report
*----------------------------------------------------------------------*
FORM build_layout.
  gd_layout-no_input          = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-zebra = 'X'.
ENDFORM.                    " BUILD_LAYOUT
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*       Display report using ALV grid
*----------------------------------------------------------------------*
FORM display_alv_report.
  gd_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = gd_repid
      is_layout          = gd_layout
      it_fieldcat        = fieldcatalog[]
      i_save             = 'X'
    TABLES
      t_outtab           = it_spfli
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
  IF sy-subrc <> 0.
  ENDIF.
ENDFORM.                    " DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*&      Form  DATA_RETRIEVAL
*&---------------------------------------------------------------------*
*       Retrieve data form EKPO table and populate itab it_ekko
*----------------------------------------------------------------------*
FORM data_retrieval.
  DATA: ld_color(1) TYPE c.

  SELECT carrid connid cityfrom cityto deptime arrtime
  UP TO NUM ROWS
    FROM spfli
    INTO TABLE it_spfli
    WHERE carrid IN s_carrid
        AND connid IN s_connid
        AND cityfrom IN s_cfrom
        AND cityto IN s_cto.
*&---------------------------------------------------------------------*
*& Form BUILD_SORT
*&---------------------------------------------------------------------*
FORM build_sort.
ENDFORM.

구현 결과

[5주차 과제] 도움말 및 검색창 출력

덩이 — Wed, 30 Jul 2025 20:47:13 +0900

목표: SBOOK 테이블로 검색창 만들기

SBOOK 테이블

출력 조건 및 필드
- PARAMETERS: 출력시 어떤 필드에 도움말이 나오는지 확인
- LISTBOX: 출력시 어떤 필드에 리스트가 나오는지 확인

구현 코드

*&---------------------------------------------------------------------*
*& Report Z5WEEK_ASSN
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z5WEEK_ASSN.

SELECTION-SCREEN BEGIN OF BLOCK part1 WITH FRAME TITLE para.
PARAMETERS p01 TYPE sbook-mandt.
PARAMETERS p02 TYPE sbook-carrid.
PARAMETERS p03 TYPE sbook-connid.
PARAMETERS p04 TYPE sbook-fldate.
PARAMETERS p05 TYPE sbook-bookid.
PARAMETERS p06 TYPE sbook-customid.
PARAMETERS p07 TYPE sbook-custtype.
PARAMETERS p08 TYPE sbook-smoker.
PARAMETERS p09 TYPE sbook-luggweight.
PARAMETERS p10 TYPE sbook-wunit.
PARAMETERS p11 TYPE sbook-invoice.
PARAMETERS p12 TYPE sbook-class.
PARAMETERS p13 TYPE sbook-forcuram.
PARAMETERS p14 TYPE sbook-forcurkey.
PARAMETERS p15 TYPE sbook-loccuram.
PARAMETERS p16 TYPE sbook-loccurkey.
PARAMETERS p17 TYPE sbook-order_date.
PARAMETERS p18 TYPE sbook-counter.
PARAMETERS p19 TYPE sbook-agencynum.
PARAMETERS p20 TYPE sbook-cancelled.
PARAMETERS p21 TYPE sbook-reserved.
PARAMETERS p22 TYPE sbook-passname.
PARAMETERS p23 TYPE sbook-passform.
PARAMETERS p24 TYPE sbook-passbirth.
SELECTION-SCREEN END OF BLOCK part1.

SELECTION-SCREEN BEGIN OF BLOCK part2 WITH FRAME TITLE list.
PARAMETERS l01 TYPE sbook-mandt AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l02 TYPE sbook-carrid AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l03 TYPE sbook-connid AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l04 TYPE sbook-fldate AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l05 TYPE sbook-bookid AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l06 TYPE sbook-customid AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l07 TYPE sbook-custtype AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l08 TYPE sbook-smoker AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l09 TYPE sbook-luggweight AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l10 TYPE sbook-wunit AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l11 TYPE sbook-invoice AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l12 TYPE sbook-class AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l13 TYPE sbook-forcuram AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l14 TYPE sbook-forcurkey AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l15 TYPE sbook-loccuram AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l16 TYPE sbook-loccurkey AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l17 TYPE sbook-order_date AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l18 TYPE sbook-counter AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l19 TYPE sbook-agencynum AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l20 TYPE sbook-cancelled AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l21 TYPE sbook-reserved AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l22 TYPE sbook-passname AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l23 TYPE sbook-passform AS LISTBOX VISIBLE LENGTH 20.
PARAMETERS l24 TYPE sbook-passbirth AS LISTBOX VISIBLE LENGTH 20.
SELECTION-SCREEN END OF BLOCK part2.

구현 결과

PARAMETERS 출력 화면

LISTBOX 출력 화면

내용 정리
- PARAMETERS
  - p08, p09, p11, p13, p15, p20, p21, p22, p23: 도움말 안나옴
- LISTBOX
  - l02, l07, l08, l11, l12, l14, l20, l21: 리스트 출력됨

[4주차 서브과제] 레이아웃 옵션 및 ALV 출력

덩이 — Wed, 30 Jul 2025 17:03:40 +0900

목표: 특정 출력 필드를 포함한 ALV 출력 (SQL 조건 및 옵션/정렬 조건 포함)

SBOOK 테이블... 사진 어디갔지 나중에 수정하기

출력 필드:
- CARRID
- CONNID
- LOCCURAM: do_sum 옵션
- LOCCURKEY
- SQL 조건: UP TO 2000 ROWS
- 레이아웃 옵션 사용
  - totals_only
  - totals_before_items
구현 코드

*&---------------------------------------------------------------------*
*& Report Z4WEEK_ASSN002
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z4WEEK_ASSN002.
TABLES:     sbook.

TYPE-POOLS: slis.                                 "ALV Declarations


*Data Declaration
*----------------
TYPES: BEGIN OF t_sbook,
  carrid        TYPE sbook-carrid,
  connid        TYPE sbook-connid,
  loccuram      TYPE sbook-loccuram,
  loccurkey     TYPE sbook-loccurkey,
 END OF t_sbook.

DATA: it_sbook TYPE STANDARD TABLE OF t_sbook INITIAL SIZE 0,
      wa_sbook TYPE t_sbook.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid.

DATA : t TYPE slis_t_sp_group_alv .
************************************************************************
*Start-of-selection.
START-OF-SELECTION.

  PERFORM data_retrieval.
  PERFORM build_fieldcatalog.
  PERFORM build_layout.
  PERFORM build_sort.
  PERFORM display_alv_report.


*Sort options
DATA: gt_sort TYPE slis_t_sortinfo_alv.
FORM  build_sort.
  DATA: wa_sort TYPE slis_sortinfo_alv.

  CLEAR wa_sort.
  wa_sort-fieldname = 'CARRID'.
  wa_sort-tabname = 'SBOOK'.
  wa_sort-up = 'X'.
  wa_sort-subtot = 'X'.
  APPEND wa_sort TO gt_sort.

  CLEAR wa_sort.
  wa_sort-fieldname = 'CONNID'.
  wa_sort-tabname = 'SBOOK'.
  wa_sort-up = 'X'.
  wa_sort-subtot = 'X'.
  APPEND wa_sort TO gt_sort.

*  CLEAR wa_sort.
*  wa_sort-fieldname = 'LOCCURKEY'.
*  wa_sort-tabname = 'SBOOK'.
*  wa_sort-up = 'X'.
*  wa_sort-subtot = 'X'.
*  APPEND wa_sort TO gt_sort.
ENDFORM.


*&---------------------------------------------------------------------*
*&      Form  BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
*       Build Fieldcatalog for ALV Report
*----------------------------------------------------------------------*
FORM build_fieldcatalog.

  fieldcatalog-fieldname   = 'CARRID'.
  fieldcatalog-seltext_m   = 'Airline Code'.
  fieldcatalog-col_pos     = 0.
  fieldcatalog-key         = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CONNID'.
  fieldcatalog-seltext_m   = 'Flight Connection Number'.
  fieldcatalog-col_pos     = 1.
  fieldcatalog-lzero       = 'X'.
  fieldcatalog-key         = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'LOCCURAM'.
  fieldcatalog-seltext_m   = 'Price of booking in local currency of airline'.
  fieldcatalog-col_pos     = 2.
  fieldcatalog-do_sum = 'X'.
  fieldcatalog-cfieldname = 'LOCCURKEY'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'LOCCURKEY'.
  fieldcatalog-seltext_m   = 'Local currency of airline'.
  fieldcatalog-col_pos     = 3.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

ENDFORM.                    " BUILD_FIELDCATALOG


*&---------------------------------------------------------------------*
*&      Form  BUILD_LAYOUT
*&---------------------------------------------------------------------*
*       Build layout for ALV grid report
*----------------------------------------------------------------------*
FORM build_layout.

  gd_layout-no_input          = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-zebra = 'X'.
  gd_layout-totals_only = 'X'.
  gd_layout-totals_before_items = 'X'.
*  gd_layout-info_fieldname =      'LINE_COLOR'.
*  gd_layout-def_status = 'A'.

ENDFORM.                    " BUILD_LAYOUT


*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*       Display report using ALV grid
*----------------------------------------------------------------------*
FORM display_alv_report.
  gd_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = gd_repid
      is_layout          = gd_layout
      it_fieldcat        = fieldcatalog[]
      it_sort            = gt_sort
      i_save             = 'X'
    TABLES
      t_outtab           = it_sbook
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.


ENDFORM.                    " DISPLAY_ALV_REPORT


*&---------------------------------------------------------------------*
*&      Form  DATA_RETRIEVAL
*&---------------------------------------------------------------------*
*       Retrieve data form EKPO table and populate itab it_ekko
*----------------------------------------------------------------------*
FORM data_retrieval.
  DATA: ld_color(1) TYPE c.

  SELECT carrid connid loccuram loccurkey
    UP TO 2000 ROWS
  FROM sbook
  INTO TABLE it_sbook.

ENDFORM.                    " DATA_RETRIEVAL

구현 결과

사용 옵션 정리

사용 옵션	설명	코드 일부
UP TO N ROWS	SQL 페이징 기능	UP TO 2000 ROWS
totals only	합계만 보여줌	gd_layout-totals_only = 'X'.
totals before items	합계를 리스트 전에 출력함	gd_layout-totals_before_items = 'X'.

[4주차 메인과제] 서브 토탈 구현 및 ALV 출력

덩이 — Wed, 30 Jul 2025 16:54:35 +0900

목표: 특정 출력 필드를 포함한 ALV 출력 (서브 토탈 및 옵션/정렬 조건 포함)

SPFLI 테이블

출력 필드:
- CARRID: key필드
- CONNID: key필드
- PRICE: do_sum = 'X'. 조건
- CURRENCY: emphasize 옵션
- PLANETYPE: emphasize 옵션
- 정렬 조건 추가
- 서브토탈 구현하기
  - CARRID: sub_tot up
  - CONNID: sub_tot up

구현 코드

*&---------------------------------------------------------------------*
*& Report Z4WEEK_ASSN001
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z4WEEK_ASSN001.
TABLES:     sflight.

TYPE-POOLS: slis.                                 "ALV Declarations


*Data Declaration
*----------------
TYPES: BEGIN OF t_sflight,
  carrid        TYPE sflight-carrid,
  connid        TYPE sflight-connid,
  fldate        TYPE sflight-fldate,
  price         TYPE sflight-price,
  currency      TYPE sflight-currency,
  planetype     TYPE sflight-planetype,
 END OF t_sflight.

DATA: it_sflight TYPE STANDARD TABLE OF t_sflight INITIAL SIZE 0,
      wa_sflight TYPE t_sflight.

*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid.

DATA : t TYPE slis_t_sp_group_alv .
************************************************************************
*Start-of-selection.
START-OF-SELECTION.

  PERFORM data_retrieval.
  PERFORM build_fieldcatalog.
  PERFORM build_layout.
  PERFORM build_sort.
  PERFORM display_alv_report.


*Sort options
DATA: gt_sort TYPE slis_t_sortinfo_alv.
FORM  build_sort.

  DATA: wa_sort TYPE slis_sortinfo_alv.
  CLEAR wa_sort.
  wa_sort-fieldname = 'CARRID'.
  wa_sort-tabname = 'SFLIGHT'.
  wa_sort-up = 'X'.
  wa_sort-subtot = 'X'.
  APPEND wa_sort TO gt_sort.

  CLEAR wa_sort.
  wa_sort-fieldname = 'CONNID'.
  wa_sort-tabname = 'SFLIGHT'.
  wa_sort-up = 'X'.
  wa_sort-subtot = 'X'.
  APPEND wa_sort TO gt_sort.
ENDFORM.


*&---------------------------------------------------------------------*
*&      Form  BUILD_FIELDCATALOG
*&---------------------------------------------------------------------*
*       Build Fieldcatalog for ALV Report
*----------------------------------------------------------------------*
FORM build_fieldcatalog.

  fieldcatalog-fieldname   = 'CARRID'.
  fieldcatalog-seltext_m   = 'Airline Code'.
  fieldcatalog-col_pos     = 0.
  fieldcatalog-key         = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CONNID'.
  fieldcatalog-seltext_m   = 'Flight Connection Number'.
  fieldcatalog-col_pos     = 1.
  fieldcatalog-lzero       = 'X'.
  fieldcatalog-key         = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'FLDATE'.
  fieldcatalog-seltext_m   = 'Flight date'.
  fieldcatalog-col_pos     = 2.
  fieldcatalog-edit_mask = '________'.
  fieldcatalog-key       = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'PRICE'.
  fieldcatalog-seltext_m   = 'Airfare'.
  fieldcatalog-col_pos     = 3.
  fieldcatalog-cfieldname = 'CURRENCY'.
  fieldcatalog-do_sum = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CURRENCY'.
  fieldcatalog-seltext_m   = 'Local currency of airline'.
  fieldcatalog-col_pos     = 4.
  fieldcatalog-emphasize   = 'C600'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'PLANETYPE'.
  fieldcatalog-seltext_m   = 'Aircraft Type'.
  fieldcatalog-col_pos     = 5.
  fieldcatalog-decimals_out  = 0.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

ENDFORM.                    " BUILD_FIELDCATALOG


*&---------------------------------------------------------------------*
*&      Form  BUILD_LAYOUT
*&---------------------------------------------------------------------*
*       Build layout for ALV grid report
*----------------------------------------------------------------------*
FORM build_layout.

  gd_layout-no_input          = 'X'.
  gd_layout-colwidth_optimize = 'X'.
  gd_layout-zebra = 'X'.
*  gd_layout-info_fieldname =      'LINE_COLOR'.
*  gd_layout-def_status = 'A'.

ENDFORM.                    " BUILD_LAYOUT


*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV_REPORT
*&---------------------------------------------------------------------*
*       Display report using ALV grid
*----------------------------------------------------------------------*
FORM display_alv_report.
  gd_repid = sy-repid.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = gd_repid
      is_layout          = gd_layout
      it_fieldcat        = fieldcatalog[]
      it_sort            = gt_sort
      i_save             = 'X'
    TABLES
      t_outtab           = it_sflight
    EXCEPTIONS
      program_error      = 1
      OTHERS             = 2.
  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.


ENDFORM.                    " DISPLAY_ALV_REPORT


*&---------------------------------------------------------------------*
*&      Form  DATA_RETRIEVAL
*&---------------------------------------------------------------------*
*       Retrieve data form EKPO table and populate itab it_ekko
*----------------------------------------------------------------------*
FORM data_retrieval.
  DATA: ld_color(1) TYPE c.

  SELECT carrid connid fldate price currency planetype
*  UP TO 10 ROWS
    FROM sflight
    INTO TABLE it_sflight.

ENDFORM.                    " DATA_RETRIEVAL

구현 결과

사용 옵션 정리

사용 옵션	설명	코드 일부
서브토탈 옵션 선언	서브토탈 옵션 사용 선언	sort-subtot = 'X'.
오름차순 정렬	up: 오름차순	sort-up = 'X'.
숫자 필드 사용	필드 카탈로그에 숫자 필드를 넣어줌	fieldcatalog-do_sum = 'X'.

[3주차 과제] ALV 출력(2)

덩이 — Wed, 30 Jul 2025 15:02:25 +0900

목표: 특정 출력 필드(조건 포함)를 포함한 ALV 출력

SPFLI 테이블

출력 필드:
- CARRID: fieldcatalog-key 옵션
- CONNID: key 옵션, 0이앞에 붙게 출력
- FLDATE: key 옵션,
- PRICE: 통화단위 옵션 넣고 소수점 안나오게 출력
- CURRENCY: fieldcatalog-emphasize 옵션
- PLANETYPE

코드 일부 (필드 카탈로그)

  fieldcatalog-fieldname   = 'MANDT'.
  fieldcatalog-seltext_m   = 'Client'.
  fieldcatalog-col_pos     = 0.
  fieldcatalog-outputlen   = 10.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CARRID'.
  fieldcatalog-seltext_m   = 'Airline Code'.
  fieldcatalog-col_pos     = 1.
  fieldcatalog-key         = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CONNID'.
  fieldcatalog-seltext_m   = 'Flight Connection Number'.
  fieldcatalog-col_pos     = 2.
  fieldcatalog-lzero       = 'X'.
  fieldcatalog-key         = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'FLDATE'.
  fieldcatalog-seltext_m   = 'Flight date'.
  fieldcatalog-col_pos     = 3.
  fieldcatalog-edit_mask = '________'.
  fieldcatalog-key       = 'X'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'PRICE'.
  fieldcatalog-seltext_m   = 'Airfare'.
  fieldcatalog-col_pos     = 4.
  fieldcatalog-cfieldname = 'CURRENCY'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CURRENCY'.
  fieldcatalog-seltext_m   = 'Local currency of airline'.
  fieldcatalog-col_pos     = 5.
  fieldcatalog-emphasize   = 'C600'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'PLANETYPE'.
  fieldcatalog-seltext_m   = 'Aircraft Type'.
  fieldcatalog-col_pos     = 6.
  fieldcatalog-decimals_out  = 0.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

출력 결과

[2주차 과제] ALV 출력(1)

덩이 — Wed, 30 Jul 2025 14:30:37 +0900

목표: 특정 출력 필드를 포함한 ALV 출력

SPFLI 테이블 구조

출력 필드:
- CARRID: 항공사 코드
- CONNID: 항공편 연결번호
- FLTIME: 비행시간
- DEFTIME: 출발시간
- ARRTIME: 도착시간
- DISTANCE: 거리
- DISTID: 거리 단위
주요 문제점 및 내가 사용한 해결 방안

문제점	원인	해결방법	코드(필드 카탈로그)
CONNID 앞자리 0이 사라짐	CONNID는 NUMC 타입	datatype = 'C' 로 설정해 문자로 출력	fieldcatalog-fieldname = 'CONNID'. fieldcatalog-datatype = 'C'.
FLTIME 숫자로 나오지 않고 문자로 보임	FLTIME 기본 문자 타입	datatype = 'I' 로 숫자형으로 변환해 정렬 및 출력	fieldcatalog-fieldname = 'FLTIME'. fieldcatalog-datatype = 'I'.
DISTANCE 소수점 4자리까지만 보임	QUAN 타입으로 소수점 4자리 기본 출력	decimals_out = 0 으로 소수점 없이 정수만 표시	fieldcatalog-fieldname = 'DISTANCE'. fieldcatalog-decimals_out = 0.

코드 일부 (필드 카탈로그 영역)

  fieldcatalog-fieldname   = 'MANDT'.
  fieldcatalog-seltext_m   = 'Client'.
  fieldcatalog-col_pos     = 0.
  fieldcatalog-outputlen   = 10.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CARRID'.
  fieldcatalog-seltext_m   = 'Airline Code'.
  fieldcatalog-col_pos     = 1.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'CONNID'.
  fieldcatalog-seltext_m   = 'Flight Connection Number'.
  fieldcatalog-col_pos     = 2.
  fieldcatalog-datatype    = 'C'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'FLTIME'.
  fieldcatalog-seltext_m   = 'Flight time'.
  fieldcatalog-col_pos     = 3.
  fieldcatalog-datatype    = 'I'.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'DEPTIME'.
  fieldcatalog-seltext_m   = 'Departure time'.
  fieldcatalog-col_pos     = 4.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'ARRTIME'.
  fieldcatalog-seltext_m   = 'Arrival time'.
  fieldcatalog-col_pos     = 5.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'DISTANCE'.
  fieldcatalog-seltext_m   = 'Distance'.
  fieldcatalog-col_pos     = 6.
  fieldcatalog-decimals_out  = 0.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

  fieldcatalog-fieldname   = 'DISTID'.
  fieldcatalog-seltext_m   = 'Mass unit of distance (kms, miles)'.
  fieldcatalog-col_pos     = 7.
  APPEND fieldcatalog TO fieldcatalog.
  CLEAR  fieldcatalog.

출력 결과

과제 문제 풀이

문제점	원인	해결방안	코드 (필드 카탈로그)
CONNID 앞자리 0 사라짐	CONNID는 NUMC 타입	lzero 옵션 사용 'X' : 숫자 앞의 0 표기 공백 또는 설정 없음: 숫자 앞의 0 제거 (default)	fieldcatalog-lzero = ‘X’.
FLTIME 전체가 나오지 않음	FLTIME INT4 타입	edit_mask 옵션 사용 출력 필드 고정 시킴	fieldcatalog-edit_mask = ‘__________’.
DISTANCE 소수점 4자리까지만 보임	QUAN 타입으로 소수점 4자리 기본 출력	decimals_out = 0 으로 소수점 없이 정수만 표시	fieldcatalog-fieldname = 'DISTANCE'. fieldcatalog-decimals_out = 0.

FLTIME 필드 출력 조건을 잘못 판단함...

fieldcatalog-fieldname   = 'CONNID'.
fieldcatalog-seltext_m   = 'Flight Connection Number'.
fieldcatalog-col_pos     = 2.
fieldcatalog-lzero = ‘X’.
APPEND fieldcatalog TO fieldcatalog.
CLEAR  fieldcatalog.

...

fieldcatalog-fieldname   = 'FLTIME'.
fieldcatalog-seltext_m   = 'Flight time'.
fieldcatalog-col_pos     = 3.
fieldcatalog-edit_mask = ‘__________’.
APPEND fieldcatalog TO fieldcatalog.
CLEAR  fieldcatalog.

...

fieldcatalog-fieldname   = 'DISTANCE'.
fieldcatalog-seltext_m   = 'Distance'.
fieldcatalog-col_pos     = 6.
fieldcatalog-decimals_out  = 0.
APPEND fieldcatalog TO fieldcatalog.
CLEAR  fieldcatalog.