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: 1043
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.
Life is hard; but it's harder if you're stupid. Big Al.
Captain Ned
Global Moderator
Gold subscriber
 
 
Posts: 20646
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: 1043
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: 1043
Joined: Tue Oct 02, 2007 12:57 pm
Location: Denver, CO.


Return to General Software

Who is online

Users browsing this forum: VincentHanna and 2 guests