Yes, it's Friday the 13th all right.

Discovered the database was trashed. Thanks to my good friend at
Adager (Rene Woc) he helped me repair the flakey, damaged database
with the FIX SET option in ADAGER.

Now all is well with the world (until the next crisis)

Thanks,
Brian.



On Fri, 13 Jun 2008 13:59:30 -0400, Brian Donaldson <[log in to unmask]> wrote:

>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 *

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