Code listing for: ZTASK

Description: Task Operation

report AQA6SYSTQV000009ZTASK=========
   line-size 252 no standard page heading line-count 000(001).

include <symbol>.
include <icon>.
data: %RTMODE type aqlimode,
      %IQID   type aqliqid,
      %gcprog type PROGRAMM.

selection-screen: begin of block prog
                           with frame title text-f58.

tables ZPLKO.
tables PLPO.
data %count-PLPO(4) type x.
data %linr-PLPO(2).

data: begin of %joinwa,
        PLPO like PLPO,
        ZPLKO like ZPLKO,
      end of %joinwa.
tables aqldb.

include rsaqexcd.

data: begin of %st_liste occurs 100,
          head(1),
          tab(3),
          line(6) type n,
          cont(1) type n,
          fint(1),
          finv(1),
          fcol(1) type n,
          text(0252),
      end of %st_liste.

data %data_selected(1).
data %glframe(1) value 'X' .
data %uflag(1).
data %ustflag(1).
data %grst_text(255).
data %glline type i.
data %tabix like sy-tabix.
data %prflag(1) type x value '02'.


data: %textpool_read(1),
      %textpool_langu type textpool occurs 0,
      %textpool_langu_line type textpool.
data: %txt1 type textpool-entry,
       %txt2        type textpool-entry,
       %txt3        type textpool-entry,
       %txtkey      type textpool-key,
       %txt_unknown type textpool-entry value 'UNKNOWN TEXT'.


data %perc(4) type p decimals 3.
data %p100(4) type p decimals 3 value '100.000'.
data %rangct type i.
data %rangcc(8).
select-options SP$00001 for PLPO-WERKS memory id WRK.
select-options SP$00003 for PLPO-PLNNR memory id PLN.
select-options SP$00007 for PLPO-ANFKOKRS.
select-options SP$00009 for ZPLKO-ZAEHL.
select-options SP$00010 for ZPLKO-PLNAL memory id PAL.
selection-screen skip 1.
selection-screen: begin of block direct
                  with frame title text-f59.
selection-screen: begin of line.
*selection-screen: comment 1(12) text-f57.
selection-screen: pushbutton 75(18) pb%exco user-command expcol
                                   modif id new.
selection-screen: end of line.
selection-screen: begin of line.
parameters: %alv radiobutton group func user-command outbut
                                modif id new .
selection-screen: comment 4(26) text-f72 for field %alv
                                modif id new.
parameters: %alvl type slis_vari modif id new.
selection-screen: end of line.
selection-screen: begin of line.
parameters: %nofunc radiobutton group func modif id old
                         default 'X' .
selection-screen: comment 4(26) text-f66 for field %nofunc
                                         modif id old.
parameters: %tview radiobutton group func modif id old.
selection-screen: comment 34(26) text-f68 for field %tview
                                          modif id old,
                  end of line.
selection-screen: begin of line.
parameters: %graph radiobutton group func modif id old.
selection-screen: comment 4(26) text-f61 for field %graph
                                         modif id old.
parameters: %text radiobutton group func modif id old.
selection-screen: comment 34(26) text-f69 for field %text
                                          modif id old,
                  end of line.
selection-screen: begin of line.
parameters: %abc radiobutton group func modif id old.
selection-screen: comment 4(26) text-f70 for field %abc
                                         modif id old.
parameters: %excel radiobutton group func modif id old.
selection-screen: comment 34(26) text-f60 for field %excel
                                         modif id old,
                  end of line.
selection-screen: begin of line.
parameters: %eis radiobutton group func modif id old.
selection-screen: comment 4(26) text-f63 for field %eis
                                         modif id old.
selection-screen: end of line.
selection-screen: begin of line.
parameters: %xint radiobutton group func modif id xin.
selection-screen: comment 4(26) text-f73 for field %xint
                                         modif id xin.
parameters: %xintk like AQXINT-XIKEY lower case modif id xin.
selection-screen: end of line.
selection-screen: begin of line.
parameters: %down radiobutton group func modif id old.
selection-screen: comment 4(26) text-f64 for field %down
                                         modif id old.
parameters: %path type AQ_FILENAME lower case modif id old.
selection-screen: end of line.
selection-screen: begin of line.
parameters: %save radiobutton group func modif id lis.
selection-screen: comment 4(26) text-f62 for field %save
                                         modif id lis.
parameters: %listid like AQCAQL-TEXT visible length 40
                  lower case modif id lis.
selection-screen: end of line.
selection-screen: end of block direct.
selection-screen: end of block prog.

data: begin of %g00 occurs 100,
            PLPO-PLNTY like PLPO-PLNTY,
            ZPLKO-PLNNR like ZPLKO-PLNNR,
            ZPLKO-PLNAL like ZPLKO-PLNAL,
            PLPO-PLNKN like PLPO-PLNKN,
            PLPO-STEUS like PLPO-STEUS,
            PLPO-WERKS like PLPO-WERKS,
            PLPO-KTSCH like PLPO-KTSCH,
            PLPO-DATUV like PLPO-DATUV,
            PLPO-VORNR like PLPO-VORNR,
            PLPO-ARBID like PLPO-ARBID,
            PLPO-LTXA1 like PLPO-LTXA1,
            PLPO-LTXA2 like PLPO-LTXA2,
            ZPLKO-WERKS like ZPLKO-WERKS,
            ZPLKO-STATU like ZPLKO-STATU,
            PLPO-MEINH like PLPO-MEINH,
            PLPO-UMREN like PLPO-UMREN,
            PLPO-UMREZ like PLPO-UMREZ,
            PLPO-BMSCH like PLPO-BMSCH,
            PLPO-MEINH-0204 like PLPO-MEINH,
            PLPO-LAR01 like PLPO-LAR01,
            PLPO-VGE01 like PLPO-VGE01,
            PLPO-VGW01 like PLPO-VGW01,
            PLPO-VGE01-0207 like PLPO-VGE01,
            PLPO-LAR02 like PLPO-LAR02,
            PLPO-VGE02 like PLPO-VGE02,
            PLPO-VGW02 like PLPO-VGW02,
            PLPO-VGE02-0210 like PLPO-VGE02,
            PLPO-LAR03 like PLPO-LAR03,
            PLPO-VGE03 like PLPO-VGE03,
            PLPO-VGW03 like PLPO-VGW03,
            PLPO-VGE03-0213 like PLPO-VGE03,
            PLPO-LAR04 like PLPO-LAR04,
            ZPLKO-KTEXT like ZPLKO-KTEXT,
            PLPO-VGE04 like PLPO-VGE04,
            PLPO-VGW04 like PLPO-VGW04,
            PLPO-VGE04-0217 like PLPO-VGE04,
            PLPO-LAR05 like PLPO-LAR05,
            PLPO-VGE05 like PLPO-VGE05,
            PLPO-VGW05 like PLPO-VGW05,
            PLPO-VGE05-0301 like PLPO-VGE05,
            PLPO-LAR06 like PLPO-LAR06,
            PLPO-VGE06 like PLPO-VGE06,
            PLPO-VGW06 like PLPO-VGW06,
            PLPO-VGE06-0304 like PLPO-VGE06,
            PLPO-DAUNO like PLPO-DAUNO,
            PLPO-DAUNE-0305 like PLPO-DAUNE,
            PLPO-DAUNE like PLPO-DAUNE,
            PLPO-BUKRS like PLPO-BUKRS,
            PLPO-ISTTY like PLPO-ISTTY,
            PLPO-ISTNR like PLPO-ISTNR,
            PLPO-KALID like PLPO-KALID,
            PLPO-CKSELKZ like PLPO-CKSELKZ,
            PLPO-PVZKN like PLPO-PVZKN,
            PLPO-PHFLG like PLPO-PHFLG,
            PLPO-PHSEQ like PLPO-PHSEQ,
            PLPO-EBELN like PLPO-EBELN,
            PLPO-EBELP like PLPO-EBELP,
            PLPO-ANDAT like PLPO-ANDAT,
            PLPO-ANNAM like PLPO-ANNAM,
            PLPO-AEDAT like PLPO-AEDAT,
            PLPO-AENAM like PLPO-AENAM,
            ZPLKO-DATUV like ZPLKO-DATUV,
            ZPLKO-VERWE like ZPLKO-VERWE,
            ZPLKO-PLNME like ZPLKO-PLNME,
            ZPLKO-LOSVN like ZPLKO-LOSVN,
            ZPLKO-PLNME-0410 like ZPLKO-PLNME,
            ZPLKO-LOSBS like ZPLKO-LOSBS,
            ZPLKO-PLNME-0411 like ZPLKO-PLNME,
            ZPLKO-ABANZ like ZPLKO-ABANZ,
            ZPLKO-PROFIDNETZ like ZPLKO-PROFIDNETZ,
            ZPLKO-UMREZ like ZPLKO-UMREZ,
            ZPLKO-UMREN like ZPLKO-UMREN,
            ZPLKO-PLNKN like ZPLKO-PLNKN,
      end of %g00.
