!*** MODULE MMEDEF IDENT X-3 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER MME$_UNLOAD = '00000001'X
	PARAMETER MME$_ALLOC = '00000002'X
	PARAMETER MME$_BACKUP_FILE = '00000003'X
	PARAMETER MME$_CLOSE_READ = '00000004'X
	PARAMETER MME$_CLOSE_WRITE = '00000005'X
	PARAMETER MME$_CONTINUATION_VOLUME = '00000006'X
	PARAMETER MME$_DEALLOCATE = '00000007'X
	PARAMETER MME$_DEVICE_AVAIL = '00000008'X
	PARAMETER MME$_DEVICE_UNAVAIL = '00000009'X
	PARAMETER MME$_DISMOUNT = '0000000A'X
	PARAMETER MME$_DISPLAY_MESSAGE = '0000000B'X
	PARAMETER MME$_EOV_READ = '0000000C'X
	PARAMETER MME$_EOV_WRITE = '0000000D'X
	PARAMETER MME$_INITIALIZE = '0000000E'X
	PARAMETER MME$_MOUNT = '0000000F'X
	PARAMETER MME$_MOUNT_REQUEST = '00000010'X
	PARAMETER MME$_NEWVOL_REQUEST = '00000011'X
	PARAMETER MME$_NOTIFY_DEVICE = '00000012'X
	PARAMETER MME$_OPCOM_ACP = '00000013'X
	PARAMETER MME$_OPCOM_MOUNT = '00000014'X
	PARAMETER MME$_OPEN_READ = '00000015'X
	PARAMETER MME$_OPEN_WRITE = '00000016'X
	PARAMETER MME$_VOLUME_ONLINE = '00000017'X
	PARAMETER MME$_BACKUP_END = '00000018'X
	PARAMETER MME$_BACKUP_START = '00000019'X
	PARAMETER MME$_WRITE_REQUEST = '0000001A'X
	PARAMETER MME$_MOUNT_END = '0000001B'X
	PARAMETER MME$_INIT_END = '0000001C'X
	PARAMETER MME$_NEWVOL_END = '0000001D'X
	PARAMETER MME$_DISMNT_PROC_DEL = '0000001E'X
	PARAMETER MME$S_ACMODE = '00000004'X
	PARAMETER MME$S_BLOCKSIZE = '00000004'X
	PARAMETER MME$S_DENSITY = '00000004'X
	PARAMETER MME$S_DEVICE_CONTEXT = '00000004'X
	PARAMETER MME$S_DMT_FLAGS = '00000004'X
	PARAMETER MME$S_ERASE = '00000004'X
	PARAMETER MME$S_EXPIRATION = '00000008'X
	PARAMETER MME$S_FILESEQNO = '00000004'X
	PARAMETER MME$S_FILESECNO = '00000004'X
	PARAMETER MME$S_IO_FUNCTION = '00000004'X
	PARAMETER MME$S_LABEL_ACCESS = '00000001'X
	PARAMETER MME$S_MOUNT_CONTEXT = '00000004'X
	PARAMETER MME$S_MNT_FLAGS = '00000008'X
	PARAMETER MME$S_OBJCNT = '00000004'X
	PARAMETER MME$S_OVR_ACCESS = '00000004'X
	PARAMETER MME$S_OVR_EXP = '00000004'X
	PARAMETER MME$S_OVR_VOLO = '00000004'X
	PARAMETER MME$S_OWNER_UIC = '00000004'X
	PARAMETER MME$S_PID = '00000004'X
	PARAMETER MME$S_RECORDSIZ = '00000004'X
	PARAMETER MME$S_RESPONSEREQ = '00000004'X
	PARAMETER MME$S_SETNEW1 = '00000004'X
	PARAMETER MME$S_SETNEW2 = '00000004'X
	PARAMETER MME$S_VPROT = '00000004'X
	PARAMETER MME$S_FILE_ID = '00000006'X
	PARAMETER MME$S_GROUPSIZE = '00000004'X
	PARAMETER MME$S_PROTECTION = '00000004'X
	PARAMETER MME$S_STATUS = '00000004'X
	PARAMETER MME$S_ASSIGNMENT_UNIT = '00000004'X
	PARAMETER MME$S_CARTRIDGE_SIDE = '00000004'X
	PARAMETER MME$S_DISPOSITION = '00000004'X
	PARAMETER MME$S_RECFORMAT = '00000001'X
 !  MME action routine argument item codes
	PARAMETER MME$_ACMODE = '00000001'X
	PARAMETER MME$_BLOCKSIZE = '00000002'X
	PARAMETER MME$_COMMENT = '00000003'X
	PARAMETER MME$_DENSITY = '00000004'X
	PARAMETER MME$_DEVICE_CONTEXT = '00000005'X
	PARAMETER MME$_DMT_FLAGS = '00000006'X
	PARAMETER MME$_EOF1 = '00000007'X
	PARAMETER MME$_EOF2 = '00000008'X
	PARAMETER MME$_EOF3 = '00000009'X
	PARAMETER MME$_EOF4 = '0000000A'X
	PARAMETER MME$_EOV1 = '0000000B'X
	PARAMETER MME$_EOV2 = '0000000C'X
	PARAMETER MME$_EOV3 = '0000000D'X
	PARAMETER MME$_EOV4 = '0000000E'X
	PARAMETER MME$_ERASE = '0000000F'X
	PARAMETER MME$_FIB = '00000010'X
	PARAMETER MME$_FILESEQNO = '00000011'X
	PARAMETER MME$_HDR1 = '00000012'X
	PARAMETER MME$_HDR2 = '00000013'X
	PARAMETER MME$_HDR3 = '00000014'X
	PARAMETER MME$_HDR4 = '00000015'X
	PARAMETER MME$_IO_FUNCTION = '00000016'X
	PARAMETER MME$_LABEL_ACCESS = '00000017'X
	PARAMETER MME$_LABEL_VOLO = '00000018'X
	PARAMETER MME$_MOUNT_CONTEXT = '00000019'X
	PARAMETER MME$_MNT_FLAGS = '0000001A'X
	PARAMETER MME$_MSG1 = '0000001B'X
	PARAMETER MME$_MSG2 = '0000001C'X
	PARAMETER MME$_NEWDEVNAM = '0000001D'X
	PARAMETER MME$_NEWMSG1 = '0000001E'X
	PARAMETER MME$_NEWMSG2 = '0000001F'X
	PARAMETER MME$_NEWVOLNAM = '00000020'X
	PARAMETER MME$_NXTVOL = '00000021'X
	PARAMETER MME$_OBJCNT = '00000022'X
	PARAMETER MME$_OVR_ACCESS = '00000023'X
	PARAMETER MME$_OVR_EXP = '00000024'X
	PARAMETER MME$_OVR_VOLO = '00000025'X
	PARAMETER MME$_OWNER_UIC = '00000026'X
	PARAMETER MME$_PHYDEVNAM = '00000027'X
	PARAMETER MME$_PID = '00000028'X
	PARAMETER MME$_PREV_VOL = '00000029'X
	PARAMETER MME$_PROCESSOR = '0000002A'X
	PARAMETER MME$_RECORDSIZ = '0000002B'X
	PARAMETER MME$_REQDEVNAM = '0000002C'X
	PARAMETER MME$_RESPONSEREQ = '0000002D'X
	PARAMETER MME$_SETNEW1 = '0000002E'X
	PARAMETER MME$_SETNEW2 = '0000002F'X
	PARAMETER MME$_VOL1 = '00000030'X
	PARAMETER MME$_VOL2 = '00000031'X
	PARAMETER MME$_VOLNAM = '00000032'X
	PARAMETER MME$_VPROT = '00000033'X
	PARAMETER MME$_BACKUP_FILE_FLAGS = '00000034'X
	PARAMETER MME$_BACKUP_FLAGS = '00000035'X
	PARAMETER MME$_EXPIRATION = '00000036'X
	PARAMETER MME$_FILENAME = '00000037'X
	PARAMETER MME$_FILE_ID = '00000038'X
	PARAMETER MME$_GROUPSIZE = '00000039'X
	PARAMETER MME$_IN_SAVE = '0000003A'X
	PARAMETER MME$_IN_SPECIFICATION = '0000003B'X
	PARAMETER MME$_IN_VOLUME = '0000003C'X
	PARAMETER MME$_OUT_SAVE = '0000003D'X
	PARAMETER MME$_PROTECTION = '0000003E'X
	PARAMETER MME$_STATUS = '0000003F'X
	PARAMETER MME$_ASSIGNMENT_UNIT = '00000040'X
	PARAMETER MME$_CART_MEDIA_NAME = '00000041'X
	PARAMETER MME$_CARTRIDGE_NAME = '00000042'X
	PARAMETER MME$_CARTRIDGE_SIDE = '00000043'X
	PARAMETER MME$_COLLECTION = '00000044'X
	PARAMETER MME$_DEVICE_TYPE = '00000045'X
	PARAMETER MME$_DISPOSITION = '00000046'X
	PARAMETER MME$_LOCATION = '00000047'X
	PARAMETER MME$_MEDIA_NAME = '00000048'X
	PARAMETER MME$_LABEL_TYPE = '00000049'X
	PARAMETER MME$_EXPDATE = '0000004A'X
	PARAMETER MME$_CREDATE = '0000004B'X
	PARAMETER MME$_RECFORMAT = '0000004C'X
	PARAMETER MME$_FILESECNO = '0000004D'X
	PARAMETER MME$_REPLY = '0000004E'X
	PARAMETER MME$M_IMAGE = '00000001'X
	PARAMETER MME$M_CRC = '00000002'X
	PARAMETER MME$M_DELETE = '00000004'X
	PARAMETER MME$M_IGN_INTERLOCK = '00000008'X
	PARAMETER MME$M_IGN_LABEL = '00000010'X
	PARAMETER MME$M_IGN_NOBACKUP = '00000020'X
	PARAMETER MME$M_INTERCHANGE = '00000040'X
	PARAMETER MME$M_RECORD = '00000080'X
	PARAMETER MME$M_REWIND = '00000100'X
	PARAMETER MME$M_VERIFY = '00000200'X
	PARAMETER MME$M_PHYSICAL = '00000400'X
	PARAMETER MME$M_COMPACTION = '00000800'X
	STRUCTURE /BACKUP_FLAGS/
	    UNION
	        MAP
	        INTEGER*4 MME$L_FLAGS_MASK
	        END MAP
	        MAP
	            PARAMETER MME$S_IMAGE = 1
	            PARAMETER MME$V_IMAGE = 0
	            PARAMETER MME$S_CRC = 1
	            PARAMETER MME$V_CRC = 1
	            PARAMETER MME$S_DELETE = 1
	            PARAMETER MME$V_DELETE = 2
	            PARAMETER MME$S_IGN_INTERLOCK = 1
	            PARAMETER MME$V_IGN_INTERLOCK = 3
	            PARAMETER MME$S_IGN_LABEL = 1
	            PARAMETER MME$V_IGN_LABEL = 4
	            PARAMETER MME$S_IGN_NOBACKUP = 1
	            PARAMETER MME$V_IGN_NOBACKUP = 5
	            PARAMETER MME$S_INTERCHANGE = 1
	            PARAMETER MME$V_INTERCHANGE = 6
	            PARAMETER MME$S_RECORD = 1
	            PARAMETER MME$V_RECORD = 7
	            PARAMETER MME$S_REWIND = 1
	            PARAMETER MME$V_REWIND = 8
	            PARAMETER MME$S_VERIFY = 1
	            PARAMETER MME$V_VERIFY = 9
	            PARAMETER MME$S_PHYSICAL = 1
	            PARAMETER MME$V_PHYSICAL = 10
	            PARAMETER MME$S_COMPACTION = 1
	            PARAMETER MME$V_COMPACTION = 11
	        BYTE %FILL (2)
	        END MAP
	    END UNION
	END STRUCTURE	! BACKUP_FLAGS
	PARAMETER MME$M_VERIF_ERR = '00000001'X
	PARAMETER MME$M_NOBACKUP = '00000002'X
	PARAMETER MME$M_FILE_OPEN = '00000004'X
	PARAMETER MME$M_ACC_CONF = '00000008'X
	STRUCTURE /BACKUP_FILE_FLAGS/
	    UNION
	        MAP
	        INTEGER*4 MME$L_FILE_FLAGS_MASK
	        END MAP
	        MAP
	            PARAMETER MME$S_VERIF_ERR = 1
	            PARAMETER MME$V_VERIF_ERR = 0
	            PARAMETER MME$S_NOBACKUP = 1
	            PARAMETER MME$V_NOBACKUP = 1
	            PARAMETER MME$S_FILE_OPEN = 1
	            PARAMETER MME$V_FILE_OPEN = 2
	            PARAMETER MME$S_ACC_CONF = 1
	            PARAMETER MME$V_ACC_CONF = 3
	            PARAMETER MME$S_fill1 = 28
	            PARAMETER MME$V_fill1 = 4
	            BYTE %FILL (4)
	        END MAP
	    END UNION
	END STRUCTURE	! BACKUP_FILE_FLAGS
	PARAMETER MME$C_ANSI_1 = '00000001'X
	PARAMETER MME$C_ANSI_2 = '00000002'X
	PARAMETER MME$C_ANSI_3 = '00000003'X
	PARAMETER MME$C_ANSI_4 = '00000004'X
	PARAMETER MME$C_IBM_STD = '00000005'X
	PARAMETER MME$C_UNLABELLED = '00000006'X
	PARAMETER MME$C_ODS1 = '00000007'X
	PARAMETER MME$C_ODS2 = '00000008'X
!DEC$ END OPTIONS