HP3000-L Archives

June 2008, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
TurboIMAGE DBFIND Problem -- Negative Chain Length
From:
Brian Donaldson <[log in to unmask]>
Reply To:
Brian Donaldson <[log in to unmask]>
Date:
Fri, 13 Jun 2008 13:59:30 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (47 lines) 
I have an app (Cobol) that uses the following buffer for the status
array:

 01  SNTINL-STATUS USAGE IS COMP.
     05  SNTINL-CODE                 PIC S9(04) COMP.
     05  SNTINL-LENGTH              PIC S9(04) COMP.
     05  SNTINL-REC-NO              PIC S9(09) COMP.
     05  SNTINL-CHAIN-LENGTH    PIC S9(09) COMP.
     05  SNTINL-BACKWARD          PIC S9(09) COMP.
     05  SNTINL-FORWARD           PIC S9(09) COMP.

A DBFIND on a detail set does a lookup on an empty data set. The status
field SNTINL-CODE gives me ZERO and a chain length of -1, yes, that is
NEGATIVE one. 

I also noticed when I did an FO sets in Suprtool on the database, there is
an automatic master that has 106 entries in it but all the details linked to it
have a ZERO entry count.

Database: SNTINL.DATABASE.DEV
          BtreeMode1 = ON       Wildcard character : @

                      Set       Item             Entry    Load   Entry
Sets:                 Num Type  Count  Capacity  Count    Factor Length  B/F
   ACCT-LOADED-AUTO   1   A  i  1      49999     0        0  %   4       121
  ** FNAME-GRP-ACCT-A   2   A     1      25000     106      0  %   13      24 **
   FNAME-LOADED-A     3   A  i  1      49999     0        0  %   4       79
   GRP-ACCT-LODED-A   4   A  i  1      49999     0        0  %   9       54
   CONTROL-MASTER     5   M  i  13     1         1        100%   74      1
   EMAIL-SVR-MASTER   6   M  i  8      1         1        100%   155     1
   FILE-CODE-MASTER   7   M     3      4999      147      3  %   36      17
   ACCESSORS-DETAIL   8   DDX   14     50004     0        0  %   70      12
   ACCESSORS-HISTRY   9   DDX   14     50004     0        0  %   70      12
   FILE-DETAIL        10  DDX   63     45004     0        0  %   404     2
   FILE-HISTORY       11  DDX   63     100004    0        0  %   404     2
   USER-LABL-DETAIL   12  DDX   5      801042    0        0  %   164     11
   USER-LABL-HISTRY   13  DDX   5      901047    0        0  %   164     7

 
Any help will be appreciated, as always.

TIA
Brian.

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

ATOM RSS1 RSS2