Protokollierung

Protokollierung - Status richtig setzen?

Hallo,

Habe das nun mit der Protokollierung richtig gelöst (Code siehe unten ...)

Nur möchte ich nun den g_status f. Ausgabe der Fehler in der ZPROTOKOLL setzen.
Bei keinem Fehlerfall ist der Status auf 0 gesetzt.
Bei Fehlerfall wird der Status auf 4 gesetzt.
--> Wo setze ich den richtig???


Bei der Bereinigung der gefundenen Datensätze (Fehlerausgabe in dem Fall, da nichts mehr angepasst werden muss!!)
kann man den Status nicht auf 4 setzen,
.... * Die gefundenen Datensätze müssen bereinigt werden
DELETE it_marc INDEX g_tabix.
* g_status = 4.
ENDIF.
.....
weil sich dann sonst in der sm35 die Mappe nicht mehr abspielen lässt
und in der ZPROTOKOLL wird nicht ausgegeben, dass die Sätze bereits schon angelegt wurden!??!


Mit der Bitte um Hilfe!
thx,
lg

REPORT zka_werkszuordnung NO STANDARD PAGE HEADING LINE-SIZE 255.

*** I N C L U D E S ****************************************************
*INCLUDE bdcrecx1.

*** D A T E N D E K L A R A T I O N ************************************
DATA:
it_marc TYPE TABLE OF marc,
wa_marc TYPE marc,
it_mast TYPE TABLE OF mast,
wa_mast TYPE mast,

g_mapnam TYPE apqi-groupid,
zaehler TYPE i,
g_tabix TYPE sy-tabix,
g_group_opened TYPE c.

DATA:
anzzeilen TYPE i.

*Batchinputdata of single transaction
DATA:
bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
*messages of call transaction
DATA:
messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.

*CALL TRANSACTION Einstellungen
DATA:
ctumode LIKE ctu_params-dismode,
cupdate LIKE ctu_params-updmode.

ctumode = 'N'. " Abspielmodus
* A: show all dynpros
* E: show dynpro on error only
* N: do not display dynpro
* P: dunkel + debug
cupdate = 'L'. " Verbuchungsmodus
* S: synchronously
* A: asynchronously
* L: local

*Protokollierung
DATA: g_instance TYPE REF TO zcl_bc_protokoll,
gwa_logmsg TYPE zbcs_logmsg,
g_jobid TYPE zbc_logid,
g_status TYPE sy-subrc.

*** S E L E K T I O N S B I L D ****************************************
SELECTION-SCREEN BEGIN OF BLOCK selektion WITH FRAME TITLE text-001.
SELECT-OPTIONS:
so_matnr FOR wa_marc-matnr OBLIGATORY,
so_werks FOR wa_marc-werks.
PARAMETER:
pa_stlan LIKE t416-stlan DEFAULT '5' OBLIGATORY.
*Radiobuttons zum Wählen, ob man die BI-Verarbeitung
*oder die DI-Verarbeitung haben möchte
PARAMETER:
pa_bi TYPE c RADIOBUTTON GROUP radi,
pa_di TYPE c RADIOBUTTON GROUP radi.
SELECTION-SCREEN END OF BLOCK selektion.

*** H A U P T V E R A R B E I T U N G **********************************
START-OF-SELECTION.

* -----> Insmtance eröffnen <-----
CREATE OBJECT g_instance.
* -----> Protokoll starten <-----
CALL METHOD g_instance->start
EXPORTING
appl = 'KKM'
repid = sy-repid
IMPORTING
jobid = g_jobid
EXCEPTIONS
error_id_range = 1
error_save_head = 2
OTHERS = 3.

* -----> Details in das Protokoll stellen <-----
CLEAR gwa_logmsg.
gwa_logmsg-msgid = 'ZKA0001'.
IF gwa_logmsg-msgty = 'S'.
gwa_logmsg-msgno = '115'.
ELSEIF gwa_logmsg-msgty = 'E'.
gwa_logmsg-msgno = '116'.
ELSE.
ENDIF.

