Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–38 46958 Tandem Computers Incorporated
77 DNS-MOVE-CONTEXT-FLAG PIC X VALUE "N".
EXTENDED-STORAGE SECTION.
*
* 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.
*
* ALTER ALIAS parameter
*
COPY ZDNS-DDL-ALTER-ALIAS IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-ALTER-ALIAS BY PARAM.
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 DEFNODE PIC X(8).
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
DEFNODE
DOMAIN
REFTYPE
SSOBJECT
SSMANAGER.
MAINLINE.
*
* Do initialization
*