REPORT  ZTEST_00004                                                 .

  data: gt_itab like table of caufv with header line.
  data: i_caufvd LIKE caufvd.
  DATA: gs_textedit_header LIKE thead,
        gt_textedit_lines  LIKE tline-tdline OCCURS 0.
  DATA l_init_flg TYPE c.
  DATA lt_tlines LIKE tline OCCURS 0 WITH HEADER LINE.

start-of-selection.
  SELECT *
    into corresponding fields of table gt_itab
    FROM CAUFV
   where AUFNR eq '000001000225'.

end-of-selection.
  read table gt_itab index 1.
  move-corresponding gt_itab to i_caufvd.

  CALL FUNCTION 'CO_ZF_GET_TEXT_FOR_OBJECT'
       EXPORTING
            i_autyp   = i_caufvd-autyp
            i_caufvd  = i_caufvd
            i_init    = l_init_flg
       IMPORTING
            e_theader = gs_textedit_header
       TABLES
            e_tlines  = lt_tlines
       EXCEPTIONS
            not_found = 01.

*  data: lt_text like table of TLINE with header line.
*
*  CALL FUNCTION 'CONVERT_STREAM_TO_ITF_TEXT'
*    TABLES
*      text_stream       = lt_tlines
*      itf_text          = lt_text.

  loop at lt_tlines.
    write: / lt_tlines-TDLINE.
  endloop.

zrtest1003.zip

*&---------------------------------------------------------------------*
*&  Include           ZRTEST1003_TOP
*&---------------------------------------------------------------------*

  data: gt_itab  like table of ztest001 with header line,
        gt_itab2 like table of ztest001 with header line.

  data: l_totcnt  type i,
        l_totcnt2 type i,
        g_rate(3).

*&---------------------------------------------------------------------*
*&  Include           ZRTEST1003_F01
*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*&      Form  DISPLAY_RATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
form display_rate .

  data: l_text(50).

  concatenate g_rate '%' '### ->' gt_itab-aaa
         into l_text separated by space.

  call function 'SAPGUI_PROGRESS_INDICATOR'  "Progress  Bar
    exporting
      percentage = g_rate      "####-###(%)
      text       = l_text      "Prograss bar ###
    exceptions
      others     = 1.

endform.                    " DISPLAY_RATE

z_color.zip

*&---------------------------------------------------------------------*
*& Report  Y_COLOR
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

include y_color_top.    " global Data
include y_color_f01.  " FORM-Routines


START-OF-SELECTION.

  CLEAR : gt_color.

  PERFORM color USING 'C100'.
  PERFORM color USING 'C101'.
  PERFORM color USING 'C110'.

  PERFORM color USING 'C200'.
  PERFORM color USING 'C201'.
  PERFORM color USING 'C210'.

  PERFORM color USING 'C300'.
  PERFORM color USING 'C301'.
  PERFORM color USING 'C310'.

  PERFORM color USING 'C400'.
  PERFORM color USING 'C401'.
  PERFORM color USING 'C410'.

  PERFORM color USING 'C500'.
  PERFORM color USING 'C501'.
  PERFORM color USING 'C510'.

  PERFORM color USING 'C600'.
  PERFORM color USING 'C601'.
  PERFORM color USING 'C610'.

  PERFORM color USING 'C700'.
  PERFORM color USING 'C701'.
  PERFORM color USING 'C710'.

  PERFORM color USING 'C800'.

  CLEAR : gt_fcat.
  PERFORM fcat USING '1' 'COLOR01' ' '.



  gs_layout-info_fieldname    = 'LINE_COLOR'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
*    i_callback_program     = l_repid
*    i_callback_top_of_page = 'TOP-OF-PAGE'
      is_layout              = gs_layout
      it_fieldcat            = gt_fcat
*    it_sort                = gt_sort
    TABLES
      t_outtab               = gt_color
    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.

*&---------------------------------------------------------------------*
*&  Include           Y_COLOR_TOP
*&---------------------------------------------------------------------*

REPORT   y_color.

TYPE-POOLS : slis.

DATA : BEGIN OF wa_color,
   color01(4),
   line_color(4) TYPE c,
  END OF wa_color.
DATA : gt_color LIKE TABLE OF wa_color.

DATA : wa_fcat    TYPE slis_fieldcat_alv,
       gt_fcat    LIKE TABLE OF wa_fcat,
       gs_layout  TYPE slis_layout_alv.
 
*&---------------------------------------------------------------------*
*&  Include           Y_COLOR_F01
*&---------------------------------------------------------------------*

*&---------------------------------------------------------------------*
*&      Form  color
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0058   text
*----------------------------------------------------------------------*
FORM color  USING    value(p_color).

  CLEAR : wa_color.
  wa_color-color01    = p_color.
  wa_color-line_color = p_color.
  APPEND wa_color TO gt_color.

ENDFORM.                    " color
*&---------------------------------------------------------------------*
*&      Form  fcat
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_0047   text
*      -->P_0048   text
*      -->P_0049   text
*----------------------------------------------------------------------*
form fcat  using    p_col
                    p_field
                    p_emp
