1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

The Wall Of Shame

Discussion in 'Chit Chat' started by Cringer, Nov 29, 2016.

  1. Cringer

    Cringer ProgressTalk.com Moderator Staff Member

    Debugging some code earlier and came across this little doosie!

    Code (progress):
    1.  
    2.         if entryitem.generic-flags[4] = no
    3.         or warehouseregions.uses-locations = no then do:
    4.             find first location no-lock use-index locn-auto no-error.
    5.             find prev location no-lock use-index locn-auto no-error.
    6.         end.
    7.         else do:
    8.             find first location no-lock use-index locn-auto-bay no-error.
    9.             find prev location no-lock use-index locn-auto-bay no-error.
    10.         end.
    I'm not sure what it's intended to do. I can tell you what it is doing. Oh and it's inside a for each loop of around 10000 records.
     
    RealHeavyDude likes this.
  2.  
  3. RealHeavyDude

    RealHeavyDude Well-Known Member

    Being around that long nothing should really make me wonder anymore. One never stops learning though.
     
  4. KrisM

    KrisM Member

    The intention of this code is that you then can do find next in a loop and the first find next will give you the first record.
    Without the find prev you will skip the first record.
     
    Marco Mendoza likes this.
  5. Cringer

    Cringer ProgressTalk.com Moderator Staff Member

    Now that does make sense! Thanks Kris.
     
  6. Cringer

    Cringer ProgressTalk.com Moderator Staff Member

    Trying to get something running on a customer's server. Just kept getting random errors. Eventually worked out it's because they're still running 32bit OS on their database server! Ouch!
     
  7. Rob Fitzpatrick

    Rob Fitzpatrick ProgressTalk.com Sponsor

    Apart from the obvious performance limitation that presents, it's also an increasing support concern.

    I assume it's Windows, so at best it's Server 2008, the last 32-bit Windows Server release. It shipped almost 9 years ago, when 10.1C was the brand new release of OpenEdge. Mainstream support ended almost 2 years ago; extended support ends in 3 years. Given that server OSes aren't typically upgraded, it's probably old hardware too. Time to execute a migration plan!
     
  8. ForEachInvoiceDelete

    ForEachInvoiceDelete Active Member

    Funny fact for server 2012.

    Create a proenv shortcut. Set the start-in parameter in properties to any directory.

    Double click the shortcut, proenv will be in the directory but no admin privilidge to do anything.

    right click run as admin.

    Proenv now has admin privilidges, but starts in c:/windows/system32.
     
    Last edited: Dec 21, 2016

Share This Page