What programming language is this?

The place for all kinds of software for all kinds of operating systems.

Moderator: Dposcorp

What programming language is this?

Postposted on Wed Apr 18, 2012 10:13 am

1986 to 1991 is the timeframe. Program ran in DOS. This is part of it, two source files:

Code: Select all
/* glacctc.p - Change G/L Account Table routine
             - Includes fixed gl-cds - can only change g/1 # *

def var pgl-cd like glacct.gl-cd.

MAIN:
repeat:

  pgl-cd = "".
  update space pgl-cd help "Leave blank to display all existing records"
       column-label " !G/L Code"
       space(2)
       with frame a down centered title "G/L Account Change".
  if pgl-cd = "" then do: for
     each glacct no-lock:
     pgl-cd = glacct.gl-cd.
      display pgl-cd glacct.gl-acct column-label " !G/L Account"
          space(2) glacct.gl-dept space(2) glacct.gl-desc
          space with frame a.
      down with frame a.
    end. /* for each glacct */
    next main.
  end. /* if pgl-cd = "" */

  find glacct use-index glacct-pi where
    glacct.gl-cd = pgl-cd   exclusive-lock no-error.
  if not available glacct then do:
    bell. message "Invalid G/L Code".
    undo, retry.
  end.

  update glacct.gl-acct validate( glacct.gl-acct <> 0,
      "Account # cannot be 0" )
      glacct.gl-dept
      glacct.gl-desc
        with frame a.
  down with frame a.
end.

 
/* srccd/passthru.p - Pass Thru Standing Orders Add/Change Routine */
def shared var suserid like uzer.uz-fname.
def        var newamt like passthru.amount.
display " PASS THROUGH ACCOUNTS ADD/CHANGE " with frame a centered.
repeat:
  clear frame F1.
  prompt-for password.account auto-return password.password
    with 1 column 1 down row 5 centered frame fl no-box.
  find password using input password.account
    and input password.password no-error.
  if not available password then do:
    message "Security Violation - No Password on File. " undo, retry.
  end.

  find client use-index client-pi where
      client.account = input password.account no-lock.
  display skip(2) client.name
      with frame w centered no-box no-label 1 column 1 down.
  find passthru where passthru.account = input password.account no-error.
  if not available passthru then do:
    create passthru.
    assign passthru.Account = input Password.Account.
  end.
  newamt = passthru.amount.
  display newamt passthru.previous with frame c centered row 11.
  update newamt with frame c.
  assign passthru.amount = input newamt passthru.uz-fname = suserid.
end. /* repeat */



I tried to maintain some of the formatting but the original source seemed to be formatted kinda randomly.
Scrotos
Graphmaster Gerbil
 
Posts: 1028
Joined: Tue Oct 02, 2007 12:57 pm
Location: Denver, CO.

Re: What programming language is this?

Postposted on Wed Apr 18, 2012 10:40 am

I think it's called progress http://www.progress.com/en/index.html.
MSI Z77A-GD55, i5-3570K, 2x4GB DDR3-1600 Corsair Vengence LP, Hyper 212 EVO, Thermaltake V3 Black Edition
BitBlaster
Gerbil In Training
 
Posts: 9
Joined: Wed Apr 18, 2012 10:33 am
Location: Montreal, QC

Re: What programming language is this?

Postposted on Wed Apr 18, 2012 10:46 am

It's some sort of SQL with usual vendor lock-in "enhancements".

EDIT: And yes, SQL has been around that long.
It is one of the blessings of old friends that you can afford to be stupid with them. Ralph Waldo Emerson.
Captain Ned
Global Moderator
Gold subscriber
 
 
Posts: 20114
Joined: Wed Jan 16, 2002 7:00 pm
Location: Vermont, USA

Re: What programming language is this?

Postposted on Wed Apr 18, 2012 11:19 am

BitBlaster wrote:I think it's called progress http://www.progress.com/en/index.html.


Progress seems to use ; to end lines and encloses functions in { and }, though. Unless I'm looking at the wrong code examples. This was over 20 years ago, though, so maybe the whole thing got revamped.
Scrotos
Graphmaster Gerbil
 
Posts: 1028
Joined: Tue Oct 02, 2007 12:57 pm
Location: Denver, CO.

Re: What programming language is this?

Postposted on Wed Apr 18, 2012 11:29 am

Admittedly, I'm going mainly by the ".p" extension.

Plus, as you say it has been 20+ years http://en.wikipedia.org/wiki/OpenEdge_Advanced_Business_Language
MSI Z77A-GD55, i5-3570K, 2x4GB DDR3-1600 Corsair Vengence LP, Hyper 212 EVO, Thermaltake V3 Black Edition
BitBlaster
Gerbil In Training
 
Posts: 9
Joined: Wed Apr 18, 2012 10:33 am
Location: Montreal, QC

Re: What programming language is this?

Postposted on Wed Apr 18, 2012 3:10 pm

Ah, I only looked for snippets of code on the current website. The wiki you found seems like a perfect match. Thanks!

My curiousity has been sated! (cleaning out old files in the IT area)
Scrotos
Graphmaster Gerbil
 
Posts: 1028
Joined: Tue Oct 02, 2007 12:57 pm
Location: Denver, CO.


Return to General Software

Who is online

Users browsing this forum: No registered users and 1 guest