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