ABAP Select data from SAP table PID_HIDCJAM1_EMP_YS_PDF 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_EMP_YS_PDF 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_EMP_YS_PDF. 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_EMP_YS_PDF 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_EMP_YS_PDF TYPE STANDARD TABLE OF PID_HIDCJAM1_EMP_YS_PDF,
      WA_PID_HIDCJAM1_EMP_YS_PDF TYPE PID_HIDCJAM1_EMP_YS_PDF,
      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_EMP_YS_PDF> TYPE PID_HIDCJAM1_EMP_YS_PDF.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM PID_HIDCJAM1_EMP_YS_PDF
*  INTO TABLE @DATA(IT_PID_HIDCJAM1_EMP_YS_PDF2).
*--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_EMP_YS_PDF INDEX 1 INTO DATA(WA_PID_HIDCJAM1_EMP_YS_PDF2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<PID_HIDCJAM1_EMP_YS_PDF>-THN = 1.
<PID_HIDCJAM1_EMP_YS_PDF>-JMTXT = 1.
<PID_HIDCJAM1_EMP_YS_PDF>-JAMID = 1.
<PID_HIDCJAM1_EMP_YS_PDF>-PAGENO = 1.
<PID_HIDCJAM1_EMP_YS_PDF>-TOTPAGE = 1.

ENDLOOP.

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

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


*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_EMP_YS_PDF_STR, 
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_EMP_YS_PDF_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_EMP_YS_PDF_STR-THN sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-JMTXT sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-JAMID sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-PAGENO sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TOTPAGE sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL_TEXT sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL01 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL02 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL03 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL04 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL05 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL06 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL07 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL08 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL09 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL10 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL11 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-TTL12 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL_TEXT sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL01 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL02 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL03 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL04 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL05 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL06 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL07 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL08 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL09 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL10 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL11 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL12 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GTL_TEXT1 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD01 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD02 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD03 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD04 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD05 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD06 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD07 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD08 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD09 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD10 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_STR-GRD11 sy-vline 
WA_PID_HIDCJAM1_EMP_YS_PDF_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.