ABAP Select data from SAP table PID_HIDCJAM1_FORM_STR 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 PID_HIDCJAM1_FORM_STR 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 PID_HIDCJAM1_FORM_STR. 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 PID_HIDCJAM1_FORM_STR 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_PID_HIDCJAM1_FORM_STR TYPE STANDARD TABLE OF PID_HIDCJAM1_FORM_STR,
      WA_PID_HIDCJAM1_FORM_STR TYPE PID_HIDCJAM1_FORM_STR,
      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: <PID_HIDCJAM1_FORM_STR> TYPE PID_HIDCJAM1_FORM_STR.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PID_HIDCJAM1_FORM_STR
*  INTO TABLE @DATA(IT_PID_HIDCJAM1_FORM_STR2).
*--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_PID_HIDCJAM1_FORM_STR INDEX 1 INTO DATA(WA_PID_HIDCJAM1_FORM_STR2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PID_HIDCJAM1_FORM_STR>-GT_EMP_DETAILS = 1.
<PID_HIDCJAM1_FORM_STR>-GS_EMP_TOTALS = 1.
<PID_HIDCJAM1_FORM_STR>-THN = 1.
<PID_HIDCJAM1_FORM_STR>-JMTXT = 1.
<PID_HIDCJAM1_FORM_STR>-JAMID = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_PID_HIDCJAM1_FORM_STR-PAGENO, sy-vline,
  WA_PID_HIDCJAM1_FORM_STR-TOTPAGE, sy-vline,
  WA_PID_HIDCJAM1_FORM_STR-TTL_TEXT, sy-vline,
  WA_PID_HIDCJAM1_FORM_STR-TTL01, sy-vline,
  WA_PID_HIDCJAM1_FORM_STR-TTL02, sy-vline,
  WA_PID_HIDCJAM1_FORM_STR-TTL03, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_PID_HIDCJAM1_FORM_STR 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_PID_HIDCJAM1_FORM_STR 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_PID_HIDCJAM1_FORM_STR INTO WA_PID_HIDCJAM1_FORM_STR.


*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_PID_HIDCJAM1_FORM_STR_STR, 
GT_EMP_DETAILS TYPE STRING,
GS_EMP_TOTALS TYPE STRING,
THN TYPE STRING,
JMTXT TYPE STRING,
JAMID TYPE STRING,
PAGENO TYPE STRING,
TOTPAGE TYPE STRING,
TTL_TEXT TYPE STRING,
TTL01 TYPE STRING,
TTL02 TYPE STRING,
TTL03 TYPE STRING,
TTL04 TYPE STRING,
TTL05 TYPE STRING,
TTL06 TYPE STRING,
TTL07 TYPE STRING,
TTL08 TYPE STRING,
TTL09 TYPE STRING,
TTL10 TYPE STRING,
TTL11 TYPE STRING,
TTL12 TYPE STRING,
GTL_TEXT TYPE STRING,
GTL01 TYPE STRING,
GTL02 TYPE STRING,
GTL03 TYPE STRING,
GTL04 TYPE STRING,
GTL05 TYPE STRING,
GTL06 TYPE STRING,
GTL07 TYPE STRING,
GTL08 TYPE STRING,
GTL09 TYPE STRING,
GTL10 TYPE STRING,
GTL11 TYPE STRING,
GTL12 TYPE STRING,
GTL_TEXT1 TYPE STRING,
GRD01 TYPE STRING,
GRD02 TYPE STRING,
GRD03 TYPE STRING,
GRD04 TYPE STRING,
GRD05 TYPE STRING,
GRD06 TYPE STRING,
GRD07 TYPE STRING,
GRD08 TYPE STRING,
GRD09 TYPE STRING,
GRD10 TYPE STRING,
GRD11 TYPE STRING,
GRD12 TYPE STRING,END OF T_EKKO_STR.
DATA: WA_PID_HIDCJAM1_FORM_STR_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_PID_HIDCJAM1_FORM_STR_STR-GT_EMP_DETAILS sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GS_EMP_TOTALS sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-THN sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-JMTXT sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-JAMID sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-PAGENO sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TOTPAGE sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL_TEXT sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL01 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL02 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL03 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL04 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL05 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL06 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL07 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL08 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL09 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL10 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL11 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-TTL12 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL_TEXT sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL01 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL02 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL03 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL04 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL05 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL06 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL07 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL08 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL09 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL10 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL11 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL12 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GTL_TEXT1 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD01 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD02 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD03 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD04 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD05 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD06 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD07 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD08 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD09 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD10 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD11 sy-vline 
WA_PID_HIDCJAM1_FORM_STR_STR-GRD12 sy-vline      INTO ld_text SEPARATED BY SPACE.

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