SQL/MP Programming Manual for COBOL

Writing Pathway Servers
HP NonStop SQL/MP Programming Manual for COBOL—529758-003
E-2
PERFORM Model
The sample code for the PERFORM model server is shown in Example E-1.
Example E-1. PERFORM Model (page 1 of 3)
IDENTIFICATION DIVISION.
PROGRAM-ID. perform-model-sql.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. Tandem NonStop.
OBJECT-COMPUTER. Tandem NonStop.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT msg-in
ASSIGN TO $RECEIVE
FILE STATUS IS receive-file-status.
SELECT msg-out
ASSIGN TO $RECEIVE
FILE STATUS IS receive-file-status.
DATA DIVISION.
FILE SECTION.
FD msg-in
LABEL RECORDS ARE OMITTED.
* The definition of ENTRY-MSG should be a COPY statement.
01 entry-msg.
02 pw-header.
04 reply-code PIC S9(4) COMP.
04 application-code PIC XX.
04 function-code PIC XX.
04 trans-code PIC 99.
04 term-id PIC X(15).
04 log-request PIC X.
02 entry-type PIC X.
02 parts-info.
04 partnum PIC 9(4).
04 partname PIC X(18).
04 inventory PIC S999 COMP.
04 location PIC XXX.
04 price PIC 9(6)V99 COMP.
FD msg-out
LABEL RECORDS ARE OMITTED.
RECORD CONTAINS 1 TO 26 CHARACTERS.
* The definition of ENTRY-REPLY should be a COPY statement.
01 entry-reply.
02 pw-header.
04 reply-code PIC S9(4) COMP.
04 filler PIC X(22).
02 error-code PIC S9(4) COMP.