CALL METHOD g_instance->write
EXPORTING
logmsg = gwa_logmsg
EXCEPTIONS
error_header = 1
error_item = 2
log_duplicate_lognr = 3
OTHERS = 4.

* IF gwa_logmsg-msgty = 'E'.
* g_status = 4.
* ELSE.
* g_status = 0.
* ENDIF.


* Werksdaten zum Material
SELECT * FROM marc INTO TABLE it_marc
WHERE matnr IN so_matnr
AND werks IN so_werks
AND lvorm = ''.

SELECT * FROM mast INTO TABLE it_mast
WHERE matnr IN so_matnr
AND ( werks IN so_werks
OR werks = '' )
AND stlan = pa_stlan.

END-OF-SELECTION.

SORT it_mast BY matnr.

LOOP AT it_marc INTO wa_marc.

AT NEW matnr.

READ TABLE it_mast WITH KEY matnr = wa_marc-matnr werks = ''
TRANSPORTING NO FIELDS.

IF sy-subrc <> 0.
DELETE it_marc WHERE matnr = wa_marc-matnr.
ENDIF.

CONTINUE.

ENDAT.

* Schauen, ob Zuordnung schon vorhanden ist oder nicht
g_tabix = sy-tabix.

READ TABLE it_mast
WITH KEY matnr = wa_marc-matnr werks = wa_marc-werks
TRANSPORTING NO FIELDS.

IF sy-subrc = 0.
* Die gefundenen Datensätze müssen bereinigt werden
DELETE it_marc INDEX g_tabix.
* g_status = 4.
ENDIF.

ENDLOOP.

DESCRIBE TABLE it_marc LINES anzzeilen.

IF anzzeilen > 0 AND pa_bi = 'X'.

* Mappenbenamsung
g_mapnam = 'ZMATWERKCS07'.

* BI auf Transaktion CS07
* Erstellen der BI-Mappe
PERFORM open_group.

ENDIF.

LOOP AT it_marc INTO wa_marc.

REFRESH bdcdata.

* Übergabe von Programmname und Dynpronummer
PERFORM bdc_dynpro USING 'SAPLCSAL' '0100'.
* Befüllen des Feldes Materialnummer
PERFORM bdc_field USING 'BDC_CURSOR'
'RC29N-ZWERK'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RC29N-MATNR' wa_marc-matnr.
PERFORM bdc_field USING 'RC29N-ZWERK' wa_marc-werks.
PERFORM bdc_field USING 'RC29N-STLAN' '5'.
* neuer Bildschirm
PERFORM bdc_dynpro USING 'SAPLCSAL' '0120'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=FCBU'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RC29K-STLNR'.
* Übergabe der Daten und des Transaktionscodes an die Mappe
PERFORM bdc_transaction USING 'CS07'.

ENDLOOP.

* Schließen der Mappe
PERFORM close_group.


IF g_status <> 0.
gwa_logmsg-msgty = 'E'.
gwa_logmsg-msgno = '116'.
gwa_logmsg-msgv1 = so_matnr.
gwa_logmsg-msgv2 = so_werks.

CALL METHOD g_instance->write
EXPORTING
logmsg = gwa_logmsg
EXCEPTIONS
error_header = 1
error_item = 2
log_duplicate_lognr = 3
OTHERS = 4.
ELSE.
gwa_logmsg-msgty = 'S'.
gwa_logmsg-msgno = '115'.
gwa_logmsg-msgv1 = so_matnr.
gwa_logmsg-msgv2 = so_werks.

* MESSAGE ID msgid TYPE msgty NUMBER num.

CALL METHOD g_instance->write
EXPORTING
logmsg = gwa_logmsg
EXCEPTIONS
error_header = 1
error_item = 2
log_duplicate_lognr = 3
OTHERS = 4.
ENDIF.

* -----> Protokoll speichern und abschliessen <-----
* Abschluss der Protokollierung
IF g_status <> 0.
CALL METHOD g_instance->rollback
EXCEPTIONS
error_header = 1
error_item = 2
OTHERS = 3.
ELSE.
CALL METHOD g_instance->stop_and_commit
EXCEPTIONS
error_header = 1
error_item = 2
OTHERS = 3.
ENDIF.
*----------------------------------------------------------------------*
* create batchinput session *
* (not for call transaction using...) *
*----------------------------------------------------------------------*
FORM open_group.

