Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–11
COPY ZDNS-DDL-MSG-BUFFER IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-MSG-BUFFER BY DNS-IO-BUF.
WORKING-STORAGE SECTION.
*
* Manager file status
*
01 DNS-MANAGER-STATUS EXTERNAL PIC XX.
*
* Status returned by SPI procedures
*
77 SPI-STATUS NATIVE-2.
*
*
*
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".
COPY ZDNS-DDL-MSG-BUFFER IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-MSG-BUFFER BY DNS-REQUEST-BUF.
COPY ZDNS-DDL-MSG-BUFFER IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-MSG-BUFFER BY DNS-RESPONSE-BUF.
EXTENDED-STORAGE SECTION.
COPY ZSPI-DDL-TOKENCODE IN $FALL.ZSPIDEF.ZSPICOB.
COPY CONSTANTS IN $FALL.ZSPIDEF.ZSPICOB.
COPY CONSTANTS IN $FALL.ZSPIDEF.ZDNSCOB.
LINKAGE SECTION.
COPY DNS-RESULT.
*
* Returns name manager's version
*
77 DNS-VERSION NATIVE-2.
PROCEDURE DIVISION USING DNS-RESULT DNS-VERSION.
DECLARATIVES.
MANAGER-OPEN-ERROR SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON DNS-MANAGER-FILE.
HANDLE-ERROR.
SET DNS-ET-IO TO TRUE.
MOVE GUARDIAN-ERR TO DNS-ERROR-NUMBER.
END DECLARATIVES.
MAINLINE.
*
* Initialize result
*