Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–15
PROGRAM-ID. DNS-LOOKUP-ALIAS.
DATE-WRITTEN. May 11, 1987.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T/16.
OBJECT-COMPUTER. T/16.
DATA DIVISION.
WORKING-STORAGE SECTION.
*
* For setting Boolean token/field values
*
01 DNS-TRUE-FALSE.
02 DNS-TRUE PIC X(2) VALUE IS HIGH-VALUES.
02 DNS-FALSE PIC X(2) VALUE IS LOW-VALUES.
*
* Status returned by SPI procedures
*
77 SPI-STATUS NATIVE-2.
*
* ZSPI-TKN-RETCODE value
*
77 RETCODE NATIVE-2.
*
* ZSPI-TKN-MAXRESP value
*
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.
COPY ZDNS-DDL-INFO-DNSOBJ-P IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-INFO-DNSOBJ-P BY PARAM.
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.
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.
01 ALIAS PIC X(32).
01 DEFNODE PIC X(8).
COPY ZDNS-DDL-INFO-ALIAS-BR IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-INFO-ALIAS-BR BY ALIAS-BR.