MUMPS Globals：極端なデータベースプログラミング。 パート1

翻訳者によるメモ。



データベースの世界には興味深い技術、 MUMPSがあります。 このプログラミング言語とデータアクセスは、数十年にわたって知られており、デバッグされており、実績のある成人向け技術です。



たとえば、SQLとBASICを比較できる場合、MUMPSはCに似ています。最高のパフォーマンス、柔軟性、汎用性を提供し、最も複雑なデータ構造を作成できます。



これは、記事「MUMPS Globalsを使用した極端なデータベースプログラミング」の最初の部分の翻訳です。 コミュニティにとって興味深いと思われる場合は、2番目の部分の翻訳が続きます。

第1章グローバル：リレーショナルアプローチの代替

MUMPSテクノロジーの真の核心はストレージエンジンです。 これは、グローバル変数または（より一般的な名前）グローバルと呼ばれるものに基づいています。 グローバルは信じられないほど単純な概念ですが、信じられないほど強力です。



多くの人々はグローバルを受け入れません。 これらは原始的な構造です。 それらには、「まともな」データベースによって提供されるコントロール、セーフティネット、または高度な機能はありません。 その結果、MUMPSは多くの場合、役に立たない、不適切な、または一般的に不適切なシステムとして借方記入されます。 これも行うと、シンプルで便利で非常に柔軟なデータストレージメカニズムを無視します。 熟練した手では、過剰な荷物や要求のないリソースがないため、信じられないほどの自由が得られます。 不適切な手で、同じことが災害につながる可能性があります。 これは、フリークライミングなどの極端なスポーツに少し似ています。 「本物の」アスリートがこれをお勧めする人はほとんどいません。なぜなら、保険なしで登山を処理できるなら、それはその山を登る最も速く、最も効果的で最も楽しい方法だからです。 ただし、登山用具のメーカーは、このスポーツを推奨しません。これは、自社製品の需要を減らすことを意味するためです。



そのため、チャレンジを受け入れて、スナップアップされたリレーショナルおよびSQLアプローチ以外にデータウェアハウスを編成する他の方法があることを認める準備ができたら、深く掘り下げましょう。



これは、グローバリゼーションの基本を明らかにする最初の章です。 2番目の章では、RDBMS / SQLプログラマーが理解できる用語でアプリケーションに焦点を当てます。 必要に応じて、第2章に直接移動し、後でこのテキストに戻って基本を理解することができます。



すべてのMUMPSシステムとその最新の変更（Cachéなど）は、ストレージメカニズムの基盤としてグローバルを使用します。 多くの最新のMUMPSシステムや拡張機能は、主要なグローバルコンストラクトをより「馴染みのある」外観にします。 たとえば、グローバルでは、オブジェクト、リレーショナル、またはXMLデータベースとして機能するビューを作成できます。 さらに、理論的には、グローバルに基づいた同じ物理データベースを論理的に表現し、これらの形式の1つで（そして一度に）使用することができます。 その結果、ツールがグローバルに基づいていることを知らない多くの開発者が登場しました。 彼らはそれが何であるか、それがどのように機能し、どのように使用されるかを知りません。 このテキストは、あなたがこの秘密を学ぶのを助けます、そして、あなたが同意することを非常に魅力的な世界に願っています。



では、グローバルとは何ですか？



要するに、グローバルとは、テキスト値を含む、定数、スパース、ダイナミック、多次元配列です。 MUMPSでは、「ローカルアレイ」と呼ばれる、RAMのみに含まれる永続ディスクと多次元アレイの両方を使用できます。



多くのシステムとは異なり、MUMPSでは両方の英数字インデックスを使用できます。 MUMPSでは、同様の配列を使用できます。

Employee(company,country,office,employeeNumber) = employeeDetails
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

および別のエントリ：

 Employee(“MGW”,”UK”,”London”,1) = “Rob Tweed`Director`020 8404 3054”
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

