ABAP Select data from SAP table CSOFDELIVDOC 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 CSOFDELIVDOC 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 CSOFDELIVDOC. 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 CSOFDELIVDOC 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_CSOFDELIVDOC TYPE STANDARD TABLE OF CSOFDELIVDOC,
      WA_CSOFDELIVDOC TYPE CSOFDELIVDOC,
      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: <CSOFDELIVDOC> TYPE CSOFDELIVDOC.

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

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

*Select data and declare internal table using in-line method @DATA
*SELECT *
*  FROM CSOFDELIVDOC
*  INTO TABLE @DATA(IT_CSOFDELIVDOC2).
*--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_CSOFDELIVDOC INDEX 1 INTO DATA(WA_CSOFDELIVDOC2).


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

*To update a field value using a field symbol simply change the value via the field symbol pointer
<CSOFDELIVDOC>-MANDT = 1.
<CSOFDELIVDOC>-DELIVERYDOCUMENT = 1.
<CSOFDELIVDOC>-DELIVERYDOCUMENTTYPE = 1.
<CSOFDELIVDOC>-SHIPPINGPOINT = 1.
<CSOFDELIVDOC>-SHIPPINGPOINTNAME = 1.

ENDLOOP.

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

*Write selected data to screen/report before conversion.
  WRITE:/ sy-vline,   WA_CSOFDELIVDOC-SALESORGANIZATION, sy-vline,
  WA_CSOFDELIVDOC-COMPLETEDELIVERYISDEFINED, sy-vline,
  WA_CSOFDELIVDOC-DELIVERYBLOCKREASON, sy-vline,
  WA_CSOFDELIVDOC-HEADERGROSSWEIGHT, sy-vline,
  WA_CSOFDELIVDOC-HEADERWEIGHTUNIT, sy-vline,
  WA_CSOFDELIVDOC-TOTALNUMBEROFPACKAGE, sy-vline.
ENDLOOP.
   
*Add any further fields from structure WA_CSOFDELIVDOC 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_CSOFDELIVDOC 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_CSOFDELIVDOC INTO WA_CSOFDELIVDOC.


*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 ALPHA, internal->external for field DELIVERYDOCUMENT
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_CSOFDELIVDOC-DELIVERYDOCUMENT
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CSOFDELIVDOC-DELIVERYDOCUMENT.
WRITE:/ 'New Value:', ld_input.

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

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

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

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

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

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

*Conversion exit ALPHA, internal->external for field SHIPTOPARTYADDRESSPERSONID
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
  EXPORTING
    input =                      WA_CSOFDELIVDOC-SHIPTOPARTYADDRESSPERSONID
  IMPORTING
    output =                     ld_input.
