Re: Session errors

Former Member — Fri, 01 Dec 2006 17:25:25 GMT

hi,

u can use the below program to get the logfile into excel

You need to provide the session QUEUE ID as input. Please use the code below.

REPORT ZDOWNLOAD_LOG MESSAGE-ID 00.

PARAMETERS:

queue_id LIKE apqi-qid OBLIGATORY.

INCLUDE rsbdcil3. "Read plain log from TemSe

TYPE-POOLS: icon, sdydo.

TABLES:

apqi, apqd, apql, t100, snap.

CONTROLS:

tc_tcodes TYPE TABLEVIEW USING SCREEN 200,

tc_dynpro TYPE TABLEVIEW USING SCREEN 300,

tc_protocol TYPE TABLEVIEW USING SCREEN 400,

tc_bdcld TYPE TABLEVIEW USING SCREEN 600,

tc_q_tcodes TYPE TABLEVIEW USING SCREEN 700,

tab_dynpro TYPE TABSTRIP,

tab_apqi TYPE TABSTRIP.

FIELD-SYMBOLS:

DATA:

this table keeps those tcodes actually displayed

BEGIN OF bdc_tcodes OCCURS 0,

index TYPE i, tcode LIKE sy-tcode, status(1), s_text(16),

END OF bdc_tcodes,

this table keeps all tcodes of the session

BEGIN OF all_bdc_tcodes OCCURS 0,

index TYPE i, tcode LIKE sy-tcode, status(1), s_text(16),

END OF all_bdc_tcodes.

DATA:

this table keeps those dynpros actually displayed

BEGIN OF bdc_dynpro OCCURS 0,

program LIKE sy-cprog, dynpro LIKE sy-dynnr,

fnam LIKE bdcdata-fnam, fval LIKE bdcdata-fval,

index TYPE i,

END OF bdc_dynpro,

this table keeps all dynpros of the session

BEGIN OF all_bdc_dynpro OCCURS 0,

program LIKE sy-cprog, dynpro LIKE sy-dynnr,

fnam LIKE bdcdata-fnam, fval LIKE bdcdata-fval,

index TYPE i,

END OF all_bdc_dynpro,

dynpro_index TYPE i,

cat_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

DATA:

this table keeps protocol lines to be displayed

BEGIN OF bdc_protocol OCCURS 0.

INCLUDE STRUCTURE bdclm.

DATA:

longtext TYPE bdc_mpar,

END OF bdc_protocol.

DATA:

it_apqd LIKE apqd OCCURS 0 WITH HEADER LINE,

udat LIKE apqd-vardata, sdat LIKE apqd-vardata.

DATA:

BEGIN OF tf OCCURS 0, "interne tabelle mit dynprofeldern

count TYPE i VALUE 0, "zum abmischen

trcd(4),stat(4),

pgm(8), "programmname

dyn(4) TYPE n, "dynpronummer

fname(35), farg(132), fstart(5) TYPE p, fende(5) TYPE p,

END OF tf.

needed for check if TemSe interface is active:

DATA: protparam(60) VALUE 'bdc/new_protocol',

newprot(3) VALUE 'off'.

message header

DATA:

BEGIN OF bdcmh,

mtype, state,

tcode(20), " (4 -> 20)

prog(40), " (8 -> 40)

dynr(4), sepc, filler,

END OF bdcmh.

transaction header

DATA:

BEGIN OF bdcth,

mtype, state,

tcode(20), " (4 -> 20)

postg, print,

msgid(20), " (2 -> 20)

END OF bdcth.

DATA:

bdcmhlen TYPE i VALUE 68, " (20 -> 68 ) MessageHeaderlaenge

dcnt TYPE i, tcnt TYPE i, gencnt TYPE i, delcnt TYPE i, wcount TYPE i,

mfstart TYPE i, mfende TYPE i, mflen TYPE i, mfart(2).

DATA BEGIN OF bdclm OCCURS 0. " ITabelle der Messageseintraege

INCLUDE STRUCTURE bdclm. " LogTabelle

DATA: counter TYPE i,

longtext TYPE bdc_mpar,

isdetail(1) TYPE c,

END OF bdclm .

DATA: lm LIKE bdclm,

save_mpar TYPE bdc_mpar.

DATA BEGIN OF bdcld OCCURS 0. " ITabelle der Verzeichniseintraege

INCLUDE STRUCTURE bdcld. " LogTabelle aller Protokolle

DATA: logname(80), " protokollpfad

local_host(12), " lokaler rechner

cnt TYPE i, " satzzaehler

active(1) TYPE c, " active flag

temseid TYPE rstsoname. " TemSe ID

DATA END OF bdcld .

DATA:

logtab LIKE bdcld OCCURS 0 WITH HEADER LINE,

logtab_temse LIKE apql OCCURS 0 WITH HEADER LINE.

DATA:

main_okcode TYPE fcode,

d0500_fcode TYPE fcode,

d0600_fcode TYPE fcode,

d0700_fcode TYPE fcode,

d0701_fcode TYPE fcode,

tc_mark(1),

counter TYPE i,

status_icon(32),

dynprotab_subscreen_dynpro LIKE sy-dynnr,

header_subscreen_dynpro LIKE sy-dynnr.

DATA:

ex_date(12), string(48), tab_proto(48).

Radio buttons and checkbox on screen 0500

DATA:

BEGIN OF rb,

tcodes_all VALUE 'X', tcodes_error,

fieldlist VALUE ' ',

pro_all VALUE 'X', pro_tcode, pro_session,

log_detail,

END OF rb.

DATA:

Flags for identifying contents of the bdc_... tables

bdc_tcodes_content(1), "a: all, e: errors

bdc_dynpro_content(1), "f: fieldlist, s: screens only

bdc_protocol_content(1), "a: all, t: for transaction, s: for session

bdc_lines LIKE sy-index,

c_field(132),

c_line TYPE i,

selected_index LIKE sy-index,

selected_protocol LIKE sy-index,

tc_index LIKE sy-index,

tc_select LIKE sy-index,

tcode_index LIKE bdc_tcodes-index,

tcode_index_apqd LIKE bdc_tcodes-index,

1st_bdc_tcode_index LIKE bdc_tcodes-index,

i_tcodes TYPE i,

i_protocols TYPE i,

tcode LIKE sy-tcode,

tcode_status(16),

previous_tab(64).

Data needed for CATT simulation of screens

DATA:

BEGIN OF bdc_subscreen,

program LIKE sy-cprog,

dynpro LIKE sy-dynnr,

subscr(64),

END OF bdc_subscreen.

Table for keeping fcodes to be excluded from pf-status

DATA:

BEGIN OF ex_cua OCCURS 2,

fcode LIKE rsmpe-func,

END OF ex_cua.

data for keeping scoll infos

DATA:

current_page LIKE sy-tabix VALUE 1,

new_page LIKE sy-tabix,

total_pages LIKE sy-tabix,

new_line LIKE sy-tabix,

entries LIKE sy-tabix,

loopc LIKE sy-loopc.

data for queue dump

DATA:

BEGIN OF q,

tcode_index LIKE all_bdc_tcodes-index,

itab_index LIKE all_bdc_tcodes-index,

c_field(132),

c_line LIKE sy-index,

c_area(132),

wa LIKE LINE OF all_bdc_tcodes,

control_init VALUE 'X',

reuse_control,

uc_bytes TYPE i,

c(1),

show_hex VALUE ' ',

END OF q.

DATA:

t TYPE sdydo_text_element,

c(128).

TYPES:

BEGIN OF block,

dt TYPE REF TO cl_dd_table_element,

dta TYPE REF TO cl_dd_table_area,

END OF block.

DATA:

it_blocks TYPE STANDARD TABLE OF block,

b_wa TYPE block.

DATA:

dd TYPE REF TO cl_dd_document,

cust TYPE REF TO cl_gui_custom_container.

TYPES:

BEGIN OF cx,

char(1) TYPE c,

hex(4) TYPE x,

xtoc(8) TYPE c,

END OF cx,

uc_1(1) TYPE x,

