インフリー技術情報発信ブログ

数値の切捨て、切り上げ、四捨五入

今回は、数値の切捨て、切り上げ、四捨五入についてです。

・FLOOR    ・・・小数点以下切り捨て

例）
DATA: g_pack(3) TYPE p DECIMALS 2.
      
      g_pack = '123.45'.    
      g_pack = FLOOR( g_pack ).

      変数：g_pack には「123.00」が保持されることになります。

・CEIL    ・・・小数点以下切り上げ

例）
DATA: g_pack(3) TYPE p DECIMALS 2.
      
      g_pack = '123.45'.
      g_pack = CEIL( g_pack ).

      変数：g_pack には「124.00」が保持されることになります。

・ABS    ・・・絶対値

例）
DATA: g_pack(3) TYPE p DECIMALS 2.
      
      g_pack = '-123.45'.
      g_pack = ABS( g_pack ).

      変数：g_pack には「123.45」が保持されることになります。

上述のように小数点以下の切り捨て、切り上げは、
組込関数で簡単に記述できます。

では、四捨五入は？小数点以下第何位で丸めたい場合は？

・四捨五入
丸めたい少数点以下桁数の変数に代入することで、四捨五入されます。

例）
DATA: g_pack(3) TYPE p DECIMALS 2.
DATA: g_maru(3) TYPE p DECIMALS 1.
      
      g_pack = '-123.45'.
      g_maru = g_pack.

      変数：g_maru には「123.5」が保持されることになります。

・小数点以下を指定した丸め
汎用モジュール「ROUND」を使用します。
これ1つで、上述の組込関数を使用した方法等の代用できます。

いつでも、汎用モジュール「ROUND」を使えば、すべて対応できますが、
例えば、計算しつつ丸めたい場合は、組込関数のほうが便利です。

状況によって使い分けるのが、スマートだと思っています。

では以上！！

文字列処理

今回は、よく使用する文字列処理命令について、紹介したいと思います。

○CONCATENATE 2つ以上の文字列を結合します
    DATA: str_a TYPE string,
               str_b TYPE string,
               str_c TYPE string.  

     str_a = 'A'.
     str_b = 'B'.
    CONCATENATE str_a str_b INTO str_c SEPARATED BY space.
 
   上記処理の結果、str_c には、「A B」が格納されます。
また、『LINES OF ～』を指定すると、内部テーブルの全行を一気に結合できます。
   例：CONCATENATE LINES OF itab_d INTO str_c SEPARATED BY space.
   内部テーブルの項目を指定して結合できれば、より便利なんですけどね。。。
私は、SPLIT命令(後述参照)で内部テーブルに分割した文字列を元に戻すときによく使います。       

○FIND 文字列の内容を検索します。
    DATA: str_a TYPE string,
              str_b TYPE string.

    str_a = 'AC'.
    str_b = 'BBBBACCCC'.

    FIND str_a in str_b.

    オプションを使って、探したい値の開始位置を調べるときに使うことが多いです。
    例：FIND str_a in str_b MATCH OFFSET int_e.

DBテーブル

DBテーブルについて

SAPには、3種類のテーブルタイプが存在します。

・透過テーブル
・プールテーブル
・クラスタテーブル

●透過テーブルとは・・・

一番よく使用されるテーブルタイプです。
Add-On開発では、99%がこのテーブルタイプではないでしょうか。

クラスタテーブル、プールテーブルとの違い：
・ABAPディクショナリと同じ構造で、DBテーブルが登録されています。
以下が同じ
・キー定義
・項目数
・各項目属性　などなど・・
・2次索引が登録できます。
・Select文で、内部結合・外部結合が使用できます。

●プールテーブルとは・・・

例：「Annn」条件マスタや「T001T」カスタマイズテーブルなどなど
テーブルプールに割り当てられたテーブルのことです。
テーブルプールには、複数プールテーブルが割り当てられ、
DB上は、テーブルプールにデータが登録されています。

複数のプールテーブルのデータが、どのようにテーブルプールに登録されているかというと
プールテーブルの1行1行が、それぞれテーブルプールの1行となっていて、
内部結合ではなく、単純に複数のテーブルがまとまっているだけです。


●クラスタテーブルとは・・・

例：「BSEG」会計伝票明細
テーブルクラスタに割り当てられたテーブルのことです。
テーブルクラスタには、複数クラスタテーブルが割り当てられ、
DB上は、テーブルクラスタにデータが登録されています。

