ENFORM User's Guide

Using an ENFORM Server
ENFORM Servers
7–24 058058 Tandem Computers Incorporated
01 REPLY-END .
* Record TERMINATE-INPUT-REPLY created on 03/05/82 at 09:44
05 TERMINATE-INPUT-REPLY.
10 TERMINATE-INPUT-REPLY-DEF.
15 ENFORM-SERVER-HEADER-DEF.
20 PW-HEADER-DEF.
25 REPLY-CODE PIC S9(4) COMP.
25 APPLICATION-CODE PIC XX.
25 FUNCTION-CODE PIC XX.
25 TRANS-CODE PIC XX.
88 INIT-INPUT Value is "SR".
88 RECORD-INPUT Value is "RR".
88 TERMINATE-INPUT Value is "TR".
25 TERM-ID PIC X(15).
25 LOG-REQUEST PIC X.
20 ENFORM-ERROR-HEADER-DEF.
25 ERROR-CODE PIC S9(4) COMP.
25 ERROR-FILE-NAME PIC X(24).
25 FILE-ERROR PIC S9(4) COMP.
WORKING-STORAGE SECTION.
77 I PIC S9(4) COMP VALUE 0.
77 FOUND-IT PIC S9(4) COMP VALUE 0.
77 ERROR-FN PIC X(24)
VALUE "$DATA AASERV PRTS ".
01 REPLY-CODE-SET.
05 OK-REPLY PIC S9(4) COMP VALUE 0.
05 BAD-REPLY PIC S9(4) COMP VALUE 1.
01 ERROR-CODE-SET.
05 ERR-NONE PIC S9(4) COMP VALUE 0.
05 ERR-EOF PIC S9(4) COMP VALUE 1.
05 ERR-INV PIC S9(4) COMP VALUE 29.
01 GUARD-FILE-ERRORS.
05 FILLER PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 1.
05 FILLER PIC S9(4) COMP VALUE 59.
05 FILLER PIC S9(4) COMP VALUE 46.
05 FILLER PIC S9(4) COMP VALUE 10.
05 FILLER PIC S9(4) COMP VALUE 11.
05 FILLER PIC S9(4) COMP VALUE 45.
05 FILLER PIC S9(4) COMP VALUE 45.
01 GUARD-FILE-ERROR-TABLE REDEFINES GUARD-FILE-ERRORS.
05 GUARD-FILE-ERR PIC S9(4) COMP OCCURS
8 TIMES.