ASMB
      NAM GMESS,7 92069-16015 REV.2026 800122 
* 
* 
******************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED 
* NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
* TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR
* WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. 
******************************************************************* 
* 
* 
*     SOURCE:    92069-18035
*     RELOC:     92069-16015
* 
*     ALTERED:   JANUARY 22, 1980 FOR SORTED CHAINS FEATURE - CEJ 
* 
* 
* 
*****************************************************************:
* 
************************************************************
* GMESS RETURNS AN ERROR MESSAGE
* 
* THE ERROR MESSAGES ARE IN A ARRAY, EACH ENTRY REQUIRES 20 WORDS.
* ALL THE ERROR NUMBERS ARE IN BLOCK COMMON IN ORDER TO FACILITATE
* CHANGES.  ALL ROUTINES USE THE MNEMONIC CONSTANTS.
* 
* CALLING SEQUENCE: 
* 
*  CALL GMESS(N,MESS,ISZ) 
* 
*   N 
*   IS THE INDEX INTO THE MESSAGE TABLE.  NOTE THESE CONSTANTS ARE
*   SET UP IN A BLOCK COMMON AREA. THE MNEMONIC FOR EACH MESSAGE
*   IS DOCUMENTED DIRECTLY BEFORE THE MESSAGE.
* 
*   MESS
*   IS A BUFFER OF 20 WORDS.  THE ERROR MESSAGE WILL BE RETURNED
*   IN THIS BUFFER
* 
*   ISZ 
*   IS AN INTEGER WHICH WILL CONTAIN THE SIZE OF THE MESSAGE IN WORDS.
*   CURRENTLY THIS NUMBER IS ALWAYS 20. 
* 
* 
************************************************************
* 
* GMESS SUBROUTINE
* 
*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ JANUARY 23,1980 
* 
* 
*                      CONSTANTS IN COMMON
* 
* 
* 
      COM CARD(36),CHAR,CODE,CPACK(100),CRDPR 
      COM DSEC,DCRN 
      COM ENTL,ERROR
      COM NMFLG 
      COM FWAM
      COM GGERR 
      COM ICNT,IDCB(144),INDX 
      COM INFPT,INFO(6),IGLOB(10),INPUT,ITMTB 
      COM KPACK(50) 
      COM LDCB(144),LGLOB,LIST,LWAM 
      COM MEDIA 
      COM NPACK(50),NSETS(50) 
      COM OVRHD 
      COM PTHTB(32) 
      COM RDEF(64),RESNO,RFILE(3),RINDX 
      COM SCNT,SETTB,SINDX,SORTI(255),SORTS(50),STYPE 
      COM TYPE,PRGFG
* 
*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ JANUARY 23,1980 
* CHANGED TO INCREASE SIZE OF PTHTB 
      ENT GMESS 
      EXT .ENTR 
      SUP PRESS 
PARAM BSS 1 
MESS  BSS 1 
ISZ   BSS 1 
GMESS NOP 
      JSB .ENTR     TRANSFER PARAMETERS 
      DEF PARAM 
      LDA T20 
      STA ISZ,I 
      CCA 
      ADA PARAM,I   ENDX=20*(N-1) 
      MPY T20 
      ADA EADDR 
      STA ENDX
      CLA 
      STA J         J=0 
OVER  LDA MESS      MESS(J)=ERTAB(ENDX) 
      ADA J 
      LDB ENDX,I
      STB 0,I 
      LDA J 
      ADA NEG19 
      SSA,RSS       IF J<19,RETURN
      JMP GMESS,I 
      ISZ J         J=J+1 
      ISZ ENDX      ENDX=ENDX+1 
      JMP OVER
T20   DEC 20
NEG19 DEC -19 
ENDX  BSS 1 
J     BSS 1 
EMESJ BSS 1 
EADDR DEF ERTAB 
ERTAB EQU * 
*                ILCTR
      ASC 20, ILLEGAL CONTROL OPTION. 
*                ILCRN
      ASC 20, ILLEGAL CARTRIDGE NUMBER. 
*                ILSEC
      ASC 20, ILLEGAL SECURITY CODE.
*                XBEGN
      ASC 20, 'BEGIN DATA BASE:' EXPECTED.
*                XLEV 
      ASC 20, 'LEVELS:' EXPECTED. 
*                DUPIT
      ASC 20, DUPLICATE ITEM NAME.
*                ITLIM
      ASC 20, TOO MANY DATA ITEMS.
*                ILITP
      ASC 20, BAD TYPE DESIGNATOR.
*                FLDER
      ASC 20, ITEM TOO LONG.
*                ILXTP
      ASC 20, TOTAL ITEM LENGTH NOT INTEGRAL WORDS. 
*                ILWR 
      ASC 20, BAD WRITE LEVEL.
*                ILTRM
      ASC 20, BAD TERMINATOR - ';' EXPECTED.
*                NAMX 
      ASC 20, 'NAME:' EXPECTED. 
*                DUPST
      ASC 20, SET NAME ALREADY USED.
*                STLIM
      ASC 20, TOO MANY DATA SETS. 
*                ENTYX
      ASC 20, 'ENTRY:' EXPECTED.
*                NOITM
      ASC 20, UNDEFINED ITEM REFERENCED.
