Inner Join

Code: Alles auswählen.

start-of-selection.
  if %runmode-extr_on <> space.
    call function '/1BCDWB/IQ000000026033EXTR'

Code: Alles auswählen.

e.g.
  if %rtmode-pack_on = space or %rtmode-first_call = 'X'.
    if not %dbcursor is initial.
      close cursor %dbcursor.
    endif.
    open cursor with hold %dbcursor for
    select CDHDR~OBJECTCLAS CDHDR~OBJECTID CDHDR~UDATE CDHDR~UTIME CDHDR~TCODE CDHDR~USERNAME CDPOS~OBJECTCLAS CDPOS~OBJECTID
           CDPOS~CHANGENR CDPOS~TABNAME CDPOS~TABKEY CDPOS~FNAME CDPOS~CHNGIND CDPOS~TEXT_CASE CDPOS~UNIT_OLD CDPOS~UNIT_NEW
           CDPOS~CUKY_OLD CDPOS~CUKY_NEW CDPOS~VALUE_NEW CDPOS~VALUE_OLD CDPOS~_DATAAGING
    from ( CDHDR
           inner join CDPOS
           on  CDPOS~CHANGENR = CDHDR~CHANGENR
           and CDPOS~OBJECTCLAS = CDHDR~OBJECTCLAS
           and CDPOS~OBJECTID = CDHDR~OBJECTID )
         where CDHDR~OBJECTCLAS in SP$00001
           and CDHDR~OBJECTID in SP$00002
           and CDHDR~USERNAME in SP$00003 .
  endif.

  if %dbcursor is initial.
    raise cursor_not_open.
  endif.

  while %l_no_further_fetch = space.
    fetch next cursor %dbcursor
    into (CDHDR-OBJECTCLAS , CDHDR-OBJECTID , CDHDR-UDATE , CDHDR-UTIME , CDHDR-TCODE , CDHDR-USERNAME , CDPOS-OBJECTCLAS
        , CDPOS-OBJECTID , CDPOS-CHANGENR , CDPOS-TABNAME , CDPOS-TABKEY , CDPOS-FNAME , CDPOS-CHNGIND , CDPOS-TEXT_CASE
        , CDPOS-UNIT_OLD , CDPOS-UNIT_NEW , CDPOS-CUKY_OLD , CDPOS-CUKY_NEW , CDPOS-VALUE_NEW , CDPOS-VALUE_OLD , CDPOS-_DATAAGING