ABAP Select data from SAP table PBR_FORM_SEGDE into internal table

Get Example source ABAP code based on a different SAP table
  Get ABAP code

Below is a number of ABAP code snippets to demonstrate how to select data from SAP PBR_FORM_SEGDE table and store it within an internal table, including using the newer @DATA inline declaration methods. It also shows you various ways to process this data using ABAP work area, inline declaration or field symbols including executing all the relevant CONVERSION_EXIT routines specific to PBR_FORM_SEGDE. See here for more generic Select statement tips.

Sometimes data within SAP is stored within the database table in a different format to what it is displayed to the user. These input/output conversation FM routines are what translates the data between the two formats.

There is also a full declaration of the PBR_FORM_SEGDE table where each field has a char/string type for you to simply copy and paste. This allows you to use processing that is only available to these field types such as the CONCATENATE statement.

DATA: IT_PBR_FORM_SEGDE TYPE STANDARD TABLE OF PBR_FORM_SEGDE,
      WA_PBR_FORM_SEGDE TYPE PBR_FORM_SEGDE,
      GD_STR TYPE STRING.

DATA: lo_typedescr type REF TO cl_abap_typedescr.
DATA: lv_fieldname type fieldname.

FIELD-SYMBOLS: <FIELD> TYPE any.
FIELD-SYMBOLS: <PBR_FORM_SEGDE> TYPE PBR_FORM_SEGDE.

*Process all fields in table header/work area as string values
  PERFORM process_as_string_field_values CHANGING wa_PBR_FORM_SEGDE.

SELECT *
*restrict ABAP select to first 10 rows
 UP TO 10 ROWS      
  FROM PBR_FORM_SEGDE
  INTO TABLE IT_PBR_FORM_SEGDE.

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PBR_FORM_SEGDE
*  INTO TABLE @DATA(IT_PBR_FORM_SEGDE2).
*--Further methods of using ABAP code to  select data from SAP database tables

*You can also declare the header/work area using the in-line DATA declaration method
READ TABLE IT_PBR_FORM_SEGDE INDEX 1 INTO DATA(WA_PBR_FORM_SEGDE2).


*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_PBR_FORM_SEGDE ASSIGNING <PBR_FORM_SEGDE>.

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PBR_FORM_SEGDE>-NAME = 1.
<PBR_FORM_SEGDE>-ADDR1 = 1.
<PBR_FORM_SEGDE>-ADDR2 = 1.
<PBR_FORM_SEGDE>-ZIP = 1.
<PBR_FORM_SEGDE>-STATE = 1.

ENDLOOP.

LOOP AT IT_PBR_FORM_SEGDE INTO WA_PBR_FORM_SEGDE.
*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PBR_FORM_SEGDE-PHONE, sy-vline,
  WA_PBR_FORM_SEGDE-MOTHER, sy-vline,
  WA_PBR_FORM_SEGDE-TYPE_INSCR, sy-vline,
  WA_PBR_FORM_SEGDE-NUM_INSCR, sy-vline,
  WA_PBR_FORM_SEGDE-ACT_CODE, sy-vline,
  WA_PBR_FORM_SEGDE-PISNR, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PBR_FORM_SEGDE you want to display...

  WRITE:/ sy-uline.
* Aternatively use generic code to Write field values (and NAME) to screen report
  DO.
    ASSIGN COMPONENT sy-index OF STRUCTURE wa_PBR_FORM_SEGDE TO <field>.
    IF sy-subrc <> 0. EXIT. ENDIF.
    WRITE:/ 'Field Value', <field>, sy-vline.
    gd_str = <field> .
    lo_typedescr ?= CL_ABAP_DATADESCR=>DESCRIBE_BY_DATA( <field> ).
    lv_fieldname = lo_typedescr->GET_RELATIVE_NAME( ).
    WRITE:/ 'Field Name', lv_fieldname.
  ENDDO.

  
*Redo loop but convert all fields from internal to out value  
LOOP AT IT_PBR_FORM_SEGDE INTO WA_PBR_FORM_SEGDE.


*Write horizonal line to screen report.
  WRITE:/ sy-uline.

*Convert all fields to display/output versions using conversion routines
  PERFORM convert_all_field_values CHANGING wa_EKKO.
	 
ENDLOOP.

  
*&---------------------------------------------------------------------*
*& Form convert_all_field_values
*&---------------------------------------------------------------------*
FORM convert_all_field_values CHANGING p_EKKO LIKE wa_EKKO.
DATA: ld_input(1000) TYPE c, ld_output(1000) TYPE C.

*Conversion exit CGCBR, internal->external for field NUM_INSCR
CALL FUNCTION 'CONVERSION_EXIT_CGCBR_OUTPUT'
  EXPORTING
    input =                      WA_PBR_FORM_SEGDE-NUM_INSCR
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_PBR_FORM_SEGDE-NUM_INSCR.
WRITE:/ 'New Value:', ld_input.
ENDFORM. 

*&---------------------------------------------------------------------*
*& Form process_as_string_field_values
*&---------------------------------------------------------------------*
FORM process_as_string_field_values CHANGING p_EKKO LIKE wa_EKKO.

