Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
46958 Tandem Computers Incorporated E–45
PERFORM 300-SEND-TO-MANAGER.
IF DNS-NO-ERROR
*
* Try to commit the transaction
*
PERFORM 400-ENDTRANSACTION
ELSE
*
* Error; abort the transaction
*
PERFORM 500-ABORTTRANSACTION.
EXIT PROGRAM.
100-INITIALIZE.
*
* Clear result
*
SET DNS-NO-ERROR TO TRUE.
*
* Initialize DELETE DNSOBJ parameter
*
ENTER TAL "SSNULL"
USING ZDNS-MAP-DEL-DNSOBJ
PARAM
GIVING SPI-STATUS.
IF SPI-STATUS = 0
*
* Build the parameter
*
PERFORM 110-BUILD-DEL-PARAM
ELSE
PERFORM 900-SET-STATUS-ERROR.
IF DNS-NO-ERROR
*
* Build request buffer
*
PERFORM 120-INITIALIZE-REQUEST-BUF.
110-BUILD-DEL-PARAM.
*
* Only one field in the parameter
*