Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–8 46958 Tandem Computers Incorporated
USE AFTER STANDARD ERROR PROCEDURE ON DNS-MANAGER-FILE.
HANDLE-ERROR.
SET DNS-ET-IO TO TRUE.
MOVE GUARDIAN-ERR TO DNS-ERROR-NUMBER.
END DECLARATIVES.
MAINLINE.
*
* Initialize result
*
SET DNS-NO-ERROR TO TRUE.
*
* Move the caller's request buffer to our own buffer
*
MOVE DNS-REQUEST-BUF TO DNS-PROMPT-BUF.
*
* Copy ZSPI-TKN-CONTEXT, if requested
*
IF MOVE-CONTEXT
PERFORM 100-MOVE-THE-CONTEXT.
*
* Send the request to the name manager
*
IF DNS-NO-ERROR
PERFORM 200-SEND-TO-NAME-MANAGER.
*
* Reset the buffer position
*
IF DNS-NO-ERROR
PERFORM 300-RESET-BUFFER-POSITION.
*
* Clear last buffer error
*
IF DNS-NO-ERROR
PERFORM 400-RESET-BUFFER-ERROR.
*
* Return to caller
*
EXIT PROGRAM.
100-MOVE-THE-CONTEXT.
*
* Move ZSPI-TKN-CONTEXT from response buffer to our local copy of
* the request
*