Programming Language for Business, aka Programming Language for Business, is a historical programming language created in 1972.

47Years Old 1,020Users 0Jobs

Example code from Wikipedia:

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
Edit

Last updated February 11th, 2019