TYPES: BEGIN OF T_PBR_FORM_SEGDE_STR, 
NAME TYPE STRING,
ADDR1 TYPE STRING,
ADDR2 TYPE STRING,
ZIP TYPE STRING,
STATE TYPE STRING,
PHONE TYPE STRING,
MOTHER TYPE STRING,
TYPE_INSCR TYPE STRING,
NUM_INSCR TYPE STRING,
ACT_CODE TYPE STRING,
PISNR TYPE STRING,
CTPSNR TYPE STRING,
CTPSSER TYPE STRING,
CTPSUF TYPE STRING,
CBO TYPE STRING,
CBOCODE TYPE STRING,
CPFNR TYPE STRING,
HIRE_DD TYPE STRING,
HIRE_MM TYPE STRING,
HIRE_YY TYPE STRING,
FIRE_DD TYPE STRING,
FIRE_MM TYPE STRING,
FIRE_YY TYPE STRING,
GENDER TYPE STRING,
DEGREE TYPE STRING,
BIRTH_DD TYPE STRING,
BIRTH_MM TYPE STRING,
BIRTH_YY TYPE STRING,
MONTH1 TYPE STRING,
SAL1 TYPE STRING,
MONTH2 TYPE STRING,
SAL2 TYPE STRING,
MONTH3 TYPE STRING,
SAL3 TYPE STRING,
SAL4 TYPE STRING,
SAL5 TYPE STRING,
SAL6 TYPE STRING,
TOTSAL TYPE STRING,
BANK_FGTS TYPE STRING,
AGENCY_FGTS TYPE STRING,
AGENCY_DV TYPE STRING,
NAME_BK_AGEN TYPE STRING,
WORK_MONTH TYPE STRING,
HOURS_WEEK TYPE STRING,
SAL_REC TYPE STRING,
AVISO_PREV TYPE STRING,
COMP_NAME TYPE STRING,
CURRENCY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PBR_FORM_SEGDE_STR type T_EKKO_STR.

DATA: ld_text TYPE string.

LOOP AT IT_EKKO INTO WA_EKKO.
  MOVE-CORRESPONDING wa_EKKO TO WA_EKKO_STR.
  CONCATENATE: sy-vline
WA_PBR_FORM_SEGDE_STR-NAME sy-vline 
WA_PBR_FORM_SEGDE_STR-ADDR1 sy-vline 
WA_PBR_FORM_SEGDE_STR-ADDR2 sy-vline 
WA_PBR_FORM_SEGDE_STR-ZIP sy-vline 
WA_PBR_FORM_SEGDE_STR-STATE sy-vline 
WA_PBR_FORM_SEGDE_STR-PHONE sy-vline 
WA_PBR_FORM_SEGDE_STR-MOTHER sy-vline 
WA_PBR_FORM_SEGDE_STR-TYPE_INSCR sy-vline 
WA_PBR_FORM_SEGDE_STR-NUM_INSCR sy-vline 
WA_PBR_FORM_SEGDE_STR-ACT_CODE sy-vline 
WA_PBR_FORM_SEGDE_STR-PISNR sy-vline 
WA_PBR_FORM_SEGDE_STR-CTPSNR sy-vline 
WA_PBR_FORM_SEGDE_STR-CTPSSER sy-vline 
WA_PBR_FORM_SEGDE_STR-CTPSUF sy-vline 
WA_PBR_FORM_SEGDE_STR-CBO sy-vline 
WA_PBR_FORM_SEGDE_STR-CBOCODE sy-vline 
WA_PBR_FORM_SEGDE_STR-CPFNR sy-vline 
WA_PBR_FORM_SEGDE_STR-HIRE_DD sy-vline 
WA_PBR_FORM_SEGDE_STR-HIRE_MM sy-vline 
WA_PBR_FORM_SEGDE_STR-HIRE_YY sy-vline 
WA_PBR_FORM_SEGDE_STR-FIRE_DD sy-vline 
WA_PBR_FORM_SEGDE_STR-FIRE_MM sy-vline 
WA_PBR_FORM_SEGDE_STR-FIRE_YY sy-vline 
WA_PBR_FORM_SEGDE_STR-GENDER sy-vline 
WA_PBR_FORM_SEGDE_STR-DEGREE sy-vline 
WA_PBR_FORM_SEGDE_STR-BIRTH_DD sy-vline 
WA_PBR_FORM_SEGDE_STR-BIRTH_MM sy-vline 
WA_PBR_FORM_SEGDE_STR-BIRTH_YY sy-vline 
WA_PBR_FORM_SEGDE_STR-MONTH1 sy-vline 
WA_PBR_FORM_SEGDE_STR-SAL1 sy-vline 
WA_PBR_FORM_SEGDE_STR-MONTH2 sy-vline 
WA_PBR_FORM_SEGDE_STR-SAL2 sy-vline 
WA_PBR_FORM_SEGDE_STR-MONTH3 sy-vline 
WA_PBR_FORM_SEGDE_STR-SAL3 sy-vline 
WA_PBR_FORM_SEGDE_STR-SAL4 sy-vline 
WA_PBR_FORM_SEGDE_STR-SAL5 sy-vline 
WA_PBR_FORM_SEGDE_STR-SAL6 sy-vline 
WA_PBR_FORM_SEGDE_STR-TOTSAL sy-vline 
WA_PBR_FORM_SEGDE_STR-BANK_FGTS sy-vline 
WA_PBR_FORM_SEGDE_STR-AGENCY_FGTS sy-vline 
WA_PBR_FORM_SEGDE_STR-AGENCY_DV sy-vline 
WA_PBR_FORM_SEGDE_STR-NAME_BK_AGEN sy-vline 
WA_PBR_FORM_SEGDE_STR-WORK_MONTH sy-vline 
WA_PBR_FORM_SEGDE_STR-HOURS_WEEK sy-vline 
WA_PBR_FORM_SEGDE_STR-SAL_REC sy-vline 
WA_PBR_FORM_SEGDE_STR-AVISO_PREV sy-vline 
WA_PBR_FORM_SEGDE_STR-COMP_NAME sy-vline 
WA_PBR_FORM_SEGDE_STR-CURRENCY sy-vline      INTO ld_text SEPARATED BY SPACE.

*Add any further fields from structure WA_EKKO_STR you want to CONCATENATE...
ENDLOOP.
ENDFORM.