Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–12 46958 Tandem Computers Incorporated
SET DNS-NO-ERROR TO TRUE.
*
* Attempt to open the name manager
*
OPEN I-O DNS-MANAGER-FILE.
IF DNS-NO-ERROR
*
* Build GETVERSION request
*
PERFORM 100-INITIALIZE-REQUEST
ELSE
SET DNS-ET-OPEN TO TRUE.
IF DNS-NO-ERROR
*
* Send GETVERSION request to the name manager
*
CALL DNS-SEND
USING DNS-RESULT
DNS-REQUEST-BUF
DNS-RESPONSE-BUF
DNS-MOVE-CONTEXT-FLAG.
IF DNS-NO-ERROR
*
* Get and check ZSPI-TKN-RETCODE
*
PERFORM 200-GET-RETCODE
IF DNS-NO-ERROR
PERFORM 300-CHECK-RETCODE.
IF DNS-NO-ERROR
*
* Get manager's version
*
PERFORM 400-GET-VERSION.
EXIT PROGRAM.
100-INITIALIZE-REQUEST.
*
* Initialize GETVERSION request buffer
*