IMD 1.17: 25/12/2009 18:51:41
45858255-081
8of8
standard software
system utilities
style: b25-stp
level: r12.3.08 03/03/94
label: b25stp-8/8
ë<�UNISYSCT à @ð ) FdBootRec01FAT12 úü»0 ŽÓ¼ô ‹ì3ÀŽÀQR»x &Å7‹ý¹ üò¤ŽØÆEù‰G‰/û3Ò‹ÊÍ» |¿ 3Ò‹ÊA¸ÍsOuöé– 3ÿÿwÿw‹ì» ~�û €ré º9|‹ó¹€ +ÐâûÒuã‹O‹W‹Â%ÿÁàÁé ÈÁê QR踻 v¿ `ÍasOu÷ë@3ÿZY‹=GWu3ÿwÿwRQ¾ |h€Ÿ¹ ó¥3ÿh˹ ‹ó3ÒÐâû‹Â‹w�þû~GGGGG3Û´°EÍ‹Ç0´ÍëþYZƒîƒÁƒÒ »` ŽÃQRPè” 3ÀŠF *ÁþÀ;ðs‹ÆQRPÁàŒÂÂPÀìÀî:æXt%ÿÁè‹ÈX+Áëë£XZY3Û´¿ `ÍasOu÷ë�2ä‹ÈÁá_&?CCâùZYÈƒÒ QRW3ÿP‹È¸.`Íaâú[XZ+ót
ÁãŒÁËŽÁYévÿY=ÿÿu¨‹V¿WF¾RDË‹Á÷v B€â?ŠÊ= t‹^öóŠôŠVŠèà UªÔ1 @
B25STP-8/8 @ )~w)~w B @ D Z Y > Þ
9| P ^ :MultiPkgName:Cluster View
:MultiPkgName:Mouse
:MultiPkgName:Voice
:MultiPkgName:CdRom
:MultiPkgName:DataComm
:MultiPkgName:DOS
:MultiPkgName:Math
rmat of the floppy
%' Third parameter is the [Vol]
of the rMode OSs
%' Fourth parameter is the [Vol] of the pMode OSs
%' Fifth parameter is the [Vol] of the video
%'
Video
yesCopy
[kbd]
[vid]
ÿPF ëÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎÎì
Æ B Deinstall Mouse Service Install Mouse Service Set Mouse Controls DM + [Sys]Mouse.runDeinstall mouse service. 00 4 ! [Sys]Mouse.runInstall the Mouse System Service. 00 > ( [Sys]SetMouse.RunUtility for setting the Mouse controls. ; Mouse>Install.jcl
; Install the Mouse Utilities subpackage
; Except for yes/no strings, these two messages are the only nationalizable
; strings in this file.
ErrorMsg = 'Cannot access message file'
FirstDisk = 'System Utilities Diskette 8 of 8 (B25STP-8)'
FromFloppy = 0
FromServer = 2
SysVolume = '[Sys]'
BangSys = '[Sys]'
SysCmds = '[!Sys]sys.cmds'
FloppySpec = ConcatStrings(DeviceFrom, '')
ToSpec = ConcatStrings(VolumeTo, DirectoryTo)
FromSpec = ConcatStrings(FloppySpec, '*')
If InstallType = FromFloppy
NextFloppy(FirstDisk)
EndIf
InitErc = InitMsgFile(MsgFile)
If InitErc > 0
DisplayLine(ErrorMsg)
Cancel
Endif
If Public
Command Merge Command Files ,&
CmdFileFrom ,&
CmdFileTo ,&
Yes ,&
VolumeTo
Command Merge Command Files ,&
CmdFileFrom ,&
SysCmds ,&
Yes ,&
BangSys
Else
Command Merge Command Files ,&
CmdFileFrom ,&
CmdFileTo ,&
Yes ,&
SysVolume
EndIf
If InstallType = FromServer
Command LCopy ,&
,&
@[Scr]<$>InstallOverwriteOkFrom.fls ,&
@[Scr]<$>InstallOverwriteOkTo.fls ,&
,&
Yes ,&
No ,&
No ,&
Yes
GoTo EndIt
Endif
Command LCopy ,&
FromSpec ,&
,&
ToSpec ,&
,&
Yes ,&
No ,&
No ,&
Yes
RestartLabel
; Tape Utilities
pkg = GetMsg(1)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(3)
NextFloppy(Msg)
GoTo EndIt
EndIf
; Server Utilities
pkg = GetMsg(2)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(4)
NextFloppy(Msg)
GoTo EndIt
EndIf
EndIt:
End
,&
FromSpec ,&
,&
ToSpec ,&
,&
@ Deinstall Voice Service Install Voice Service Telephone Status DS ; ! [sys]InstallVoice.runDeinstall the Voice/Data service.e.rvice. 00 9 [sys]InstallVoice.runInstall the Voice/Data service.ice.rvice. TS > ( [Sys]TmStatus.RunDisplay status of the Telephone Server. [Module number] ; Voice>Install.jcl
; Install the Voice Utilities subpackage
; Except for yes/no strings, these two messages are the only nationalizable
; strings in this file.
ErrorMsg = 'Cannot access message file'
FirstDisk = 'System Utilities Diskette 8 of 8 (B25STP-8)'
FromFloppy = 0
FromServer = 2
SysVolume = '[Sys]'
BangSys = '[Sys]'
SysCmds = '[!Sys]sys.cmds'
FloppySpec = ConcatStrings(DeviceFrom, '')
ToSpec = ConcatStrings(VolumeTo, DirectoryTo)
FromSpec = ConcatStrings(FloppySpec, '*')
ToSpec12.3.0 = ConcatStrings(ToSpec, 'pre12.3.0>')
If InstallType = FromFloppy
NextFloppy(FirstDisk)
EndIf
InitErc = InitMsgFile(MsgFile)
If InitErc > 0
DisplayLine(ErrorMsg)
Cancel
Endif
If Public
Command Merge Command Files ,&
CmdFileFrom ,&
CmdFileTo ,&
Yes ,&
VolumeTo
Command Merge Command Files ,&
CmdFileFrom ,&
SysCmds ,&
Yes ,&
BangSys
Else
Command Merge Command Files ,&
CmdFileFrom ,&
CmdFileTo ,&
Yes ,&
SysVolume
EndIf
Command LCopy ,&
'Tmcptr.cfg' ,&
ToSpec ,&
ToSpec12.3.0 ,&
,&
No ,&
No ,&
Yes ,&
Yes
If InstallType = FromServer
Command LCopy ,&
,&
@[Scr]<$>InstallOverwriteOkFrom.fls ,&
@[Scr]<$>InstallOverwriteOkTo.fls ,&
,&
Yes ,&
No ,&
No ,&
Yes
GoTo EndIt
Endif
Command LCopy ,&
FromSpec ,&
,&
ToSpec ,&
,&
Yes ,&
No ,&
No ,&
Yes
RestartLabel
pkg = GetMsg(1)
If substring(pkg,pkgs) <> 65535
Msg
= GetMsg(3)
NextFloppy(Msg)
GoTo EndIt
EndIf
pkg = GetMsg(2)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(4)
NextFloppy(Msg)
GoTo EndIt
EndIf
EndIt:
End
tMsg(1)
NextFloppy(Msg)
GoTo EndIt
EndIf
pkg = GetMsg(8)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(1)
NextFloppy(Msg)
GoTo EndIt
EndIf
pkg = GetMsg(9)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(1)
NextFloppy(Msg)
GoTo EndIt
EndIf
pkg = GetMsg(10)
If substring(pkg,pkgs) <> 655 )
Administrator Cluster View Cluster View 00 E y , [Sys]Clusterview.runStart an exclusive remote execution session.[Processor name] [User name] [User file password]^ [Node name] [Old XE run file?] [Run file to invoke] [Partition size] ion size] n size] 01 : y ! [Sys]Clusterview.runStart a remote execution session.[Processor name] [User name] [User file password]^ [Node name] [Old XE run file?] [Run file to invoke] [Partition size] tion size] n size] ke] [Partition Size] ; Cluster View>Install.jcl
; Install the Cluster View subpackage
; Except for yes/no strings, these two messages are the only nationalizable
; strings in this file.
ErrorMsg = 'Cannot access message file'
FirstDisk = 'System Utilities Diskette 8 of 8 (B25STP-8)'
FromFloppy = 0
FromServer = 2
SysVolume = '[Sys]'
BangSys = '[Sys]'
SysCmds = '[!Sys]sys.cmds'
FromSpec = ConcatStrings(DeviceFrom, '*')
ToSpec = ConcatStrings(VolumeTo, DirectoryTo)
If InstallType = FromFloppy
NextFloppy(FirstDisk)
EndIf
InitErc = InitMsgFile(MsgFile)
If InitErc > 0
DisplayLine(ErrorMsg)
Cancel
Endif
If Public
Command Merge Command Files ,&
CmdFileFrom ,&
CmdFileTo ,&
Yes ,&
VolumeTo
Command Merge Command Files ,&
CmdFileFrom ,&
SysCmds ,&
Yes ,&
BangSys
Else
Command Merge Command Files ,&
CmdFileFrom ,&
CmdFileTo ,&
Yes ,&
SysVolume
EndIf
If InstallType = FromServer
Command LCopy ,&
,&
@[Scr]<$>InstallOverwriteOkFrom.fls ,&
@[Scr]<$>InstallOverwriteOkTo.fls ,&
,&
Yes ,&
No ,&
No ,&
Yes
GoTo EndIt
Endif
Command LCopy ,&
FromSpec ,&
,&
ToSpec ,&
,&
Yes ,&
No ,&
No ,&
Yes
pkg = GetMsg(1)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(3)
NextFloppy(Msg)
GoTo EndIt
EndIf
pkg = GetMsg(2)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(4)
NextFloppy(Msg)
GoTo EndIt
EndIf
EndIt:
End
pkg = GetMsg(8)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(6)
NextFloppy(Msg)
GoTo EndIt
EndIf
pkg = GetMsg(9)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(21)
NextFloppy(Msg)
GoTo EndIt
EndIf
pkg = GetMsg(10)
If substring(pkg,pkgs) <> 6 /
DeInstall CDROM Service Install CDROM Service
00 # F # # [Sys]DeInstallCDromService.runDeInstall the CDROM system service.e. 00 ; � ! [Sys]CDromService.runInstall the CDROM system service.[CDROM device name] [Maximum number of CDROM files open (300)] [Maximum number of CDROM users (100)] [CDROM volume name (CDROM)] M)] sers (default 100)] [Name of CDROM Service (default is "CDROM")] ] ; CdRom>Install.jcl
; Install the Cartridge Disk Read-Only Memory Utilities subpackage
; Except for yes/no strings, these two messages are the only nationalizable
; strings in this file.
ErrorMsg = 'Cannot access message file'
FirstDisk = 'System Utilities Diskette 8 of 8 (B25STP-8)'
FromFloppy = 0
FromServer = 2
SysVolume = '[Sys]'
BangSys = '[Sys]'
SysCmds = '[!Sys]sys.cmds'
FloppySpec = ConcatStrings(DeviceFrom, '')
ToSpec = ConcatStrings(VolumeTo, DirectoryTo)
FromSpec = ConcatStrings(FloppySpec, '*')
If InstallType = FromFloppy
NextFloppy(FirstDisk)
EndIf
InitErc = InitMsgFile(MsgFile)
If InitErc > 0
DisplayLine(ErrorMsg)
Cancel
Endif
If Public
Command Merge Command Files ,&
CmdFileFrom ,&
CmdFileTo ,&
Yes ,&
VolumeTo
Command Merge Command Files ,&
CmdFileFrom ,&
SysCmds ,&
Yes ,&
BangSys
Else
Command Merge Command Files ,&
CmdFileFrom ,&
CmdFileTo ,&
Yes ,&
SysVolume
EndIf
If InstallType = FromServer
Command LCopy ,&
,&
@[Scr]<$>InstallOverwriteOkFrom.fls ,&
@[Scr]<$>InstallOverwriteOkTo.fls ,&
,&
Yes ,&
No ,&
No ,&
Yes
GoTo EndIt
Endif
Command LCopy ,&
FromSpec ,&
,&
ToSpec ,&
,&
Yes ,&
No ,&
No ,&
Yes
RestartLabel
pkg = GetMsg(1)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(3)
NextFloppy(Msg)
GoTo EndIt
EndIf
pkg = GetMsg(2)
If substring(pkg,pkgs) <> 65535
Msg = GetMsg(4)
NextFloppy(Msg)
GoTo EndIt
EndIf
EndIt:
End
mmand LCopy ,&
FromSpec ,&
,&
ToSpec ,&
,&
: Basic ATE Install DataComm Service Install XC002 Service
00 ; % [Sys]BasicATE.RunAllow a workstation to emulate a TTY.[Recording filename] [Comm channel] [Baud rate] [Stop bits] [Parity] [Data bits] [Display mode] [Auto linefeed?] [Recognize escape code?] [Receive Timeout] [Send Xon/Xoff?] [Script filename] [Open mode] [Originate?] [Dial string] [Dial time out] [Half duplex modem?] 00 E - [Sys]DcxService.runInstall the Four Port expander module servicename [Volume or device password]^ [Bad spot file] [Print file] 00 <