RSC/MP Programming Manual

Language Conversion for RSC/MP Function Calls COBOL Function Format
COBOL Function Format
COBOL function definition:
WORKING-STORAGE SECTION.
01 OPTION-HANDLE
PIC
9(8)
COMP-5
VALUE 0
01 CONNECTION-HANDLE
PIC
9(8)
COMP-5.
01 SESSION-HANDLE PIC 9(8) COMP-5.
01 SERVER-NAME. PIC X(12) VALUE"SERVER-NAME"
01 IO-HANDLE PIC S9(4) COMP-5 VALUE -1
01 REQ-READ.
02 MESSAGE-HEADER.
03 MSG-NUMBER
PIC
S9(4)
COMP.
03 MSG-TYPE
PIC
S9(4)
COMP.
02 CUSTOMER.
03 CUSTOMER-ID
PIC
X(18).
03 CUSTOMER-NAME
PIC
X(20).
03 CUSTOMER-STREET
PIC
X(30).
03 CUSTOMER-CITY
PIC
X(20).
03 CUSTOMER-ZIP
PIC
X(6).
01 REQ-READ-SIZE
PIC
S9(4)
COMP-5.
COBOL function syntax:
CALL"_RSCWR" USING BY VALUE OPTION-HANDLE
BY VALUE CONNECTION-HANDLE
BY VALUE SESSION-HANDLE
SERVER-NAME
BY VALUE IO-HANDLE
REQ-READ
BY VALUE REQ-READ-SIZE
REQ-READ
REQ-READ-SIZE
HP NonStop Remote Server Call (RSC/MP) Programming Manual — 522360-006
B- 4