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.

TIA,
Don Harrington
Sr. Systems Analyst
Facilities Applications Support
Shared Services Group
The Boeing Company
P.O. Box 3707 M/C 6C-AK
Seattle, WA  98124-2207
(v) 425-234-1145 (f) 425-234-0464 (p) 206-797-6360

The opinions expressed in this e-mail reflect those of the sender.  They do
not necessarily reflect the opinions of The Boeing Company unless
specifically stated otherwise.

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