Programming Language for Business: Difference between revisions
imported>WikiCleanerBot m v2.05b - Bot T20 CW#61 - Fix errors for CW project (Reference before punctuation) |
imported>Dgpop →Functionality: Minor copy editing |
||
| Line 23: | Line 23: | ||
== Functionality == | == Functionality == | ||
Much like [[Java (programming language)|Java]] and [[Microsoft .NET|.NET]], PL/B programs are compiled into an intermediate [[byte-code]], which is then interpreted by a runtime library. Because of this, many PL/B programs can run on [[DOS]], [[Unix]], [[Linux]], and [[ | Much like [[Java (programming language)|Java]] and [[Microsoft .NET|.NET]], PL/B programs are compiled into an intermediate [[byte-code]], which is then interpreted by a runtime library. Because of this, many PL/B programs can run on [[MS-DOS]], [[Unix]], [[Linux]], and [[Windows]].<ref name="sunbelt">{{cite web | url=http://www.sunbelt-plb.com/show.php?Page=aboutplb.shtml | title=About PL/B | publisher=Sunbelt Computer Systems, Inc. | accessdate=10 June 2016}}</ref> PL/B (Databus) is actively used all over the world, and has several forums on the Internet dedicated to supporting software developers.{{cn|date=February 2025}} | ||
PL/B has a database capability built-in with ISAM and Associative Hashed Indexes,<ref name="sunbelt" /> as well as functionality for working with [[ODBC]], [[SQL]], [[Oracle Database|Oracle]],<ref>{{Cite web |title=SQL Instructions |url=https://sunbelt-plb.com/help/htm/plb/sql_overview.htm |access-date=2022-06-06 |website=sunbelt-plb.com}}</ref> sequential, random access, [[XML]] and [[JSON]] files.<ref>{{Cite web |title=XDATA |url=https://sunbelt-plb.com/help/htm/plb/xdata.htm |access-date=2022-06-06 |website=sunbelt-plb.com}}</ref> | PL/B has a database capability built-in with ISAM and Associative Hashed Indexes,<ref name="sunbelt" /> as well as functionality for working with [[ODBC]], [[SQL]], [[Oracle Database|Oracle]],<ref>{{Cite web |title=SQL Instructions |url=https://sunbelt-plb.com/help/htm/plb/sql_overview.htm |access-date=2022-06-06 |website=sunbelt-plb.com}}</ref> sequential, random access, [[XML]] and [[JSON]] files.<ref>{{Cite web |title=XDATA |url=https://sunbelt-plb.com/help/htm/plb/xdata.htm |access-date=2022-06-06 |website=sunbelt-plb.com}}</ref> | ||
Latest revision as of 00:51, 14 October 2025
Script error: No such module "Infobox".Template:Template otherScript error: No such module "Check for unknown parameters".
Programming Language for Business or PL/B is a business-oriented programming language originally called DATABUS and designed by Datapoint in 1972[1] as an alternative to COBOL because Datapoint's 8-bit computers could not fit COBOL into their limited memory, and because COBOL did not at the time have facilities to deal with Datapoint's built-in keyboard and screen.
A version of DATABUS became an ANSI standard, and the name PL/B came about when Datapoint chose not to release its trademark on the DATABUS name.[2][3]
Functionality
Much like Java and .NET, PL/B programs are compiled into an intermediate byte-code, which is then interpreted by a runtime library. Because of this, many PL/B programs can run on MS-DOS, Unix, Linux, and Windows.[4] PL/B (Databus) is actively used all over the world, and has several forums on the Internet dedicated to supporting software developers.Script error: No such module "Unsubst".
PL/B has a database capability built-in with ISAM and Associative Hashed Indexes,[4] as well as functionality for working with ODBC, SQL, Oracle,[5] sequential, random access, XML and JSON files.[6]
PL/B also has the ability to access external routines through COM objects, DLLs and .NET assemblies. Full access to the .NET framework is built into many versions.Script error: No such module "Unsubst".
Several implementations of the language are capable of running as an Application Server like Citrix, and connecting to remote databases through a data manager.Script error: No such module "Unsubst".
Source code example
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
References
<templatestyles src="Reflist/styles.css" />
Script error: No such module "Check for unknown parameters".
External links
Script error: No such module "Portal".