ABAP Select data from SAP table PJP_FORM_STXT 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 PJP_FORM_STXT 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 PJP_FORM_STXT. 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 PJP_FORM_STXT 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_PJP_FORM_STXT TYPE STANDARD TABLE OF PJP_FORM_STXT,
      WA_PJP_FORM_STXT TYPE PJP_FORM_STXT,
      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: <PJP_FORM_STXT> TYPE PJP_FORM_STXT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PJP_FORM_STXT
*  INTO TABLE @DATA(IT_PJP_FORM_STXT2).
*--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_PJP_FORM_STXT INDEX 1 INTO DATA(WA_PJP_FORM_STXT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PJP_FORM_STXT>-APR = 1.
<PJP_FORM_STXT>-AUG = 1.
<PJP_FORM_STXT>-D01 = 1.
<PJP_FORM_STXT>-D02 = 1.
<PJP_FORM_STXT>-D03 = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PJP_FORM_STXT-D04, sy-vline,
  WA_PJP_FORM_STXT-D05, sy-vline,
  WA_PJP_FORM_STXT-D06, sy-vline,
  WA_PJP_FORM_STXT-D07, sy-vline,
  WA_PJP_FORM_STXT-D08, sy-vline,
  WA_PJP_FORM_STXT-D09, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PJP_FORM_STXT 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_PJP_FORM_STXT 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_PJP_FORM_STXT INTO WA_PJP_FORM_STXT.


*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.
ENDFORM. 

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

TYPES: BEGIN OF T_PJP_FORM_STXT_STR, 
APR TYPE STRING,
AUG TYPE STRING,
D01 TYPE STRING,
D02 TYPE STRING,
D03 TYPE STRING,
D04 TYPE STRING,
D05 TYPE STRING,
D06 TYPE STRING,
D07 TYPE STRING,
D08 TYPE STRING,
D09 TYPE STRING,
D10 TYPE STRING,
D11 TYPE STRING,
D12 TYPE STRING,
D13 TYPE STRING,
D14 TYPE STRING,
D15 TYPE STRING,
D16 TYPE STRING,
D17 TYPE STRING,
DEC TYPE STRING,
DH1 TYPE STRING,
DH2 TYPE STRING,
DH3 TYPE STRING,
DH4 TYPE STRING,
DH5 TYPE STRING,
E01 TYPE STRING,
E02 TYPE STRING,
EH1 TYPE STRING,
FEB TYPE STRING,
H01 TYPE STRING,
H02 TYPE STRING,
H03 TYPE STRING,
H04 TYPE STRING,
H05 TYPE STRING,
H06 TYPE STRING,
H07 TYPE STRING,
H08 TYPE STRING,
H09 TYPE STRING,
H10 TYPE STRING,
H11 TYPE STRING,
H12 TYPE STRING,
H13 TYPE STRING,
JAN TYPE STRING,
JUL TYPE STRING,
JUN TYPE STRING,
M02 TYPE STRING,
M03 TYPE STRING,
M04 TYPE STRING,
M05 TYPE STRING,
M06 TYPE STRING,
M10 TYPE STRING,
MAR TYPE STRING,
MAY TYPE STRING,
MH1 TYPE STRING,
NOV TYPE STRING,
OCT TYPE STRING,
Q01 TYPE STRING,
Q02 TYPE STRING,
Q03 TYPE STRING,
Q04 TYPE STRING,
Q05 TYPE STRING,
Q06 TYPE STRING,
R01 TYPE STRING,
R02 TYPE STRING,
R03 TYPE STRING,
R04 TYPE STRING,
R05 TYPE STRING,
R06 TYPE STRING,
R07 TYPE STRING,
R08 TYPE STRING,
R09 TYPE STRING,
R10 TYPE STRING,
R11 TYPE STRING,
R12 TYPE STRING,
R13 TYPE STRING,
RH1 TYPE STRING,
S01 TYPE STRING,
S02 TYPE STRING,
S03 TYPE STRING,
SE1 TYPE STRING,
SE2 TYPE STRING,
SEP TYPE STRING,
SH1 TYPE STRING,
SH2 TYPE STRING,
SH3 TYPE STRING,
SH4 TYPE STRING,
SH5 TYPE STRING,
SH6 TYPE STRING,
SH7 TYPE STRING,
SH8 TYPE STRING,
TH1 TYPE STRING,
TH2 TYPE STRING,
TH5 TYPE STRING,
TH6 TYPE STRING,
TTL TYPE STRING,
TL1 TYPE STRING,
TL2 TYPE STRING,
TL3 TYPE STRING,
TL4 TYPE STRING,
Y01 TYPE STRING,
Y02 TYPE STRING,
Y03 TYPE STRING,
Y04 TYPE STRING,
Y05 TYPE STRING,
Y06 TYPE STRING,
Y07 TYPE STRING,
Y08 TYPE STRING,
Y09 TYPE STRING,
Y10 TYPE STRING,
Y11 TYPE STRING,
Y12 TYPE STRING,
Y13 TYPE STRING,
Y14 TYPE STRING,
Y15 TYPE STRING,
Y16 TYPE STRING,
Y17 TYPE STRING,
Y18 TYPE STRING,
Y19 TYPE STRING,
Y20 TYPE STRING,
Y21 TYPE STRING,
Y22 TYPE STRING,
Y23 TYPE STRING,
Y24 TYPE STRING,
Y50 TYPE STRING,
Y51 TYPE STRING,
Y52 TYPE STRING,
Y53 TYPE STRING,
Y54 TYPE STRING,
Y55 TYPE STRING,
Y56 TYPE STRING,
Y57 TYPE STRING,
Y61 TYPE STRING,
YA1 TYPE STRING,
YA2 TYPE STRING,
YA3 TYPE STRING,
YH1 TYPE STRING,
YH2 TYPE STRING,
YH3 TYPE STRING,
YH4 TYPE STRING,
YH5 TYPE STRING,
YH6 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PJP_FORM_STXT_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_PJP_FORM_STXT_STR-APR sy-vline 
WA_PJP_FORM_STXT_STR-AUG sy-vline 
WA_PJP_FORM_STXT_STR-D01 sy-vline 
WA_PJP_FORM_STXT_STR-D02 sy-vline 
WA_PJP_FORM_STXT_STR-D03 sy-vline 
WA_PJP_FORM_STXT_STR-D04 sy-vline 
WA_PJP_FORM_STXT_STR-D05 sy-vline 
WA_PJP_FORM_STXT_STR-D06 sy-vline 
WA_PJP_FORM_STXT_STR-D07 sy-vline 
WA_PJP_FORM_STXT_STR-D08 sy-vline 
WA_PJP_FORM_STXT_STR-D09 sy-vline 
WA_PJP_FORM_STXT_STR-D10 sy-vline 
WA_PJP_FORM_STXT_STR-D11 sy-vline 
WA_PJP_FORM_STXT_STR-D12 sy-vline 
WA_PJP_FORM_STXT_STR-D13 sy-vline 
WA_PJP_FORM_STXT_STR-D14 sy-vline 
WA_PJP_FORM_STXT_STR-D15 sy-vline 
WA_PJP_FORM_STXT_STR-D16 sy-vline 
WA_PJP_FORM_STXT_STR-D17 sy-vline 
WA_PJP_FORM_STXT_STR-DEC sy-vline 
WA_PJP_FORM_STXT_STR-DH1 sy-vline 
WA_PJP_FORM_STXT_STR-DH2 sy-vline 
WA_PJP_FORM_STXT_STR-DH3 sy-vline 
WA_PJP_FORM_STXT_STR-DH4 sy-vline 
WA_PJP_FORM_STXT_STR-DH5 sy-vline 
WA_PJP_FORM_STXT_STR-E01 sy-vline 
WA_PJP_FORM_STXT_STR-E02 sy-vline 
WA_PJP_FORM_STXT_STR-EH1 sy-vline 
WA_PJP_FORM_STXT_STR-FEB sy-vline 
WA_PJP_FORM_STXT_STR-H01 sy-vline 
WA_PJP_FORM_STXT_STR-H02 sy-vline 
WA_PJP_FORM_STXT_STR-H03 sy-vline 
WA_PJP_FORM_STXT_STR-H04 sy-vline 
WA_PJP_FORM_STXT_STR-H05 sy-vline 
WA_PJP_FORM_STXT_STR-H06 sy-vline 
WA_PJP_FORM_STXT_STR-H07 sy-vline 
WA_PJP_FORM_STXT_STR-H08 sy-vline 
WA_PJP_FORM_STXT_STR-H09 sy-vline 
WA_PJP_FORM_STXT_STR-H10 sy-vline 
WA_PJP_FORM_STXT_STR-H11 sy-vline 
WA_PJP_FORM_STXT_STR-H12 sy-vline 
WA_PJP_FORM_STXT_STR-H13 sy-vline 
WA_PJP_FORM_STXT_STR-JAN sy-vline 
WA_PJP_FORM_STXT_STR-JUL sy-vline 
WA_PJP_FORM_STXT_STR-JUN sy-vline 
WA_PJP_FORM_STXT_STR-M02 sy-vline 
WA_PJP_FORM_STXT_STR-M03 sy-vline 
WA_PJP_FORM_STXT_STR-M04 sy-vline 
WA_PJP_FORM_STXT_STR-M05 sy-vline 
WA_PJP_FORM_STXT_STR-M06 sy-vline 
WA_PJP_FORM_STXT_STR-M10 sy-vline 
WA_PJP_FORM_STXT_STR-MAR sy-vline 
WA_PJP_FORM_STXT_STR-MAY sy-vline 
WA_PJP_FORM_STXT_STR-MH1 sy-vline 
WA_PJP_FORM_STXT_STR-NOV sy-vline 
WA_PJP_FORM_STXT_STR-OCT sy-vline 
WA_PJP_FORM_STXT_STR-Q01 sy-vline 
WA_PJP_FORM_STXT_STR-Q02 sy-vline 
WA_PJP_FORM_STXT_STR-Q03 sy-vline 
WA_PJP_FORM_STXT_STR-Q04 sy-vline 
WA_PJP_FORM_STXT_STR-Q05 sy-vline 
WA_PJP_FORM_STXT_STR-Q06 sy-vline 
WA_PJP_FORM_STXT_STR-R01 sy-vline 
WA_PJP_FORM_STXT_STR-R02 sy-vline 
WA_PJP_FORM_STXT_STR-R03 sy-vline 
WA_PJP_FORM_STXT_STR-R04 sy-vline 
WA_PJP_FORM_STXT_STR-R05 sy-vline 
WA_PJP_FORM_STXT_STR-R06 sy-vline 
WA_PJP_FORM_STXT_STR-R07 sy-vline 
WA_PJP_FORM_STXT_STR-R08 sy-vline 
WA_PJP_FORM_STXT_STR-R09 sy-vline 
WA_PJP_FORM_STXT_STR-R10 sy-vline 
WA_PJP_FORM_STXT_STR-R11 sy-vline 
WA_PJP_FORM_STXT_STR-R12 sy-vline 
WA_PJP_FORM_STXT_STR-R13 sy-vline 
WA_PJP_FORM_STXT_STR-RH1 sy-vline 
WA_PJP_FORM_STXT_STR-S01 sy-vline 
WA_PJP_FORM_STXT_STR-S02 sy-vline 
WA_PJP_FORM_STXT_STR-S03 sy-vline 
WA_PJP_FORM_STXT_STR-SE1 sy-vline 
WA_PJP_FORM_STXT_STR-SE2 sy-vline 
WA_PJP_FORM_STXT_STR-SEP sy-vline 
WA_PJP_FORM_STXT_STR-SH1 sy-vline 
WA_PJP_FORM_STXT_STR-SH2 sy-vline 
WA_PJP_FORM_STXT_STR-SH3 sy-vline 
WA_PJP_FORM_STXT_STR-SH4 sy-vline 
WA_PJP_FORM_STXT_STR-SH5 sy-vline 
WA_PJP_FORM_STXT_STR-SH6 sy-vline 
WA_PJP_FORM_STXT_STR-SH7 sy-vline 
WA_PJP_FORM_STXT_STR-SH8 sy-vline 
WA_PJP_FORM_STXT_STR-TH1 sy-vline 
WA_PJP_FORM_STXT_STR-TH2 sy-vline 
WA_PJP_FORM_STXT_STR-TH5 sy-vline 
WA_PJP_FORM_STXT_STR-TH6 sy-vline 
WA_PJP_FORM_STXT_STR-TTL sy-vline 
WA_PJP_FORM_STXT_STR-TL1 sy-vline 
WA_PJP_FORM_STXT_STR-TL2 sy-vline 
WA_PJP_FORM_STXT_STR-TL3 sy-vline 
WA_PJP_FORM_STXT_STR-TL4 sy-vline 
WA_PJP_FORM_STXT_STR-Y01 sy-vline 
WA_PJP_FORM_STXT_STR-Y02 sy-vline 
WA_PJP_FORM_STXT_STR-Y03 sy-vline 
WA_PJP_FORM_STXT_STR-Y04 sy-vline 
WA_PJP_FORM_STXT_STR-Y05 sy-vline 
WA_PJP_FORM_STXT_STR-Y06 sy-vline 
WA_PJP_FORM_STXT_STR-Y07 sy-vline 
WA_PJP_FORM_STXT_STR-Y08 sy-vline 
WA_PJP_FORM_STXT_STR-Y09 sy-vline 
WA_PJP_FORM_STXT_STR-Y10 sy-vline 
WA_PJP_FORM_STXT_STR-Y11 sy-vline 
WA_PJP_FORM_STXT_STR-Y12 sy-vline 
WA_PJP_FORM_STXT_STR-Y13 sy-vline 
WA_PJP_FORM_STXT_STR-Y14 sy-vline 
WA_PJP_FORM_STXT_STR-Y15 sy-vline 
WA_PJP_FORM_STXT_STR-Y16 sy-vline 
WA_PJP_FORM_STXT_STR-Y17 sy-vline 
WA_PJP_FORM_STXT_STR-Y18 sy-vline 
WA_PJP_FORM_STXT_STR-Y19 sy-vline 
WA_PJP_FORM_STXT_STR-Y20 sy-vline 
WA_PJP_FORM_STXT_STR-Y21 sy-vline 
WA_PJP_FORM_STXT_STR-Y22 sy-vline 
WA_PJP_FORM_STXT_STR-Y23 sy-vline 
WA_PJP_FORM_STXT_STR-Y24 sy-vline 
WA_PJP_FORM_STXT_STR-Y50 sy-vline 
WA_PJP_FORM_STXT_STR-Y51 sy-vline 
WA_PJP_FORM_STXT_STR-Y52 sy-vline 
WA_PJP_FORM_STXT_STR-Y53 sy-vline 
WA_PJP_FORM_STXT_STR-Y54 sy-vline 
WA_PJP_FORM_STXT_STR-Y55 sy-vline 
WA_PJP_FORM_STXT_STR-Y56 sy-vline 
WA_PJP_FORM_STXT_STR-Y57 sy-vline 
WA_PJP_FORM_STXT_STR-Y61 sy-vline 
WA_PJP_FORM_STXT_STR-YA1 sy-vline 
WA_PJP_FORM_STXT_STR-YA2 sy-vline 
WA_PJP_FORM_STXT_STR-YA3 sy-vline 
WA_PJP_FORM_STXT_STR-YH1 sy-vline 
WA_PJP_FORM_STXT_STR-YH2 sy-vline 
WA_PJP_FORM_STXT_STR-YH3 sy-vline 
WA_PJP_FORM_STXT_STR-YH4 sy-vline 
WA_PJP_FORM_STXT_STR-YH5 sy-vline 
WA_PJP_FORM_STXT_STR-YH6 sy-vline      INTO ld_text SEPARATED BY SPACE.

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