Programozási nyelv az üzleti élet számára - Programming Language for Business
| Paradigma | Eljárási , elengedhetetlen |
|---|---|
| Először jelent meg | 1972 |
| Gépelési fegyelem | Erős , statikus |
| Fájlnévkiterjesztések |
.rl , .ps , .cb
|
| Főbb megvalósítások | |
| DB / C DX, DATABUS és PL / B | |
| Befolyásolta | |
| COBOL | |
| |
A Programming Language for Business vagy a PL / B egy üzleti célú programozási nyelv, amelyet eredetileg DATABUS- nak hívtak, és amelyet a Datapoint tervezett 1972-ben a COBOL alternatívájaként, mert a Datapoint 8 bites számítógépei nem tudták beilleszteni a COBOL-ot a korlátozott memóriájukba, és mivel a COBOL nem az időnek lehetősége van a Datapoint beépített billentyűzetével és képernyőjével foglalkozni.
A DATABUS egyik változata ANSI szabvány lett , és a PL / B név akkor jött létre, amikor a Datapoint úgy döntött, hogy nem adja ki védjegyét a DATABUS néven.
Funkcionalitás
Hasonlóan a Java-hoz és a .NET-hez , a PL / B programokat is egy köztes byte-kódba fordítják , amelyet aztán egy futásidejű könyvtár értelmez. Emiatt sok PL / B program futtatható DOS , Unix , Linux és Windows operációs rendszereken . A PL / B fejlesztői környezetekre a Java és a Visual Basic hatással van , és sok ugyanazon funkciót kínálnak ezeken a nyelveken. A PL / B-t (Databus) az egész világon aktívan használják, és az Interneten számos fórumot tartogat a szoftverfejlesztők támogatására.
Megalakulása óta a PL / B-t továbbfejlesztették és átalakították annak érdekében, hogy korszerűsítsék és hozzáférjenek a különböző adatforrásokhoz. Beépített adatbázisképességgel rendelkezik ISAM és Associative Hashed Indexes, valamint ODBC , SQL , Oracle , szekvenciális, véletlen hozzáférésű és XML fájlokkal.
A modern programozási nyelvek összes konstrukcióját fokozatosan hozzáadták a nyelvhez. A PL / B képes a külső rutinokhoz való hozzáférésre COM, DLL és .NET összeállításokon keresztül is. A .NET keretrendszerhez való teljes hozzáférés sok verzióba épül.
A nyelv számos megvalósítása képes alkalmazáskiszolgálóként futtatni, mint például a Citrix , és csatlakozni lehet távoli adatbázisokhoz egy adatkezelőn keresztül.
Forráskód példa
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