さて、プールテーブルとは何が違うのかというと。。。

クラスタテーブルは、プライマリキーで内部結合された状態で
複数テーブルがまとまって登録されています。


■プールテーブルとクラスタテーブルの共通点
・キー項目以外の項目は、ほとんどが文字列結合された状態で1項目に登録されています。
・上記理由により、キー以外の項目を抽出条件とするとパフォーマンス悪化の要因になります。
・NativeSQLでは使用できません。
・Select文で、外部結合・内部結合できません。

排他処理について その５

排他処理について、6回目！今回で、ひとまず終わりになります。

今回は、ロック制御用パラメータについて
例は、前々回「排他処理について　その３」と同じロックオブジェクト：EZT01です。

ロックオブジェクトを登録すると、3つのロック制御用パラメータが自動的に作られます。
_WAIT
_COLLECT
_SCORP

1.　_WAIT
このパラメータは、その名の通り、待ちます。
すでに同じキーでロックされている場合、「X」を渡すとロックが解除されるまで待ちます。
どれくらい待ってくれるかというと、BASISのパラメータ定義：DELERY_MAXに起因するため、決まっていません。
いままでは、5秒程度が多かったように思います

2. _COLLECT
よく「あぁこんなとこで、ロックのためだけにループしたくないなぁ」って思うことありませんか？
それを解消してくれるのが、このパラメータです！！

このパラメータに「X」を渡すと、その時点ではロックされず、情報がたまります。その後、汎用モジュール「FLUSH_ENQUEUE」をコールしたときに、溜まっているロック情報で一括してロックエントリが追加されます。

排他処理について その４

ロックモードについてです。

ロックモードは、３種類あります。
     E：排他ロック
     S：共有ロック
     X：排他ロック（累積なし）

 

なにが違うのかというと・・・

ロックモード毎に、ロックエラーになる場合とならない場合が異なります。

わかりにくいので、表にすると下表のようになります

 　　　　　  

縦列は、初めにロックしているロックモード。横列は、ロックエラーとなるキーで2回目以降ロックモジュールを
コールする時のロックモードです。「OK」がエラーとならないケース、「NG」がエラーとなるケースです。

基本的には、「E」であれば大半の要件を満たせると思いますが、状況に応じて、使い分けると、
玄人っぽいかもしれません。 

では、今回はここまで！

 

排他処理について その３

前回の予告では、ロックモードとロックキー指定用パラメータについてでしたが、
ロックキー指定用パラメータについてのみになります。

 

まずは、アドオンテーブル：ZT01のロックオブジェクト：EZT01を登録したとします。

         ○アドオンテーブル定義
                 アドオンテーブル：ZT01
                           プライマリーキー　品目コード：MATNR
                                                   プラント　 ：WERKS

このとき、ロックモジュールには、ロックキー指定用パラメータには、以下の4つが定義されます

          ○ロックキー指定用パラメータ
                    MATNR
                    WERKS
                    X_MATNR
                    X_WERKS

例えば、品目コード：M00001　プラント：W001でロックをかけたい場合は、
下のように、ロックモジュールをコールします

    CALL FUNCTION 'ENQUEUE_EMRKPF'
      EXPORTING
        MODE_RKPF      = ‘E’
        MATNR          = ‘M00001’
        WERKS          = ‘W001’
      EXCEPTIONS
        FOREIGN_LOCK   = 1
        SYSTEM_FAILURE = 2
        OTHERS         = 3.

ロックに成功すると、リターンコード（SY-SUBRC）にゼロが設定されます。また、ロックテーブルに
下表のようにエントリが追加されます。このロックエントリは、トランザクション：SM12で確認できます。

 

汎用モジュールをコールした時、ロックテーブルのエントリを見て、キーが一緒だった場合、
指定したリターンコードが設定されます。（上記の例では、「1」）

ロックしたユーザは、システム変数の「SY-MSGV1」に格納されているので、
メッセージ等で使用する場合はこちらを使いましょう。

ロックを解除したいときは、同じように解除用のロックモジュールをコールします

      CALL FUNCTION 'DEQUEUE_EMRKPF'
        EXPORTING
           MATNR          = ‘M00001’
           WERKS          = ‘W001’.

排他処理について その２

 予定通り、ロックオブジェクトの汎用モジュールについてです。

 

まずは・・・・