この例では、従業員情報（名前、役職、電話番号）を構成するデータ要素は、区切り記号としてバックスラッシュ文字と組み合わせて互いに接続されています。 MUMPSは、構造の整理方法を制御または制御しません。レコードを記述するスキーマまたはデータディクショナリはありません。 これにより、信じられないほどの柔軟性が得られ、開発がスピードアップします。 配列レコードのテキスト値を任意の数の「フィールド」に分割する1つ以上のデータ区切り文字を任意に割り当てることができます。 単一の配列レコードの最大合計長は、MUMPSの実装に依存しますが、Cachéでは最大32kです。 文字列の長さは可変であり、理解できるように、区切り文字の存在に基づいて、個々のフィールドの長さも可変です。 これにより、MUMPSグローバルは（テーブルとは異なり）データを格納するための非常に効率的なメカニズムになります。MUMPSファイルには、空の未使用のスペースを格納するディスクスペースは実質的にありません。



上記の例では、従業員レコードは「ローカル配列」と呼ばれるものに含まれています。 MUMPSセッションを終了すると、ページまたはセッションが消えた後のPHP配列のように、配列が消えます。



さあ、楽しみましょう！ 従業員レコードを永続的に、つまりグローバルの形式でディスクに保存するには、単に配列名の前に「^」を追加します。

 ^Employee(company,country,office,employeeNumber) = employeeDetails
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

例：

 ^Employee(“MGW”,”UK”,”London”,1) = “Rob Tweed`Director`020 8404 3054”   !
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

グローバルにそのような要素を作成するには、MUMPS "set"コマンドを使用する必要があります。

 set ^Employee(“MGW”,”UK”,”London”,1) = “Rob Tweed`Director`020 8404 3054”
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

MUMPSで最も混乱し怖いのは、コマンドの主要部分を1文字（小文字または大文字）に減らすことができることです。そのため、上記のコマンドの代わりに次のように表示されることがよくあります。

 s ^Employee(“MGW”,”UK”,”London”,1) = “Rob Tweed`Director`020 8404 3054”
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

これで、MUMPSを終了しても、記録は消えませんが、ディスクに残ります。 戻るたびに、インデックス付きのグローバルを介してディスクエントリを読み取ることができます。

 ^Employee(“MGW”,”UK”,”London”,1)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

グローバルから値を抽出して変数に割り当てるには、通常、「set」コマンドを使用します。次に例を示します。

 Set companyRecord= ^Employee(“MGW”,”UK”,”London”,1)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

companyRecord変数に文字列値「Rob Tweed`Director`020 8404 3054」が含まれるようになりました



グローバルには必要な数のインデックスを含めることができ、これらのインデックスはテキストと数字（実数または整数）の任意の組み合わせにすることができます。 文字列インデックスは二重引用符で囲む必要がありますが、数値インデックスは囲まないでください。



実際、ほとんどのMUMPS実装にはインデックスの合計長に制限があるため、境界を完全に超えることはできません。 ただし、要件に十分なスペースがあることを確認できます。



グローバルからエントリを削除するには、killコマンドを使用できます。

 Kill ^Employee(“MGW”,”UK”,”London”,1)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

実際には、これはすべてグローバルです。 本当の課題は、このような原始的なデータ構造を機能させることです。 これについては、ドキュメントの残りの部分で説明します。 リレーショナルデータベースのSQLプログラマーが、MUMPSプログラマーが使用する同様の手法とビューを理解できるように、これを実行しようとします。



MUMPSでは、データベース設計方法論をサポートしていないことに注意してください。 データベースのロジック、均一性、エラーの有無を監視する制御および検証ツールを追加できます。 これは、通常のDBMSが行う作業を行うことを意味します。 ただし、最も一般的なタスクを自動化し、MUMPSデータベースを簡単に管理できることにすぐに気付くでしょう。



シンプルな階層構造を作成する



たとえば、次のように、同じグローバルで複数のディメンションを同時に使用できます。

 ^Employee(“MGW”,”UK”,”London”) = 2 ^Employee(“MGW”,”UK”,”London”,1) = “Rob Tweed`Director`020 8404 3054” ^Employee(“MGW”,”UK”,”London”,2) = “Chris Munt`Director`01737 371457”
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

3つのインデックスを使用して、特定のオフィスの従業員数を示し、4つは特定の従業員の記録を示します。



プログラマーは、異なるグローバル間のリンクを示す必要があります。 MUMPSは、すぐに使用できるように自動索引付けを提供せず、相互参照しません。



