A set of flowcharts is provided to diagram the tape management system.
The new server code lives on a new disk, PERL 193. The code is as follows:
CMDSERVE EXEC $READCAT EXEC $CANWRIT EXEC $CANTRY EXEC $GIVETAP EXEC $TAPEUSE EXEC $QTAPE EXEC $GETVERS EXEC $NEWCOM EXEC $MYTAPES EXEC $MAKEFRE EXEC
The server runs in two new accounts, SLDTMS1 and SLDTMS2 (for SLD Tape Monitor System). Each of these accounts accesses PERL 193 for the above mentioned code and SLDPM 192 for a variety of Len Moss' utilities.
The two accounts are in every way identical. They have exactly the same files on their 191 disks. They behave differently only because CMDSERVE EXEC on PERL 193 sets the port id differently depending on the USERID.
The new servers send their log files to PERL. The servers are to be left running in a disconnected state. They are started as follows:
Log on to SLDTMS1 or SLDTMS2. If you get the VM READ prompt, the server was not running. Make the profile exec run by hitting Enter If you get the CP READ prompt, the server was running. Exit CP by typing BEGIN Stop CMDSERVE by typing EXIT Start the server exec by typing CMDSERVE Wait for CMDSERVE to reply "Initialization complete" Get CP's attention by hitting the ATTN key twice (this key is usually PF4 on number pad) Disconnect by typing DISC
The new servers took over from the old servers, COPYCART and CMDSERVE, on Monday, 18 July 94. The old servers are being left up and running for a while so that we can return to them if problems arise in the new servers.
To return to using the old servers, old versions of the client code would need to be reinstalled. First, make sure to save copies of the new server code. Then reinstall the old code as follows.
The old VM client code is stored on PERL2 191 as @... You must access PERL2 191 with MODE0 to see this code. Remove the @ signs from the filetypes. Then install the code to PROD DUCS:
OPENTAPE IDA to PROD IDA Dist=VM READCAT IDA to PROD IDA Dist=VM CANQUERY EXEC to PROD GETAPE (this lives on the G disk) CANWRITE EXEC to PROD GETAPE (this lives on the G disk) GIVE EXEC to PROD GETAPE (this lives on the G disk) QTAPE EXEC to PROD GETAPE (this lives on the G disk) NEWCOM EXEC to PROD GETAPE (this lives on the G disk) MYTAPES EXEC to PROD GETAPE (this lives on the G disk) MAKEFREE EXEC to PROD GETAPE (this lives on the G disk) GETFREE EXEC to PROD GETAPE (this lives on the G disk)
The old VMS client code is stored in $USR:[PERL.OLDCAT]. To make the cutover for VMS, copy the following code:
OPENTAPE IDA Copy from VM PERL2 191 to PROD IDA Dist=VMS READCAT IDA Copy from VM PERL2 191 to PROD IDA Dist=VMS GETFREE.COM Copy from [PERL.READCAT] to PROD CART CARTCMD.PREPMORT Copy from [PERL.READCAT] to PROD CART CATCMD.PREPMORT Copy from [PERL.READCAT] to PROD CART CMDCLIENT.H Copy from [PERL.READCAT] to PROD CART IDA_CLIENT.C Copy from [PERL.READCAT] to PROD CART CMDCLIENT_SEND.C Copy from [PERL.READCAT] to PROD CART CMDCLIENT_MAIN.C Copy from [PERL.READCAT] to PROD CART CLIENT.BUILDCOM Copy from [PERL.READCAT] to PROD CART CARTSHR.VEC Rebuild in PROD CART