ENFORM User's Guide

Interface Procedures
Host Language Interface
058058 Tandem Computers Incorporated 6–13
Figure 6-4. COBOL Host Language Program (Page 1 of 3)
IDENTIFICATION DIVISION.
PROGRAM-ID. ENFORM-TEST.
AUTHOR. E. TESTER.
INSTALLATION.
DATE-WRITTEN. JUNE 1982.
DATE-COMPILED. JUNE 1982.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. TANDEM/16.
OBJECT-COMPUTER. TANDEM/16.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 END-FLAG PIC 9 VALUE 0.
88 CLOSE-FROM-ENFORM VALUE 1.
01 NO-ENTRY PIC 9 VALUE 0.
88 MORE-RECORDS-NEEDED VALUE 0.
88 NO-MORE-RECORDS-NEEDED VALUE 1.
01 TEMP-BINARY PIC S9999 COMP.
01 TEMP-BINARY-BYTES REDEFINES TEMP-BINARY.
02 TEMP-N1 PIC X.
02 TEMP-N2 PIC X.
*ONE OF THE MOST USEFUL FEATURES OF A COBOL PROGRAM STARTING A
*COMPILED ENFORM QUERY IS THE ABILITY TO PASS PARAM VALUES.
*SEE ALSO THE A-INIT PARAGRAPH BELOW.
01 PARAM-LIST.
02 MESSAGE-TYPE PIC S9(4) COMP VALUE -3.
02 NUM-PARAMS PIC S9(4) COMP VALUE 1.
02 LENGTH-NAME PIC X.
02 FILLER PIC X(10) VALUE "REGION-NUM".
02 LENGTH-PARAM PIC X.
02 REGION-NO PIC 9(4).
02 LOW-NUMBER PIC S9(4) COMP VALUE 0.
01 ENFORM-START.
02 CTLBLOCK.
04 CTLBLOCK-WORD PIC XX OCCURS 18 TIMES.
02 PHYSICAL-FILENAME PIC X(24)
VALUE "$MKT SAMPLE FINDFILE".
02 BUFFER-LENGTH PIC 99 VALUE 80.
02 ERROR-NUMBER PIC S9(4) COMP VALUE 0.
02 RESTART-FLAG PIC S9(4) COMP VALUE 0.
01 ENFORM-RECEIVE.
02 DATA-COUNT PIC 9999 COMP VALUE 0.
02 RECEIVED-DATA PIC X(80).
PROCEDURE DIVISION.
MAIN SECTION.
BEGIN-COBOL-SERVER.