[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | DECmcc user notes file. Does not replace IPMT. |
| Notice: | Use IPMT for problems. Newsletter location in note 6187 |
| Moderator: | TAEC::BEROUD |
|
| Created: | Mon Aug 21 1989 |
| Last Modified: | Wed Jun 04 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 6497 |
| Total number of notes: | 27359 |
6328.0. "MCC_DNS_SETUP doen not work with command line parameters" by KERNEL::EVANSN (Neal Evans - UK CSC, Comms 833-3701) Mon Jun 19 1995 20:23
When running MCC_DNS_SETUP on MCC V1.3 with DNS V1.1 the procedure works ok if
no command line parameters are included, but fails if they are included.
RERMC1$ @MCC_COMMON:MCC_DNS_SETUP.COM 1 "RETLFT_NS" "LON_CH" ""
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
\DNS_FILES_EXIST\
The "RETLFT_NS:" namespace will be used
%DCL-W-UNDSYM, undefined symbol - check validity and spelling
\DNS_FILES_EXIST\
DNS$CONTROL program does not exist on this system.
To execute this function, make sure that following files exist:
SYS$SYSTEM:DNS$CONTROL.EXE - DNS control program
SYS$SYSTEM:DNS$CONTROL.BIN - DNS management command parse table
SYS$SHARE:DNS$LIB.EXE - DNS shareable library
If you do not have access to these files, please run this
command procedure on a system which has DNS Server running.
Please re-enter the function number (0 or 2)
%PURGE-I-FILPURG, SYS$SPECIFIC:[MCC]MCC_DNS_SETUP.DEF;6 deleted (3 blocks)
Is this a bug with the command procedure, and if so does anybody know what the
offending lines are.
Neal Evans - UK CSC
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 6328.1 | | KERNEL::EVANSN | Neal Evans - UK CSC, Comms 833-3701 | Tue Jun 20 1995 10:56 | 53 |
| Well I hope I have fixed this, below is the change.
Cut and pasted this text:
$! Make sure this command procedure can run DNS$CONTROL program
$!
$ DNS_FILES_EXIST = 1
$ IF F$SEARCH("SYS$SYSTEM:DNS$CONTROL.EXE") .EQS. "" THEN GOTO L_NO_FILES
$ IF F$SEARCH("SYS$SYSTEM:DNS$CONTROL.BIN") .EQS. "" THEN GOTO L_NO_FILES
$ IF F$SEARCH("SYS$SHARE:DNS$LIB.EXE") .EQS. "" THEN GOTO L_NO_FILES
$ GOTO L_CONTINUE_1
$ L_NO_FILES:
$! 5/7/91
$ DNS_FILES_EXIST = 0
$ GOTO L_CONTINUE_1
$!
$ TTOUT "DNS$CONTROL program cannot be run on this system."
$ TTOUT "Make sure that following files exist:"
$ TTOUT " SYS$SYSTEM:DNS$CONTROL.EXE - DNS control program"
$ TTOUT " SYS$SYSTEM:DNS$CONTROL.BIN - DNS management command parse tabl
$ TTOUT " SYS$SHARE:DNS$LIB.EXE - DNS shareable library"
$ TTOUT ""
$ TTOUT "If you do not have access to these files, please run this"
$ TTOUT " command procedure on a system which has DNS Server running."
$ TTOUT ""
$ TTOUT "Exiting mcc_dns_setup.com command procedure"
$ TTOUT ""
$ @'IDP_FILE_NAME' "U"
$ EXIT
Between the following lines:
$ !
$ ! General startup message
$ !
.
. !!! Pasted here
.
$!
$ ON_ERROR_NRM
$ ON_CTRLY_NRM
$
$ IF P1 .NES. "" THEN GOTO L_ASK_NAMESPACE
$ TTOUT ""
$ TTOUT "DECmcc namespace setup procedure"
$ TTOUT ""
|