× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.