uc_2(2) TYPE x,

uc_4(4) TYPE x.

DATA:

it_cx TYPE STANDARD TABLE OF cx,

cx TYPE cx.

FIELD-SYMBOLS:

DATA:

BEGIN OF count,

start TYPE i,

index TYPE i,

part TYPE i,

rest TYPE i,

END OF count.

DATA:

cspan TYPE i.

CONSTANTS:

nr_cols TYPE i VALUE 64,

reload_apqi VALUE 'X'.

DATA:

BEGIN OF apqdcnt,

transcntb TYPE apq_tran, "neu

msgcntb TYPE apq_reco,

transcnte TYPE apq_tran, "fehlerhaft

msgcnte TYPE apq_reco,

transcnto TYPE apq_tran, "noch zu verarbeiten

msgcnto TYPE apq_reco,

transcntf TYPE apq_tran, "verarbeitet

msgcntf TYPE apq_reco,

transcntd TYPE apq_tran, "gelöscht

msgcntd TYPE apq_reco,

transcnt TYPE apq_tran, "enthält aktuell

msgcnt TYPE apq_reco,

transcntx TYPE apq_tran, "entfernt

msgcntx TYPE apq_reco,

transcntp TYPE apq_tran, "angelegt

msgcntp TYPE apq_reco,

END OF apqdcnt.

DATA:

dynpro_cnt TYPE i,

show_dynpro_cnt VALUE ' ',

filename TYPE string,

lt_string TYPE char4000 OCCURS 0,

wa_string TYPE char4000,

p_cnt(8).

*----

START-OF-SELECTION.

PERFORM prepare USING queue_id.

CALL SCREEN 100.

*----

*&----

*& Form prepare

*&----

FORM prepare USING qid TYPE apqi-qid.

CLEAR: bdc_tcodes_content, bdc_dynpro_content, bdc_protocol_content.

SELECT SINGLE * FROM apqi WHERE qid = qid.

IF sy-subrc <> 0.

MESSAGE i307(00) WITH 'Lesen'(010) 'mit Queue-ID'(011) qid.

LEAVE PROGRAM.

ENDIF.

PERFORM fill_all_bdc_tcodes. " find all transactions

PERFORM get_logfiles_for_qid. " logfiles -> bdcld

PERFORM get_log USING 1. " most recent log -> bdclm

selected_protocol = 1.

GET PARAMETER ID 'RSBDC_ANALYSE_RB' FIELD rb.

IF sy-subrc <> 0.

rb-tcodes_all = 'X'. rb-pro_all = 'X'.

ENDIF.

ex_cua-fcode = 'FL_ON'. APPEND ex_cua.

ex_cua-fcode = 'FL_OFF'. APPEND ex_cua.

ENDFORM. "prepare

*----

Module loopc

*----

MODULE loopc OUTPUT.

loopc = sy-loopc.

ENDMODULE. "loopc OUTPUT

*----

Module status_main

*----

MODULE status_main OUTPUT.

CLEAR main_okcode.

SET TITLEBAR '0100' WITH apqi-groupid.

LOOP AT SCREEN.

set text of tabstrip tab for protocol display or set tab invisible if
no protocol was found for the qid

IF screen-name = 'TAB_PROTO'.

IF selected_protocol IS INITIAL.

screen-invisible = 1. MODIFY SCREEN.

ELSE.

WRITE bdcld-edate TO ex_date.

CONCATENATE '@96@' 'Protokoll vom'(020) ex_date "ICON_HISTORY

INTO tab_proto SEPARATED BY ' '.

ENDIF.

ENDLOOP.

set header and subscreen dynpro depending on active tab

CASE tab_dynpro-activetab.

WHEN 'TAB_TCODES'.

SET PF-STATUS 'PF_MAIN' EXCLUDING ex_cua.

dynprotab_subscreen_dynpro = '0200'.

header_subscreen_dynpro = '0201'.

WHEN 'TAB_LIST'.

IF rb-fieldlist = 'X'.

SET PF-STATUS 'PF_MAIN_NAVI' EXCLUDING 'FL_ON'.

ELSE.

SET PF-STATUS 'PF_MAIN_NAVI' EXCLUDING 'FL_OFF'.

ENDIF.

dynprotab_subscreen_dynpro = '0300'.

header_subscreen_dynpro = '0301'.

WHEN 'TAB_PROTO'.

IF rb-pro_tcode = 'X'.

SET PF-STATUS 'PF_MAIN_NAVI' EXCLUDING ex_cua.

ELSE.

SET PF-STATUS 'PF_MAIN' EXCLUDING ex_cua.

ENDIF.

dynprotab_subscreen_dynpro = '0400'.

header_subscreen_dynpro = '0401'.

WHEN OTHERS.

SET PF-STATUS 'PF_MAIN' EXCLUDING ex_cua.

tab_dynpro-activetab = 'TAB_TCODES'.

dynprotab_subscreen_dynpro = '0200'.

header_subscreen_dynpro = '0201'.

ENDCASE.

is this the first call?

IF tcode_index IS INITIAL.

tcode_index = 1.

tcode = all_bdc_tcodes-tcode.

tcode_status = all_bdc_tcodes-s_text.

ELSE.

tcode_index was already set in PAI

tcode = bdc_tcodes-tcode.

tcode_status = bdc_tcodes-s_text.

ENDIF.

ENDMODULE. "status_main OUTPUT

*----

Module exit_main

*----

MODULE exit_main INPUT.

SET PARAMETER ID 'RSBDC_ANALYSE_RB' FIELD rb.

LEAVE PROGRAM.

ENDMODULE. "exit_main INPUT

*----

Module user_command_main

*----

MODULE user_command_main INPUT.

IF tab_dynpro-activetab <> 'TAB_TCODES'.

previous_tab = tab_dynpro-activetab.

ENDIF.

CASE main_okcode.

change the active tab

WHEN 'TAB_TCODES'.

tab_dynpro-activetab = 'TAB_TCODES'.

WHEN 'TAB_LIST'.

tab_dynpro-activetab = 'TAB_LIST'.

WHEN 'TAB_PROTO'.

tab_dynpro-activetab = 'TAB_PROTO'.

select entry for display

WHEN 'DISPLAY'.

PERFORM set_new_display.

change the viewing options

WHEN 'VIEW_OPT'.

CALL SCREEN 500 STARTING AT 5 5.

show list of protocols

WHEN 'PROTO'.

IF selected_protocol > 0.

CALL SCREEN 600 STARTING AT 5 5.

ELSE.

MESSAGE s324(00).

ENDIF.

WHEN 'PROTO_REFRESH'.

reload protocol file (while watching running sessions)

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

text = 'Protokoll wird erneut gelesen ...'(006).

PERFORM get_log USING selected_protocol.

PERFORM extend_message_texts.

CLEAR bdc_protocol_content.

switch field list on or off

WHEN 'FL_ON'. rb-fieldlist = 'X'.

WHEN 'FL_OFF'. rb-fieldlist = ' '.

go to first transaction

WHEN 'FIRST'.

IF tcode_index > 1.

READ TABLE bdc_tcodes INDEX 1.

tcode_index = 1.

PERFORM scan_transaction USING bdc_tcodes-index.

CLEAR: bdc_dynpro_content, bdc_protocol_content.

ENDIF.

go to next transaction

WHEN 'NEXT'.

IF tcode_index < i_tcodes.

tcode_index = tcode_index + 1.

READ TABLE bdc_tcodes INDEX tcode_index.

PERFORM scan_transaction USING bdc_tcodes-index.

CLEAR: bdc_dynpro_content, bdc_protocol_content.

ENDIF.

go to previous transaction

WHEN 'PREV'.

IF tcode_index > 1.

tcode_index = tcode_index - 1.

READ TABLE bdc_tcodes INDEX tcode_index.

PERFORM scan_transaction USING bdc_tcodes-index.

CLEAR: bdc_dynpro_content, bdc_protocol_content.

ENDIF.

go to last transaction

WHEN 'LAST'.

IF tcode_index < i_tcodes.

