Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–22 46958 Tandem Computers Incorporated
*
* INFO ALIAS basic response
*
COPY ZDNS-DDL-INFO-ALIAS-BR IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-INFO-ALIAS-BR BY ALIAS-BR.
*
* INFO ALIAS detailed response
*
COPY ZDNS-DDL-INFO-ALIAS-DR IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-INFO-ALIAS-DR BY ALIAS-DR.
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.
*
* Name we're to look for
*
01 DNS-NAME PIC X(162).
*
* Name's definition node
*
01 DNS-DEFNODE PIC X(8).
COPY ZDNS-DDL-INFO-NAME-BR IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-INFO-NAME-BR BY RESPONSE.
*
* Possible type(s) of passed name
*
COPY DNS-LOOKUP-PARAM.
*
* Set to AMBIGUOUS if passed name is not unique
*
01 AMBIGUOUS-FLAG PIC X.
88 UNAMBIGUOUS VALUE "N".
88 AMBIGUOUS VALUE "Y".
PROCEDURE DIVISION
USING DNS-RESULT
DNS-NAME
DNS-DEFNODE
DNS-LOOKUP-PARAM
RESPONSE
AMBIGUOUS-FLAG.
MAINLINE.
*
* Do initialization
*