Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–32 46958 Tandem Computers Incorporated
COPY ZSPI-DDL-TOKENCODE IN $FALL.ZSPIDEF.ZSPICOB.
COPY CONSTANTS IN $FALL.ZSPIDEF.ZSPICOB.
COPY CONSTANTS IN $FALL.ZSPIDEF.ZDNSCOB.
LINKAGE SECTION.
COPY DNS-RESULT.
*
* Parameters; see above
*
01 ALIAS PIC X(32).
01 ALIASTYPE PIC X(16).
01 DOMAIN PIC X(32).
01 REFTYPE NATIVE-2.
01 SSOBJECT PIC X(162).
01 SSMANAGER PIC X(32).
PROCEDURE DIVISION
USING DNS-RESULT
ALIAS
ALIASTYPE
DOMAIN
REFTYPE
SSOBJECT
SSMANAGER.
MAINLINE.
*
* Do initialization
*
PERFORM 100-INITIALIZE.
IF DNS-NO-ERROR
*
* Try to start a TMF transaction
*
PERFORM 200-BEGINTRANSACTION.
IF DNS-NO-ERROR
*
* Send the ADD ALIAS request to the name manager
*
PERFORM 300-SEND-TO-MANAGER.
IF DNS-NO-ERROR
*
* No error; try to commit the transaction
*