tcode_index = i_tcodes.

READ TABLE bdc_tcodes INDEX i_tcodes.

PERFORM scan_transaction USING bdc_tcodes-index.

CLEAR: bdc_dynpro_content, bdc_protocol_content.

ENDIF.

scrolling in table controls

WHEN 'P-' OR 'P--' OR 'P' OR 'P+'.

PERFORM scrolling.

display queue dump

WHEN 'QUEUE'.

CALL SCREEN '0700'.

display header (APQI)

WHEN 'APQI'.

CALL SCREEN '0701'.

recalculate dynpro counters

WHEN 'DISP_CNT'.

PERFORM recalculate_counters.

leave this nice program

WHEN 'BACK' OR 'END'.

SET PARAMETER ID 'RSBDC_ANALYSE_RB' FIELD rb.

LEAVE PROGRAM.

WHEN OTHERS.

ENDCASE.

if field list or protocol chosen, but no transaction has been
scanned yet, it's now time to read the first transaction from APQD

IF ( main_okcode = 'TAB_LIST' OR

main_okcode = 'TAB_PROTO' ) AND

tcode_index_apqd IS INITIAL.

READ TABLE bdc_tcodes INDEX 1.

IF sy-subrc = 0.

PERFORM scan_transaction USING bdc_tcodes-index.

tcode_index_apqd = bdc_tcodes-index.

ENDIF.

ENDMODULE. "user_command_main INPUT

*----

Module fill_bdc_tcodes
copy transactions from all_bdc_tcodes to bdc_tcodes
according to rb-settings

*----

MODULE fill_bdc_tcodes OUTPUT.

check whether contents are already up to date

IF show_dynpro_cnt = 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'DCT'.

screen-invisible = 0.

screen-active = 1.

MODIFY SCREEN.

ENDIF.

IF screen-name = 'CMD_DISP_CNT'.

screen-invisible = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

IF bdc_tcodes_content = 'A' AND rb-tcodes_all = 'X'.

EXIT.

ELSEIF bdc_tcodes_content = 'E' AND rb-tcodes_error = 'X'.

EXIT.

ENDIF.

fill bdc_tcodes according to the settings in screen 500

CLEAR bdc_tcodes. REFRESH bdc_tcodes.

IF rb-tcodes_all ='X'.

LOOP AT all_bdc_tcodes.

bdc_tcodes = all_bdc_tcodes. APPEND bdc_tcodes.

ENDLOOP.

bdc_tcodes_content = 'A'.

ELSEIF rb-tcodes_error = 'X'.

LOOP AT all_bdc_tcodes WHERE status = 'E'.

bdc_tcodes = all_bdc_tcodes. APPEND bdc_tcodes.

ENDLOOP.

bdc_tcodes_content = 'E'.

ENDIF.

DESCRIBE TABLE bdc_tcodes LINES bdc_lines.

i_tcodes = bdc_lines.

tc_tcodes-lines = bdc_lines.

CLEAR tcode_index_apqd.

READ TABLE bdc_tcodes INDEX 1.

1st_bdc_tcode_index = bdc_tcodes-index.

tcode_index = 1.

ENDMODULE. "fill_bdc_tcodes OUTPUT

*----

Module fill_bdc_dynpro
copy dynpro data from all_bdc_dynpro to bdc_bdc_dynpro
according to rb-settings

*----

MODULE fill_bdc_dynpro OUTPUT.

DATA: wa LIKE LINE OF tc_dynpro-cols,

tline LIKE sy-index.

tline = tc_dynpro-top_line.

tc_dynpro-top_line = tline.

hide fields if no detailed field list shall be displayed

LOOP AT tc_dynpro-cols INTO wa.

IF sy-tabix = 3 OR sy-tabix = 4.

IF rb-fieldlist = 'X'.

CLEAR wa-invisible.

ELSE.

wa-invisible = 1.

ENDIF.

MODIFY tc_dynpro-cols FROM wa.

ENDIF.

ENDLOOP.

is bdc_dynpro_content already correctly filled ?

IF rb-fieldlist = ' ' AND bdc_dynpro_content = 'S'.

EXIT.

ELSEIF rb-fieldlist = 'X' AND bdc_dynpro_content = 'F'.

EXIT.

ENDIF.

CLEAR bdc_dynpro. REFRESH bdc_dynpro.

IF rb-fieldlist = ' '.

LOOP AT all_bdc_dynpro WHERE NOT program IS INITIAL.

bdc_dynpro = all_bdc_dynpro.

APPEND bdc_dynpro.

ENDLOOP.

bdc_dynpro_content = 'S'.

ELSEIF rb-fieldlist = 'X'.

LOOP AT all_bdc_dynpro.

bdc_dynpro = all_bdc_dynpro.

APPEND bdc_dynpro.

ENDLOOP.

bdc_dynpro_content = 'F'.

ENDIF.

DESCRIBE TABLE bdc_dynpro LINES bdc_lines.

tc_dynpro-lines = bdc_lines.

tc_dynpro-top_line = 1.

ENDMODULE. "fill_bdc_dynpro OUTPUT

*----

Module fill_bdc_protocol
copy messages from bdclm to bdc_protocol
according to rb-settings

*----

MODULE fill_bdc_protocol OUTPUT.

IF rb-pro_all = 'X' AND bdc_protocol_content = 'A'.

EXIT.

ELSEIF rb-pro_tcode = 'X' AND bdc_protocol_content = 'T'.

EXIT.

ELSEIF rb-pro_session = 'X' AND bdc_protocol_content = 'S'.

EXIT.

ENDIF.

CLEAR bdc_protocol. REFRESH bdc_protocol.

IF rb-pro_all = 'X'.

LOOP AT bdclm.

IF rb-log_detail = ' ' AND bdclm-isdetail = 'X'.

CONTINUE.

ENDIF.

MOVE-CORRESPONDING bdclm TO bdc_protocol.

APPEND bdc_protocol.

ENDLOOP.

bdc_protocol_content = 'A'.

ELSEIF rb-pro_tcode = 'X'.

LOOP AT bdclm WHERE tcnt = tcode_index_apqd.

IF rb-log_detail = ' ' AND bdclm-isdetail = 'X'.

CONTINUE.

ENDIF.

MOVE-CORRESPONDING bdclm TO bdc_protocol.

APPEND bdc_protocol.

ENDLOOP.

bdc_protocol_content = 'T'.

ELSEIF rb-pro_session = 'X'.

LOOP AT bdclm WHERE tcnt = ' '.

MOVE-CORRESPONDING bdclm TO bdc_protocol.

APPEND bdc_protocol.

ENDLOOP.

bdc_protocol_content = 'S'.

ENDIF.

DESCRIBE TABLE bdc_protocol LINES bdc_lines.

tc_protocol-lines = bdc_lines.

tc_protocol-top_line = 1.

ENDMODULE. "fill_bdc_protocol OUTPUT

*----

Module check_bdc_tcodes

*----

MODULE check_bdc_protocol OUTPUT.

display lines intensified if they contain e- or a-messages

IF bdc_protocol-mart = 'E'

OR bdc_protocol-mart = 'A'.

LOOP AT SCREEN.

screen-intensified = 1. MODIFY SCREEN.

ENDLOOP.

ENDIF.

skip empty lines

IF bdc_protocol-indate IS INITIAL.

EXIT FROM STEP-LOOP.

ENDIF.

ENDMODULE. "check_bdc_protocol OUTPUT

*----

Module get_cursor_position

*----

MODULE get_cursor_position INPUT.

GET CURSOR FIELD c_field LINE c_line.

IF c_line > 0.

CASE tab_dynpro-activetab.

WHEN 'TAB_TCODES'.

selected_index = tc_tcodes-top_line + c_line - 1.

WHEN 'TAB_LIST'.

selected_index = tc_dynpro-top_line + c_line - 1.

WHEN 'TAB_PROTO'.

selected_index = tc_protocol-top_line + c_line - 1.

ENDCASE.

ELSE.

selected_index = 0.

ENDIF.

ENDMODULE. "get_cursor_position INPUT