○ロックオブジェクトの登録手順

 1. トランザクション「SE11」を起動する

       1.1 ラジオボタン「ロックオブジェクト」を選択する

       1.2 ロックオブジェクトIDを入力する

              IDは、「EZ******」(****** は14桁の任意の値)がよく利用されます。

       1.3 登録ボタンを押下する

 2. ロックオブジェクト更新画面が起動する

       2.1 内容説明を入力する

       2.2 テーブルタブを選択し、名称にロック対象テーブルIDを入力する

       2.3 ロックモード「E：書込ロック」「X：排他、累積なし」「S：読込ロック」のいずれかを選択する

       2.4 有効化ボタンを押下する

もう少しできることはありますが、基本的にはこれでOK！！

 

ロックオブジェクトを有効化すると自動的に、以下のような汎用モジュール（ロックモジュール）が2つ生成されます。

 

       ロック　　　：ENQUEUE_EZ******

       ロック解除：DEQUEUE_EZ******

 

生成されたロックモジュールは、ロックオブジェクト更新画面の「メニュー>ジャンプ>ロックモジュール」 で確認できます。

 

ロックモジュールのパラメータは、どちらもほとんど変わらず、大きく3種類に分けられます

1.　ロックモードの指定用パラメータ

「E：書込ロック」「X：排他、累積なし」「S：読込ロック」のいずれかを受け渡すことが可能であり、登録時に指定した値がデフォルト値となります

2.　ロックキー指定用パラメータ

ロック対象テーブルのプライマリキーがパラメータとして定義されます。初期値をロックキーデータとするかの判定フラグ用パラメータも定義されます

3.　ロック制御用パラメータ

他者からロックされていた場合、解除されるのを一定時間待つか、一括ロック（ロック解除）対象とするか　等のフラグがパラメータとして定義されます

実際の開発では、上記1．と3．のパラメータはあまり使いません。2．のパラメータに、ロックするキー値を渡し、ロックモジュール「ENQUEUE_EZ******」でロックをかけ、ロックモジュール「DEQUEUE_EZ******」でロックを解除します。

 

今回は、ここまで。

次回は、、、ちょっとした具体例を交えて、ロックモードとロックキー指定用パラメータについて書きたいと思います。

排他処理について

 

 

今回は、SAPの排他処理（データベースロック）についてです。

 

○排他処理とは・・・・

あるデータベーステーブル上の情報を更新するときに、他のプログラムで更新できないようにする処理のことを指します。

 

なんとなくイメージがわかない場合は、Excelファイルを想像してください。

 

・・・ひとつのExcelファイルを何人かで、同時に開こうとする場合、1人目はいつも通り開けます。

2人目が開こうとすると・・・・読み取り専用でしか開けません。

3人目が開いても、読み取り専用でしか開けません。

 

これは、1人目の人が開いたときに、排他処理が行われているために、2人目、3人目には、変更できないようになっているのです。

 

このような排他処理には、一般的に、物理ロックと論理ロックの2種類が存在します。ABAPでは、基本的に論理ロックが用いられます。

 

論理ロックとは、文字通り論理的にロックすることです。

つまり・・・・・・・・・・・・・

 

『この「テーブル」のこの「条件」でロックしています』という情報を

メモリ上に保持することで、排他を実現しています。

 

各プログラムは、テーブルを更新しようとする毎に、この情報を参照して、他のプログラムにロックされていないかどうかを判断します。

 

○ABAPでの排他処理を行うには・・・・

登録された『ロックオブジェクト』の汎用モジュールを、コールして実施します。

 

『ロックオブジェクト』は、基本的にテーブル毎に登録されます。

また、『ロックオブジェクト』を登録することで、2種類の汎用モジュールが自動生成されます

 

1.         ロックをかける汎用モジュール（ENQUEUE_～）

2.         ロックを解除する汎用モジュール（DEQUEUE～）

 

次回は、ロックオブジェクトの汎用モジュールについて、記載予定です。

フィールドシンボル 使ってみよう その３

さて、今回もフィールドシンボルを使ったソースコードの紹介です。

今回は、在庫履歴テーブルを基に、12か月分を横1行に並ぶように、値を編集するロジックです。

これには、「ASSIGN COMPONENT (変数) OF STRUCTURE （構造） TO （フィールドシンボル).」の命令を使用します。

 

（変数）には、フィールドシンボルに割り当てる（構造）の項目位置（左から何番目か）または項目IDを定義します。

 

（構造）には、フィールドシンボルに割り当てる構造そのものを設定します。

 （フィールドシンボル）は、当然、割当先のフィールドシンボルです。

