technisch – SAP and more

SAP ABAP Archive nach Kategorien "technisch"

GOS: Verbindung an anderes Objekt übertragen

FuBa ARCHIV_GET_CONNECTIONS_INT: Ermittlung Verbindung

DATA: lt_con     TYPE TABLE OF toav0,
          lv_id      TYPE          toav0-object_id,
          lv_vbeln   TYPE          vbeln_vf.

lv_vbeln = |{ i_rbkpv-xblnr ALPHA = IN }|.

lv_id = lv_vbeln.

 CALL FUNCTION 'ARCHIV_GET_CONNECTIONS_INT'
    EXPORTING
      objecttype       = 'VBRK'
      object_id        = lv_id
      until_ar_date    = sy-datum
    TABLES
      connections      = lt_con
    EXCEPTIONS
      nothing_found    = 1
      error_authorithy = 2
      error_parameter  = 3
      OTHERS           = 4.

DATA: lt_con TYPE TABLE OF toav0,

lv_id TYPE toav0-object_id,

lv_vbeln TYPE vbeln_vf.

lv_vbeln = |{ i_rbkpv-xblnr ALPHA = IN }|.

lv_id = lv_vbeln.

CALL FUNCTION 'ARCHIV_GET_CONNECTIONS_INT'

EXPORTING

objecttype = 'VBRK'

object_id = lv_id

until_ar_date = sy-datum

TABLES

connections = lt_con

EXCEPTIONS

nothing_found = 1

error_authorithy = 2

error_parameter = 3

OTHERS = 4.

FuBa ARCHIV_CONNECTION_COMPOSE: neue Archivverknüpfung aufbauen

CALL FUNCTION 'ARCHIV_CONNECTION_COMPOSE'
        EXPORTING
*         MANDANT    = SY-MANDT
          sap_object = 'BUS2081'
          object_id  = lv_id
          ar_object  = 'MMOERS'
          archiv_id  = <ls_con>-archiv_id
          arc_doc_id = <ls_con>-arc_doc_id
          ar_date    = <ls_con>-ar_date
          del_date   = <ls_con>-del_date
        IMPORTING
          connection = ls_con
        EXCEPTIONS
          not_found  = 1
          OTHERS     = 2.

CALL FUNCTION 'ARCHIV_CONNECTION_COMPOSE'

EXPORTING

* MANDANT = SY-MANDT

sap_object = 'BUS2081'

object_id = lv_id

ar_object = 'MMOERS'

archiv_id = <ls_con>-archiv_id

arc_doc_id = <ls_con>-arc_doc_id

ar_date = <ls_con>-ar_date

del_date = <ls_con>-del_date

IMPORTING

connection = ls_con

EXCEPTIONS

not_found = 1

OTHERS = 2.

FuBa ARCHIV_CONNECTIONTABLE_INSERT: Neue Verbindung

 CALL FUNCTION 'ARCHIV_CONNECTIONTABLE_INSERT'
      TABLES
        entrys_connectiontable = lt_con_neu
      EXCEPTIONS
        no_entry_possible      = 1
        OTHERS                 = 2.

CALL FUNCTION 'ARCHIV_CONNECTIONTABLE_INSERT'

TABLES

entrys_connectiontable = lt_con_neu

EXCEPTIONS

no_entry_possible = 1

OTHERS = 2.

Überprüft, ob das Programm im Verbucher abläuft

DATA: lv_in_update_task TYPE sy-subrc.
 
* Überprüft, ob das Programm im Verbucher abläuft
CALL FUNCTION 'TH_IN_UPDATE_TASK'
  IMPORTING
    in_update_task = lv_in_update_task.
 
IF lv_in_update_task EQ 0.
  WRITE: / 'Nicht in einem Update Task'.
ELSE.
  WRITE: / 'In einem Update Task'.
ENDIF.

DATA: lv_in_update_task TYPE sy-subrc.

* Überprüft, ob das Programm im Verbucher abläuft

CALL FUNCTION 'TH_IN_UPDATE_TASK'

IMPORTING

in_update_task = lv_in_update_task.

IF lv_in_update_task EQ 0.

WRITE: / 'Nicht in einem Update Task'.

ELSE.

WRITE: / 'In einem Update Task'.

ENDIF.

Zustand einer SAP-Transaktion

Die Klasse CL_SYSTEM_TRANSACTION_STATE beschreibt den aktuellen Zustand
der laufenden SAP-Transaktion.

Die funktionale Methode GET_IN_UPDATE_TASK liefert den Rückgabewert 1,
falls die Transaktion sich in der lokalen oder der entfernten Verbuchung
befindet. Sonst liefert sie 0.

Die funktionale Methode GET_UPDATE_TASK_LOCAL liefert den Rückgabewert
1, falls für die Transaktion die lokale Verbuchung eingeschaltet ist.
Sonst liefert sie 0.

Die funktionale Methode GET_ON_END_OF_TRANSACTION liefert den
Rückgabewert 1, falls die Transaktion sich in der Abarbeitung der mit
PERFORM … ON COMMIT bzw. mit PERFORM … ON ROLLBACK registrierten
Form-Routinen befindet. Sonst liefert sie 0.

