ENFORM User's Guide

Using an ENFORM Server
ENFORM Servers
7–22 058058 Tandem Computers Incorporated
01 MSG-END .
* Record TERMINATE-INPUT-REQUEST created on 03/05/82 at 09:44
05 TERMINATE-INPUT-REQUEST.
10 TERMINATE-INPUT-REQUEST-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.
FD MESSAGE-OUT
LABEL RECORDS ARE OMITTED
RECORD CONTAINS 52 TO 78 CHARACTERS.
01 REPLY-INIT.
* Record INITIATE-INPUT-REPLY created on 03/05/82 at 09:44
05 INITIATE-INPUT-REPLY.
10 INITIATE-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.
15 MAX-RECORDS-IN-FILE PIC S9(9) COMP.
15 CONTROL-BLOCK-WZ PIC S9(4) COMP.