DATA: TX-KEY LIKE PSKEY.
DATA: BEGIN OF TEXT-VERSION,
*       NUMMER TYPE X VALUE '01',                           "K11K099465
        NUMMER TYPE X VALUE '02',                           "K11K099465
      END OF TEXT-VERSION.
*Key des zum Text gehoerenden Satzes
*DATA: BEGIN OF PKEY.                                       "K11K099465
*DATA:   REC LIKE PSKEY.                                    "K11K099465
*DATA: END OF PKEY.                                         "K11K099465
*Text
DATA: BEGIN OF PTEXT OCCURS 200.
DATA:  LINE(78).                                           "K11K099465
*       INCLUDE STRUCTURE PTEXT.                            "K11K099465
DATA: END OF PTEXT.

CLEAR tx-key.
MOVE-CORRESPONDING pNNNN TO tx-key.
REFRESH ptext.
IMPORT ptext FROM DATABASE pcl1(tx) ID tx-key.