Building the FMCHEOPS server on a VM/CMS system

The FMCHEOPS server can be built using the following EXEC.

                           FMCHEOPS EXEC
                                  

/*       BUILD THE FMCHEOPS SERVER     */
'EXEC YPATCHY PAM1="ZEBRA CAR *" PAM2="FATMEN CARDS" ',
    'CRADLE="FATKEOPS CRADLE" ASM="FATKEOPS FORTRAN A1"'
'EXEC VFORT FATKEOPS'
'GIME TCPVMA'
'CERNLIB PACKLIB!NEW COMMTXT IBMLIB CMSLIB EDCBASE ( LINK'
'GLOBAL LOADLIB VSF2LOAD EDCLINK'
'LOAD FATKEOPS'
'GENMOD FATKEOPS'

The server should be set up as for other FATMEN servers, i.e. it should have a NAMES file defining who may issue privileged commands, as follows:

          Example of a NAMES file for the FMCHEOPS server
                                  

:nick.FATOPERATORS
               :list.fatop1 fatop2
:nick.FATOP1
               :userid.console
               :node.cernvm
:nick.FATOP2
               :userid.opsutil
               :node.cernvm
:nick.FATOWN1
               :userid.fatone
               :node.cernvm
:nick.FATOWN2
               :userid.hrrcr
               :node.cernvm
:nick.FATOWN3
               :userid.jamie
               :node.cernvm
:nick.FATOWNERS
               :list.fatown1 fatown2 fatown3

The server may be run using the following EXEC.

                    Running the FMCHEOPS server
                                  

/*                      F A T _ S T A R T                     */
Address Command
   If QCONSOLE("DISCO") then nop
                        else do
                        Say "+++ Type #CP DISC to disconnect +++"
                        Say "+++ Type #CP DISC to disconnect +++"
                        Say "+++ Type #CP DISC to disconnect +++"
                        end
'IDENTIFY (STACK'
Parse pull . . locnode .
If locnode = 'CERNVM' then do
/* Start FATCAT FORTRAN Program, which calls FATSERV EXEC */
   'GLOBALV SELECT *EXEC GET PWD'
   'GLOBALV SELECT *EXEC GET USER'
   'FATKEOPS'
   end
   else do
   Say "FMCHEOPS can only be run on CERNVM..."
   end