.

  CLEAR wa_fcat.
  wa_fcat-col_pos    = p_col.
  wa_fcat-fieldname  = p_field.
  wa_fcat-emphasize  = p_emp.


  APPEND wa_fcat TO gt_fcat.


endform.                    " fcat

TABLES: SFLIGHT, SSCRFIELDS.

SELECTION-SCREEN BEGIN OF BLOCK BL01 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS: S_CCARID FOR SFLIGHT-CARRID.

  SELECTION-SCREEN FUNCTION KEY 1. "펑션버튼 추가
  SELECTION-SCREEN FUNCTION KEY 5.

  SELECTION-SCREEN SKIP 1.
  SELECTION-SCREEN PUSHBUTTON /10(10) BTN  "버트추가
                                      USER-COMMAND ABCD.

SELECTION-SCREEN END OF BLOCK BL01.

SELECTION-SCREEN BEGIN OF BLOCK BL02 WITH FRAME.
  PARAMETERS: TEST01(10) TYPE C MODIF ID SC1,
              TEST02(10) TYPE C MODIF ID SC2,
              TEST03(10) TYPE C MODIF ID SC1,
              TEST04(10) TYPE C MODIF ID SC2.
SELECTION-SCREEN END OF BLOCK BL02.

AT SELECTION-SCREEN OUTPUT. "파라메터 이름 색변경
  LOOP AT SCREEN.
    IF SCREEN-GROUP1 EQ 'SC1'.
       SCREEN-INTENSIFIED = '1'. "색을 준다
       SCREEN-INPUT = '0'. "파라메터에 값 못넣도록
       MODIFY SCREEN.
    ENDIF.

    IF SCREEN-GROUP1 EQ 'SC2'.
       SCREEN-INTENSIFIED = '0'.
       MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

INITIALIZATION.
  MOVE 'MY BUTTON' TO BTN.  "버튼
  MOVE 'MY FUN' TO SSCRFIELDS-FUNCTXT_01. "펑션버튼
  MOVE 'MY FUN' TO SSCRFIELDS-FUNCTXT_05.

AT SELECTION-SCREEN.
  IF SSCRFIELDS-UCOMM EQ 'ABCD'.
    MESSAGE S003(ZEDUOPT100) WITH '버튼 처리'.
  ELSEIF SSCRFIELDS-UCOMM EQ 'FC01'.
    MESSAGE S003(ZEDUOPT100) WITH '펑션 처리'.
  ELSEIF SSCRFIELDS-UCOMM EQ 'FC05'.
    MESSAGE S003(ZEDUOPT100) WITH '펑션 처리'.
  ENDIF.

START-OF-SELECTION.

END-OF-SELECTION.

TOP-OF-PAGE.

*Messages
*----------------------------------------------------------
*
* Message class: ZEDUOPT100
*003   &

   T-CODE : SNUM.

2. NUMBER RANGE 를 IMG처럼 만들기.
   매개변수 트랜잭션을 만든다.  SNUM을 사용하여 만듬.

2. NUMBER RANGE 적용 번호 따기.
   FUNCTION

   call function 'NUMBER_GET_NEXT'   
       exporting
            nr_range_nr             = 'VH'     --> 번호범위 지정시 설정.
            object                  = 'ZSVH'   --> 1번에서 지정.
       importing
            number                  = zvh10-hcbel
       exceptions
            interval_not_found      = 1
            number_range_not_intern = 2
            object_not_found        = 3
            quantity_is_0           = 4
            quantity_is_not_1       = 5
            interval_overflow       = 6
            others                  = 7.

3. NUMBER RANGE 조회하기. - 외부 지정인 경우 점검.
   FUNCTION  'NUMBER_GET_INFO'  " NUMBER RANGE 정보 읽어오기

   FUNCTION  'NUMBER_CHECK'     " NUMBER RANGE 점검.
     Import 매개변수                 값
        NR_RANGE_NR                     MS
        NUMBER                          SJ20050001
        OBJECT                          ZBUNDL
        SUBOBJECT
        TOYEAR                          2005
        NUMERIC_CHECK
     Export 매개변수                 값
        RETURNCODE                      X.
   RETURNCODE값이 'X'이면 NUMBER RANGE가 오류이다.

textpool.zip

Syntax

READ TEXTPOOL prog INTO itab LANGUAGE lang.

Effect

This statement reads the text elements of the text pool of the language specified in lang and the program specified in prog from the Repository and places them into the internal table itab. The previous content of itab is deleted. If the text elements cannot be read, then the content of itab remains unchanged.

For prog, you must specify a flat character-like data object, which contains the name of the program of the text elements to be read; the name is case-independent. The internal table can have any table type and its row type must correspond to structure TEXTPOOL from the ABAP Dictionary.

For lang, you must specify a flat character-like data object, which contains a language key of up to one character, whose value must be contained in the SPRAS column of database table T002. If lang contains a blank, the behavior is undefined.

After a successful read, itab contains in the ENTRY column the texts of the text symbols, the selection texts, the list headers and the title from the program attributes. Every text element that exists for the specified language occupies one row of the internal table and is identified uniquely by the columns ID and KEY. The column LENGTH contains the length of the text element. The table below shows the possible values of the columns ID and KEY and their meaning:

Note

For selection texts, the actual text in ENTRY is preceded by eight blanks.

System Fields