Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–31
* <reftype> The type of the referent: 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).
* Otherwise, 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
*
77 DNS-MOVE-CONTEXT-FLAG PIC X VALUE "N".
88 DONT-MOVE-CONTEXT VALUE IS "N".
88 MOVE-CONTEXT VALUE IS "Y".
EXTENDED-STORAGE SECTION.
*
* Request buffer
*
COPY ZDNS-DDL-MSG-BUFFER IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-MSG-BUFFER BY DNS-REQUEST-BUF.
*
* Response buffer
*
COPY ZDNS-DDL-MSG-BUFFER IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-MSG-BUFFER BY DNS-RESPONSE-BUF.
*
* ADD ALIAS parameter
*
COPY ZDNS-DDL-ADD-ALIAS IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-ADD-ALIAS BY PARAM.