Z307 Return Details about CMS Virtual Machine

OBSOLETE

Please note that this routine has been obsoleted in CNL 219. Users are advised not to use it any longer and to replace it in older programs. No maintenance for it will take place and it will eventually disappear.
Suggested replacement: None

JOB$VM is a FORTRAN callable routine to return details about the caller's CMS environment.

Structure:

LOGICAL FUNCTION subprogram
User Entry Names: JOBVM

Usage:

    DIMENSION SPACE(32)
    LOGICAL BATCH,JOB$VM
    CHARACTER*8 INFO(10)
    EQUIVALENCE (INFO(1),SPACE(1))
    EQUIVALENCE (TIME,SPACE(21))
    EQUIVALENCE (TNORM,SPACE(23))
    EQUIVALENCE (MACH,SPACE(25))
 
    BATCH = JOB$VM(SPACE)

BATCH

$=\; .TRUE.$ if the job is running under SLAC Batch,
$=\; .FALSE.$ otherwise.

INFO(1)

(Batch job submitter's) user ID

INFO(2)

User's account code

INFO(3)

Distribution code

INFO(4)

Machine ID (= user ID if interactive)

INFO(5)

Job ID ( INTERACT if interactive)

INFO(6)

Virtual Machine Storage size

INFO(7)

START/RESTART for a batch job

INFO(8)

code (e.g. CERNVM)

INFO(9)

BMON ID

INFO(10)

Master BMON ID

TIME

( REAL) Time limit for job in accounting units (or 9999.0, the default if interactive).

TNORM

( REAL) Conversion factor between accounting and machine units (= accounting seconds per machine seconds).

MACH

( INTEGER) A code defining the machine.
$=\; 0:$ Virtual Machine type unknown,
$=\; 1:$ 370 Virtual Machine,
$=\; 2:$ XA Virtual Machine.

Z308