data: begin of %%g00,
            PLPO-PLNTY(001),
            ZPLKO-PLNNR(008),
            ZPLKO-PLNAL(002),
            PLPO-PLNKN(008),
            PLPO-STEUS(004),
            PLPO-WERKS(004),
            PLPO-KTSCH(007),
            PLPO-DATUV(010),
            PLPO-VORNR(004),
            PLPO-ARBID(008),
            PLPO-LTXA1(040),
            PLPO-LTXA2(040),
            ZPLKO-WERKS(004),
            ZPLKO-STATU(003),
            PLPO-MEINH(003),
            PLPO-UMREN(006),
            PLPO-UMREZ(006),
            PLPO-BMSCH(017),
            PLPO-MEINH-0204 like PLPO-MEINH,
            PLPO-LAR01(006),
            PLPO-VGE01(003),
            PLPO-VGW01(011),
            PLPO-VGE01-0207 like PLPO-VGE01,
            PLPO-LAR02(006),
            PLPO-VGE02(003),
            PLPO-VGW02(011),
            PLPO-VGE02-0210 like PLPO-VGE02,
            PLPO-LAR03(006),
            PLPO-VGE03(003),
            PLPO-VGW03(011),
            PLPO-VGE03-0213 like PLPO-VGE03,
            PLPO-LAR04(006),
            ZPLKO-KTEXT(040),
            PLPO-VGE04(003),
            PLPO-VGW04(011),
            PLPO-VGE04-0217 like PLPO-VGE04,
            PLPO-LAR05(006),
            PLPO-VGE05(003),
            PLPO-VGW05(011),
            PLPO-VGE05-0301 like PLPO-VGE05,
            PLPO-LAR06(006),
            PLPO-VGE06(003),
            PLPO-VGW06(011),
            PLPO-VGE06-0304 like PLPO-VGE06,
            PLPO-DAUNO(007),
            PLPO-DAUNE-0305 like PLPO-DAUNE,
            PLPO-DAUNE(003),
            PLPO-BUKRS(004),
            PLPO-ISTTY(001),
            PLPO-ISTNR(008),
            PLPO-KALID(002),
            PLPO-CKSELKZ(001),
            PLPO-PVZKN(008),
            PLPO-PHFLG(001),
            PLPO-PHSEQ(002),
            PLPO-EBELN(010),
            PLPO-EBELP(005),
            PLPO-ANDAT(010),
            PLPO-ANNAM(012),
            PLPO-AEDAT(010),
            PLPO-AENAM(012),
            ZPLKO-DATUV(010),
            ZPLKO-VERWE(003),
            ZPLKO-PLNME(003),
            ZPLKO-LOSVN(017),
            ZPLKO-PLNME-0410 like ZPLKO-PLNME,
            ZPLKO-LOSBS(017),
            ZPLKO-PLNME-0411 like ZPLKO-PLNME,
            ZPLKO-ABANZ(005),
            ZPLKO-PROFIDNETZ(007),
            ZPLKO-UMREZ(006),
            ZPLKO-UMREN(006),
            ZPLKO-PLNKN(008),
      end of %%g00.
data %znr type i.
data %lznr type i value 99999.
field-groups header.
field-groups %fg01.
data %any-01.
field-groups %fg02.
data %any-02.
field-groups %fg03.
data %any-03.
field-groups %fg04.
data %any-04.

controls tview100 type tableview using screen 100.

AT SELECTION-SCREEN.
perform alvl_check(rsaqexce) using %alvl 'G00'.
perform testmode(rsaqexce).
perform check_expcol(rsaqexce) using %alv.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR %ALVL.
perform alvl_value_request(rsaqexce) using %alvl 'G00'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR %XINTK.
perform xint_value_request(rsaqexce).

AT SELECTION-SCREEN OUTPUT.

perform save_initial_sscr(rsaqexce).
perform rinit(rsaqbrst).
perform set_expcol(rsaqexce) using %alv pb%exco.
perform alvl_set_invisible(rsaqexce).
perform set_xint_params(rsaqexce).

INITIALIZATION.
perform init_xint(rsaqexce).
%gcprog = sy-cprog. if %gcprog(1) = '!'. %gcprog(1) = 'A'. endif.
call function 'RSAQ_DECODE_REPORT_NAME'
     exporting reportname = %gcprog
     importing WORKSPACE  = %IQID-workspace
               USERGROUP  = %IQID-USERGROUP
               QUERY      = %IQID-QUERY.
call function 'RSAQRT_SET_IDENTIFICATION'
     exporting iqid        = %IQID
               sscr_report = %gcprog
     changing  rtmode      = %RTMODE.
perform set_www_flags(rsaqexce).
perform init_print_params(rsaqexce).

if %textpool_read is initial.
  read textpool sy-repid into %textpool_langu language sy-langu.
  %textpool_read = 'X'.
endif.

START-OF-SELECTION.
insert %count-PLPO into header.
insert %linr-PLPO into header.
insert PLPO-PLNTY into %fg01.
insert ZPLKO-PLNNR into %fg01.
insert ZPLKO-PLNAL into %fg01.
insert PLPO-PLNKN into %fg01.
insert PLPO-STEUS into %fg01.
insert PLPO-WERKS into %fg01.
insert PLPO-KTSCH into %fg01.
insert PLPO-DATUV into %fg01.
insert PLPO-VORNR into %fg01.
insert PLPO-ARBID into %fg01.
insert PLPO-LTXA1 into %fg01.
insert PLPO-LTXA2 into %fg01.
insert ZPLKO-WERKS into %fg01.
insert ZPLKO-STATU into %fg01.
insert PLPO-MEINH into %fg02.
insert PLPO-UMREN into %fg02.
insert PLPO-UMREZ into %fg02.
insert PLPO-BMSCH into %fg02.
insert PLPO-MEINH into %fg02.
insert PLPO-LAR01 into %fg02.
insert PLPO-VGE01 into %fg02.
insert PLPO-VGW01 into %fg02.
insert PLPO-VGE01 into %fg02.
insert PLPO-LAR02 into %fg02.
insert PLPO-VGE02 into %fg02.
insert PLPO-VGW02 into %fg02.
insert PLPO-VGE02 into %fg02.
insert PLPO-LAR03 into %fg02.
insert PLPO-VGE03 into %fg02.
insert PLPO-VGW03 into %fg02.
insert PLPO-VGE03 into %fg02.
insert PLPO-LAR04 into %fg02.
insert ZPLKO-KTEXT into %fg02.
insert PLPO-VGE04 into %fg02.
insert PLPO-VGW04 into %fg02.
insert PLPO-VGE04 into %fg02.
insert PLPO-LAR05 into %fg02.
insert PLPO-VGE05 into %fg02.
insert PLPO-VGW05 into %fg03.
insert PLPO-VGE05 into %fg03.
insert PLPO-LAR06 into %fg03.
insert PLPO-VGE06 into %fg03.
insert PLPO-VGW06 into %fg03.
insert PLPO-VGE06 into %fg03.
insert PLPO-DAUNO into %fg03.
insert PLPO-DAUNE into %fg03.
insert PLPO-DAUNE into %fg03.
insert PLPO-BUKRS into %fg03.
insert PLPO-ISTTY into %fg03.
insert PLPO-ISTNR into %fg03.
insert PLPO-KALID into %fg03.
insert PLPO-CKSELKZ into %fg03.
insert PLPO-PVZKN into %fg03.
insert PLPO-PHFLG into %fg03.
insert PLPO-PHSEQ into %fg03.
insert PLPO-EBELN into %fg04.
insert PLPO-EBELP into %fg04.
insert PLPO-ANDAT into %fg04.
insert PLPO-ANNAM into %fg04.
insert PLPO-AEDAT into %fg04.
insert PLPO-AENAM into %fg04.
insert ZPLKO-DATUV into %fg04.
insert ZPLKO-VERWE into %fg04.
insert ZPLKO-PLNME into %fg04.
insert ZPLKO-LOSVN into %fg04.
insert ZPLKO-PLNME into %fg04.
insert ZPLKO-LOSBS into %fg04.
insert ZPLKO-PLNME into %fg04.
insert ZPLKO-ABANZ into %fg04.
insert ZPLKO-PROFIDNETZ into %fg04.
insert ZPLKO-UMREZ into %fg04.
insert ZPLKO-UMREN into %fg04.
insert ZPLKO-PLNKN into %fg04.
perform init_texthandling(rsaqexce) using 'CL_TEXT_IDENTIFIER' ' ' 'SYSTQV000000000000000032'.
"webgui
data: %ret type i.
  if sy-batch is initial and %excel is not initial.
    perform check_wingui(rsaqsyst) using %ret.
    if %ret <> 0.
      message e842(aq).
    endif.
  endif.
"webgui
perform authority_begin(rsaqexce) using 'CL_QUERY_TAB_ACCESS_AUTHORITY'.
perform authority(rsaqexce) using 'PLPO' 'CL_QUERY_TAB_ACCESS_AUTHORITY'.
perform authority(rsaqexce) using 'ZPLKO' 'CL_QUERY_TAB_ACCESS_AUTHORITY'.
perform authority_end(rsaqexce) using 'CL_QUERY_TAB_ACCESS_AUTHORITY'.
perform %comp_ldesc.
if %RTMODE is initial.
%gcprog = sy-cprog. if %gcprog(1) = '!'. %gcprog(1) = 'A'. endif.
  call function  'RSAQ_DECODE_REPORT_NAME'
       exporting reportname = %gcprog
       importing WORKSPACE  = %IQID-workspace
                 USERGROUP  = %IQID-USERGROUP
                 QUERY      = %IQID-QUERY.
  call function  'RSAQRT_SET_IDENTIFICATION'
       exporting iqid        = %IQID
                 sscr_report = %gcprog
       changing  rtmode      = %RTMODE.
