ABAP Select data from SAP table VFPRCS_FBFIX_COMPONENT_EDIT 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 VFPRCS_FBFIX_COMPONENT_EDIT 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 VFPRCS_FBFIX_COMPONENT_EDIT. 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 VFPRCS_FBFIX_COMPONENT_EDIT 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_VFPRCS_FBFIX_COMPONENT_EDIT TYPE STANDARD TABLE OF VFPRCS_FBFIX_COMPONENT_EDIT,
      WA_VFPRCS_FBFIX_COMPONENT_EDIT TYPE VFPRCS_FBFIX_COMPONENT_EDIT,
      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: <VFPRCS_FBFIX_COMPONENT_EDIT> TYPE VFPRCS_FBFIX_COMPONENT_EDIT.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM VFPRCS_FBFIX_COMPONENT_EDIT
*  INTO TABLE @DATA(IT_VFPRCS_FBFIX_COMPONENT_EDIT2).
*--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_VFPRCS_FBFIX_COMPONENT_EDIT INDEX 1 INTO DATA(WA_VFPRCS_FBFIX_COMPONENT_EDIT2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<VFPRCS_FBFIX_COMPONENT_EDIT>-KNUMV = 1.
<VFPRCS_FBFIX_COMPONENT_EDIT>-KPOSN = 1.
<VFPRCS_FBFIX_COMPONENT_EDIT>-KSCHL = 1.
<VFPRCS_FBFIX_COMPONENT_EDIT>-TERMNO = 1.
<VFPRCS_FBFIX_COMPONENT_EDIT>-VTEXT = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_VFPRCS_FBFIX_COMPONENT_EDIT-USEDQUAN, sy-vline,
  WA_VFPRCS_FBFIX_COMPONENT_EDIT-USEDUOM, sy-vline,
  WA_VFPRCS_FBFIX_COMPONENT_EDIT-TERMCOMMQUAN, sy-vline,
  WA_VFPRCS_FBFIX_COMPONENT_EDIT-PROPOSERATE, sy-vline,
  WA_VFPRCS_FBFIX_COMPONENT_EDIT-PROPOSECURR, sy-vline,
  WA_VFPRCS_FBFIX_COMPONENT_EDIT-TERMRATE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_VFPRCS_FBFIX_COMPONENT_EDIT 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_VFPRCS_FBFIX_COMPONENT_EDIT 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_VFPRCS_FBFIX_COMPONENT_EDIT INTO WA_VFPRCS_FBFIX_COMPONENT_EDIT.


*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 CUNIT, internal->external for field USEDUOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_VFPRCS_FBFIX_COMPONENT_EDIT-USEDUOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VFPRCS_FBFIX_COMPONENT_EDIT-USEDUOM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit CUNIT, internal->external for field TERMUOM
CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT'
  EXPORTING
    input =                      WA_VFPRCS_FBFIX_COMPONENT_EDIT-TERMUOM
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VFPRCS_FBFIX_COMPONENT_EDIT-TERMUOM.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRS, internal->external for field EXCHRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRS_OUTPUT'
  EXPORTING
    input =                      WA_VFPRCS_FBFIX_COMPONENT_EDIT-EXCHRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VFPRCS_FBFIX_COMPONENT_EDIT-EXCHRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit EXCRS, internal->external for field FIXEXCHRATE
CALL FUNCTION 'CONVERSION_EXIT_EXCRS_OUTPUT'
  EXPORTING
    input =                      WA_VFPRCS_FBFIX_COMPONENT_EDIT-FIXEXCHRATE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VFPRCS_FBFIX_COMPONENT_EDIT-FIXEXCHRATE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field CONTRACT_CODE
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_VFPRCS_FBFIX_COMPONENT_EDIT-CONTRACT_CODE
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VFPRCS_FBFIX_COMPONENT_EDIT-CONTRACT_CODE.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field COMMODITYSUBACCOUNT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_VFPRCS_FBFIX_COMPONENT_EDIT-COMMODITYSUBACCOUNT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VFPRCS_FBFIX_COMPONENT_EDIT-COMMODITYSUBACCOUNT.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field CMMDTYORDREQCNTRPTYBROKER
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_VFPRCS_FBFIX_COMPONENT_EDIT-CMMDTYORDREQCNTRPTYBROKER
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VFPRCS_FBFIX_COMPONENT_EDIT-CMMDTYORDREQCNTRPTYBROKER.
WRITE:/ 'New Value:', ld_input.

*Conversion exit ALPHA, internal->external for field CMMDTYORDREQCNTRPTYREFACCT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_VFPRCS_FBFIX_COMPONENT_EDIT-CMMDTYORDREQCNTRPTYREFACCT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_VFPRCS_FBFIX_COMPONENT_EDIT-CMMDTYORDREQCNTRPTYREFACCT.
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_VFPRCS_FBFIX_COMPONENT_EDIT_STR, 
KNUMV TYPE STRING,
KPOSN TYPE STRING,
KSCHL TYPE STRING,
TERMNO TYPE STRING,
VTEXT TYPE STRING,
USEDQUAN TYPE STRING,
USEDUOM TYPE STRING,
TERMCOMMQUAN TYPE STRING,
PROPOSERATE TYPE STRING,
PROPOSECURR TYPE STRING,
TERMRATE TYPE STRING,
FIXTERMRATE TYPE STRING,
TERMCURR TYPE STRING,
TERMPRUN TYPE STRING,
TERMUOM TYPE STRING,
KEYDATE TYPE STRING,
DATEFROM_Q TYPE STRING,
DATETO_Q TYPE STRING,
EXCHRATE TYPE STRING,
FIXEXCHRATE TYPE STRING,
CURRFROM TYPE STRING,
CURRTO TYPE STRING,
DATEFROM_C TYPE STRING,
DATETO_C TYPE STRING,
DCSID TYPE STRING,
MIC TYPE STRING,
BASIS TYPE STRING,
CONTRACT_CODE TYPE STRING,
BASIS_ID TYPE STRING,
FIXZERORATE TYPE STRING,
RATIO TYPE STRING,
DRILLDOWN_HNDL TYPE STRING,
DCS_DROPDOWN TYPE STRING,
MIC_DROPDOWN TYPE STRING,
CMC_DROPDOWN TYPE STRING,
FORCED_UPD TYPE STRING,
UPD TYPE STRING,
DATEFROM_C_CHANGEABLE TYPE STRING,
DATETO_C_CHANGEABLE TYPE STRING,
DATEFROM_Q_CHANGEABLE TYPE STRING,
DATETO_Q_CHANGEABLE TYPE STRING,
FIXEXCHRATE_CHANGEABLE TYPE STRING,
TERMCURR_CHANGEABLE TYPE STRING,
FIXTERMRATE_CHANGEABLE TYPE STRING,
PSMGUID TYPE STRING,
PSMETHOD TYPE STRING,
PSMSTATUS TYPE STRING,
COMMODITYSUBACCOUNT TYPE STRING,
NUMBER_OF_LOTS TYPE STRING,
FILLPACKETUUID TYPE STRING,
PSM_SIMULATION_ERROR TYPE STRING,
EXPRTNINSTRUCTION TYPE STRING,
PRCGEXECINSTRN TYPE STRING,
LMTPRC TYPE STRING,
LMTPRCCURRENCY TYPE STRING,
STOPPRICE TYPE STRING,
STOPPRICECRCY TYPE STRING,
STOPLMTPRC TYPE STRING,
STOPLMTPRCCURRENCY TYPE STRING,
FXDPRC TYPE STRING,
FXDPRCCRCY TYPE STRING,
LEEWAYPRC TYPE STRING,
LEEWAYPRCCRCY TYPE STRING,
LEEWAYRNGEPRC TYPE STRING,
LEEWAYRNGEPRCCRCY TYPE STRING,
EXPIRATIONDATE TYPE STRING,
LMTSPREADPRC TYPE STRING,
LMTSPREADPRCCRCY TYPE STRING,
FXDSPREADPRC TYPE STRING,
FXDSPREADPRCCRCY TYPE STRING,
TICKS TYPE STRING,
CMMDTYORDREQCNTRPTYBROKER TYPE STRING,
CMMDTYORDREQCNTRPTYREFACCT TYPE STRING,
SAVETERMRATE_DF34 TYPE STRING,
SAVETERMCURR TYPE STRING,
PSMETHOD_ACTIVE TYPE STRING,
PSMETHOD_CHANGEABLE TYPE STRING,
PSMSTATUS_TEXT TYPE STRING,
CONFIG_ID TYPE STRING,
COMMODITYSUBACCOUNTNAME TYPE STRING,
PSMETHOD_T TYPE STRING,
STATUSICON TYPE STRING,
NEEDCHECK TYPE STRING,
MANDFIELDS TYPE STRING,
CELLSTYLES TYPE STRING,
KMANU TYPE STRING,END OF T_EKKO_STR.
DATA: WA_VFPRCS_FBFIX_COMPONENT_EDIT_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_VFPRCS_FBFIX_COMPONENT_EDIT_STR-KNUMV sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-KPOSN sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-KSCHL sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-TERMNO sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-VTEXT sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-USEDQUAN sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-USEDUOM sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-TERMCOMMQUAN sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PROPOSERATE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PROPOSECURR sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-TERMRATE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FIXTERMRATE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-TERMCURR sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-TERMPRUN sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-TERMUOM sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-KEYDATE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DATEFROM_Q sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DATETO_Q sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-EXCHRATE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FIXEXCHRATE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-CURRFROM sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-CURRTO sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DATEFROM_C sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DATETO_C sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DCSID sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-MIC sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-BASIS sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-CONTRACT_CODE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-BASIS_ID sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FIXZERORATE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-RATIO sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DRILLDOWN_HNDL sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DCS_DROPDOWN sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-MIC_DROPDOWN sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-CMC_DROPDOWN sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FORCED_UPD sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-UPD sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DATEFROM_C_CHANGEABLE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DATETO_C_CHANGEABLE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DATEFROM_Q_CHANGEABLE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-DATETO_Q_CHANGEABLE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FIXEXCHRATE_CHANGEABLE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-TERMCURR_CHANGEABLE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FIXTERMRATE_CHANGEABLE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PSMGUID sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PSMETHOD sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PSMSTATUS sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-COMMODITYSUBACCOUNT sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-NUMBER_OF_LOTS sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FILLPACKETUUID sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PSM_SIMULATION_ERROR sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-EXPRTNINSTRUCTION sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PRCGEXECINSTRN sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-LMTPRC sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-LMTPRCCURRENCY sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-STOPPRICE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-STOPPRICECRCY sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-STOPLMTPRC sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-STOPLMTPRCCURRENCY sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FXDPRC sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FXDPRCCRCY sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-LEEWAYPRC sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-LEEWAYPRCCRCY sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-LEEWAYRNGEPRC sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-LEEWAYRNGEPRCCRCY sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-EXPIRATIONDATE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-LMTSPREADPRC sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-LMTSPREADPRCCRCY sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FXDSPREADPRC sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-FXDSPREADPRCCRCY sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-TICKS sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-CMMDTYORDREQCNTRPTYBROKER sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-CMMDTYORDREQCNTRPTYREFACCT sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-SAVETERMRATE_DF34 sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-SAVETERMCURR sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PSMETHOD_ACTIVE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PSMETHOD_CHANGEABLE sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PSMSTATUS_TEXT sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-CONFIG_ID sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-COMMODITYSUBACCOUNTNAME sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-PSMETHOD_T sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-STATUSICON sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-NEEDCHECK sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-MANDFIELDS sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-CELLSTYLES sy-vline 
WA_VFPRCS_FBFIX_COMPONENT_EDIT_STR-KMANU sy-vline      INTO ld_text SEPARATED BY SPACE.

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