*----

Module d0500_init

*----

MODULE d0500_init OUTPUT.

SET PF-STATUS 'POPUP'.

SET TITLEBAR '0500'.

ENDMODULE. "d0500_init OUTPUT

*----

Module d0500_fcode

*----

MODULE d0500_fcode INPUT.

LEAVE TO SCREEN 0.

ENDMODULE. "d0500_fcode INPUT

*----

Module d0600_init

*----

MODULE d0600_init OUTPUT.

SET PF-STATUS 'POPUP'.

SET TITLEBAR '0600'.

CLEAR d0600_fcode.

DESCRIBE TABLE bdcld LINES i_protocols.

tc_bdcld-lines = i_protocols.

ENDMODULE. "d0600_init OUTPUT

*----

Module d0500_fcode
read and process another protocol which was selected on
popup dynpro 500

*----

MODULE d0600_fcode INPUT.

CASE d0600_fcode.

WHEN 'POP_CANCEL'.

LEAVE TO SCREEN 0.

WHEN 'POP_OKAY'.

read selected protocol

IF tc_select <> selected_protocol.

CLEAR bdclm. REFRESH bdclm.

CLEAR bdc_protocol_content.

PERFORM get_log USING tc_select.

PERFORM extend_message_texts.

selected_protocol = tc_select.

ENDIF.

LEAVE TO SCREEN 0.

WHEN OTHERS.

scroll in table

ENDCASE.

ENDMODULE. "d0600_fcode INPUT

*----

Module set_mark
set table view marker for the actual selected protocol
(dynpro 500)

*----

MODULE set_mark OUTPUT.

tc_index = tc_bdcld-top_line + tc_bdcld-current_line - 1.

IF tc_index = selected_protocol.

tc_mark = 'X'.

ENDIF.

ENDMODULE. "set_mark OUTPUT

*----

Module get_mark
get index of selected protocol on popup 500

*----

MODULE get_mark INPUT.

IF tc_mark = 'X'.

tc_select = tc_bdcld-top_line + tc_bdcld-current_line - 1.

ENDIF.

ENDMODULE. "get_mark INPUT

*----

FORM: fill_bdc_tcodes
Read all transaction codes from apqd and fill internal table

*----

FORM fill_all_bdc_tcodes.

read APQD blocks 1 for QID

CLEAR all_bdc_tcodes. REFRESH all_bdc_tcodes.

SELECT * FROM apqd WHERE qid = queue_id AND block = 1

ORDER BY PRIMARY KEY.

MOVE apqd-vardata TO bdcth.

all_bdc_tcodes-index = apqd-trans.

all_bdc_tcodes-tcode = bdcth-tcode.

all_bdc_tcodes-status = bdcth-state.

APPEND all_bdc_tcodes.

ENDSELECT.

convert status flag to long text
calculate transaction counters

CLEAR apqdcnt.

LOOP AT all_bdc_tcodes.

ADD 1 TO apqdcnt-transcnt.

CASE all_bdc_tcodes-status.

WHEN 'D' OR 'G'.

all_bdc_tcodes-s_text = 'gelöscht'(005).

ADD 1 TO apqdcnt-transcntd.

WHEN 'F'.

all_bdc_tcodes-s_text = 'verarbeitet'(002).

ADD 1 TO apqdcnt-transcntf.

WHEN 'E'.

all_bdc_tcodes-s_text = 'fehlerhaft'(001).

ADD 1 TO apqdcnt-transcnte.

WHEN 'B'.

all_bdc_tcodes-s_text = ' '. "neu

ADD 1 TO apqdcnt-transcntb.

WHEN OTHERS.

all_bdc_tcodes-s_text = ' '.

ENDCASE.

MODIFY all_bdc_tcodes.

ENDLOOP.

apqdcnt-transcnto = apqdcnt-transcntb

+ apqdcnt-transcnte.

apqdcnt-transcntd = apqdcnt-transcnt

- apqdcnt-transcntf

- apqdcnt-transcnte

- apqdcnt-transcntb.

apqdcnt-transcntp = apqi-puttrans.

apqdcnt-transcntx = apqdcnt-transcntp

- apqdcnt-transcnt.

IF apqi-msgcnt < 1000.

PERFORM recalculate_counters.

ENDIF.

ENDFORM. "fill_all_bdc_tcodes

*----

FORM scan_transaction
Read all APQD data for a selected transaction

*----

FORM scan_transaction USING tcnt.

CLEAR it_apqd. REFRESH it_apqd.

CLEAR all_bdc_dynpro. REFRESH all_bdc_dynpro.

SELECT * FROM apqd INTO TABLE it_apqd

WHERE qid = queue_id AND trans = tcnt.

tcode_index_apqd = tcnt. "Display correct index in header screens

CLEAR dynpro_index.

LOOP AT it_apqd.

IF it_apqd-vardata(1) = 'M'. "it's a message header

dynpro_index = dynpro_index + 1.

PERFORM scan_dynpro.

ENDIF.

ENDLOOP.

ENDFORM. "scan_transaction

*----

FORM: scan_dynpro
Scan APQD data for a single dynpro screen
and put it into a BDCDATA table

*----

FORM scan_dynpro.

MOVE it_apqd-vardata TO bdcmh.

TRANSLATE bdcmh TO UPPER CASE.

get program name and screen number

CLEAR all_bdc_dynpro.

all_bdc_dynpro-index = dynpro_index.

all_bdc_dynpro-program = bdcmh-prog.

all_bdc_dynpro-dynpro = bdcmh-dynr.

APPEND all_bdc_dynpro.

get all the fnam/fval pairs

MOVE it_apqd-vardata TO sdat.

SHIFT sdat BY bdcmhlen PLACES.

wcount = bdcmhlen.

mfstart = wcount.

mfart = 'FN'.

WHILE wcount LE it_apqd-varlen.

IF sdat(1) = bdcmh-sepc.

mfende = wcount.

PERFORM move_tf.

ENDIF.

SHIFT sdat.

wcount = wcount + 1.

ENDWHILE.

ENDFORM. "scan_dynpro

*----

Parse the apqd-vardata field for FNAM/FVAL pairs
FORM: move_tf
fills TF-FNAME and TF-FARG

*----

FORM move_tf.

mflen = mfende - mfstart.

CASE mfart.

WHEN 'FN'.

CLEAR: tf-fname, udat.

tf-fstart = mfstart.

MOVE it_apqd-vardata TO udat.

SHIFT udat BY mfstart PLACES.

WRITE udat TO tf-fname+0(mflen).

TRANSLATE tf-fname TO UPPER CASE.

mfstart = mfende + 1.

mfende = 0.

MOVE 'FA' TO mfart.

WHEN 'FA'.

CLEAR: tf-farg, udat.

tf-fende = mfende.

MOVE it_apqd-vardata TO udat.

SHIFT udat BY mfstart PLACES.

WRITE udat TO tf-farg+0(mflen).

APPEND tf.

tf-stat = space.

mfstart = mfende + 1.

mfende = 0.

MOVE 'FN' TO mfart.

copy to bdcdata table if fname/fval is not empty

CHECK NOT tf-fname IS INITIAL.

CHECK NOT TF-FARG IS INITIAL.

CLEAR all_bdc_dynpro.

all_bdc_dynpro-index = dynpro_index.

all_bdc_dynpro-fnam = tf-fname.

all_bdc_dynpro-fval = tf-farg.

APPEND all_bdc_dynpro.

WHEN OTHERS.

ENDCASE.

ENDFORM. "move_tf

*----

Form: get_logfiles_for_qid

*----

DATA:

paramname(11) VALUE 'bdc/logfile',

logname(80),

logname1(80),

old_logfile(06) VALUE 'bdclog',

new_logfile(04) VALUE 'BI* ',

shiftlen TYPE i VALUE 0,

protflen TYPE i VALUE 0,

protfoff TYPE i VALUE 0,

rlen TYPE i VALUE 0,

bdcld# TYPE i, one TYPE i, ec TYPE i, return TYPE i,