*                BDSET
      ASC 20, UNDEFINED SET REFERENCED. 
*                BDKEY
      ASC 20, KEY ITEMS NOT OF SAME LENGTH, OR TYPE.
*                DUPHS
      ASC 20, TOO MANY PATHS. 
*                NOPTH
      ASC 20, MASTER DATA SET LACKS KEY ITEM. 
*                AERR 
      ASC 20, AUTO-MASTER MUST HAVE KEY ITEM ONLY.
*                RCLIM
      ASC 20, ENTRY TOO BIG.
*                CAPX 
      ASC 20, 'CAPACITY:' EXPECTED. 
*                ILCAP
      ASC 20, BAD CAPACITY COUNT. 
*                EMPTY
      ASC 20, DATA BASE HAS NO DATA SETS. 
*                MXERR
      ASC 20, MAX ERRORS-SCHEMA PROCESSING TERMINATED.
*                EOF
      ASC 20, END OF FILE ENCOUNTERED.
*                NOSEG
      ASC 20, MISSING PROGRAM SEGMENTS. 
*                NOMEM
      ASC 20, NOT ENOUGH MEMORY TO CREATE ROOT FILE.
*                DUPLV
      ASC 20, DUPLICATE LEVEL WORD. 
*                ILNAM
      ASC 20, ILLEGAL NAME. 
*                ILNMR
      ASC 20, INCOMPLETE NAME.
*                LVDEF
      ASC 20, LEVEL NUMBER ALREADY DEFINED. 
*                ILSEP
      ASC 20, ILLEGAL SEPARATOR.
*                ILRD 
      ASC 20, BAD READ LEVEL. 
*                ILRNG
      ASC 20, LEVEL OUT OF RANGE. 
*                SETX 
      ASC 20, 'SETS:' EXPECTED. 
*                IGNSC
      ASC 20, WARNING - SECURITY CODE IGNORED.
*                INMX 
      ASC 20, ITEM NAME EXPECTED. 
*                PTDUP
      ASC 20, PATH TO MASTER ALREADY DEFINED. 
*                DBKEY
      ASC 20, AUTO-MASTER NEEDS MORE WRITE CAPABILITY 
*                ENDX 
      ASC 20, 'END.' EXPECTED.
*                PDEFC
      ASC 20, ALL PATHS TO MASTER ARE NOT DEFINED.
*                SIMPT
      ASC 20, PATH ITEM CAN NOT BE AN ARRAY.
*                BDCNT
      ASC 20, AUTO-MASTERS MUST HAVE AT LEAST 1 PATH. 
*                RTERR
      ASC 20, ROOT FILE NOT CREATED - SCHEMA ERRORS.
*                GOODS
      ASC 20, DATA SET FILES CREATED. 
*                GOODR
      ASC 20, ROOT FILE CREATED.
*                BADS 
      ASC 20, I/O ERROR - DATA SETS NOT CREATED.
*                BADR 
      ASC 20, ROOT FILE I/O ERROR, DATA SETS PURGED.
*                ABORT
      ASC 20, END DATA BASE DEFINITION
*                OPNER
      ASC 20, CAN NOT OPEN SCHEMA FILE. 
*                XCNTR
      ASC 20, '$CONTROL:' EXPECTED. 
*                ILLVN
      ASC 20, ILLEGAL LEVEL WORD. 
*                NOPTH
      ASC 20, MASTER MUST HAVE A PATH.
*                SRCH2
      ASC 20, SEARCH ITEM ALREADY DEFINED.
*                UEND 
      ASC 20, UNEXPECTED 'END.' 
*                XITM 
      ASC 20, 'ITEMS:' EXPECTED.
*                ELERR
      ASC 20, TOO MANY ELEMENTS.
*                ROTER
      ASC 20, ROOT FILE OVERHEAD RECORD ERROR.
*                UNITM
      ASC 20, THE FOLLOWING ITEM(S) ARE UNUSED. 
*                IOAIN
      ASC 20, I/O WAS ABORTED ON INPUT
*                IOAOT
      ASC 20, I/O WAS ABORTED ON OUTPUT 
*                UNRDL
      ASC 20, READ LEVEL WORD FOR LEVEL NOT DEFINED 
*                UNWRL
      ASC 20, WRITE LEVEL WORD FOR LEVEL NOT DEFINED
*                IOERR
*                  BE CAREFUL TO CHANGE ROOT IF THIS EVER CHANGES 
      ASC 20, I/O ERROR  XXXXXX, ON FILE XXXXXX.
*                ILOPT
      ASC 20, ILLEGAL OPTION. 
*                ILLSC
      ASC 20, ILLEGAL SECURITY CODE.
*                MORIT
      ASC 20, DATA SET MUST HAVE AN ITEM. 
*                ILPTH
      ASC 20, NON-NUMERIC PATH COUNT. 
*                DEFIT
      ASC 20, AT LEAST 1 ITEM MUST BE DEFINED.
*                ILSRT
      ASC 20, ILLEGAL SORT DESIGNATOR 
*                SIMPS
      ASC 20, SORT ITEM MUST BE SIMPLE
*                UNDST
      ASC 20, SORT ITEM NOT DEFINED IN SET
      END 
                                                                                                                                                                                                                                          