/*  _MDMDEF, [MDMLIB], RPI CICG, 09-JUN-1987
    Definitions of constants used by MDMLIB.
    Copyright (c) 1987, M. Madison  	    	    	    	    */

/*** Message codes: use the GLOBALREF VALUEs so as to force inclusion
     of the messages module at link time.   	    	    	    */

    DECLARE (MDM__INVFUNC,
    	    MDM__INVFSPEC) FIXED BINARY(31) GLOBALREF VALUE;

/*** Used by MDM_OPENF ***/

    %REPLACE	MDM_M_READ  	BY	1;
    %REPLACE	MDM_M_WRITE 	BY  	2;

/*** Used by MDM_STRANS ***/

    %REPLACE	MDM_M_ASCEBC	BY  	1;
    %REPLACE	MDM_M_EBCASC	BY  	2;
    %REPLACE	MDM_M_ASCPRI	BY  	3;
    %REPLACE	MDM_M_PRIASC	BY  	4;

/*** Used by MDM_PARSE ***/

    %REPLACE	MDM_M_NODE  	BY  	'80000000'B4;
    %REPLACE	MDM_M_DEV  	BY  	'40000000'B4;
    %REPLACE	MDM_M_DIR  	BY  	'20000000'B4;
    %REPLACE	MDM_M_NAME  	BY  	'10000000'B4;
    %REPLACE	MDM_M_TYPE  	BY  	'08000000'B4;
    %REPLACE	MDM_M_VER  	BY  	'04000000'B4;
    %REPLACE	MDM_M_ALL  	BY  	'FC000000'B4;
    %REPLACE	MDM_M_SYNCHK  	BY  	'00800000'B4;
    %REPLACE	MDM_M_PWD  	BY  	'00400000'B4;
    %REPLACE	MDM_M_NOCONCEAL	BY  	'00200000'B4;