endif.
select PLPO~AEDAT PLPO~AENAM PLPO~ANDAT PLPO~ANFKOKRS PLPO~ANNAM PLPO~ARBID PLPO~BMSCH PLPO~BUKRS PLPO~CKSELKZ PLPO~DATUV
       PLPO~DAUNE PLPO~DAUNO PLPO~EBELN PLPO~EBELP PLPO~ISTNR PLPO~ISTTY PLPO~KALID PLPO~KTSCH PLPO~LAR01 PLPO~LAR02 PLPO~LAR03
       PLPO~LAR04 PLPO~LAR05 PLPO~LAR06 PLPO~LTXA1 PLPO~LTXA2 PLPO~MEINH PLPO~PHFLG PLPO~PHSEQ PLPO~PLNKN PLPO~PLNNR PLPO~PLNTY
       PLPO~PVZKN PLPO~STEUS PLPO~UMREN PLPO~UMREZ PLPO~VGE01 PLPO~VGE02 PLPO~VGE03 PLPO~VGE04 PLPO~VGE05 PLPO~VGE06 PLPO~VGW01
       PLPO~VGW02 PLPO~VGW03 PLPO~VGW04 PLPO~VGW05 PLPO~VGW06 PLPO~VORNR PLPO~WERKS ZPLKO~ABANZ ZPLKO~DATUV ZPLKO~KTEXT ZPLKO~LOSBS
       ZPLKO~LOSVN ZPLKO~PLNAL ZPLKO~PLNKN ZPLKO~PLNME ZPLKO~PLNNR ZPLKO~PROFIDNETZ ZPLKO~STATU ZPLKO~UMREN ZPLKO~UMREZ ZPLKO~VERWE
       ZPLKO~WERKS ZPLKO~ZAEHL
into (PLPO-AEDAT , PLPO-AENAM , PLPO-ANDAT , PLPO-ANFKOKRS , PLPO-ANNAM , PLPO-ARBID , PLPO-BMSCH , PLPO-BUKRS , PLPO-CKSELKZ
     , PLPO-DATUV , PLPO-DAUNE , PLPO-DAUNO , PLPO-EBELN , PLPO-EBELP , PLPO-ISTNR , PLPO-ISTTY , PLPO-KALID , PLPO-KTSCH
     , PLPO-LAR01 , PLPO-LAR02 , PLPO-LAR03 , PLPO-LAR04 , PLPO-LAR05 , PLPO-LAR06 , PLPO-LTXA1 , PLPO-LTXA2 , PLPO-MEINH
     , PLPO-PHFLG , PLPO-PHSEQ , PLPO-PLNKN , PLPO-PLNNR , PLPO-PLNTY , PLPO-PVZKN , PLPO-STEUS , PLPO-UMREN , PLPO-UMREZ
     , PLPO-VGE01 , PLPO-VGE02 , PLPO-VGE03 , PLPO-VGE04 , PLPO-VGE05 , PLPO-VGE06 , PLPO-VGW01 , PLPO-VGW02 , PLPO-VGW03
     , PLPO-VGW04 , PLPO-VGW05 , PLPO-VGW06 , PLPO-VORNR , PLPO-WERKS , ZPLKO-ABANZ , ZPLKO-DATUV , ZPLKO-KTEXT , ZPLKO-LOSBS
     , ZPLKO-LOSVN , ZPLKO-PLNAL , ZPLKO-PLNKN , ZPLKO-PLNME , ZPLKO-PLNNR , ZPLKO-PROFIDNETZ , ZPLKO-STATU , ZPLKO-UMREN
     , ZPLKO-UMREZ , ZPLKO-VERWE , ZPLKO-WERKS , ZPLKO-ZAEHL )
from ( PLPO
       inner join ZPLKO
       on ZPLKO~PLNKN = PLPO~PLNKN
       and ZPLKO~PLNNR = PLPO~PLNNR )
       where PLPO~ANFKOKRS in SP$00007
         and PLPO~PLNNR in SP$00003
         and PLPO~WERKS in SP$00001
         and ZPLKO~PLNAL in SP$00010
         and ZPLKO~ZAEHL in SP$00009.
  %dbacc = %dbacc - 1.
  if %dbacc = 0.
    stop.
  endif.
  check SP$00007.
  check SP$00003.
  check SP$00001.
  check SP$00010.
  check SP$00009.
  add 1 to %count-PLPO.
  %linr-PLPO = '01'.
  extract %fg01.
  %linr-PLPO = '02'.
  extract %fg02.
  %linr-PLPO = '03'.
  extract %fg03.
  %linr-PLPO = '04'.
  extract %fg04.
endselect.

END-OF-SELECTION.
sort as text.
%diact = space.
%printon = space.
%batch = sy-batch.
if %batch <> space.
  if %eis <> space.
    %diact = 'E'.
    %printon = 'X'.
    if %eisprotocol = space.
      new-page print on destination 'NULL' no dialog
               line-size 0252 line-count 0065.
    else.
      new-page print on no dialog
               parameters %init_pri_params.
    endif.
  endif.
  if %alv <> space.
    %diact = 'V'.
    %printon = 'X'.
    %alv_layout = %alvl.
    new-page print on destination 'NULL' no dialog
             line-size 0252 line-count 0065.
  endif.
  if %save <> space.
    %diact = 'S'.
    %printon = 'X'.
    new-page print on destination 'NULL' no dialog
             line-size 0252 line-count 0065.
  endif.
elseif %called_by_www <> space.
  %diact = space.
elseif %called_by_www_alv <> space.
  %diact = 'V'.
else.
  perform init_print_params(rsaqexce).
  if %save  <> space. %diact = 'S'. endif.
  if %xint  <> space. %diact = 'I'. endif.
  if %tview <> space. %diact = 'T'. endif.
  if %alv   <> space. %diact = 'V'. endif.
  if %down  <> space. %diact = 'D'. endif.
  if %eis   <> space. %diact = 'E'. endif.
  if %graph <> space. %diact = 'G'. endif.
  if %excel <> space. %diact = 'X'. endif.
  if %text  <> space. %diact = 'W'. endif.
  if %abc   <> space. %diact = 'A'. endif.
  if %diact <> space and %diact <> 'S' and %diact <> 'W'.
    %printon = 'X'.
    new-page print on destination 'NULL' no dialog
             line-size 0252 line-count 0065.
  endif.
  %pathname = %path.
  if %diact = 'I'.
    %functionkey = %xintk.
  endif.
  if %diact = 'V'.
    %alv_layout = %alvl.
  endif.
endif.
free memory id 'AQLISTDATA'.
if %memmode <> space.
  if %batch <> space and %printon = space.
    %printon = 'X'.
    new-page print on destination 'NULL' no dialog
             line-size 0252 line-count 0065.
  endif.
  %diact = '1'.
endif.
%titel = ' '.
if sy-subty o %prflag and %titel = space.
  new-page with-title.
endif.
%tvsize = 0200.
%pline = 1.
%pzgr = 1.
%first = 'X'.
perform %output.
%first = space.
if %diact <> space and %diact <> 'S'.
  if %batch = space.
    new-page print off.
    if not ( %diact = 'V' and %ucomm = 'PRIN' ).
      new-page no-heading no-title.
      write space.
    endif.
  endif.
else.
  perform pf-status(rsaqexce) using 'XXX   '.
endif.
clear: %tab, %line, %cont.
if %data_selected = space.
  if %diact = '1'.
    export empty from %empty to memory id 'AQLISTDATA'.
    leave.
  else.
    if %batch = space and
       %called_by_www = space and
       %called_by_www_alv = space.
      message s260(aq).
      leave list-processing.
    else.
      if %called_by_www_alv = space.
        %diact = space.
      endif.
    endif.
  endif.
endif.
if %diact = 'S'.
  perform %save_list.
  leave list-processing.
endif.
if %diact = 'V' and %batch <> space.
  new-page print off.
  perform set_print_params(rsaqexce).
  perform %download using 'ALV'.
  leave.
endif.
if %diact = 'V' and %called_by_www_alv <> space.
  perform %download using 'ALV'.
  leave.
endif.
*if %diact = 'V' and ( %ucomm = 'PRIN' or sy-subty = '07' ).
data %is_submit_to_spool type c.
if %diact = 'V'.
  CALL FUNCTION 'IS_SUBMIT_TO_SPOOL'
    IMPORTING FLAG = %is_submit_to_spool.
  if ( %ucomm = 'PRIN' or %is_submit_to_spool = 'X' ).
    perform set_print_params(rsaqexce).
    perform %download using 'ALV'.
    set parameter id 'SPI' field sy-spono.
    leave list-processing.
  endif.
endif.
if %diact = 'P' and %batch <> space.
  perform %download using '+DAT'.
  leave list-processing.
endif.
if %diact = 'E' and %batch <> space.
  perform %download using 'EIS'.
  leave list-processing.
endif.
if %diact = '1'.
  perform %download using '+MEM'.
  leave.
endif.
if %diact = 'X'.
  set user-command 'XXL'.
elseif %diact = 'W'.
  set user-command 'TEXT'.
elseif %diact = 'V'.
  set user-command 'ALV'.
elseif %diact = 'T'.
  set user-command 'VIEW'.
elseif %diact = 'G'.
  set user-command 'GRAF'.
elseif %diact = 'A'.
  set user-command 'ABCA'.
elseif %diact = 'E'.
  set user-command 'EIS'.
elseif %diact = 'D'.
  set user-command 'DOWN'.
elseif %diact = 'I'.
  set user-command 'XINT'.
elseif %diact = 'P'.
  set user-command '+DAT'.
endif.

TOP-OF-PAGE.
perform %top-of-page.

END-OF-PAGE.
perform page_foot(rsaqexce).
perform %save_page.

TOP-OF-PAGE DURING LINE-SELECTION.
perform %top-of-page.

