Yep, Rene beat me to it....

I've already been down this road, having done all the steps documented by 
Rene in his posting. 

Once you do these steps the problem will disappear and everything will 
be well with the world again.

The stalled transaction problem may be a different issue entirely.

I've encountered this problem in the past when my programs were using the 
DBX procedures. The stalled transaction occurred because the internal file
being written to by the DBX calls gets filled up and so the subsequent
call to DBXwhatever causes the program to abort with the stalled transaction
error.


Apart from that, since when did Suprtool repack TurboIMAGE datasets ?


Brian.
On Sun, 4 Nov 2007 09:27:29 -0600, Rene Woc <[log in to unmask]> wrote:

>At 3:48 PM +0000 11/4/07, Blanchard wrote:
>
>>I wanted to find out if anyone has a technique I can use to REPACK a
>>dataset using just Suprtool.  For some reason I am getting an
>>Integer error from Adager whenever I try and repack some of our
>>AMISYS e3000 datasets in HEALTH.  Yet I was able to REPACK the IRS-M
>>in ACCTNG.
>>My cobol program is getting a STALLED Transaction error during its
>>run.  The program writes to Provider, Affiliation, Address,
>>Group-Practice-M, and IRS-M loading provider networks into the
>>AMISYS database for use by the insurance plan in claims payment.
>>
>
>The "integer overflow" problem you are experiencing when trying to
>repack a dataset with Adager was most likely caused by one of the MPE
>patches applied recently to your system. The patch installation may
>have left an improperly octcomp'ed system SL.
>
>Please log on as manager.sys and do the following:
>
>    :debug
>    cm
>    var foo cmtonmnode (mpefiletype + %27)
>    nm
>    dc foo, 7
>
>       You'll see something like the following (I flagged the
>       bad instructions with "-->"):
>
>       TRANS $22.1f66194
>       01f66194  MPEFILETYPE+%27    4b7d0028  LDW   20(sr0,r27),r29
>       01f66198  d06c1fc1  EXTRS    r3,30,31,r12
>       01f6619c  d3bd1fc1  EXTRS    r29,30,31,r29
>-->   01f661a0  d4dd0a10  ZDEP     r29,15,16,r6
>-->   01f661a4  d58c0a10  ZDEP     r12,15,16,r12
>-->   01f661a8  0986d406  SUB,NSV  r6,r12,r6
>-->   01f661ac  e680e5a0  BLE      720(sr7,r20)
>
>If you don't see the "SUB,NSV & BLE", then you don't have this
>problem and the issue will need further review.
>
>If you do, then the integer overflow was caused by an incorrectly
>OCTcomped (translated) system SL during the installation of one or
>more MPE patches.
>
>Hewlett-Packard's response center has the problem documented under
>SR: 8606232211 (KBRC00007442). The patch that we have noticed to
>cause the problem is MPEKXX0. However, there could be other patches
>with similar behavior.
>
>Problem description says:
>
>------------------------
>
>SL.PUB.SYS OCT retranslator - Due to a bug in the MPE patch process,
>SL.PUB.SYS may sometimes be translated incorrectly, resulting in
>possible program aborts. This AUTOPAT-based script will create a new
>CSLT tape containing a correctly translated SL.PUB.SYS.
>
>
>
>How to correct the problem:
>---------------------------
>
>Call HP's Response Center to obtain a solution.
>
>Alternatively, HP has a solution to the problem available from the
>Jazz website.
>
>The URL for the AUTOPAT-based scripts is
>
>http://jazz.external.hp.com/src/scripts/sloctfix/
>
>Please read the INSTALL.txt file, and then download I00STRSL and M00STRSL 
to
>your e3000 (if you don't have AUTOPAT laying around, download that file
>too).
>
>Processing the STRSL files with AUTOPAT results in a new CSLT tape with a
>correctly translated SL.PUB.SYS.  Then UPDATE from the new CSLT to install
>the fixed SL.PUB.SYS.
>
>--------------------------
>
>Your Adager version is OK, and will work normally once you re-octcomp
>your system SL.
>
>If you have other systems on the same MPE version (and patches) we
>recommend you
>verify the problem does not exist there also.
>
>
>
>Cordially,
>
>Rene Woc
>[log in to unmask]
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *