RE: Checking for uncommitted changes

["Walden Leverich" <walden@xxxxxxxxxxxxxxx>]

I'm afraid that this doesn't work. I've attached the program I used to test
this below, if you see something let me know, but otherwise....

As for why we are using this: We allow the user to travel through a suite of
screens leaving uncommitted changes behind him (don't blame me), then when
he exits the suite of screens we will prompt him to save (commit) or discard
(rollback) these changes. If he has not made any changes we don't want to
bother asking.

-Walden

-----Original Message-----
From: owner-midrange-l@midrange.com
[mailto:owner-midrange-l@midrange.com]On Behalf Of Buck Calabro
Sent: Thursday, April 23, 1998 10:30 AM
To: 'MIDRANGE-L@midrange.com'
Subject: RE: Checking for uncommitted changes


On Wednesday, April 22, 1998 12:19 PM, Walden Leverich
[SMTP:walden@techsoftinc.com] wrote:
> I need a way to look for uncommitted changes in a job.
>
> I have looked into the Retrieve Commitment Information (QTNRCMTI)
> API, but
> this doesn't seem to help me. All I need to know is if there are
> any
> uncommitted changes, I don't care what files they are in or how
many
> there
> are -- of course I won't complain if I get this info.

-snip-

> Anyone have any good ideas? (Or even any bad ideas)
>
> -Walden

Walden,
  Check out QTNRCMTI again; there *may* be a way out for you.
Commitment Definition Status is set to "L" if there are local,
_closed_ database files with pending changes (among other things.)
It's weak, I know.  I'm assuming that you're suspecting a program
bug that leaves "good" transactions uncommitted.  You've probably
thought of checking the journal receiver or using a trigger to help
locate the offender...

Buck Calabro
Commsoft, Albany, NY
mailto:mcalabro@commsoft.net

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@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
+---
     FUPAEREP UF  E           K        DISK
     F                                              KCOMIT
     IBEFORE      DS                            100
     IDURING      DS                            100
     IAFTER       DS                            100
     IAPIERR      DS
     I I            0                     B   1   40APBYPR
     I I            0                     B   5   80APBYAV
     IBINARY      DS
     I I            100                   B   1   40RCVLEN
     C                     CALL 'QTNRCMTI'
     C                     PARM           BEFORE
     C                     PARM           RCVLEN
     C                     PARM 'CMTI0100'FMT     8
     C                     PARM           APIERR
     C                     READ FAEREA1                  LR
     C                     UPDATFAEREA1
     C                     RESETAPIERR
     C                     CALL 'QTNRCMTI'
     C                     PARM           DURING
     C                     PARM           RCVLEN
     C                     PARM 'CMTI0100'FMT     8
     C                     PARM           APIERR
     C                     COMIT
     C                     RESETAPIERR
     C                     CALL 'QTNRCMTI'
     C                     PARM           AFTER
     C                     PARM           RCVLEN
     C                     PARM 'CMTI0100'FMT     8
     C                     PARM           APIERR
     C           BEFORE    IFEQ DURING
     C           'OH, WELL'DSPLY
     C                     ENDIF
     C                     SETON                     LR