AT USER-COMMAND.
case sy-ucomm.
when 'EXIT'.
  leave program.
when 'RETN'.
  perform return(rsaqexce).
when 'CANC'.
  perform return(rsaqexce).
when 'WEIT'.
  perform return(rsaqexce).
when 'INHA'.
  perform catalogue(rsaqexce).
when 'AUSL'.
  perform pickup(rsaqexce).
when 'AUSW'.
  perform pickup(rsaqexce).
when 'RCAA'.
  perform rchain(rsaqbrst).
when 'RCAL'.
  perform rcall(rsaqbrst).
when 'VGLI'.
  perform change(rsaqexce).
when 'VGLE'.
  perform change(rsaqexce).
when 'TOTO'.
  perform change(rsaqexce).
when 'VSTA'.
  perform change(rsaqexce).
when 'VSTE'.
  perform return(rsaqexce).
when 'SAVL'.
  perform %save_list.
when 'ODRU'.
  perform print_list(rsaqexce).
when 'COPA'.
  perform print_cover_page(rsaqexce).
when 'TEXT'.
  perform %download using 'TEXT'.
when 'ALV'.
  perform %download using 'ALV'.
when 'VIEW'.
  perform %view.
when 'XXL'.
  perform %download using 'XXL'.
when 'GRAF'.
  perform %download using 'GRAF'.
when 'ABCA'.
  perform %download using 'ABCA'.
when 'EIS'.
  perform %download using 'EIS'.
when 'DOWN'.
  perform %download using 'DOWN'.
when 'XINT'.
  perform %download using 'XINT'.
endcase.
clear: %cline, %zgr.
clear: %tab, %line, %cont.
if %diact <> space.
  leave list-processing.
endif.


form %comp_ldesc.

*... textpool required (API calls %comp_ldesc directly)
  if %textpool_read is initial.
    read textpool sy-repid into %textpool_langu language sy-langu.
    %textpool_read = 'X'.
  endif.

  refresh %ldesc.
  refresh %gdesc.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A00'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B00'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00010000X001       00  98'
    %txt1 %txt2 %txt3 'PLPO-PLNTY' PLPO-PLNTY 'PLPO-PLNTY'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A01'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B01'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00020000X008       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-PLNNR' ZPLKO-PLNNR 'ZPLKO-PLNNR'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A02'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B02'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00030000X002       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-PLNAL' ZPLKO-PLNAL 'ZPLKO-PLNAL'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A03'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B03'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00040000X008       00  98'
    %txt1 %txt2 %txt3 'PLPO-PLNKN' PLPO-PLNKN 'PLPO-PLNKN'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A04'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B04'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00050000X004       00  98'
    %txt1 %txt2 %txt3 'PLPO-STEUS' PLPO-STEUS 'PLPO-STEUS'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A05'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B05'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00060000X004       00  98'
    %txt1 %txt2 %txt3 'PLPO-WERKS' PLPO-WERKS 'PLPO-WERKS'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A06'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B06'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00070000X007       00  98'
    %txt1 %txt2 %txt3 'PLPO-KTSCH' PLPO-KTSCH 'PLPO-KTSCH'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A07'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B07'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00080000X010       00  98'
    %txt1 %txt2 %txt3 'PLPO-DATUV' PLPO-DATUV 'PLPO-DATUV'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A08'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B08'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00090000X004       00  98'
    %txt1 %txt2 %txt3 'PLPO-VORNR' PLPO-VORNR 'PLPO-VORNR'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A09'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B09'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00100000X008       00  98'
    %txt1 %txt2 %txt3 'PLPO-ARBID' PLPO-ARBID 'PLPO-ARBID'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A10'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B10'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00110000X040       00  98'
    %txt1 %txt2 %txt3 'PLPO-LTXA1' PLPO-LTXA1 'PLPO-LTXA1'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A11'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B11'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00120000X040       00  98'
    %txt1 %txt2 %txt3 'PLPO-LTXA2' PLPO-LTXA2 'PLPO-LTXA2'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A12'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B12'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00130000X004       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-WERKS' ZPLKO-WERKS 'ZPLKO-WERKS'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A13'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B13'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00140000X003       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-STATU' ZPLKO-STATU 'ZPLKO-STATU'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A14'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B14'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00151000X003       00  98'
    %txt1 %txt2 %txt3 'PLPO-MEINH' PLPO-MEINH 'PLPO-MEINH'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A15'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B15'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00161047 006       00  98'
    %txt1 %txt2 %txt3 'PLPO-UMREN' PLPO-UMREN 'PLPO-UMREN'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A16'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B16'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00171054 006       00  98'
    %txt1 %txt2 %txt3 'PLPO-UMREZ' PLPO-UMREZ 'PLPO-UMREZ'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A17'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B17'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00181061 017M      00  98'
    %txt1 %txt2 %txt3 'PLPO-BMSCH' PLPO-BMSCH 'PLPO-BMSCH'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A18'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B18'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00191000 003E      00  98'
    %txt1 %txt2 %txt3 'PLPO-MEINH' PLPO-MEINH 'PLPO-MEINH-0204'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A19'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B19'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00201000X006       00  98'
    %txt1 %txt2 %txt3 'PLPO-LAR01' PLPO-LAR01 'PLPO-LAR01'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A20'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B20'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00211000X003       00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE01' PLPO-VGE01 'PLPO-VGE01'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A21'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B21'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00221094 011M      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGW01' PLPO-VGW01 'PLPO-VGW01'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A22'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B22'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00231000 003E      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE01' PLPO-VGE01 'PLPO-VGE01-0207'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A23'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B23'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00241000X006       00  98'
    %txt1 %txt2 %txt3 'PLPO-LAR02' PLPO-LAR02 'PLPO-LAR02'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A24'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B24'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00251000X003       00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE02' PLPO-VGE02 'PLPO-VGE02'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A25'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B25'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00261121 011M      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGW02' PLPO-VGW02 'PLPO-VGW02'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A26'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B26'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00271000 003E      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE02' PLPO-VGE02 'PLPO-VGE02-0210'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A27'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B27'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00281000X006       00  98'
    %txt1 %txt2 %txt3 'PLPO-LAR03' PLPO-LAR03 'PLPO-LAR03'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A28'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B28'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00291000X003       00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE03' PLPO-VGE03 'PLPO-VGE03'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A29'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B29'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00301148 011M      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGW03' PLPO-VGW03 'PLPO-VGW03'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A30'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B30'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00311000 003E      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE03' PLPO-VGE03 'PLPO-VGE03-0213'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A31'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B31'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00321000X006       00  98'
    %txt1 %txt2 %txt3 'PLPO-LAR04' PLPO-LAR04 'PLPO-LAR04'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A32'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B32'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00331000X040       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-KTEXT' ZPLKO-KTEXT 'ZPLKO-KTEXT'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A33'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B33'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00341000X003       00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE04' PLPO-VGE04 'PLPO-VGE04'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A34'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B34'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00351175 011M      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGW04' PLPO-VGW04 'PLPO-VGW04'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A35'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B35'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00361000 003E      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE04' PLPO-VGE04 'PLPO-VGE04-0217'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A36'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B36'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00371000X006       00  98'
    %txt1 %txt2 %txt3 'PLPO-LAR05' PLPO-LAR05 'PLPO-LAR05'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A37'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B37'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00381000X003       00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE05' PLPO-VGE05 'PLPO-VGE05'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A38'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B38'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00392002 011M      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGW05' PLPO-VGW05 'PLPO-VGW05'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A39'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B39'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00402000 003E      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE05' PLPO-VGE05 'PLPO-VGE05-0301'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A40'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B40'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00412000X006       00  98'
    %txt1 %txt2 %txt3 'PLPO-LAR06' PLPO-LAR06 'PLPO-LAR06'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A41'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B41'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00422000X003       00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE06' PLPO-VGE06 'PLPO-VGE06'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A42'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B42'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00432029 011M      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGW06' PLPO-VGW06 'PLPO-VGW06'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A43'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B43'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00442000 003E      00  98'
    %txt1 %txt2 %txt3 'PLPO-VGE06' PLPO-VGE06 'PLPO-VGE06-0304'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A44'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B44'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00452045 007M      00  98'
    %txt1 %txt2 %txt3 'PLPO-DAUNO' PLPO-DAUNO 'PLPO-DAUNO'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A45'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B45'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00462000 003E      00  98'
    %txt1 %txt2 %txt3 'PLPO-DAUNE' PLPO-DAUNE 'PLPO-DAUNE-0305'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A46'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B46'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00472000X003       00  98'
    %txt1 %txt2 %txt3 'PLPO-DAUNE' PLPO-DAUNE 'PLPO-DAUNE'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A47'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B47'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00482000X004       00  98'
    %txt1 %txt2 %txt3 'PLPO-BUKRS' PLPO-BUKRS 'PLPO-BUKRS'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A48'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B48'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00492000X001       00  98'
    %txt1 %txt2 %txt3 'PLPO-ISTTY' PLPO-ISTTY 'PLPO-ISTTY'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A49'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B49'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00502000X008       00  98'
    %txt1 %txt2 %txt3 'PLPO-ISTNR' PLPO-ISTNR 'PLPO-ISTNR'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A50'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B50'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00512000X002       00  98'
    %txt1 %txt2 %txt3 'PLPO-KALID' PLPO-KALID 'PLPO-KALID'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A51'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B51'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00522000X001       00  98'
    %txt1 %txt2 %txt3 'PLPO-CKSELKZ' PLPO-CKSELKZ 'PLPO-CKSELKZ'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A52'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B52'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00532000X008       00  98'
    %txt1 %txt2 %txt3 'PLPO-PVZKN' PLPO-PVZKN 'PLPO-PVZKN'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A53'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B53'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00542000X001       00  98'
    %txt1 %txt2 %txt3 'PLPO-PHFLG' PLPO-PHFLG 'PLPO-PHFLG'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A54'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B54'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00552000X002       00  98'
    %txt1 %txt2 %txt3 'PLPO-PHSEQ' PLPO-PHSEQ 'PLPO-PHSEQ'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A55'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B55'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00563000X010       00  98'
    %txt1 %txt2 %txt3 'PLPO-EBELN' PLPO-EBELN 'PLPO-EBELN'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A56'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B56'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00573000X005       00  98'
    %txt1 %txt2 %txt3 'PLPO-EBELP' PLPO-EBELP 'PLPO-EBELP'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A57'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B57'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00583000X010       00  98'
    %txt1 %txt2 %txt3 'PLPO-ANDAT' PLPO-ANDAT 'PLPO-ANDAT'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A58'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B58'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00593000X012       00  98'
    %txt1 %txt2 %txt3 'PLPO-ANNAM' PLPO-ANNAM 'PLPO-ANNAM'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A59'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B59'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00603000X010       00  98'
    %txt1 %txt2 %txt3 'PLPO-AEDAT' PLPO-AEDAT 'PLPO-AEDAT'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A60'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B60'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00613000X012       00  98'
    %txt1 %txt2 %txt3 'PLPO-AENAM' PLPO-AENAM 'PLPO-AENAM'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A61'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B61'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00623000X010       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-DATUV' ZPLKO-DATUV 'ZPLKO-DATUV'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A62'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B62'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00633000X003       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-VERWE' ZPLKO-VERWE 'ZPLKO-VERWE'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A63'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B63'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00643000X003       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-PLNME' ZPLKO-PLNME 'ZPLKO-PLNME'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A64'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B64'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00653086 017M      00  98'
    %txt1 %txt2 %txt3 'ZPLKO-LOSVN' ZPLKO-LOSVN 'ZPLKO-LOSVN'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A65'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B65'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00663000 003E      00  98'
    %txt1 %txt2 %txt3 'ZPLKO-PLNME' ZPLKO-PLNME 'ZPLKO-PLNME-0410'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A66'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B66'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00673108 017M      00  98'
    %txt1 %txt2 %txt3 'ZPLKO-LOSBS' ZPLKO-LOSBS 'ZPLKO-LOSBS'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A67'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B67'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00683000 003E      00  98'
    %txt1 %txt2 %txt3 'ZPLKO-PLNME' ZPLKO-PLNME 'ZPLKO-PLNME-0411'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A68'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B68'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00693130 005       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-ABANZ' ZPLKO-ABANZ 'ZPLKO-ABANZ'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A69'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B69'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00703000X007       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-PROFIDNETZ' ZPLKO-PROFIDNETZ 'ZPLKO-PROFIDNETZ'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A70'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B70'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00713144 006       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-UMREZ' ZPLKO-UMREZ 'ZPLKO-UMREZ'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A71'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B71'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00723151 006       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-UMREN' ZPLKO-UMREN 'ZPLKO-UMREN'.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'A72'.
  if sy-subrc is initial. %txt1 = %textpool_langu_line-entry.
  else. %txt1 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'B72'.
  if sy-subrc is initial. %txt2 = %textpool_langu_line-entry.
  else. %txt2 = %txt_unknown.
  endif.
  read table %textpool_langu into %textpool_langu_line
                             with key key = 'H00'.
  if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.
  else. %txt3 = %txt_unknown.
  endif.
  perform ldesc(rsaqexce) using 'G00733000X008       00  98'
    %txt1 %txt2 %txt3 'ZPLKO-PLNKN' ZPLKO-PLNKN 'ZPLKO-PLNKN'.
  perform gdesc(rsaqexce) using 'G00' 5 20 ' ' ' ' 'X'.
  perform complete_ldesc(rsaqexce) tables %ldesc.

