檢視商業用程式語言的原始碼

商用程式語言（Programming Language for Business，簡稱 PL/B）是一種商業導向的程式語言，最初名為 DATABUS，由 Datapoint 公司於 1972 年設計，作為 COBOL 的替代方案。其原因是 Datapoint 的 8 位元電腦有限的記憶體無法容納 COBOL，且當時的 COBOL 缺乏處理 Datapoint 內建鍵盤和螢幕的功能。

一個 DATABUS 的版本後來成為 ANSI 標準，而 PL/B 這個名稱則是在 Datapoint 公司決定不釋出其對 DATABUS 名稱的商標權後產生的。

== 功能 ==

與 Java 和 .NET 非常相似，PL/B 程式會被編譯成中介位元組碼，然後由一個執行階段函式庫來解譯。因此，許多 PL/B 程式可以在 DOS、Unix、Linux 和 Windows 作業系統上執行。PL/B (Databus) 現今仍在世界各地被積極使用，網際網路上也有數個專門支援軟體開發人員的論壇。

PL/B 內建了具備 ISAM 和關聯雜湊索引的資料庫功能，同時也具備處理 ODBC、SQL、Oracle、循序存取、隨機存取、XML 和 JSON 檔案的功能。

PL/B 還能透過 COM 物件、DLL 和 .NET 組件來存取外部常式。許多版本中更內建了對 .NET 框架的完整存取能力。

該語言的數個實作版本能夠像 Citrix 一樣作為應用程式伺服器執行，並透過資料管理器連接到遠端資料庫。

== 原始碼範例 ==

         IF (DF_EDIT[ITEM] = "PHYS")
            STATESAVE MYSTATE
            IF (C_F07B != 2)
               DISPLAY   *SETSWALL 1:1:1:80:
                         *BGCOLOR=2,*COLOR=15:
                         *P49:1," 7-Find "
            ELSE
               DISPLAY   *SETSWALL 1:1:1:80:
                         *BGCOLOR=7,*COLOR=0:
                         *P49:1," 7-Find "
            ENDIF
            STATEREST MYSTATE
            TRAP      GET_PRO NORESET IF F7
         ENDIF
         IF (SHOW_FILTER AND THIS_FILTER AND C_CUSTNO <> "MAG")
            LOADMOD   "filter"
            PACK      PASS_ID WITH "QED     ",QED_ID1,BLANKS
            MOVE      " FILTER DISPLAY (F6)        " TO PASS_DESC
            SET C_BIGFLT
            CALL      RUN_FILT USING PASS_ID,PASS_DESC,"432"
            UNLOAD    "filter"
            CLEAR     THIS_FILTER
         ENDIF

== 參考資料 ==

== 外部連結 ==

* Sunbelt implementation of PL/B
* ANSI PL/B Standards Committee
* MMCC PL/B programming notebook
* DB/C DX, DATABUS, and PL/B Overview
* Databus Simplified User Guide

Category:程序式程式語言
Category:跨平台軟體
Category:1972 年建立的程式語言
Category:結構化程式語言

[[分類: 待校正]]