下記、ソースコードには、方法1と方法2で（変数）への値の設定方法を現しています。

どちらも結果は同じになります。

REPORT  zxxxxxxxxx.

* 品目マスタ保管場所セグメント: 履歴
TYPES: BEGIN OF typ_mardh,
         matnr TYPE mardh-matnr,
         lfmon TYPE mardh-lfmon,
         labst TYPE mardh-labst,
       END OF typ_mardh.

DATA: it_mardh TYPE STANDARD TABLE OF typ_mardh.
DATA: w_lfmon  TYPE mardh-lfmon.

TYPES: BEGIN OF typ_month,
         labst01 TYPE mardh-labst,
         labst02 TYPE mardh-labst,
         labst03 TYPE mardh-labst,
         labst04 TYPE mardh-labst,
         labst05 TYPE mardh-labst,
         labst06 TYPE mardh-labst,
         labst07 TYPE mardh-labst,
         labst08 TYPE mardh-labst,
         labst09 TYPE mardh-labst,
         labst10 TYPE mardh-labst,
         labst11 TYPE mardh-labst,
         labst12 TYPE mardh-labst,
        END OF typ_month.

DATA: st_month TYPE typ_month.
DATA: w_fld    TYPE dd03l-fieldname.

DATA: w_index  TYPE i.

FIELD-SYMBOLS <f_st> TYPE typ_mardh.
FIELD-SYMBOLS <f_itm>.

PARAMETERS p_matnr TYPE mard-matnr OBLIGATORY.
PARAMETERS p_werks TYPE mard-werks OBLIGATORY.
PARAMETERS p_lgort TYPE mard-lgort OBLIGATORY.

SELECT matnr lfmon labst
  FROM mardh
  INTO TABLE it_mardh
 WHERE matnr = p_matnr
   AND werks = p_werks
   AND lgort = p_lgort.

CHECK sy-subrc = 0.

* 方法1
DO 12 TIMES.

  ADD 1 TO w_index.
  w_lfmon = w_index.

  READ TABLE it_mardh ASSIGNING <f_st>
                      WITH KEY lfmon = w_lfmon.
  CHECK sy-subrc = 0.

  ASSIGN COMPONENT w_index OF STRUCTURE st_month TO <f_itm>.
  CHECK sy-subrc = 0.

  <f_itm> = <f_st>-labst.

ENDDO.

CLEAR: w_lfmon, st_month.
* 方法2
DO 12 TIMES.

  ADD 1 TO w_lfmon.

  READ TABLE it_mardh ASSIGNING <f_st>
                      WITH KEY lfmon = w_lfmon.
  CHECK sy-subrc = 0.

  CONCATENATE 'LABST' w_lfmon INTO w_fld.

  ASSIGN COMPONENT w_fld OF STRUCTURE st_month TO <f_itm>.
  CHECK sy-subrc = 0.

  <f_itm> = <f_st>-labst.

ENDDO.

フィールドシンボルのソースコード紹介は、今回で終了です。

さてさて、次回のテーマは・・・これから考えます

フィールドシンボル 使ってみよう その２

今回も、フィールドシンボルの使用例のご紹介です。

今回の使用例は、テーブルのデータを一括して抽出して、一覧表示する機能です。

選択画面で指定されたテーブルIDを基に、内部テーブル定義しフィールドシンボルに割り当てています。

 

フィールドシンボルを使ってみたいけど、よくわからないな。という方は、

ぜひ、前回と今回の使用例を使って、プログラムを組んで、デバッグしてみてください。

 

使用例：

 

Report XXXX.

DATA: REF_TAB   TYPE REF TO DATA.   "参照変数

FIELD-SYMBOLS: <TAB> TYPE TABLE.    "対象データ取得用内部テーブル

FIELD-SYMBOLS: <ST>.                "内部テーブルヘッダ

PARAMETERS: P_TABNM   TYPE DD03L-TABNAME   OBLIGATORY.

* Main Proc

START-OF-SELECTION.

*  内部テーブル定義

  CREATE DATA REF_TAB TYPE TABLE OF (P_TABNM).

  ASSIGN REF_TAB->* TO <TAB>.

* 対象データを取得

  SELECT *

    INTO CORRESPONDING FIELDS OF TABLE <TAB>

    FROM (P_TABNM).

* 取得したデータを一覧表示

  LOOP AT <TAB> ASSIGNING <ST>.

   WRITE / <ST>.

  ENDLOOP.