Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–21
*
* Value of ZSPI-TKN-RETCODE returned by name manager
*
77 RETCODE NATIVE-2.
*
* Value for ZSPI^TKN^MAXRESP.
*
77 MAXRESP NATIVE-2 VALUE -1.
*
* Keeps track of whether we've found a name matching the one the
* caller asked us for
*
01 HAVE-RESPONSE-FLAG PIC X.
88 DONT-HAVE-RESPONSE VALUE "N".
88 HAVE-RESPONSE VALUE "Y".
*
* Controls where we're finished looking
*
01 DONE-FLAG PIC X.
88 NOT-DONE VALUE "N".
88 DONE VALUE "Y".
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.
*
* INFO NAME parameter
*
COPY ZDNS-DDL-INFO-NAME-P IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-INFO-NAME-P BY PARAM.
*
* INFO NAME response
*
COPY ZDNS-DDL-INFO-NAME-BR IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-INFO-NAME-BR BY CANDIDATE.