FTN4
      FUNCTION ISSRT(IBASE,DSNUM,DINUM,ISTAT),92069-16061 REV.2026 800122 
      LOGICAL ISSRT 
      INTEGER IBASE(10),DSNUM,DINUM,ISTAT(10) 
C 
C 
C*************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS    *
C RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C*************************************************************
C 
C 
C     SOURCE:    92069-18121
C     RELOC:     92069-16061
C 
C 
C*************************************************************
C 
C 
C  ISSRT IS A LOGICAL FUNCTION THAT DETERMINES WHETHER AN ITEM
C  IS A SORT ITEM FOR A DETAIL DATA SET 
C 
C  CALLING SEQUENCE:
C 
C       LOGIC = ISSRT(IBASE,DSNUM,DINUM,ISTAT)
C 
C  WHERE: 
C 
C       IBASE 
C       IS THE BASE PARAMETER FOR THE DATA BASE 
C 
C       DSNUM 
C       IS THE DETAIL DATA SET NUMBER 
C 
C       DINUM 
C       IS THE ITEM NUMBER
C 
C       ISTAT 
C       IS A TEN WORD INTEGER ARRAY USED FOR ERROR RETURNS FROM 
C       DBMS.  ISTAT IS ZERO WHEN THERE ARE NO DBMS ERRORS, ELSE
C       ISTAT CONTAINS THE ERROR CODE FROM DBMS 
C 
C 
C  ON EXIT: 
C 
C       TRUE - DINUM IS A SORT ITEM FOR SOME DETAIL PATH
C 
C       FALSE - DINUM IS NOT A SORT ITEM
C 
C 
C 
      INTEGER IBUF(49),D
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C 
C  NEEDS NO COMMON DECLARATION
C 
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 
C 
C 
      DATA D/104B/
C 
C 
C  BEGIN
C 
C 
C  DETERMINE IF THE DATA SET IS A DETAIL
C 
      ISSRT =.FALSE.
      CALL DBINF(IBASE,DSNUM,202,ISTAT,IBUF)
      IF (ISTAT .NE. 0) GOTO 30 
      CALL SGET(IBUF,17,ITYPE)
      IF (ITYPE .NE. D) GOTO 30 
C 
C  MAKE DBINF CALL TO GET DETAIL PATH INFO
C 
      CALL DBINF(IBASE,DSNUM,301,ISTAT,IBUF)
      IF (ISTAT .NE. 0) GOTO 30 
C 
C  SEARCH PATH INFO TO SEE IF ITEM IS USED AS A SORT ITEM 
C 
      DO 10 I=4,3*IBUF+1,3
      IF (IABS(IBUF(I)) .EQ. DINUM) GOTO 20 
10    CONTINUE
      GO TO 30
C 
20    CONTINUE
      ISSRT = .TRUE.
C 
30    CONTINUE
      RETURN
      END 
                              