Abap program causing MEMORY_NO_MORE_PAGING

Former Member — Wed, 25 Jul 2007 00:53:20 GMT

Please help me to crack the code, which is causing the dump MEMORY_NO_MORE_PAGING.

============================================================

report AQA0ZFINAPP=====ZFINAPP_ARINV=

line-size 255 no standard page heading line-count 000(001).

include <symbol>.

include <icon>.

selection-screen: begin of block prog

with frame title text-f58.

tables BKPF.

data %count-BKPF(4) type x.

data %linr-BKPF(2).

tables BSEG.

data %count-BSEG(4) type x.

data %linr-BSEG(2).

tables T001.

data %count-T001(4) type x.

data %linr-T001(2).

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(0255),

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 TEXT_BKPF_BLART like T003T-LTEXT.

data TEXT_BKPF_BUKRS like T001-BUTXT.

data TEXT_BKPF_USNAM like ADDR3_VAL-NAME_TEXT.

data TEXT_BSEG_BUKRS like T001-BUTXT.

data TEXT_BSEG_KUNNR like KNA1-NAME1.

data TEXT_BSEG_SEGMENT like FAGL_SEGMT-NAME.

data TEXT_BSEG_SHKZG like DD07D-DDTEXT.

data TEXT_BSEG_ZZCOMM_CD like ZCOMMODITY-ZZCOMM_DS.

data TEXT_BSEG_ZZMFG_CD like ZMFG-ZZMFG_DS.

data TEXT_EKKO_LIFNR like LFA1-NAME1.

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 BKPF-BLART memory id BAR.

select-options SP$00002 for BKPF-BLDAT.

select-options SP$00003 for BKPF-BUDAT.

select-options SP$00005 for BKPF-BUKRS memory id BUK.

select-options SP$00004 for BKPF-GJAHR memory id GJR.

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 default 'X' .

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.

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.

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,

BKPF-BUKRS like BKPF-BUKRS,

BKPF-BELNR like BKPF-BELNR,

BKPF-BLART like BKPF-BLART,

BKPF-BLDAT like BKPF-BLDAT,

BKPF-BUDAT like BKPF-BUDAT,

BKPF-WWERT like BKPF-WWERT,

BKPF-XBLNR like BKPF-XBLNR,

BKPF-BKTXT like BKPF-BKTXT,

BKPF-AWKEY like BKPF-AWKEY,

BSEG-XREF1 like BSEG-XREF1,

BSEG-XREF2 like BSEG-XREF2,

BSEG-BUKRS like BSEG-BUKRS,

BSEG-BUZEI like BSEG-BUZEI,

BSEG-HKONT like BSEG-HKONT,

BSEG-SEGMENT like BSEG-SEGMENT,

BSEG-PRCTR like BSEG-PRCTR,

BSEG-KOSTL like BSEG-KOSTL,

BSEG-ZZCOMM_CD like BSEG-ZZCOMM_CD,

BSEG-ZZMFG_CD like BSEG-ZZMFG_CD,

TEXT_BSEG_SHKZG like TEXT_BSEG_SHKZG,

BSEG-WRBTR like BSEG-WRBTR,

BKPF-WAERS-0121 like BKPF-WAERS,

BSEG-DMBTR like BSEG-DMBTR,

T001-WAERS-0122 like T001-WAERS,

BSEG-DMBE2 like BSEG-DMBE2,

BKPF-HWAE2-0123 like BKPF-HWAE2,

BSEG-DMBE3 like BSEG-DMBE3,

BKPF-HWAE3-0124 like BKPF-HWAE3,

BSEG-KUNNR like BSEG-KUNNR,

TEXT_BSEG_KUNNR like TEXT_BSEG_KUNNR,

end of %g00.

data: begin of %%g00,

BKPF-BUKRS(004),

BKPF-BELNR(010),

BKPF-BLART(002),

BKPF-BLDAT(010),

BKPF-BUDAT(010),

BKPF-WWERT(010),

BKPF-XBLNR(016),

BKPF-BKTXT(025),

BKPF-AWKEY(020),

BSEG-XREF1(012),

BSEG-XREF2(012),

BSEG-BUKRS(004),

BSEG-BUZEI(003),

BSEG-HKONT(010),

BSEG-SEGMENT(010),

BSEG-PRCTR(010),

BSEG-KOSTL(010),

BSEG-ZZCOMM_CD(003),

BSEG-ZZMFG_CD(004),

TEXT_BSEG_SHKZG(060),

BSEG-WRBTR(016),

