$save nolist
/*
 *    IO exception codes
 */

DECLARE
        IO$UNCLASS       LITERALLY '0',
        IO$SOFT          LITERALLY '1',
        IO$HARD          LITERALLY '2',
        IO$OPRINT        LITERALLY '3',
        IO$WRPROT        LITERALLY '4',
        IO$NO$DATA       LITERALLY '5',
        IO$MODE          LITERALLY '6',
		IO$NO$SPARES	 LITERALLY '7',
		IO$ALT$ASSIGNED	 LITERALLY '8';
$restore