endform.

form %read_ldesc using p_lid type aql_lid
                       p_ldesc type rsaqtldesc.

  p_lid = 'G00'.
  perform %comp_ldesc.
  p_ldesc[] = %ldesc[].

endform.


form %output.

describe table %prlist lines %max_prlist.
%head = 'AAA'.
%keyempty = space.
new-page.
perform %output_gl.
perform complete_page(rsaqexce).
%head = 'ZZZ'.
perform last_ptab_entry(rsaqexce).
new-page.
if %keyempty <> space.
  message s894(aq).
endif.

endform.


form %top-of-page.

if sy-ucomm = 'INHA'. exit. endif.
if sy-ucomm = 'COPA'. exit. endif.
if %head = space. exit. endif.
if %head = 'DDD'.
  perform tviewpage(rsaqexce).
  exit.
endif.
if %head = 'GGG'.
  perform page(rsaqexce) using 'G00' text-grl 252 %glframe 001.
  set left scroll-boundary column 002.
  perform set_scroll_boundary(rsaqexce) using 002.
  if %toto <> space. exit. endif.
else.
  case %head.
  when others.
  endcase.
endif.

endform.


form %newline.

data: %llen type i.
  %llen = 252.
  %uflag = space.
  new-line.
  write: '|', 252 '|'.
  position 2.

endform.

form %skip using count.

  if sy-linno > 1.
    %uflag = space.
    do count times.
      new-line.
      format reset.
      write: '|', 252 '|'.
    enddo.
  endif.

endform.

form %uline.

  if %uflag = space.
    if sy-linno > 1.
      uline /1(252).
    endif.
    %uflag = 'X'.
  endif.

endform.

form %hide.

  if %batch <> space and %diact = 'S'.
    perform hide(rsaqexce).
  else.
    hide: %tab, %line, %cont.
  endif.

endform.

form %hide_color.

  if %batch <> space and %diact = 'S'.
    perform hide_color(rsaqexce).
  else.
    hide: %fint, %fcol.
  endif.

endform.

form %rcall using name value.

field-symbols <field>.

  assign (name) to <field>.
  if sy-subrc <> 0.
    value = space.
    exit.
  endif.
  read current line field value <field> into value.
  if value = space and %tab = 'G00' and %ldesc-fcur na 'FM'.
    read table %g00 index %line.
    if sy-subrc = 0.
      assign component %ldesc-fnameint of structure %g00
                                       to <field>.
      if sy-subrc = 0.
        write <field> to value(%ldesc-folen).
      endif.
    endif.
  endif.

endform.

form %save_page.

  if %batch <> space and %diact = 'S'.
    perform save_page(rsaqexce) tables %st_liste.
  endif.

endform.

form %replace_var using text.

field-symbols <var>.

  assign text+1(*) to <var>.

endform.

form %save_list.

data: %sflag,
      qreport like sy-repid.

  if %diact = 'S'. %sflag = 'X'. endif.
  qreport = sy-repid.
  perform save_list(rsaqexce) tables %st_liste
                              using qreport %sflag %listid.
  if %ql_id <> space.
    %dlflag = 'X'.
    %listsize = 0252.
    perform comp_selection_screen(rsaqexce).
    export %st_liste %ptab %ldesc %gdesc %dlflag %listsize
           %selections
           %g00
           to database aqldb(aq) id %ql_id.
  endif.

endform.

form %refresh.

  case %tab.
  when 'G00'.
    import %g00 from database aqldb(aq) id %ql_id.
  endcase.

endform.

form %download using code.

data: qreport like sy-repid.

  perform init_download(rsaqexce).
  qreport = sy-repid.
  case %tab.
  when 'G00'.
    perform download(rsaqexce)
            tables %g00 using code qreport text-grl.
  when others.
    message s860(aq).
  endcase.

endform.

form %set_data changing l_lines type i.

  import ldata to %g00 from memory id 'AQLISTDATA'.
  describe table %g00 lines l_lines.
  free memory id 'AQLISTDATA'.

endform.

form %get_data tables datatab structure %g00
               using  first type i
                      last  type i.

  append lines of %g00 from first to last to datatab.

endform.

form %get_ref_to_table using lid like rsaqldesc-lid
                             ref_to_itab type ref to data
                             subrc       like sy-subrc.

  subrc = 0.
  case lid.
  when 'G00'.
    create data ref_to_itab like %g00[].
  when others.
    subrc = 4.
    message s860(aq).
  endcase.

endform.

form %view.

data: ret type i.

  perform check_wingui(rsaqsyst) using ret.
  if ret <> 0.
    message s841(aq).
    perform %download using 'ALV'.
    exit.
  endif.

data: anz type i,
      prog like sy-repid.

  prog = sy-repid.
  perform init_download(rsaqexce).
  case %tab.
  when 'G00'.
    perform generate_view_dynpro(rsaqexce)
            using prog text-grl.
    describe table %g00 lines anz.
    tview100-lines = anz.
    perform init_view(rsaqexce) tables %g00 using tview100.
    call screen 100.
    perform reset_view_dynpro(rsaqexce).
  when others.
    message s860(aq).
  endcase.

endform.

form %colhead_print changing lines like sy-linno
                             hflag type c.
