Routine: XTLATSET

Information

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

Source Information

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	2	($$OS,GETENV)^%ZOSV ($$DT,$$NOW)^XLFDT
VA Fileman	1	^DIR

Entry Points

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

Name	Field # of Occurrence
$$OS^%ZOSV	A+7
GETENV^%ZOSV	A+16
^DIR	A+14, A+43
$$DT^XLFDT	A+3
$$NOW^XLFDT	A+15

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
Routine Call	DIR Line Location: A+14 A+43

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	A+26, A+27, A+28, A+29, FILE+4
^%ZIS(2 - [#3.2]	FILE+4
^%ZOSF("OS"	A+5
^VA(200 - [#200]	A+15

Name	Line Occurrences
@(	A+37
DOCMD	RUN+11, RUN+12
EXIT	A+10, A+14
FILE	A+30
OPEN	A+21, RUN+1
RUN	A+44
TX	A+23

Name	Field # of Occurrence
^("SUBTYPE"	FILE+4
^("VMS"	A+28
^(0	A+15, A+28
^(1	FILE+4
^(90	A+29

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CMD	DOCMD~, DOCMD+1
CMDFN	A+2~, RUN+1*, RUN+2, RUN+11, RUN+12
DA	A+1~, A+27, A+28, A+29, EXIT!, FILE+4, 4+2
DEV	A+1~, EXIT!, FILE+1*, 1+1, 1+2, 2+1
DI	A+2~, A+26*
DIR	A+1~, EXIT!
DIR("?"	A+13*
DIR("A"	A+13, A+43
DIR("B"	A+13, A+43
DIR(0	A+13, A+43
>> DIRUT	A+14
DT	A+3*, A+29
DUZ	A+15
EXIT	A+1~, A+4, A+6, A+7, A+8, A+10
FN	A+1~, A+18, A+19, A+20, OPEN~
I	A+2~, TX*
IO	A+15*, A+22, FILE+2
NODE	A+1~, EXIT!, FILE+1*, FILE+2, 1+2, 4+1
OS	A+1~, A+5*, A+6, A+7, A+8, EXIT!, OPEN+1, OPEN+2, OPEN+3, DOCMD+2 , DOCMD+3, DOCMD+4
PORT	A+1~, EXIT!, FILE+1*, FILE+2, 1+2, 4+1
Q	A+1~, EXIT!
QUE	A+2~, FILE+3*, 2+1
SPEED	A+1~, EXIT!, FILE+1*, 2+1, 4+1
T	A+2~, TX*
TX	A+1~, A+20*, EXIT!
U	A+15*, FILE+1, FILE+2, FILE+3, 1+1, 2+1
VAH	A+1~, A+16*, A+19
>> X	A+15, A+18, A+20, A+21, A+28, A+35, A+36, A+37, FILE+1, FILE+2 , 1+1, 2+1, TX
XFIO	A+1~, EXIT!
XFIO(	A+20*, A+21, A+36, TX
XFIO(1	A+41, RUN+6, 1+1, CL1
XFIO(2	2+1, CL2
XFIO(3	CL3
XFIO(4	4+1, CL4
XTIO	A+2~, A+25, A+26, A+27
XTRM	A+1~, EXIT!, FILE+4, FILE+5, FILE+6*, 2+1
XTWHEN	A+1~, A+15*, EXIT!, TX
Y	A+1~, A+14, A+16, A+28*, A+44, EXIT!, FILE+1, FILE+3

Customize PDF page

Package: Toolkit

Routine: XTLATSET

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(@TX+I	TX
$T(OP+X	A+18