🚀 go-pugleaf

Submitted-by: sdroppers@pbs.org
Posting-number: Volume 3, Issue 105
Archive-name: startup_file_examples/part02

-+-+-+-+-+-+-+-+ START OF PART 2 -+-+-+-+-+-+-+-+
X$!==========================================================================
V====
X$!--------------------------------------------------------------------------
V----
X$! Local Subroutines declared here (to avoid problems with VMS IF-ENDIF bug)
X$!
X$! This section is skipped with the following GOTO START_WORK command
X$!--------------------------------------------------------------------------
V----
X$GOTO START_WORK
X$
X$process_a_record:
X$   !+
X$   ! Local GoSub subroutine to process a single record
X$   !-
X$   mumble "Entered GoSub Subroutine PROCESS_A_RECORD"
X$   mumble "Line ''line_count': Contents: " + data_rec
X$   !+
X$   ! Now edit the data record for parsing later
X$   !-
X$   data_rec = F$Edit( data_rec, "COLLAPSE,UPCASE,UNCOMMENT" )
X$   If( data_rec .NES. "" )
X$   Then
X$`09req_nod = F$Element( fld_nod, fs, data_rec )
X$`09req_sty`09= F$Element( fld_sty, fs, data_rec )
X$`09req_fil = F$Element( fld_fil, fs, data_rec )
X$`09mumble "Line ''line_count': Requested node: " + req_nod
X$`09mumble "Line ''line_count': Requested style: " + req_sty
X$`09mumble "Line ''line_count': Requested file: "+ req_fil
X$`09If( req_nod .EQS. this_node )
X$`09Then
X$`09    mumble "Line ''line_count': Local node matches requested node"
X$`09    If( req_sty .EQS. "PAGEFILE" )
X$`09    Then
X$`09`09qual_sty = "/PAGEFILE"
X$`09    Else
X$`09`09If( req_sty .EQS. "SWAPFILE" )
X$`09`09Then
X$`09`09    qual_sty = "/SWAPFILE"
X$`09`09Else
X$`09`09    SayErr "Line ''line_count': Requested style (" +-
X`09`09`09`09req_sty +-
X`09`09`09`09") not recognized, should be " +-
X`09`09`09`09"PAGEFILE or SWAPFILE"
X$`09`09    qual_sty = "/UNKNOWN"
X$`09`09EndIf
X$`09    EndIf
X$`09    If( qual_sty .NES. "/UNKNOWN" )
X$`09    Then
X$`09`09If( F$Search( req_fil ) .NES. "" )
X$`09`09Then
X$`09`09    cmd_act = "sysgen install " + req_fil + qual_sty
X$`09`09    If( .NOT. test_mode )
X$`09`09    Then
X$`09`09`09SayMsg "Line ''line_count': Attempting command: " +-
X`09`09`09`09    cmd_act
X$`09`09`09'cmd_act'
X$`09`09    Else
X$`09`09`09SayMsg "Line ''line_count': Testing command: " + cmd_act
X$`09`09    EndIf
X$`09`09Else
X$`09`09    SayErr "Line ''line_count': Unable to locate file " +-
X`09`09`09`09req_file
X$`09`09EndIf
X$`09    EndIf
X$`09Else
X$`09    mumble "Line ''line_count': Local node does not match requested node
V"
X$`09EndIf
X$   Else
X$`09mumble "Line ''line_count': No actions requested"
X$   EndIf
X$   mumble "Exiting GoSub Subroutine PROCESS_A_RECORD"
X$   return
X$
X$!--------------------------------------------------------------------------
V----
X$! Start procedure setup
X$!--------------------------------------------------------------------------
V----
X$   goto bad_subroutine
X$START_WORK:
X$   on error then   $ goto error_exit
X$   on control_y then`09$ goto control_y_exit
X$   save_verify     = F$Verify(0)
X$   pcdnam          = F$Parse( F$Environment( "PROCEDURE" ),,,"NAME")
X$   pcdid           = pcdnam + " `5B''F$Getjpi( 0, "PID" )'`5D"
X$   mumble_debug    := "FALSE"
X$   saymsg          := "Write sys$output ""''pcdid':   "" +"
X$   mumble          := "If mumble_debug then $ Write sys$output ""''pcdid':
V . "" +"
X$   sayerr          := "Write sys$output ""''pcdid': * "" +"
X$   mumble "Procedure Entry: ''F$Time()'"
X$!--------------------------------------------------------------------------
V----
X$! Local symbols defined here
X$!--------------------------------------------------------------------------
V----
X$   !+
X$   ! You may have to change the "THIS_NODE" symbol definition if the SYSGEN
X$   ! parameter SCSNODE has not been defined, you can hard code this value o
Vr
X$   ! pull it out of the SYS$NODE logical name if it has been defined.
X$   !-
X$   this_node`09= F$Getsyi("NODENAME" )
X$   sysgen`09= "$sys$system:sysgen"
X$
X$   !+
X$   ! Now check if the logical PBS_CMN_ACTION_MODE has been defined
X$   ! If it has been defined to "TEST" then we will skip the actual
X$   ! submission of execution of the specified command procedure
X$   !-
X$   If( F$Trnlnm( "PBS_CMN_ACTION_MODE" ) .EQS. "TEST" )
X$   Then
X$`09test_mode = "TRUE"
X$   Else
X$`09test_mode = "FALSE"
X$   EndIf
X$
X$   !+
X$   ! Build a symbol for our data file.  This must be unique to this
X$   ! process and procedure depth to avoid problems with multiple invocation
Vs
X$   ! of the command procedure.
X$   !-
X$   data_file = "data_''F$Pid(0)'_''F$Environment( "DEPTH" )'"
X$
X$   fs`09`09= "`7C"`09! Field separator character
X$   fld_nod`09= 0`09! Node specification field
X$   fld_sty`09= 1`09! Style (Page or Swap)
X$   fld_fil`09= 2`09! File Specication
X$
X$!--------------------------------------------------------------------------
V----
X$! Start Main Procedure Processing
X$!--------------------------------------------------------------------------
V----
X$   !+
X$   ! Check if parameters have been specified properly, if so then
X$   ! execute rest of primary loop
X$   !-
X$   If( P1 .EQS. "" )
X$   Then
X$`09SayErr "Parameter 1, file to process, not specified"
X$   Else
X$`09mumble "P1, File to precess: ''P1'"
X$`09file_to_open = F$Parse( p1, ".DAT;0",,,"NO_CONCEAL" )
X$`09file_to_open = F$Search( file_to_open )
X$`09If ( file_to_open .EQS. "" ) then $ goto no_file_to_open
X$`09SayMsg "Input from file: ''file_to_open' ''F$Time()'"
X$`09open -
X`09    /error = open_file_error -
X`09    /read -
X`09    /share -
X`09`09'data_file' -
X`09`09'file_to_open'
X$`09!+
X$`09! Now set up a loop to read through the data
X$`09!-
X$`09line_count = 0
X$`09read_loop:
X$`09    line_count = line_count + 1
X$`09    read -
X`09`09/end`09= eof_on_read -
X`09`09/error`09= read_error_handler -
X`09`09    'data_file' -
X`09`09    data_rec
X$`09    GoSub Process_a_Record
X$`09    goto read_loop
X$`09read_error_handler:
X$`09    saved_status    = $status
X$`09    SayErr "Line ''line_count': Error during read"
X$`09    SayErr "Error Returned: ''F$Message( saved_status )'"
X$`09    goto read_loop
X$`09read_loop_done:
X$`09eof_on_read:
X$`09close 'data_file'
X$`09final_exit = 1
X$   Else
X$`09SayErr "P1, File to process: *MISSING*"
X$`09final_exit = 44
X$   EndIf
X$  `20
X$exit:
X$   saved_status = 1
X$   goto final_exit
X$no_file_to_open:
X$   !+
X$   ! Specified file does not exist, tell user and abort
X$   !-
X$   SayErr "Cannot find file ''p1'"
X$   saved_status = 44
X$   goto final_exit
X$open_file_error:
X$   !+
X$   ! Unable to open file, post error
X$   !-
X$   saved_status = $status
X$   msg`09= F$Message( saved_status )
X$   SayErr "Unable to open file: ''file_to_open'"
X$   SayErr "Error Returned by OPEN: ''msg'"
X$   goto final_exit
X$
X$bad_subroutine:
X$   SayErr "Bad entry to procedure start, possible bad subroutine return"
X$   saved_status = 44
X$   goto final_exit
X$control_y_exit:
X$   saved_status = 44
X$   SayErr "Aborting -- Control-y entered"
X$   goto final_exit
X$error_exit:
X$   saved_status = $status
X$   SayErr "Aborting -- Unknown error encountered"
X$   goto final_exit
X$final_exit:
X$   If( F$Trnlnm( data_file ) .NES. "" )
X$   Then
X$`09close 'data_file'
X$   EndIf
X$   mumble "Procedure Exit: ''F$Time()'"
X$   If F$Type( save_verify ) .EQS. "INTEGER" then $ junk = F$Verify( save_ve
Vrify)
X$   exit saved_status
X$!==========================================================================
V====
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_MOUNT_PAGESWAP.COM
X$! *1    15-APR-1991 11:32:17 SDROPPERS "Command procedure to mount page and
V swap files"
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_MOUNT_PAGESWAP.COM
$ CALL UNPACK PBS_MOUNT_PAGESWAP.COM;3 52093711
$ create 'f'
X$!==========================================================================
V====
X$!NAME:                PBS_MOUNT_SHADOW_DISKS.COM
X$!
X$!PROJECT/FACILITY:    PBS Common Startup
X$!
X$!AUTHOR(S):`09       Seton R. Droppers / System Manager
X$!`09`09       Public Broadcasting Service / Computer Services
X$!`09`09       1320 Braddock Place
X$!`09`09       Alexandria, VA  22314-1698
X$!`09`09       (703) 739-5100
X$!
X$!CREATION DATE:       21-MAR-1991 15:28:31.95
X$!
X$!    Copyright 1991. Public Broadcasting Service. All rights reserved.
X$!
X$!    This software is furnished for the purpose of example only.  While PBS
X$!    does not object to others copying or using the software, provided the
X$!    above copyright notice is placed on any copies made, PBS disclaims any
X$!    responsibility and liability for the suitability, reliability or use o
Vf
X$!    the software for any purpose. Any user of this software will be solely
X$!    responsible for its use.
X$!
X$!
X$!FUNCTIONAL DESCRIPTION:
X$!
X$!  This command procedure takes care of mounting the shadow sets connected
X$!  to the PBS VAXcluster computers.  It is driven off of a data file.  Each
X$!  datafile entry specifies a single shadow volume to be mounted.  Each of
V the
X$!  disks is mounted with the /SYSTEM qualifier, bit *NOT* the /CLUSTER
X$!  qualifier.  This permits some disk devices to only be mounted on certain
X$!  members of the cluster, if desired.
X$!
X$!PARAMETERS:
X$!
X$!  P1 (Required)   The data file to run off of
X$!
X$!==========================================================================
V====
X$!  Subroutines are placed first in the file to avoid problems with the VMS
X$!  DCL USGOTO bug where IF-ENDIF blocks can get confused by subroutine call
Vs
X$!--------------------------------------------------------------------------
V----
X$! Call Subroutine MOUNT_DISK
X$!--------------------------------------------------------------------------
V----
X$mount_disk: SUBROUTINE
X$
X$! Internal procedure to mount an HSC shadow disk.
X$!
X$!  P1`09Shadow Set Device
X$!
X$!  P2`09Physical Device Names (Must be comma seperated list)
X$!
X$!  P3`09Volume Label
X$!
X$!  P4`09Logical name for device
X$!
X$!  P5`09Quota flag
X$!
X$! The device will be mounted with the /SYSTEM qualifier.  The quota file wi
Vll
X$! be enabled or disabled depending on the value of P5 (quota flag).
X$!--------------------------------------------------------------------------
V----
X$
X$   On warning then $ goto mount_disk_error
X$  `20
X$   param_cntr`09= 1
X$   params_ok`09= "TRUE"
X$   param_check_loop:
X$`09If( p'param_cntr' .EQS. "" )
X$`09Then
X$`09    SayErr F$Fao( msg_misparam, "MOUNT_DISK", param_cntr )
X$`09    params_ok = "FALSE"
X$`09EndIf
X$`09param_cntr  = param_cntr + 1
X$`09If( param_cntr .LE. mount_disk_param_count ) then -
X`09    goto param_check_loop
X$   param_check_loop_end:
X$
X$   If( params_ok )
X$   Then
X$`09phys_dev_1  = F$Element( 0, ",", P2 )
X$`09Phys_dev_2  = F$Element( 1, ",", P2 )
X$`09If( F$Edit( p5, "UPCASE,COLLAPSE") .EQS. "QUOTA" )
X$`09Then
X$`09    qual_quota`09:= "/quota"
X$`09Else
X$`09    qual_quota`09:= "/NOquota"
X$`09EndIf
X$
X$`09on error then`09$ goto mount_disk_no_mount  !Trap errors and exit proper
Vly
X$`09call devwait "''phys_dev_1'"
X$`09If( (phys_dev_2 .NES. "") .AND. (phys_dev_2 .NES. ",") )
X$`09Then
X$`09    call devwait "''phys_dev_2'"
X$`09EndIf
X$`09mount -
X`09    /system -
X`09    'qual_quota' -
X`09    /comment`09= "Automatic mount on node ''thisnode'" -
X`09`09'p1' /shadow=( 'p2' ) -
X`09`09'p3' -
X`09`09'p4'
X$`09on warning then $ goto mount_disk_error
X$`09mount_disk_ok == "TRUE"
X$   Else
X$`09mount_disk_ok == "FALSE"
X$   EndIf
X$
X$   exit 1
X$
X$mount_disk_no_mount:
X$   ! Trap problems with mount and use to log to user
X$
X$   SayErr "Mount for ''P1' aborted, errors during mount process"
X$   mount_disk_ok == "FALSE"
X$   exit 1
X$
X$MOUNT_DISK_ERROR:
X$   ! Error handler for any errors while attempting to mount disks
X$   SayErr "Unknown error encountered in MOUNT_DISK internal subroutine"
X$   exit 44
X$  `20
X$EndSubroutine
X$
X$!--------------------------------------------------------------------------
V----
X$! Call Subrouting DEVWAIT
X$!--------------------------------------------------------------------------
V----
X$devwait: SUBROUTINE`09! Subroutine to wait for a device
X$
X$! Procedure to wait for the CONFIGURE process to configure an HSC device
X$!
X$! The procedure will loop, checking for the existance of the desired device
V.
X$! This looping is required since the CONFIGURE process may not have configu
Vred
X$! the device by the time this procedure is running.
X$!
X$! Params:
X$!
X$!     p1 - Device to wait for
X$!
X$! Recommended use:
X$!
X$!  This procedure is an internal routine
X$!
X$!`09$ call devwait $1$DUA0:
X$!--------------------------------------------------------------------------
V----
X$   wait_count`09= 0
X$devwait_again:
X$   if f$getdvi("''p1'","EXISTS") then goto devwait_exists
X$   wait_count = wait_count + 1
X$   if wait_count .gt. 10 then goto devwait_give_up
X$   SayMsg F$Fao( msg_waiting, p1 )
X$   wait 00:00:10.00     ! Wait 10 seconds
X$   goto devwait_again
X$devwait_give_up:
X$   SayErr F$Fao( msg_waitexpire, p1 )
X$   devwait_saved_status = 44
X$   goto devwait_exit
X$
X$devwait_exists:
X$   devwait_saved_status = 1
X$   goto devwait_exit
X$  `20
X$devwait_exit:
X$   exit devwait_saved_status
X$   endsubroutine
X$
X$!--------------------------------------------------------------------------
V----
X$   on warning then   $ goto error_exit
X$   save_verify     = F$Verify(0)
X$   mumble_debug    := "FALSE"
X$   pcdnam`09= F$Parse( F$Environment( "PROCEDURE" ),,,"NAME" )
X$   pcdid`09= pcdnam + " `5B''F$Getjpi( 0, "PID" )'`5D"
X$   saymsg          := "Write sys$output ""''pcdid':   "" +"
X$   mumble          := "If mumble_debug then $ Write sys$output ""''pcdid':
V . "" +"
X$   sayerr          := "Write sys$output ""''pcdid': * "" +"
X$
X$!--------------------------------------------------------------------------
V----
X$! Set up symbols for this particular procedure
X$!--------------------------------------------------------------------------
V----
X$   mount_disk_param_count  = 5`09! Number of parameters for MOUNT_DISK
X$   devwait_param_count`09    = 1`09! Number of parameters for DEVWAIT
X$  `20
X$   !+
X$   ! Set up field separator and field places
X$   !-
X$   fs`09`09= "`7C"`09    !Field Separator
X$
X$   !+
X$   ! The following two symbols (field_list, field_dsc) define the order of
X$   ! fields within a data entry (line).  The order of the descriptions
X$   ! must match the order of the fields.  These will be used to
X$   ! to build symbols, one symbol for each field.
X$   !-
X$   field_list`09= "node" + -
X`09`09    fs + "shad" + -
X`09`09    fs + "phys" + -
X`09`09    fs + "labe" + -
X`09`09    fs + "logn" + -
X`09`09    fs + "quot"
X$   field_dsc`09= "node list" + -
X`09`09    fs + "shadow device name" + -
X`09`09    fs + "physical device list" + -
X`09`09    fs + "volume label" + -
X`09`09    fs + "logical name specification" + -
X`09`09    fs + "quota specification"
X$   !+
X$   ! Define message symbols here.  These are used for message output
X$   !-
X$   msg_enter`09    = "Entering Procedure at !%D"
X$   msg_exit`09    = "Exiting Procedure at !%D"
X$   msg_fieldsep    = "Field separator is ""!AS"""
X$   msg_list`09    = "List ""!AS"" contains ""!AS"""
X$   msg_datafile    = "Using data from !AS"
X$   msg_nodataspec  = "P1, data file to process, not specified"
X$   msg_nodatafile  = "Specified datafile, !AS, not found"
X$   msg_openfailed  = "Attempt to open !AS failed,!/!AS"
X$   msg_dataread    = "Line !UL: Data: !AS"
X$   msg_skipcomment = "Line !UL: Comment, skipped"
X$   msg_subroutine  = "Entered internal subroutine !AS"
X$   msg_wilmou`09    = "Line !UL: Attempting to mount device !AS (!AS)"
X$   msg_linign`09    = "Line !UL: Error decodeing data, line ignored"
X$   msg_waiting`09    = "Waiting for device !AS to configure"
X$   msg_waitexpire  = "Wait for device !AS expired"
X$   msg_thisnode    = "Line !UL: (!AS) will be executed on node !AS"
X$   msg_notthisnode = "Line !UL: (!AS) will not be executed on node !AS"
X$   msg_misparam    = "Subroutine !AS missing parameter !UL, must be specifi
Ved"
X$
X$   !++
X$   ! Perform routine startup functions, such as getting node names and
X$   ! checking symbols.
X$   !--
X$   SayMsg F$Fao( msg_enter, 0 )
X$   If ( "''PBS_COMMON_DEBUG'" )
X$   Then
X$`09mumble_debug`09= "TRUE"
X$   EndIf
X$
X$   thisnode`09= F$Getsyi( "NODENAME" )
X$
X$   !+
X$   ! Now list any starting variables (during DEBUG mode)
X$   !-
X$   mumble F$Fao( msg_fieldsep, fs )
X$   mumble F$Fao( msg_list, "Field symbol names", field_list )
X$   mumble F$Fao( msg_list, "Field Descriptions", field_dsc )
X$
X$   !+
X$   ! Check if P1 (datafile) is included in invocation
X$   !-
X$   If ( P1 .NES. "" )
X$   Then
X$`09P1  = F$Parse( p1, ".DAT;0" )
X$`09file_spec  = F$Search( P1 )
X$`09If( file_spec .NES. "" )
X$`09Then
X$`09    SayMsg`09F$Fao( msg_datafile, file_spec )
X$
X$`09    !+
X$`09    ! We have the parameter, open the data file and check the contents.
X$`09    ! File missing errors and the like will be take care of via error
X$`09    ! handlers.
X$`09    !-
X$`09    open -
X`09`09/error  = open_error -
X`09`09/read -
X`09`09/share  = read -
X`09`09    data_file -
X`09`09    'file_spec'
X$`09    !+
X$`09    ! Now loop through the data file, exit loop on either EOF or
X$`09    ! error during read (two seperate error handlers).
X$`09    !-
X$`09    line_count  = 0
X$`09    read_loop:
X$`09`09read -
X`09`09    /end`09= read_loop_end -
X`09`09    /error`09= read_error -
X`09`09`09data_file -
X`09`09`09data_entry
X`09`09line_count`09= line_count + 1
X$`09`09mumble F$Fao( msg_dataread, line_count, data_entry )
X$`09`09data_entry`09= F$Edit( data_entry, "UPCASE,COLLAPSE,UNCOMMENT" )
X$`09`09If( F$Length( data_entry ) .LE. 0 )
X$`09`09Then
X$`09`09    mumble F$Fao( msg_skipcomment, line_count )
X$`09`09Else
X$`09`09    @pbs_cmn_bin:pbs_decode_fields -
X`09`09`09"''data_entry'" -
X`09`09`09"''fs'" -
X`09`09`09pbscmn -
X`09`09`09"''field_list'" -
X`09`09`09"''field_dsc'"
X$`09`09    If( pbscmn_ok )
X$`09`09    Then
X$`09`09`09If F$Locate( thisnode, pbscmn_node ) .LT. -
X`09`09`09    F$Length( pbscmn_node  )
X$`09`09`09Then
X$`09`09`09    SayMsg F$Fao( msg_wilmou, line_count, pbscmn_shad, -
X`09`09`09`09`09    pbscmn_phys )
X$`09`09`09    call mount_disk 'pbscmn_shad' 'pbscmn_phys' -
X`09`09`09`09`09`09'pbscmn_labe' 'pbscmn_logn' -
X`09`09`09`09`09`09'pbscmn_quot'
X$`09`09`09Else
X$`09`09`09    mumble F$Fao( msg_notthisnode, line_count, -
X`09`09`09`09    data_entry, thisnode )
X$`09`09`09EndIf
X$`09`09    Else
X$`09`09`09Sayerr F$Fao( msg_linign, line_count )
X$`09`09    EndIf
X$`09`09EndIf
X$`09`09goto read_loop
X$`09    read_loop_end:
X$`09    close data_file
X$`09    exit_status = 1
X$`09Else
X$`09    SayErr F$Fao( msg_nodatafile, P1 )
X$`09    exit_status = 44
X$`09EndIf
X$   Else
X$`09Sayerr F$Fao( msg_nodataspec )
X$`09exit_status = 44
X$   EndIf
X$
X$   goto final_exit
X$
X$!--------------------------------------------------------------------------
V----
X$! Final Exit Handler
X$!--------------------------------------------------------------------------
V----
X$final_exit:
X$   !+
X$   ! This expectes the symbol EXIT_STATUS to be set, and will exit with
X$   ! that status
X$   !-
X$   If ( F$Trnlnm( "data_file" ) .NES. "" )
X$   Then
X$`09close data_file
X$   EndIf
X$   SayMsg F$Fao( msg_exit, 0 )
X$   If F$Type( save_verify ) .EQS. "INTEGER" then $ junk = F$Verify( save_ve
Vrify)
X$   exit exit_status
X$
X$!--------------------------------------------------------------------------
V----
X$! Error Handler: OPEN_ERROR
X$!--------------------------------------------------------------------------
V----
X$open_error:
X$   saved_status    = $status
X$   open_message    = F$Message( saved_status )
X$   open_message`5B0,1`5D`09:= "_"
X$   Sayerr F$Fao( msg_openfailed, P1, open_message )
X$   exit_status    = 44
X$   goto final_exit
X$
X$!--------------------------------------------------------------------------
V----
X$! Error Handler: ERROR_EXIT
X$!--------------------------------------------------------------------------
V----
X$error_exit:
X$   saved_status = $status
X$   unkno_message    = F$Message( saved_status )
X$   Sayerr "Unknown error encountered, aborting: ''unkno_message'"
X$   exit_status = 44
X$   goto final_exit
X$
X$!==========================================================================
V====
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_MOUNT_SHADOW_DISKS.COM
X$! *1     1-APR-1991 15:42:53 SDROPPERS "Command procedure to mount shadow d
Visks on PBS VAXcluster computers"
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_MOUNT_SHADOW_DISKS.COM
$ CALL UNPACK PBS_MOUNT_SHADOW_DISKS.COM;4 2100108225
$ create 'f'
X! DEC/CMS REPLACEMENT HISTORY, Element PBS_PAGESWAP_FILES.DAT
X! *1    15-APR-1991 11:35:28 SDROPPERS "Page and swap files to be mounted at
V PBS"
X! DEC/CMS REPLACEMENT HISTORY, Element PBS_PAGESWAP_FILES.DAT
Xbert`09`7Cpagefile`09`7Cpageswap01:`5Bpageswap`5Dpagefile01_bert.sys
Xbert`09`7Cswapfile`09`7Cpageswap01:`5Bpageswap`5Dswapfile01_bert.sys
X
Xbigbrd`09`7Cpagefile`09`7Cpageswap01:`5Bpageswap`5Dpagefile01_bigbrd.sys
Xbigbrd`09`7Cswapfile`09`7Cpageswap01:`5Bpageswap`5Dswapfile01_bigbrd.sys
X
Xcookie`09`7Cpagefile`09`7Cpageswap01:`5Bpageswap`5Dpagefile01_cookie.sys
Xcookie`09`7Cpagefile`09`7Cpageswap02:`5Bpageswap`5Dpagefile02_cookie.sys
Xcookie`09`7Cswapfile`09`7Cpageswap01:`5Bpageswap`5Dswapfile_01_cookie.sys
X
Xernie`09`7Cpagefile`09`7Cpageswap02:`5Bpageswap`5Dpagefile01_ernie.sys
Xernie`09`7Cswapfile`09`7Cpageswap02:`5Bpageswap`5Dswapfile01_ernie.sys
X
Xsnuffy`09`7Cpagefile`09`7Cpageswap02:`5Bpageswap`5Dpagefile01_snuffy.sys
Xsnuffy`09`7Cswapfile`09`7Cpageswap02:`5Bpageswap`5Dswapfile01_snuffy.sys
$ CALL UNPACK PBS_PAGESWAP_FILES.DAT;2 354494987
$ create 'f'
X! SHADOW_DISKS.DAT
X!
X!`09This file is used to mount all the different shadow disks on the system.
X!`09The file consists of a number of entries, one entry per line.
X!
X!RECORD FORMAT:
X!
X!`09Each record (entry) consists of six fields, each field seperated by a
X!`09vertical bar ("`7C") character:
X!
X!`09`09nodelist`7Cshadev`7Cphysdevs`7Cvollab`7Clognam`7Cquota
X!
X!`09nodelist`09Node List -- Lists the nodes to mount the device on
X!`09shadev`09`09Shadow Device -- Device name for shadow set
X!`09physdevs`09Physical Devices -- Comma seperated list of physical
X!`09`09`09devices
X!`09vollab`09`09Volume label of volume to be mounted
X!`09lognam`09`09Logical Name for mounted device
X!`09quota`09`09Quota qualifier (NOquota to disable quotas, Quota to
X!`09`09`09enable)
X!
X!`09Comments are delimited by the "!" character, spaces and tabs
X!`09are ignored.
X!
X!EXAMPLE:
X!`09bert,bigbrd`7C$1$dqs898`7C$1$dqa9,$1$dqa10:`7Cbadlabel`7Cexample_log`7CN
VOquota
X!
X!`09This record would cause the shadow set $1$DQS898: to be created from
X!`09physical devices $1$DQA9: and $1$DQA10:.  The volume label would be
X!`09"badlabel", the mount logical would be "example_log", and the disk
X!`09would be mounted without quotas being enabled.
X!
X!===========================================================================
V====
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus0:`09`7C$1$dua0:,$1$dua5:`09`7Cva
Vxvms_a`09`7Cvaxvms_a`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$djs11:`09`7C$1$dja11:`09`09`7Cvaxvms
V_bert`09`7Cvaxvms_bert`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus42:`09`7C$1$dua44:,$1$dua42:`09`7
VCpbssys_a`09`7Cpbssys_a`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus1:`09`7C$1$dua3: `09`09`7Cpageswa
Vp01`09`7Cpageswap01`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus2:`09`7C$1$dua2:,$1$dua4:`09`7Cpb
Vssys1`09`7Cpbssys1`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus3:`09`7C$1$dua1:`09`09`7Cpageswap
V02`09`7Cpageswap02`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus6:`09`7C$1$dua15:,$1$dua14:`09`7C
Vpublic01`09`7Cpublic1$disk`09`7CQuota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus7:`09`7C$1$dua7:`09`09`7Cpublic02
V`09`7Cpublic2$disk`09`7CQuota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus8:`09`7C$1$dua8:`09`09`7Cpublic03
V`09`7Cpublic3$disk`09`7CQuota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus9:`09`7C$1$dua9:`09`09`7Cpublic04
V`09`7Cpublic4$disk`09`7CQuota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus21:`09`7C$1$dua16:`09`09`7CACCNT`
V09`09`7Caccting$disk`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus31:`09`7C$1$dua43:`09`09`7Cappl1`
V09`09`7Cpbs$appl1`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus32:`09`7C$1$dua13:`09`09`7Cappl2`
V09`09`7Cpbs$appl2`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$dus33:`09`7C$1$dua6:`09`09`7Cappl3`0
V9`09`7Cpbs$appl3`09`7CNOquota
Xbert,bigbrd,cookie,snuffy,ernie`09`7C$1$djs91:`09`7C$1$dja10:,$1$dja12:`09`0
V9`7Cingres1`09`7Cingres1`09`7CNOquota
X!===========================================================================
V====
X! DEC/CMS REPLACEMENT HISTORY, Element PBS_SHADOW_DISKS.DAT
X! *38   29-MAY-1992 08:37:20 SDROPPERS "Moved some shadow sets around"
X! *37   28-MAY-1992 20:27:18 SYSTEM "Added $1$dua14 to $1$dus6"
X! *36   14-MAY-1992 09:41:45 JMILLER "addded $1$dja12 to $1$djs91"
X! *35    8-MAY-1992 20:05:38 SDROPPERS "Not yet ready to add $1$DJA12, disk
V will not mount correctly"
X! *34    8-MAY-1992 19:47:45 SDROPPERS "Added second member to $1$DJS91"
X! *33    8-MAY-1992 14:24:56 SDROPPERS "Fixed up to reflect current shadow s
Vet configuration"
X! *32    8-MAY-1992 09:25:38 SDROPPERS "Moved Ingres to $1$DJA12:"
X! *31   22-APR-1992 16:48:47 JMILLER "moved $1$dua1 with $1$dua0 after HDA w
Vere replaced"
X! *30   22-APR-1992 15:49:55 JMILLER "moved $1$dua3 with $1$dua1 so HDA coul
Vd be replaced "
X! *29   22-APR-1992 15:12:17 JMILLER "moved $1$dua4 with $1$dua3 so HDA coul
Vd be replaced"
X! *28    7-APR-1992 21:01:42 JMILLER "defrag $1$dus21 - switched $1$dua14 an
Vd $1$dua16"
X! *27    5-MAR-1992 13:49:15 SDROPPERS "$1$DJA12 does not appear to be worki
Vng correctly, took it out of DJS90"
X! *26   28-FEB-1992 18:21:27 JMILLER "changed things around for defrag"
X! *25    7-JAN-1992 08:15:35 SDROPPERS "Reconfigured disks, currently DUA15
V is not being used"
X! *24   28-NOV-1991 01:23:08 JMILLER "fix"
X! *23   27-NOV-1991 23:47:01 JMILLER "switched $1$dua9 and $1$dua16"
X! *22   27-NOV-1991 20:54:18 JMILLER "switched $1$dua15 and $1$dua16"
X! *21   21-NOV-1991 22:52:24 JMILLER "switched $1$dua42 and $1$dua44"
X! *20   21-NOV-1991 20:09:51 JMILLER "defrag"
X! *19   21-NOV-1991 20:05:31 JMILLER "changed $1$dua44 with $1$dua43"
X! *18   14-NOV-1991 22:04:12 JMILLER "defrag"
X! *17   14-NOV-1991 21:57:12 JMILLER "changing file"
X! *16   14-NOV-1991 21:50:07 JMILLER "changed file for defrag"
X! *15   14-NOV-1991 20:24:37 JMILLER "reconfigured after optimization"
X! *14    8-NOV-1991 22:24:56 JMILLER "reconfogured after optimization"
X! *13    8-NOV-1991 19:42:27 JMILLER "reconfigured after optimization of acc
Vt disk"
X! *12    1-NOV-1991 03:49:11 SDROPPERS "Fixed problem with DUS6 mount"
X! *11    1-NOV-1991 03:42:34 SDROPPERS "Reconfigured after optimize of PUBLI
V1$DISK and PUBLI2$DISK"
X! *10   20-SEP-1991 12:40:44 SDROPPERS "Up to date and ready to go"
X! *9     5-SEP-1991 09:17:51 SDROPPERS "Removed DJA12 from lists"
X! *8    21-JUL-1991 16:54:40 JMILLER "moved dus6 to dua14, dus7 to dua8, dus
V8 to dua16"
X! *7    20-JUL-1991 06:14:13 JMILLER "made sure dua16 was mounted correctly"
X! *6    20-JUL-1991 06:11:59 JMILLER "made sure dua8 was mounted correctly"
X! *5    20-JUL-1991 06:05:31 JMILLER "made $1$dua14 member of $1$dus6 "
X! *4    21-MAY-1991 08:26:04 SDROPPERS "Moved DUA9 to be part of DUS9"
X! *3    30-APR-1991 21:43:32 SDROPPERS "Moved dua9 to dus8:"
X! *2    26-APR-1991 10:06:54 SDROPPERS "Reconfigured DJS11 and DJS90"
X! *1    15-APR-1991 11:36:34 SDROPPERS "Shadow disks to be mounted at PBS"
X! DEC/CMS REPLACEMENT HISTORY, Element PBS_SHADOW_DISKS.DAT
$ CALL UNPACK PBS_SHADOW_DISKS.DAT;3 1983667392
$ create 'f'
X$!==========================================================================
V====
X$!NAME:                PBS_STARTUP_DRIVER_LPBEGIN.COM
X$!
X$!PROJECT/FACILITY:    PBS Common Startup
X$!
X$!AUTHOR(S):`09       Seton R. Droppers / System Manager
X$!`09`09       Public Broadcasting Service / Computer Services
X$!`09`09       1320 Braddock Place
X$!`09`09       Alexandria, VA  22314-1698
X$!`09`09       (703) 739-5100
X$!
X$!CREATION DATE:       10-SEP-1991 10:08:56.49
X$!
X$!    Copyright 1992. Public Broadcasting Service. All rights reserved.
X$!
X$!    This software is furnished for the purpose of example only.  While PBS
X$!    does not object to others copying or using the software, provided the
X$!    above copyright notice is placed on any copies made, PBS disclaims any
X$!    responsibility and liability for the suitability, reliability or use o
Vf
X$!    the software for any purpose. Any user of this software will be solely
X$!    responsible for its use.
X$!
X$!
X$!FUNCTIONAL DESCRIPTION:
X$!
X$!  This command procedure conditionaly executes the procedure
X$!  PBS_CMN_BIN:PBS_EXECUTE_PROCEDURE.COM, depending on the value of P1.  Th
Ve
X$!  system startup procedure places the contents of the SYSGEN parameter int
Vo P1
X$!  as this procedure is called.  For normal startups this is NULL.
X$!
X$!PARAMETERS:
X$!
X$!  P1`09Startup parameter P1 (passed by the SYSMAN procedures).  If it is n
Vull
X$!`09then this procedure excutes the PBS_EXECUTE_PROCEDURE.COM procedure
X$!`09on the file PBS_CMN_DATA:PBS_LPBEGIN.DAT
X$!
X$!==========================================================================
V====
X$   on error then   $ goto error_exit
X$   on control_y then`09$ goto control_y_exit
X$   save_verify     = F$Verify(0)
X$   pcdnam          = F$Parse( F$Environment( "PROCEDURE" ),,,"NAME")
X$   pcdid           = pcdnam + " `5B''F$Getjpi( 0, "PID" )'`5D"
X$   mumble_debug    := "FALSE"
X$   saymsg          := "Write sys$output ""''pcdid':   "" +"
X$   mumble          := "If mumble_debug then $ Write sys$output ""''pcdid':
V . "" +"
X$   sayerr          := "Write sys$output ""''pcdid': * "" +"
X$   SayMsg "Procedure Entry: ''F$Time()'"
X$   If( P1 .EQS. "FULL" )
X$   Then
X$`09SayMsg "Executing PBS_EXECUTE_PROCEDURE with file PBS_LPBEGIN.DAT"
X$`09@pbs_cmn_bin:pbs_execute_procedure pbs_cmn_data:pbs_lpbegin.dat
X$   Else
X$`09SayMsg "Not executeing PBS_EXECUTE_PROCEDURE"
X$`09SayMsg "Value of P1 is ''P1'"
X$   EndIf
X$exit:
X$   saved_status = 1
X$   goto final_exit
X$control_y_exit:
X$   saved_status = 44
X$   SayErr "Aborting -- Control-y entered"
X$   goto final_exit
X$error_exit:
X$   saved_status = $status
X$   SayErr "Aborting -- Unknown error encountered"
X$   goto final_exit
X$final_exit:
X$   SayMsg "Procedure Exit: ''F$Time()'"
X$   If F$Type( save_verify ) .EQS. "INTEGER" then $ junk = F$Verify( save_ve
Vrify)
X$   exit saved_status
X$!==========================================================================
V====
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER.COM
X$! *1    10-SEP-1991 10:30:16 SDROPPERS "Command procedure bridge between DE
VC sysman and PBS common areas"
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER.COM
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER_LPBEGIN.COM
X$! *2    11-SEP-1991 10:22:26 SDROPPERS "Changed to look for FULL in P1"
X$! *1    10-SEP-1991 10:45:50 SDROPPERS "Bridge procedure between SYSMAN and
V PBS common environment"
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER_LPBEGIN.COM
$ CALL UNPACK PBS_STARTUP_DRIVER_LPBEGIN.COM;2 1698816227
$ create 'f'
X$!==========================================================================
V====
X$!NAME:                PBS_STARTUP_DRIVER_LPMAIN.COM
X$!
X$!PROJECT/FACILITY:    PBS Common Startup
X$!
X$!AUTHOR(S):`09       Seton R. Droppers / System Manager
X$!`09`09       Public Broadcasting Service / Computer Services
X$!`09`09       1320 Braddock Place
X$!`09`09       Alexandria, VA  22314-1698
X$!`09`09       (703) 739-5100
X$!
X$!CREATION DATE:       10-SEP-1991 10:08:56.49
X$!
X$!    Copyright 1992. Public Broadcasting Service. All rights reserved.
X$!
X$!    This software is furnished for the purpose of example only.  While PBS
X$!    does not object to others copying or using the software, provided the
X$!    above copyright notice is placed on any copies made, PBS disclaims any
X$!    responsibility and liability for the suitability, reliability or use o
Vf
X$!    the software for any purpose. Any user of this software will be solely
X$!    responsible for its use.
X$!
X$!
X$!FUNCTIONAL DESCRIPTION:
X$!
X$!  This command procedure conditionaly executes the procedure
X$!  PBS_CMN_BIN:PBS_EXECUTE_PROCEDURE.COM, depending on the value of P1.  Th
Ve
X$!  system startup procedure places the contents of the SYSGEN parameter int
Vo P1
X$!  as this procedure is called.  For normal startups this is NULL.
X$!
X$!PARAMETERS:
X$!
X$!  P1`09Startup parameter P1 (passed by the SYSMAN procedures).  If it is n
Vull
X$!`09then this procedure excutes the PBS_EXECUTE_PROCEDURE.COM procedure
X$!`09on the file PBS_CMN_DATA:PBS_LPMAIN.DAT
X$!
X$!==========================================================================
V====
X$   on error then   $ goto error_exit
X$   on control_y then`09$ goto control_y_exit
X$   save_verify     = F$Verify(0)
X$   pcdnam          = F$Parse( F$Environment( "PROCEDURE" ),,,"NAME")
X$   pcdid           = pcdnam + " `5B''F$Getjpi( 0, "PID" )'`5D"
X$   mumble_debug    := "FALSE"
X$   saymsg          := "Write sys$output ""''pcdid':   "" +"
X$   mumble          := "If mumble_debug then $ Write sys$output ""''pcdid':
V . "" +"
X$   sayerr          := "Write sys$output ""''pcdid': * "" +"
X$   SayMsg "Procedure Entry: ''F$Time()'"
X$   If( P1 .EQS. "FULL" )
X$   Then
X$`09SayMsg "Executing PBS_EXECUTE_PROCEDURE with file PBS_LPMAIN.DAT"
X$`09@pbs_cmn_bin:pbs_execute_procedure pbs_cmn_data:pbs_lpmain.dat
X$   Else
X$`09SayMsg "Not executeing PBS_EXECUTE_PROCEDURE"
X$`09SayMsg "Value of P1 is ''P1'"
X$   EndIf
X$exit:
X$   saved_status = 1
X$   goto final_exit
X$control_y_exit:
X$   saved_status = 44
X$   SayErr "Aborting -- Control-y entered"
X$   goto final_exit
X$error_exit:
X$   saved_status = $status
X$   SayErr "Aborting -- Unknown error encountered"
X$   goto final_exit
X$final_exit:
X$   SayMsg "Procedure Exit: ''F$Time()'"
X$   If F$Type( save_verify ) .EQS. "INTEGER" then $ junk = F$Verify( save_ve
Vrify)
X$   exit saved_status
X$!==========================================================================
V====
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER.COM
X$! *1    10-SEP-1991 10:30:16 SDROPPERS "Command procedure bridge between DE
VC sysman and PBS common areas"
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER.COM
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER_LPMAIN.COM
X$! *2    11-SEP-1991 10:22:34 SDROPPERS "Changed to look for FULL in P1"
X$! *1    10-SEP-1991 10:45:54 SDROPPERS "Bridge procedure between SYSMAN and
V PBS common environment"
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER_LPMAIN.COM
$ CALL UNPACK PBS_STARTUP_DRIVER_LPMAIN.COM;2 1360806923
$ create 'f'
X$!==========================================================================
V====
X$!NAME:                PBS_STARTUP_DRIVER_SYSTARTUP.COM
X$!
X$!PROJECT/FACILITY:    PBS Common Startup
X$!
X$!AUTHOR(S):`09       Seton R. Droppers / System Manager
X$!`09`09       Public Broadcasting Service / Computer Services
X$!`09`09       1320 Braddock Place
X$!`09`09       Alexandria, VA  22314-1698
X$!`09`09       (703) 739-5100
X$!
X$!CREATION DATE:       10-SEP-1991 10:08:56.49
X$!
X$!    Copyright 1992. Public Broadcasting Service. All rights reserved.
X$!
X$!    This software is furnished for the purpose of example only.  While PBS
X$!    does not object to others copying or using the software, provided the
X$!    above copyright notice is placed on any copies made, PBS disclaims any
X$!    responsibility and liability for the suitability, reliability or use o
Vf
X$!    the software for any purpose. Any user of this software will be solely
X$!    responsible for its use.
X$!
X$!
X$!FUNCTIONAL DESCRIPTION:
X$!
X$!  This command procedure conditionaly executes the procedure
X$!  PBS_CMN_BIN:PBS_EXECUTE_PROCEDURE.COM, depending on the value of P1.  Th
Ve
X$!  system startup procedure places the contents of the SYSGEN parameter int
Vo P1
X$!  as this procedure is called.  For normal startups this is NULL.
X$!
X$!PARAMETERS:
X$!
X$!  None.
X$!
X$!==========================================================================
V====
X$   on error then   $ goto error_exit
X$   on control_y then`09$ goto control_y_exit
X$   save_verify     = F$Verify(0)
X$   pcdnam          = F$Parse( F$Environment( "PROCEDURE" ),,,"NAME")
X$   pcdid           = pcdnam + " `5B''F$Getjpi( 0, "PID" )'`5D"
X$   mumble_debug    := "FALSE"
X$   saymsg          := "Write sys$output ""''pcdid':   "" +"
X$   mumble          := "If mumble_debug then $ Write sys$output ""''pcdid':
V . "" +"
X$   sayerr          := "Write sys$output ""''pcdid': * "" +"
X$   SayMsg "Procedure Entry: ''F$Time()'"
X$   SayMsg "Executing PBS_EXECUTE_PROCEDURE with file PBS_SYSTARTUP.DAT"
X$   @pbs_cmn_bin:pbs_execute_procedure pbs_cmn_data:pbs_systartup.dat
X$exit:
X$   saved_status = 1
X$   goto final_exit
X$control_y_exit:
X$   saved_status = 44
X$   SayErr "Aborting -- Control-y entered"
X$   goto final_exit
X$error_exit:
X$   saved_status = $status
X$   SayErr "Aborting -- Unknown error encountered"
X$   goto final_exit
X$final_exit:
X$   SayMsg "Procedure Exit: ''F$Time()'"
X$   If F$Type( save_verify ) .EQS. "INTEGER" then $ junk = F$Verify( save_ve
Vrify)
X$   exit saved_status
X$!==========================================================================
V====
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER_SYSTARTUP.COM
X$! *1     9-JAN-1992 16:13:23 SDROPPERS "Command procedure to drive procedur
Ve invocations during SYSTARTUP_V5"
X$! DEC/CMS REPLACEMENT HISTORY, Element PBS_STARTUP_DRIVER_SYSTARTUP.COM
$ CALL UNPACK PBS_STARTUP_DRIVER_SYSTARTUP.COM;2 1277181367
$ create 'f'
X! This file finishes setting up the PBS common environment and takes care of
X! mounting disks, setting up device logical names, and setting up the page a
Vnd
X! swap files.
X!
X*`09`09`09`09`7Cdirect`09`7Cpbs_cmn_bin:pbs_mount_shadow_disks`09`09`7Cpbs_c
Vmn_data:pbs_shadow_disks
X*`09`09`09`09`7Cdirect`09`7Cpbs_cmn_bin:pbs_mount_pageswap`09`09`09`7Cpbs_cm
Vn_data:pbs_pageswap_files
X*`09`09`09`09`7Cdirect`09`7Cpbs_cmn_bin:pbs_define_logical_names`09`09`7Cpbs
V_cmn_data:pbs_base_devices
Xbigbrd,cookie,ernie,snuffy`09`7Cdirect`09`7Cpbs_cmn_bin:pbs_define_logical_n
Vames`09`09`7Cpbs_cmn_data:pbs_a1_devices
X! DEC/CMS REPLACEMENT HISTORY, Element PBS_SYPAGSWPFILES_EXTENDED.DAT
X! *2    17-APR-1991 16:46:59 SDROPPERS "Added explicit directory locations"
X! *1    16-APR-1991 11:56:45 SDROPPERS "Specifications for extending SYPAGSW
VPFILES.COM"
X! DEC/CMS REPLACEMENT HISTORY, Element PBS_SYPAGSWPFILES_EXTENDED.DAT
$ CALL UNPACK PBS_SYPAGSWPFILES_EXTENDED.DAT;3 991239883
$ create 'f'
X$ SET NOON
X$ !
X$ !--------------------------------------------
X$ ! Install site-specific page and swap files !
X$ !--------------------------------------------
X$ !
X$ ! Customers may modify this skeletal file in any way
X$ ! necessary to install site-specific page and swap files.
X$ !
X$ ! This file is searched for and executed, if found, under ALL STARTUP
X$ ! conditions.  This includes a "minimum" boot.
X$ !
X$ ! If SYS$SPECIFIC:`5BSYSEXE`5DPAGEFILE.SYS exists, or if the executing nod
Ve is
X$ ! part of a Local Area VAXcluster, this command file is required to
X$ ! do nothing. Otherwise, this procedure must successfully install at
X$ ! least one page file before exiting.
X$ !
X$ ! Some HSC and served disks may not yet be available upon entry to this
X$ ! procedure. However, the CONFIGURE process is running so that in the abse
Vnce
X$ ! of any hardware errors, all disks will eventually appear. F$GETDVI and
X$ ! the WAIT command can be used to periodically "poll" for device availabil
Vity
X$ ! before issuing MOUNT commands.
X$ !
X$ ! Note that the name SWAPFILE1.SYS is reserved for use on
X$ ! tailored VMS systems.
X$ !
X$   !+
X$   ! Here are the PBS extensions to this procedure.  These two calls first
X$   ! set up the PBS common environment and then use that environment to
X$   ! execute the remainder of the startup functions that must be performed
X$   ! at this point.  These include setting up the hardware environment and
X$   ! mounting the page and swap files.
X$   !-
X$   @sys$manager:pbs_create_common_environment.com
X$   @pbs_cmn_bin:pbs_execute_procedure pbs_sypagswpfiles_extended
X$ EXIT
X$! DEC/CMS REPLACEMENT HISTORY, Element SYPAGSWPFILES.COM
X$! *1    16-APR-1991 14:20:51 SDROPPERS "Modified system file to set up comm
Von environment"
X$! DEC/CMS REPLACEMENT HISTORY, Element SYPAGSWPFILES.COM
$ CALL UNPACK SYPAGSWPFILES.COM;13 1767329709
$ v=f$verify(v)
$ EXIT