; DataComm>Install.jcl
; Install the Data Communications Utilities subpackage

; Except for yesno strings, these two messages are the only nationalizable
; strings in this file.
ErrorMsg     = 'Cannot access message file'
FirstDisk    = 'System Utilities Diskette 4 of 4 (B25STP4)'

FromFloppy   = 0
FromServer   = 2
SysVolume    = '[Sys]'
BangSys      = '[Sys]'
SysCmds      = '[Sys]<sys>sys.cmds'
FloppySpec   = ConcatStrings(DeviceFrom, '<zDataComm>')
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
    GoTo EndIt
    Endif

Command Decompress Files           ,
          FromSpec                 ,
                                   ,
          ToSpec                   ,
          Yes                      ,
          No                       

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(3)
    NextFloppy(Msg)
    GoTo EndIt
    EndIf

EndIt:

End


End
                    ,
          Yes

Command LCopy                    ,
          'FormatDiskConfig.sys' ,
          ToSpec                 ,
          ToSpec12.3.X           ,
                                 ,
          No                     ,
          No                     ,
          Yes

Command LCopy                   ,
  