BKPF-WAERS-0121 like BKPF-WAERS,

BSEG-DMBTR(016),

T001-WAERS-0122 like T001-WAERS,

BSEG-DMBE2(016),

BKPF-HWAE2-0123 like BKPF-HWAE2,

BSEG-DMBE3(016),

BKPF-HWAE3-0124 like BKPF-HWAE3,

BSEG-KUNNR(010),

TEXT_BSEG_KUNNR(035),

end of %%g00.

data %znr type i.

data %lznr type i value 99999.

field-groups header.

field-groups %fg01.

data %any-01.

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).

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-BKPF into header.

insert %linr-BKPF into header.

insert %count-BSEG into header.

insert %linr-BSEG into header.

insert BKPF-BUKRS into %fg01.

insert BKPF-BELNR into %fg01.

insert BKPF-BLART into %fg01.

insert BKPF-BLDAT into %fg01.

insert BKPF-BUDAT into %fg01.

insert BKPF-WWERT into %fg01.

insert BKPF-XBLNR into %fg01.

insert BKPF-BKTXT into %fg01.

insert BKPF-AWKEY into %fg01.

insert BSEG-XREF1 into %fg01.

insert BSEG-XREF2 into %fg01.

insert BSEG-BUKRS into %fg01.

insert BSEG-BUZEI into %fg01.

insert BSEG-HKONT into %fg01.

insert BSEG-SEGMENT into %fg01.

insert BSEG-PRCTR into %fg01.

insert BSEG-KOSTL into %fg01.

insert BSEG-ZZCOMM_CD into %fg01.

insert BSEG-ZZMFG_CD into %fg01.

insert TEXT_BSEG_SHKZG into %fg01.

insert BSEG-WRBTR into %fg01.

insert BKPF-WAERS into %fg01.

insert BSEG-DMBTR into %fg01.

insert T001-WAERS into %fg01.

insert BSEG-DMBE2 into %fg01.

insert BKPF-HWAE2 into %fg01.

insert BSEG-DMBE3 into %fg01.

insert BKPF-HWAE3 into %fg01.

insert BSEG-KUNNR into %fg01.

insert TEXT_BSEG_KUNNR into %fg01.

perform init_texthandling(rsaqexce) using 'CL_TEXT_IDENTIFIER' ' ' 'ZFINAPP_BRM'.

"webgui

data: %ret type i.

if sy-subrc is initial and %excel is not initial.

perform check_wingui(rsaqsyst) using %ret.

if %ret <> 0.

message e842(aq).

endif.

"webgui

perform %comp_ldesc.

GET BKPF .

%dbacc = %dbacc - 1.

if %dbacc = 0.

stop.

endif.

check SP$00001.

check SP$00002.

check SP$00003.

check SP$00005.

check SP$00004.

add 1 to %count-BKPF.

%linr-BKPF = '99'.

GET BSEG .

%dbacc = %dbacc - 1.

if %dbacc = 0.

perform %_get_BKPF_late in program (sy-cprog) if found

using %selected BKPF.

stop.

endif.

perform textfield_refresh(rsaqexce).

perform textfield_context(rsaqexce) using 'BSEG' BSEG.

perform textfield_context(rsaqexce) using 'BKPF' BKPF.

perform textfield_call(rsaqexce) using BSEG 'BSEG' 'KUNNR' TEXT_BSEG_KUNNR.

perform textfield_call(rsaqexce) using BSEG 'BSEG' 'SHKZG' TEXT_BSEG_SHKZG.

add 1 to %count-BSEG.

%linr-BSEG = '01'.

extract %fg01.

%linr-BSEG = '99'.

END-OF-SELECTION.

sort as text.

%diact = space.

%printon = space.

%batch = sy-batch.

if %batch <> space.

if %alv <> space.

%diact = 'V'.

%printon = 'X'.

%alv_layout = %alvl.

new-page print on destination 'NULL' no dialog

line-size 0255 line-count 0065.

endif.

if %save <> space.

%diact = 'S'.

%printon = 'X'.

new-page print on destination 'NULL' no dialog

line-size 0255 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 %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 0255 line-count 0065.

endif.

%pathname = %path.

if %diact = 'I'.

%functionkey = %xintk.

endif.

if %diact = 'V'.

%alv_layout = %alvl.

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 0255 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.

else.

perform pf-status(rsaqexce) using 'XX '.

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.

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.

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 '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.

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 'G00010000X004 00 01'

%txt1 %txt2 %txt3 'BKPF-BUKRS' BKPF-BUKRS 'BKPF-BUKRS'.

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 'G00020000X010 00 01'

