Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–37
*
* where:
*
* <result> indicates the outcome of the program.
* <alias> is the alias to be altered.
* <defnode> is the alias's definition node; if passed.
* as spaces, the name manager's system is assumed.
* <domain> determines the new domain of the ALIAS:
* spaces means don't change the domain.
* local means that the alias should not be replicated.
* Otherwise, the name of an existing DNSDOMAIN must
* be supplied.
* <reftype> The type of the new referent:
* If = -1, the alias's referent is not to be changed.
* Otherwise it must be ZDNS-OBJ-SSOBJ or ZDNS-OBJ-SSMGR.
* <ssobject> If <reftype> = ZDNS-OBJ-SSOBJ, the subsystem-
* object name of the referent.
* <ssmanager> If <reftype> = ZDNS-OBJ-SSOBJ, the object's manager
* (may contain spaces); if <reftype> = ZDNS-OBJ-SSMGR,
* the name of the referent.
*
DATE-WRITTEN. May 11, 1987.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T/16.
OBJECT-COMPUTER. T/16.
DATA DIVISION.
WORKING-STORAGE SECTION.
*
* Status returned by the SPI procedures
*
77 SPI-STATUS NATIVE-2.
*
* Value of ZSPI-TKN-RETCODE returned by the name manager
*
77 RETCODE NATIVE-2.
*
* Parameter to DNS-SEND
*