Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–16 46958 Tandem Computers Incorporated
COPY ZDNS-DDL-INFO-ALIAS-DR IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-INFO-ALIAS-DR BY ALIAS-DR.
01 AMBIGUOUS-FLAG PIC X.
88 UNAMBIGUOUS VALUE "N".
88 AMBIGUOUS VALUE "Y".
PROCEDURE DIVISION USING DNS-RESULT
ALIAS
DEFNODE
ALIAS-BR
ALIAS-DR
AMBIGUOUS-FLAG.
MAINLINE.
PERFORM 100-INITIALIZE.
IF DNS-NO-ERROR
PERFORM 200-LOOKUP.
EXIT PROGRAM.
100-INITIALIZE.
*
* Clear result
*
SET DNS-NO-ERROR TO TRUE.
*
* Assume alias is unique for now
*
SET UNAMBIGUOUS TO TRUE.
*
* Initialize INFO ALIAS parameter
*
ENTER TAL "SSNULL"
USING ZDNS-MAP-INFO-DNSOBJ-P
PARAM
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Build INFO ALIAS parameter
*
PERFORM 110-BUILD-INFO-PARAM
ELSE
PERFORM 900-SET-STATUS-ERROR.
IF DNS-NO-ERROR