protcnt TYPE i.

DATA:

BEGIN OF prot_list OCCURS 0.

INCLUDE rstr0112.

DATA: seen(1), to_be_deleted(1), has_changed(1), local_host(24),

END OF prot_list.

DATA:

BEGIN OF file.

INCLUDE rstr0112.

DATA END OF file.

DATA:

BEGIN OF bdclda OCCURS 0.

INCLUDE STRUCTURE bdcld.

DATA END OF bdclda .

DATA:

digits(10) TYPE c VALUE '0123456789',

mtext(124) TYPE c, "Messagetext

mtext1(124) TYPE c, "Messagetext

mtext2(273) TYPE c, "Messagetext

do_condense TYPE c,

mtvaroff TYPE i,

showtyp(05) TYPE c, "showtyp

lmapn(12) TYPE c, "Hilfsfeld log-mapn

date1 TYPE d,

linct0 LIKE sy-linct,

parcnt TYPE i,

sp_len TYPE i,

charcnt TYPE i,

wcnt TYPE i,

mparcnt TYPE i,

qfound(04) TYPE n,

x(1) VALUE 'X'.

DATA: "Aufbereitung Messagetext

BEGIN OF mt,

off(02) TYPE n,

len(02) TYPE n,

text(80),

END OF mt.

DATA: "Aufbereitung Messagetext

BEGIN OF mttab OCCURS 4,

off(02) TYPE n,

len(02) TYPE n,

text(80),

END OF mttab.

DATA: "Hilfsfelder

BEGIN OF old,

tcnt LIKE bdclm-tcnt,

mcnt LIKE bdclm-mcnt,

END OF old.

DATA: "ParameterAufbereitung

BEGIN OF par,

len(02) TYPE n,

text(254),

END OF par.

*----

Form get_logfiles_for_qid
find all log files for the session in analysis,
either in common log or in TemSe

*----

FORM get_logfiles_for_qid.

get logs from TemSe

PERFORM get_logfiles_from_temse.

now bdcld contains the log files for the given qid

SORT bdcld BY edate DESCENDING etime DESCENDING.

DESCRIBE TABLE bdcld LINES selected_protocol.

ENDFORM. "get_logfiles_for_qid

*----

Form: log_dir

*----

FORM log_dir.

CLEAR bdclda. REFRESH bdclda.

CALL 'ReadLogDirA' ID 'LOGN' FIELD logname

ID 'DTAB' FIELD bdclda-sys

ID 'AINF' FIELD one

ID 'ECNT' FIELD ec.

IF sy-subrc NE 0 OR ec = 0.

EXIT.

ENDIF.

LOOP AT bdclda WHERE lmand = sy-mandt AND quid = queue_id.

MOVE-CORRESPONDING bdclda TO bdcld.

MOVE logname TO bdcld-logname.

MOVE prot_list-local_host TO bdcld-local_host.

APPEND bdcld.

ENDLOOP.

ENDFORM. " log_dir.

*----

Form: list_protocol_files
Suche nach allen aktiven Protokolldateien -> Tabelle prot_list

*----

FORM list_protocol_files.

CLEAR: logname1, prot_list, protcnt.

REFRESH: prot_list.

protflen = STRLEN( logname ).

MOVE logname TO logname1.

WHILE shiftlen LE protflen.

IF logname1 CP '#B#I'. "suchen nach muster #B#I

IF sy-fdpos EQ 0. "nur großbuchstaben

shiftlen = 2.

ELSE.

shiftlen = sy-fdpos.

ENDIF.

protfoff = protfoff + shiftlen.

SHIFT logname1 BY shiftlen PLACES.

ELSE.

shiftlen = protflen + 1.

protfoff = protfoff - 2.

ENDIF.

ENDWHILE.

IF protfoff LE 0.

protfoff = 0.

ENDIF.

rlen = 80 - protfoff.

WRITE space TO logname+protfoff(rlen).

WRITE new_logfile TO logname+protfoff(4).

PERFORM search_prot USING logname.

ENDFORM. " FILL_PROT_LIST

*----

FORM : search_prot *

*----

FORM search_prot USING prot_files.

DATA: errcnt(2) TYPE p VALUE 0.

CALL 'C_DIR_READ_START' ID 'FILE' FIELD prot_files

ID 'ERRNO' FIELD file-errno

ID 'ERRMSG' FIELD file-errmsg.

IF sy-subrc <> 0.

MESSAGE i398(00)

WITH sy-subrc 'C_DIR_READ_START' ' ' prot_files.

MESSAGE i398(00)

WITH sy-subrc 'C_DIR_READ_START...'

file-errno file-errmsg.

ENDIF.

DO. "aufbau der internen tabelle fuer alle

"BI-Protokolle

CLEAR file.

CALL 'C_DIR_READ_NEXT'

ID 'TYPE' FIELD file-type

ID 'NAME' FIELD file-name

ID 'LEN' FIELD file-len

ID 'OWNER' FIELD file-owner

ID 'MTIME' FIELD file-mtime

ID 'MODE' FIELD file-mode

ID 'ERRNO' FIELD file-errno

ID 'ERRMSG' FIELD file-errmsg.

MOVE sy-subrc TO file-subrc.

CASE sy-subrc.

WHEN 0.

CASE file-type(1).

WHEN 'F'. " normal file.

MOVE 1 TO file-useable.

WHEN 'f'. " normal file.

MOVE 1 TO file-useable.

WHEN OTHERS. " Directory, device, fifo, socket,...

MOVE 0 TO file-useable.

ENDCASE.

IF file-len = 0.

MOVE 0 TO file-useable.

ENDIF.

WHEN 1.

EXIT.

WHEN OTHERS. " SY-SUBRC >= 2

ADD 1 TO errcnt.

IF errcnt > 10.

EXIT.

ENDIF.

IF sy-subrc = 5.

MOVE: '???' TO file-type,

'???' TO file-owner,

'???' TO file-mode.

ELSE.

ENDIF.

file-useable = 0.

ENDCASE.

MOVE-CORRESPONDING file TO prot_list.

SHIFT file-name BY protfoff PLACES.

prot_list-local_host = file-name.

protcnt = protcnt + 1.

APPEND prot_list.

ENDDO.

CALL 'C_DIR_READ_FINISH'

ID 'ERRNO' FIELD file-errno

ID 'ERRMSG' FIELD file-errmsg.

IF sy-subrc <> 0.

WRITE: / 'C_DIR_READ_FINISH'(999), 'SUBRC', SY-SUBRC.

ENDIF.

ENDFORM. " search_prot

*----

Form: get_log

*----

FORM get_log USING log_index.

DATA: BEGIN OF logtable OCCURS 50, " plain log information in TemSe

enterdate LIKE btctle-enterdate,

entertime LIKE btctle-entertime,

logmessage(400) TYPE c,

END OF logtable.

DATA:

external_date(10),

internal_date TYPE d.

LOOP AT bdcld.

logname = bdcld-logname.

IF newprot = 'OFF'.

get logfile contents from common log file

CALL 'ReadLogPartitionA' ID 'LOGN' FIELD logname

ID 'ETAB' FIELD bdclm-sys

ID 'PART' FIELD bdcld

ID 'ECNT' FIELD ec.

IF sy-subrc <> 0. MESSAGE s325(00). ENDIF.

IF ec = 0. MESSAGE s324(00). ENDIF.

ELSE.

get logfile contents from TemSe

PERFORM read_bdc_log_plain

TABLES logtable

USING bdcld-temseid bdcld-lmand.

IF sy-subrc <> 0. " Fehler beim Lesen

MESSAGE s004(ts).

EXIT.

ENDIF.

CLEAR bdclm[].

LOOP AT logtable.

*----

Es wird geprüft, ob von TEMSE das Datum korrekt geliefert wurde
wenn nicht wird einfach der Satz ignoriert und nicht gelesen

*----

CALL 'DATE_CONV_INT_TO_EXT'

ID 'DATINT' FIELD logtable-enterdate

ID 'DATEXT' FIELD external_date.

CALL 'DATE_CONV_EXT_TO_INT'

