Personal computing discussed

Moderator: Dposcorp

 
Scrotos
Graphmaster Gerbil
Topic Author
Posts: 1072
Joined: Tue Oct 02, 2007 12:57 pm
Location: Denver, CO.

What programming language is this?

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:

/* 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.
 
BitBlaster
Gerbil In Training
Posts: 9
Joined: Wed Apr 18, 2012 10:33 am
Location: Montreal, QC

Re: What programming language is this?

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
 
Captain Ned
Gold subscriber
Global Moderator
Posts: 24077
Joined: Wed Jan 16, 2002 7:00 pm
Location: Vermont, USA

Re: What programming language is this?

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.
And then of course I've got this terrible pain in all the diodes down my left hand side.
 
Scrotos
Graphmaster Gerbil
Topic Author
Posts: 1072
Joined: Tue Oct 02, 2007 12:57 pm
Location: Denver, CO.

Re: What programming language is this?

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.
 
BitBlaster
Gerbil In Training
Posts: 9
Joined: Wed Apr 18, 2012 10:33 am
Location: Montreal, QC

Re: What programming language is this?

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
 
Scrotos
Graphmaster Gerbil
Topic Author
Posts: 1072
Joined: Tue Oct 02, 2007 12:57 pm
Location: Denver, CO.

Re: What programming language is this?

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)

Who is online

Users browsing this forum: Baidu [Spider] and 1 guest