Distributed Name Service (DNS) Management Programming Manual

DNS Programming Example, COBOL85
E–2 46958 Tandem Computers Incorporated
DATA DIVISION.
FILE SECTION.
FD DNS-MANAGER-FILE
EXTERNAL
RECORD CONTAINS 6 TO 4196 CHARACTERS
LABEL RECORDS ARE OMITTED.
COPY ZDNS-DDL-MSG-BUFFER IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-MSG-BUFFER BY DNS-IO-BUF.
WORKING-STORAGE SECTION.
*
* Manager file status
*
01 DNS-MANAGER-STATUS EXTERNAL PIC XX.
*
* DNS-OPEN will return the name manager's version here
*
77 DNS-VERSION NATIVE-2.
*
* DNS-ALTER-ALIAS parameter where we don't want to change the alias's
* referent
*
77 NULL-REFTYPE NATIVE-2 VALUE -1.
*
* Result of calls to embedded programs
*
COPY DNS-RESULT.
*
* Parameters to DNS-LOOKUP
*
01 SOME-NAME.
02 ENTERED-NAME PIC X(80).
02 FILLER PIC X(82) VALUE SPACES.
01 SOME-DEFNODE PIC X(8) VALUE SPACES.
*
* Response from DNS-LOOKUP
*
COPY ZDNS-DDL-INFO-NAME-BR IN $FALL.ZSPIDEF.ZDNSCOB
REPLACING ZDNS-DDL-INFO-NAME-BR BY RESPONSE.
*
* DNS-LOOKUP will set to UNAMBIGUOUS if the name is unique; if
* the name is not unique, DNS-LOOKUP will set to AMBIGUOUS
*
01 AMBIGUOUS-FLAG PIC X.
88 UNAMBIGUOUS VALUE "N".
88 AMBIGUOUS VALUE "Y".