ID 'DATEXT' FIELD external_date

ID 'DATINT' FIELD internal_date.

IF sy-subrc NE 0. " Datum ist nicht gültig

CONTINUE.

ENDIF.

CLEAR bdclm.

bdclm-indate = logtable-enterdate.

bdclm-intime = logtable-entertime.

bdclm+14(352) = logtable-logmessage.

IF bdclm-mcnt > 0.

bdclm-mcnt = bdclm-mcnt - 1.

ENDIF.

IF bdclm-mid EQ '00'.

IF ( bdclm-mnr EQ '162' )

OR ( bdclm-mnr EQ '368' ).

bdclm-isdetail = 'X'.

ENDIF.

APPEND bdclm.

ENDLOOP.

PERFORM extend_message_texts. " extended texts -> bdclm

PERFORM download.

ENDIF.

ENDLOOP.

ENDFORM. "get_log

*----

Form: get_logfiles_from_temse

*----

FORM get_logfiles_from_temse.

are there any logs in the TemSe for this QID ?

CLEAR logtab_temse[].

CLEAR bdcld[].

SELECT * FROM apql INTO TABLE logtab_temse

WHERE qid = apqi-qid.

CHECK sy-subrc = 0.

some logs were found: now put this info into table bdcld.

DATA: wa_log LIKE LINE OF logtab_temse,

wa_ld LIKE LINE OF bdcld.

LOOP AT logtab_temse INTO wa_log.

CLEAR wa_ld.

wa_ld-temseid = wa_log-temseid.

wa_ld-lmand = wa_log-mandant.

wa_ld-edate = wa_log-credate.

wa_ld-etime = wa_log-cretime.

wa_ld-luser = wa_log-creator.

wa_ld-grpn = wa_log-groupid.

wa_ld-quid = wa_log-qid.

wa_ld-local_host = wa_log-destsys(8).

APPEND wa_ld TO bdcld.

ENDLOOP.

ENDFORM. "get_logfiles_from_temse

*----

Form: extend_message_texts

*----

FORM extend_message_texts.

LOOP AT bdclm.

lm = bdclm. save_mpar = bdclm-mpar.

PERFORM get_text.

bdclm-longtext = mtext.

bdclm-mpar = save_mpar.

MODIFY bdclm.

ENDLOOP.

ENDFORM. "extend_message_texts

*----

FORM : get_text *

*----

FORM get_text.

Aufbereiten des Messagetextes

DATA: shiftln TYPE i,

vartcnt TYPE i,

fdpos LIKE sy-fdpos.

IF bdclm-mparcnt CN digits. "Korrupter Datensatz:

bdclm-mparcnt = 0. "z.B. Hexnullen

ENDIF.

SELECT SINGLE * FROM t100

WHERE sprsl = sy-langu

AND arbgb = bdclm-mid

AND msgnr = bdclm-mnr.

IF sy-subrc EQ 0.

CLEAR: mtext,

parcnt,

mparcnt,

charcnt,

wcnt,

mt,

sp_len,

sy-fdpos.

MOVE bdclm-mparcnt TO mparcnt.

IF t100-text CA '$&'. "Kennung fuer parameter:

MOVE t100-text TO mtext1. " alt '$' --- neu '&'

ELSE.

MOVE t100-text TO mtext.

EXIT.

ENDIF.

variable teile aus batch-input protokoll in mttab bringen.

REFRESH mttab.

CLEAR shiftln.

DO mparcnt TIMES.

CLEAR: par, mttab.

MOVE bdclm-mpar TO par.

IF par-len CN digits OR par-len EQ 0. "convert_no_number

par-len = 1. "entschärfen

par-text = ' '.

shiftln = 2.

ELSE.

shiftln = par-len + 2.

ENDIF.

WRITE par-text TO mttab-text(par-len).

MOVE par-len TO mttab-len.

MOVE mparcnt TO mttab-off.

APPEND mttab.

SHIFT bdclm-mpar BY shiftln PLACES.

ENDDO.

mtext2 = mtext1.

IF bdclm-mid EQ '00' AND " sonderbehandlung s00368

bdclm-mnr EQ '368' AND

bdclm-mart EQ 'S'.

CLEAR mtext2.

CLEAR mttab.

READ TABLE mttab INDEX 1.

WRITE mttab-text TO mtext2+0(mttab-len).

CLEAR mttab.

READ TABLE mttab INDEX 2.

WRITE mttab-text TO mtext2+35(mttab-len).

mtext = mtext2.

EXIT.

ENDIF.

do_condense = x.

CLEAR: mt, vartcnt, mtvaroff.

WHILE vartcnt LE 3.

vartcnt = vartcnt + 1.

IF mtext1 CA '$&'.

parcnt = parcnt + 1.

IF sy-fdpos GT 0.

fdpos = sy-fdpos - 1. " neu sy-fdpos -1

ELSE.

fdpos = sy-fdpos.

ENDIF.

SHIFT mtext1 BY sy-fdpos PLACES.

IF mtext1(1) EQ '&'.

SHIFT mtext1 BY 1 PLACES.

CASE mtext1(1).

WHEN ' '. "'& '

PERFORM replace_var USING '& ' parcnt fdpos.

WHEN '$'. "'&&'

PERFORM replace_var USING '&&' 0 fdpos.

WHEN '1'. "'&1'

PERFORM replace_var USING '&1' 1 fdpos.

WHEN '2'. "'&2'

PERFORM replace_var USING '&2' 2 fdpos.

WHEN '3'. "'&3'

PERFORM replace_var USING '&3' 3 fdpos.

WHEN '4'. "'&4'

PERFORM replace_var USING '&4' 4 fdpos.

WHEN OTHERS. "'&'

PERFORM replace_var USING '&<' parcnt fdpos.

ENDCASE.

ENDIF.

IF mtext1(1) EQ '$'.

SHIFT mtext1 BY 1 PLACES.

CASE mtext1(1).

WHEN ' '. "'$ '

PERFORM replace_var USING '$ ' parcnt fdpos.

WHEN '$'. "'$$'

PERFORM replace_var USING '$$' 0 fdpos.

WHEN '1'. "'$1'

PERFORM replace_var USING '$1' 1 fdpos.

WHEN '2'. "'$2'

PERFORM replace_var USING '$2' 2 fdpos.

WHEN '3'. "'$3'

PERFORM replace_var USING '$3' 3 fdpos.

WHEN '4'. "'$4'

PERFORM replace_var USING '$4' 4 fdpos.

WHEN OTHERS. "'$'

PERFORM replace_var USING '$<' parcnt fdpos.

ENDCASE.

ENDIF.

ENDWHILE.

IF mtext2 CA '%%_D_%%'.

REPLACE '%%_D_%%' WITH '$' INTO mtext2.

ENDIF.

IF mtext2 CA '%%_A_%%'.

REPLACE '%%_A_%%' WITH '&' INTO mtext2.

ENDIF.

IF do_condense EQ space.

mtext = mtext2.

ELSE.

CONDENSE mtext2 .

mtext = mtext2.

ENDIF.

ELSE.

mtext = '???????????????????????????????????????????????????'.

ENDIF.

ENDFORM. " get_text1

*----

FORM : replace_var *
*

*----

FORM replace_var USING vark vari varpos.

ersetzen der variablen teile einer fehlermeldung

DATA: var(02),

var1,

moff TYPE i.

CLEAR: mttab , moff.

var = vark.

SHIFT var BY 1 PLACES.

CASE var.

WHEN ' '. "'& '

READ TABLE mttab INDEX vari.

IF sy-subrc EQ 0.

moff = varpos + mtvaroff.

ASSIGN mtext2+moff(*) TO . "neu

mtvaroff = 7. "neu

ENDIF.

ENDCASE.

do_condense = space.

ENDFORM. "replace_var

*----

Form: set_new_display

*----

FORM set_new_display.

CASE tab_dynpro-activetab.

WHEN 'TAB_TCODES'.

F2 in tcodes list: choose new transaction:

CHECK selected_index > 0.

