'
' Originated: 2688 by W.P. LePera
' Modified for MGS: 61088 by J. Reed
' Modified: 61493 by Vish Tadimety
'
' This submit file installs the Multiple Gateway server run files, commands,
' requests and library to your B20 or XE520 system.  The following four 
' parameters are used:
'
'	0 Name of command file to use (Defaults are [Sys]<Sys>Sys.Cmds for
'	B20 installation, and [Sys]<Sys>Sys.Cmds for XE520 installation)
'
'	1 [Volume]<Directory> where the run files and library are to be
'	copied.  Note the request files ignore this parameter, and are
'	copied to either [Sys]<Sys> (B20 installation) or [Sys]<Sys>
'	(XE520 installation).
'
'	2 XE520 installation flag.  This parameter is set to XE for XE520
'	installation, or null for B20 installation.
'
'	3 Command test flag.  Set to null for normal installation.
'
' These parameters are set by the files Install.Sub and XEInstall.Sub.
'
'
CREATE DIRECTORY
'New directory name(s)                   '2[Sys]?2[Sys]<$>
'[Protection level (default = 15)]       '
'[Maximum number of files (default = 75)]'
'[Password for new directory]            '
'[Volume password]                       ''
'
' Expand the following only if 3 is nonnull
'
?3'
'
New Command
'Command name         '$$CmdTest
'Run file             '[Sys]<MGSBuild>FileSize.Run
'[Field names]        '
'[Description]        '
'[Overwrite ok?]      'Yes 
'[Case (default = 00)]'
'[Command file]       '0
'
'
Copy
'File from      '[Kbd]
'File to        '[Vid]
'[Overwrite ok?]'
'[Confirm each?]'
'
'
'**
'*              The banner screen below need not be translated              *
'**
'
PF
          
                                                              
              This submit file will check the size of the     
            MGS  command forms generated during installation. 
                                                              
              It should be executed AFTER the command forms   
                         have been nationalized.              
                                                              
          
                                                              
                          PRESS AF<GO>AA TO CONTINUE              
                                                              
          


1'
'
' End the conditional expansion on 3 (nonnull)''
'
' Expand the following only if 3 is null
'
3'
'
'   'VIDEO
'      [Supress pause between pages?]'  YES
'      [Screen timeout (in minutes)]'
'      [Color (default = green)]'
'      [132 columns (B22, B27 only)?]' '
'
'   'COPY
'      File from      '[Kbd]
'      File to        '[Vid]
'      [Overwrite OK?]'
'      [Confirm each?]''
          
                                                              
              Installation of the Multiple Gateway Server     
                              Release 1.2                     
                                                              
          
                                                                
B
     2       If this is a cluster system, power down all other
                   cluster workstations except this one.?2Power down all workstations except this one and the XE520 master.
AA

                           PRESS AF<GO>AA TO CONTINUE
                                                                
                                                                


1'
'
'   'SUBMIT
'      File list         '[B25MS1]<Sys>RIF.Sub
'      [Parameters]      '
'      [Force Expansion?]'YES
'      [Show Expansion?] ''
'
'   'COPY
'      File from      ' [Kbd]
'      File to        ' [Vid]
'      [Overwrite OK?]'
'      [Confirm each?]' '
PF
PN
          
                                                              
              Volume Status will show the number of unused    
           sectors on your Sys volume.  Press AF<GO>AA, note the  
           number of sectors available, then press AF<GO>AA again 
                                                              
          
                                                              
                          PRESS AF<GO>AA TO CONTINUE              
                                                              
          




1'
'   'VOLUME STATUS
'      [Volume or device name]         '2[Sys]?2[Sys]
'      [Details?]                      '
'      [Print file]                    '
'      [Directory spec (default = *)]  '
'      [Include temporary directories?]''
1'
'   'COPY
'      File from      ' [Kbd]
'      File to        ' [Vid]
'      [Overwrite OK?]'
'      [Confirm each?]' '
PF
          
                                                              
              Installation of the Multiple Gateway Server     
             requires about  114 sectors on the Sys volume    
                                                              
          
                                                              
             IF THIS SYSTEM DOES NOT HAVE THE REQUIRED DISK   
            SPACE, PRESS AEACTIONAFFINISHAA TO STOP INSTALLATION.  
                                                              
                   OTHERWISE, PRESS AF<GO>AA TO CONTINUE          
                                                              
          
