Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–44 46958 Tandem Computers Incorporated
*
* 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.
*
* DELETE DNSOBJ parameter
*
COPY ZDNS-DDL-DEL-DNSOBJ IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-DEL-DNSOBJ BY PARAM.
COPY ZSPI-DDL-TOKENCODE IN $FALL.ZSPIDEF.ZSPICOB.
COPY CONSTANTS IN $FALL.ZSPIDEF.ZSPICOB.
COPY CONSTANTS IN $FALL.ZSPIDEF.ZDNSCOB.
LINKAGE SECTION.
*
* Parameters: see above
*
COPY DNS-RESULT.
01 DNSTYPE NATIVE-2.
01 DNSNAME PIC X(32).
PROCEDURE DIVISION
USING DNS-RESULT
DNSTYPE
DNSNAME.
MAINLINE.
*
* Do initialization
*
PERFORM 100-INITIALIZE.
IF DNS-NO-ERROR
*
* Start a TMF transaction
*
PERFORM 200-BEGINTRANSACTION.
IF DNS-NO-ERROR
*
* Send the request to the name manager
*