User guide

Writing ENFORM Servers
ENFORM Servers
058058 Tandem Computers Incorporated 7–13
Figure 7-6. Message Format and DDL Description for the RECORD-INPUT-REPLY Message
DEF record-input-reply-def .
05 ENFORM-server-header-def TYPE * .
05 position-code PIC X(4) .
! = "FRST", first record = "NEXT", next record
05 actual-data-bz TYPE BINARY 16 .
! = 1 to (MAX-DATA-WZ * 2) # bytes of actual data in the
! DATA-RECORD field.
05 data-record-bz TYPE BINARY 16 .
! data-record field size which is fixed for the
! duration of a session. Size is given in bytes.
! 05 data-record PIC X(MAX-DATA-WZ * 2) .
05 data-record PIC X(4096).
! data-record field size is declared as the maximum data record
! size. You can change it to be whatever your application
! needs. This field contains the data record requested, either
! the first or the next of the process file.
! 05 control-block PIC X(MAX-CB-WZ * 2) .
05 control-block PIC X(4036).
! ENFORM server context data. This field is optional.
! MAX-CB-WZ is the maximum control-block word size. You can
! change it to be whatever your application needs.
END
0:
REPLY-CODE
1: APPLICATION-CODE
2: FUNCTION-CODE
3: TRANS-CODE
4-11: TERM-ID,LOG-REQUEST (unused)
12: ERROR-CODE
13-24: FILE-NAME
25: FILE-ERROR
HEADER
26-27: POSITION-CODE
28: ACTUAL-DATA-BZ
29: DATA-RECORD-BZ
30-?: DATA-RECORD
?-?: CONTROL-BLOCK (optional)