RE: Why NOT the web?

Pretty good.  At first I thought you were going to do a read into a data 
structure based on the data file layout and not the screen file layout. 
Hence my previous email.

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





"Nathan M. Andelin" <nandel@xxxxxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
01/03/2005 11:13 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
"'Midrange Systems Technical Discussion'" <midrange-l@xxxxxxxxxxxx>
cc

Subject
RE: Why NOT the web?






> Yes. Unless I misunderstood something up front, that's what
> the discussion was about. Updating data, and possibly updating
> batches of data.

Pete,

The following page depicts the flow of a header/lines maintenance program,
within the context of an application control system (all programs share a
common login, where menus and runtime environment are tailored according 
to
individual user roles).

We plan on implementing a lot of programs like this as part of a
broadly-scoped modernization effort.  The HTML screens show a level of
detail which is comparable, if not a little more robust than most 5250
interfaces, but more point & click oriented.

http://www.relational-data.com/ascent/xur120/hdr_lines.html

For controlling database updates, you might consider something like the
following, where "screen_rec" holds values returned from the screen,
"previous_rec" holds values previously read from the database file and
written to the screen, and where "current_rec" holds current values in the
database file at the moment the update operation is requested.

Comparing "current_rec" to "previous_rec" would indicate whether the 
record
had been changed since being written to the screen.

I'd suggest this as an alternative to locking a record while displayed on
the screen for an unknown duration.

*-----------------------------------------------------------------

D screen_rec    E DS                  Extname(xur120L1: XUR120R )
D                                     Prefix(s_:2) Export

D previous_rec  E DS                  Extname(xur120L1:XUR120R  )
D                                     Prefix(p_:2)

D current_rec   E DS                  Extname(xur120L1:XUR120R  )

*-----------------------------------------------------------------

HTH,

Nathan.


-- 
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.