* open batchinput group
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
client = sy-mandt
* DEST = FILLER8
group = g_mapnam
* HOLDDATE = FILLER8
keep = 'X'
user = sy-uname
* RECORD = FILLER1
* PROG = SY-CPROG
* DCPFM = '%'
* DATFM = '%'
* IMPORTING
* QID =
EXCEPTIONS
client_invalid = 1
destination_invalid = 2
group_invalid = 3
group_is_locked = 4
holddate_invalid = 5
internal_error = 6
queue_error = 7
running = 8
system_lock_error = 9
user_invalid = 10
OTHERS = 11
.
IF sy-subrc = 0.
g_group_opened = 'X'.
ENDIF.

ENDFORM. "OPEN_GROUP
*----------------------------------------------------------------------*
* end batchinput session *
* (call transaction using...: error session) *
*----------------------------------------------------------------------*
FORM close_group.

IF pa_bi = 'X' AND g_group_opened = 'X'.
* close batchinput group
CALL FUNCTION 'BDC_CLOSE_GROUP'.
ULINE.
FORMAT COLOR 5.
WRITE: 1 'Mappe ',g_mapnam, 'wurde erstellt!'(i07).
FORMAT COLOR OFF.
WRITE: /.
* Zeitpunkt d. Ausführens, Datum
WRITE: 1 sy-datum,
* Zeitpunkt d. Ausführens, Zeit
20 sy-uzeit,
* Von welchem User wird der BI ausgeführt
40 sy-uname.
WRITE: /.
ULINE.
ELSE.
IF pa_di = 'X' AND g_group_opened = 'X'.
ULINE.
FORMAT COLOR 6.
WRITE: 1 'Fehlermappe ',g_mapnam,' wurde erzeugt'(i06).
FORMAT COLOR OFF.
WRITE: /.
* Zeitpunkt d. Ausführens, Datum
WRITE: 1 sy-datum,
* Zeitpunkt d. Ausführens, Zeit
20 sy-uzeit,
* Von welchem User wird der DI ausgeführt
40 sy-uname.
WRITE: /.
ULINE.
CALL FUNCTION 'BDC_CLOSE_GROUP'.
ENDIF.
ENDIF.

ENDFORM. "CLOSE_GROUP
*----------------------------------------------------------------------*
* Start new transaction according to parameters *
*----------------------------------------------------------------------*
FORM bdc_transaction USING tcode.
DATA: l_mstring(480).
DATA: l_subrc LIKE sy-subrc.

* batch input session
IF pa_bi = 'X' AND g_group_opened = 'X'.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
tcode = tcode
* POST_LOCAL = NOVBLOCAL
* PRINTING = NOPRINT
* SIMUBATCH = ' '
* CTUPARAMS = ' '
TABLES
dynprotab = bdcdata
EXCEPTIONS
internal_error = 1
not_open = 2
queue_error = 3
tcode_invalid = 4
printing_invalid = 5
posting_invalid = 6
OTHERS = 7
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

* call transaction using
ELSE.
IF pa_di = 'X' AND g_group_opened = 'X'.
REFRESH messtab.
CALL TRANSACTION tcode USING bdcdata
MODE ctumode
UPDATE cupdate
MESSAGES INTO messtab.
l_subrc = sy-subrc.
** Erzeugen fehlermappe ************************************************
IF l_subrc <> 0.
IF g_group_opened IS INITIAL.
g_mapnam = 'ZERROR_CS07'.
PERFORM open_group.
ELSE.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
tcode = tcode
TABLES
dynprotab = bdcdata.
ENDIF.

ENDIF.
ENDIF.
ENDIF.

ENDFORM. "BDC_TRANSACTION
*----------------------------------------------------------------------*
* Start new screen *
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM. "BDC_DYNPRO
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDFORM. "BDC_FIELD