$save nolist

/*
    HUMAN INTERFACE EXCEPTION CODE LITERALS
*/

        /*  Environmental Exceptions  */
    
DECLARE
    E$LITERAL               LITERALLY '0080h',
    E$STRING$BUFFER         LITERALLY '0081h',
    E$SEPARATOR             LITERALLY '0082h',
    E$CONTINUED             LITERALLY '0083h',
    E$INVALID$NUMERIC       LITERALLY '0084h',
    E$LIST                  LITERALLY '0085h',
    E$WILDCARD              LITERALLY '0086h',
    E$PREPOSITION           LITERALLY '0087h',
    E$PATH                  LITERALLY '0088h',
    E$CONTROL$C             LITERALLY '0089h',
    E$CONTROL               LITERALLY '008Ah',
    E$UNMATCHED$LISTS       LITERALLY '008Bh',
    E$DATE                  LITERALLY '008Ch',
    E$NO$PARAMETERS         LITERALLY '008Dh',
    E$VERSION               LITERALLY '008Eh',
    E$GET$PATH$ORDER        LITERALLY '008Fh';


        /*  Programming Exceptions  */

DECLARE
    E$PARSE$TABLES          LITERALLY '8080h',
    E$JOB$TABLES            LITERALLY '8081h',
    E$DEFAULT$SO            LITERALLY '8083h',
    E$STRING                LITERALLY '8084h',
    E$ERROR$OUTPUT          LITERALLY '8085h';

$restore