1'
'
' End conditional expansion on 3 (null)''
'
'**
'*                          Create commands                                 *
'**
'
COPY
'File from      '[Kbd]
'File to        '2[Sys]?2[Sys]<$>cmd.tmp
'[Overwrite ok?]'YES
'[Confirm each?]'
'
' [Kbd] = 
'Install Multiple Gateway Server'
'
'
COPY
'File from      '[Kbd]
'File to        '2[Sys]?2[Sys]<$>fil.tmp
'[Overwrite ok?]'YES
'[Confirm each?]'
'
' [Kbd] = 
'1MGS1.Run'
'
'
COPY
'File from      '[Kbd]
'File to        '2[Sys]?2[Sys]<$>args.tmp
'[Overwrite ok?]'YES
'[Confirm each?]'
'
' [Kbd] = 
'[Number of Different Gateways    (default 1)    ]'
'[Number of Gateways              (default 2)    ]'
'[Number of Requests              (default 20)   ]'
'[Number of Outstanding Requests  (default 50)   ]'
'[Number of File Handles          (default 1023) ]'
'
'
COPY
'File from      '[Kbd]
'File to        '2[Sys]?2[Sys]<$>dscr.tmp
'[Overwrite ok?]'YES
'[Confirm each?]'
'
' [Kbd] = 
'Install and activate the Multiple Gateway Server.'
'
'
' Expand the following only if 3 is nonnull.
'
?3'
Copy
'File from      '2[Sys]?2[Sys]<$>cmd.tmp
'File to        '[Sys]<Sys>ArgSize.Tmp
'[Overwrite ok?]'Yes
'[Confirm each?]'
'
'
Copy
'File from      '[kbd]
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Overwrite ok?]'Yes
'[Confirm each?]'
'
          Processing command name '
Append
'File list from '2[Sys]?2[Sys]<$>cmd.tmp
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Confirm each?]'
'
Append
'File list from '[Kbd]
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Confirm each?]'
'
'
'**
'*              The banner screen below need not be translated              *
'**
'

          
                                                              
           The size shown below must be less than or equal to 
                                35 bytes.                     
                                                              
          
                                                              
             IF THE SIZE SHOWN IS GREATER THAN 35 BYTES,      
            PRESS AEACTIONAFFINISHAA TO STOP THE TEST.  EDIT THIS  
           SUBMIT FILE TO SHORTEN THE COMMAND NAME, THEN RE  
                          SUBMIT THIS FILE.                   
                                                              
                   OTHERWISE, PRESS AF<GO>AA TO CONTINUE          
                                                              
          

'
Copy
'File from      '2[Sys]?2[Sys]<$>vid.tmp
'File to        '[Vid]
'[Overwrite ok?]'
'[Confirm each?]'
'
'
$$CmdTest'
1'
'
'
Append
'File list from '2[Sys]?2[Sys]<$>fil.tmp 2[Sys]?2[Sys]<$>args.tmp 2[Sys]?2[Sys]<$>dscr.tmp
'File to        '[Sys]<Sys>ArgSize.Tmp
'[Confirm each?]'
'
Copy
'File from      '[kbd]
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Overwrite ok?]'Yes
'[Confirm each?]'
'
          Processing command form '
Append
'File list from '2[Sys]?2[Sys]<$>cmd.tmp
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Confirm each?]'
'
Append
'File list from '[Kbd]
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Confirm each?]'
'
'
'**
'*              The banner screen below need not be translated              *
'**
'

          
                                                              
           The size shown below must be less than or equal to 
                                497 bytes.                    
                                                              
          
                                                              
             IF THE SIZE SHOWN IS GREATER THAN 497 BYTES,     
            PRESS AEACTIONAFFINISHAA TO STOP THE TEST.  EDIT THIS  
           SUBMIT FILE TO SHORTEN THE COMMAND FORM, THEN RE  
                          SUBMIT THIS FILE.                   
                                                              
                   OTHERWISE, PRESS AF<GO>AA TO CONTINUE          
                                                              
          

'
Copy
'File from      '2[Sys]?2[Sys]<$>vid.tmp
'File to        '[Vid]
'[Overwrite ok?]'
'[Confirm each?]'
'
'
$$CmdTest'
1'
'
' End conditional expansion on 3 (nonnull)''
'
' Expand the following if 3 is null
'
3'
'
NEW COMMAND
'Command name         '@2[Sys]?2[Sys]<$>cmd.tmp
'Run file             '@2[Sys]?2[Sys]<$>fil.tmp
'[Field names]        '@2[Sys]?2[Sys]<$>args.tmp
'[Description]        '@2[Sys]?2[Sys]<$>dscr.tmp
'[Overwrite ok?]      'YES
'[Case (default = 00)]'
'[Command file]       '0
'
'
' End conditional expansion on 3 (null)''
'
COPY
'File from      '[Kbd]
'File to        '2[Sys]?2[Sys]<$>cmd.tmp
'[Overwrite ok?]'YES
'[Confirm each?]'
'
' [Kbd] = 
'Deinstall Multiple Gateway Server'
'
'
COPY
'File from      '[Kbd]
'File to        '2[Sys]?2[Sys]<$>fil.tmp
'[Overwrite ok?]'YES
'[Confirm each?]'
'
' [Kbd] = 
'1DMGS.Run'
'
'
COPY
'File from      '[Kbd]
'File to        '2[Sys]?2[Sys]<$>dscr.tmp
'[Overwrite ok?]'YES
'[Confirm each?]'
'
' [Kbd] = 
'Deactivate and remove from memory the Multiple Gateway Server'
'
'
' Expand the following only if 3 is nonnull.
'
?3'
Copy
'File from      '2[Sys]?2[Sys]<$>cmd.tmp
'File to        '[Sys]<Sys>ArgSize.Tmp
'[Overwrite ok?]'Yes
'[Confirm each?]'
'
'
Copy
'File from      '[kbd]
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Overwrite ok?]'Yes
'[Confirm each?]'
'
          Processing command name '
