Distributed Name Service (DNS) Management Programming Manual

Appendix E DNS Programming Example,
COBOL85
46958 Tandem Computers Incorporated E–1
The COBOL85 example in this section assumes the use of the COPYLIB file. The COPYLIB files is displayed
before the actual COBOL85 example.
?SECTION DNS-LOOKUP-PARAM
01 DNS-LOOKUP-PARAM.
02 DNS-TYE-SELECT PIC A OCCURS 13 TIMES.
88 DNS-TYPE-SELECTED VALUE IS "Y".
?SECTION DNS-RESULT
01 DNS-RESULT PIC S9(8) COMP.
88 DNS-NO-ERROR VALUE IS 0.
01 DNS-RESULT-RED REDEFINES DNS-RESULT.
02 DNS-ERROR-TYPE NATIVE-2.
88 DNS-ET-OK VALUE IS 0.
88 DNS-ET-DNS VALUE IS 1.
88 DNS-ET-SPI VALUE IS 2.
88 DNS-ET-IO VALUE IS 3.
88 DNS-ET-OPEN VALUE IS 4.
88 DNS-ET-TMF VALUE IS 5.
02 DNS-ERROR-NUMBER NATIVE-2.
?SECTION DNS-ERROR-TEXT
01 DNS-ERROR-TEXT PIC X(20) VALUE "DNS SPI IO OPENTMF ".
01 DNS-ERROR-TEXT-RED REDEFINES DNS-ERROR-TEXT.
03 DNS-ERROR-TYPE-TEXT PIC X(4) OCCURS 5.
The following text is a COBOL85 source code listing.
?MAIN DNS-MAIN
IDENTIFICATION DIVISION.
PROGRAM-ID. DNS-MAIN.
DATE-WRITTEN. May 11, 1987.
DATE-COMPILED.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T/16.
OBJECT-COMPUTER. T/16.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
*
* DNS manager file
*
SELECT DNS-MANAGER-FILE
ASSIGN TO $ZDNS.#ZSPI
FILE STATUS IS DNS-MANAGER-STATUS.