! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
      DECLARE LONG CONSTANT MME$_UNLOAD = 1
      DECLARE LONG CONSTANT MME$_ALLOC = 2
      DECLARE LONG CONSTANT MME$_BACKUP_FILE = 3
      DECLARE LONG CONSTANT MME$_CLOSE_READ = 4
      DECLARE LONG CONSTANT MME$_CLOSE_WRITE = 5
      DECLARE LONG CONSTANT MME$_CONTINUATION_VOLUME = 6
      DECLARE LONG CONSTANT MME$_DEALLOCATE = 7
      DECLARE LONG CONSTANT MME$_DEVICE_AVAIL = 8
      DECLARE LONG CONSTANT MME$_DEVICE_UNAVAIL = 9
      DECLARE LONG CONSTANT MME$_DISMOUNT = 10
      DECLARE LONG CONSTANT MME$_DISPLAY_MESSAGE = 11
      DECLARE LONG CONSTANT MME$_EOV_READ = 12
      DECLARE LONG CONSTANT MME$_EOV_WRITE = 13
      DECLARE LONG CONSTANT MME$_INITIALIZE = 14
      DECLARE LONG CONSTANT MME$_MOUNT = 15
      DECLARE LONG CONSTANT MME$_MOUNT_REQUEST = 16
      DECLARE LONG CONSTANT MME$_NEWVOL_REQUEST = 17
      DECLARE LONG CONSTANT MME$_NOTIFY_DEVICE = 18
      DECLARE LONG CONSTANT MME$_OPCOM_ACP = 19
      DECLARE LONG CONSTANT MME$_OPCOM_MOUNT = 20
      DECLARE LONG CONSTANT MME$_OPEN_READ = 21
      DECLARE LONG CONSTANT MME$_OPEN_WRITE = 22
      DECLARE LONG CONSTANT MME$_VOLUME_ONLINE = 23
      DECLARE LONG CONSTANT MME$_BACKUP_END = 24
      DECLARE LONG CONSTANT MME$_BACKUP_START = 25
      DECLARE LONG CONSTANT MME$_WRITE_REQUEST = 26
      DECLARE LONG CONSTANT MME$_MOUNT_END = 27
      DECLARE LONG CONSTANT MME$_INIT_END = 28
      DECLARE LONG CONSTANT MME$_NEWVOL_END = 29
      DECLARE LONG CONSTANT MME$_DISMNT_PROC_DEL = 30
      DECLARE LONG CONSTANT MME$S_ACMODE = 4
      DECLARE LONG CONSTANT MME$S_BLOCKSIZE = 4
      DECLARE LONG CONSTANT MME$S_DENSITY = 4
      DECLARE LONG CONSTANT MME$S_DEVICE_CONTEXT = 4
      DECLARE LONG CONSTANT MME$S_DMT_FLAGS = 4
      DECLARE LONG CONSTANT MME$S_ERASE = 4
      DECLARE LONG CONSTANT MME$S_EXPIRATION = 8
      DECLARE LONG CONSTANT MME$S_FILESEQNO = 4
      DECLARE LONG CONSTANT MME$S_FILESECNO = 4
      DECLARE LONG CONSTANT MME$S_IO_FUNCTION = 4
      DECLARE LONG CONSTANT MME$S_LABEL_ACCESS = 1
      DECLARE LONG CONSTANT MME$S_MOUNT_CONTEXT = 4
      DECLARE LONG CONSTANT MME$S_MNT_FLAGS = 8
      DECLARE LONG CONSTANT MME$S_OBJCNT = 4
      DECLARE LONG CONSTANT MME$S_OVR_ACCESS = 4
      DECLARE LONG CONSTANT MME$S_OVR_EXP = 4
      DECLARE LONG CONSTANT MME$S_OVR_VOLO = 4
      DECLARE LONG CONSTANT MME$S_OWNER_UIC = 4
      DECLARE LONG CONSTANT MME$S_PID = 4
      DECLARE LONG CONSTANT MME$S_RECORDSIZ = 4
      DECLARE LONG CONSTANT MME$S_RESPONSEREQ = 4
      DECLARE LONG CONSTANT MME$S_SETNEW1 = 4
      DECLARE LONG CONSTANT MME$S_SETNEW2 = 4
      DECLARE LONG CONSTANT MME$S_VPROT = 4
      DECLARE LONG CONSTANT MME$S_FILE_ID = 6
      DECLARE LONG CONSTANT MME$S_GROUPSIZE = 4
      DECLARE LONG CONSTANT MME$S_PROTECTION = 4
      DECLARE LONG CONSTANT MME$S_STATUS = 4
      DECLARE LONG CONSTANT MME$S_ASSIGNMENT_UNIT = 4
      DECLARE LONG CONSTANT MME$S_CARTRIDGE_SIDE = 4
      DECLARE LONG CONSTANT MME$S_DISPOSITION = 4
      DECLARE LONG CONSTANT MME$S_RECFORMAT = 1
    !  MME action routine argument item codes
      DECLARE LONG CONSTANT MME$_ACMODE = 1
      DECLARE LONG CONSTANT MME$_BLOCKSIZE = 2
      DECLARE LONG CONSTANT MME$_COMMENT = 3
      DECLARE LONG CONSTANT MME$_DENSITY = 4
      DECLARE LONG CONSTANT MME$_DEVICE_CONTEXT = 5
      DECLARE LONG CONSTANT MME$_DMT_FLAGS = 6
      DECLARE LONG CONSTANT MME$_EOF1 = 7
      DECLARE LONG CONSTANT MME$_EOF2 = 8
      DECLARE LONG CONSTANT MME$_EOF3 = 9
      DECLARE LONG CONSTANT MME$_EOF4 = 10
      DECLARE LONG CONSTANT MME$_EOV1 = 11
      DECLARE LONG CONSTANT MME$_EOV2 = 12
      DECLARE LONG CONSTANT MME$_EOV3 = 13
      DECLARE LONG CONSTANT MME$_EOV4 = 14
      DECLARE LONG CONSTANT MME$_ERASE = 15
      DECLARE LONG CONSTANT MME$_FIB = 16
      DECLARE LONG CONSTANT MME$_FILESEQNO = 17
      DECLARE LONG CONSTANT MME$_HDR1 = 18
      DECLARE LONG CONSTANT MME$_HDR2 = 19
      DECLARE LONG CONSTANT MME$_HDR3 = 20
      DECLARE LONG CONSTANT MME$_HDR4 = 21
      DECLARE LONG CONSTANT MME$_IO_FUNCTION = 22
      DECLARE LONG CONSTANT MME$_LABEL_ACCESS = 23
      DECLARE LONG CONSTANT MME$_LABEL_VOLO = 24
      DECLARE LONG CONSTANT MME$_MOUNT_CONTEXT = 25
      DECLARE LONG CONSTANT MME$_MNT_FLAGS = 26
      DECLARE LONG CONSTANT MME$_MSG1 = 27
      DECLARE LONG CONSTANT MME$_MSG2 = 28
      DECLARE LONG CONSTANT MME$_NEWDEVNAM = 29
      DECLARE LONG CONSTANT MME$_NEWMSG1 = 30
      DECLARE LONG CONSTANT MME$_NEWMSG2 = 31
      DECLARE LONG CONSTANT MME$_NEWVOLNAM = 32
      DECLARE LONG CONSTANT MME$_NXTVOL = 33
      DECLARE LONG CONSTANT MME$_OBJCNT = 34
      DECLARE LONG CONSTANT MME$_OVR_ACCESS = 35
      DECLARE LONG CONSTANT MME$_OVR_EXP = 36
      DECLARE LONG CONSTANT MME$_OVR_VOLO = 37
      DECLARE LONG CONSTANT MME$_OWNER_UIC = 38
      DECLARE LONG CONSTANT MME$_PHYDEVNAM = 39
      DECLARE LONG CONSTANT MME$_PID = 40
      DECLARE LONG CONSTANT MME$_PREV_VOL = 41
      DECLARE LONG CONSTANT MME$_PROCESSOR = 42
      DECLARE LONG CONSTANT MME$_RECORDSIZ = 43
      DECLARE LONG CONSTANT MME$_REQDEVNAM = 44
      DECLARE LONG CONSTANT MME$_RESPONSEREQ = 45
      DECLARE LONG CONSTANT MME$_SETNEW1 = 46
      DECLARE LONG CONSTANT MME$_SETNEW2 = 47
      DECLARE LONG CONSTANT MME$_VOL1 = 48
      DECLARE LONG CONSTANT MME$_VOL2 = 49
      DECLARE LONG CONSTANT MME$_VOLNAM = 50
      DECLARE LONG CONSTANT MME$_VPROT = 51
      DECLARE LONG CONSTANT MME$_BACKUP_FILE_FLAGS = 52
      DECLARE LONG CONSTANT MME$_BACKUP_FLAGS = 53
      DECLARE LONG CONSTANT MME$_EXPIRATION = 54
      DECLARE LONG CONSTANT MME$_FILENAME = 55
      DECLARE LONG CONSTANT MME$_FILE_ID = 56
      DECLARE LONG CONSTANT MME$_GROUPSIZE = 57
      DECLARE LONG CONSTANT MME$_IN_SAVE = 58
      DECLARE LONG CONSTANT MME$_IN_SPECIFICATION = 59
      DECLARE LONG CONSTANT MME$_IN_VOLUME = 60
      DECLARE LONG CONSTANT MME$_OUT_SAVE = 61
      DECLARE LONG CONSTANT MME$_PROTECTION = 62
      DECLARE LONG CONSTANT MME$_STATUS = 63
      DECLARE LONG CONSTANT MME$_ASSIGNMENT_UNIT = 64
      DECLARE LONG CONSTANT MME$_CART_MEDIA_NAME = 65
      DECLARE LONG CONSTANT MME$_CARTRIDGE_NAME = 66
      DECLARE LONG CONSTANT MME$_CARTRIDGE_SIDE = 67
      DECLARE LONG CONSTANT MME$_COLLECTION = 68
      DECLARE LONG CONSTANT MME$_DEVICE_TYPE = 69
      DECLARE LONG CONSTANT MME$_DISPOSITION = 70
      DECLARE LONG CONSTANT MME$_LOCATION = 71
      DECLARE LONG CONSTANT MME$_MEDIA_NAME = 72
      DECLARE LONG CONSTANT MME$_LABEL_TYPE = 73
      DECLARE LONG CONSTANT MME$_EXPDATE = 74
      DECLARE LONG CONSTANT MME$_CREDATE = 75
      DECLARE LONG CONSTANT MME$_RECFORMAT = 76
      DECLARE LONG CONSTANT MME$_FILESECNO = 77
      DECLARE LONG CONSTANT MME$_REPLY = 78
      DECLARE LONG CONSTANT MME$M_IMAGE = x'00000001'
      DECLARE LONG CONSTANT MME$M_CRC = x'00000002'
      DECLARE LONG CONSTANT MME$M_DELETE = x'00000004'
      DECLARE LONG CONSTANT MME$M_IGN_INTERLOCK = x'00000008'
      DECLARE LONG CONSTANT MME$M_IGN_LABEL = x'00000010'
      DECLARE LONG CONSTANT MME$M_IGN_NOBACKUP = x'00000020'
      DECLARE LONG CONSTANT MME$M_INTERCHANGE = x'00000040'
      DECLARE LONG CONSTANT MME$M_RECORD = x'00000080'
      DECLARE LONG CONSTANT MME$M_REWIND = x'00000100'
      DECLARE LONG CONSTANT MME$M_VERIFY = x'00000200'
      DECLARE LONG CONSTANT MME$M_PHYSICAL = x'00000400'
      DECLARE LONG CONSTANT MME$M_COMPACTION = x'00000800'
      DECLARE LONG CONSTANT MME$S_BACKUP_FLAGS = 4
      record BACKUP_FLAGS
         group MME$R_FLAGS_OVERLAY          !  Flag mask for MME$_BACKUP_FLAGS
            variant
               case
                  LONG MME$L_FLAGS_MASK
               case
                  group MME$R_FLAGS_BITS
                     WORD IMAGE_bits   ! COMMENT ADDED BY SDL - IMAGE_bits contains bits IMAGE through FILL_9_
                  end group MME$R_FLAGS_BITS
            end variant
         end group MME$R_FLAGS_OVERLAY
      end record BACKUP_FLAGS
    
      DECLARE LONG CONSTANT MME$M_VERIF_ERR = x'00000001'
      DECLARE LONG CONSTANT MME$M_NOBACKUP = x'00000002'
      DECLARE LONG CONSTANT MME$M_FILE_OPEN = x'00000004'
      DECLARE LONG CONSTANT MME$M_ACC_CONF = x'00000008'
      DECLARE LONG CONSTANT MME$S_BACKUP_FILE_FLAGS = 4
      record BACKUP_FILE_FLAGS
         group MME$R_FILE_FLAGS_OVERLAY     !  Flag mask for MME$_BACKUP_FLAGS
            variant
               case
                  LONG MME$L_FILE_FLAGS_MASK
               case
                  group MME$R_FILE_FLAGS_BITS
                     LONG VERIF_ERR_bits   ! COMMENT ADDED BY SDL - VERIF_ERR_bits contains bits VERIF_ERR through fill1
                  end group MME$R_FILE_FLAGS_BITS
            end variant
         end group MME$R_FILE_FLAGS_OVERLAY
      end record BACKUP_FILE_FLAGS
    
      DECLARE LONG CONSTANT MME$C_ANSI_1 = 1
      DECLARE LONG CONSTANT MME$C_ANSI_2 = 2
      DECLARE LONG CONSTANT MME$C_ANSI_3 = 3
      DECLARE LONG CONSTANT MME$C_ANSI_4 = 4
      DECLARE LONG CONSTANT MME$C_IBM_STD = 5
      DECLARE LONG CONSTANT MME$C_UNLABELLED = 6
      DECLARE LONG CONSTANT MME$C_ODS1 = 7
      DECLARE LONG CONSTANT MME$C_ODS2 = 8