電話番号ですばやく選択するために、^ EmployeeTelephoneグローバルを作成します。電話番号はインデックスで、^ Employeeグローバルインデックスは従業員レコードを示します。

 ^EmployeeTelephone(“020 8404 3054) = “MGW`UK`London`1” ^EmployeeTelephone(“01737 371457”) = “MGW`UK`London`2”
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

この例では、各電話番号に格納されている値には、対応する従業員レコードを示すリンクインデックスも含まれています。 電話番号がわかっている場合は、逆アポストロフィ（区切り記号）を使用してデータを切断し、従業員のマスターレコードを抽出するだけです。



例：

 S telNo=”020 8404 3054” S indexData=^EmployeeTelephone(telNo) S company=$piece(indexData,”`”,1) S country=$piece(indexData,”`”,2) S office=$piece(indexData,”`”,3) S employeeNo=$piece(indexData,”`”,4) S record=^Employee(company,country,office,employeeNo) S employee=$piece(record,”`”,1)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

$ piece MUMPS関数を使用して値をフィールドに分割していることに注意してください。



MUMPSの優れた機能の1つは、事前に何も宣言する必要がないことです。 SQLの世界では、データ構造を変更するには、テーブル構造（ALTER TABLEなど）を変更する必要があります。 MUMPSでは、グローバルのエントリをいつ、どのように作成、変更、削除するかを決定します。これらはすべて、ユーザーのみが自動的かつ動的に制御します。 追加のインデックスや「フィールド」（ピース）を、アナウンスなどのことなくいつでもグローバルに追加できます。 別のグローバルの使用を開始する場合は、それを開始するだけで動的に作成されます。



グローバルでのレコードの作成、読み取り、削除



要するに、MUMPSでは、グローバルのレコードは「Set」コマンドで作成および取得され、「Kill​​」コマンドで削除されます。

1. グローバルでエントリを作成します。
   
   
   
   

     Set ^Employee(“MGW”,”UK”,”London”,1)=“Rob Tweed`Director`020 8404 3054”
         
         
   
           
           
           
         
   
       
           
           
           
         
         
   
           
           
           
         
   
       
        

   
   
   このコードは、グローバルにインデックスを作成し、レコードをディスクに保存します。
   
   
   
   
2. グローバルからレコードを読み取る
   
   
   
   

     Set data=^Employee(“MGW”,”UK”,”London”,1)
         
         
   
           
           
           
         
   
       
           
           
           
         
         
   
           
           
           
         
   
       
        

   
   
   このコードは、グローバルから要素を取得し、「data」と呼ばれるローカル変数に値を配置します。
   
   
   
   
3. グローバルからレコードを削除する：
   
   
   
   

     kill ^Employee(“MGW”,”UK”,”London”,1)
         
         
   
           
           
           
         
   
       
           
           
           
         
         
   
           
           
           
         
   
       
        

   
   
   

このコードは、指定されたグローバルエントリをディスクからすぐに永久に削除します。 Killチームには注意してください-使用するのは非常に簡単で、非常に危険です。 グローバルにあるよりも少ないインデックスを指定すると、多数のインデックスでインデックス付けされたすべての要素を削除します。 インデックスをまったく指定しない場合、グローバル全体を削除します。例：

 Kill ^Employee(“MGW”,”UK”)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

この行は、イギリスのすべてのオフィスのすべてのレコードを削除します

 Kill ^Employee
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

そして、このコマンドは^ Employeeグローバル全体を削除します-即座に、永久に、取消不能に（バックアップしなかった場合）。



グローバルバイパス



最も一般的に使用される機能の1つは、グローバルの一部またはすべてをバイパスすることです。 ユーザーが1つのレコードを選択またはカウントできるリストを表示するために、従業員のすべてのレコードを取得する必要があるとします。 これを行うには、MUMPS $ order関数を使用する必要があります。 $順序関数はMUMPSの真珠の1つであり、これを使用すると、グローバルに格納されているデータを驚くほど簡単に操作できます。



この機能は、「従来の」データベースのプログラマーにとって直感的ではありませんが、非常に強力でシンプルなため、理解する価値があります。



$ order関数は、グローバル内の同じインデックスレベルで機能し、このグローバルレベルに存在する選択範囲内の次のインデックスの値を返します。 初期値を指定できます。$順序関数は、選択されたシーケンス内の次の値を見つけます。 指定されたレベルで最初のインデックスを見つけるには、空の開始値（ ""）を使用します。 「C」で始まる指定されたレベルの最初のインデックスを見つけるには、「B〜」など、「C」の直前に順番に来る初期値を使用します。

したがって、グローバルで最初の従業員を見つけるには：

 S company=”” S company=$order(^Employee(company))
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

会社変数には、^ Employeeグローバルの最初のレコードの最初の会社インデックスの値が含まれています。



最後の値が見つかると、次に$ order関数が実行されると、空の値が返されます。 したがって、グローバルに会社が1つしかなく、$オーダーを繰り返した場合：

 S company=$order(^Employee(company))
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

その場合、会社変数には空の値（ ""）が含まれます。

Employeeグローバルのすべての企業を取得して処理するには、サイクルを作成する必要があります。

 S company=”” For s company=$order(^Employee(company)) quit:company=”” do . ;  -  company
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

このコードは、簡潔なコーディングMUMPSの興味深い機能を示しています。

• Forコマンドの後に2つのスペースが続くと、無限ループが設定されます。
• 終了：company =””は、ループを終了する条件を示し、「事後条件」として知られる構成を使用します。 この設計では、「会社の値が空の場合、Forループを終了します」と書かれています。 コマンドの後に他のコマンドが続く場合、終了の後に2つのスペースが必要です。
• 行の最後の「実行」は、「ドット」の次のレベルに進むコードを実行することを意味します。 会社の値が空になるまで、Forループの各反復で「Do」が実行されます
• 各ループで実行されるコードは、単一のポイントの後に記述されます。 基本的に、ピリオドで始まる行は、この例の2行目の終わりにある「do」コマンドによって実行されるサブルーチンを形成します。

そのため、$順序を空の値に設定して、グローバルに格納されている最初のインデックスを検索してコマンドが開始されるようにします。 格納されたデータが終了するまで各値を調べ、$ orderによって返された空の値を取得し、その後ループを終了します。



このタイプのループは、MUMPSプログラムで最も一般的なものの1つであることがわかります。



このリクエストを展開して、グローバル全体を一度に処理できます。 これを行うために、各インデックスレベルでサイクルを開始します。最初から始めて、次の各レベルに移動します。

 s company=”” for s company=$order(^Employee(company)) quit:company=”” do . s country=”” . for s country=$order(^Employee(company,country)) quit:country=”” do . . s office=”” . . for s office=$order(^Employee(company,country,office)) quit:office=”” do . . . s employeeNo=”” . . . for s employeeNo=$order(^Employee(company,country,office,employeeNo)) quit:employeeNo=”” do . . . . s record=^Employee(company,country,office,employeeNo) . . . . ;  -  
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

ネストされたルーチンの階層を作成するための「ポイント」のレベルの指定方法に注意してください。 また、$順序を使用して4つのグローバルインデックスすべての値をバイパスする方法にも注意してください。

ご注意 トランスレータ ：Cachéでは、ネストされた構造に中括弧を使用できます。

「C」で始まる会社の従業員のレコードのみを検索して処理する必要がある場合、次の一般的な構造を使用します。

 s company=”B~” fs company=$o(^Employee(company)) quit:$e(company,1) '= ”C” do . ;  -  
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

関数$ extract（または$ e）に注意してください。 文字列値の指定された位置から文字を抽出します。この場合、会社名の最初の文字です。 また、「Cと等しくない」を指定する方法にも注意してください。これは、単一引用符（ '）で記述されたMUMPS NOT演算子を使用します。



このサイクルは次のように読むことができます：

• $ orderの初期値は、連続サンプリングの「C」の前の値です
• 無限ループを実行して、サンプル内のすべての会社レコードを検索します
• 会社名の最初の文字が「C」ではない場合、ループを終了します
• それ以外の場合は、会社の記録の処理を続けます。

特定のインデックスから、およびインデックスのネストの任意のレベルでグローバルの走査を開始および停止するこの機能は、MUMPSグローバルの独自の機能です。



グローバル内のレコードの存在を確認する



多くの場合、特定のエントリがグローバルに存在するかどうかを知る必要があります。 これには、MUMPS $データ関数を使用できます。

 if $data(^Employee(company)) do xxx
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

行は「^ ^従業員（会社）が存在する場合、ルーチンxxxを実行します。」 $データ関数は、$ dに短縮できます。



$データはいくつかの異なる値を返します。

• 指定されたインデックスレベルにデータが存在し、サブノードがない場合、値1が返されます
• 指定されたインデックスレベルにデータが存在し、サブノードがある場合、値11が返されます
• 指定されたインデックスレベルにデータが存在しないが、サブノードがある場合、値10が返されます
• 指定されたインデックスレベルにデータが存在しない場合、値0が返されます。

MUMPSでは、論理ifステートメントの使用時にゼロ以外の値がtrueと評価されます。 したがって、$データ（1、10、および11）によって返される最初の3つの値は真と見なされます。 後者の状況（データおよびサブノードなし）はfalseと評価されます。



例として、次のグローバルを考慮してください。

 ^test=3 ^test(“a”)=1 ^test(“a”,”b”,”c”)=2 ^test(“a”,”b”,”d”)=3 $data(^test) = 11 $data(^test(“a”,”b”)=10 $data(^test(“a”,”b”,”c”)=1 $data(^test(“b”)=0
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

「データが定義されていない」などのエラーの防止



グローバルから存在しないエントリを取得しようとすると、MUMPSは<UNDEF>などの実行時エラーをスローします。 これを回避するには、$データ関数を使用してノードの存在を確認するか、より便利な$ get関数を使用します。 これは、存在する場合はグローバルノードの値を返し、存在しない場合は空の値を返します。 $ Get関数は$ gに短縮できます



したがって、前のセクションで$データを使用して使用した例に基づいて：

 $get(^test) = 3 $get(^test(“a”,”b”)=”” ;        $get(^test(“a”,”b”,”c”)=1 $get(^test(“b”)=”” $get(^nonExistentGlobal)=””
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

グローバルを表示



Cachéおよび他のすべてのMUMPSシステムには、グローバルを表示する方法が含まれています。 最も簡単な方法は、コマンドライン用の^％Gコマンドです。これは、Cachéや他のいくつかのMUMPS実装にあります。 ターミナルセッションで次を実行します。

 USER> D ^%G Global ^ Employee
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

グローバル名を入力すると、グローバル全体の内容を表示するコマンドが表示されます。 ただし、次のような個別のインデックスを表示できます。

 Employee()
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

最初のインデックスのみのすべての値をリストする

 Employee(“MGW”
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

最初のMGWインデックス値を持つすべての従業員レコードをリストします

 Employee(“MGW”,)
      
      

        
        
        
      

    
        
        
        
      
      

        
        
        
      

    
     

最初のインデックス「MGW」ですべての2番目の従業員レコードインデックスを一覧表示します



Cachéは、グローバルを表示および編集できるCachéエクスプローラと呼ばれるグラフィカルなブラウザアプリケーションを提供します。



まとめ



グローバルの基本と、その作成と編集について検討しました。 次の章では、リレーショナルデータベースに精通している人の観点からグローバルを検証します。



MUMPSグローバルには実質的に制御がなく、アクションに制限がないことを既にご存じでしょう。これは素晴らしく（データベースの構造をすばやく、柔軟に設計、作成、変更できます）、危険です（不適切な手ではデータベースが制御不能な混乱に変わります）。



MUMPSはプログラマーに依存しています。保険はありませんが、何を達成できるか、またはそれをどのように達成するかに制限はありません。MUMPS-プログラミングとコマンド実行の効率性のおかげで、すばらしい刺激的な作業環境を理解できます。

MUMPSグローバルをマスターすると、おそらく驚くでしょう。「すべてのデータベースがうまく機能しないのはなぜですか！」これは、非常にシンプルで直感的で、柔軟性があり、リレーショナルデータベースよりも優れています。さらに、ほとんどすべてのプラットフォームでMUMPSを使用でき、巨大なシステムの規模に合わせて拡張できます。世界最大のインタラクティブシステムの一部はMUMPSをベースにしており、時には数万人の同時ユーザーがいます。



しかし、リレーショナルの世界が必要と考えるツールと保険が必要だと思うなら、MUMPSは間違いなくあなたのためではありません。そして、まだフリークライミングを行うつもりなら、次の章に進んでください。



継続する。パート2