Don Harrington writes

Gang;

OK; I may not be the brightest bulb in the store, but this really doesn't
make sense.

Here's the error and a few PRINT statements to help figure out what's going
on:

 AT 370, PJOB=71454901
 AT 380, POSTCAT= 2 PJOB=71454901 PSKILL=FA2 JSW= 0
 AT 420, PJOB=71454901 PSKILL=FA2 JSW= 0
 AT 460, DBFIND OF DESTATUS:71454901 0
 AT 520, DBFIND OF DHRS-WORKED71454901FA2 010118 0
 AT 530, DBGET OF DHRS-WORKED: 0
 AT 530, PSOCSEC=537629998 DHSSN=537629998
 AT 550, OP=P
 AT 550, DESBUF:020109103071454901FA2  -1 0 1
 DESBUF:020109  1030 71  <--- notice the missing six digits
 DESBUFC:020109103071454901

 TURBOIMAGE RESULT AT $0000a468; RETURN STATUS = 101
 DBPUT, MODE 1, ON DESTATUS OF BACFAC
 No chain head (master entry) for path 1 in set 12

Here is the associated code:

      ESUPDATE = TODATEC
C      ESUPTIME[1:2] = DATEINFO[20:2]
MIGF66
      ESUPTIME(1:2) = DATEINFO(20:21)
MIGF77
C      ESUPTIME[3:2] = DATEINFO[23:2]
MIGF66
      ESUPTIME(3:4) = DATEINFO(23:24)
MIGF77
      PRINT *,"AT 550, OP=",OP
      IF (OP.EQ."U") GO TO 560
      CALL DBLOCK(BASE,DESTATUS,MODE1,STATUS)
      IF (CW.NE.0) GO TO 670
      PRINT *,"AT 550, DESBUF:",ESUPDATE,ESUPTIME,ESJOB,ESSKILL,
     +    ESHRACTN,ESHRSCHT,ESHRACTL
      PRINT *,"DESBUF:",DESBUFC(1:6)," ",DESBUFC(7:10),
     +    " ",DESBUFC(11:18)," ",DESBUFC(19:22)
      PRINT *,"DESBUFC:",DESBUFC
      CALL DBPUT(BASE,DESTATUS,MODE1,STATUS,LISTALL,DESBUF)

Here are the associated definitions and EQUIVALENCE statements:

C...  DEFINE ENGINEERING STATUS RECORD.
      DIMENSION DESBUF(17)
      INTEGER*4 ESHRACTN,ESHRSCHT,ESHRACTL
      CHARACTER ESUPTIME*4,ESUPDATE*6,ESJOB*8,ESSKILL*4,DESBUFC*34
      EQUIVALENCE (DESBUF(1),ESUPDATE),(DESBUF(4),ESUPTIME),
     1            (DESBUF(6),ESJOB),(DESBUF(10),ESSKILL),
     2            (DESBUF(12),ESHRACTN),(DESBUF(14),ESHRSCHT),
     3            (DESBUF(16),ESHRACTL),(DESBUF,DESBUFC)
C...  END OF ENGINEERING STATUS RECORD.

Here is the dataset definition:

DATA BASE: BACFAC                       WED, JAN  9, 2002, 10:46 AM


DATA BASE LANGUAGE ATTRIBUTE: NATIVE-3000


SET NAME:
   DESTATUS,DETAIL

      ITEMS:
         UPDATE,               X6
         UPTIME,               X4
         JOB,                  X8            <<SEARCH ITEM>>
         SKILL,                X4            <<SORT ITEM>>
         HRACTN,               I2
         HRSCHT,               I2
         HRACTL,               I2

      TPI INDEXES:
         JOB,                  G8

      CAPACITY: 37632           ENTRIES: 26227

I have checked the list being used and it's '@;'.  The data set name is OK,
as well.  How is it that displaying the idividual fields and the buffer as a
whole looks OK, but the buffer displayed as substrings doed not?  Why is
this error occurring?  The JOB number exists in the master dataset.

Am I missing something obvious?  I am happy to pass along the whole source
file or any other supporting information if that would help you help me.
-------------------------------------------------
Don,

Is the single index connected to the DBSTATUS data set an automatic or
manual master set.  If it is a manual set Image is may be correctly saying
that there is no record that has been DBPUT into the master set establishing
a chain head.  If it is an automatic set, you got problems.

Mike Berkowitz
Guess? Inc.

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