Append
'File list from '2[Sys]?2[Sys]<$>cmd.tmp
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Confirm each?]'
'
Append
'File list from '[Kbd]
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Confirm each?]'
'
'
'**
'*              The banner screen below need not be translated              *
'**
'

          
                                                              
           The size shown below must be less than or equal to 
                                35 bytes.                     
                                                              
          
                                                              
             IF THE SIZE SHOWN IS GREATER THAN 35 BYTES,      
            PRESS AEACTIONAFFINISHAA TO STOP THE TEST.  EDIT THIS  
           SUBMIT FILE TO SHORTEN THE COMMAND NAME, THEN RE  
                          SUBMIT THIS FILE.                   
                                                              
                   OTHERWISE, PRESS AF<GO>AA TO CONTINUE          
                                                              
          

'
Copy
'File from      '2[Sys]?2[Sys]<$>vid.tmp
'File to        '[Vid]
'[Overwrite ok?]'
'[Confirm each?]'
'
'
$$CmdTest'
1'
'
'
Append
'File list from '2[Sys]?2[Sys]<$>fil.tmp 2[Sys]?2[Sys]<$>dscr.tmp
'File to        '[Sys]<Sys>ArgSize.Tmp
'[Confirm each?]'
'
'
Copy
'File from      '[kbd]
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Overwrite ok?]'Yes
'[Confirm each?]'
'
          Processing command form '
Append
'File list from '2[Sys]?2[Sys]<$>cmd.tmp
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Confirm each?]'
'
Append
'File list from '[Kbd]
'File to        '2[Sys]?2[Sys]<$>vid.tmp
'[Confirm each?]'
'
'
'**
'*              The banner screen below need not be translated              *
'**
'

          
                                                              
           The size shown below must be less than or equal to 
                                497 bytes.                    
                                                              
          
                                                              
             IF THE SIZE SHOWN IS GREATER THAN 497 BYTES,     
            PRESS AEACTIONAFFINISHAA TO STOP THE TEST.  EDIT THIS  
           SUBMIT FILE TO SHORTEN THE COMMAND FORM, THEN RE  
                          SUBMIT THIS FILE.                   
                                                              
                   OTHERWISE, PRESS AF<GO>AA TO CONTINUE          
                                                              
          

'
Copy
'File from      '2[Sys]?2[Sys]<$>vid.tmp
'File to        '[Vid]
'[Overwrite ok?]'
'[Confirm each?]'
'
'
$$CmdTest'
1'
'
' End conditional expansion on 3 (nonnull)''
'
' Expand the following if 3 is null
'
3'
'
NEW COMMAND
'Command name         '@2[Sys]?2[Sys]<$>cmd.tmp
'Run file             '@2[Sys]?2[Sys]<$>fil.tmp
'[Field names]        '
'[Description]        '@2[Sys]?2[Sys]<$>dscr.tmp
'[Overwrite ok?]      'YES
'[Case (default = 00)]'
'[Command file]       '0
'
'
' End conditional expansion on 3 (null)''
'
DELETE
'File list      '2[Sys]?2[Sys]<$>cmd.tmp 2[Sys]?2[Sys]<$>fil.tmp ?3[Sys]<Sys>ArgSize.Tmp
'[Confirm each?]''
'
DELETE
'File list      '2[Sys]?2[Sys]<$>args.tmp 2[Sys]?2[Sys]<$>dscr.tmp ?32[Sys]?2[Sys]<$>vid.tmp
'[Confirm each?]''
'
' Expand the following if 3 is null
'
3'
VIDEO
'[Supress pause between pages?]'YES
'[Screen timeout (in minutes)] '
'[Color (default = green)]     '
'[132 columns (B22, B27 only)?]'
'
List Request Set
'Request.n.Sys file(s)'?2[Sys]<Sys>2[Sys]<Sys>Request.Sys
'[Output file]'?2[Sys]<Sys>2[Sys]<Sys>Request.Txt
'[Include padded requests?]'
COPY
'File from      '[Kbd]
'File to        '2[Sys]?2[Sys]<$>parm.tmp
'[Overwrite ok?]'YES
'[Confirm each?]'
'
' [Kbd] = 
?2[Sys]<Sys>2[Sys]<Sys>Request.Txt [B25MS1]<Sys>Request.MGS.Txt'
'  'Copy
'      File from       '[Kbd]
'      File to         '[Vid]
'      [Overwrite ok?] '
'      [Confirm each?] '
'   GO''
'
'[Kbd] = '
PF

