ENFORM User's Guide

Using an ENFORM Server
ENFORM Servers
058058 Tandem Computers Incorporated 7–23
01 REPLY-RCD
* Record RECORD-INPUT-REPLY created on 03/05/82 at 09:44
05 RECORD-INPUT-REPLY.
10 RECORD-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 POSITION-CODE PIC X(4).
88 FIRST-RCD Value is "FRST".
88 NEXT-RCD Value is "NEXT".
15 ACTUAL-DATA-BZ PIC S9(4) COMP.
15 DATA-RECORD-BZ PIC S9(4) COMP.
15 DATA-RECORD.
20 FROMSUP.
25 PRIMKEY.
30 PARTNUM PIC 9(4).
25 SUPPNUM PIC 999.
25 PARTCOST PIC 999999V99.
25 FILLER PIC X.
15 CONTROL-BLOCK PIC X(2).
15 CB-INT REDEFINES CONTROL-BLOCK PIC 99.