ABAP:ENQUEUE_E_TABLE

-

①テーブルデータのロック

CONCATENATE sy-mandt lv_matnr INTO lv_mara_key. 

" Lock object 

CALL FUNCTION 'ENQUEUE_E_TABLE' 

    EXPORTING 

     MODE_RSTABLE = 'E' 

     tabname  = 'MARA' 

     varkey   = lv_mara_key 

    EXCEPTIONS 

    　 foreign_lock = 1  

　　system_failure = 2  

　　OTHERS = 3. 

IF SY-SUBRC <> 0.

   LW_MSGV1= SY-MSGV1.

  LW_MSGV2= SY-MSGV2.

  MESSAGE XXX WITH SY-REPID LW_MSGV1 LW_MSGV2

   DISPLAY LIKE 'E'.

  " &1はユーザ&2によりロックされています(キー：&3)

  LEAVE LIST-PROCESSING.

ENDIF.


" Unlock object 

CALL FUNCTION 'DEQUEUE_E_TABLE' 

    EXPORTING 

     MODE_RSTABLE = 'E' 

     tabname  = 'MARA' 

     varkey   = lv_mara_key 

    EXCEPTIONS 

     foreign_lock = 1  system_failure = 2  OTHERS = 3. 


②処理のロック

lv_varkey  = 'XXX'     "XXXは処理ID

CALL FUNCTION 'ENQUEUE_E_TABLE' 

    EXPORTING 

     MODE_RSTABLE = 'X' 

     varkey   = lv_varkey 

    EXCEPTIONS 

    　 foreign_lock = 1  

　　system_failure = 2  

　　OTHERS = 3. 

③ファイルダウンロード場合、排他ロック処理
　　
　CALL FUNCTION 'ENQUEUE_E_TABLE'
    EXPORTING
      MODE_RSTABLE   = 'X'
      TABNAME        =
      VARKEY         =   "ファイル名
    EXCEPTIONS
      FOREIGN_LOCK   = 1
      SYSTEM_FAILURE = 2
      OTHERS         = 3.

このブログの人気の投稿

ABAP:データファイルのアップロードとダウンロード

-
  ■ サーバファイル 　① データファイルの保存先を取得（論理バス(T-cd:file) → 物理パス） 　CALL FUNCTION 'FILE_GET_NAME_USING_PATH'     EXPORTING       LOGICAL_PATH                     = LOGIC_FILEPATH  " 論理バス       FILE_NAME                        = LOGIC_FILENAME  " ファイル名     IMPORTING       FILE_NAME_WITH_PATH              = PHYS_FILEPNAME          " 物理パス+ファイル名     EXCEPTIONS       PATH_NOT_FOUND                   = 1       MISSIN...
続きを読む

ABAPSE12　更新ビュー作成手順

-
更新ビュー作成手順 ①      TCODE:SE12 DBテーブルを選択して、ディクショナリ：テーブル照会画面に入ります。 ②      照会→変更に切替、メニューバー　→　ユーティリティ　→　テーブル更新ジェネレータ テーブル更新ダイアログ登録画面に入ります。 ③      テーブル更新ダイアログ登録画面に下記の項目を記入します。 ・権限グループ          テーブルまたビューの内容を更新する権限を持ったユーザグループです。 ・汎用グループ          テーブルまたはビューに固定の更新ダイアログコンポーネントを生成する際に使用する汎用グループです。                         汎用モジュールの登録は必要に応じて行われます。 ・更新タイプ            １ステップまたは2ステップのダイアログです。                         １ステップのダイアログは、全ての項目を含む概要画面のみによって構成されます。 　　　　　　　　　　　　2ステップのダイアログの場合、概要画面には、キーと20文字を超える長さを持ったテキスト項目のみが表示されます。                            詳細画面にはすべての項目が表示されます。 ・更新画面番号          各更新画面の内部番号です。検索機能を使用すれば、入力可能値を取得することができます。 ④      保存、有効化 ※...
続きを読む

ABAP:]バックグラウンドジョブDEBUG

-
T-CD:SM37からバックグラウンドジョブをデバッグ実行可能です。 SM37のジョブ一覧画面でコマンドフィールドに"JDBG"と入力するだけでお手軽です。 画面イメージとかは下記Wikiを参照して下さい。 http://wiki.scn.sap.com/wiki/display/ERPFI/Debug+program+used+in+background 標準ではジョブ実行となってしまう処理をトレースするのに非常に便利です。 バックグラウンド実行プログラムをdebugする！ 代表的な裏技は全部で３つ。 方法①②はコピープログラム作成が前提です。同じプログラムを何度もデバッグする場合に向いています。 また、直接コードを修正するので注意が必要であり、ブラックボックスである標準プログラムには向きません。 方法③は、一番簡易で現実的な方法です。標準プログラム、アドオンプログラム問わず最も効率的な方法です。 方法①　SY-BATCH行をコメントアウト バックグラウンド実行プログラムには以下のようなコードがあります。 CHECK　SY-BATCH　IS　NOT　INITIAL.　 バックグラウンド実行プログラムが、バックグラウンド実行しかできないのはこのコードがあるからです。 SY-BATCHはバックグラウンド実行の場合に「X」が格納されます。もし、ここに「X」が格納されていれば、 そのプログラムは「バックグラウンド実行されている」ことになりますし、 ブランクであれば「オンライン実行」されているということになります。 先ほどの1行で、SY-BATCHが空白でないこと、つまりバックグラウンド実行でプログラムが動かされていることを、 このコードで制限しているわけです。 ので、このコードがなければバックグラウンド実行のみが許可されているプログラムでもオンライン実行が可能になり、 デバッグができるようになります。 したがって、「SY-BATCH」が含まれる行をコメントアウトすればデバッグができるようになります。 ※システム項目？という方はこちら。 方法②　SY-BATCHに「X」を入れる 前述したように、バックグラウンド実行しかできないプログラムは、SY-BATCHの値によって制限しています。 つま...
続きを読む