Język programowania dla firm - Programming Language for Business
| Paradygmat | Proceduralne , konieczne |
|---|---|
| Po raz pierwszy pojawiły się | 1972 |
| Dyscyplina typowania | Mocne , statyczne |
| Rozszerzenia nazw plików |
.rl , .ps , .cb
|
| Główne wdrożenia | |
| DB / C DX, DATABUS i PL / B | |
| Wpływem | |
| COBOL | |
| |
Programming Language for Business lub PL / B to zorientowany biznesowo język programowania, pierwotnie nazywany DATABUS i zaprojektowany przez Datapoint w 1972 roku jako alternatywa dla COBOL, ponieważ 8-bitowe komputery Datapoint nie mogły zmieścić języka COBOL w ich ograniczonej pamięci, a język COBOL nie czas ma możliwości radzenia sobie z wbudowaną klawiaturą i ekranem Datapoint.
Wersja DATABUS stała się standardem ANSI , a nazwa PL / B pojawiła się, gdy Datapoint zdecydowało się nie wypuszczać swojego znaku towarowego na nazwie DATABUS.
Funkcjonalność
Podobnie jak Java i .NET , programy PL / B są kompilowane do pośredniego kodu bajtowego , który jest następnie interpretowany przez bibliotekę wykonawczą. Z tego powodu, wiele programów PL / B można uruchomić na DOS , Unix , Linux i Windows, systemów operacyjnych . Środowiska programistyczne PL / B są pod wpływem Java i Visual Basic i oferują wiele tych samych funkcji, które można znaleźć w tych językach. PL / B (Databus) jest aktywnie używany na całym świecie i ma kilka forów internetowych poświęconych wspieraniu twórców oprogramowania.
Od samego początku PL / B został ulepszony i dostosowany, aby był unowocześniany i miał dostęp do różnych źródeł danych. Posiada funkcje bazy danych wbudowane w ISAM i Associative Hashed Indexes, a także pliki ODBC , SQL , Oracle , sekwencyjne, o dostępie swobodnym i XML .
Wszystkie konstrukcje współczesnych języków programowania zostały stopniowo dodane do języka. PL / B ma również możliwość dostępu do procedur zewnętrznych poprzez zestawy COM, DLL i .NET . Pełny dostęp do platformy .NET jest wbudowany w wiele wersji.
Kilka implementacji języka może działać jako serwer aplikacji, na przykład Citrix , i łączyć się ze zdalnymi bazami danych za pośrednictwem menedżera danych.
Przykład kodu źródłowego
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