FTN4
      PROGRAM QY23(5,90),92069-16060 REV.1912 781129
C 
C 
C*****************************************************************
C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
C NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C TRANSLATED TO ANOTHER PROGRAM LANGUAGE WIOTH OUT THE PRIOR
C WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
C****************************************************************** 
C 
C 
C     SOURCE:    92069-18086
C     RELOC:     92069-16060
C 
C 
C****************************************************************:
C 
C 
C 
C 
C 
C 
C  QY23 IS THE SEGMENT OF QUERY/1000 WHICH TAKES THE CODE OF AN ERROR 
C  ENCOUNTERED BY ANY OTHER SEGMENT AND PRINTS OUT AN APPROPRIATE ERROR 
C  MESSAGE.  THE ERROR CODE IS IN QSERR IN COMMON, THE MESSAGE IS PRINT-
C  ED OUT ON THE LU IN ITTY WHICH IS ALSO IN COMMON.
C 
C 
      INTEGER IQSER 
C 
C$$$$$$$$$$$$$$$$$$$ NOVEMBER 3,1978   $$$$$$$$$$$$$$$$$$$$$
      INTEGER INLU,ITTY,ILP,IDCB,JDCB,XEQ 
      INTEGER DBNAM,DBLEV,DSNAM,DINAM,SELECT,SNAM 
      INTEGER DSNUM,DINUM,PARM,LPARM,ECHO,QSERR 
      INTEGER IMA,IB,IBSZ,SECNO,IEND,ISCAN
      LOGICAL BREAK 
      INTEGER IPFLAG,IOFLAG,RMOTE 
      LOGICAL BATCH,XQBCH 
      INTEGER PAGCNT,LNCNT
      INTEGER PAGLEN,COLLIM 
      REAL    RRCNT 
      REAL    SELT,RSEC 
      INTEGER IPTR
      REAL    RCOUNT
      INTEGER S,R3,TRKNM,IDILU
      INTEGER R6
      REAL    ATOTAL
      INTEGER LIST,L,T,U
      INTEGER LEVSTR,LEVLEN 
      INTEGER IBUFF 
      INTEGER SS(7,100) 
C 
      COMMON INLU(145),ITTY(145),ILP(145),IDCB(145),JDCB(144),XEQ(145)
      COMMON DBNAM(10),DBLEV(3),DSNAM(3),DINAM(3),SELECT(6),SNAM(3) 
      COMMON DSNUM,DINUM,PARM(40),LPARM,ECHO,QSERR
      COMMON IMA(37),IB(896),IBSZ,SECNO,IEND,ISCAN
      COMMON BREAK
      COMMON IPFLAG,IOFLAG,RMOTE
      COMMON BATCH,XQBCH
      COMMON PAGCNT,LNCNT 
      COMMON PAGLEN,COLLIM
      COMMON RRCNT
      COMMON SELT(64),RSEC
      COMMON IPTR 
      COMMON RCOUNT 
      COMMON S(15,50),R3,TRKNM,IDILU
      COMMON R6 
      COMMON ATOTAL(6,5)
      COMMON LIST(101,6),L(7),T(5),U(7,5) 
      COMMON LEVSTR(66,5),LEVLEN(5) 
      COMMON IBUFF(2048)
C 
      EQUIVALENCE (S,SS)
C$$$$$$$$$$$$$$$$$$$ NOVEMBER 3,1978   $$$$$$$$$$$$$$$$$$$$$
C 
C 
C 
C 
C 
C 
C 
C 
C  BEGIN
C 
C 
C  SEE IF THE ERROR IS FROM THE FMP. ANY FMP ERROR CODE WILL BE LESS THAN 
C  100.  IF SO, CALL FMERR TO PRINT THE ERROR MESSAGE AND RETURN TO COM-
C  MAND PROMPT. 
C 
      IF (QSERR .GE. 100) GO TO 10
C 
C  FMERR EXPECTS A NEGATIVE CODE. 
C 
      IQSER = -IABS(QSERR)
      CALL FMERR(IQSER,ITTY)
      GO TO 20
C 
C  ELSE THE ERROR IS FROM THE DBMS.  CALL DBERR TO PRINT THE ERROR MESSAGE
C  AND RETURN TO COMMAND PROMPT.
C 
10    CALL DBERR(QSERR,ITTY)
C 
20    SNAM(2) = 2H
      CALL LOAD(SNAM) 
      END 
      END$
                                                                                                                                      