商業用程式語言

商用程式語言（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:結構化程式語言