ABAP Select data from SAP table PCA_RPCYERK0_STR1_PDF into internal table
Get Example source ABAP code based on a different SAP table
Below is a number of ABAP code snippets to demonstrate how to select data from SAP PCA_RPCYERK0_STR1_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 PCA_RPCYERK0_STR1_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 PCA_RPCYERK0_STR1_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_PCA_RPCYERK0_STR1_PDF TYPE STANDARD TABLE OF PCA_RPCYERK0_STR1_PDF,
WA_PCA_RPCYERK0_STR1_PDF TYPE PCA_RPCYERK0_STR1_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: <PCA_RPCYERK0_STR1_PDF> TYPE PCA_RPCYERK0_STR1_PDF.
*Process all fields in table header/work area as string values
PERFORM process_as_string_field_values CHANGING wa_PCA_RPCYERK0_STR1_PDF.
SELECT *
*restrict ABAP select to first 10 rows
UP TO 10 ROWS
FROM PCA_RPCYERK0_STR1_PDF
INTO TABLE IT_PCA_RPCYERK0_STR1_PDF.
*Select data and declare internal table using in-line method @DATA
*SELECT *
* FROM PCA_RPCYERK0_STR1_PDF
* INTO TABLE @DATA(IT_PCA_RPCYERK0_STR1_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_PCA_RPCYERK0_STR1_PDF INDEX 1 INTO DATA(WA_PCA_RPCYERK0_STR1_PDF2).
*Demonstrate how to loop at an internal table and update values using a FIELD-SYMBOL
LOOP AT IT_PCA_RPCYERK0_STR1_PDF ASSIGNING <PCA_RPCYERK0_STR1_PDF>.
*To update a field value using a field symbol simply change the value via the field symbol pointer<PCA_RPCYERK0_STR1_PDF>-X_AMEND = 1.
<PCA_RPCYERK0_STR1_PDF>-X_TAX_YEAR = 1.
<PCA_RPCYERK0_STR1_PDF>-X_SOURCE1 = 1.
<PCA_RPCYERK0_STR1_PDF>-X_BOX01 = 1.
<PCA_RPCYERK0_STR1_PDF>-X_BOX02 = 1.
ENDLOOP. LOOP AT IT_PCA_RPCYERK0_STR1_PDF INTO WA_PCA_RPCYERK0_STR1_PDF. *Write horizonal line to screen report. WRITE:/ sy-uline. *Write selected data to screen/report before conversion. WRITE:/ sy-vline, WA_PCA_RPCYERK0_STR1_PDF-X_BOX03, sy-vline,
WA_PCA_RPCYERK0_STR1_PDF-X_BOX04, sy-vline,
WA_PCA_RPCYERK0_STR1_PDF-X_BOX05, sy-vline,
WA_PCA_RPCYERK0_STR1_PDF-X_BOX06, sy-vline,
WA_PCA_RPCYERK0_STR1_PDF-X_BOX07, sy-vline,
WA_PCA_RPCYERK0_STR1_PDF-X_BOX08, sy-vline.
ENDLOOP. *Add any further fields from structure WA_PCA_RPCYERK0_STR1_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_PCA_RPCYERK0_STR1_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_PCA_RPCYERK0_STR1_PDF INTO WA_PCA_RPCYERK0_STR1_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.
*Conversion exit GJAHR, internal->external for field X_TAX_YEAR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_PCA_RPCYERK0_STR1_PDF-X_TAX_YEAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PCA_RPCYERK0_STR1_PDF-X_TAX_YEAR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field Y_TAX_YEAR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_PCA_RPCYERK0_STR1_PDF-Y_TAX_YEAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PCA_RPCYERK0_STR1_PDF-Y_TAX_YEAR.
WRITE:/ 'New Value:', ld_input.
*Conversion exit GJAHR, internal->external for field Z_TAX_YEAR CALL FUNCTION 'CONVERSION_EXIT_GJAHR_OUTPUT' EXPORTING input = WA_PCA_RPCYERK0_STR1_PDF-Z_TAX_YEAR IMPORTING output = ld_input.
WRITE:/ 'Org Value:', WA_PCA_RPCYERK0_STR1_PDF-Z_TAX_YEAR.
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_PCA_RPCYERK0_STR1_PDF_STR,
X_AMEND TYPE STRING,
X_TAX_YEAR TYPE STRING,
X_SOURCE1 TYPE STRING,
X_BOX01 TYPE STRING,
X_BOX02 TYPE STRING,
X_BOX03 TYPE STRING,
X_BOX04 TYPE STRING,
X_BOX05 TYPE STRING,
X_BOX06 TYPE STRING,
X_BOX07 TYPE STRING,
X_BOX08 TYPE STRING,
X_BOX09 TYPE STRING,
X_BOX10 TYPE STRING,
X_BOX11 TYPE STRING,
X_BOX12 TYPE STRING,
X_BOX13 TYPE STRING,
X_BOX14 TYPE STRING,
X_BOX15 TYPE STRING,
X_BOX16 TYPE STRING,
X_BOX17 TYPE STRING,
X_BOX18 TYPE STRING,
X_BOX19 TYPE STRING,
X_BOX20 TYPE STRING,
X_BOX21 TYPE STRING,
X_BOX22 TYPE STRING,
X_BOX23 TYPE STRING,
X_BOX24 TYPE STRING,
X_BOX26 TYPE STRING,
X_BOX27 TYPE STRING,
X_BOX28 TYPE STRING,
X_BOX29 TYPE STRING,
X_BOX30 TYPE STRING,
X_BOX32 TYPE STRING,
X_BOX34 TYPE STRING,
X_BOX36 TYPE STRING,
X_BOX38 TYPE STRING,
X_BOX39 TYPE STRING,
X_BOX40 TYPE STRING,
X_BOX42 TYPE STRING,
X_BOX44 TYPE STRING,
X_BOX46 TYPE STRING,
X_BOX50 TYPE STRING,
X_BOX52 TYPE STRING,
X_BOX55 TYPE STRING,
X_BOX56 TYPE STRING,
X_BOX61 TYPE STRING,
X_NACHN TYPE STRING,
X_VORNA TYPE STRING,
X_INITS TYPE STRING,
X_CAREOF TYPE STRING,
X_STRAS TYPE STRING,
X_LOCAT TYPE STRING,
X_ORT01 TYPE STRING,
X_STATE TYPE STRING,
X_PSTLZ TYPE STRING,
X_LAND1 TYPE STRING,
X_CUSTOM TYPE STRING,
X_O01_TEXT TYPE STRING,
X_O02_TEXT TYPE STRING,
X_O03_TEXT TYPE STRING,
X_O04_TEXT TYPE STRING,
X_O05_TEXT TYPE STRING,
X_O06_TEXT TYPE STRING,
X_O07_TEXT TYPE STRING,
X_O08_TEXT TYPE STRING,
X_O09_TEXT TYPE STRING,
X_O10_TEXT TYPE STRING,
X_O01 TYPE STRING,
X_O02 TYPE STRING,
X_O03 TYPE STRING,
X_O04 TYPE STRING,
X_O05 TYPE STRING,
X_O06 TYPE STRING,
X_O07 TYPE STRING,
X_O08 TYPE STRING,
X_O09 TYPE STRING,
X_O10 TYPE STRING,
X_PERID TYPE STRING,
X_T4PERID TYPE STRING,
X_SPERID TYPE STRING,
X_EMPLR_BUTXT TYPE STRING,
X_EMPLR_NAME1 TYPE STRING,
X_EMPLR_NAME2 TYPE STRING,
X_EMPLR_STRAS TYPE STRING,
X_EMPLR_ORT01 TYPE STRING,
X_EMPLR_REGIO TYPE STRING,
X_EMPLR_PSTLZ TYPE STRING,
X_BUSNM TYPE STRING,
X_WRKAR TYPE STRING,
X_OCODE TYPE STRING,
X_SPROV TYPE STRING,
X_REDUA TYPE STRING,
X_CDAYS TYPE STRING,
X_FSSN TYPE STRING,
X_PNAME TYPE STRING,
X_NRICC TYPE STRING,
X_CRESIDE TYPE STRING,
X_SCITY TYPE STRING,
Y_AMEND TYPE STRING,
Y_TAX_YEAR TYPE STRING,
Y_SOURCE1 TYPE STRING,
Y_BOX01 TYPE STRING,
Y_BOX02 TYPE STRING,
Y_BOX03 TYPE STRING,
Y_BOX04 TYPE STRING,
Y_BOX05 TYPE STRING,
Y_BOX06 TYPE STRING,
Y_BOX07 TYPE STRING,
Y_BOX08 TYPE STRING,
Y_BOX09 TYPE STRING,
Y_BOX10 TYPE STRING,
Y_BOX11 TYPE STRING,
Y_BOX12 TYPE STRING,
Y_BOX13 TYPE STRING,
Y_BOX14 TYPE STRING,
Y_BOX15 TYPE STRING,
Y_BOX16 TYPE STRING,
Y_BOX17 TYPE STRING,
Y_BOX18 TYPE STRING,
Y_BOX19 TYPE STRING,
Y_BOX20 TYPE STRING,
Y_BOX21 TYPE STRING,
Y_BOX22 TYPE STRING,
Y_BOX23 TYPE STRING,
Y_BOX24 TYPE STRING,
Y_BOX26 TYPE STRING,
Y_BOX27 TYPE STRING,
Y_BOX28 TYPE STRING,
Y_BOX29 TYPE STRING,
Y_BOX30 TYPE STRING,
Y_BOX32 TYPE STRING,
Y_BOX34 TYPE STRING,
Y_BOX36 TYPE STRING,
Y_BOX38 TYPE STRING,
Y_BOX39 TYPE STRING,
Y_BOX40 TYPE STRING,
Y_BOX42 TYPE STRING,
Y_BOX44 TYPE STRING,
Y_BOX46 TYPE STRING,
Y_BOX50 TYPE STRING,
Y_BOX52 TYPE STRING,
Y_BOX55 TYPE STRING,
Y_BOX56 TYPE STRING,
Y_BOX61 TYPE STRING,
Y_NACHN TYPE STRING,
Y_VORNA TYPE STRING,
Y_INITS TYPE STRING,
Y_CAREOF TYPE STRING,
Y_STRAS TYPE STRING,
Y_LOCAT TYPE STRING,
Y_ORT01 TYPE STRING,
Y_STATE TYPE STRING,
Y_PSTLZ TYPE STRING,
Y_LAND1 TYPE STRING,
Y_CUSTOM TYPE STRING,
Y_O01_TEXT TYPE STRING,
Y_O02_TEXT TYPE STRING,
Y_O03_TEXT TYPE STRING,
Y_O04_TEXT TYPE STRING,
Y_O05_TEXT TYPE STRING,
Y_O06_TEXT TYPE STRING,
Y_O07_TEXT TYPE STRING,
Y_O08_TEXT TYPE STRING,
Y_O09_TEXT TYPE STRING,
Y_O10_TEXT TYPE STRING,
Y_O01 TYPE STRING,
Y_O02 TYPE STRING,
Y_O03 TYPE STRING,
Y_O04 TYPE STRING,
Y_O05 TYPE STRING,
Y_O06 TYPE STRING,
Y_O07 TYPE STRING,
Y_O08 TYPE STRING,
Y_O09 TYPE STRING,
Y_O10 TYPE STRING,
Y_PERID TYPE STRING,
Y_T4PERID TYPE STRING,
Y_SPERID TYPE STRING,
Y_EMPLR_BUTXT TYPE STRING,
Y_EMPLR_NAME1 TYPE STRING,
Y_EMPLR_NAME2 TYPE STRING,
Y_EMPLR_STRAS TYPE STRING,
Y_EMPLR_ORT01 TYPE STRING,
Y_EMPLR_REGIO TYPE STRING,
Y_EMPLR_PSTLZ TYPE STRING,
Y_BUSNM TYPE STRING,
Y_WRKAR TYPE STRING,
Y_OCODE TYPE STRING,
Y_SPROV TYPE STRING,
Y_REDUA TYPE STRING,
Y_CDAYS TYPE STRING,
Y_FSSN TYPE STRING,
Y_PNAME TYPE STRING,
Y_NRICC TYPE STRING,
Y_CRESIDE TYPE STRING,
Y_SCITY TYPE STRING,
Z_AMEND TYPE STRING,
Z_TAX_YEAR TYPE STRING,
Z_SOURCE1 TYPE STRING,
Z_BOX01 TYPE STRING,
Z_BOX02 TYPE STRING,
Z_BOX03 TYPE STRING,
Z_BOX04 TYPE STRING,
Z_BOX05 TYPE STRING,
Z_BOX06 TYPE STRING,
Z_BOX07 TYPE STRING,
Z_BOX08 TYPE STRING,
Z_BOX09 TYPE STRING,
Z_BOX10 TYPE STRING,
Z_BOX11 TYPE STRING,
Z_BOX12 TYPE STRING,
Z_BOX13 TYPE STRING,
Z_BOX14 TYPE STRING,
Z_BOX15 TYPE STRING,
Z_BOX16 TYPE STRING,
Z_BOX17 TYPE STRING,
Z_BOX18 TYPE STRING,
Z_BOX19 TYPE STRING,
Z_BOX20 TYPE STRING,
Z_BOX21 TYPE STRING,
Z_BOX22 TYPE STRING,
Z_BOX23 TYPE STRING,
Z_BOX24 TYPE STRING,
Z_BOX26 TYPE STRING,
Z_BOX27 TYPE STRING,
Z_BOX28 TYPE STRING,
Z_BOX30 TYPE STRING,
Z_BOX32 TYPE STRING,
Z_BOX34 TYPE STRING,
Z_BOX36 TYPE STRING,
Z_BOX38 TYPE STRING,
Z_BOX40 TYPE STRING,
Z_BOX42 TYPE STRING,
Z_BOX46 TYPE STRING,
Z_BOX61 TYPE STRING,
Z_INITS TYPE STRING,
Z_NACHN TYPE STRING,
Z_VORNA TYPE STRING,
Z_CAREOF TYPE STRING,
Z_STRAS TYPE STRING,
Z_LOCAT TYPE STRING,
Z_ORT01 TYPE STRING,
Z_STATE TYPE STRING,
Z_PSTLZ TYPE STRING,
Z_LAND1 TYPE STRING,
Z_CUSTOM TYPE STRING,
Z_O01_TEXT TYPE STRING,
Z_O02_TEXT TYPE STRING,
Z_O03_TEXT TYPE STRING,
Z_O04_TEXT TYPE STRING,
Z_O05_TEXT TYPE STRING,
Z_O06_TEXT TYPE STRING,
Z_O07_TEXT TYPE STRING,
Z_O08_TEXT TYPE STRING,
Z_O09_TEXT TYPE STRING,
Z_O10_TEXT TYPE STRING,
Z_O01 TYPE STRING,
Z_O02 TYPE STRING,
Z_O03 TYPE STRING,
Z_O04 TYPE STRING,
Z_O05 TYPE STRING,
Z_O06 TYPE STRING,
Z_O07 TYPE STRING,
Z_O08 TYPE STRING,
Z_O09 TYPE STRING,
Z_O10 TYPE STRING,
Z_PERID TYPE STRING,
Z_T4PERID TYPE STRING,
Z_SPERID TYPE STRING,
Z_EMPLR_BUTXT TYPE STRING,
Z_EMPLR_NAME1 TYPE STRING,
Z_EMPLR_NAME2 TYPE STRING,
Z_EMPLR_STRAS TYPE STRING,
Z_EMPLR_ORT01 TYPE STRING,
Z_EMPLR_REGIO TYPE STRING,
Z_EMPLR_PSTLZ TYPE STRING,
X_RLNUM TYPE STRING,
Y_RLNUM TYPE STRING,
Z_RLNUM TYPE STRING,
X_PERNR TYPE STRING,
Y_PERNR TYPE STRING,
X_FRNUM TYPE STRING,
Y_FRNUM TYPE STRING,
Z_FRNUM TYPE STRING,
Z_OCODE TYPE STRING,
Z_SPROV TYPE STRING,
Z_REDUA TYPE STRING,
Z_CDAYS TYPE STRING,
Z_FSSN TYPE STRING,
Z_PNAME TYPE STRING,
Z_NRICC TYPE STRING,
Z_CRESIDE TYPE STRING,
Z_SCITY TYPE STRING,
Z_BUSNM TYPE STRING,
Z_PERNR TYPE STRING,
X_CNAME TYPE STRING,
Y_CNAME TYPE STRING,
Z_CNAME TYPE STRING,
X_CPP TYPE STRING,
Y_CPP TYPE STRING,
X_EI TYPE STRING,
Y_EI TYPE STRING,
X_PPIP TYPE STRING,
Y_PPIP TYPE STRING,
X_PERIOD TYPE STRING,
Y_PERIOD TYPE STRING,
Z_PERIOD TYPE STRING,END OF T_EKKO_STR. DATA: WA_PCA_RPCYERK0_STR1_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_PCA_RPCYERK0_STR1_PDF_STR-X_AMEND sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_TAX_YEAR sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_SOURCE1 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX02 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX03 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX04 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX05 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX06 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX07 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX08 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX09 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX10 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX11 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX12 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX13 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX14 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX15 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX16 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX17 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX18 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX19 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX20 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX21 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX22 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX23 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX24 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX26 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX27 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX28 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX29 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX30 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX32 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX34 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX36 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX38 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX39 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX40 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX42 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX44 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX46 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX50 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX52 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX55 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX56 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BOX61 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_NACHN sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_VORNA sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_INITS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_CAREOF sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_STRAS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_LOCAT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_ORT01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_STATE sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_PSTLZ sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_LAND1 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_CUSTOM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O01_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O02_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O03_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O04_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O05_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O06_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O07_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O08_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O09_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O10_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O02 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O03 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O04 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O05 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O06 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O07 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O08 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O09 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_O10 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_PERID sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_T4PERID sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_SPERID sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_EMPLR_BUTXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_EMPLR_NAME1 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_EMPLR_NAME2 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_EMPLR_STRAS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_EMPLR_ORT01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_EMPLR_REGIO sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_EMPLR_PSTLZ sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_BUSNM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_WRKAR sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_OCODE sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_SPROV sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_REDUA sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_CDAYS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_FSSN sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_PNAME sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_NRICC sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_CRESIDE sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_SCITY sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_AMEND sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_TAX_YEAR sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_SOURCE1 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX02 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX03 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX04 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX05 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX06 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX07 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX08 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX09 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX10 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX11 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX12 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX13 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX14 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX15 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX16 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX17 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX18 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX19 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX20 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX21 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX22 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX23 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX24 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX26 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX27 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX28 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX29 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX30 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX32 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX34 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX36 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX38 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX39 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX40 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX42 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX44 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX46 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX50 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX52 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX55 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX56 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BOX61 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_NACHN sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_VORNA sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_INITS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_CAREOF sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_STRAS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_LOCAT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_ORT01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_STATE sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_PSTLZ sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_LAND1 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_CUSTOM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O01_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O02_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O03_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O04_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O05_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O06_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O07_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O08_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O09_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O10_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O02 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O03 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O04 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O05 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O06 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O07 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O08 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O09 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_O10 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_PERID sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_T4PERID sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_SPERID sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_EMPLR_BUTXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_EMPLR_NAME1 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_EMPLR_NAME2 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_EMPLR_STRAS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_EMPLR_ORT01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_EMPLR_REGIO sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_EMPLR_PSTLZ sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_BUSNM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_WRKAR sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_OCODE sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_SPROV sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_REDUA sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_CDAYS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_FSSN sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_PNAME sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_NRICC sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_CRESIDE sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_SCITY sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_AMEND sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_TAX_YEAR sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_SOURCE1 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX02 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX03 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX04 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX05 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX06 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX07 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX08 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX09 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX10 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX11 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX12 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX13 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX14 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX15 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX16 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX17 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX18 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX19 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX20 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX21 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX22 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX23 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX24 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX26 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX27 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX28 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX30 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX32 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX34 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX36 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX38 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX40 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX42 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX46 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BOX61 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_INITS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_NACHN sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_VORNA sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_CAREOF sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_STRAS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_LOCAT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_ORT01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_STATE sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_PSTLZ sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_LAND1 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_CUSTOM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O01_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O02_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O03_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O04_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O05_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O06_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O07_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O08_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O09_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O10_TEXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O02 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O03 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O04 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O05 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O06 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O07 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O08 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O09 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_O10 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_PERID sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_T4PERID sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_SPERID sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_EMPLR_BUTXT sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_EMPLR_NAME1 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_EMPLR_NAME2 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_EMPLR_STRAS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_EMPLR_ORT01 sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_EMPLR_REGIO sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_EMPLR_PSTLZ sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_RLNUM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_RLNUM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_RLNUM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_PERNR sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_PERNR sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_FRNUM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_FRNUM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_FRNUM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_OCODE sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_SPROV sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_REDUA sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_CDAYS sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_FSSN sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_PNAME sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_NRICC sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_CRESIDE sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_SCITY sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_BUSNM sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_PERNR sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_CNAME sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_CNAME sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_CNAME sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_CPP sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_CPP sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_EI sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_EI sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_PPIP sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_PPIP sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-X_PERIOD sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Y_PERIOD sy-vline
WA_PCA_RPCYERK0_STR1_PDF_STR-Z_PERIOD sy-vline INTO ld_text SEPARATED BY SPACE. *Add any further fields from structure WA_EKKO_STR you want to CONCATENATE... ENDLOOP. ENDFORM.