READ TABLE bdc_tcodes INDEX selected_index.

CHECK sy-subrc = 0.

PERFORM scan_transaction USING bdc_tcodes-index.

CLEAR: bdc_dynpro_content, bdc_protocol_content.

tcode_index = selected_index.

tcode_status = bdc_tcodes-s_text.

tcode = bdc_tcodes-tcode.

IF previous_tab IS INITIAL.

tab_dynpro-activetab = 'TAB_LIST'.

ELSE.

tab_dynpro-activetab = previous_tab.

ENDIF.

WHEN 'TAB_LIST'.

F2 in screens list: simulate screen

CHECK selected_index > 0.

simulate screen

PERFORM simulate_dynpro.

WHEN 'TAB_PROTO'.

F2 in protocol list: show message long text:

CHECK selected_index > 0.

READ TABLE bdc_protocol INDEX selected_index.

CHECK sy-subrc = 0.

PERFORM show_ltext.

ENDCASE.

ENDFORM. "set_new_display

*----

FORM : show_ltext
display long text for a log message

*----

FORM show_ltext.

DATA:

docnt TYPE i.

DATA:

BEGIN OF my,

msgv1 LIKE sy-msgv1,

msgv2 LIKE sy-msgv2,

msgv3 LIKE sy-msgv3,

msgv4 LIKE sy-msgv4,

END OF my.

DATA:

msg_text LIKE shkontext-meldung,

msg_arbgb LIKE shkontext-meld_id,

msg_nr LIKE shkontext-meld_nr,

msg_title LIKE shkontext-titel.

RABAX- or T100 message ?

IF bdc_protocol-mid EQ '00' AND "Rabax

bdc_protocol-mnr EQ '341'.

CLEAR: par.

extract Rabax-ID and key fields from message string

par = bdc_protocol-mpar.

IF par-len CN digits. EXIT. ENDIF. "corrupt string"

my-msgv1 = par-text(par-len).

SHIFT par LEFT BY par-len PLACES.

SHIFT par LEFT BY 2 PLACES.

IF par-len CN digits. EXIT. ENDIF. "corrupt string"

snap = par-text(par-len).

Rabax display

CALL DIALOG 'RS_RUN_TIME_ERROR'

EXPORTING

snap-mandt

snap-datum

snap-uzeit

snap-ahost

snap-uname

snap-modno.

EXIT.

ENDIF.

no RABAX

docnt = 0.

CLEAR: my.

IF bdc_protocol-mparcnt CN digits. "Korrupter Datensatz:

bdc_protocol-mparcnt = 0. "z.B. Hexnullen

ENDIF.

DO bdc_protocol-mparcnt TIMES.

IF bdc_protocol-mpar(1) EQ space.

EXIT.

ENDIF.

docnt = docnt + 1.

CLEAR par.

MOVE bdc_protocol-mpar TO par.

IF par-len CN digits. "convert_no_number

par-len = 1. "entschärfen

ENDIF.

CASE docnt.

WHEN 1.

WRITE par-text TO my-msgv1(par-len).

WHEN 2.

WRITE par-text TO my-msgv2(par-len).

WHEN 3.

WRITE par-text TO my-msgv3(par-len).

WHEN 4.

WRITE par-text TO my-msgv4(par-len).

ENDCASE.

par-len = par-len + 2.

SHIFT bdc_protocol-mpar BY par-len PLACES.

ENDDO.

msg_arbgb = bdc_protocol-mid.

msg_nr = bdc_protocol-mnr.

msg_text = mtext.

msg_title = sy-title.

CALL FUNCTION 'HELPSCREEN_NA_CREATE'

EXPORTING

meldung = msg_text

meld_id = msg_arbgb

meld_nr = msg_nr

msgv1 = my-msgv1

msgv2 = my-msgv2

msgv3 = my-msgv3

msgv4 = my-msgv4

titel = msg_title.

ENDFORM. " show_ltext.

*----

FORM: simulate_dynpro
use function module CAT_SIMULATE_DYNPRO to simulate a dynpro
with contents according to APQD data of session

*----

FORM simulate_dynpro.

DATA:

cat_okcode LIKE sy-ucomm,

cat_params LIKE catp OCCURS 0 WITH HEADER LINE,

on_subscreen.

CLEAR cat_bdcdata. REFRESH cat_bdcdata.

READ TABLE bdc_dynpro INDEX selected_index.

LOOP AT all_bdc_dynpro WHERE index = bdc_dynpro-index.

MOVE-CORRESPONDING all_bdc_dynpro TO cat_bdcdata.

APPEND cat_bdcdata.

ENDLOOP.

READ TABLE cat_bdcdata INDEX 1.

cat_bdcdata-dynbegin = 'X'. MODIFY cat_bdcdata INDEX 1.

now we need some extra work to generate the correct input data
format for FUNCTION 'CAT_SIMULATE_DYNPRO' for subscreen fields.

CLEAR on_subscreen.

LOOP AT cat_bdcdata.

check if there is a new subscreen

IF cat_bdcdata-fnam = 'BDC_SUBSCR'.

MOVE cat_bdcdata-fval TO bdc_subscreen.

CLEAR cat_bdcdata-fval.

CONCATENATE bdc_subscreen-program

bdc_subscreen-dynpro

bdc_subscreen-subscr

INTO cat_bdcdata-fval SEPARATED BY ' '.

MODIFY cat_bdcdata.

on_subscreen = 'X'.

ENDIF.

ENDLOOP.

READ TABLE cat_bdcdata INDEX 1.

SET PF-STATUS 'CSIM'.

SET TITLEBAR '0300' WITH cat_bdcdata-program cat_bdcdata-dynpro.

MESSAGE s223(tt).

CALL FUNCTION 'CAT_SIMULATE_DYNPRO'

EXPORTING

mpool = cat_bdcdata-program

dynnr = cat_bdcdata-dynpro

display_only = 'X'

own_status_title = 'X'

TABLES

fielddata = cat_bdcdata

paramlist = cat_params

EXCEPTIONS

no_dynpro = 1

dynpro_not_found = 2

gen_error = 3

enq_error = 4

subscr_error = 5

OTHERS = 6.

CASE sy-subrc.

WHEN 1. MESSAGE s221(tt).

WHEN 2.

MESSAGE s219(tt)

WITH cat_bdcdata-program cat_bdcdata-dynpro.

WHEN 3. MESSAGE s236(tt) WITH ' ' ' '.

WHEN 4. MESSAGE s215(tt).

WHEN 5. MESSAGE s238(tt) WITH ' ' ' '.

WHEN 6. MESSAGE s258(00).

ENDCASE.

ENDFORM. "simulate_dynpro

*----

Form: scrolling
scrolling in table controls according to SAP style guide

*----

FORM scrolling.

DATA:

top_line LIKE sy-index,

last_line LIKE sy-index.

CASE tab_dynpro-activetab.

WHEN 'TAB_TCODES'.

top_line = tc_tcodes-top_line.

DESCRIBE TABLE bdc_tcodes LINES last_line.

WHEN 'TAB_LIST'.

top_line = tc_dynpro-top_line.

DESCRIBE TABLE bdc_dynpro LINES last_line.

WHEN 'TAB_PROTO'.

top_line = tc_protocol-top_line.

DESCRIBE TABLE bdc_protocol LINES last_line.

ENDCASE.

CALL FUNCTION 'SCROLLING_IN_TABLE'

EXPORTING

entry_act = top_line

entry_from = 1

entry_to = last_line

ok_code = main_okcode

last_page_full = ' '

overlapping = ' '

loops = loopc

IMPORTING

entries_sum = entries

entry_new = new_line

pages_sum = total_pages

page_new = new_page

EXCEPTIONS

no_entry_or_page_act = 01

no_entry_to = 02

no_ok_code_or_page_go = 03.

CHECK sy-subrc = 0.

CASE tab_dynpro-activetab.

WHEN 'TAB_TCODES'.

tc_tcodes-top_line = new_line.

WHEN 'TAB_LIST'.

tc_dynpro-top_line = new_line.