%txt1 %txt2 %txt3 'BKPF-BELNR' BKPF-BELNR 'BKPF-BELNR'.

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 01'

%txt1 %txt2 %txt3 'BKPF-BLART' BKPF-BLART 'BKPF-BLART'.

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 'G00040000X010 00 01'

%txt1 %txt2 %txt3 'BKPF-BLDAT' BKPF-BLDAT 'BKPF-BLDAT'.

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 'G00050000X010 00 01'

%txt1 %txt2 %txt3 'BKPF-BUDAT' BKPF-BUDAT 'BKPF-BUDAT'.

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 'G00060000X010 00 01'

%txt1 %txt2 %txt3 'BKPF-WWERT' BKPF-WWERT 'BKPF-WWERT'.

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 'G00070000X016 00 01'

%txt1 %txt2 %txt3 'BKPF-XBLNR' BKPF-XBLNR 'BKPF-XBLNR'.

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 'G00080000X025 00 01'

%txt1 %txt2 %txt3 'BKPF-BKTXT' BKPF-BKTXT 'BKPF-BKTXT'.

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 'G00090000X020 00 01'

%txt1 %txt2 %txt3 'BKPF-AWKEY' BKPF-AWKEY 'BKPF-AWKEY'.

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 'G00100000X012 00 01'

%txt1 %txt2 %txt3 'BSEG-XREF1' BSEG-XREF1 'BSEG-XREF1'.

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 'G00110000X012 00 01'

%txt1 %txt2 %txt3 'BSEG-XREF2' BSEG-XREF2 'BSEG-XREF2'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00120000X004 00 02'

%txt1 %txt2 %txt3 'BSEG-BUKRS' BSEG-BUKRS 'BSEG-BUKRS'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00130000X003 00 02'

%txt1 %txt2 %txt3 'BSEG-BUZEI' BSEG-BUZEI 'BSEG-BUZEI'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00140000X010 00 02'

%txt1 %txt2 %txt3 'BSEG-HKONT' BSEG-HKONT 'BSEG-HKONT'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00150000X010 00 02'

%txt1 %txt2 %txt3 'BSEG-SEGMENT' BSEG-SEGMENT 'BSEG-SEGMENT'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00160000X010 00 02'

%txt1 %txt2 %txt3 'BSEG-PRCTR' BSEG-PRCTR 'BSEG-PRCTR'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00170000X010 00 02'

%txt1 %txt2 %txt3 'BSEG-KOSTL' BSEG-KOSTL 'BSEG-KOSTL'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00180000X003 00 02'

%txt1 %txt2 %txt3 'BSEG-ZZCOMM_CD' BSEG-ZZCOMM_CD 'BSEG-ZZCOMM_CD'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00190000X004 00 02'

%txt1 %txt2 %txt3 'BSEG-ZZMFG_CD' BSEG-ZZMFG_CD 'BSEG-ZZMFG_CD'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00201000X060 00 02'

%txt1 %txt2 %txt3 'TEXT_BSEG_SHKZG' TEXT_BSEG_SHKZG 'TEXT_BSEG_SHKZG'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00211063 016F 00 02'

%txt1 %txt2 %txt3 'BSEG-WRBTR' BSEG-WRBTR 'BSEG-WRBTR'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00221000 005W 00 02'

%txt1 %txt2 %txt3 'BKPF-WAERS' BKPF-WAERS 'BKPF-WAERS-0121'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00231086 016F 00 02'

%txt1 %txt2 %txt3 'BSEG-DMBTR' BSEG-DMBTR 'BSEG-DMBTR'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00241000 005W 00 02'

%txt1 %txt2 %txt3 'T001-WAERS' T001-WAERS 'T001-WAERS-0122'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00251109 016F 00 02'

%txt1 %txt2 %txt3 'BSEG-DMBE2' BSEG-DMBE2 'BSEG-DMBE2'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00261000 005W 00 02'

%txt1 %txt2 %txt3 'BKPF-HWAE2' BKPF-HWAE2 'BKPF-HWAE2-0123'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00271132 016F 00 02'

%txt1 %txt2 %txt3 'BSEG-DMBE3' BSEG-DMBE3 'BSEG-DMBE3'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00281000 005W 00 02'

%txt1 %txt2 %txt3 'BKPF-HWAE3' BKPF-HWAE3 'BKPF-HWAE3-0124'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00291000X010 00 02'

%txt1 %txt2 %txt3 'BSEG-KUNNR' BSEG-KUNNR 'BSEG-KUNNR'.

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 = 'H01'.

