Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XTLATSET

Package: Toolkit

Routine: XTLATSET


Information

XTLATSET ;SF/RWF - BUILD SITE LT_LOAD.COM, LTPROT, and LT_PTR.DAT FILEs ;07/28/2005 16:41

Source Information

Source file <XTLATSET.m>

Entry Points

Name Comments DBIA/ICR reference
A ;This routine sets up the files for LAT device setup
EXIT
RUN ;Run the com files
OPEN(FN) ;Open file for write
DOCMD(CMD) ;Do a VMS command
FILE ;write data for this device
1 ;Write to LT_LOAD
2 ;Write to LT_PTR
3 ;U XFIO(3) W "$ prot "_$P(X,U,2),!
4 ;TSC_LOAD
OP ;File names to open
CL1
CL2
CL3
CL4
TX
TX1 ;;$! Create and set DECserver ports
TX2 ;;$ This file is used as input to SYSPRINT.com
TX3 ;;$ prot:= set prot=(O:rwlp,G:rwlp,W:rwlp)/device/owner=[100,1]/nolog
TX4 ;;$! Create file to set DECservers for printers

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Not running on a VAX. Not a valid routine to run."
  • Line Location: A+10
Function Call: WRITE
  • Prompt: !!,"This routine will build new LT_LOAD.COM, LT_PTR.DAT, TSC_LOAD.COM files"
  • Line Location: A+12
Function Call: WRITE
  • Prompt: !!,"The following files have been updated:",!!
  • Line Location: A+34
Function Call: WRITE
  • Prompt: !!,"To update the VMS configuration, the following COM"
  • Line Location: A+39
Function Call: WRITE
  • Prompt: !,"procedures must be run on your cluster:"
  • Line Location: A+40
Function Call: WRITE
  • Prompt: !!?2,"DO @"_XFIO(1)
  • Line Location: A+41
Function Call: WRITE
  • Prompt: !?2,"DO @SYS$MANAGER:SYSPRINT.COM",!
  • Line Location: A+42
Function Call: WRITE
  • Prompt: "$! Run LT_LOAD and SYSPRINT on the cluster"
  • Line Location: RUN+3
Function Call: WRITE
  • Prompt: !,"MCR SYSMAN"
  • Line Location: RUN+4
Function Call: WRITE
  • Prompt: !,"SET E/C"
  • Line Location: RUN+5
Function Call: WRITE
  • Prompt: !,"DO @"_XFIO(1)
  • Line Location: RUN+6
Function Call: WRITE
  • Prompt: !,"DO @SYS$MANAGER:SYSPRINT.COM"
  • Line Location: RUN+7
Function Call: WRITE
  • Prompt: !,"EXIT"
  • Line Location: RUN+8
Function Call: WRITE
  • Prompt: !,"$EXIT",!
  • Line Location: RUN+9
Function Call: WRITE
  • Prompt: !,"Execute command: "_CMD
  • Line Location: DOCMD+1
Function Call: WRITE
  • Prompt: !," setup "_$P(X,U)
  • Line Location: FILE+2
Function Call: WRITE
  • Prompt: "create port "_DEV_" /nolog ! "_$P(X,U),!
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: "set port "_DEV_" /app /queue /nolog /node="_NODE_" /port="_PORT,!
  • Line Location: 1+2
Function Call: WRITE
  • Prompt: QUE_XTRM_$E(DEV_" ",1,9)_$E(SPEED_" ",1,5)_" ! "_$P(X,U),!
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: "$ prot "_$P(X,U,2),!
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: "@PR "_NODE_" "_PORT_" "_SPEED,!
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: "exit",!,"$ EXIT 1"
  • Line Location: CL1+0
Function Call: WRITE
  • Prompt: "$ EXIT"
  • Line Location: CL2+0
Function Call: WRITE
  • Prompt: "$ EXIT"
  • Line Location: CL3+0
Function Call: WRITE
  • Prompt: "$ EXIT"
  • Line Location: CL4+0
Function Call: WRITE
  • Prompt: XTWHEN,!
  • Line Location: TX+0
Function Call: WRITE
  • Prompt: T,!
  • Line Location: TX+0
Info |  Source |  Entry Points |  Interaction Calls