ENFORM User's Guide

Using an ENFORM Server
ENFORM Servers
058058 Tandem Computers Incorporated 7–25
01 FILE-DATA.
05 ERR-INDEX PIC S9(4) COMP.
05 FILE-ERROR-NO PIC S9(4) COMP.
88 END-OF-FILE VALUE 1.
88 FILE-IS-BAD VALUE 59.
88 INVALID-KEY VALUE 46.
88 DUPLICATE-KEY VALUE 10.
88 NO-EXISTING-RECORD VALUE 11.
88 FILE-IS-FULL VALUE 45.
05 RECEIVE-FILE-STATUS.
10 STAT-1 PIC 9.
88 CLOSE-FROM-REQUESTOR VALUE 1 THRU 3.
10 STAT-2 PIC 9.
05 FILE-STAT.
10 STAT-KEY1 PIC 9.
88 NO-ERROR VALUE 0.
88 FILE-ERROR VALUES ARE 1 THRU 3.
10 STAT-KEY2 PIC 9.
05 LOG-FILE-STATUS.
10 S-KEY1 PIC 9.
10 S-KEY2 PIC 9.