$save nolist

/*
    EIOS EXCEPTION CODE LITERALS
*/

        /*  Environmental Exceptions  */

DECLARE	
    E$LOG$NAME$SYNTAX       LITERALLY '0040h',
    E$IOMEM                 LITERALLY '0042h',
    E$MEDIA                 LITERALLY '0044h',
    E$LOG$NAME$NEXIST       LITERALLY '0045h',
    E$NOT$OWNER             LITERALLY '0046h',
    E$IO$JOB                LITERALLY '0047h';


        /*  Programming Exceptions  */

DECLARE	
    E$NOT$LOG$NAME          LITERALLY '8040h',
    E$NOT$DEVICE            LITERALLY '8041h',
    E$NOT$CONNECTION        LITERALLY '8042h';

$restore