AE Request.Sys  Creation AA
                                                                             
                 AM The following command may take some time AA                 
                                                                             

'CANCEL''
'
'  'Make Request Set
'      Text file(s)                                 '@2[Sys]?2[Sys]<$>parm.tmp
'      Binary request file                          '?2[Sys]<Sys>2[Sys]<Sys>Request.Sys
'      [Error file]                                 '
'      [Version]                                    '
'      [Type (WS, SRP, Current) default = Current]  '
'   GO''
'
'  'Delete
'      File list       '?2[Sys]<Sys>2[Sys]<Sys>Request.Txt 2[Sys]?2[Sys]<$>parm.tmp
'      [Confirm each?] '
'   GO''
'
'  'Append
'      File list from  '[Kbd]
'      File to         '?2[Sys]<Sys>2[Sys]<Sys>Sys.Version
'      [Confirm each?] '
'   GO''
'
'[Kbd] = ' Request.MGS.Txt merged with Request.Sys on d|*w *n *d, yyyy, at *t:0m|
'FINISH''
'
'  'Copy
'      File from       '[Kbd]
'      File to         '[Sys]<Sys>rqDesc2.tmp
'      [Overwrite ok?] 'Yes
'      [Confirm each?] '
'   GO''
'
'[Kbd] = 
PF

                     AEA new Request.Sys has been created.AA                     

          Please ensure that you reboot the master and all cluster          
          workstations immediately after this software installation          
          has been completed.                                                

                AFPRESS AEGOAF TO CONTINUE SOFTWARE INSTALLATION...AA                

PN'
'FINISH''
'
'  'Copy
'      File from       '[Sys]<Sys>rqDesc2.tmp
'      File to         '[Vid]
'      [Overwrite ok?] 'Yes
'      [Confirm each?] '
'   GO''
'
'   Wait for the GO character'1'
'
'
LCOPY
'File list             '[B25MS1]<Unisys>*.Run 
'[File prefix(es) from]'
'[File prefix(es) to]  '1?2[Sys]<Sys>2[Sys]<Sys>1
'[File suffix(es)]     '
'[Overwrite OK?]       'YES
'[Confirm each?]       '
'[Continue on error?]  '
'[Verify copy?]        '
'
LCOPY
'File list             '[B25MS1]<Unisys>*.Lib 
'[File prefix(es) from]'
'[File prefix(es) to]  '?2[Sys]<Sys>2[Sys]<Sys>
'[File suffix(es)]     '
'[Overwrite OK?]       'YES
'[Confirm each?]       '
'[Continue on error?]  '
'[Verify copy?]        '
LCOPY
'File list             '[B25MS1]<Sys>Request.MGS.Txt
'[File prefix(es) from]'
'[File prefix(es) to]  '?2[Sys]<Sys>2[Sys]<Sys>
'[File suffix(es)]     '
'[Overwrite OK?]       'YES
'[Confirm each?]       '
'[Continue on error?]  '
'[Verify copy?]        '
'
'
'  'APPEND
'      File list from  '[B25MS1]<Sys>FdSys.Version [Kbd]
'      File to         '?2[Sys]<Sys>2[Sys]<Sys>Sys.Version
'      [Confirm each?] '
'   GO''
'
'[Kbd] = ' installed on d|*w *n *d, yyyy, at *t:0m|
'FINISH''
'
'   'COPY
'      File from      ' [Kbd]
'      File to        ' [Vid]
'      [Overwrite OK?]'
'      [Confirm each?]''
PF          
                                                              
              Installation of the Multiple Gateway Server     
                         Release 1.2 Complete                 
                                                              
          





          
                                                              
            2  Reboot the ?2XE520 master and cluster workstations 2    
                                                              
              to complete installation.                       
                                                              
          



PN'
'
'
' End conditional expansion on 3 (null)''
'
'
' Expand the following if 3 is nonnull
'
?3'
'
Remove Command
'Command name  '$$CmdTest
'[Command file]'0
'
'
' End conditional expansion on 3 (nonnull)''
'
