ENFORM User's Guide

Using an ENFORM Server
ENFORM Servers
058058 Tandem Computers Incorporated 7–27
DISPLAY "$RECEIVE FILE ERROR STATUS = ",
RECEIVE-FILE-STATUS.
END DECLARATIVES.
BEGIN-THE-PROGRAM.
PERFORM START-YOUR-ENGINES.
PERFORM READ-MAILBOX
UNTIL CLOSE-FROM-REQUESTOR.
PERFORM GARBAGE-COLLECTION.
STOP RUN.
START-YOUR-ENGINES.
OPEN INPUT MESSAGE-IN.
OPEN OUTPUT MESSAGE-OUT.
OPEN INPUT PARTSUP-FILE EXCLUSIVE.
GARBAGE-COLLECTION.
CLOSE MESSAGE-IN.
CLOSE MESSAGE-OUT.
CLOSE PARTSUP-FILE.
READ-MAILBOX.
*============================================================
* Initialize the message and reply buffers, read $receive to
* get the next message, and process the message.
*============================================================
MOVE SPACES TO MSG-RCD, REPLY-RCD.
MOVE ZERO TO FILE-STAT.
PERFORM 90-GET-MESSAGE.
IF NOT CLOSE-FROM-REQUESTOR
PERFORM TRANS-CODE-CASE.
TRANS-CODE-CASE.
IF INIT-INPUT OF MSG-INIT
* ****** initiate request ************
PERFORM TRANS-CODE-SR
ELSE IF RECORD-INPUT OF MSG-RCD
* ********* record request *************
PERFORM TRANS-CODE-RR
ELSE IF TERMINATE-INPUT OF MSG-END
* ******* terminate request *********
PERFORM TRANS-CODE-TR
ELSE
* ******** error *************
MOVE ENFORM-SERVER-HEADER-DEF OF MSG-INIT
TO ENFORM-SERVER-HEADER-DEF OF
REPLY-INIT
PERFORM 9-INVALID-MSG
PERFORM 90-SEND-END-REPLY.