data: l_text(255).
  if %textpool_read is initial.
    read textpool sy-cprog into %textpool_langu language sy-langu.
    %textpool_read = 'X'.
  endif.
  lines = lines +  4.
  if  4 = 0. clear hflag. else. hflag = 'X'. endif.
  write at (1) '|' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B001'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 002(001) l_text(001)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B011'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 004(008) l_text(008)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B021'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 013(002) l_text(002)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B031'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 016(008) l_text(008)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B041'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 025(004) l_text(004)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B051'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 030(004) l_text(004)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B061'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 035(007) l_text(007)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B071'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 043(010) l_text(010)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B081'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 054(004) l_text(004)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B091'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 059(008) l_text(008)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B101'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 068(040) l_text(040)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B111'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 109(040) l_text(040)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B121'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 150(004) l_text(004)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B131'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 155(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  write at 252(1) '|' no-gap.
  new-line.
  write at (1) '|' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B141'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 043(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B151'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 047(006) l_text(006)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B161'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 054(006) l_text(006)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B171'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 061(017) l_text(017)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B141'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 043(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B191'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 083(006) l_text(006)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B201'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 090(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B211'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 094(011) l_text(011)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B201'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 090(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B231'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 110(006) l_text(006)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B241'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 117(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B251'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 121(011) l_text(011)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B241'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 117(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B271'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 137(006) l_text(006)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B281'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 144(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B291'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 148(011) l_text(011)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B281'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 144(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B311'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 164(006) l_text(006)  no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B321'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 167(040) l_text(040)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B331'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 171(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B341'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 175(011) l_text(011)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B331'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 171(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B361'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 191(006) l_text(006)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B371'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 198(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  write at (1) ' ' no-gap.
  write at 252(1) '|' no-gap.
  new-line.
  write at (1) '|' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B381'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 002(011) l_text(011)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B371'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 198(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B401'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 018(006) l_text(006)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B411'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 025(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B421'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 029(011) l_text(011)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B411'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 025(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B441'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 045(007) l_text(007)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B451'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 057(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B451'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 057(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B471'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 061(004) l_text(004)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B481'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 066(001) l_text(001)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B491'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 068(008) l_text(008)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B501'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 077(002) l_text(002)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B511'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 080(001) l_text(001)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B521'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 082(008) l_text(008)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B531'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 091(001) l_text(001)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B541'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 093(002) l_text(002)  no-gap.
  write at (1) ' ' no-gap.
  write at 252(1) '|' no-gap.
  new-line.
  write at (1) '|' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B551'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 002(010) l_text(010)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B561'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 013(005) l_text(005)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B571'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 019(010) l_text(010)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B581'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 030(012) l_text(012)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B591'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 043(010) l_text(010)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B601'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 054(012) l_text(012)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B611'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 067(010) l_text(010)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B621'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 078(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B631'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 082(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B641'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 086(017) l_text(017)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B631'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 082(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B661'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 108(017) l_text(017)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B631'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 082(003) l_text(003)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B681'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 130(005) l_text(005)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B691'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 136(007) l_text(007)  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B701'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 144(006) l_text(006)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B711'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 151(006) l_text(006)  right-justified  no-gap.
  write at (1) ' ' no-gap.
  read table %textpool_langu into %textpool_langu_line
                             with key ID = 'I' key = 'B721'.
  if sy-subrc is initial.
    l_text = %textpool_langu_line-entry.
  else.
    clear l_text.
  endif.
  perform replace_vars(rsaqexce) using l_text 'X'.
  write at 158(008) l_text(008)  no-gap.
  write at (1) ' ' no-gap.
  write at 252(1) '|' no-gap.
  new-line.
endform.


form %clear02.

  clear %g00-PLPO-MEINH.
  clear %g00-PLPO-UMREN.
  clear %g00-PLPO-UMREZ.
  clear %g00-PLPO-BMSCH.
  clear %g00-PLPO-MEINH-0204.
  clear %g00-PLPO-LAR01.
  clear %g00-PLPO-VGE01.
  clear %g00-PLPO-VGW01.
  clear %g00-PLPO-VGE01-0207.
  clear %g00-PLPO-LAR02.
  clear %g00-PLPO-VGE02.
  clear %g00-PLPO-VGW02.
  clear %g00-PLPO-VGE02-0210.
  clear %g00-PLPO-LAR03.
  clear %g00-PLPO-VGE03.
  clear %g00-PLPO-VGW03.
  clear %g00-PLPO-VGE03-0213.
  clear %g00-PLPO-LAR04.
  clear %g00-ZPLKO-KTEXT.
  clear %g00-PLPO-VGE04.
  clear %g00-PLPO-VGW04.
  clear %g00-PLPO-VGE04-0217.
  clear %g00-PLPO-LAR05.
  clear %g00-PLPO-VGE05.
  perform %clear03.

endform.


form %clear03.

  clear %g00-PLPO-VGW05.
  clear %g00-PLPO-VGE05-0301.
  clear %g00-PLPO-LAR06.
  clear %g00-PLPO-VGE06.
  clear %g00-PLPO-VGW06.
  clear %g00-PLPO-VGE06-0304.
  clear %g00-PLPO-DAUNO.
  clear %g00-PLPO-DAUNE-0305.
  clear %g00-PLPO-DAUNE.
  clear %g00-PLPO-BUKRS.
  clear %g00-PLPO-ISTTY.
  clear %g00-PLPO-ISTNR.
  clear %g00-PLPO-KALID.
  clear %g00-PLPO-CKSELKZ.
  clear %g00-PLPO-PVZKN.
  clear %g00-PLPO-PHFLG.
  clear %g00-PLPO-PHSEQ.
  perform %clear04.

endform.


form %clear04.

  clear %g00-PLPO-EBELN.
  clear %g00-PLPO-EBELP.
  clear %g00-PLPO-ANDAT.
  clear %g00-PLPO-ANNAM.
  clear %g00-PLPO-AEDAT.
  clear %g00-PLPO-AENAM.
  clear %g00-ZPLKO-DATUV.
  clear %g00-ZPLKO-VERWE.
  clear %g00-ZPLKO-PLNME.
  clear %g00-ZPLKO-LOSVN.
  clear %g00-ZPLKO-PLNME-0410.
  clear %g00-ZPLKO-LOSBS.
  clear %g00-ZPLKO-PLNME-0411.
  clear %g00-ZPLKO-ABANZ.
  clear %g00-ZPLKO-PROFIDNETZ.
  clear %g00-ZPLKO-UMREZ.
  clear %g00-ZPLKO-UMREN.
  clear %g00-ZPLKO-PLNKN.

endform.


form %output_gl.

if %max_prlist <> 0.
  read table %prlist with key tab = 'GGG'.
  if sy-subrc <> 0.
    exit.
  endif.
endif.
set margin 00.
perform complete_page(rsaqexce).
%nochange = space.
new-page.
%glline = 0.
%tab = 'G00'.
%line = 0.
%cont = '0'.
%fint = space.
%fcol = '0'.
%head = 'GGG'.
%cline = 0.
%outflag = space.
%outcomp = space.
%outtotal = space.
%rflag = 'AA'.
if %diact <> space and %diact na 'SWE'. write space. endif.
format reset.
loop.
  %data_selected = 'X'.
  at %fg01.
    %znr = '01'.
    %zgr = '01'.
    %cline = %cline + 1.
    perform %clear02.
    %g00-PLPO-PLNTY = PLPO-PLNTY.
    %g00-ZPLKO-PLNNR = ZPLKO-PLNNR.
    %g00-ZPLKO-PLNAL = ZPLKO-PLNAL.
    %g00-PLPO-PLNKN = PLPO-PLNKN.
    %g00-PLPO-STEUS = PLPO-STEUS.
    %g00-PLPO-WERKS = PLPO-WERKS.
    %g00-PLPO-KTSCH = PLPO-KTSCH.
    %g00-PLPO-DATUV = PLPO-DATUV.
    %g00-PLPO-VORNR = PLPO-VORNR.
    %g00-PLPO-ARBID = PLPO-ARBID.
    %g00-PLPO-LTXA1 = PLPO-LTXA1.
    %g00-PLPO-LTXA2 = PLPO-LTXA2.
    %g00-ZPLKO-WERKS = ZPLKO-WERKS.
    %g00-ZPLKO-STATU = ZPLKO-STATU.
    if %first <> space. append %g00. endif.
    %glline = %glline + 1.
    %lznr = %znr.
    if %diact <> space and %diact na 'SWE'. continue. endif.
    perform check(rsaqexce) using ' '.
    if %rflag = 'E'. exit. endif.
    if %rflag = 'AA'.
      perform reserve(rsaqexce) using 004.
    endif.
    if %rflag(1) = 'A'.
    format reset.
    %fint = 'F'. %fcol = '0'.
    format color 2. %fcol = '2'.
    perform %newline.
    write 002(001) PLPO-PLNTY.
    %line = %glline.
    perform %hide.
    %line = 0.
    if %rflag = 'AA'. hide %cline. endif. hide %zgr.
    perform %hide_color.
    write 004(008) ZPLKO-PLNNR.
    write 013(002) ZPLKO-PLNAL.
    write 016(008) PLPO-PLNKN.
    write 025(004) PLPO-STEUS.
    write 030(004) PLPO-WERKS.
    write 035(007) PLPO-KTSCH.
    write 043(010) PLPO-DATUV.
    write 054(004) PLPO-VORNR.
    write 059(008) PLPO-ARBID.
    write 068(040) PLPO-LTXA1.
    write 109(040) PLPO-LTXA2.
    write 150(004) ZPLKO-WERKS.
    write 155(003) ZPLKO-STATU.
    endif.
  endat.
  at %fg02.
    %znr = '02'.
    %zgr = '01'.
    if %znr > %lznr.
      read table %g00 index %glline.
    endif.
    perform %clear03.
    %g00-PLPO-MEINH = PLPO-MEINH.
    %g00-PLPO-UMREN = PLPO-UMREN.
    %g00-PLPO-UMREZ = PLPO-UMREZ.
    %g00-PLPO-BMSCH = PLPO-BMSCH.
    %g00-PLPO-MEINH-0204 = PLPO-MEINH.
    %g00-PLPO-LAR01 = PLPO-LAR01.
    %g00-PLPO-VGE01 = PLPO-VGE01.
    %g00-PLPO-VGW01 = PLPO-VGW01.
    %g00-PLPO-VGE01-0207 = PLPO-VGE01.
    %g00-PLPO-LAR02 = PLPO-LAR02.
    %g00-PLPO-VGE02 = PLPO-VGE02.
    %g00-PLPO-VGW02 = PLPO-VGW02.
    %g00-PLPO-VGE02-0210 = PLPO-VGE02.
    %g00-PLPO-LAR03 = PLPO-LAR03.
    %g00-PLPO-VGE03 = PLPO-VGE03.
    %g00-PLPO-VGW03 = PLPO-VGW03.
    %g00-PLPO-VGE03-0213 = PLPO-VGE03.
    %g00-PLPO-LAR04 = PLPO-LAR04.
    %g00-ZPLKO-KTEXT = ZPLKO-KTEXT.
    %g00-PLPO-VGE04 = PLPO-VGE04.
    %g00-PLPO-VGW04 = PLPO-VGW04.
    %g00-PLPO-VGE04-0217 = PLPO-VGE04.
    %g00-PLPO-LAR05 = PLPO-LAR05.
    %g00-PLPO-VGE05 = PLPO-VGE05.
    if %znr > %lznr.
      if %first <> space. modify %g00 index %glline. endif.
    else.
      if %first <> space. append %g00. endif.
      %glline = %glline + 1.
    endif.
    %lznr = %znr.
    if %diact <> space and %diact na 'SWE'. continue. endif.
    perform check(rsaqexce) using ' '.
    if %rflag = 'E'. exit. endif.
    if %rflag(1) = 'A'.
    format reset.
    %fint = 'F'. %fcol = '0'.
    format color 2. %fcol = '2'.
    perform %newline.
    write 043(003) PLPO-MEINH.
    %line = %glline.  %cont = '1'.
    perform %hide.
    %line = 0.  %cont = '0'.
    if %rflag = 'AA'. hide %cline. endif. hide %zgr.
    perform %hide_color.
    write 047(006) PLPO-UMREN.
    write 054(006) PLPO-UMREZ.
    write 061(017) PLPO-BMSCH
      unit PLPO-MEINH.
    write 079(003) PLPO-MEINH.
    write 083(006) PLPO-LAR01.
    write 090(003) PLPO-VGE01.
    write 094(011) PLPO-VGW01
      unit PLPO-VGE01.
    write 106(003) PLPO-VGE01.
    write 110(006) PLPO-LAR02.
    write 117(003) PLPO-VGE02.
    write 121(011) PLPO-VGW02
      unit PLPO-VGE02.
    write 133(003) PLPO-VGE02.
    write 137(006) PLPO-LAR03.
    write 144(003) PLPO-VGE03.
    write 148(011) PLPO-VGW03
      unit PLPO-VGE03.
    write 160(003) PLPO-VGE03.
    write 164(006) PLPO-LAR04.
    write 167(040) ZPLKO-KTEXT.
    write 171(003) PLPO-VGE04.
    write 175(011) PLPO-VGW04
      unit PLPO-VGE04.
    write 187(003) PLPO-VGE04.
    write 191(006) PLPO-LAR05.
    write 198(003) PLPO-VGE05.
    endif.
  endat.
  at %fg03.
    %znr = '03'.
    %zgr = '01'.
    if %znr > %lznr.
      read table %g00 index %glline.
    endif.
    perform %clear04.
    %g00-PLPO-VGW05 = PLPO-VGW05.
    %g00-PLPO-VGE05-0301 = PLPO-VGE05.
    %g00-PLPO-LAR06 = PLPO-LAR06.
    %g00-PLPO-VGE06 = PLPO-VGE06.
    %g00-PLPO-VGW06 = PLPO-VGW06.
    %g00-PLPO-VGE06-0304 = PLPO-VGE06.
    %g00-PLPO-DAUNO = PLPO-DAUNO.
    %g00-PLPO-DAUNE-0305 = PLPO-DAUNE.
    %g00-PLPO-DAUNE = PLPO-DAUNE.
    %g00-PLPO-BUKRS = PLPO-BUKRS.
    %g00-PLPO-ISTTY = PLPO-ISTTY.
    %g00-PLPO-ISTNR = PLPO-ISTNR.
    %g00-PLPO-KALID = PLPO-KALID.
    %g00-PLPO-CKSELKZ = PLPO-CKSELKZ.
    %g00-PLPO-PVZKN = PLPO-PVZKN.
    %g00-PLPO-PHFLG = PLPO-PHFLG.
    %g00-PLPO-PHSEQ = PLPO-PHSEQ.
    if %znr > %lznr.
      if %first <> space. modify %g00 index %glline. endif.
    else.
      if %first <> space. append %g00. endif.
      %glline = %glline + 1.
    endif.
    %lznr = %znr.
    if %diact <> space and %diact na 'SWE'. continue. endif.
    perform check(rsaqexce) using ' '.
    if %rflag = 'E'. exit. endif.
    if %rflag(1) = 'A'.
    format reset.
    %fint = 'F'. %fcol = '0'.
    format color 2. %fcol = '2'.
    perform %newline.
    write 002(011) PLPO-VGW05
      unit PLPO-VGE05.
    %line = %glline.  %cont = '2'.
    perform %hide.
    %line = 0.  %cont = '0'.
    if %rflag = 'AA'. hide %cline. endif. hide %zgr.
    perform %hide_color.
    write 014(003) PLPO-VGE05.
    write 018(006) PLPO-LAR06.
    write 025(003) PLPO-VGE06.
    write 029(011) PLPO-VGW06
      unit PLPO-VGE06.
    write 041(003) PLPO-VGE06.
    write 045(007) PLPO-DAUNO
      unit PLPO-DAUNE.
    write 053(003) PLPO-DAUNE.
    write 057(003) PLPO-DAUNE.
    write 061(004) PLPO-BUKRS.
    write 066(001) PLPO-ISTTY.
    write 068(008) PLPO-ISTNR.
    write 077(002) PLPO-KALID.
    write 080(001) PLPO-CKSELKZ.
    write 082(008) PLPO-PVZKN.
    write 091(001) PLPO-PHFLG.
    write 093(002) PLPO-PHSEQ.
    endif.
  endat.
  at %fg04.
    %znr = '04'.
    %zgr = '01'.
    if %znr > %lznr.
      read table %g00 index %glline.
    endif.
    %g00-PLPO-EBELN = PLPO-EBELN.
    %g00-PLPO-EBELP = PLPO-EBELP.
    %g00-PLPO-ANDAT = PLPO-ANDAT.
    %g00-PLPO-ANNAM = PLPO-ANNAM.
    %g00-PLPO-AEDAT = PLPO-AEDAT.
    %g00-PLPO-AENAM = PLPO-AENAM.
    %g00-ZPLKO-DATUV = ZPLKO-DATUV.
    %g00-ZPLKO-VERWE = ZPLKO-VERWE.
    %g00-ZPLKO-PLNME = ZPLKO-PLNME.
    %g00-ZPLKO-LOSVN = ZPLKO-LOSVN.
    %g00-ZPLKO-PLNME-0410 = ZPLKO-PLNME.
    %g00-ZPLKO-LOSBS = ZPLKO-LOSBS.
    %g00-ZPLKO-PLNME-0411 = ZPLKO-PLNME.
    %g00-ZPLKO-ABANZ = ZPLKO-ABANZ.
    %g00-ZPLKO-PROFIDNETZ = ZPLKO-PROFIDNETZ.
    %g00-ZPLKO-UMREZ = ZPLKO-UMREZ.
    %g00-ZPLKO-UMREN = ZPLKO-UMREN.
    %g00-ZPLKO-PLNKN = ZPLKO-PLNKN.
    if %znr > %lznr.
      if %first <> space. modify %g00 index %glline. endif.
    else.
      if %first <> space. append %g00. endif.
      %glline = %glline + 1.
    endif.
    %lznr = %znr.
    if %diact <> space and %diact na 'SWE'. continue. endif.
    perform check(rsaqexce) using ' '.
    if %rflag = 'E'. exit. endif.
    if %rflag(1) = 'A'.
    format reset.
    %fint = 'F'. %fcol = '0'.
    format color 2. %fcol = '2'.
    perform %newline.
    write 002(010) PLPO-EBELN.
    %line = %glline.  %cont = '3'.
    perform %hide.
    %line = 0.  %cont = '0'.
    if %rflag = 'AA'. hide %cline. endif. hide %zgr.
    perform %hide_color.
    write 013(005) PLPO-EBELP.
    write 019(010) PLPO-ANDAT.
    write 030(012) PLPO-ANNAM.
    write 043(010) PLPO-AEDAT.
    write 054(012) PLPO-AENAM.
    write 067(010) ZPLKO-DATUV.
    write 078(003) ZPLKO-VERWE.
    write 082(003) ZPLKO-PLNME.
    write 086(017) ZPLKO-LOSVN
      unit ZPLKO-PLNME.
    write 104(003) ZPLKO-PLNME.
    write 108(017) ZPLKO-LOSBS
      unit ZPLKO-PLNME.
    write 126(003) ZPLKO-PLNME.
    write 130(005) ZPLKO-ABANZ.
    write 136(007) ZPLKO-PROFIDNETZ.
    write 144(006) ZPLKO-UMREZ.
    write 151(006) ZPLKO-UMREN.
    write 158(008) ZPLKO-PLNKN.
    endif.
  endat.
endloop.
%rflag = 'AA'.
perform %uline.
clear: %cline, %zgr.

endform.



module %init_view output.

  case %tab.
  when 'G00'.
    perform init_pbo(rsaqexce) tables %g00 using tview100 'X'.
  when others.
    message s860(aq).
  endcase.

endmodule.

module %pbo_view output.

  case %tab.
  when 'G00'.
    perform loop_pbo(rsaqexce) tables %g00 using %%g00 tview100.
  endcase.

endmodule.

module %pai_view input.

  case %tab.
  when 'G00'.
    perform loop_pai(rsaqexce) tables %g00 using %%g00 tview100.
  endcase.

endmodule.

module %okcode_view input.

  case %tab.
  when 'G00'.
    perform okcode(rsaqexce) tables %g00 using tview100.
  endcase.

endmodule.

*Text elements
*----------------------------------------------------------
* %Z0 Rank
* %Z1 Total
* %Z2 Number
* %Z3 Proportion
* %Z4 in %
* %Z5 Medium
* %Z6 Value
* A00 Task List Type
* A01 Key for Task List Group
* A02 Group Counter
* A03 Number of the task list node
* A04 Control key
* A05 Plant
* A06 Standard text key
* A07 Valid-From Date
* A08 Operation/Activity Number
* A09 Object ID
* A10 Operation short text
* A11 Second line of the description
* A12 Plant
* A13 Status
* A14 Unit of Measure for Activity/Operation
* A15 Denominator for converting rtg and op units of measure
* A16 Numerator for converting task list and oper. un. of measure
* A17 Base Quantity
* A18 Unit of Measure for Activity/Operation
* A19 Activity Type
* A20 Unit of measure for the standard value
* A21 Standard Value
* A22 Unit of measure for the standard value
* A23 Activity Type
* A24 Unit of measure for the standard value
* A25 Standard Value
* A26 Unit of measure for the standard value
* A27 Activity Type
* A28 Unit of measure for the standard value
* A29 Standard Value
* A30 Unit of measure for the standard value
* A31 Activity Type
* A32 Task list description
* A33 Unit of measure for the standard value
* A34 Standard Value
* A35 Unit of measure for the standard value
* A36 Activity Type
* A37 Unit of measure for the standard value
* A38 Standard Value
* A39 Unit of measure for the standard value
* A40 Activity Type
* A41 Unit of measure for the standard value
* A42 Standard Value
* A43 Unit of measure for the standard value
* A44 Normal duration of the activity
* A45 Normal duration/unit
* A46 Normal duration/unit
* A47 Company Code
* A48 BOM category
* A49 Bill of material
* A50 Factory Calendar
* A51 Indicator for Relevancy to Costing
* A52 Number of the task list node
* A53 Indicator: Phase
* A54 Control Recipe Destination
* A55 Purchasing Document Number
* A56 Item Number of Purchasing Document
* A57 Date record created on
* A58 User who created record
* A59 Changed On
* A60 Name of Person Who Changed Object
* A61 Valid-From Date
* A62 Task list usage
* A63 Task list unit of measure
* A64 From Lot Size
* A65 Task list unit of measure
* A66 To lot size
* A67 Task list unit of measure
* A68 Number of calls
* A69 Profile
* A70 Numerator for converting task list and oper. un. of measure
* A71 Denominator for converting rtg and op units of measure
* A72 Number of the task list node
* B00 TLType
* B001 TLType
* B01 Group
* B011 Group
* B02 GrC
* B021 GrC
* B03 Node
* B031 Node
* B04 Ctrl
* B041 Ctrl
* B05 Plnt
* B051 Plnt
* B06 StTextKy
* B061 StTextKy
* B07 Valid From
* B071 Valid From
* B08 OpAc
* B081 OpAc
* B09 ObjectID
* B091 ObjectID
* B10 Operation short text
* B101 Operation short text
* B11 Description
* B111 Description
* B12 Plnt
* B121 Plnt
* B13 Stat
* B131 Stat
* B14 UoM
* B141 UoM
* B15 Denom.
* B151 Denom.
* B16 Numer.
* B161 Numer.
* B17 Base Quantity
* B171 Base Quantity
* B18 UoM
* B181 UoM
* B19 ActTyp
* B191 ActTyp
* B20 Unit
* B201 Unit
* B21 StdVal
* B211 StdVal
* B22 Unit
* B221 Unit
* B23 ActTyp
* B231 ActTyp
* B24 Unit
* B241 Unit
* B25 StdVal
* B251 StdVal
* B26 Unit
* B261 Unit
* B27 ActTyp
* B271 ActTyp
* B28 Unit
* B281 Unit
* B29 StdVal
* B291 StdVal
* B30 Unit
* B301 Unit
* B31 ActTyp
* B311 ActTyp
* B32 Task list description
* B321 Task list description
* B33 Unit
* B331 Unit
* B34 StdVal
* B341 StdVal
* B35 Unit
* B351 Unit
* B36 ActTyp
* B361 ActTyp
* B37 Unit
* B371 Unit
* B38 StdVal
* B381 StdVal
* B39 Unit
* B391 Unit
* B40 ActTyp
* B401 ActTyp
* B41 Unit
* B411 Unit
* B42 StdVal
* B421 StdVal
* B43 Unit
* B431 Unit
* B44 NorDur
* B441 NorDur
* B45 Un.
* B451 Un.
* B46 Un.
* B461 Un.
* B47 CoCd
* B471 CoCd
* B48 BOMcat
* B481 BOMcat
* B49 BOM
* B491 BOM
* B50 Factory Calendar ID
* B501 Factory Calendar ID
* B51 Relevancy to Costing Indicator
* B511 Relevancy to Costing Indicator
* B52 Node
* B521 Node
* B53 Ph
* B531 Ph
* B54 CRD
* B541 CRD
* B55 Purch.Doc.
* B551 Purch.Doc.
* B56 Item
* B561 Item
* B57 Created
* B571 Created
* B58 Created by
* B581 Created by
* B59 Chngd on
* B591 Chngd on
* B60 Changed by
* B601 Changed by
* B61 Valid From
* B611 Valid From
* B62 Usage
* B621 Usage
* B63 Unit
* B631 Unit
* B64 From Lot Size
* B641 From Lot Size
* B65 Unit
* B651 Unit
* B66 To lot size
* B661 To lot size
* B67 Unit
* B671 Unit
* B68 No.calls
* B681 No.calls
* B69 Profile
* B691 Profile
* B70 Numer.
* B701 Numer.
* B71 Denom.
* B711 Denom.
* B72 Node
* B721 Node
* F01 Total
* F02 Overall total
* F03 Number of
* F04 Total number
* F05 File name
* F13 (Continue)
* F15 Total number
* F16 Share in %
* F17 Mean value
* F18 Sequence
* F40 Currency translation date
* F41 ExRateType
* F42 Ref. currency (optional)
* F43 Number of ranked list places
* F57 Options
* F58 Program selections
* F59 Output format
* F60 Spreadsheet
* F61 Graphic
* F62 Save with ID
* F63 Executive Info System (EIS)
* F64 File store
* F65 Private file
* F66 ABAP List
* F67 ID
* F68 Display as table
* F69 Word processing
* F70 ABC analysis
* F71 File name
* F72 SAP List Viewer
* F73 Additional functions
* F74 Function
* F75 Layout variant
* GH000001 |T Group    Gr Node     Ctrl Plnt StTextK Valid From OpAc ObjectID Operation short text                     Description                              Plnt Sta                                                                                              |
* GH000002 |                                         UoM Denom. Numer.    Base Quantity  UoM ActTyp Uni     StdVal  Uni ActTyp Uni     StdVal  Uni ActTyp Uni     StdVal  Uni ActTaskUnis    StdVal oUni ActTyp Uni                                                   |
* GH000003 |    StdVal  Uni ActTyp Uni     StdVal  Uni NorDur  Un. Un. CoCd B BOM      Fa R Node     P CR                                                                                                                                                             |
* GH000004 |Purch.Doc. Item  Created    Created by   Chngd on   Changed by   Valid From Usa Uni    From Lot Size  Uni      To lot size  Uni No.ca Profile Numer. Denom. Node                                                                                          |
* GRL Task Operation
* H00 


*Selection texts
*----------------------------------------------------------
* %ABC         ABC analysis
* %ALV         SAP List Viewer
* %ALVL         Layout variant
* %DOWN         File store
* %EIS         Executive Info System (EIS)
* %EXCEL         Spreadsheet
* %GRAPH         Graphic
* %LISTID         ID
* %NOFUNC         ABAP List
* %PATH         File name
* %PRIV         Private file
* %SAVE         Save with ID
* %TEXT         Word processing
* %TVIEW         Display as table
* %XINT         Additional functions
* %XINTK         Function
* SP$00001         Plant
* SP$00003         Key for Task List Group
* SP$00007         Controlling area of the requesting cost center
* SP$00009         Internal counter
* SP$00010         Group Counter


*Messages
*----------------------------------------------------------
*
* Message class: AQ
*260   No data was selected
*841   Display cannot be in table form in the WebGUI
*842   It is not possible to download to Excel in the WebGui
*860   Position the cursor correctly
*894   Blank unit field found

Generated by Sap Land