if sy-subrc is initial. %txt3 = %textpool_langu_line-entry.

else. %txt3 = %txt_unknown.

endif.

perform ldesc(rsaqexce) using 'G00301000X035 00 02'

%txt1 %txt2 %txt3 'TEXT_BSEG_KUNNR' TEXT_BSEG_KUNNR 'TEXT_BSEG_KUNNR'.

perform gdesc(rsaqexce) using 'G00' 1 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 205 %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 = 205.

%uflag = space.

new-line.

write: '|', 205 '|'.

position 2.

endform.

form %skip using count.

if sy-linno > 1.

%uflag = space.

do count times.

new-line.

format reset.

write: '|', 205 '|'.

enddo.

endif.

endform.

form %uline.

if %uflag = space.

if sy-linno > 1.

uline /1(205).

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.

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 = 0255.

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 + 2.

if 2 = 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 000(004) l_text(004) 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 000(010) l_text(010) 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 000(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 000(010) l_text(010) 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 000(010) l_text(010) 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 000(010) l_text(010) 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 000(016) l_text(016) 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 000(025) l_text(025) 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 000(020) l_text(020) 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 000(012) l_text(012) 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 000(012) l_text(012) 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 000(004) l_text(004) 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 000(003) l_text(003) 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 000(010) l_text(010) 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 000(010) l_text(010) 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 000(010) l_text(010) 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 000(010) l_text(010) 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 000(003) l_text(003) no-gap.

write at (1) '|' no-gap.

read table %textpool_langu into %textpool_langu_line

with key ID = 'I' key = 'B181'.

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 000(004) l_text(004) no-gap.

write at (1) ' ' no-gap.

write at 205(1) '|' no-gap.

new-line.

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 000(060) l_text(060) 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 000(016) l_text(016) right-justified no-gap.

write at (1) ' ' no-gap.

write at 080(005) ' ' no-gap.

write at (1) '|' no-gap.

read table %textpool_langu into %textpool_langu_line

with key ID = 'I' key = 'B221'.

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 000(016) l_text(016) right-justified no-gap.

write at (1) ' ' no-gap.

write at 103(005) ' ' 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 000(016) l_text(016) right-justified no-gap.

write at (1) ' ' no-gap.

write at 126(005) ' ' no-gap.

write at (1) '|' no-gap.

read table %textpool_langu into %textpool_langu_line

with key ID = 'I' key = 'B261'.

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 000(016) l_text(016) right-justified no-gap.

write at (1) ' ' no-gap.

write at 149(005) ' ' 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 000(010) l_text(010) 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 000(035) l_text(035) no-gap.

write at (1) ' ' no-gap.

write at 205(1) '|' no-gap.

new-line.

endform.

form %output_gl.

if %max_prlist <> 0.

read table %prlist with key tab = 'GGG'.

if sy-subrc <> 0.

exit.

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.

%g00-BKPF-BUKRS = BKPF-BUKRS.

%g00-BKPF-BELNR = BKPF-BELNR.

%g00-BKPF-BLART = BKPF-BLART.

%g00-BKPF-BLDAT = BKPF-BLDAT.

%g00-BKPF-BUDAT = BKPF-BUDAT.

%g00-BKPF-WWERT = BKPF-WWERT.

%g00-BKPF-XBLNR = BKPF-XBLNR.

%g00-BKPF-BKTXT = BKPF-BKTXT.

%g00-BKPF-AWKEY = BKPF-AWKEY.

%g00-BSEG-XREF1 = BSEG-XREF1.

%g00-BSEG-XREF2 = BSEG-XREF2.

%g00-BSEG-BUKRS = BSEG-BUKRS.

%g00-BSEG-BUZEI = BSEG-BUZEI.

%g00-BSEG-HKONT = BSEG-HKONT.

%g00-BSEG-SEGMENT = BSEG-SEGMENT.

%g00-BSEG-PRCTR = BSEG-PRCTR.

%g00-BSEG-KOSTL = BSEG-KOSTL.

%g00-BSEG-ZZCOMM_CD = BSEG-ZZCOMM_CD.

%g00-BSEG-ZZMFG_CD = BSEG-ZZMFG_CD.

%g00-TEXT_BSEG_SHKZG = TEXT_BSEG_SHKZG.

%g00-BSEG-WRBTR = BSEG-WRBTR.

%g00-BKPF-WAERS-0121 = BKPF-WAERS.

%g00-BSEG-DMBTR = BSEG-DMBTR.

%g00-T001-WAERS-0122 = T001-WAERS.

%g00-BSEG-DMBE2 = BSEG-DMBE2.

%g00-BKPF-HWAE2-0123 = BKPF-HWAE2.

%g00-BSEG-DMBE3 = BSEG-DMBE3.

%g00-BKPF-HWAE3-0124 = BKPF-HWAE3.

%g00-BSEG-KUNNR = BSEG-KUNNR.

%g00-TEXT_BSEG_KUNNR = TEXT_BSEG_KUNNR.

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(1) = 'A'.

format reset.

%fint = 'F'. %fcol = '0'.

format color 2. %fcol = '2'.

perform %newline.

write 002(004) BKPF-BUKRS no-gap

intensified off

color 2 on.

write '|' no-gap.

%line = %glline.

perform %hide.

%line = 0.

perform %hide_color.

write 007(010) BKPF-BELNR no-gap

intensified off

color 2 on.

write '|' no-gap.

write 018(002) BKPF-BLART no-gap

intensified off

color 2 on.

write '|' no-gap.

write 021(010) BKPF-BLDAT no-gap

intensified off

color 2 on.

write '|' no-gap.

write 032(010) BKPF-BUDAT no-gap

intensified off

color 2 on.

write '|' no-gap.

write 043(010) BKPF-WWERT no-gap

intensified off

color 2 on.

write '|' no-gap.

write 054(016) BKPF-XBLNR no-gap

intensified off

color 2 on.

write '|' no-gap.

write 071(025) BKPF-BKTXT no-gap

intensified off

color 2 on.

write '|' no-gap.

write 097(020) BKPF-AWKEY no-gap

intensified off

color 2 on.

write '|' no-gap.

write 118(012) BSEG-XREF1 no-gap

intensified off

color 2 on.

write '|' no-gap.

write 131(012) BSEG-XREF2 no-gap

intensified off

color 2 on.

write '|' no-gap.

write 144(004) BSEG-BUKRS no-gap

intensified off

color 2 on.

write '|' no-gap.

write 149(003) BSEG-BUZEI no-gap

intensified off

color 2 on.

write '|' no-gap.

write 153(010) BSEG-HKONT no-gap

intensified off

color 2 on.

write '|' no-gap.

write 164(010) BSEG-SEGMENT no-gap

intensified off

color 2 on.

write '|' no-gap.

write 175(010) BSEG-PRCTR no-gap

intensified off

color 2 on.

write '|' no-gap.

write 186(010) BSEG-KOSTL no-gap

intensified off

color 2 on.

write '|' no-gap.

write 197(003) BSEG-ZZCOMM_CD no-gap

intensified off

color 2 on.

write '|' no-gap.

write 201(004) BSEG-ZZMFG_CD

intensified off

color 2 on.

perform %newline.

write 002(060) TEXT_BSEG_SHKZG no-gap

intensified off

color 2 on.

write '|' no-gap.

%line = %glline. %cont = '1'.

perform %hide.

%line = 0. %cont = '0'.

perform %hide_color.

write 063(016) BSEG-WRBTR

currency BKPF-WAERS

intensified off

color 2 on.

write 080(005) BKPF-WAERS no-gap

intensified off

color 2 on.

write '|' no-gap.

write 086(016) BSEG-DMBTR

currency T001-WAERS

intensified off

color 2 on.

write 103(005) T001-WAERS no-gap

intensified off

color 2 on.

write '|' no-gap.

write 109(016) BSEG-DMBE2

currency BKPF-HWAE2

intensified off

color 2 on.

write 126(005) BKPF-HWAE2 no-gap

intensified off

color 2 on.

write '|' no-gap.

write 132(016) BSEG-DMBE3

currency BKPF-HWAE3

intensified off

color 2 on.

write 149(005) BKPF-HWAE3 no-gap

intensified off

color 2 on.

write '|' no-gap.

write 155(010) BSEG-KUNNR no-gap

intensified off

color 2 on.

write '|' no-gap.

write 166(035) TEXT_BSEG_KUNNR

intensified off

color 2 on.

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 ' '.

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.

topic Abap program causing MEMORY_NO_MORE_PAGING in Application Development and Automation Discussions

Abap program causing MEMORY_NO_MORE_PAGING

Re: Abap program causing MEMORY_NO_MORE_PAGING

Re: Abap program causing MEMORY_NO_MORE_PAGING

Re: Abap program causing MEMORY_NO_MORE_PAGING

Re: Abap program causing MEMORY_NO_MORE_PAGING