.; .;****************************************************************************** .; .; This software is provided on an "as is" basis only. Caterpillar Tractor Co., .; disclaims all warranties on the program, including without limitation, all .; implied warranties of merchantablity and fitness. .; .; Full permission and consent is hereby given to DECUS and to the DECUS .; special interest groups to reproduce, distribute, and publish and permit .; others to reproduce in whole or in part, in any form and without restriction .; this program and any information relating thereto .; .;****************************************************************************** .; .; Author: .; .; Rick Webster, Process Control Applications, MSDGO .; Caterpillar Tractor Co. .; .; Description: .; .; This command file is used in conjunction with the command files .; CONFIG1.CMD and CONFIG2.CMD. It is used to give a sysgen-like .; listing of a saved answer file. The output looks similar to the .; SYSGEN printout when the saved answer file was originally created. .; .; Usage: .; .; The command files must be on the current default device and UIC .; to function properly but the input saved answer file can be anywhere. .; .; .; >@CONFIG saved-answer-file output-file .; .; where: saved-answer-file is the name of your save answer file .; output-file is the name of the file to contain the .; sysgen listing (Default is TI:) .; .; If either are un-specified on the command line, you will be prompted .; for them. If output is directed to a file, it will also be printed on .; TI: .; .; The output will contain the appropriate SYSGEN question with the .; response that is in the saved answer file along with the appropriate .; symbol name used in the saved answer file .; .; .; .; .; .; .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .00000A: .; .;CONFIG list file .; .SETF $TTCFG .SETS CFGFIL "TI:" .IF P2 NE "" .SETS CFGFIL P2 .IF P2 EQ "" .ASKS [::"TI:"] CFGFIL 8A. Name of configuration listing file .PARSE CFGFIL ";" CFGFIL VER .PARSE CFGFIL "." CFGFIL EXT .IF EXT EQ "" .SETS EXT "CFG" .TESTFILE 'CFGFIL'.'EXT';'VER' .IF EQ 1 .GOTO 00000B .IF EQ 346 .GOTO 00000B .IF VER NE "" .SETS VER ";'VER'" ; ; CONFIG -- File specification error on 'CFGFIL'.'EXT''VER' -- RETRY. ; .SETS P2 "" .GOTO 00000A .00000B: .OPEN #3 'CFGFIL'.'EXT';'VER' .SETS CHGFIL .SETS STEMP CHGFIL[1:2] .IF STEMP EQ "TT" .SETT $TTCFG .DATA #3 ; .DATA #3 ; =========================================================== .DATA #3 ; = *** C O N F I G . C M D *** Saved answer file lister = .DATA #3 ; =========================================================== .DATA #3 ; .IFF $TTCFG ; .IFF $TTCFG ; =========================================================== .IFF $TTCFG ; = *** C O N F I G . C M D *** Saved answer file lister = .IFF $TTCFG ; =========================================================== .IFF $TTCFG ; .IFNDF $PHAS1 .SETS $PHAS1 "" .SETS $PHAS1 $PHAS1+"1.53" .SETN $BASEL 32. .SETS $BLREV " " ! INTERIM BASELEVEL .SETS $CUIC .TEST .SETS $DFUIC [2:-1] .IFNDF $SGNUC .SETS $SGNUC [2:-1] .SETT $SGN1 .SETF $SGN2 .SETF $CS1 .SETF $CS2 .IFNDF $UIC .SETN $UIC 11 .IFNDF $SYGRP .SETN $SYGRP 1 .IFNDF $IAS .SETF $IAS .IFNDF $SYBLD .SETF $SYBLD .IFT $SYBLD .SETT $MCR .IFNDF $11SGN .SETF $11SGN .IFT $11SGN .OR .IFT $SYBLD .SETT $XXX1 .IFNDF $XXX1 .SETF $XXX1 .IFNDF $MPLUS .SETF $MPLUS .SETN $ICLOC 0 .SETN $IPLOC 0 .SETN $UDLOC 0 .SETN $ISLOC 0 .SETF $ABORT .SETF $XXX2 .SETT $ONL .IFNDF .GOTO 0 .IFT .SETF $ONL .0:.DATA #3 ; .IFF $TTCFG ; .; .;INPUT SAVED ANSWERS .; .SETS $SAI "SYSSAVED.CMD" .SETT $SAVED .TESTFILE SYSSAVED.CMD .SETS TEMPS "" .IF EQ 1 .SETS TEMPS " [D: SYSSAVED.CMD]" .IF P1 NE "" .SETS $SAI P1 .IF P1 EQ "" .ASKS $SAI 8. Name of input saved answer file'TEMPS' .IF P1 EQ "" .IF EQ 1 .IF $SAI EQ "" .SETS $SAI "SYSSAVED.CMD" .PARSE $SAI ";" $SAI VER .PARSE $SAI "." $SAI EXT .IF EXT EQ "" .SETS EXT "CMD" .TESTFILE '$SAI'.'EXT';'VER' .IF EQ 1 .SETS $SAI .IF EQ 1 .GOTO 0000A .IF VER NE "" .SETS VER ";'VER'" ; ; CONFIG -- Input saved answer file '$SAI'.'EXT''VER' does not exist -- RETRY. ; .SETS P1 "" .GOTO 0 .0000A: .IFT $11SGN .GOTO SGEN .DATA #3 ; .IFF $TTCFG ; .DATA #3 ; RSX-11M V4.0 BL'$BASEL''$BLREV' System Generation PHASE I -- version '$PHAS1' .IFF $TTCFG ; RSX-11M V4.0 BL'$BASEL''$BLREV' System Generation PHASE I -- version '$PHAS1' .DATA #3 ; .IFF $TTCFG ; .IFF $IAS .DATA #3 ; '' '