WHEN 'TAB_PROTO'.

tc_protocol-top_line = new_line.

ENDCASE.

ENDFORM. "scrolling

*&----

*& Module d0700_init OUTPUT

*&----

MODULE d0700_init OUTPUT.

CLEAR d0700_fcode.

SET TITLEBAR 'QUEUE_DUMP' WITH apqi-groupid.

SET PF-STATUS 'PF_QUEUE'.

IF q-tcode_index IS INITIAL.

IF NOT tcode_index_apqd IS INITIAL.

q-tcode_index = tcode_index_apqd.

ELSE.

READ TABLE all_bdc_tcodes INTO q-wa INDEX 1.

q-tcode_index = q-wa-index.

ENDIF.

check for unicode; how many byte's a character?

DESCRIBE FIELD q-c LENGTH q-uc_bytes IN BYTE MODE.

read all blocks (dynpros) of the currently selected transaction

SELECT * FROM apqd INTO TABLE it_apqd

WHERE qid = queue_id AND trans = q-tcode_index.

ENDMODULE. " d0700_init OUTPUT

*&----

*& Module d0700_fcode INPUT

*&----

MODULE d0700_fcode INPUT.

CASE d0700_fcode.

WHEN 'BACK'.

CLEAR q-tcode_index.

LEAVE TO SCREEN 0.

WHEN 'END'.

CLEAR q-tcode_index.

LEAVE PROGRAM.

WHEN 'TOGGLE'.

IF q-show_hex IS INITIAL.

q-show_hex = 'X'.

ELSE.

CLEAR q-show_hex.

ENDIF.

WHEN 'APQI'.

CALL SCREEN '0701'.

WHEN OTHERS.

"nop

ENDCASE.

ENDMODULE. " ok_700 INPUT

*&----

*& Module exit_700 INPUT

*&----

MODULE d0700_exit INPUT.

LEAVE TO SCREEN 0.

ENDMODULE. " exit_700 INPUT

*&----

*& Module set_status_icon OUTPUT

*&----

MODULE set_status_icon OUTPUT.

DATA: icon_name(4),

icon_info(32).

CASE all_bdc_tcodes-status.

WHEN 'F'.

icon_name = icon_status_ok.

icon_info = 'verarbeitet'(002).

WHEN 'E'.

icon_name = icon_status_critical.

icon_info = 'fehlerhaft'(001).

WHEN 'D'.

icon_name = icon_delete.

icon_info = 'gelöscht'(005).

WHEN ' ' OR 'B'.

icon_name = icon_create.

icon_info = 'neu'(034).

WHEN OTHERS.

icon_name = all_bdc_tcodes-status.

icon_info = '???'.

ENDCASE.

CALL FUNCTION 'ICON_CREATE'

EXPORTING

name = icon_name

info = icon_info

IMPORTING

RESULT = status_icon

EXCEPTIONS

OTHERS = 1.

IF sy-subrc <> 0.

status_icon = icon_name.

ENDIF.

IF all_bdc_tcodes-index = q-tcode_index.

LOOP AT SCREEN.

screen-intensified = 1.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDMODULE. " set_status_icon OUTPUT

*&----

*& Module d0700_get_cursor INPUT

*&----

MODULE d0700_get_cursor INPUT.

GET CURSOR FIELD q-c_field LINE q-c_line AREA q-c_area.

IF sy-subrc = 0.

CHECK q-c_area = 'TC_Q_TCODES'.

CHECK q-c_line > 0.

q-itab_index = tc_q_tcodes-top_line + q-c_line - 1.

READ TABLE all_bdc_tcodes INTO q-wa INDEX q-itab_index.

q-tcode_index = q-wa-index.

ENDIF.

ENDMODULE. " d0700_get_cursor INPUT

*&----

*& Module d0700_control_init OUTPUT

*&----

MODULE d0700_control_init OUTPUT.

CHECK q-control_init = 'X'.

create custom container and dynamic document

CREATE OBJECT cust

EXPORTING

container_name = 'CUSTOM_CONTAINER'

dynnr = '0700'

repid = 'RSBDC_ANALYSE'

lifetime = cntl_lifetime_dynpro

EXCEPTIONS

OTHERS = 1.

CREATE OBJECT dd

EXPORTING

background_color = cl_dd_area=>col_textarea.

CLEAR q-control_init.

ENDMODULE. " d0700_control_init OUTPUT

*&----

*& Module d0700_display OUTPUT

*&----

MODULE d0700_display OUTPUT.

CALL METHOD dd->initialize_document

EXPORTING

background_color = cl_dd_area=>col_textarea.

REFRESH it_blocks.

loop at all apqd blocks for the current transaction and built up the
dynamic document for each block

LOOP AT it_apqd.

PERFORM build_queue_dd.

ENDLOOP.

CALL METHOD dd->merge_document.

CALL METHOD dd->display_document

EXPORTING

parent = cust

reuse_control = q-reuse_control

EXCEPTIONS

html_display_error = 1.

if the HTML control for the DD is already created, we can re-use it.

IF q-reuse_control IS INITIAL.

q-reuse_control = 'X'.

ENDIF.

ENDMODULE. " d0700_display OUTPUT

*&----

*& Form build_queue_dd

*&----

FORM build_queue_dd.

DATA: off LIKE sy-index.

write the most important apqd header fields

dd->new_line( ).

WRITE it_apqd-qid TO c.

CONCATENATE 'Queue-ID:'(030) c INTO t SEPARATED BY space.

dd->add_text( text = t ).

dd->new_line( ).

WRITE it_apqd-trans TO c.

CONCATENATE 'Transaktion:'(031) c INTO t SEPARATED BY space.

dd->add_text( text = t ).

dd->new_line( ).

WRITE it_apqd-block TO c.

CONCATENATE 'Block:'(032) c INTO t SEPARATED BY space.

dd->add_text( text = t

sap_color = cl_dd_table_area=>list_positive ).

dd->new_line( ).

WRITE it_apqd-varlen TO c.

CONCATENATE 'VARDATA-Länge:'(033) c INTO t SEPARATED BY space.

dd->add_text( text = t ).

dd->new_line( ).

now add a DD table to it_blocks for the current APQD block

CLEAR b_wa.

REFRESH it_cx.

CALL METHOD dd->add_table

EXPORTING

no_of_columns = nr_cols

cell_background_transparent = space

border = '0'

width = '100%'

IMPORTING

tablearea = b_wa-dta

table = b_wa-dt

EXCEPTIONS

OTHERS = 1.

APPEND b_wa TO it_blocks.

prepare ascii/hex table

DO it_apqd-varlen TIMES.

off = sy-index - 1.

ASSIGN it_apqd-vardata+off(1) TO .

WRITE cx-hex TO cx-xtoc.

APPEND cx TO it_cx.

ENDDO.

write apqd-vardata (as prepared in it_cx ) to the DD list

PERFORM vardata_lines.

ENDFORM. " build_queue_dd

*&----

*& Form vardata_lines

*&----

FORM vardata_lines.

count-start = 0.

count-rest = it_apqd-varlen.

IF it_apqd-varlen < nr_cols.

count-part = it_apqd-varlen.

ELSE.

count-part = nr_cols.

ENDIF.

DO.

cspan = nr_cols - count-part.

1. the ASCII - Value

b_wa-dta->new_row( sap_color = cl_dd_table_area=>list_heading ).

DO count-part TIMES.

count-index = count-start + sy-index.

READ TABLE it_cx INTO cx INDEX count-index.

IF NOT cx-hex IS INITIAL.

t = cx-char.

b_wa-dta->add_text( text = t ).

ELSE.

t = space.

b_wa-dta->add_text( text = t

sap_color = cl_dd_table_area=>list_negative ).

ENDIF.

ENDDO.

IF count-rest < nr_cols.

t = space.

DO cspan TIMES.

b_wa-dta->add_text( text = t

sap_color =

cl_dd_table_area=>list_background ).

ENDDO.

ENDIF.

IF q-show_hex = 'X'.

2. at least one Byte hex-code for non-unicode systems