User guide

Using an ENFORM Server
ENFORM Servers
7–26 058058 Tandem Computers Incorporated
PROCEDURE DIVISION.
DECLARATIVES.
UA-PARTSUP-FILE SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON PARTSUP-FILE.
UA-PARTSUP-FILE-PROC.
* FILE STATUS ALGORITHM
*============================================================
* STAT-KEY1 + STAT-KEY2 = ERR- ERROR CONDITION
* INDEX
* 0 + 0 + 1 = 1 SUCCESSFUL COMPLETION
* 1 + 0 + 1 = 2 END OF FILE
* 3 + 0 + 0 = 3 PERMANENT ERROR
* 2 + 1 + 1 = 4 SEQUENCE ERROR
* 2 + 2 + 1 = 5 DUPLICATE KEY
* 2 + 3 + 1 = 6 NO EXISTING RECORD
* 2 + 4 + 1 = 7 PAST INDEXED EOF
* 3 + 4 + 1 = 8 PAST SEQUENTIAL EOF
*============================================================
IF STAT-KEY1 = 3 AND STAT-KEY2 = 0
COMPUTE ERR-INDEX = STAT-KEY1 + STAT-KEY2
ELSE
COMPUTE ERR-INDEX = STAT-KEY1 + STAT-KEY2 + 1.
*============================================================
* If there is a file error, send the error number and the
* filename in the reply buffer. Also, set the reply code to
* 1 to indicate that an error occurred. If the error was an
* an end of file (stat-key = 1) then set the error-code to 1
* otherwise set the error code to invalid.
*============================================================
MOVE GUARD-FILE-ERR (ERR-INDEX) TO FILE-ERROR OF REPLY-RCD.
MOVE ERROR-FN TO ERROR-FILE-NAME OF REPLY-RCD.
MOVE BAD-REPLY TO REPLY-CODE OF REPLY-RCD.
IF STAT-KEY1 = 1
MOVE ERR-EOF TO ERROR-CODE OF REPLY-RCD
ELSE MOVE ERR-INV TO ERROR-CODE OF REPLY-RCD.
UA-MESSAGE-IN SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON MESSAGE-IN.
UA-MESSAGE-IN-PROC.
IF STAT-1 IS NOT EQUAL 1
DISPLAY "$RECEIVE FILE ERROR STATUS = ",
RECEIVE-FILE-STATUS.
UA-MESSAGE-OUT SECTION.
USE AFTER STANDARD ERROR PROCEDURE ON MESSAGE-OUT.
UA-MESSAGE-OUT-PROC.
IF STAT-1 IS NOT EQUAL 1