Software life cycle - was IF ACTIVE

RE:     Software life cycle - was IF ACTIVE


>>> Does anyone know of an equivalent CL command 
>>> to the S/36 OCL Statement:
>>>
>>> // IF ACTIVE-PROGNAME

---------------
> Have you considered rewriting your apps to take advantage of the native 
> environment? 
  <snip>
> This is exactly how a 1975 application (batch entry, load a work file, 
> sort, print, update) stays an integral part of a 1999 software package. 
  <snip>
> I apologise to all for the rant, but would appreciate comments on how 
> others perceive the software life cycle.  How many applications designed in 
> 1975 do *you* think should be running today?
> Buck Calabro
--------

Couldn't agree more Buck.   I employ what I call "Pro-Active Maintenance".
As code is maintained on projects,  It is "Restructured"  to take advantage
of new techniques/capabilities.  Look at the "Changed Dates" on lines of 
code in programs.   They are often changed year in / year out.  Each time
you are there you could be making small/big changes and have your systems
evolve.  Over a course of a year or two,  Your whole application base is 
radically changed for the better.  You will never get a "Major rewrite" 
thru most managements,  But if you "Evolve" the code,  Most of the time, 
They will not even notice it being done.  

OTOH,  For the requested answer,  The AS/400(Sys/38) are Single Level Store
machines.  Objects have one address for their life.  The machine "Thinks"
all objects are "Active" meaning "In their IN-Memory location" all the time.
Hence,  No   IF-ACTIVE.   It doesn't have a meaning in a Single Level 
Store arch.

Just a thought.
John Carr
EdgeTech
Have Classes, will travel
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---