Add additional media definitions

CALL FMAMED (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 define additional media types.

Get, Set or Delete TMS Tags

CALL FMTAGS (GENAM,*LBANK*,*KEYS*,*CHTAG*,CHOPT,IRC*)
 

GENAM

Character variable of maximum length 255 to specify the generic name.

LBANK

Integer variable to return the address of the bank corresponding to the generic name GENAM. If LBANK is non-zero on input, the information in the bank at LBANK will be used.

KEYS

Integer array of length 10 to return the keys vector associated with the specified generic name. If LBANK is zero, KEYS may be used to select a specific copy of a file.

CHTAG

Character variable of length 255 in which the tag associated with the specified generic name is returned (option G), or which contains the tag to be set (option S). This argument is ignored in the case of option D.

CHOPT

Character variable to specify the type of operation required.

D

delete the tag

G

get and display the tag

S

set the tag

B

to select the BINARY tag (stored as CHARACTER*255)

T

to select the TEXT tag (default)

V

to select the VOLINFO tag

IRC

Integer variable in which the return code is returned.

This routine allows the TMS text or binary tag fields associated with a tape volume that corresponds to a specified generic name to be deleted, set or obtained.

Example of using the FMTAGS routine

*
*     Set tag
*
      GENAM = '//CERN/CNDIV/JAMIE/OUT'
      LG    = LENOCC(GENAM)
      CHTAGS = 'Archive tape for FATMEN source'
      CALL FMTAGS(GENAM(1:LG),LBANK,KEYS,CHTAGS,'S',IRC)
*
*     Get and print tag
*
      CALL FMTAGS(GENAM(1:LG),LBANK,KEYS,CHTAGS,'G',IRC)
      PRINT *,IRC,CHTAGS(1:LENOCC(CHTAGS))
*
*     Delete binary tag
*
      CALL FMTAGS(GENAM(1:LG),LBANK,KEYS,CHTAGS,'DB',IRC)