ENFORM User's Guide

Using an ENFORM Server
ENFORM Servers
058058 Tandem Computers Incorporated 7–19
The server does not check that each query processor sends messages in the correct
sequence which is an initiate request, a record request, and then a terminate
request.
IDENTIFICATION DIVISION.
PROGRAM-ID. ENFSERV.
AUTHOR. ANON.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. TANDEM T/16.
OBJECT-COMPUTER. TANDEM T/16.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PARTSUP-FILE
ASSIGN TO PRTS
ORGANIZATION IS INDEXED
ACCESS MODE IS DYNAMIC
RECORD KEY IS PRIMKEY OF FROM-SUP
FILE STATUS IS FILE-STAT.
SELECT MESSAGE-IN
ASSIGN TO $RECEIVE
FILE STATUS IS RECEIVE-FILE-STATUS.
SELECT MESSAGE-OUT
ASSIGN TO $RECEIVE
FILE STATUS IS RECEIVE-FILE-STATUS.
RECEIVE-CONTROL.
TABLE OCCURS 5 TIMES
SYNCDEPTH LIMIT IS 1
REPLY CONTAINS MESSAGE-OUT RECORD.
DATA DIVISION.
FILE SECTION.
FD PARTSUP-FILE
LABEL RECORDS ARE OMITTED.
* Record FROM-SUP created on 03/05/82 at 09:43
01 FROM-SUP.|
02 FRMSUP.
03 PRIMKEY.
04 PARTNUM PIC 9(4).
03 NUM-SUPS PIC 9.
03 SUP-DATA OCCURS 5 TIMES.
04 SUPPNUM PIC 999.
04 PARTCOST PIC 999999V99.