Die funktionale Methode GET_ON_COMMIT liefert den Rückgabewert 1, falls
die Transaktion sich in der Abarbeitung der mit PERFORM … ON COMMIT
registrierten Form-Routinen befindet. Sonst liefert sie 0.

Die funktionale Methode GET_ON_ROLLBACK liefert den Rückgabewert 1,
falls die Transaktion sich in der Abarbeitung der mit PERFORM … ON
ROLLBACK registrierten Form-Routinen befindet. Sonst liefert sie 0.

Die funktionale Methode GET_SAP_LUW_KEY liefert als Rückgabewert einen
Schlüssel, der die aktuelle SAP-Transaktion eindeutig identifiziert.
Dieser Schlüssel ist für den Dialogteil und den Verbuchungsteil einer
SAP-Transaktion identisch.

* Transaktions-ID (LUW-Key)
WRITE: / cl_system_transaction_state=>get_sap_luw_key( ).
 
* Programm ist im Verbucher (1 = wahr, 0 = falsch)
CASE cl_system_transaction_state=>get_in_update_task( ).
  WHEN 1.
    WRITE: / 'Update task is active.'.
  WHEN 0.
    WRITE: / 'Not in update task.'.
ENDCASE.
 
* lokale Verbuchung ist eingeschaltet (1 = wahr, 0 = falsch)
CASE cl_system_transaction_state=>get_update_task_local( ).
  WHEN 1.
    WRITE: / 'Local update task is switched on.'.
  WHEN 0.
    WRITE: / 'Local update task is switched off.'.
ENDCASE.
 
* in ON-COMMIT/ON-ROLLBACK (1 = wahr, 0 = falsch)
CASE cl_system_transaction_state=>get_on_end_of_transaction( ).
  WHEN 1.
    WRITE: / 'In ON-COMMIT/ON-ROLLBACK.'.
  WHEN 0.
    WRITE: / 'Nicht in ON-COMMIT/ON-ROLLBACK.'.
ENDCASE.
 
* in ON-COMMIT (1 = wahr, 0 = falsch)
CASE cl_system_transaction_state=>get_on_commit( ).
  WHEN 1.
    WRITE: / 'In ON-COMMIT.'.
  WHEN 0.
    WRITE: / 'Nicht in ON-COMMIT.'.
ENDCASE.
 
* in ON-ROLLBACK (1 = wahr, 0 = falsch)
CASE cl_system_transaction_state=>get_on_rollback( ).
  WHEN 1.
    WRITE: / 'In ON-ROLLBACK.'.
  WHEN 0.
    WRITE: / 'Nicht in ON-ROLLBACK.'.
ENDCASE.

* Transaktions-ID (LUW-Key)

WRITE: / cl_system_transaction_state=>get_sap_luw_key( ).

* Programm ist im Verbucher (1 = wahr, 0 = falsch)

CASE cl_system_transaction_state=>get_in_update_task( ).

WHEN 1.

WRITE: / 'Update task is active.'.

WHEN 0.

WRITE: / 'Not in update task.'.

ENDCASE.

* lokale Verbuchung ist eingeschaltet (1 = wahr, 0 = falsch)

CASE cl_system_transaction_state=>get_update_task_local( ).

WHEN 1.

WRITE: / 'Local update task is switched on.'.

WHEN 0.

WRITE: / 'Local update task is switched off.'.

ENDCASE.

* in ON-COMMIT/ON-ROLLBACK (1 = wahr, 0 = falsch)

CASE cl_system_transaction_state=>get_on_end_of_transaction( ).

WHEN 1.

WRITE: / 'In ON-COMMIT/ON-ROLLBACK.'.

WHEN 0.

WRITE: / 'Nicht in ON-COMMIT/ON-ROLLBACK.'.

ENDCASE.

* in ON-COMMIT (1 = wahr, 0 = falsch)

CASE cl_system_transaction_state=>get_on_commit( ).

WHEN 1.

WRITE: / 'In ON-COMMIT.'.

WHEN 0.

WRITE: / 'Nicht in ON-COMMIT.'.

ENDCASE.

* in ON-ROLLBACK (1 = wahr, 0 = falsch)

CASE cl_system_transaction_state=>get_on_rollback( ).

WHEN 1.

WRITE: / 'In ON-ROLLBACK.'.

WHEN 0.

WRITE: / 'Nicht in ON-ROLLBACK.'.

ENDCASE.

Kategorie: technisch

GOS: Verbindung an anderes Objekt übertragen

FuBa ARCHIV_GET_CONNECTIONS_INT: Ermittlung Verbindung

FuBa ARCHIV_CONNECTION_COMPOSE: neue Archivverknüpfung aufbauen

FuBa ARCHIV_CONNECTIONTABLE_INSERT: Neue Verbindung

Überprüft, ob das Programm im Verbucher abläuft

Zustand einer SAP-Transaktion

Categories

Links

Kategorien

Meta

Archive

FuBa ARCHIV_GET_CONNECTIONS_INT: Ermittlung Verbindung

FuBa ARCHIV_CONNECTION_COMPOSE: neue Archivverknüpfung aufbauen

FuBa ARCHIV_CONNECTIONTABLE_INSERT: Neue Verbindung

Categories

Links

Kategorien

Meta

Wolke

Archive