WRITE:/ 'Org Value:', WA_CSOFDELIVDOC-SHIPTOPARTYADDRESSPERSONID.
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_CSOFDELIVDOC_STR, 
MANDT TYPE STRING,
DELIVERYDOCUMENT TYPE STRING,
DELIVERYDOCUMENTTYPE TYPE STRING,
SHIPPINGPOINT TYPE STRING,
SHIPPINGPOINTNAME TYPE STRING,
SALESORGANIZATION TYPE STRING,
COMPLETEDELIVERYISDEFINED TYPE STRING,
DELIVERYBLOCKREASON TYPE STRING,
HEADERGROSSWEIGHT TYPE STRING,
HEADERWEIGHTUNIT TYPE STRING,
TOTALNUMBEROFPACKAGE TYPE STRING,
ACTUALDELIVERYAMOUNT TYPE STRING,
TRANSACTIONCURRENCY TYPE STRING,
SOLDTOPARTY TYPE STRING,
SOLDTOPARTYNAME TYPE STRING,
SOLDTOPARTYFULLNAME TYPE STRING,
CUSTOMERCLASSIFICATION TYPE STRING,
ADDRESSID TYPE STRING,
ADDRESSOBJECTTYPE TYPE STRING,
ADDRESSPERSONID TYPE STRING,
SOLDTOPARTYFORMATTEDADDRESS TYPE STRING,
SHIPTOPARTY TYPE STRING,
SHIPTOPARTYNAME TYPE STRING,
SHIPTOPARTYFULLNAME TYPE STRING,
SHIPTOPARTYADDRESSID TYPE STRING,
SHIPTOPARTYADDRESSOBJECTTYPE TYPE STRING,
SHIPTOPARTYADDRESSPERSONID TYPE STRING,
SHIPTOPARTYFORMATTEDADDRESS TYPE STRING,
SHIPTOPARTYCOUNTRY TYPE STRING,
SHIPTOPARTYCOUNTRYNAME TYPE STRING,
PICKINGDATE TYPE STRING,
LOADINGDATE TYPE STRING,
SHIPPINGTYPE TYPE STRING,
DELIVERYDATE TYPE STRING,
TRANSPORTATIONPLANNINGDATE TYPE STRING,
SHIPPINGCONDITION TYPE STRING,
PLANNEDGOODSISSUEDATE TYPE STRING,
ACTUALGOODSMOVEMENTDATE TYPE STRING,
PROOFOFDELIVERYDATE TYPE STRING,
BILLINGDOCUMENTDATE TYPE STRING,
OVERALLSDPROCESSSTATUS TYPE STRING,
TRANSPORTATIONPLANNINGSTATUS TYPE STRING,
OVERALLDELIVRELTDBILLGSTATUS TYPE STRING,
OVERALLGOODSMOVEMENTSTATUS TYPE STRING,
OVERALLWAREHOUSEACTIVITYSTATUS TYPE STRING,
OVERALLPROOFOFDELIVERYSTATUS TYPE STRING,
OVERALLPACKINGSTATUS TYPE STRING,
OVERALLPICKINGSTATUS TYPE STRING,
HDRGENERALINCOMPLETIONSTATUS TYPE STRING,
HEADERDELIVINCOMPLETIONSTATUS TYPE STRING,
HEADERBILLGINCOMPLETIONSTATUS TYPE STRING,
HEADERPACKINGINCOMPLETIONSTS TYPE STRING,
HEADERPICKGINCOMPLETIONSTATUS TYPE STRING,
HDRGOODSMVTINCOMPLETIONSTATUS TYPE STRING,
OVRLITMGENERALINCOMPLETIONSTS TYPE STRING,
OVRLITMDELIVINCOMPLETIONSTS TYPE STRING,
OVRLITMPACKINGINCOMPLETIONSTS TYPE STRING,
OVRLITMPICKINGINCOMPLETIONSTS TYPE STRING,
OVRLITMGDSMVTINCOMPLETIONSTS TYPE STRING,
CENTRALCREDITCHECKSTATUS TYPE STRING,
FINDOCCREDITCHECKSTATUS TYPE STRING,
EXPRTINSURCREDITCHECKSTATUS TYPE STRING,
PAYTAUTHSNCREDITCHECKSTS TYPE STRING,
OVERALLCHMLCMPLNCSTATUS TYPE STRING,
OVERALLDANGEROUSGOODSSTATUS TYPE STRING,
OVERALLSAFETYDATASHEETSTATUS TYPE STRING,
DELIVERYBLOCKREASONCRITICALITY TYPE STRING,
CENTRALCREDITCHKSTSCRITICALITY TYPE STRING,
PAYTAUTHCRDTCHKSTSCRITICALITY TYPE STRING,
FINDOCCRDTCHECKSTSCRITICALITY TYPE STRING,
EXPRTINSURCRDTCHKSTSCRITLTY TYPE STRING,
HDRGENINCOMPLTNSTSCRITICALITY TYPE STRING,
HDRDELIVINCOMPLTNSTSCRITLTY TYPE STRING,
HDRPICKINGINCOMPLTNSTSCRITLTY TYPE STRING,
HDRPACKGINCOMPLTNSTSCRITLTY TYPE STRING,
HDRGDSMVTINCOMPLTNSTSCRITLTY TYPE STRING,
HDRBILLGINCOMPLTNSTSCRITLTY TYPE STRING,
OVRLITMGENINCOMPLTNSTSCRITLTY TYPE STRING,
OVRLITMDELIVINCOMPLTNCRITLTY TYPE STRING,
OVRLITMPICKINGINCOMPLTNCRITLTY TYPE STRING,
OVRLITMPACKGINCOMPLTNCRITLTY TYPE STRING,
OVRLITMGDSMVTINCOMPLTNCRITLTY TYPE STRING,
OVRLDELIVRELTDBILLGSTSCRITLTY TYPE STRING,
TRANSPORTATIONPLNGSTSCRITLTY TYPE STRING,
OVERALLPICKINGSTSCRITICALITY TYPE STRING,
OVRLGDSMOVEMENTSTSCRITICALITY TYPE STRING,
OVRLCHMLCMPLNCSTSCRITICALITY TYPE STRING,
OVRLDNGRSGDSSTSCRITICALITY TYPE STRING,
OVRLSFTYDATASHEETSTSCRITLTY TYPE STRING,END OF T_EKKO_STR.
DATA: WA_CSOFDELIVDOC_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_CSOFDELIVDOC_STR-MANDT sy-vline 
WA_CSOFDELIVDOC_STR-DELIVERYDOCUMENT sy-vline 
WA_CSOFDELIVDOC_STR-DELIVERYDOCUMENTTYPE sy-vline 
WA_CSOFDELIVDOC_STR-SHIPPINGPOINT sy-vline 
WA_CSOFDELIVDOC_STR-SHIPPINGPOINTNAME sy-vline 
WA_CSOFDELIVDOC_STR-SALESORGANIZATION sy-vline 
WA_CSOFDELIVDOC_STR-COMPLETEDELIVERYISDEFINED sy-vline 
WA_CSOFDELIVDOC_STR-DELIVERYBLOCKREASON sy-vline 
WA_CSOFDELIVDOC_STR-HEADERGROSSWEIGHT sy-vline 
WA_CSOFDELIVDOC_STR-HEADERWEIGHTUNIT sy-vline 
WA_CSOFDELIVDOC_STR-TOTALNUMBEROFPACKAGE sy-vline 
WA_CSOFDELIVDOC_STR-ACTUALDELIVERYAMOUNT sy-vline 
WA_CSOFDELIVDOC_STR-TRANSACTIONCURRENCY sy-vline 
WA_CSOFDELIVDOC_STR-SOLDTOPARTY sy-vline 
WA_CSOFDELIVDOC_STR-SOLDTOPARTYNAME sy-vline 
WA_CSOFDELIVDOC_STR-SOLDTOPARTYFULLNAME sy-vline 
WA_CSOFDELIVDOC_STR-CUSTOMERCLASSIFICATION sy-vline 
WA_CSOFDELIVDOC_STR-ADDRESSID sy-vline 
WA_CSOFDELIVDOC_STR-ADDRESSOBJECTTYPE sy-vline 
WA_CSOFDELIVDOC_STR-ADDRESSPERSONID sy-vline 
WA_CSOFDELIVDOC_STR-SOLDTOPARTYFORMATTEDADDRESS sy-vline 
WA_CSOFDELIVDOC_STR-SHIPTOPARTY sy-vline 
WA_CSOFDELIVDOC_STR-SHIPTOPARTYNAME sy-vline 
WA_CSOFDELIVDOC_STR-SHIPTOPARTYFULLNAME sy-vline 
WA_CSOFDELIVDOC_STR-SHIPTOPARTYADDRESSID sy-vline 
WA_CSOFDELIVDOC_STR-SHIPTOPARTYADDRESSOBJECTTYPE sy-vline 
WA_CSOFDELIVDOC_STR-SHIPTOPARTYADDRESSPERSONID sy-vline 
WA_CSOFDELIVDOC_STR-SHIPTOPARTYFORMATTEDADDRESS sy-vline 
WA_CSOFDELIVDOC_STR-SHIPTOPARTYCOUNTRY sy-vline 
WA_CSOFDELIVDOC_STR-SHIPTOPARTYCOUNTRYNAME sy-vline 
WA_CSOFDELIVDOC_STR-PICKINGDATE sy-vline 
WA_CSOFDELIVDOC_STR-LOADINGDATE sy-vline 
WA_CSOFDELIVDOC_STR-SHIPPINGTYPE sy-vline 
WA_CSOFDELIVDOC_STR-DELIVERYDATE sy-vline 
WA_CSOFDELIVDOC_STR-TRANSPORTATIONPLANNINGDATE sy-vline 
WA_CSOFDELIVDOC_STR-SHIPPINGCONDITION sy-vline 
WA_CSOFDELIVDOC_STR-PLANNEDGOODSISSUEDATE sy-vline 
WA_CSOFDELIVDOC_STR-ACTUALGOODSMOVEMENTDATE sy-vline 
WA_CSOFDELIVDOC_STR-PROOFOFDELIVERYDATE sy-vline 
WA_CSOFDELIVDOC_STR-BILLINGDOCUMENTDATE sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLSDPROCESSSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-TRANSPORTATIONPLANNINGSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLDELIVRELTDBILLGSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLGOODSMOVEMENTSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLWAREHOUSEACTIVITYSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLPROOFOFDELIVERYSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLPACKINGSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLPICKINGSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-HDRGENERALINCOMPLETIONSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-HEADERDELIVINCOMPLETIONSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-HEADERBILLGINCOMPLETIONSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-HEADERPACKINGINCOMPLETIONSTS sy-vline 
WA_CSOFDELIVDOC_STR-HEADERPICKGINCOMPLETIONSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-HDRGOODSMVTINCOMPLETIONSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMGENERALINCOMPLETIONSTS sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMDELIVINCOMPLETIONSTS sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMPACKINGINCOMPLETIONSTS sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMPICKINGINCOMPLETIONSTS sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMGDSMVTINCOMPLETIONSTS sy-vline 
WA_CSOFDELIVDOC_STR-CENTRALCREDITCHECKSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-FINDOCCREDITCHECKSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-EXPRTINSURCREDITCHECKSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-PAYTAUTHSNCREDITCHECKSTS sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLCHMLCMPLNCSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLDANGEROUSGOODSSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLSAFETYDATASHEETSTATUS sy-vline 
WA_CSOFDELIVDOC_STR-DELIVERYBLOCKREASONCRITICALITY sy-vline 
WA_CSOFDELIVDOC_STR-CENTRALCREDITCHKSTSCRITICALITY sy-vline 
WA_CSOFDELIVDOC_STR-PAYTAUTHCRDTCHKSTSCRITICALITY sy-vline 
WA_CSOFDELIVDOC_STR-FINDOCCRDTCHECKSTSCRITICALITY sy-vline 
WA_CSOFDELIVDOC_STR-EXPRTINSURCRDTCHKSTSCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-HDRGENINCOMPLTNSTSCRITICALITY sy-vline 
WA_CSOFDELIVDOC_STR-HDRDELIVINCOMPLTNSTSCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-HDRPICKINGINCOMPLTNSTSCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-HDRPACKGINCOMPLTNSTSCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-HDRGDSMVTINCOMPLTNSTSCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-HDRBILLGINCOMPLTNSTSCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMGENINCOMPLTNSTSCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMDELIVINCOMPLTNCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMPICKINGINCOMPLTNCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMPACKGINCOMPLTNCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLITMGDSMVTINCOMPLTNCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLDELIVRELTDBILLGSTSCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-TRANSPORTATIONPLNGSTSCRITLTY sy-vline 
WA_CSOFDELIVDOC_STR-OVERALLPICKINGSTSCRITICALITY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLGDSMOVEMENTSTSCRITICALITY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLCHMLCMPLNCSTSCRITICALITY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLDNGRSGDSSTSCRITICALITY sy-vline 
WA_CSOFDELIVDOC_STR-OVRLSFTYDATASHEETSTSCRITLTY sy-vline      INTO ld_text SEPARATED BY SPACE.

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