Set default media information

CALL FMEDIA (MFMMED,MFMTYP,MFMGEN,MFMSIZ,MFMDEN,MFMMNT,MFMLAB,NMEDIA,IRC*)

MFMMED

Integer array of length NMEDIA giving the FATMEN media type (integer code).

MFMTYP

Character array of length NMEDIA specifying the physical device type.

MFMGEN

Character array of length NMEDIA specifying the generic device type.

MFMSIZ

Character array of length NMEDIA specifying the capacity in Megabytes of this medium.

MFMDEN

Character array of length NMEDIA specifying the density of this medium.

MFMMNT

Character array of length NMEDIA specifying the default mount type (M=manual, R=robotic) of this medium.

MFMLAB

Character array of length NMEDIA specifying the default label type (SL=IBM labels, AL=ansi labels, NL=no labels)

NMEDIA

Integer variable specifying the length of the preceeding arrays.

IRC

Integer variable in which the return code is returned.

This routine can be used to set the characteristics of the various types of medium. It is automatically called at FATMEN initialisation time by the routine FMINIT. New media may be added at runtime using the routine FMAMED.

Example using the FMEDIA routine

*KEEP,FATMED. Default media attributes
      PARAMETER     (NMEDIA=4)
*
*     FATMEN media type
*
      DIMENSION     MFMMED(NMEDIA)
*
*     Generic device type
*
      CHARACTER*8   MFMGEN(NMEDIA)
*
*     Physical device type
*
      CHARACTER*8   MFMTYP(NMEDIA)
*
*     Default density
*
      CHARACTER*8   MFMDEN(NMEDIA)
*
*     Media size in Megabytes
*
      CHARACTER*8   MFMSIZ(NMEDIA)
*
*     Default mount type
*
      CHARACTER*1   MFMMNT(NMEDIA)
*
*     Default label type
*
      CHARACTER*2   MFMLAB(NMEDIA)

      DATA          MFMGEN(1)/'DISK'/,MFMGEN(2)/'3480'/,
     +              MFMGEN(3)/'3420'/,MFMGEN(4)/'8MM '/

      DATA          MFMTYP(1)/'DISK'/,MFMTYP(2)/'CT1 '/,
     +              MFMTYP(3)/'TAPE'/,MFMTYP(4)/'8200'/

      DATA          MFMDEN(2)/'38K '/,MFMDEN(3)/'6250'/,
     +              MFMDEN(4)/'43200'/

      DATA          MFMSIZ(1)/'0'/,   MFMSIZ(2)/'200'/,
     +              MFMSIZ(3)/'200'/, MFMSIZ(4)/'2300'/

      DATA          MFMMNT(1)/'M'/,   MFMMNT(2)/'M'/,
     +              MFMMNT(3)/'M'/,   MFMMNT(4)/'M'/

      DATA          MFMLAB(1)/'  '/,  MFMLAB(2)/'SL'/,
     +              MFMLAB(3)/'SL'/,  MFMLAB(4)/'SL'/
*KEND
*
*     Set default media attributes
*
      DO 55 I=1,NMEDIA
      MFMMED(I) = I
   55 CONTINUE
*
*     For each media type (1,2,3,...) set
*         physical device type (disk, 3480, 3420,...)
*         generic  device type (disk, ct1,  tape,...)
*         capacity (MB)        (?, 200, 150,...)
*         density              (?, 38K, 6250,...)
*         mount type           (manual/robotic)
*         label type           (SL/NL/AL)
*
+SELF,IF=APOL3,LEPICS.
*
*     Still using old generic device names...
*
      MFMGEN(2) = 'CART'
+SELF,IF=VMTAPE.
*
*     Generic names for VMTAPE...
*
      MFMGEN(2) = '18TR'
      MFMGEN(3) = '9TR '
+SELF.
      CALL FMEDIA(MFMMED,MFMTYP,MFMGEN,MFMSIZ,MFMDEN,
     +            MFMMNT,MFMLAB,NMEDIA,IRC)