select
  h~belnr
  pc~fieldid
  pc~value
into
  v_key
from
  z00bt_docs_head as h inner join
  z00bt_docs_posc as pc on
  h~belnr = pc~belnr
where
  h~gjahr > 0 and
  h~perio > 0 and
  h~divid > '' and
  h~hierid = 'RZD_SL' and
  h~formid = 'SL0001' and
  pc~fieldid like 'LABOURGR_%'.

  h~gjahr > 0 and
  h~perio > 0 and
  h~divid > '' and
  h~hierid = 'RZD_SL' and

select
...
from
  z00bt_docs_head as h inner join
  z00bt_docs_posc as pc on
  h~belnr = pc~belnr
where
  h~gjahr > 0 and
  h~perio > 0 and
  h~divid > '' and
  h~hierid = 'RZD_SL' and
  h~formid = 'SL0001' and
  pc~fieldid like 'LABOURGR_%'.

  mandt
  hierid
  formid

  mandt
  belnr
  eldid

  SELECT  DISTINCT
          likp~xabln AS xabln
          likp~vbeln lips~posnr
          lips~matnr wadat likp~route
          lips~mvgr1 lips~mvgr2 likp~kunnr kunag
          likp~bolnr vbsk~zzntgew AS ntgew
          vbsk~zzlfimg AS lfimg lips~vrkme lips~werks
          lips~charg traid
          lips~vgbel lips~vgpos lips~arktx AS maktx vbss~sammg
          lips~kvgr3
          vbsk~zztddat AS tddat
          likp~traty vbsk~zzvagonblng AS vagonblng_code
          vbsk~zzvktra AS vktra
          lips~kvgr3
          vbsk~smart
          a~bstkd vbak~submi vbak~vkgrp
          vbap~zzvagonblng vbap~zz_tonnage
     INTO CORRESPONDING FIELDS OF TABLE gd_select
       FROM likp
         JOIN lips ON likp~vbeln = lips~vbeln
         JOIN vbss ON likp~vbeln = vbss~vbeln
         JOIN vbsk ON vbss~sammg = vbsk~sammg
         JOIN vbuk ON vbuk~vbeln = lips~vbeln
         JOIN vbak ON vbak~vbeln = lips~vgbel
         JOIN vbkd AS a ON
              a~vbeln = vbak~vbeln AND
              a~vbeln = lips~vgbel AND
              a~posnr = lips~vgpos
         JOIN vbkd AS b ON a~bstkd = b~bstkd
         JOIN vbap ON vbap~vbeln = a~vbeln AND
              vbap~posnr = a~posnr
       WHERE     likp~kunag IN so_kunag
             AND lips~vgbel IN so_vgbel
             AND lips~matnr IN so_matnr
             AND likp~vkorg = p_vstel
             AND vbsk~zzwbstk = g_param-p_zzwbst
             AND vbsk~zzkostk = g_param-p_zzkost
             AND vbsk~zzbstkd IN so_dog
             AND vbsk~zzkunnr IN so_kunnr
             AND vbsk~zzetenr IN so_etenr
             AND lips~vgbel NE ''
             AND lips~vgpos NE 0
             AND b~vbeln IN so_dog
             and vbss~sammg IN so_sammg
             AND vbsk~zzlddat IS NOT NULL
             AND vbss~sortf IN g_param-p_sortf.

         JOIN vbkd AS a ON
              a~vbeln = vbak~vbeln AND
              a~vbeln = lips~vgbel AND
              a~posnr = lips~vgpos
         JOIN vbkd AS b ON a~bstkd = b~bstkd